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

BIN
Vendidos/ClayComunicaciones/CLAY.tif Normal file
View File

Binary file not shown.

BIN
Vendidos/ClayComunicaciones/COMUNICADO.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 38 KiB

17
Vendidos/ClayComunicaciones/TpvVntAlbPrint.cpp Normal file
View File

@ -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)
{
}
//---------------------------------------------------------------------------

BIN
Vendidos/ClayComunicaciones/TpvVntAlbPrint.dfm Normal file
View File

Binary file not shown.

29
Vendidos/ClayComunicaciones/TpvVntAlbPrint.h Normal file
View File

@ -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

55
Vendidos/ClayComunicaciones/TpvVntFctPrint.cpp Normal file
View File

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

BIN
Vendidos/ClayComunicaciones/TpvVntFctPrint.dfm Normal file
View File

Binary file not shown.

108
Vendidos/ClayComunicaciones/TpvVntFctPrint.h Normal file
View File

@ -0,0 +1,108 @@
//----------------------------------------------------------------------------
#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 *QRLabel4;
TQRLabel *QRLabel5;
TQRLabel *QRLabel6;
TQRDBText *QRDBText1;
TQRShape *QRShape1;
TQRDBText *QRDBText2;
TQRLabel *QRLabel7;
TQRLabel *QRLabel8;
TQRLabel *QRLabel9;
TQRShape *QRShape2;
TQRDBText *QRDBText3;
TQRDBText *QRDBText6;
TQRImage *QRImage1;
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 *QRImage2;
TQRLabel *QRLabel16;
TQRLabel *QRLabel17;
TQRShape *QRShape10;
TQRExpr *QRExpr1;
TQRLabel *TotalE;
TQRLabel *TotalIvaE;
TQRLabel *TotalSinE;
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

25
Vendidos/ClayComunicaciones/guardar.bat Normal file
View File

@ -0,0 +1,25 @@
@echo off
if exist ..\..\perfil02 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 ..\..\perfil02
:fin

0
Vendidos/ClayComunicaciones/perfil02 Normal file
View File

0
Vendidos/ClayComunicaciones/testigo Normal file
View File

24
Vendidos/ClayComunicaciones/usar.bat Normal file
View File

@ -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 perfil02 ..\..\
goto fin
:error
@echo Actualmente existe un perfil sin salvar
@echo por seguridad este perfil NO SE ACTIVARA
:fin