28 lines
1.3 KiB
C++
28 lines
1.3 KiB
C++
//----------------------------------------------------------------------------
|
|
#include <vcl\vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "TpvBlcD_Print.h"
|
|
#include "TpvBlcDVnt.h"
|
|
//----------------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
TQRBlcD_Print *QRBlcD_Print;
|
|
//----------------------------------------------------------------------------
|
|
__fastcall TQRBlcD_Print::TQRBlcD_Print(TComponent* Owner)
|
|
: TQuickRep(Owner)
|
|
{
|
|
TCant->Caption = ((TTpvBlDVnt *)Owner)->Label15->Caption;
|
|
TDinero->Caption = ((TTpvBlDVnt *)Owner)->Label16->Caption;
|
|
DiaAnterior->Caption = ((TTpvBlDVnt *)Owner)->Label27->Caption;
|
|
|
|
LVentasT->Caption = ((TTpvBlDVnt *)Owner)->LVentasT->Caption;
|
|
LVentasE->Caption = ((TTpvBlDVnt *)Owner)->LVentasE->Caption;
|
|
LGastos->Caption = ((TTpvBlDVnt *)Owner)->LGastos->Caption;
|
|
LGastosE->Caption = ((TTpvBlDVnt *)Owner)->LGastosE->Caption;
|
|
LBeneficio->Caption = ((TTpvBlDVnt *)Owner)->LBeneficio->Caption;
|
|
LBeneficio->Font->Color = ((TTpvBlDVnt *)Owner)->LBeneficio->Font->Color;
|
|
LBeneficioE->Caption = ((TTpvBlDVnt *)Owner)->LBeneficioE->Caption;
|
|
LBeneficioE->Font->Color = ((TTpvBlDVnt *)Owner)->LBeneficioE->Font->Color;
|
|
EnCaja->Caption = ((TTpvBlDVnt *)Owner)->EnCaja->Caption;
|
|
}
|
|
//----------------------------------------------------------------------------
|