98 lines
2.5 KiB
C++
98 lines
2.5 KiB
C++
//----------------------------------------------------------------------------
|
|
#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;
|
|
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
|