//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#ifdef EXIST_CFG
#include "TpvCFG.h"
#endif


#include "TpvRefBarras.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TRefBarras *RefBarras;
//----------------------------------------------------------------------------
__fastcall TRefBarras::TRefBarras(TComponent* Owner)
    : TForm(Owner)
{
 OldCodFamilia = -1;
}
//----------------------------------------------------------------------------
void __fastcall TRefBarras::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;
}
//---------------------------------------------------------------------------
void __fastcall TRefBarras::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;

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