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

97
TpvRefQRs.cpp Normal file
View File

@ -0,0 +1,97 @@
//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#ifdef EXIST_CFG
#include "TpvCFG.h"
#endif
#include "TpvRefQRs.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TRefQR *RefQR;
//----------------------------------------------------------------------------
__fastcall TRefQR::TRefQR(TComponent* Owner)
: TForm(Owner)
{
OldCodFamilia = -1;
}
//----------------------------------------------------------------------------
void __fastcall TRefQR::DetailBand1BeforePrint(TQRCustomBand *Sender,
bool &PrintBand)
{
if ( OldCodFamilia != Table1 -> FieldByName( "Familia" ) -> AsInteger && Table1 -> FieldByName( "Familia" ) -> AsInteger != 0 )
{
// COMIENZO DE UNA NUEVA FAMILA...
PrintBand = false;
return;
}
// OldCodFamilia = Table1 -> FieldByName( "Familia" ) -> AsInteger;
try {
if ( Table1 -> FieldByName( "Seguimiento" ) -> AsBoolean )
QRImage2 -> Picture -> LoadFromFile( "systm\\ON.BMP" );
else
#ifdef EXIST_CFG
if ( CFG->RefQR_LEDS->Checked )
QRImage2 -> Picture -> LoadFromFile( "systm\\OFF.BMP" );
#else
QRImage2 -> Picture -> Graphic = 0;
#endif
if ( Table1 -> FieldByName( "COMBINADO" ) -> AsBoolean )
QRImage1 -> Picture -> LoadFromFile( "systm\\ON.BMP" );
else
#ifdef EXIST_CFG
if ( CFG->RefQR_LEDS->Checked )
QRImage1 -> Picture -> LoadFromFile( "systm\\OFF.BMP" );
#else
QRImage1 -> Picture -> Graphic = 0;
#endif
} catch(...){
// Do nothing
}
}
//---------------------------------------------------------------------------
void __fastcall TRefQR::ChildBand2BeforePrint(TQRCustomBand *Sender,
bool &PrintBand)
{
int CodActual;
#ifdef EXIST_CFG
if ( ! CFG->ImprimirCabFam )
{
PrintBand = false;
return;
}
#endif
CodActual = Table1 -> FieldByName( "Familia" ) -> AsInteger;
if ( OldCodFamilia != Table1 -> FieldByName( "Familia" ) -> AsInteger && Table1 -> FieldByName( "Familia" ) -> AsInteger != 0 )
{
PrintBand = true;
// Prevision de futuro (Parece lo de la tele JEJE)
#ifdef EXIST_CFG
if ( ! CFG->ImprimirCabFamVacia )
#endif
{
try {
Table1->Next();
if ( !Table1->Eof && CodActual != Table1 -> FieldByName( "Familia" ) -> AsInteger )
PrintBand = false;
Table1->Prior();
} catch(...) { /*nothing*/ }
}
} else {
PrintBand = false;
}
OldCodFamilia = CodActual;
}
//---------------------------------------------------------------------------