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

45
TpvVntCltQR.cpp Normal file
View File

@ -0,0 +1,45 @@
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "TpvVntCltQR.h"
#include "TpvVntGeneral.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TVntCltQR *VntCltQR;
//---------------------------------------------------------------------
__fastcall TVntCltQR::TVntCltQR(TComponent* AOwner)
: TForm(AOwner)
{
My_AOwner = AOwner;
}
//---------------------------------------------------------------------
void __fastcall TVntCltQR::DetailBand1BeforePrint(TQRCustomBand *Sender,
bool &PrintBand)
{
TotalSin = 0;
TotalIVA = 0;
}
//---------------------------------------------------------------------------
void __fastcall TVntCltQR::GroupFooterBand1BeforePrint(
TQRCustomBand *Sender, bool &PrintBand)
{
QRTotalSin->Caption = FormatCurr("###,###,###.#0", TotalSin );
QRTotalIva->Caption = FormatCurr("###,###,###.#0", TotalIVA );
QRTotal->Caption = FormatCurr("###,###,###.#0", TotalSin + TotalIVA );
}
//---------------------------------------------------------------------------
void __fastcall TVntCltQR::QRSubDetail1AfterPrint(TQRCustomBand *Sender,
bool BandPrinted)
{
if ( BandPrinted )
{
TotalSin += QRSubDetail1->DataSet->FieldByName("TotalSin")->AsCurrency;
TotalIVA += QRSubDetail1->DataSet->FieldByName("TotalIva")->AsCurrency;
}
}
//---------------------------------------------------------------------------