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

71
TpvVntFctPrint.cpp Normal file
View File

@ -0,0 +1,71 @@
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "TpvVntFctPrint.h"
#include "TpvVentas.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TQRMDFacturaVnt *QRMDFacturaVnt;
//---------------------------------------------------------------------
__fastcall TQRMDFacturaVnt::TQRMDFacturaVnt(TComponent* AOwner)
: TQuickRep(AOwner)
{
TbProductos->Active = true;
TbCircular->Active = true;
TbVntCabecera->Active = true;
TbClt->Active = true;
TbVntLineas->Active = true;
try {
QRImage4->Picture->LoadFromFile("systm\\bannerFACT.bmp");
} catch(...) {
//nothing
}
}
//---------------------------------------------------------------------
void __fastcall TQRMDFacturaVnt::TitleBand1BeforePrint(
TQRCustomBand *Sender, bool &PrintBand)
{ char Caracter;
if ( TbClt->FieldByName( "DocumentoDNP" )->AsString.IsEmpty() ) Caracter = '0'; else
Caracter = (TbClt->FieldByName( "DocumentoDNP" )->AsString)[1];
if ( !(Caracter >= '0' && Caracter <= '9') )
LblNombre->Caption = TbClt->FieldByName( "Empresa" )->AsString;
else
LblNombre->Caption = TbClt->FieldByName( "Apellidos" )->AsString + ", " + TbClt->FieldByName( "Nombre" )->AsString;
LblDir->Caption = TbClt->FieldByName( "Calle" )->AsString + ", " + TbClt->FieldByName( "Num" )->AsString + TbClt->FieldByName( "Piso" )->AsString + TbClt->FieldByName( "Letra" ) -> AsString;
LblCP->Caption = "CP: " + TbClt->FieldByName( "CP" )->AsString + " " + TbClt->FieldByName( "Poblaci<EFBFBD>n" ) ->AsString + ", (" + TbClt->FieldByName("Provincia")->AsString+")";
}
//---------------------------------------------------------------------------
void __fastcall TQRMDFacturaVnt::PageFooterBand1BeforePrint(
TQRCustomBand *Sender, bool &PrintBand)
{
QRTotal->Caption = FormatCurr("###,###,###.#0", TbVntCabecera->FieldByName("TotalSin")->AsCurrency + TbVntCabecera->FieldByName("TotalIva")->AsCurrency );
QRLabel16->Caption = FormatCurr("###,###,###.#0 <20>", (TbVntCabecera->FieldByName("TotalSin")->AsCurrency + TbVntCabecera->FieldByName("TotalIva")->AsCurrency)/166.386 );
QRLabel17->Caption = FormatCurr("###,###,###.#0 <20>", (TbVntCabecera->FieldByName("TotalIva")->AsCurrency)/166.386 );
QRLabel18->Caption = FormatCurr("###,###,###.#0 <20>", (TbVntCabecera->FieldByName("TotalSin")->AsCurrency)/166.386 );
}
//---------------------------------------------------------------------------
void __fastcall TQRMDFacturaVnt::DetailBand1BeforePrint(
TQRCustomBand *Sender, bool &PrintBand)
{
QRDBText9->Mask = TbVntLineas->FieldByName("PrecioC")->AsInteger == 0 ? "#" : "###,###,###.#0";
if ( TbVntLineas->FieldByName("PrecioC")->AsInteger == 0 ||
TbVntLineas->FieldByName("Cantidad")->AsInteger == 0 )
{
QRExpr4->Mask = "#";
QRExpr1->Mask = "#";
} else {
QRExpr4->Mask = "###,###,###.#0";
QRExpr1->Mask = "###,###,###.#0";
}
}
//---------------------------------------------------------------------------