First commit ~0,10

README.md

@@ -0,0 +1,9 @@
+#DebeHaber 
+ 
+ 
+*~0,10* 
+ 
+ToDo: wwtcf? 
+ 
+ 
+![screenshot](/DebeHaber.png "Screenshot") 

debehaber.log.txt

@@ -0,0 +1,12 @@
+02-feb-2003
+	16:46 	OK!
+	16:32	Voy a implementar un formulario para imprimir el DHS activo	
+
+	15:24	Creo que ya esta todo terminado...
+	14:49	Adaptaci<63>n finalizada. [Implementando tabla DebeHaber]
+	14:13	Acabada la readaptaci<63>n del Cut_&_Paste, comienzo la prueba
+		(Cambiado de mySQL a Tablas Paradox)
+	13:25	Comienzo dise<73>o de la mini-aplicacion
+		(Empiezo copiando m<>dulos de otras aplicaciones:
+			:: About 	  >_de_> 	mysql_TPV
+			:: FichaPersonas >_de_> 	mysql_TPV

src/FichaPersonas.cpp

@@ -0,0 +1,300 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "FichaPersonas.h"
+#include "splash.h"
+#include "QR_dhs.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TFichaPersonal *FichaPersonal;
+//---------------------------------------------------------------------------
+__fastcall TFichaPersonal::TFichaPersonal(TComponent* Owner)
+        : TForm(Owner)
+{
+ desde->Date=Now();
+ hasta->Date=Now();
+ Tb_dhs->Active=true;
+ setDHS_Filter(0);
+
+ Tb_FPersonas->Active=true;
+ PageControl1->ActivePage = TabSheet1;      // Solapa Ficha>>General
+ PageControl2->ActivePage = Tab_FPersonas;  // Solapa Fichas
+ 
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::tipoDocumentoChange(TObject *Sender)
+{
+ if ( updatingDB ) return;
+
+ if ( Tb_FPersonas->State!=dsEdit || Tb_FPersonas->State!=dsInsert )
+   Tb_FPersonas->Edit();
+
+ Tb_FPersonas->FieldByName("Dni_Nif_Pasaporte")->AsInteger = tipoDocumento->ItemIndex;
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::Tb_FPersonasNewRecord(TDataSet *DataSet)
+{
+  Tb_FPersonas->FieldByName("Dni_Nif_Pasaporte")->AsInteger = 0;
+  Tb_FPersonas->FieldByName("FAlta")->AsDateTime = Date();
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::Tb_FPersonasBeforePost(TDataSet *DataSet)
+{
+  Tb_FPersonas->FieldByName("FModif")->AsDateTime = Date();
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::Ds_FPersonasStateChange(TObject *Sender)
+{
+ btPost->Visible = ( Tb_FPersonas->State==dsEdit ||Tb_FPersonas->State==dsInsert );
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::newPersonClick(TObject *Sender)
+{
+  if ( !Tb_FPersonas->Active )
+        Tb_FPersonas->Active = true;
+
+  PageControl2->ActivePage=Tab_FPersonas;
+  PageControl1->ActivePage=TabSheet1;
+  Tb_FPersonas->Insert();
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::btPostClick(TObject *Sender)
+{
+ if ( Tb_FPersonas->State == dsEdit || Tb_FPersonas->State == dsInsert )
+         Tb_FPersonas->Post();
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::Ds_FPersonasDataChange(TObject *Sender,
+      TField *Field)
+{
+ if ( !needReloadGroup && ! carpeta.IsEmpty() )
+ {
+    tipoDocumento->ItemIndex=Tb_FPersonas->FieldByName("Dni_Nif_Pasaporte")->AsInteger;
+
+    if ( CorrectaCC( Tb_FPersonas->FieldByName("Banco_Entidad")->AsInteger,
+                     Tb_FPersonas->FieldByName("Banco_Sucursal")->AsInteger,
+                     Tb_FPersonas->FieldByName("Banco_DC")->AsInteger,
+                     Tb_FPersonas->FieldByName("Banco_NumCuenta")->AsString )
+       )
+    {
+        DBEdit24->Color = clWindow;
+        DBEdit25->Color = clWindow;
+        DBEdit26->Color = clWindow;
+        DBEdit27->Color = clWindow;
+    }else{
+        DBEdit24->Color = clRed;
+        DBEdit25->Color = clRed;
+        DBEdit26->Color = clRed;
+        DBEdit27->Color = clRed;
+    }
+ }
+ // Sumamos el total de debe/haber/saldo...
+ RefrescarTotales(0);
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::NextField_Tab1(TObject *Sender, char &Key)
+{
+  // Saltamos al siguiente campo de la lista...
+  if ( Key == VK_RETURN )
+  {
+   TDBEdit *Siguiente[] = { DBEdit4, DBEdit1, DBEdit5, DBEdit2, DBEdit3,
+                            DBEdit6, DBEdit7, DBEdit8, DBEdit9, DBEdit10,
+                            DBEdit11, DBEdit12, DBEdit13, DBEdit14, DBEdit15,
+                            DBEdit1, NULL };
+
+   for ( int i=0; Siguiente[i]!=NULL; i++ )
+   {
+     if ( Sender == Siguiente[i] )
+     {
+/*
+       if ( TbListado->State == dsEdit || TbListado->State == dsInsert )
+         TbListado->Post();
+*/
+       Siguiente[i+1]->SetFocus();
+       break;
+     }
+   }
+  }
+}
+//---------------------------------------------------------------------------
+
+#define Digito(Num, Dig) ( (Num-( (Num/(int)Power(Dig,10)) * (int)Power(Dig,10) )) / ( Dig==1 ? 1 : (int)Power(Dig-1,10)  ) )
+
+    // Comprobamos que la CC sea correcta
+bool __fastcall TFichaPersonal::CorrectaCC( int Banco, int Oficina, int DC, AnsiString NumCuenta )
+    {
+       int Suma1, Suma2, R1, R2;
+       bool dev;
+       char *NumCC;
+
+       dev = false;
+       if ( NumCuenta.Length() == 10 )
+       {
+         NumCC = NumCuenta.c_str();
+         Suma1 = Digito(Oficina, 1)* 6 +
+                 Digito(Oficina, 2)* 3 +
+                 Digito(Oficina, 3)* 7 +
+                 Digito(Oficina, 4)* 9 +
+                 Digito(Banco,   1)*10 +
+                 Digito(Banco,   2)* 5 +
+                 Digito(Banco,   3)* 8 +
+                 Digito(Banco,   4)* 4 ;
+         Suma2 = (NumCC[9]-'0')*6  +
+                 (NumCC[8]-'0')*3  +
+                 (NumCC[7]-'0')*7  +
+                 (NumCC[6]-'0')*9  +
+                 (NumCC[5]-'0')*10 +
+                 (NumCC[4]-'0')*5  +
+                 (NumCC[3]-'0')*8  +
+                 (NumCC[2]-'0')*4  +
+                 (NumCC[1]-'0')*2  +
+                 (NumCC[0]-'0')*1  ;
+
+         R1 = 11-(Suma1%11); if ( R1==11 ) R1 = 0; if ( R1==10 ) R1 = 1;
+         R2 = 11-(Suma2%11); if ( R2==11 ) R2 = 0; if ( R2==10 ) R2 = 1;
+
+          if ( Digito(DC,2)== R1 && Digito(DC,1)== R2 )
+          dev = true;
+       }
+     return dev;
+    };
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::NextField_Tab2(TObject *Sender, char &Key)
+{
+  // Saltamos al siguiente campo de la lista...
+  if ( Key == VK_RETURN )
+  {
+   TDBEdit *Siguiente[] = { DBEdit21, DBEdit22,
+                            DBEdit24, DBEdit26, DBEdit25, DBEdit27,
+                            DBEdit23, DBEdit17, DBEdit18, DBEdit19, DBEdit20,
+                            DBEdit21, NULL };
+
+   for ( int i=0; Siguiente[i]!=NULL; i++ )
+   {
+     if ( Sender == Siguiente[i] )
+     {
+/*
+       if ( TbListado->State == dsEdit || TbListado->State == dsInsert )
+         TbListado->Post();
+*/
+       Siguiente[i+1]->SetFocus();
+       break;
+     }
+   }
+  }
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::SpeedButton2Click(TObject *Sender)
+{
+  PageControl2->ActivePage=Tab_FPersonas;
+  Tb_FPersonas->First();
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::SpeedButton6Click(TObject *Sender)
+{
+  PageControl2->ActivePage=Tab_FPersonas;
+  Tb_FPersonas->Last();
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::SpeedButton3Click(TObject *Sender)
+{
+  PageControl2->ActivePage=Tab_FPersonas;
+  Tb_FPersonas->Prior();
+}
+//---------------------------------------------------------------------------
+void __fastcall TFichaPersonal::SpeedButton7Click(TObject *Sender)
+{
+  PageControl2->ActivePage=Tab_FPersonas;
+  Tb_FPersonas->Next();
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::FormClose(TObject *Sender,
+      TCloseAction &Action)
+{
+  splash->Close();        
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::SpeedButton5Click(TObject *Sender)
+{
+  Tb_FPersonas->Locate("ID", Edit1->Text, TLocateOptions() );
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::Edit1KeyPress(TObject *Sender, char &Key)
+{
+  if ( Key == VK_RETURN )SpeedButton5Click(0);
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::Tb_dhsCalcFields(TDataSet *DataSet)
+{
+  Tb_dhs->FieldByName("saldo")->AsCurrency = Tb_dhs->FieldByName("haber")->AsCurrency -
+                                                Tb_dhs->FieldByName("debe")->AsCurrency;        
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::setDHS_Filter(TObject *Sender)
+{
+  CheckBox1->Checked=true;
+  Tb_dhs->Filter = "[Fecha]>='"+desde->Date.DateString()+"' AND [Fecha]<='"+hasta->Date.DateString()+"'";
+  Tb_dhs->Filtered=true;
+  RefrescarTotales(0);
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::Tb_dhsNewRecord(TDataSet *DataSet)
+{
+ Tb_dhs->FieldByName("Fecha")->AsDateTime = Now();        
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::CheckBox1Click(TObject *Sender)
+{
+ Tb_dhs->Filtered=CheckBox1->Checked;        
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::RefrescarTotales(TObject *Sender)
+{
+ Currency debe, haber;
+
+ debe=0.0;
+ haber=0.0;
+
+ Tb_dhs->DisableControls();
+ Tb_dhs->First();
+ while(!Tb_dhs->Eof)
+ {
+  debe+=Tb_dhs->FieldByName("Debe")->AsCurrency;
+  haber+=Tb_dhs->FieldByName("Haber")->AsCurrency;
+  Tb_dhs->Next();
+ }
+ Tb_dhs->EnableControls();
+
+ StatusBar1->Panels->Items[0]->Text = "Debe: "+FormatCurr("###,###,###.#0",debe)+
+                                      "  Haber: "+FormatCurr("###,###,###.#0",haber)+
+                                      "  Saldo: "+FormatCurr("###,###,###.#0",haber-debe);
+
+
+}
+//---------------------------------------------------------------------------
+
+void __fastcall TFichaPersonal::SpeedButton4Click(TObject *Sender)
+{
+  TQRdhs *R;
+  R=new TQRdhs(this);
+  R->QuickRep1->DataSet = Tb_dhs;
+  R->QRPeriodo->Caption= "Periodo del " + desde->Date.DateString() + " al " + hasta->Date.DateString();
+  R->QRCon->Caption= "ID: " + Tb_FPersonas->FieldByName("Id")->AsString +
+                     "  Contacto: " + Tb_FPersonas->FieldByName("Nombre")->AsString + " " + Tb_FPersonas->FieldByName("Apellidos")->AsString;
+  R->QREmp->Caption= "Empresa: " + Tb_FPersonas->FieldByName("Empresa")->AsString;
+  R->QuickRep1->Preview();
+  delete R;
+}
+//---------------------------------------------------------------------------
+

src/FichaPersonas.h

@@ -0,0 +1,175 @@
+//---------------------------------------------------------------------------
+
+#ifndef FichaPersonasH
+#define FichaPersonasH
+//---------------------------------------------------------------------------
+#include <Math.hpp>
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <Buttons.hpp>
+#include <ComCtrls.hpp>
+#include <ExtCtrls.hpp>
+#include <DBGrids.hpp>
+#include <Grids.hpp>
+#include <Db.hpp>
+#include <DBCtrls.hpp>
+#include <Mask.hpp>
+#include <DBTables.hpp>
+#include <ImgList.hpp>
+//---------------------------------------------------------------------------
+class TFichaPersonal : public TForm
+{
+__published:	// IDE-managed Components
+        TStatusBar *StatusBar1;
+        TPanel *Panel1;
+        TSpeedButton *btPost;
+        TSpeedButton *SpeedButton3;
+        TSpeedButton *SpeedButton4;
+        TSpeedButton *newPerson;
+        TSpeedButton *SpeedButton6;
+        TSpeedButton *SpeedButton7;
+        TBevel *Bevel4;
+        TBevel *Bevel5;
+        TPageControl *PageControl2;
+        TTabSheet *Tab_LPersonas;
+        TTabSheet *Tab_FPersonas;
+        TPageControl *PageControl1;
+        TTabSheet *TabSheet1;
+        TBevel *Bevel1;
+        TTabSheet *TabSheet2;
+        TBevel *Bevel2;
+        TTabSheet *TabSheet3;
+        TBevel *Bevel3;
+        TDataSource *Ds_FPersonas;
+        TDBMemo *DBMemo1;
+        TLabel *Label2;
+        TImage *Image1;
+        TDBEdit *DBEdit1;
+        TLabel *Label3;
+        TLabel *Label4;
+        TLabel *Label6;
+        TDBEdit *DBEdit2;
+        TDBEdit *DBEdit3;
+        TDBEdit *DBEdit4;
+        TDBEdit *DBEdit5;
+        TLabel *Label7;
+        TLabel *Label8;
+        TDBEdit *DBEdit6;
+        TLabel *Label9;
+        TDBEdit *DBEdit7;
+        TLabel *Label10;
+        TDBEdit *DBEdit8;
+        TLabel *Label11;
+        TDBEdit *DBEdit9;
+        TSpeedButton *busqPersonas;
+        TLabel *Label12;
+        TDBEdit *DBEdit10;
+        TDBEdit *DBEdit11;
+        TDBEdit *DBEdit12;
+        TDBEdit *DBEdit13;
+        TLabel *Label13;
+        TDBEdit *DBEdit14;
+        TLabel *Label14;
+        TDBEdit *DBEdit15;
+        TSpeedButton *SpeedButton1;
+        TSpeedButton *SpeedButton8;
+        TLabel *Label15;
+        TComboBox *tipoDocumento;
+        TLabel *Label16;
+        TLabel *Label17;
+        TDBText *DBText1;
+        TLabel *Label18;
+        TLabel *Label19;
+        TLabel *Label21;
+        TLabel *Label22;
+        TLabel *Label23;
+        TLabel *Label24;
+        TSpeedButton *SpeedButton9;
+        TDBEdit *DBEdit17;
+        TDBEdit *DBEdit18;
+        TDBEdit *DBEdit19;
+        TDBEdit *DBEdit20;
+        TDBEdit *DBEdit21;
+        TDBEdit *DBEdit22;
+        TDBEdit *DBEdit23;
+        TDBEdit *DBEdit24;
+        TDBEdit *DBEdit25;
+        TDBEdit *DBEdit26;
+        TDBEdit *DBEdit27;
+        TLabel *Label20;
+        TLabel *Label25;
+        TLabel *Label26;
+        TLabel *Label27;
+        TBevel *Bevel6;
+        TSpeedButton *SpeedButton10;
+        TDBText *DBText2;
+        TTable *Tb_FPersonas;
+        TDBText *DBText3;
+        TDBText *DBText4;
+        TDBEdit *DBEdit16;
+        TDBEdit *DBEdit28;
+        TDBEdit *DBEdit29;
+        TLabel *Label1;
+        TLabel *Label5;
+        TLabel *Label28;
+        TLabel *Label31;
+        TDBGrid *DBGrid1;
+        TEdit *Edit1;
+        TSpeedButton *SpeedButton5;
+        TDataSource *DS_dhs;
+        TTable *Tb_dhs;
+        TAutoIncField *Tb_dhsID;
+        TIntegerField *Tb_dhsIDC;
+        TDateField *Tb_dhsFecha;
+        TStringField *Tb_dhsConcepto;
+        TCurrencyField *Tb_dhsDebe;
+        TCurrencyField *Tb_dhsHaber;
+        TCurrencyField *Tb_dhssaldo;
+        TDateTimePicker *desde;
+        TDateTimePicker *hasta;
+        TSpeedButton *SpeedButton2;
+        TSpeedButton *SpeedButton11;
+        TBevel *Bevel7;
+        TCheckBox *CheckBox1;
+        TButton *Button1;
+        TImageList *ImageList1;
+        void __fastcall tipoDocumentoChange(TObject *Sender);
+        void __fastcall Tb_FPersonasNewRecord(TDataSet *DataSet);
+        void __fastcall Tb_FPersonasBeforePost(TDataSet *DataSet);
+        void __fastcall Ds_FPersonasStateChange(TObject *Sender);
+        void __fastcall newPersonClick(TObject *Sender);
+        void __fastcall btPostClick(TObject *Sender);
+        void __fastcall Ds_FPersonasDataChange(TObject *Sender,
+          TField *Field);
+        void __fastcall NextField_Tab1(TObject *Sender, char &Key);
+        void __fastcall NextField_Tab2(TObject *Sender, char &Key);
+        void __fastcall SpeedButton2Click(TObject *Sender);
+        void __fastcall SpeedButton6Click(TObject *Sender);
+        void __fastcall SpeedButton3Click(TObject *Sender);
+        void __fastcall SpeedButton7Click(TObject *Sender);
+        void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
+        void __fastcall SpeedButton5Click(TObject *Sender);
+        void __fastcall Edit1KeyPress(TObject *Sender, char &Key);
+        void __fastcall Tb_dhsCalcFields(TDataSet *DataSet);
+        void __fastcall setDHS_Filter(TObject *Sender);
+        void __fastcall Tb_dhsNewRecord(TDataSet *DataSet);
+        void __fastcall CheckBox1Click(TObject *Sender);
+        void __fastcall RefrescarTotales(TObject *Sender);
+        void __fastcall SpeedButton4Click(TObject *Sender);
+private:	// User declarations
+        AnsiString carpeta;
+        bool updatingDB;
+        AnsiString condicion, busqueda;
+        bool __fastcall sincronizarFicha( int idPersona );
+        bool __fastcall CorrectaCC( int Banco, int Oficina, int DC, AnsiString NumCuenta );
+public:		// User declarations
+        bool  needReloadGroup;
+        __fastcall TFichaPersonal(TComponent* Owner);
+        void __fastcall setCarpeta(AnsiString carpeta);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TFichaPersonal *FichaPersonal;
+//---------------------------------------------------------------------------
+#endif

src/QR_dhs.cpp

@@ -0,0 +1,15 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+#pragma hdrstop
+
+#include "QR_dhs.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+TQRdhs *QRdhs;
+//---------------------------------------------------------------------------
+__fastcall TQRdhs::TQRdhs(TComponent* Owner)
+    : TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------

src/QR_dhs.h

@@ -0,0 +1,53 @@
+//---------------------------------------------------------------------------
+#ifndef QR_dhsH
+#define QR_dhsH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Graphics.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <QuickRpt.hpp>
+#include <QRCtrls.hpp>
+#include <Db.hpp>
+#include <DBTables.hpp>
+#include <ExtCtrls.hpp>
+#include <Qrctrls.hpp>
+//---------------------------------------------------------------------------
+class TQRdhs : public TForm
+{
+__published:	// IDE-managed Components
+    TQuickRep *QuickRep1;
+    TQRBand *PageFooterBand1;
+    TQRExpr *QRExpr1;
+    TQRBand *ColumnHeaderBand1;
+    TQRBand *DetailBand1;
+    TQRLabel *QRLabel1;
+    TQRExpr *QRExpr2;
+    TQRLabel *QRLabel2;
+    TQRExpr *QRExpr3;
+    TQRLabel *QRLabel3;
+    TQRExpr *QRExpr4;
+    TQRLabel *QRLabel4;
+    TQRExpr *QRExpr5;
+        TQRBand *TitleBand1;
+        TQRLabel *QRLabel5;
+        TQRLabel *QRPeriodo;
+        TQRLabel *QRCon;
+        TQRLabel *QREmp;
+        TQRLabel *QRLabel6;
+        TQRExpr *QRExpr6;
+        TQRLabel *QRLabel7;
+        TQRLabel *QRLabel8;
+        TQRExpr *QRExpr7;
+        TQRExpr *QRExpr8;
+        TQRExpr *QRExpr9;
+        TQRShape *QRShape1;
+private:	// User declarations
+public:		// User declarations
+    __fastcall TQRdhs(TComponent* Owner);
+};
+//---------------------------------------------------------------------------
+extern PACKAGE TQRdhs *QRdhs;
+//---------------------------------------------------------------------------
+#endif

src/dhs.bpr

@@ -0,0 +1,172 @@
+<?xml version='1.0' encoding='utf-8' ?>
+<!-- C++Builder XML Project -->
+<PROJECT>
+  <MACROS>
+    <VERSION value="BCB.05.03"/>
+    <PROJECT value="..\bin\dhs.exe"/>
+    <OBJFILES value="..\obj\dhs.obj ..\obj\splash.obj ..\obj\FichaPersonas.obj ..\obj\QR_dhs.obj"/>
+    <RESFILES value="dhs.res"/>
+    <IDLFILES value=""/>
+    <IDLGENFILES value=""/>
+    <DEFFILE value=""/>
+    <RESDEPEN value="$(RESFILES) splash.dfm FichaPersonas.dfm QR_dhs.dfm"/>
+    <LIBFILES value=""/>
+    <LIBRARIES value="VCLX50.lib QRPT50.lib JDsoft.lib ZMySqlCB5.lib ZCOMMONCB5.lib 
+      ZDbwareCB5.lib VCLBDE50.lib VCLDB50.lib VCL50.lib"/>
+    <SPARELIBS value="VCL50.lib VCLDB50.lib VCLBDE50.lib ZDbwareCB5.lib ZCOMMONCB5.lib 
+      ZMySqlCB5.lib JDsoft.lib QRPT50.lib VCLX50.lib"/>
+    <PACKAGES value="VCL50.bpi VCLX50.bpi VCLDB50.bpi QRPT50.bpi VCLBDE50.bpi VCLIE50.bpi 
+      INETDB50.bpi INET50.bpi NMFAST50.bpi dclocx50.bpi CabForCB.bpi 
+      CoolPack.bpi JDsoft.bpi PhantomPack.bpi VCLIB50.bpi VCLMID50.bpi 
+      WEBMID50.bpi VCLDBX50.bpi TEEQR50.bpi asgc5.bpi RAS_Tools.bpi 
+      ZCommonCB5.bpi ZDbwareCB5.bpi ZMySqlCB5.bpi ZDb2SqlCB5.bpi ZIbSqlCB5.bpi 
+      ZMsSqlCB5.bpi ZOraSqlCB5.bpi ZPgSqlCB5.bpi TEEUI50.bpi TEEDB50.bpi 
+      TEE50.bpi DSS50.bpi bcbsmp50.bpi VCLADO50.bpi ibsmp50.bpi bcbie50.bpi 
+      bcb2kaxserver50.bpi"/>
+    <PATHCPP value=".;"/>
+    <PATHPAS value=".;"/>
+    <PATHRC value=".;"/>
+    <PATHASM value=".;"/>
+    <DEBUGLIBPATH value="$(BCB)\lib\debug"/>
+    <RELEASELIBPATH value="$(BCB)\lib\release"/>
+    <LINKER value="tlink32"/>
+    <USERDEFINES value="_DEBUG"/>
+    <SYSDEFINES value="NO_STRICT"/>
+    <MAINSOURCE value="dhs.cpp"/>
+    <INCLUDEPATH value="..\..\VCLs\include;$(BCB)\include;$(BCB)\include\vcl"/>
+    <LIBPATH value="..\..\VCLs\include;$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\obj"/>
+    <WARNINGS value="-w-par"/>
+  </MACROS>
+  <OPTIONS>
+    <IDLCFLAGS value="-I..\..\VCLs\include -I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp 
+      -D_DEBUG Builder\VCLs\include win9x Builder\VCLs\zeos_mySQL\dbase 
+      Builder\VCLs\zeos_mySQL\common -boa"/>
+    <CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c 
+      -tW -tWM"/>
+    <PFLAGS value="-N2..\obj -N0..\obj -$Y+ -$W -$O- -v -JPHNE -M"/>
+    <RFLAGS value=""/>
+    <AFLAGS value="/mx /w2 /zi"/>
+    <LFLAGS value="-I..\obj -D&quot;&quot; -aa -Tpe -x -Gn -v"/>
+  </OPTIONS>
+  <LINKER>
+    <ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
+    <ALLRES value="$(RESFILES)"/>
+    <ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
+  </LINKER>
+  <IDEOPTIONS>
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=1
+MajorVer=1
+MinorVer=0
+Release=0
+Build=2
+Debug=0
+PreRelease=1
+Special=0
+Private=0
+DLL=0
+Locale=3082
+CodePage=1252
+
+[Version Info Keys]
+CompanyName=www.infdj.com
+FileDescription=
+FileVersion=1.0.0.2
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+
+[Excluded Packages]
+C:\Mis documentos\Fuentes de Programacion\C++ Builder\CAP\LM2000_vcl\LM2000_vcl.bpl=Funciones para el Manejo del LM2000
+
+[HistoryLists\hlIncludePath]
+Count=15
+Item0=..\..\VCLs\include;$(BCB)\include;$(BCB)\include\vcl
+Item1=..\..\..\C++ Builder\VCLs\include;$(BCB)\include;$(BCB)\include\vcl
+Item2=..\..\..\TPV win9x;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item3=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item4=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item5=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item6=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item7=..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item8=..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item9=..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item10=..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item11=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item12=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl;C:\Mis documentos\Fuentes de Programacion\C++ Builder\VCLs\zeos_mySQL\common
+Item13=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\include;$(BCB)\include\vcl
+Item14=$(BCB)\include;$(BCB)\include\vcl
+
+[HistoryLists\hlLibraryPath]
+Count=17
+Item0=..\..\VCLs\include;$(BCB)\Projects\Lib;..\..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\obj
+Item1=..\..\..\C++ Builder\VCLs\include;$(BCB)\Projects\Lib;..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\obj
+Item2=..\..\..\TPV win9x;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
+Item3=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
+Item4=..\..;..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
+Item5=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
+Item6=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common;..\..\obj
+Item7=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item8=..\QR_Facturas;..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item9=..\..\..\..\C++ Builder\VCLs\include;..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item10=..\..\..\..\C++ Builder\VCLs\include;..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item11=..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item12=..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\common
+Item13=..\..;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
+Item14=..\..\..\TPV win9x;..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
+Item15=..\..\..\..\C++ Builder\VCLs\zeos_mySQL\dbase;$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
+Item16=$(BCB)\Projects\Lib;..\..\..\..\C++ Builder\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib
+
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=$(BCB)\source\vcl
+Item1=$(BCB)\source\vcl;..\..\bin\
+
+[HistoryLists\hlConditionals]
+Count=1
+Item0=_DEBUG
+
+[HistoryLists\hlIntOutputDir]
+Count=4
+Item0=..\obj
+Item1=..\..\obj
+Item2=C:\Mis documentos\Fuentes de Programacion\TPVweb!\TPV win9x\obj
+Item3=..\..\obj\
+
+[HistoryLists\hlFinalOutputDir]
+Count=3
+Item0=..\bin\
+Item1=..\..\bin\
+Item2=..\..\bin
+
+[Debugging]
+DebugSourceDirs=$(BCB)\source\vcl
+
+[Parameters]
+RunParams=
+HostApplication=
+RemoteHost=
+RemotePath=
+RemoteDebug=0
+
+[Compiler]
+ShowInfoMsgs=0
+LinkDebugVcl=1
+LinkCGLIB=0
+
+[CORBA]
+AddServerUnit=1
+AddClientUnit=1
+PrecompiledHeaders=1
+
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+  </IDEOPTIONS>
+</PROJECT>

src/dhs.cpp

@@ -0,0 +1,45 @@
+//---------------------------------------------------------------------------
+#include <vcl.h>
+
+#pragma hdrstop
+#include "splash.h"
+#include "FichaPersonas.h"
+USERES("dhs.res");
+USEFORM("splash.cpp", splash);
+USEFORM("FichaPersonas.cpp", FichaPersonal);
+USEFORM("QR_dhs.cpp", QRdhs);
+//---------------------------------------------------------------------------
+WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
+{
+        try
+        {
+                 Application->Initialize();
+                 Application->CreateForm(__classid(Tsplash), &splash);
+                 Application->CreateForm(__classid(TFichaPersonal), &FichaPersonal);
+                 splash->Hide();
+                 FichaPersonal->Show();
+                 Application->ShowMainForm = false;
+                 Application->Run();
+        }
+        catch (Exception &exception)
+        {
+                 Application->ShowException(&exception);
+        }
+        return 0;
+}
+//---------------------------------------------------------------------------
+/*
+                 Application->Initialize();
+                 Application->CreateForm(__classid(Tsplash), &splash);
+                 Application->Title = "";
+                 msgSQL->msg("Inicializando...", "Conectando a la base de datos");
+                 Application->CreateForm(__classid(TFichaPersonal), &FichaPersonal);
+                 msgSQL->Hide();
+                 main->Show();
+                 Application->ShowMainForm = false;
+                 Application->Run();
+*/
+
+
+
+

src/splash.cpp

@@ -0,0 +1,34 @@
+//---------------------------------------------------------------------------
+
+#include <vcl.h>
+#pragma hdrstop
+
+#include "splash.h"
+//---------------------------------------------------------------------------
+#pragma package(smart_init)
+#pragma resource "*.dfm"
+Tsplash *splash;
+//---------------------------------------------------------------------------
+__fastcall Tsplash::Tsplash(TComponent* Owner)
+        : TForm(Owner)
+{
+}
+//---------------------------------------------------------------------------
+void __fastcall Tsplash::FormShow(TObject *Sender)
+{
+     Animate1->Active = true;
+}
+//---------------------------------------------------------------------------
+void __fastcall Tsplash::FormHide(TObject *Sender)
+{
+     Animate1->Active = false;
+}
+//---------------------------------------------------------------------------
+void __fastcall Tsplash::msg( AnsiString caption, AnsiString msg )
+{
+ this->caption->Caption = caption;
+ message->Caption = msg;
+ Show();
+ Update();
+}
+//---------------------------------------------------------------------------

src/splash.dfm

@@ -0,0 +1,65 @@
+object splash: Tsplash
+  Left = 586
+  Top = 117
+  BorderIcons = []
+  BorderStyle = bsNone
+  Caption = 'splash'
+  ClientHeight = 121
+  ClientWidth = 337
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  FormStyle = fsStayOnTop
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnHide = FormHide
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Bevel1: TBevel
+    Left = 0
+    Top = 0
+    Width = 337
+    Height = 121
+    Align = alClient
+    Style = bsRaised
+  end
+  object caption: TLabel
+    Left = 8
+    Top = 16
+    Width = 246
+    Height = 20
+    Caption = 'Enviando Petici<63>n al servidor...'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = 'MS Sans Serif'
+    Font.Style = [fsBold]
+    ParentFont = False
+  end
+  object message: TLabel
+    Left = 8
+    Top = 40
+    Width = 183
+    Height = 16
+    Caption = 'Enviando Petici<63>n al servidor...'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -13
+    Font.Name = 'MS Sans Serif'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Animate1: TAnimate
+    Left = 224
+    Top = 80
+    Width = 104
+    Height = 34
+    Active = False
+    FileName = 'systm\1.avi'
+    StopFrame = 45
+  end
+end

src/splash.h

@@ -0,0 +1,31 @@
+//---------------------------------------------------------------------------
+
+#ifndef splashH
+#define splashH
+//---------------------------------------------------------------------------
+#include <Classes.hpp>
+#include <Controls.hpp>
+#include <StdCtrls.hpp>
+#include <Forms.hpp>
+#include <ComCtrls.hpp>
+#include <ExtCtrls.hpp>
+//---------------------------------------------------------------------------
+class Tsplash : public TForm
+{
+__published:	// IDE-managed Components
+        TAnimate *Animate1;
+        TBevel *Bevel1;
+        TLabel *caption;
+        TLabel *message;
+        void __fastcall FormShow(TObject *Sender);
+        void __fastcall FormHide(TObject *Sender);
+private:	// User declarations
+public:		// User declarations
+        __fastcall Tsplash(TComponent* Owner);
+        void __fastcall msg( AnsiString caption, AnsiString msg );
+
+};
+//---------------------------------------------------------------------------
+extern PACKAGE Tsplash *splash;
+//---------------------------------------------------------------------------
+#endif