70 lines
2.1 KiB
C++
70 lines
2.1 KiB
C++
//----------------------------------------------------------------------------
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#ifdef EXIST_CFG
|
|
#include "TpvCFG.h"
|
|
#endif
|
|
|
|
#include "TpvStockQR.h"
|
|
//----------------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
TStockQR *StockQR;
|
|
//----------------------------------------------------------------------------
|
|
__fastcall TStockQR::TStockQR(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
OldCodFamilia = -1;
|
|
}
|
|
//----------------------------------------------------------------------------
|
|
void __fastcall TStockQR::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->StockQR_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->StockQR_LEDS->Checked )
|
|
QRImage1 -> Picture -> LoadFromFile( "systm\\OFF.BMP" );
|
|
#else
|
|
QRImage1 -> Picture -> Graphic = 0;
|
|
#endif
|
|
|
|
} catch(...){
|
|
// Do nothing
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TStockQR::ChildBand2BeforePrint(TQRCustomBand *Sender,
|
|
bool &PrintBand)
|
|
{
|
|
if ( OldCodFamilia != Table1 -> FieldByName( "Familia" ) -> AsInteger && Table1 -> FieldByName( "Familia" ) -> AsInteger != 0 )
|
|
// COMIENZO DE UNA NUEVA FAMILA...
|
|
PrintBand = true;
|
|
else
|
|
PrintBand = false;
|
|
OldCodFamilia = Table1 -> FieldByName( "Familia" ) -> AsInteger;
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|