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

69
TpvStockQR.cpp Normal file
View File

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