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

}
//---------------------------------------------------------------------------