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

52
TpvVntEmpl.cpp Normal file
View File

@ -0,0 +1,52 @@
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "TpvVntEmpl.h"
#include "TpvVntCltQR.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ElastFrm"
#pragma link "TpvVntGeneral"
#pragma resource "*.dfm"
TVntEmpl *VntEmpl;
//---------------------------------------------------------------------------
__fastcall TVntEmpl::TVntEmpl(TComponent* Owner)
: TVntGeneral(Owner)
{
ImpagFact->Visible = false;
TodasFact->Visible = false;
TabSheet2->Visible = false;
CodCliente = "Empleado";
TableFactName="Ventas";
TbVentasC->IndexName = "CodEmpleado (idx)";
TbVentasC -> TableName = TableFactName+" (cabecera).db";
TbVentasD -> TableName = TableFactName+" (cuerpo).db";
DBMemo1->Enabled = true;
DBMemo1->Visible = true;
Label3->Visible = true;
#ifndef DEM001
TbVentasD -> Active = true;
#endif
TbVentasC -> Active = true;
TbVentasF -> Active = true;
}
//---------------------------------------------------------------------------
void __fastcall TVntEmpl::SpeedButton7Click(TObject *Sender)
{
TVntCltQR *QR;
QR = new TVntCltQR(this);
QR->QuickRep1->ReportTitle = "Venta por empleado";
QR->QuickRep1->DataSet = TbClientes;
QR->QRSubDetail1->DataSet = TbVentasC;
QR->QuickRep1->Preview();
delete QR;
}
//---------------------------------------------------------------------------