65 lines
1.8 KiB
C++
65 lines
1.8 KiB
C++
//---------------------------------------------------------------------------
|
|
|
|
#include <vcl.h>
|
|
#pragma hdrstop
|
|
|
|
#include "DlgQueImprimir.h"
|
|
#include "QR_Mailing.h"
|
|
#include "QR_ListadoGeneral.h"
|
|
#include "QR_FichaCompleta.h"
|
|
//---------------------------------------------------------------------------
|
|
#pragma package(smart_init)
|
|
#pragma resource "*.dfm"
|
|
TDlgImprimir *DlgImprimir;
|
|
//---------------------------------------------------------------------------
|
|
__fastcall TDlgImprimir::TDlgImprimir(TComponent* Owner)
|
|
: TForm(Owner)
|
|
{
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
|
|
void __fastcall TDlgImprimir::Button2Click(TObject *Sender)
|
|
{
|
|
Close();
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TDlgImprimir::Button1Click(TObject *Sender)
|
|
{
|
|
|
|
switch( RadioGroup1->ItemIndex )
|
|
{
|
|
// Listado Completo
|
|
case 0:
|
|
TForm2 *QRComp;
|
|
QRComp = new TForm2(this);
|
|
if ( !CheckBox1->Checked )
|
|
QRComp->QRBand2->BandType = rbDetail;
|
|
QRComp->QuickRep1->Print();
|
|
delete QRComp;
|
|
break;
|
|
// Listado Rápido
|
|
case 1:
|
|
TForm1 *QRForm;
|
|
QRForm = new TForm1(this);
|
|
QRForm->QuickRep1->Preview();
|
|
delete QRForm;
|
|
break;
|
|
// Pegatinas
|
|
case 2:
|
|
TQRLabelsForm *QRForm2;
|
|
QRForm2 = new TQRLabelsForm(this);
|
|
QRForm2->Preview();
|
|
delete QRForm2;
|
|
break;
|
|
}
|
|
}
|
|
//---------------------------------------------------------------------------
|
|
void __fastcall TDlgImprimir::RadioGroup1Click(TObject *Sender)
|
|
{
|
|
if ( RadioGroup1->ItemIndex == 0 )
|
|
CheckBox1->Visible = true;
|
|
else
|
|
CheckBox1->Visible = false;
|
|
}
|
|
//---------------------------------------------------------------------------
|