CPP_Builder/TPVwin
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 14/02/1999

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:19:30 +02:00
commit d031fca570
464 changed files with 22399 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
TpvCmpProv.cpp Normal file
View File

@ -0,0 +1,47 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "TpvCmpProv.h"
#include "TpvVntCltQR.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ElastFrm"
#pragma link "TpvVntGeneral"
#pragma resource "*.dfm"
TCmpProv *CmpProv;
//---------------------------------------------------------------------------
__fastcall TCmpProv::TCmpProv(TComponent* Owner)
: TVntGeneral(Owner)
{
ImpagFact->Visible = false;
TodasFact->Visible = false;
TabSheet2->Visible = false;
CodCliente = "Proveedor";
TableFactName="Compras";
TbVentasC->IndexName = "CodProveedor (idx)";
TbVentasC -> TableName = TableFactName+" (cabecera).db";
TbVentasD -> TableName = TableFactName+" (cuerpo).db";
#ifndef DEM001
TbVentasD -> Active = true;
#endif
TbVentasC -> Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TCmpProv::SpeedButton7Click(TObject *Sender)
{
TVntCltQR *QR;
QR = new TVntCltQR(this);
QR->QuickRep1->ReportTitle = "Compras por Proveedor";
QR->QuickRep1->DataSet = TbClientes;
QR->QRSubDetail1->DataSet = TbVentasC;
QR->QuickRep1->Preview();
delete QR;
}
//---------------------------------------------------------------------------