CPP_Builder/TPVwin
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

First commit 14/02/1999

Browse Source
This commit is contained in:
José David Guillén
2021-09-12 22:19:30 +02:00
commit d031fca570
464 changed files with 22399 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

74
TpvRefBarras.cpp Normal file
View File

@ -0,0 +1,74 @@
//----------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------