commit 454b67044f90345a97a30857698fda934d5894c4 Author: jdg Date: Sun Sep 12 22:17:55 2021 +0200 First commit 11/07/1998 diff --git a/AcercaDe.cpp b/AcercaDe.cpp new file mode 100644 index 0000000..9581d33 --- /dev/null +++ b/AcercaDe.cpp @@ -0,0 +1,14 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "AcercaDe.h" +//--------------------------------------------------------------------- +#pragma resource "*.dfm" +TAboutBox *AboutBox; +//--------------------------------------------------------------------- +__fastcall TAboutBox::TAboutBox(TComponent* AOwner) + : TForm(AOwner) +{ +} +//--------------------------------------------------------------------- diff --git a/AcercaDe.dfm b/AcercaDe.dfm new file mode 100644 index 0000000..42886bb Binary files /dev/null and b/AcercaDe.dfm differ diff --git a/AcercaDe.h b/AcercaDe.h new file mode 100644 index 0000000..b2d0dcf --- /dev/null +++ b/AcercaDe.h @@ -0,0 +1,37 @@ +//---------------------------------------------------------------------------- +#ifndef AcercaDeH +#define AcercaDeH +//---------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TAboutBox : public TForm +{ +__published: + TPanel *Panel1; + TLabel *ProductName; + TLabel *Version; + TLabel *Copyright; + TLabel *Comments; + TButton *OKButton; + TLabel *Label1; + TLabel *Label2; + TImage *ProgramIcon; + TShape *Shape1; + TImage *Image1; +private: +public: + virtual __fastcall TAboutBox(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern TAboutBox *AboutBox; +//---------------------------------------------------------------------------- +#endif diff --git a/Clientes y Proveedores.DB b/Clientes y Proveedores.DB new file mode 100644 index 0000000..1ec3d2d Binary files /dev/null and b/Clientes y Proveedores.DB differ diff --git a/Clientes y Proveedores.MB b/Clientes y Proveedores.MB new file mode 100644 index 0000000..5a8b7d0 Binary files /dev/null and b/Clientes y Proveedores.MB differ diff --git a/Clientes y Proveedores.PX b/Clientes y Proveedores.PX new file mode 100644 index 0000000..53e01f1 Binary files /dev/null and b/Clientes y Proveedores.PX differ diff --git a/Clientes y Proveedores.VAL b/Clientes y Proveedores.VAL new file mode 100644 index 0000000..7d9f70d Binary files /dev/null and b/Clientes y Proveedores.VAL differ diff --git a/Clientes y Proveedores.XG0 b/Clientes y Proveedores.XG0 new file mode 100644 index 0000000..2a823d4 Binary files /dev/null and b/Clientes y Proveedores.XG0 differ diff --git a/Clientes y Proveedores.XG1 b/Clientes y Proveedores.XG1 new file mode 100644 index 0000000..7ab9cbb Binary files /dev/null and b/Clientes y Proveedores.XG1 differ diff --git a/Clientes y Proveedores.XG2 b/Clientes y Proveedores.XG2 new file mode 100644 index 0000000..2e1c0ef Binary files /dev/null and b/Clientes y Proveedores.XG2 differ diff --git a/Clientes y Proveedores.YG0 b/Clientes y Proveedores.YG0 new file mode 100644 index 0000000..1c93045 Binary files /dev/null and b/Clientes y Proveedores.YG0 differ diff --git a/Clientes y Proveedores.YG1 b/Clientes y Proveedores.YG1 new file mode 100644 index 0000000..55e5108 Binary files /dev/null and b/Clientes y Proveedores.YG1 differ diff --git a/Clientes y Proveedores.YG2 b/Clientes y Proveedores.YG2 new file mode 100644 index 0000000..a445694 Binary files /dev/null and b/Clientes y Proveedores.YG2 differ diff --git a/Final/144MB/DISK1/DISK1.ID b/Final/144MB/DISK1/DISK1.ID new file mode 100644 index 0000000..a85294e --- /dev/null +++ b/Final/144MB/DISK1/DISK1.ID @@ -0,0 +1 @@ +DML diff --git a/Final/144MB/DISK1/SETUP.EXE b/Final/144MB/DISK1/SETUP.EXE new file mode 100644 index 0000000..0a43f3e Binary files /dev/null and b/Final/144MB/DISK1/SETUP.EXE differ diff --git a/Final/144MB/DISK1/SETUP.INI b/Final/144MB/DISK1/SETUP.INI new file mode 100644 index 0000000..b9a83c7 --- /dev/null +++ b/Final/144MB/DISK1/SETUP.INI @@ -0,0 +1,2 @@ +[Startup] +AppName=TAlarcon diff --git a/Final/144MB/DISK1/SETUP.INS b/Final/144MB/DISK1/SETUP.INS new file mode 100644 index 0000000..92639b6 Binary files /dev/null and b/Final/144MB/DISK1/SETUP.INS differ diff --git a/Final/144MB/DISK1/SETUP.PKG b/Final/144MB/DISK1/SETUP.PKG new file mode 100644 index 0000000..4fbbf17 Binary files /dev/null and b/Final/144MB/DISK1/SETUP.PKG differ diff --git a/Final/144MB/DISK1/_INST32I.EX_ b/Final/144MB/DISK1/_INST32I.EX_ new file mode 100644 index 0000000..75165cc Binary files /dev/null and b/Final/144MB/DISK1/_INST32I.EX_ differ diff --git a/Final/144MB/DISK1/_ISDEL.EXE b/Final/144MB/DISK1/_ISDEL.EXE new file mode 100644 index 0000000..d99af93 Binary files /dev/null and b/Final/144MB/DISK1/_ISDEL.EXE differ diff --git a/Final/144MB/DISK1/_SETUP.1 b/Final/144MB/DISK1/_SETUP.1 new file mode 100644 index 0000000..ee1e892 Binary files /dev/null and b/Final/144MB/DISK1/_SETUP.1 differ diff --git a/Final/144MB/DISK1/_SETUP.DLL b/Final/144MB/DISK1/_SETUP.DLL new file mode 100644 index 0000000..8d0fd21 Binary files /dev/null and b/Final/144MB/DISK1/_SETUP.DLL differ diff --git a/Final/144MB/DISK1/_SETUP.LIB b/Final/144MB/DISK1/_SETUP.LIB new file mode 100644 index 0000000..de6a07d Binary files /dev/null and b/Final/144MB/DISK1/_SETUP.LIB differ diff --git a/Final/144MB/DISK2/DISK2.ID b/Final/144MB/DISK2/DISK2.ID new file mode 100644 index 0000000..a85294e --- /dev/null +++ b/Final/144MB/DISK2/DISK2.ID @@ -0,0 +1 @@ +DML diff --git a/Final/144MB/DISK2/_SETUP.2 b/Final/144MB/DISK2/_SETUP.2 new file mode 100644 index 0000000..f2aff55 Binary files /dev/null and b/Final/144MB/DISK2/_SETUP.2 differ diff --git a/Final/144MB/DISK3/DISK3.ID b/Final/144MB/DISK3/DISK3.ID new file mode 100644 index 0000000..a85294e --- /dev/null +++ b/Final/144MB/DISK3/DISK3.ID @@ -0,0 +1 @@ +DML diff --git a/Final/144MB/DISK3/_SETUP.3 b/Final/144MB/DISK3/_SETUP.3 new file mode 100644 index 0000000..4e9a590 Binary files /dev/null and b/Final/144MB/DISK3/_SETUP.3 differ diff --git a/Final/BD con errores.zip b/Final/BD con errores.zip new file mode 100644 index 0000000..b49e644 Binary files /dev/null and b/Final/BD con errores.zip differ diff --git a/Final/Clientes y Proveedores.DB b/Final/Clientes y Proveedores.DB new file mode 100644 index 0000000..ceba89a Binary files /dev/null and b/Final/Clientes y Proveedores.DB differ diff --git a/Final/Clientes y Proveedores.MB b/Final/Clientes y Proveedores.MB new file mode 100644 index 0000000..5a8b7d0 Binary files /dev/null and b/Final/Clientes y Proveedores.MB differ diff --git a/Final/Clientes y Proveedores.PX b/Final/Clientes y Proveedores.PX new file mode 100644 index 0000000..044a477 Binary files /dev/null and b/Final/Clientes y Proveedores.PX differ diff --git a/Final/Clientes y Proveedores.VAL b/Final/Clientes y Proveedores.VAL new file mode 100644 index 0000000..7d9f70d Binary files /dev/null and b/Final/Clientes y Proveedores.VAL differ diff --git a/Final/Clientes y Proveedores.XG0 b/Final/Clientes y Proveedores.XG0 new file mode 100644 index 0000000..1b72774 Binary files /dev/null and b/Final/Clientes y Proveedores.XG0 differ diff --git a/Final/Clientes y Proveedores.XG1 b/Final/Clientes y Proveedores.XG1 new file mode 100644 index 0000000..7ab9cbb Binary files /dev/null and b/Final/Clientes y Proveedores.XG1 differ diff --git a/Final/Clientes y Proveedores.XG2 b/Final/Clientes y Proveedores.XG2 new file mode 100644 index 0000000..00ed8e0 Binary files /dev/null and b/Final/Clientes y Proveedores.XG2 differ diff --git a/Final/Clientes y Proveedores.YG0 b/Final/Clientes y Proveedores.YG0 new file mode 100644 index 0000000..c66dcbf Binary files /dev/null and b/Final/Clientes y Proveedores.YG0 differ diff --git a/Final/Clientes y Proveedores.YG1 b/Final/Clientes y Proveedores.YG1 new file mode 100644 index 0000000..55e5108 Binary files /dev/null and b/Final/Clientes y Proveedores.YG1 differ diff --git a/Final/Clientes y Proveedores.YG2 b/Final/Clientes y Proveedores.YG2 new file mode 100644 index 0000000..4bf318d Binary files /dev/null and b/Final/Clientes y Proveedores.YG2 differ diff --git a/Final/Ndxbuild.exe b/Final/Ndxbuild.exe new file mode 100644 index 0000000..f0c03f5 Binary files /dev/null and b/Final/Ndxbuild.exe differ diff --git a/Final/Productos.DB b/Final/Productos.DB new file mode 100644 index 0000000..fd611cc Binary files /dev/null and b/Final/Productos.DB differ diff --git a/Final/Productos.PX b/Final/Productos.PX new file mode 100644 index 0000000..e7b91fa Binary files /dev/null and b/Final/Productos.PX differ diff --git a/Final/Productos.XG0 b/Final/Productos.XG0 new file mode 100644 index 0000000..0df7cdc Binary files /dev/null and b/Final/Productos.XG0 differ diff --git a/Final/Productos.XG1 b/Final/Productos.XG1 new file mode 100644 index 0000000..11700d9 Binary files /dev/null and b/Final/Productos.XG1 differ diff --git a/Final/Productos.YG0 b/Final/Productos.YG0 new file mode 100644 index 0000000..e16dcfd Binary files /dev/null and b/Final/Productos.YG0 differ diff --git a/Final/Productos.YG1 b/Final/Productos.YG1 new file mode 100644 index 0000000..cb70dc9 Binary files /dev/null and b/Final/Productos.YG1 differ diff --git a/Final/Productos2.PX b/Final/Productos2.PX new file mode 100644 index 0000000..6656641 Binary files /dev/null and b/Final/Productos2.PX differ diff --git a/Final/Productos2.XG0 b/Final/Productos2.XG0 new file mode 100644 index 0000000..88a3410 Binary files /dev/null and b/Final/Productos2.XG0 differ diff --git a/Final/Productos2.XG1 b/Final/Productos2.XG1 new file mode 100644 index 0000000..7e5d2e1 Binary files /dev/null and b/Final/Productos2.XG1 differ diff --git a/Final/Productos2.YG0 b/Final/Productos2.YG0 new file mode 100644 index 0000000..2373edd Binary files /dev/null and b/Final/Productos2.YG0 differ diff --git a/Final/Productos2.YG1 b/Final/Productos2.YG1 new file mode 100644 index 0000000..a38b2cf Binary files /dev/null and b/Final/Productos2.YG1 differ diff --git a/Final/Productos2.db b/Final/Productos2.db new file mode 100644 index 0000000..08354c8 Binary files /dev/null and b/Final/Productos2.db differ diff --git a/Final/RegistroTlf.DB b/Final/RegistroTlf.DB new file mode 100644 index 0000000..988eb08 Binary files /dev/null and b/Final/RegistroTlf.DB differ diff --git a/Final/RegistroTlf.PX b/Final/RegistroTlf.PX new file mode 100644 index 0000000..f93964b Binary files /dev/null and b/Final/RegistroTlf.PX differ diff --git a/Final/RegistroTlf.XG0 b/Final/RegistroTlf.XG0 new file mode 100644 index 0000000..05bf22b Binary files /dev/null and b/Final/RegistroTlf.XG0 differ diff --git a/Final/RegistroTlf.XG1 b/Final/RegistroTlf.XG1 new file mode 100644 index 0000000..36ff1d0 Binary files /dev/null and b/Final/RegistroTlf.XG1 differ diff --git a/Final/RegistroTlf.YG0 b/Final/RegistroTlf.YG0 new file mode 100644 index 0000000..476b7ec Binary files /dev/null and b/Final/RegistroTlf.YG0 differ diff --git a/Final/RegistroTlf.YG1 b/Final/RegistroTlf.YG1 new file mode 100644 index 0000000..daf870a Binary files /dev/null and b/Final/RegistroTlf.YG1 differ diff --git a/Final/TAlarcon1.exe b/Final/TAlarcon1.exe new file mode 100644 index 0000000..7d13e80 Binary files /dev/null and b/Final/TAlarcon1.exe differ diff --git a/Final/VehiculosRegistrados.PX b/Final/VehiculosRegistrados.PX new file mode 100644 index 0000000..e02ad58 Binary files /dev/null and b/Final/VehiculosRegistrados.PX differ diff --git a/Final/VehiculosRegistrados.XG0 b/Final/VehiculosRegistrados.XG0 new file mode 100644 index 0000000..16c6bf2 Binary files /dev/null and b/Final/VehiculosRegistrados.XG0 differ diff --git a/Final/VehiculosRegistrados.YG0 b/Final/VehiculosRegistrados.YG0 new file mode 100644 index 0000000..19ee823 Binary files /dev/null and b/Final/VehiculosRegistrados.YG0 differ diff --git a/Final/VehiculosRegistrados.db b/Final/VehiculosRegistrados.db new file mode 100644 index 0000000..789d531 Binary files /dev/null and b/Final/VehiculosRegistrados.db differ diff --git a/LSPrecios1.cpp b/LSPrecios1.cpp new file mode 100644 index 0000000..0ff3387 --- /dev/null +++ b/LSPrecios1.cpp @@ -0,0 +1,22 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "LSPrecios1.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------- +#pragma resource "*.dfm" +TQRListForm2 *QRListForm2; +//--------------------------------------------------------------------- +// QuickReport simple list +// - Connect a datasource to the QuickReport component +// - Put QRDBText components on the Detail band +//--------------------------------------------------------------------- +__fastcall TQRListForm2::TQRListForm2(TComponent* AOwner) + : TForm(AOwner) +{ +} +//--------------------------------------------------------------------- + + + diff --git a/LSPrecios1.dfm b/LSPrecios1.dfm new file mode 100644 index 0000000..c6bae86 Binary files /dev/null and b/LSPrecios1.dfm differ diff --git a/LSPrecios1.h b/LSPrecios1.h new file mode 100644 index 0000000..2d47e8a --- /dev/null +++ b/LSPrecios1.h @@ -0,0 +1,58 @@ +//---------------------------------------------------------------------------- +#ifndef LSPrecios1H +#define LSPrecios1H +//---------------------------------------------------------------------------- +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TQRListForm2 : public TForm +{ +__published: + TQuickRep *QuickReport; + TQRBand *TitleBand1; + TQRLabel *QRLabel3; + TQRBand *ColumnHeaderBand1; + TQRLabel *QRLabel4; + TQRLabel *QRLabel5; + TQRLabel *QRLabel11; + TQRLabel *QRLabel12; + TQRLabel *QRLabel13; + TQRBand *DetailBand1; + TQRExpr *QRExpr1; + TQRExpr *QRExpr2; + TQRExpr *QRExpr3; + TQRExpr *QRExpr4; + TQRExpr *QRExpr5; + TQRBand *PageFooterBand1; + TQRSysData *QRSysData1; + TQRDBText *QRDBText1; + TQRDBText *QRDBText2; + TQRDBText *QRDBText3; + TQRLabel *QRLabel1; + TQRLabel *QRLabel14; + TQRDBText *QRDBText4; + TQRDBText *QRDBText6; + TQRDBText *QRDBText5; + TQRDBText *QRDBText7; + TQRShape *QRShape1; + TQRDBText *QRDBText8; +private: +public: + virtual __fastcall TQRListForm2(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern TQRListForm2 *QRListForm2; +//---------------------------------------------------------------------------- +#endif diff --git a/LSPrecios2.cpp b/LSPrecios2.cpp new file mode 100644 index 0000000..ca08fc9 --- /dev/null +++ b/LSPrecios2.cpp @@ -0,0 +1,16 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "LSPrecios2.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------------- +#pragma link "LSPrecios1" +#pragma resource "*.dfm" +TQRListForm3 *QRListForm3; +//--------------------------------------------------------------------------- +__fastcall TQRListForm3::TQRListForm3(TComponent* Owner) + : TQRListForm2(Owner) +{ +} +//--------------------------------------------------------------------------- \ No newline at end of file diff --git a/LSPrecios2.dfm b/LSPrecios2.dfm new file mode 100644 index 0000000..0307d2a Binary files /dev/null and b/LSPrecios2.dfm differ diff --git a/LSPrecios2.h b/LSPrecios2.h new file mode 100644 index 0000000..7ffc25b --- /dev/null +++ b/LSPrecios2.h @@ -0,0 +1,25 @@ +//--------------------------------------------------------------------------- +#ifndef LSPrecios2H +#define LSPrecios2H +//--------------------------------------------------------------------------- +#include +#include +#include +#include + +#include +#include "LSPrecios1.h" +#include +#include +//--------------------------------------------------------------------------- +class TQRListForm3 : public TQRListForm2 +{ +__published: // IDE-managed Components +private: // User declarations +public: // User declarations + __fastcall TQRListForm3(TComponent* Owner); +}; +//--------------------------------------------------------------------------- +extern TQRListForm3 *QRListForm3; +//--------------------------------------------------------------------------- +#endif diff --git a/Ndxbuild.exe b/Ndxbuild.exe new file mode 100644 index 0000000..f0c03f5 Binary files /dev/null and b/Ndxbuild.exe differ diff --git a/Productos.DB b/Productos.DB new file mode 100644 index 0000000..210858b Binary files /dev/null and b/Productos.DB differ diff --git a/Productos.PX b/Productos.PX new file mode 100644 index 0000000..0808037 Binary files /dev/null and b/Productos.PX differ diff --git a/Productos.XG0 b/Productos.XG0 new file mode 100644 index 0000000..cc62640 Binary files /dev/null and b/Productos.XG0 differ diff --git a/Productos.XG1 b/Productos.XG1 new file mode 100644 index 0000000..a65633d Binary files /dev/null and b/Productos.XG1 differ diff --git a/Productos.YG0 b/Productos.YG0 new file mode 100644 index 0000000..2850c10 Binary files /dev/null and b/Productos.YG0 differ diff --git a/Productos.YG1 b/Productos.YG1 new file mode 100644 index 0000000..831fb1b Binary files /dev/null and b/Productos.YG1 differ diff --git a/Productos2.PX b/Productos2.PX new file mode 100644 index 0000000..6656641 Binary files /dev/null and b/Productos2.PX differ diff --git a/Productos2.XG0 b/Productos2.XG0 new file mode 100644 index 0000000..88a3410 Binary files /dev/null and b/Productos2.XG0 differ diff --git a/Productos2.XG1 b/Productos2.XG1 new file mode 100644 index 0000000..7e5d2e1 Binary files /dev/null and b/Productos2.XG1 differ diff --git a/Productos2.YG0 b/Productos2.YG0 new file mode 100644 index 0000000..2373edd Binary files /dev/null and b/Productos2.YG0 differ diff --git a/Productos2.YG1 b/Productos2.YG1 new file mode 100644 index 0000000..a38b2cf Binary files /dev/null and b/Productos2.YG1 differ diff --git a/Productos2.db b/Productos2.db new file mode 100644 index 0000000..08354c8 Binary files /dev/null and b/Productos2.db differ diff --git a/README.md b/README.md new file mode 100644 index 0000000..3a2df2c --- /dev/null +++ b/README.md @@ -0,0 +1,9 @@ +#TAlarcon + + +*11/07/1998* + +ToDo: wwtcf? + + +![screenshot](/TAlarcon.png "Screenshot") diff --git a/RegistroTlf.DB b/RegistroTlf.DB new file mode 100644 index 0000000..737cf22 Binary files /dev/null and b/RegistroTlf.DB differ diff --git a/RegistroTlf.PX b/RegistroTlf.PX new file mode 100644 index 0000000..a612a62 Binary files /dev/null and b/RegistroTlf.PX differ diff --git a/RegistroTlf.XG0 b/RegistroTlf.XG0 new file mode 100644 index 0000000..50ac35d Binary files /dev/null and b/RegistroTlf.XG0 differ diff --git a/RegistroTlf.XG1 b/RegistroTlf.XG1 new file mode 100644 index 0000000..7989044 Binary files /dev/null and b/RegistroTlf.XG1 differ diff --git a/RegistroTlf.YG0 b/RegistroTlf.YG0 new file mode 100644 index 0000000..9368ca1 Binary files /dev/null and b/RegistroTlf.YG0 differ diff --git a/RegistroTlf.YG1 b/RegistroTlf.YG1 new file mode 100644 index 0000000..ee37d5f Binary files /dev/null and b/RegistroTlf.YG1 differ diff --git a/TAlarcon.cpp b/TAlarcon.cpp new file mode 100644 index 0000000..3185e0c --- /dev/null +++ b/TAlarcon.cpp @@ -0,0 +1,730 @@ +//--------------------------------------------------------------------------- +#include +#include +#pragma hdrstop + +#include "TAlarcon.h" +#include "AcercaDe.h" +#include "TAlarconBusc1.h" +#include "TAlarconFichas.h" +#include "TAlarconProductos.h" +#include "TAlarconRegLlamadas.h" +#include "TAlarconProductos2.h" +#include "TAlarconRegLlamadasSIMPLE.h" +#include "LSPrecios1.h" +#include "LSPrecios2.h" +//--------------------------------------------------------------------------- +#pragma link "Grids" +#pragma link "ElastFrm" +#pragma resource "*.dfm" +TAplicacion *Aplicacion; +//--------------------------------------------------------------------------- +__fastcall TAplicacion::TAplicacion(TComponent* Owner) + : TForm(Owner) +{ +/* + TbRegVehiculos -> Active = true; + TbVehiculos -> Active = true; + + TbCltProv -> Active = true; + TbClientes -> Active = true; + TbBuscarCltProv -> Active = true; + + TbProductos1 -> Active = true; + TbProductos2 -> Active = true; + */ +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ComboBox2Change(TObject *Sender) +{ + FechaCombosL = TDateTime( ComboBox1 -> ItemIndex == -1 ? 98 : ComboBox1 -> ItemIndex + 98, + ComboBox2 -> ItemIndex == -1 ? 1 : ComboBox2 -> ItemIndex + 1, 1 ); + // Ajusta Filtros + ReajustaFiltros(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ComboBox3Change(TObject *Sender) +{ + FechaCombosH = TDateTime( ComboBox1 -> ItemIndex == -1 ? 98 : ComboBox1 -> ItemIndex + 98, + ComboBox3 -> ItemIndex == -1 ? 12 : ComboBox3 -> ItemIndex + 1, + UltimoDiaPara(ComboBox1 -> ItemIndex == -1 ? 98 : ComboBox1 -> ItemIndex + 1, + ComboBox3 -> ItemIndex == -1 ? 12 : ComboBox3 -> ItemIndex + 1) ); + // Ajusta Filtros + ReajustaFiltros(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ComboBox1Change(TObject *Sender) +{ + FechaCombosL = TDateTime( ComboBox1 -> ItemIndex == -1 ? 98 : ComboBox1 -> ItemIndex + 98, + ComboBox2 -> ItemIndex == -1 ? 1 : ComboBox2 -> ItemIndex + 1, 1 ); + FechaCombosH = TDateTime( ComboBox1 -> ItemIndex == -1 ? 98 : ComboBox1 -> ItemIndex + 98, + ComboBox3 -> ItemIndex == -1 ? 12 : ComboBox3 -> ItemIndex + 1, + UltimoDiaPara(ComboBox1 -> ItemIndex == -1 ? 98 : ComboBox1 -> ItemIndex + 98, + ComboBox3 -> ItemIndex == -1 ? 12 : ComboBox3 -> ItemIndex + 1) ); + // Ajusta Filtros + ReajustaFiltros(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ReajustaFiltros(void) +{ +// MessageBox( 0, AnsiString( DateToStr(FechaCombosL ) + " y " + DateToStr( FechaCombosH ) ).c_str(), "Aplicando Filtros", MB_OK ); + TbRegVehiculos->FilterOptions = TbRegVehiculos->FilterOptions << foCaseInsensitive; + TbRegVehiculos->Filter = "([Fecha] >= '" + DateToStr(FechaCombosL) + "') AND [Fecha] < '" + DateToStr(FechaCombosH) + "'"; + if ( TbRegVehiculos -> RecordCount != 0 ) + { + TbRegVehiculos->Filtered = true; +/* + } else { + MessageBox( 0, "No existen registros\nen ese rango:\nANULANDO FILTRO", "Alerta de filtro", MB_OK ); + TbRegVehiculos->Filtered = false; +*/ + } + +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::DBGrid4Enter(TObject *Sender) +{ + if ( TbProductos1 -> RecordCount == 0 ) + TbProductos1 -> Insert(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbProductos1NewRecord(TDataSet *DataSet) +{ + TbProductos1 -> FieldByName( "Fecha" ) -> AsDateTime = TDateTime::CurrentDate(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbProductos2NewRecord(TDataSet *DataSet) +{ + TbProductos2 -> FieldByName( "Fecha" ) -> AsDateTime = TDateTime::CurrentDate(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::SpeedButton1Click(TObject *Sender) +{ + Close(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::Salir1Click(TObject *Sender) +{ + Close(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::Acercade1Click(TObject *Sender) +{ + TAboutBox * fmAboutBox; + + fmAboutBox = new TAboutBox(this); + fmAboutBox->ShowModal(); + delete fmAboutBox; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbRegVehiculosNewRecord(TDataSet *DataSet) +{ + // El registro actual, tendrá como fecha y hora, las actuales + TbRegVehiculos -> FieldByName( "Fecha" ) -> AsDateTime = TDateTime::CurrentDate(); + TbRegVehiculos -> FieldByName( "Hora" ) -> AsDateTime = TDateTime::CurrentTime(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::FormCreate(TObject *Sender) +{ + unsigned short AActual, M, D; + TDateTime FActual; + + FActual = FActual . CurrentDate(); + FActual . DecodeDate( &AActual, &M, &D ); + + FechaCombosL = TDateTime( ComboBox1 -> ItemIndex == -1 ? AActual : ComboBox1 -> ItemIndex + 98, + ComboBox2 -> ItemIndex == -1 ? 1 : ComboBox2 -> ItemIndex + 1, 1 ); + FechaCombosH = TDateTime( ComboBox1 -> ItemIndex == -1 ? AActual : ComboBox1 -> ItemIndex + 98, + ComboBox3 -> ItemIndex == -1 ? 12 : ComboBox3 -> ItemIndex + 1, + UltimoDiaPara(ComboBox1 -> ItemIndex == -1 ? AActual : ComboBox1 -> ItemIndex + 98, + ComboBox3 -> ItemIndex == -1 ? 12 : ComboBox3 -> ItemIndex + 1) ); + +} +//--------------------------------------------------------------------------- + /**************************************************************************\ +|* *| +|* CalculaAjusteDia *| +|* *| +|* Descripci¢n: *| +|* Calcula el ajuste necesario para el comienzo de los dias *| +|* y el n£mero de dias que tiene el mes en curso. *| +|* *| +|* Entradas: Retorno del Ajuste, y Dias del Mes *| +|* Mes para iniciar c lculos *| +|* *| +|* Salidas: OK Todo ha ido bien *| +|* ERROR *| +|* *| + \**************************************************************************/ +//int CalculaAjusteDias( char *Ajuste, char *DiasMes, char Mes, int Anyo ) +short int __fastcall TAplicacion::UltimoDiaPara( int Anyo, int Mes ) +{ + short int Ajuste, DiasMes; + + int dev, n, b, dsem, dia; + + + // Dias de los meses, si el a¤o no es bisiesto + char DiasMeses[12] = { 31, 00, 31, 30, 31, 30, + 31, 31, 30, 31, 30, 31 }; + + // Ajusta febrero si es bisiesto el a¤o + DiasMeses[1] = (Anyo%4 == 0) ? 29 : 28; + + +// dev = ERROR; + // Solo si la entrada es correcta + if ( Mes >= 1 && Mes <=12 ) + { +// dev = OK; + // Obtenemos que dia, ( 0 - 365 ), es el 1§ del mes + dia = 0; + for ( n = 0; n < 12 && n < (Mes-1); n++ ) + dia += DiasMeses[n]; + + n = Anyo-1988; // a¤os para bisiesto + b = (n+3)/4; // a¤os bisies. pasados + dsem = 4; // 1o. Ene 1988: Viernes + dsem += (n*365+b); // 1o. Ene actual + dsem = (dsem+dia)%7; // d¡a seleccionado + + /***/Ajuste = dsem; + /***/DiasMes = DiasMeses[ Mes - 1 ]; + } + +// return dev; + return DiasMes; +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::BusqAntClick(TObject *Sender) +{ + TbCltProv->Filtered = false; + + if ( TbBuscarCltProv -> FindPrior() == true ) + { + TbCltProv -> GotoCurrent(TbBuscarCltProv); + BusqSig -> Enabled = true; + } else { + BusqAnt -> Enabled = false; + MessageBox( 0, "Coincidencia no hayada", "¡ Buscar Anterior !", MB_OK ); + } +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BusqSigClick(TObject *Sender) +{ + TbCltProv->Filtered = false; + + if ( TbBuscarCltProv -> FindNext() == true ) + { + TbCltProv -> GotoCurrent(TbBuscarCltProv); + BusqAnt -> Enabled = true; + } else { + BusqSig -> Enabled = false; + MessageBox( 0, "Coincidencia no hayada", "¡ Buscar Anterior !", MB_OK ); + } +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BuscarFichaClick(TObject *Sender) +{ + TDlgBuscProd *DlgBuscProd; + + TbCltProv->Filtered = false; + + DlgBuscProd = new TDlgBuscProd(this); + + DlgBuscProd -> ShowModal(); + + if ( DlgBuscProd -> ModalResult == mrOk ) + { + BusqSig -> Enabled = true; + BusqAnt -> Enabled = true; + TbCltProv -> GotoCurrent(TbBuscarCltProv); + } + + delete DlgBuscProd; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbCltProvBeforeDelete(TDataSet *DataSet) +{ + switch( MessageDlg( "Atención, está apunto de eliminar\na un cliente...\n¿Realmente desea continuar?", mtWarning, TMsgDlgButtons() << mbNo << mbYes, 0 ) ) + { + case mrNo: + Abort(); + break; + default: + // Borramos todos los registros asociados... + if ( TbCltProv -> FieldByName( "CltProv" ) -> AsInteger == 1 ) + { + TbClientes -> GotoCurrent(TbCltProv); + while( TbProductos1 -> RecordCount != 0 ) + TbProductos1 -> Delete(); + while( TbProductos2 -> RecordCount != 0 ) + TbProductos2 -> Delete(); + } + break; + } +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TabSheet1Enter(TObject *Sender) +{ + TbClientes -> Refresh(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BitBtn2Click(TObject *Sender) +{ + TbVehiculos -> Delete(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbVehiculosBeforeDelete(TDataSet *DataSet) +{ + switch( MessageDlg( "Atención, está apunto de eliminar\nel registro completo para: " + TbVehiculos->FieldByName("MatriculaVehiculo")->AsString + "\n¿Realmente desea continuar?", mtWarning, TMsgDlgButtons() << mbNo << mbYes, 0 ) ) + { + case mrNo: + Abort(); + break; + default: + // Borramos todos los registros asociados... + while( TbRegVehiculos -> RecordCount != 0 ) + TbRegVehiculos -> Delete(); + break; + }; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::FichadeClientes1Click(TObject *Sender) +{ + TLAgendaCltProv *QRListForm; + + // Creamos una ficha del tipo TProductos + // Guardando la referencia en la variable TProductos + QRListForm = new TLAgendaCltProv(this); + + // Mostrarla como modal y según el valor devuelto + //InformeProductosS->ShowModal(); + QRListForm -> QuickReport -> Print();//Preview();//;//-> Print(); + + // Destruimos la ficha + delete QRListForm; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BitBtn3Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet1; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BitBtn5Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet2; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BitBtn6Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet3; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BitBtn4Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet4; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ListadodePrecios11Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet1; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ListadodePrecios21Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet4; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::AgendadeTelfono1Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet2; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::Controldellamadas1Click(TObject *Sender) +{ + PageControl1 -> ActivePage = TabSheet3; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::Button2Click(TObject *Sender) +{ + TDateTime FechaL, FechaH; + + try { + FechaL = DpFechaL2 -> Date; + FechaH = DpFechaH2 -> Date; +/* + FechaL = TDateTime( Edit1 -> Text . ToInt(), 1, 1 ); + FechaH = TDateTime( Edit2 -> Text . ToInt(), 12, 31 ); +*/ + TbProductos2->FilterOptions = TbProductos2->FilterOptions << foCaseInsensitive; + TbProductos2->Filter = "([Fecha] >= '" + DateToStr(FechaL) + "') AND [Fecha] <= '" + DateToStr(FechaH) + "'"; + if ( TbProductos2 -> RecordCount != 0 ) + TbProductos2->Filtered = true; + } catch(...) + { + // Nothing... + MessageBox( 0, "Imposible aplicar filtro en ese rango.", "¡ Alerta !", MB_OK ); + } +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::Button1Click(TObject *Sender) +{ + TDateTime FechaL, FechaH; + + try { + FechaL = DpFechaL1 -> Date; + FechaH = DpFechaH1 -> Date; +/* + FechaL = TDateTime( Edit3 -> Text . ToInt(), 1, 1 ); + FechaH = TDateTime( Edit4 -> Text . ToInt(), 12, 31 ); +*/ + TbProductos1->FilterOptions = TbProductos1->FilterOptions << foCaseInsensitive; + TbProductos1->Filter = "([Fecha] >= '" + FechaL + "') AND [Fecha] <= '" + FechaH + "'"; + if ( TbProductos1 -> RecordCount != 0 ) + TbProductos1->Filtered = true; + } catch(...) + { + // Nothing... + MessageBox( 0, "Imposible aplicar filtro en ese rango.", "¡ Alerta !", MB_OK ); + } +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::FormShow(TObject *Sender) +{ + unsigned short AActual, M, D; + + DpFechaL1 -> Date = TDateTime::CurrentDate(); + DpFechaL2 -> Date = TDateTime::CurrentDate(); + DpFechaH1 -> Date = TDateTime::CurrentDate(); + DpFechaH2 -> Date = TDateTime::CurrentDate(); +// TDateTime FActual; + +// FActual = FActual . CurrentDate(); +// FActual . DecodeDate( &AActual, &M, &D ); + + PageControl1 -> ActivePage = TabSheet1; +// Edit1 -> Text = AnsiString( AActual ); +// Edit2 -> Text = AnsiString( AActual ); + + PageControl1 -> ActivePage = TabSheet2; + PageControl1 -> ActivePage = TabSheet3; + PageControl1 -> ActivePage = TabSheet4; +// Edit3 -> Text = AnsiString( AActual ); +// Edit4 -> Text = AnsiString( AActual ); + + PageControl1 -> ActivePage = TabSheet2; + + +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::BitBtn1Click(TObject *Sender) +{ + TbVehiculos -> Insert(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbVehiculosNewRecord(TDataSet *DataSet) +{ + // Pedimos el nº de matricula, el cual no puede ser modificado mas tarde... + try { + TbVehiculos -> FieldByName( "MatriculaVehiculo" ) -> AsString = InputBox( "Generando nuevo vehiculo", "Introduzca la nueva matricula:", "" ); + } catch(...) { + Abort(); + } + if ( TbVehiculos -> FieldByName( "MatriculaVehiculo" ) -> AsString . IsEmpty() ) + Abort(); +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbCltProvNewRecord(TDataSet *DataSet) +{ +/* + try { + TbCltProv -> FieldByName( "EnlacePrecios" ) -> AsDateTime = TDateTime::CurrentDateTime(); + } catch(...) + { + Abort(); + } +*/ +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::Button3Click(TObject *Sender) +{ + if ( Edit5 -> Text . IsEmpty() ) + { + TbCltProv->Filtered = false; + } else { + TbCltProv->FilterOptions = TbCltProv->FilterOptions << foCaseInsensitive; + TbCltProv->Filter = "([Empresa] >= '" + Edit5 -> Text + "') AND [Empresa] <= '" + Edit6 -> Text + "'"; + if ( TbCltProv -> RecordCount != 0 ) + TbCltProv->Filtered = true; + } +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::MatriculaSeleccionada1Click(TObject *Sender) +{ + TQRListForm1 *QRListForm; + + // Creamos una ficha del tipo TProductos + // Guardando la referencia en la variable TProductos + QRListForm = new TQRListForm1(this); + + // Mostrarla como modal y según el valor devuelto + //InformeProductosS->ShowModal(); + QRListForm -> QuickReport1 -> Print();//Preview();//;//-> Print(); + + // Destruimos la ficha + delete QRListForm; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::Completo1Click(TObject *Sender) +{ + TQRMDForm *QRListForm; + + // Creamos una ficha del tipo TProductos + // Guardando la referencia en la variable TProductos + QRListForm = new TQRMDForm(this); + + // Mostrarla como modal y según el valor devuelto + //InformeProductosS->ShowModal(); + QRListForm -> QuickRep1 -> Print();//Preview();//;//-> Print(); + + // Destruimos la ficha + delete QRListForm; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ListadoCompleto1Click(TObject *Sender) +{ + TQRMDForm2 *QRListForm; + + // Creamos una ficha del tipo TProductos + // Guardando la referencia en la variable TProductos + QRListForm = new TQRMDForm2(this); + + // Mostrarla como modal y según el valor devuelto + //InformeProductosS->ShowModal(); + QRListForm -> QuickRep1 -> Print();//Preview();//;//-> Print(); + + // Destruimos la ficha + delete QRListForm; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TODASlasllamadas1Click(TObject *Sender) +{ + TQRMDForm1 *QRListForm; + + // Creamos una ficha del tipo TProductos + // Guardando la referencia en la variable TProductos + QRListForm = new TQRMDForm1(this); + + // Mostrarla como modal y según el valor devuelto + //InformeProductosS->ShowModal(); + QRListForm -> QuickReport -> Print();//Preview();//;//-> Print(); + + // Destruimos la ficha + delete QRListForm; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::FichaActual1Click(TObject *Sender) +{ + TQRListForm2 *QRListForm; + + // Creamos una ficha del tipo TProductos + // Guardando la referencia en la variable TProductos + QRListForm = new TQRListForm2(this); + + // Mostrarla como modal y según el valor devuelto + //InformeProductosS->ShowModal(); + QRListForm -> QuickReport -> Print();//Preview();//;//-> Print(); + + // Destruimos la ficha + delete QRListForm; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::ClienteSeleccionado1Click(TObject *Sender) +{ + TQRListForm3 *QRListForm; + + // Creamos una ficha del tipo TProductos + // Guardando la referencia en la variable TProductos + QRListForm = new TQRListForm3(this); + + // Mostrarla como modal y según el valor devuelto + //InformeProductosS->ShowModal(); + QRListForm -> QuickReport -> Print();//Preview();//;//-> Print(); + + // Destruimos la ficha + delete QRListForm; +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbProductos1BeforeInsert(TDataSet *DataSet) +{ + if ( !( TbClientes -> RecNo > 0 && TbClientes -> RecordCount > 0 ) ) + { + MessageBox( 0, "¿ No cree que debería crear,\no seleccionar un cliente,\nantes de agregar datos a NADIE?.", "¡ Atención !", MB_OK ); + Abort(); + } +} +//--------------------------------------------------------------------------- +void __fastcall TAplicacion::TbProductos2BeforeInsert(TDataSet *DataSet) +{ + if ( !( TbClientes -> RecNo > 0 && TbClientes -> RecordCount > 0 ) ) + { + MessageBox( 0, "¿ No cree que debería crear,\no seleccionar un cliente,\nantes de agregar datos a NADIE?.", "¡ Atención !", MB_OK ); + Abort(); + } +} +//--------------------------------------------------------------------------- + + +void __fastcall TAplicacion::TbVehiculosBeforeOpen(TDataSet *DataSet) +{ + if ( access(TbVehiculos->TableName.c_str(),0) != 0 ) + TbVehiculos -> CreateTable(); +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::TbRegVehiculosBeforeOpen(TDataSet *DataSet) +{ + if ( access(TbRegVehiculos->TableName.c_str(),0) != 0 ) + TbRegVehiculos -> CreateTable(); +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::TbBuscarCltProvBeforeOpen(TDataSet *DataSet) +{ + if ( access(TbCltProv->TableName.c_str(),0) != 0 ) + { + TbCltProv -> Active = false; + TbCltProv -> CreateTable(); + TbCltProv -> Active = true; + } + +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::TbClientesBeforeOpen(TDataSet *DataSet) +{ + if ( access(TbClientes->TableName.c_str(),0) != 0 ) + { + TbCltProv -> Active = false; + TbCltProv -> CreateTable(); + TbCltProv -> Active = true; + } + +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::TbCltProvBeforeOpen(TDataSet *DataSet) +{ + if ( access(TbCltProv->TableName.c_str(),0) != 0 ) + TbCltProv -> CreateTable(); + +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::TbProductos1BeforeOpen(TDataSet *DataSet) +{ + if ( access(TbProductos1->TableName.c_str(),0) != 0 ) + TbProductos1 -> CreateTable(); + +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::TbProductos2BeforeOpen(TDataSet *DataSet) +{ + if ( access(TbProductos2->TableName.c_str(),0) != 0 ) + TbProductos2 -> CreateTable(); +} +//--------------------------------------------------------------------------- + + +void __fastcall TAplicacion::DBGrid3TitleClick(TColumn *Column) +{ + switch( Column->ID ) + { + case 1: + TbCltProv -> IndexFieldNames = "CodCliente"; + break; + case 3: + TbCltProv -> IndexFieldNames = "Localidad;Empresa;PersonaContacto"; + break; + case 4: + TbCltProv -> IndexFieldNames = "PersonaContacto;Localidad;Empresa"; + break; + default: + TbCltProv -> IndexFieldNames = "Empresa;PersonaContacto"; + break; + } +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::DBGrid6TitleClick(TColumn *Column) +{ + switch( Column->ID ) + { + case 0: + TbClientes -> IndexFieldNames = "CodCliente"; + break; +/* + case 2: + TbClientes -> IndexFieldNames = "Localidad;Empresa;PersonaContacto"; + break; +*/ + case 2: + TbClientes -> IndexFieldNames = "PersonaContacto;Localidad;Empresa"; + break; + default: + TbClientes -> IndexFieldNames = "Empresa;PersonaContacto"; + break; + } +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::DBGrid5TitleClick(TColumn *Column) +{ + switch( Column->ID ) + { + case 0: + TbClientes -> IndexFieldNames = "CodCliente"; + break; +/* + case 1: + TbClientes -> IndexFieldNames = "Localidad;Empresa;PersonaContacto"; + break; +*/ + case 2: + TbClientes -> IndexFieldNames = "PersonaContacto;Localidad;Empresa"; + break; + default: + TbClientes -> IndexFieldNames = "Empresa;PersonaContacto"; + break; + } +} +//--------------------------------------------------------------------------- + +void __fastcall TAplicacion::FormClose(TObject *Sender, + TCloseAction &Action) +{ + if ( TbVehiculos -> State == dsEdit || + TbVehiculos -> State == dsInsert ) + TbVehiculos -> Post(); + if ( TbRegVehiculos -> State == dsEdit || + TbRegVehiculos -> State == dsInsert ) + TbRegVehiculos -> Post(); + if ( TbClientes -> State == dsEdit || + TbClientes -> State == dsInsert ) + TbClientes -> Post(); + if ( TbCltProv -> State == dsEdit || + TbCltProv -> State == dsInsert ) + TbCltProv -> Post(); + if ( TbProductos1 -> State == dsEdit || + TbProductos1 -> State == dsInsert ) + TbProductos1 -> Post(); + if ( TbProductos2 -> State == dsEdit || + TbProductos2 -> State == dsInsert ) + TbProductos2 -> Post(); +} +//--------------------------------------------------------------------------- + diff --git a/TAlarcon.dfm b/TAlarcon.dfm new file mode 100644 index 0000000..be6813c Binary files /dev/null and b/TAlarcon.dfm differ diff --git a/TAlarcon.h b/TAlarcon.h new file mode 100644 index 0000000..e033dc4 --- /dev/null +++ b/TAlarcon.h @@ -0,0 +1,202 @@ +//--------------------------------------------------------------------------- +#ifndef TAlarconH +#define TAlarconH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "Grids.hpp" +#include +#include +#include +#include "ElastFrm.hpp" +//--------------------------------------------------------------------------- +class TAplicacion : public TForm +{ +__published: // IDE-managed Components + TPanel *Panel1; + TStatusBar *StatusBar1; + TPageControl *PageControl1; + TTabSheet *TabSheet1; + TTabSheet *TabSheet3; + TSpeedButton *SpeedButton1; + TMainMenu *MainMenu1; + TMenuItem *Archivo1; + TMenuItem *Salir1; + TMenuItem *Ayuda1; + TMenuItem *Acercade1; + TMenuItem *Imprimir1; + TMenuItem *FichadeClientes1; + TMenuItem *ListadordeProductosClt1; + TMenuItem *Ctrldellamadas1; + + + TSpeedButton *BuscarFicha; + TComboBox *ComboBox1; + TDBGrid *DBGrid1; + TLabel *Label2; + TComboBox *ComboBox2; + TComboBox *ComboBox3; + TLabel *Label3; + TLabel *Label1; + TBevel *Bevel1; + TBevel *Bevel2; + TBitBtn *BitBtn1; + TBitBtn *BitBtn2; + TDataSource *DsVehiculos; + TTable *TbVehiculos; + TDataSource *DsRegVehiculos; + TTable *TbRegVehiculos; + TDBGrid *DBGrid2; + TDataSource *DsCltProv; + TTable *TbCltProv; + TTabSheet *TabSheet2; + TLabel *Label4; + TDBGrid *DBGrid3; + TDBMemo *DBMemo1; + TDBRadioGroup *DBRadioGroup1; + TDBGrid *DBGrid4; + TDBGrid *DBGrid5; + TDataSource *DsProductos1; + TTable *TbProductos1; + TDataSource *DsClientes; + TTable *TbClientes; + TSpeedButton *BusqAnt; + TSpeedButton *BusqSig; + TDataSource *DsBuscarCltProv; + TTable *TbBuscarCltProv; + TImage *Image1; + TBitBtn *BitBtn3; + TBitBtn *BitBtn4; + TBitBtn *BitBtn5; + TBitBtn *BitBtn6; + TMenuItem *N1; + TMenuItem *ListadodePrecios11; + TMenuItem *ListadodePrecios21; + TMenuItem *AgendadeTelfono1; + TMenuItem *Controldellamadas1; + TTabSheet *TabSheet4; + TDBGrid *DBGrid6; + TDBGrid *DBGrid7; + TDataSource *DsProductos2; + TTable *TbProductos2; + TLabel *Label5; + TLabel *Label6; + TMenuItem *ListadodeProductosClt21; + TButton *Button1; + TButton *Button2; + TMenuItem *Completo1; + TMenuItem *FichaActual1; + TMenuItem *ListadoCompleto1; + TMenuItem *ClienteSeleccionado1; + TMenuItem *TODASlasllamadas1; + TMenuItem *MatriculaSeleccionada1; + TBitBtn *BitBtn7; + TBitBtn *BitBtn8; + TBitBtn *BitBtn9; + TLabel *Label9; + TLabel *Label10; + TEdit *Edit5; + TEdit *Edit6; + TButton *Button3; + TLabel *Label11; + TBitBtn *BitBtn10; + TDateTimePicker *DpFechaL2; + TDateTimePicker *DpFechaH2; + TLabel *Label12; + TLabel *Label13; + TDateTimePicker *DpFechaL1; + TDateTimePicker *DpFechaH1; + TElasticForm *ElasticForm1; + void __fastcall ComboBox2Change(TObject *Sender); + void __fastcall ComboBox3Change(TObject *Sender); + void __fastcall ComboBox1Change(TObject *Sender); + + + + void __fastcall DBGrid4Enter(TObject *Sender); + + void __fastcall TbProductos1NewRecord(TDataSet *DataSet); + void __fastcall SpeedButton1Click(TObject *Sender); + void __fastcall Salir1Click(TObject *Sender); + void __fastcall Acercade1Click(TObject *Sender); + void __fastcall TbRegVehiculosNewRecord(TDataSet *DataSet); + void __fastcall FormCreate(TObject *Sender); + void __fastcall BusqAntClick(TObject *Sender); + void __fastcall BusqSigClick(TObject *Sender); + void __fastcall BuscarFichaClick(TObject *Sender); + void __fastcall TbCltProvBeforeDelete(TDataSet *DataSet); + void __fastcall TabSheet1Enter(TObject *Sender); + void __fastcall BitBtn2Click(TObject *Sender); + void __fastcall TbVehiculosBeforeDelete(TDataSet *DataSet); + + + void __fastcall FichadeClientes1Click(TObject *Sender); + + + + + + void __fastcall BitBtn3Click(TObject *Sender); + void __fastcall BitBtn5Click(TObject *Sender); + void __fastcall BitBtn6Click(TObject *Sender); + void __fastcall BitBtn4Click(TObject *Sender); + void __fastcall ListadodePrecios11Click(TObject *Sender); + void __fastcall ListadodePrecios21Click(TObject *Sender); + void __fastcall AgendadeTelfono1Click(TObject *Sender); + void __fastcall Controldellamadas1Click(TObject *Sender); + + void __fastcall Button2Click(TObject *Sender); + void __fastcall Button1Click(TObject *Sender); + void __fastcall FormShow(TObject *Sender); + void __fastcall BitBtn1Click(TObject *Sender); + void __fastcall TbVehiculosNewRecord(TDataSet *DataSet); + void __fastcall TbCltProvNewRecord(TDataSet *DataSet); + + + void __fastcall TbProductos2NewRecord(TDataSet *DataSet); + void __fastcall Button3Click(TObject *Sender); + + void __fastcall MatriculaSeleccionada1Click(TObject *Sender); + void __fastcall Completo1Click(TObject *Sender); + void __fastcall ListadoCompleto1Click(TObject *Sender); + void __fastcall TODASlasllamadas1Click(TObject *Sender); + + + void __fastcall FichaActual1Click(TObject *Sender); + + void __fastcall ClienteSeleccionado1Click(TObject *Sender); + + + void __fastcall TbProductos1BeforeInsert(TDataSet *DataSet); + void __fastcall TbProductos2BeforeInsert(TDataSet *DataSet); + + void __fastcall TbVehiculosBeforeOpen(TDataSet *DataSet); + void __fastcall TbRegVehiculosBeforeOpen(TDataSet *DataSet); + void __fastcall TbBuscarCltProvBeforeOpen(TDataSet *DataSet); + void __fastcall TbClientesBeforeOpen(TDataSet *DataSet); + void __fastcall TbCltProvBeforeOpen(TDataSet *DataSet); + void __fastcall TbProductos1BeforeOpen(TDataSet *DataSet); + void __fastcall TbProductos2BeforeOpen(TDataSet *DataSet); + void __fastcall DBGrid3TitleClick(TColumn *Column); + void __fastcall DBGrid6TitleClick(TColumn *Column); + void __fastcall DBGrid5TitleClick(TColumn *Column); + void __fastcall FormClose(TObject *Sender, TCloseAction &Action); +private: // User declarations + void __fastcall ReajustaFiltros(void); + short int __fastcall TAplicacion::UltimoDiaPara( int Anyo, int Mes ); +public: // User declarations + TDateTime FechaCombosL, FechaCombosH; + __fastcall TAplicacion(TComponent* Owner); +}; +//--------------------------------------------------------------------------- +extern TAplicacion *Aplicacion; +//--------------------------------------------------------------------------- +#endif diff --git a/TAlarcon.ico b/TAlarcon.ico new file mode 100644 index 0000000..0317913 Binary files /dev/null and b/TAlarcon.ico differ diff --git a/TAlarcon1.cpp b/TAlarcon1.cpp new file mode 100644 index 0000000..37f8071 --- /dev/null +++ b/TAlarcon1.cpp @@ -0,0 +1,32 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop +//--------------------------------------------------------------------------- +USEFORM("TAlarcon.cpp", Aplicacion); +USERES("TAlarcon1.res"); +USEFORM("AcercaDe.cpp", AboutBox); +USEFORM("TAlarconBusc1.cpp", DlgBuscProd); +USEFORM("TAlarconFichas.cpp", LAgendaCltProv); +USEFORM("TAlarconProductos.cpp", QRMDForm); +USEFORM("TAlarconRegLlamadas.cpp", QRMDForm1); +USEFORM("TAlarconProductos2.cpp", QRMDForm2); +USEFORM("TAlarconRegLlamadasSIMPLE.cpp", QRListForm1); +USEFORM("LSPrecios1.cpp", QRListForm2); +USEFORM("LSPrecios2.cpp", QRListForm3); +//--------------------------------------------------------------------------- +WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) +{ + try + { + Application->Initialize(); + Application->Title = "Listín Tlf // Control de llamadas // Gestión de Precios"; + Application->CreateForm(__classid(TAplicacion), &Aplicacion); + Application->Run(); + } + catch (Exception &exception) + { + Application->ShowException(&exception); + } + return 0; +} +//--------------------------------------------------------------------------- diff --git a/TAlarcon1.exe b/TAlarcon1.exe new file mode 100644 index 0000000..7d13e80 Binary files /dev/null and b/TAlarcon1.exe differ diff --git a/TAlarcon1.mak b/TAlarcon1.mak new file mode 100644 index 0000000..249b1a1 --- /dev/null +++ b/TAlarcon1.mak @@ -0,0 +1,123 @@ +# --------------------------------------------------------------------------- +VERSION = BCB.03 +# --------------------------------------------------------------------------- +!ifndef BCB +BCB = $(MAKEDIR)\.. +!endif +# --------------------------------------------------------------------------- +PROJECT = TAlarcon1.exe +OBJFILES = TAlarcon1.obj TAlarcon.obj AcercaDe.obj TAlarconBusc1.obj TAlarconFichas.obj \ + TAlarconProductos.obj TAlarconRegLlamadas.obj TAlarconProductos2.obj \ + TAlarconRegLlamadasSIMPLE.obj LSPrecios1.obj LSPrecios2.obj +RESFILES = TAlarcon1.res +RESDEPEN = $(RESFILES) TAlarcon.dfm AcercaDe.dfm TAlarconBusc1.dfm TAlarconFichas.dfm \ + TAlarconProductos.dfm TAlarconRegLlamadas.dfm TAlarconProductos2.dfm \ + TAlarconRegLlamadasSIMPLE.dfm LSPrecios1.dfm LSPrecios2.dfm +LIBFILES = +LIBRARIES = QSElFrm.lib QRPT35.lib vcldbx35.lib vcldb35.lib vclx35.lib vcl35.lib +SPARELIBS = vcl35.lib vclx35.lib vcldb35.lib vcldbx35.lib QRPT35.lib QSElFrm.lib +PACKAGES = VCLX35.bpi VCL35.bpi VCLDB35.bpi VCLDBX35.bpi bcbsmp35.bpi dclocx35.bpi \ + QRPT35.bpi TEEUI35.bpi TEEDB35.bpi TEE35.bpi ibsmp35.bpi NMFAST35.bpi \ + INETDB35.bpi INET35.bpi JDsoft.bpi +PATHASM = .; +PATHCPP = .; +PATHPAS = .; +PATHRC = .; +DEBUGLIBPATH = $(BCB)\lib\debug +RELEASELIBPATH = $(BCB)\lib\release +DEFFILE = +# --------------------------------------------------------------------------- +CFLAG1 = -O2 -O-S -Hc -w -Ve -r- -k -y -v -vi- -c -b- -w-par -w-inl -Vx +CFLAG2 = -I$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl -H=$(BCB)\lib\vcld.csm +CFLAG3 = -4 +PFLAGS = -U..\componentes\cdopping;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib;$(DEBUGLIBPATH) \ + -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE \ + -I$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl -$Y -$W -$O- -v -JPHNV -M +RFLAGS = -i$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl +AFLAGS = /i$(BCB)\projects /i$(BCB)\include /i$(BCB)\include\vcl /mx /w2 /zd +LFLAGS = -L..\componentes\cdopping;$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib;$(DEBUGLIBPATH) \ + -aa -Tpe -x -v +IFLAGS = +LINKER = ilink32 +# --------------------------------------------------------------------------- +ALLOBJ = c0w32.obj sysinit.obj $(OBJFILES) +ALLRES = $(RESFILES) +ALLLIB = $(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib +# --------------------------------------------------------------------------- +.autodepend + +!ifdef IDEOPTIONS + +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=1 +Build=0 +Debug=1 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=3082 +CodePage=1252 + +[Version Info Keys] +CompanyName=JD soft. +FileDescription=Listín Tlf. // Control llamadas // Gestion de Precios +FileVersion=1.0.1.0 +InternalName=TAlarcon +LegalCopyright=JD soft 1994-1998 +LegalTrademarks=JD soft +OriginalFilename=TAlarcon1 +ProductName=Transportes Alarcon (Gestión Varios) +ProductVersion=1.0.0.0 +Comments=e-mail: Jose-David.Guillen@cs.us.es + +[HistoryLists\hlIncludePath] +Count=1 +Item0=$(BCB)\projects;$(BCB)\include;$(BCB)\include\vcl + +[HistoryLists\hlLibraryPath] +Count=1 +Item0=$(BCB)\projects;$(BCB)\lib\obj;$(BCB)\lib + +[HistoryLists\hlUnitAliases] +Count=1 +Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE + +[Debugging] +DebugSourceDirs= + +[Parameters] +RunParams= +HostApplication= + +!endif + +$(PROJECT): $(OBJFILES) $(RESDEPEN) $(DEFFILE) + $(BCB)\BIN\$(LINKER) @&&! + $(LFLAGS) + + $(ALLOBJ), + + $(PROJECT),, + + $(ALLLIB), + + $(DEFFILE), + + $(ALLRES) +! + +.pas.hpp: + $(BCB)\BIN\dcc32 $(PFLAGS) { $** } + +.pas.obj: + $(BCB)\BIN\dcc32 $(PFLAGS) { $** } + +.cpp.obj: + $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $* + +.c.obj: + $(BCB)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $** + +.rc.res: + $(BCB)\BIN\brcc32 $(RFLAGS) $< +#----------------------------------------------------------------------------- diff --git a/TAlarcon1.res b/TAlarcon1.res new file mode 100644 index 0000000..27de279 Binary files /dev/null and b/TAlarcon1.res differ diff --git a/TAlarconBusc1.cpp b/TAlarconBusc1.cpp new file mode 100644 index 0000000..cadcc51 --- /dev/null +++ b/TAlarconBusc1.cpp @@ -0,0 +1,86 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "TAlarconBusc1.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------- +#pragma link "Grids" +#pragma resource "*.dfm" +TDlgBuscProd *DlgBuscProd; +//--------------------------------------------------------------------- +__fastcall TDlgBuscProd::TDlgBuscProd(TComponent* AOwner) + : TForm(AOwner) +{ +} +//--------------------------------------------------------------------- +void __fastcall TDlgBuscProd::ComboBox1Change(TObject *Sender) +{ + // Make the field we're locating in the leftmost field. + Aplicacion -> TbBuscarCltProv->FieldByName(ComboBox1->Text)->Index = 0; +/* + // In order to use FindNearest, we have to be indexed based on the field + // we're doing the find in. If we're using Locate, it doesn't matter what + // the current index is, so we will set it to company, which is the default + // in the Customer form. + + if (ComboBox1->Text == "CustNo") +*/ + Aplicacion -> TbBuscarCltProv->IndexName = ""; + +/* + else + DM2->CustLookup->IndexName = "ByCompany"; +*/ + + Edit1->SetFocus(); + Edit1->Text = ""; +} +//--------------------------------------------------------------------------- +void __fastcall TDlgBuscProd::Edit1Change(TObject *Sender) +{ + AnsiString BuscarEsto; + + BuscarEsto = Edit1->Text; + + { // Some non-indexed field. + if ( //ComboBox1->Text != "Nombre del Producto" && + BuscarEsto == "" ) + BuscarEsto = "0"; + + Set flags; + flags << loCaseInsensitive << loPartialKey; + // Possibly apply the filter so we see only records matching this value. + bool found; + found = Aplicacion -> TbBuscarCltProv->Locate(ComboBox1->Text, + BuscarEsto, + flags); + + if ( found ) + { + AnsiString BuscarCota; + BuscarCota = BuscarEsto + "Z"; + + Aplicacion -> TbBuscarCltProv->FilterOptions = Aplicacion -> TbBuscarCltProv->FilterOptions << foCaseInsensitive; + + Aplicacion -> TbBuscarCltProv->Filtered = true; + Aplicacion -> TbBuscarCltProv->Filter = "([" + ComboBox1->Text + "] >= '" + BuscarEsto + "') AND [" + ComboBox1->Text + "] < '" + BuscarCota + "'"; + } + else + Aplicacion -> TbBuscarCltProv->Filtered = false; + } + + Aplicacion -> TbBuscarCltProv->Refresh(); + +} +//--------------------------------------------------------------------------- +void __fastcall TDlgBuscProd::DBGrid1DblClick(TObject *Sender) +{ + ModalResult = mrOk; +} +//--------------------------------------------------------------------------- + + + + + diff --git a/TAlarconBusc1.dfm b/TAlarconBusc1.dfm new file mode 100644 index 0000000..634cf2f Binary files /dev/null and b/TAlarconBusc1.dfm differ diff --git a/TAlarconBusc1.h b/TAlarconBusc1.h new file mode 100644 index 0000000..82cd8dc --- /dev/null +++ b/TAlarconBusc1.h @@ -0,0 +1,43 @@ +//---------------------------------------------------------------------------- +#ifndef TAlarconBusc1H +#define TAlarconBusc1H +//---------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "Grids.hpp" +#include +#include +//---------------------------------------------------------------------------- +class TDlgBuscProd : public TForm +{ +__published: + TButton *OKBtn; + TButton *CancelBtn; + TBevel *Bevel1; + TDBGrid *DBGrid1; + TComboBox *ComboBox1; + TEdit *Edit1; + TLabel *Label1; + TLabel *Label2; + void __fastcall ComboBox1Change(TObject *Sender); + void __fastcall Edit1Change(TObject *Sender); + + void __fastcall DBGrid1DblClick(TObject *Sender); + +private: +public: + virtual __fastcall TDlgBuscProd(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern TDlgBuscProd *DlgBuscProd; +//---------------------------------------------------------------------------- +#endif diff --git a/TAlarconFichas.cpp b/TAlarconFichas.cpp new file mode 100644 index 0000000..99812e5 --- /dev/null +++ b/TAlarconFichas.cpp @@ -0,0 +1,21 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "TAlarconFichas.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------- +#pragma resource "*.dfm" +TLAgendaCltProv *LAgendaCltProv; +//--------------------------------------------------------------------- +// QuickReport simple list +// - Connect a datasource to the QuickReport component +// - Put QRDBText components on the Detail band +//--------------------------------------------------------------------- +__fastcall TLAgendaCltProv::TLAgendaCltProv(TComponent* AOwner) + : TForm(AOwner) +{ +} +//--------------------------------------------------------------------- + + diff --git a/TAlarconFichas.dfm b/TAlarconFichas.dfm new file mode 100644 index 0000000..3ef347a Binary files /dev/null and b/TAlarconFichas.dfm differ diff --git a/TAlarconFichas.h b/TAlarconFichas.h new file mode 100644 index 0000000..451ffd9 --- /dev/null +++ b/TAlarconFichas.h @@ -0,0 +1,48 @@ +//---------------------------------------------------------------------------- +#ifndef TAlarconFichasH +#define TAlarconFichasH +//---------------------------------------------------------------------------- +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TLAgendaCltProv : public TForm +{ +__published: + TQuickRep *QuickReport; + TQRBand *Title; + TQRBand *PageHeader; + TQRBand *Detail; + TQRSysData *PageNumber; + TQRBand *PageFooter; + TQRSysData *QRSysData1; + TQRDBText *QRDBText1; + TQRDBText *QRDBText2; + TQRDBText *QRDBText3; + TQRDBText *QRDBText4; + TQRLabel *QRLabel1; + TQRDBText *QRDBText5; + TQRLabel *QRLabel2; + TQRDBText *QRDBText6; + TQRDBText *QRDBText7; + + TQRDBText *QRDBText8; +private: +public: + virtual __fastcall TLAgendaCltProv(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern TLAgendaCltProv *LAgendaCltProv; +//---------------------------------------------------------------------------- +#endif diff --git a/TAlarconProductos.cpp b/TAlarconProductos.cpp new file mode 100644 index 0000000..5e7dec8 --- /dev/null +++ b/TAlarconProductos.cpp @@ -0,0 +1,21 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "TAlarconProductos.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------- +#pragma resource "*.dfm" +TQRMDForm *QRMDForm; +//--------------------------------------------------------------------- +// QuickReport Master/detail +// - Connect a datasource to the QuickReport component +// - Connect a datasource to the DetailLink component +// - Make sure a master/detail relationship is set up between the two tables +// - Put QRDBText components on the bands +//--------------------------------------------------------------------- +__fastcall TQRMDForm::TQRMDForm(TComponent* AOwner) + : TForm(AOwner) +{ +} +//--------------------------------------------------------------------- diff --git a/TAlarconProductos.dfm b/TAlarconProductos.dfm new file mode 100644 index 0000000..7305c98 Binary files /dev/null and b/TAlarconProductos.dfm differ diff --git a/TAlarconProductos.h b/TAlarconProductos.h new file mode 100644 index 0000000..4a03cc5 --- /dev/null +++ b/TAlarconProductos.h @@ -0,0 +1,75 @@ +//---------------------------------------------------------------------------- +#ifndef TAlarconProductosH +#define TAlarconProductosH +//---------------------------------------------------------------------------- +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TQRMDForm : public TForm +{ +__published: + TQuickRep *QuickReport; + TQRBand *PageHeader; + TQRSysData *PageNumber; + TQRShape *QRShape7; + TQRBand *TitleBand1; + TQRSysData *QRSysData1; + TQRBand *ColumnHeaderBand1; + TQRDBText *QRDBText1; + TQRDBText *QRDBText2; + TQRDBText *QRDBText3; + TQRLabel *QRLabel1; + TQRLabel *QRLabel14; + TQRDBText *QRDBText4; + TQRDBText *QRDBText6; + TQRDBText *QRDBText5; + TQRDBText *QRDBText7; + TQRShape *QRShape1; + TQuickRep *QuickRep1; + TQRBand *QRBand1; + TQRSysData *QRSysData2; + TQRBand *QRBand2; + TQRSysData *QRSysData3; + TQRSubDetail *QRSubDetail1; + TQRExpr *QRExpr11; + TQRExpr *QRExpr12; + TQRExpr *QRExpr13; + TQRExpr *QRExpr14; + TQRExpr *QRExpr15; + TQRBand *QRBand4; + TQRLabel *QRLabel4; + TQRLabel *QRLabel5; + TQRLabel *QRLabel11; + TQRLabel *QRLabel12; + TQRLabel *QRLabel13; + TQRDBText *QRDBText15; + TQRDBText *QRDBText16; + TQRDBText *QRDBText17; + TQRLabel *QRLabel6; + TQRLabel *QRLabel7; + TQRDBText *QRDBText18; + TQRDBText *QRDBText19; + TQRDBText *QRDBText20; + TQRDBText *QRDBText21; + TQRShape *QRShape2; + TQRDBText *QRDBText8; +private: +public: + virtual __fastcall TQRMDForm(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern TQRMDForm *QRMDForm; +//---------------------------------------------------------------------------- +#endif diff --git a/TAlarconProductos2.cpp b/TAlarconProductos2.cpp new file mode 100644 index 0000000..7f77669 --- /dev/null +++ b/TAlarconProductos2.cpp @@ -0,0 +1,16 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "TAlarconProductos2.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------------- +#pragma link "TAlarconProductos" +#pragma resource "*.dfm" +TQRMDForm2 *QRMDForm2; +//--------------------------------------------------------------------------- +__fastcall TQRMDForm2::TQRMDForm2(TComponent* Owner) + : TQRMDForm(Owner) +{ +} +//--------------------------------------------------------------------------- diff --git a/TAlarconProductos2.dfm b/TAlarconProductos2.dfm new file mode 100644 index 0000000..59e688e Binary files /dev/null and b/TAlarconProductos2.dfm differ diff --git a/TAlarconProductos2.h b/TAlarconProductos2.h new file mode 100644 index 0000000..17c221a --- /dev/null +++ b/TAlarconProductos2.h @@ -0,0 +1,25 @@ +//--------------------------------------------------------------------------- +#ifndef TAlarconProductos2H +#define TAlarconProductos2H +//--------------------------------------------------------------------------- +#include +#include +#include +#include + +#include +#include "TAlarconProductos.h" +#include +#include +//--------------------------------------------------------------------------- +class TQRMDForm2 : public TQRMDForm +{ +__published: // IDE-managed Components +private: // User declarations +public: // User declarations + __fastcall TQRMDForm2(TComponent* Owner); +}; +//--------------------------------------------------------------------------- +extern TQRMDForm2 *QRMDForm2; +//--------------------------------------------------------------------------- +#endif diff --git a/TAlarconRegLlamadas.cpp b/TAlarconRegLlamadas.cpp new file mode 100644 index 0000000..fbff039 --- /dev/null +++ b/TAlarconRegLlamadas.cpp @@ -0,0 +1,21 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "TAlarconRegLlamadas.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------- +#pragma resource "*.dfm" +TQRMDForm1 *QRMDForm1; +//--------------------------------------------------------------------- +// QuickReport Master/detail +// - Connect a datasource to the QuickReport component +// - Connect a datasource to the DetailLink component +// - Make sure a master/detail relationship is set up between the two tables +// - Put QRDBText components on the bands +//--------------------------------------------------------------------- +__fastcall TQRMDForm1::TQRMDForm1(TComponent* AOwner) + : TForm(AOwner) +{ +} +//--------------------------------------------------------------------- diff --git a/TAlarconRegLlamadas.dfm b/TAlarconRegLlamadas.dfm new file mode 100644 index 0000000..bfea366 Binary files /dev/null and b/TAlarconRegLlamadas.dfm differ diff --git a/TAlarconRegLlamadas.h b/TAlarconRegLlamadas.h new file mode 100644 index 0000000..f39ee12 --- /dev/null +++ b/TAlarconRegLlamadas.h @@ -0,0 +1,51 @@ +//---------------------------------------------------------------------------- +#ifndef TAlarconRegLlamadasH +#define TAlarconRegLlamadasH +//---------------------------------------------------------------------------- +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TQRMDForm1 : public TForm +{ +__published: + TQuickRep *QuickReport; + TQRBand *Title; + TQRSysData *QRSysData1; + TQRBand *PageFooterBand1; + TQRSysData *QRSysData2; + TQRBand *QRBand1; + TQRLabel *QRLabel5; + TQRLabel *QRLabel8; + TQRLabel *QRLabel9; + TQRLabel *QRLabel10; + TQRSubDetail *QRSubDetail1; + TQRExpr *QRExpr5; + TQRExpr *QRExpr6; + TQRExpr *QRExpr7; + TQRExpr *QRExpr8; + TQRLabel *QRLabel1; + TQRDBText *QRDBText2; + TQRDBText *QRDBText5; + TQRLabel *QRLabel2; + TQRDBText *QRDBText6; + TQRShape *QRShape1; +private: +public: + virtual __fastcall TQRMDForm1(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern TQRMDForm1 *QRMDForm1; +//---------------------------------------------------------------------------- +#endif diff --git a/TAlarconRegLlamadasSIMPLE.cpp b/TAlarconRegLlamadasSIMPLE.cpp new file mode 100644 index 0000000..9e35fe5 --- /dev/null +++ b/TAlarconRegLlamadasSIMPLE.cpp @@ -0,0 +1,19 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "TAlarconRegLlamadasSIMPLE.h" +#include "TAlarcon.h" +//--------------------------------------------------------------------- +#pragma resource "*.dfm" +TQRListForm1 *QRListForm1; +//--------------------------------------------------------------------- +// QuickReport simple list +// - Connect a datasource to the QuickReport component +// - Put QRDBText components on the Detail band +//--------------------------------------------------------------------- +__fastcall TQRListForm1::TQRListForm1(TComponent* AOwner) + : TForm(AOwner) +{ +} +//--------------------------------------------------------------------- diff --git a/TAlarconRegLlamadasSIMPLE.dfm b/TAlarconRegLlamadasSIMPLE.dfm new file mode 100644 index 0000000..865fb86 Binary files /dev/null and b/TAlarconRegLlamadasSIMPLE.dfm differ diff --git a/TAlarconRegLlamadasSIMPLE.h b/TAlarconRegLlamadasSIMPLE.h new file mode 100644 index 0000000..6ca0af4 --- /dev/null +++ b/TAlarconRegLlamadasSIMPLE.h @@ -0,0 +1,50 @@ +//---------------------------------------------------------------------------- +#ifndef TAlarconRegLlamadasSIMPLEH +#define TAlarconRegLlamadasSIMPLEH +//---------------------------------------------------------------------------- +#include +#include + +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TQRListForm1 : public TForm +{ +__published: + TQRBand *Title; + TQRSysData *QRSysData1; + TQuickRep *QuickReport1; + TQRBand *ColumnHeaderBand1; + TQRLabel *QRLabel1; + TQRLabel *QRLabel2; + TQRLabel *QRLabel3; + TQRLabel *QRLabel6; + TQRBand *DetailBand1; + TQRExpr *QRExpr1; + TQRExpr *QRExpr2; + TQRExpr *QRExpr3; + TQRExpr *QRExpr4; + TQRBand *PageFooterBand1; + TQRSysData *QRSysData2; + TQRLabel *QRLabel4; + TQRDBText *QRDBText1; + TQRDBText *QRDBText4; + TQRLabel *QRLabel7; + TQRDBText *QRDBText3; +private: +public: + virtual __fastcall TQRListForm1(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern TQRListForm1 *QRListForm1; +//---------------------------------------------------------------------------- +#endif diff --git a/VehiculosRegistrados.PX b/VehiculosRegistrados.PX new file mode 100644 index 0000000..a25ed44 Binary files /dev/null and b/VehiculosRegistrados.PX differ diff --git a/VehiculosRegistrados.XG0 b/VehiculosRegistrados.XG0 new file mode 100644 index 0000000..dfe39d8 Binary files /dev/null and b/VehiculosRegistrados.XG0 differ diff --git a/VehiculosRegistrados.YG0 b/VehiculosRegistrados.YG0 new file mode 100644 index 0000000..974e958 Binary files /dev/null and b/VehiculosRegistrados.YG0 differ diff --git a/VehiculosRegistrados.db b/VehiculosRegistrados.db new file mode 100644 index 0000000..3a3c9d7 Binary files /dev/null and b/VehiculosRegistrados.db differ diff --git a/cleanup.bat b/cleanup.bat new file mode 100644 index 0000000..5e4c8b5 --- /dev/null +++ b/cleanup.bat @@ -0,0 +1,3 @@ +del *.~* +del *.tds +del *.obj