First commit 27/10/2000

DlgQueImprimir.cpp

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