First commit 14/02/1999

Vendidos/FonoTorre/TpvVntAlbPrint.cpp

@@ -0,0 +1,17 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "TpvVntAlbPrint.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma link "TpvVntFctPrint"
+#pragma resource "*.dfm"
+TQRMDFacturaVnt1 *QRMDFacturaVnt1;
+//---------------------------------------------------------------------------
+__fastcall TQRMDFacturaVnt1::TQRMDFacturaVnt1(TComponent* Owner)
+    : TQRMDFacturaVnt(Owner)
+{
+}
+//---------------------------------------------------------------------------
+

Vendidos/FonoTorre/TpvVntAlbPrint.h

@@ -0,0 +1,29 @@
+//---------------------------------------------------------------------------
+#ifndef TpvVntAlbPrintH
+#define TpvVntAlbPrintH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include "TpvVntFctPrint.h"
+#include <Db.hpp>
+#include <DBTables.hpp>
+#include <ExtCtrls.hpp>
+#include <Qrctrls.hpp>
+#include <quickrpt.hpp>
+#include <Graphics.hpp>
+#include <QuickRpt.hpp>
+#include <jpeg.hpp>
+//---------------------------------------------------------------------------
+class TQRMDFacturaVnt1 : public TQRMDFacturaVnt
+{
+__published:	// IDE-managed Components
+private:	// User declarations
+public:		// User declarations
+    __fastcall TQRMDFacturaVnt1(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TQRMDFacturaVnt1 *QRMDFacturaVnt1;
+//---------------------------------------------------------------------------
+#endif

Vendidos/FonoTorre/TpvVntFctPrint.cpp

@@ -0,0 +1,58 @@
+//---------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "TpvVntFctPrint.h"
+#include "TpvVentas.h"
+//---------------------------------------------------------------------
+#pragma resource "*.dfm"
+TQRMDFacturaVnt *QRMDFacturaVnt;
+//--------------------------------------------------------------------- 
+__fastcall TQRMDFacturaVnt::TQRMDFacturaVnt(TComponent* AOwner)
+	: TQuickRep(AOwner)
+{
+  TbProductos->Active = true;
+  TbCircular->Active = true;
+  TbVntCabecera->Active = true;
+  TbClt->Active = true;
+  TbVntLineas->Active = true;
+  try {
+   QRImage4->Picture->LoadFromFile("systm\\bannerFACT.bmp");
+  } catch(...) {
+   //nothing
+  }
+}
+//---------------------------------------------------------------------
+void __fastcall TQRMDFacturaVnt::TitleBand1BeforePrint(
+      TQRCustomBand *Sender, bool &PrintBand)
+{
+  char Caracter;
+  if ( TbClt->FieldByName( "DocumentoDNP" )->AsString.IsEmpty() ) Caracter = '0'; else
+  Caracter = (TbClt->FieldByName( "DocumentoDNP" )->AsString)[1];
+
+  if ( !(Caracter >= '0' && Caracter <= '9') )
+
+    LblNombre->Caption = TbClt->FieldByName( "Empresa" )->AsString;
+  else
+    LblNombre->Caption = TbClt->FieldByName( "Apellidos" )->AsString + ", " + TbClt->FieldByName( "Nombre" )->AsString;
+  LblDir->Caption = TbClt->FieldByName( "Calle" )->AsString + ", " + TbClt->FieldByName( "Num" )->AsString + TbClt->FieldByName( "Piso" )->AsString + TbClt->FieldByName( "Letra" ) -> AsString;
+  LblCP->Caption = "CP: " + TbClt->FieldByName( "CP" )->AsString + "  " + TbClt->FieldByName( "Poblaci<EFBFBD>n" ) ->AsString + ", (" + TbClt->FieldByName("Provincia")->AsString+")";
+}
+//---------------------------------------------------------------------------
+
+
+
+
+void __fastcall TQRMDFacturaVnt::PageFooterBand1BeforePrint(
+      TQRCustomBand *Sender, bool &PrintBand)
+{
+ QRTotal->Caption = FormatCurr("###,###,###.#0", TbVntCabecera->FieldByName("TotalSin")->AsCurrency + TbVntCabecera->FieldByName("TotalIva")->AsCurrency );
+ TotalE->Caption = FormatCurr("###,###,###.#0", (TbVntCabecera->FieldByName("TotalSin")->AsCurrency + TbVntCabecera->FieldByName("TotalIva")->AsCurrency)/166.386 );
+ TotalSinE->Caption = FormatCurr("###,###,###.#0", (TbVntCabecera->FieldByName("TotalSin")->AsCurrency)/166.386 );
+ TotalIvaE->Caption = FormatCurr("###,###,###.#0", (TbVntCabecera->FieldByName("TotalIva")->AsCurrency)/166.386 );
+
+}
+//---------------------------------------------------------------------------
+
+
+

Vendidos/FonoTorre/TpvVntFctPrint.h

@@ -0,0 +1,104 @@
+//----------------------------------------------------------------------------
+#ifndef TpvVntFctPrintH
+#define TpvVntFctPrintH
+//----------------------------------------------------------------------------
+#include <ExtCtrls.hpp>
+#include <StdCtrls.hpp>
+#include <Quickrpt.hpp>
+#include <Dialogs.hpp>
+#include <Forms.hpp>
+#include <Controls.hpp>
+#include <Graphics.hpp>
+#include <Classes.hpp>
+#include <SysUtils.hpp>
+#include <Messages.hpp>
+#include <Windows.hpp>
+#include <System.hpp>
+#include <Db.hpp>
+#include <DBTables.hpp>
+#include <Qrctrls.hpp>
+#include <quickrpt.hpp>
+#include <QuickRpt.hpp>
+#include <jpeg.hpp>
+//----------------------------------------------------------------------------
+class TQRMDFacturaVnt : public TQuickRep
+{
+__published:
+	TQRBand *PageFooterBand1;
+	TQRBand *TitleBand1;
+	TQRBand * ColumnHeaderBand1;
+	TQRSubDetail *QRSubDetail1;
+    TQRLabel *QRLabel5;
+    TQRLabel *QRLabel6;
+    TQRDBText *QRDBText1;
+    TQRShape *QRShape1;
+    TQRDBText *QRDBText2;
+    TQRLabel *QRLabel7;
+    TQRLabel *QRLabel8;
+    TQRLabel *QRLabel9;
+    TQRShape *QRShape2;
+    TQRDBText *QRDBText3;
+    TQRDBText *QRDBText6;
+    TQRDBText *QRDBText10;
+    TQRDBText *QRDBText11;
+    TQRDBText *QRDBText13;
+    TQRBand *DetailBand1;
+    TQRLabel *QRLabel1;
+    TQRLabel *QRLabel10;
+    TQRLabel *QRLabel11;
+    TQRLabel *QRLabel12;
+    TQRLabel *QRLabel13;
+    TQRLabel *QRLabel14;
+    TQRDBText *QRDBText4;
+    TQRDBText *QRDBText5;
+    TQRDBText *QRDBText7;
+    TQRDBText *QRDBText8;
+    TQRDBText *QRDBText9;
+    TTable *TbCircular;
+    TTable *TbProductos;
+    TDataSource *DsCircular;
+    TTable *TbVntCabecera;
+    TTable *TbVntLineas;
+    TDataSource *DsVntCabecera;
+    TDataSource *DsVntLineas;
+    TTable *TbClt;
+    TQRShape *QRShape4;
+    TQRExpr *QRExpr4;
+    TQRLabel *LblNombre;
+    TQRLabel *LblDir;
+    TQRLabel *LblCP;
+    TQRImage *QRImage4;
+    TQRLabel *QRLabel2;
+    TQRLabel *QRLabel3;
+    TQRLabel *QRLabel15;
+    TQRDBText *QRDBText12;
+    TQRDBText *QRDBText14;
+    TQRLabel *QRTotal;
+        TQRShape *zMarcoIzq;
+        TQRShape *zMarcoDer;
+        TQRShape *QRShape3;
+        TQRShape *QRShape5;
+        TQRShape *QRShape6;
+        TQRShape *QRShape7;
+        TQRShape *QRShape8;
+        TQRShape *QRShape9;
+        TQRImage *QRImage1;
+        TQRShape *QRShape10;
+        TQRExpr *QRExpr1;
+        TQRDBText *TotalSinE;
+        TQRDBText *TotalIvaE;
+        TQRDBText *TotalE;
+    void __fastcall TitleBand1BeforePrint(TQRCustomBand *Sender,
+          bool &PrintBand);
+    
+    
+    void __fastcall PageFooterBand1BeforePrint(TQRCustomBand *Sender,
+          bool &PrintBand);
+private:
+public:
+	virtual __fastcall TQRMDFacturaVnt(TComponent* AOwner);
+};
+//----------------------------------------------------------------------------
+extern PACKAGE TQRMDFacturaVnt *QRMDFacturaVnt;
+//----------------------------------------------------------------------------
+#endif

Vendidos/FonoTorre/guardar.bat

@@ -0,0 +1,25 @@
+@echo off
+
+if exist ..\..\perfil03 goto ok
+
+@echo El perfil que intenta SALVAR, no se corresponde
+@echo con el actual...
+
+goto fin
+
+:ok
+
+@echo TRAER ficheros ACTUALES, a este perfil...
+@echo (Interrumpir CTRL+C) / <20> / continuar ?
+@echo pause > nul
+
+xcopy ..\..\TpvVntAlbPrint.cpp
+xcopy ..\..\TpvVntAlbPrint.dfm
+xcopy ..\..\TpvVntAlbPrint.h
+xcopy ..\..\TpvVntFctPrint.cpp
+xcopy ..\..\TpvVntFctPrint.dfm
+xcopy ..\..\TpvVntFctPrint.h
+del ..\..\testigo
+del ..\..\perfil03
+
+:fin

Vendidos/FonoTorre/usar.bat

@@ -0,0 +1,24 @@
+@echo off
+
+
+if exist ..\..\testigo goto error
+
+@echo COPIAR ficheros de este perfil, al proyecto...
+@echo (Interrumpir CTRL+C) / <20> / continuar ?
+pause > nul
+
+xcopy TpvVntAlbPrint.cpp ..\..\
+xcopy TpvVntAlbPrint.dfm ..\..\
+xcopy TpvVntAlbPrint.h ..\..\
+xcopy TpvVntFctPrint.cpp ..\..\
+xcopy TpvVntFctPrint.dfm ..\..\
+xcopy TpvVntFctPrint.h ..\..\
+xcopy testigo ..\..\
+xcopy perfil03 ..\..\
+goto fin 
+
+:error
+@echo Actualmente existe un perfil sin salvar
+@echo por seguridad este perfil NO SE ACTIVARA
+
+:fin