122 lines
3.9 KiB
C++
122 lines
3.9 KiB
C++
//---------------------------------------------------------------------
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "TpvProductosPrint1.h"
|
|
#include "TpvRefQRs.h"
|
|
#include "TpvRefQRc.h"
|
|
#include "TpvRefBarras.h"
|
|
//---------------------------------------------------------------------
|
|
#pragma resource "*.dfm"
|
|
TInformesProducto *InformesProducto;
|
|
//---------------------------------------------------------------------
|
|
__fastcall TInformesProducto::TInformesProducto(TComponent* AOwner)
|
|
: TForm(AOwner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------
|
|
void __fastcall TInformesProducto::RadioButton1Click(TObject *Sender)
|
|
{
|
|
try {
|
|
Image1 -> Picture -> LoadFromFile( "systm\\IProd_s.bmp" );
|
|
} catch(...) {
|
|
ShowMessage("No es posible cargar el archivo.\nTpvProductosPrint1.cpp\nTOKRightDlg::RadioButton1Click" );
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TInformesProducto::RadioButton2Click(TObject *Sender)
|
|
{
|
|
try {
|
|
Image1 -> Picture -> LoadFromFile( "systm\\IProd_c.bmp" );
|
|
} catch(...) {
|
|
ShowMessage("No es posible cargar el archivo.\nTpvProductosPrint1.cpp\nTOKRightDlg::RadioButton1Click" );
|
|
}
|
|
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TInformesProducto::RadioButton3Click(TObject *Sender)
|
|
{
|
|
try {
|
|
Image1 -> Picture -> LoadFromFile( "systm\\IProd_b.bmp" );
|
|
} catch(...) {
|
|
ShowMessage("No es posible cargar el archivo.\nTpvProductosPrint1.cpp\nTOKRightDlg::RadioButton1Click" );
|
|
}
|
|
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TInformesProducto::OKBtnClick(TObject *Sender)
|
|
{
|
|
if ( RadioButton1 -> Checked )
|
|
{
|
|
TRefQR *RefQRs;
|
|
// Creamos una ficha del tipo TProductos
|
|
// Guardando la referencia en la variable TProductos
|
|
RefQRs = new TRefQR(this);
|
|
// Mostrarla como modal y según el valor devuelto
|
|
#ifdef DEBUG
|
|
RefQRs -> QuickRep1 -> Preview();
|
|
#else
|
|
RefQRs -> QuickRep1 -> Print();
|
|
#endif
|
|
// Destruimos la ficha
|
|
delete RefQRs;
|
|
} else
|
|
if ( RadioButton2 -> Checked )
|
|
{
|
|
TRefQRc *RefQRc;
|
|
// Creamos una ficha del tipo TProductos
|
|
// Guardando la referencia en la variable TProductos
|
|
RefQRc = new TRefQRc(this);
|
|
// Mostrarla como modal y según el valor devuelto
|
|
#ifdef DEM001
|
|
ShowMessage( "Esta función ha sido deshabilitada para esta versión.\nPongase en contacto con el autor, si desea\nel módulo correspondiente: Jose-David.Guillen@cs.us.es" );
|
|
#else
|
|
#ifdef DEBUG
|
|
RefQRc -> QuickRep1 -> Preview();
|
|
#else
|
|
RefQRc -> QuickRep1 -> Print();
|
|
#endif
|
|
#endif
|
|
// Destruimos la ficha
|
|
delete RefQRc;
|
|
} else
|
|
if ( RadioButton3 -> Checked )
|
|
{
|
|
TRefBarras *RefBarras;
|
|
// Creamos una ficha del tipo TProductos
|
|
// Guardando la referencia en la variable TProductos
|
|
RefBarras = new TRefBarras(this);
|
|
// Mostrarla como modal y según el valor devuelto
|
|
#ifdef DEM001
|
|
ShowMessage( "Esta función ha sido deshabilitada para esta versión.\nPongase en contacto con el autor, si desea\nel módulo correspondiente: Jose-David.Guillen@cs.us.es" );
|
|
#else
|
|
RefBarras ->QuickRep1-> Preview();
|
|
#endif
|
|
// Destruimos la ficha
|
|
delete RefBarras;
|
|
} else {
|
|
#ifdef DEM001
|
|
ShowMessage( "Esta función ha sido deshabilitada para esta versión.\nPongase en contacto con el autor, si desea\nel módulo correspondiente: Jose-David.Guillen@cs.us.es" );
|
|
#endif
|
|
}
|
|
|
|
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TInformesProducto::FormShow(TObject *Sender)
|
|
{
|
|
try {
|
|
Image1 -> Picture -> LoadFromFile( "systm\\IProd_s.bmp" );
|
|
} catch(...) {
|
|
ShowMessage("No es posible cargar el archivo.\nTpvProductosPrint1.cpp\nTOKRightDlg::RadioButton1Click" );
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TInformesProducto::CancelBtnClick(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|
|
|