//----------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------