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