commit c2fa8177d0c2c07447d32aa8872f75e40c32d91c Author: jdg Date: Sun Sep 12 20:58:27 2021 +0200 First commit ~0,10 diff --git a/README.md b/README.md new file mode 100644 index 0000000..22555fc --- /dev/null +++ b/README.md @@ -0,0 +1,9 @@ +#DebeHaber + + +*~0,10* + +ToDo: wwtcf? + + +![screenshot](/DebeHaber.png "Screenshot") diff --git a/bin/datos/Personas.DB b/bin/datos/Personas.DB new file mode 100644 index 0000000..8ec35be Binary files /dev/null and b/bin/datos/Personas.DB differ diff --git a/bin/datos/Personas.MB b/bin/datos/Personas.MB new file mode 100644 index 0000000..5a8b7d0 Binary files /dev/null and b/bin/datos/Personas.MB differ diff --git a/bin/datos/Personas.PX b/bin/datos/Personas.PX new file mode 100644 index 0000000..1056532 Binary files /dev/null and b/bin/datos/Personas.PX differ diff --git a/bin/datos/dhs.PX b/bin/datos/dhs.PX new file mode 100644 index 0000000..cd72f4d Binary files /dev/null and b/bin/datos/dhs.PX differ diff --git a/bin/datos/dhs.XG0 b/bin/datos/dhs.XG0 new file mode 100644 index 0000000..84958c6 Binary files /dev/null and b/bin/datos/dhs.XG0 differ diff --git a/bin/datos/dhs.YG0 b/bin/datos/dhs.YG0 new file mode 100644 index 0000000..8b50856 Binary files /dev/null and b/bin/datos/dhs.YG0 differ diff --git a/bin/datos/dhs.db b/bin/datos/dhs.db new file mode 100644 index 0000000..ca4ee22 Binary files /dev/null and b/bin/datos/dhs.db differ diff --git a/bin/dhs-ins.exe b/bin/dhs-ins.exe new file mode 100644 index 0000000..9482cea Binary files /dev/null and b/bin/dhs-ins.exe differ diff --git a/bin/dhs.exe b/bin/dhs.exe new file mode 100644 index 0000000..8c8174c Binary files /dev/null and b/bin/dhs.exe differ diff --git a/bin/systm/1.AVI b/bin/systm/1.AVI new file mode 100644 index 0000000..02d672d Binary files /dev/null and b/bin/systm/1.AVI differ diff --git a/debehaber.log.txt b/debehaber.log.txt new file mode 100644 index 0000000..4729414 --- /dev/null +++ b/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ón finalizada. [Implementando tabla DebeHaber] + 14:13 Acabada la readaptación del Cut_&_Paste, comienzo la prueba + (Cambiado de mySQL a Tablas Paradox) + 13:25 Comienzo diseño de la mini-aplicacion + (Empiezo copiando módulos de otras aplicaciones: + :: About >_de_> mysql_TPV + :: FichaPersonas >_de_> mysql_TPV \ No newline at end of file diff --git a/src/FichaPersonas.cpp b/src/FichaPersonas.cpp new file mode 100644 index 0000000..edd471a --- /dev/null +++ b/src/FichaPersonas.cpp @@ -0,0 +1,300 @@ +//--------------------------------------------------------------------------- +#include +#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; +} +//--------------------------------------------------------------------------- + diff --git a/src/FichaPersonas.dfm b/src/FichaPersonas.dfm new file mode 100644 index 0000000..f526c3d --- /dev/null +++ b/src/FichaPersonas.dfm @@ -0,0 +1,1353 @@ +object FichaPersonal: TFichaPersonal + Left = 188 + Top = 128 + BorderIcons = [biSystemMenu] + BorderStyle = bsSingle + Caption = 'Dhs' + ClientHeight = 453 + ClientWidth = 632 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + Icon.Data = { + 0000010001002020100001000400E80200001600000028000000200000004000 + 0000010004000000000080020000000000000000000000000000000000000000 + 0000000080000080000000808000800000008000800080800000C0C0C0008080 + 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000877777777780077777780077777777708FFF + FFFFF7800FFFFF7800FFFFFFFF708FFFFFFFF7800FFFFF7800FFFFFFFF708FFF + FFFF78000FFFFF78000FFFFFFF708FFFFFFFF7887FFFFFF7887FFFFFFF708FFF + FFFFFF77FFFFFFFF77FFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FF2 + 22222222FFF2222222222222FF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFF + FFFFFFFFFFFFFFFFFFFFFFFFFF708FF22222222FFFF2222222222222FF708FFF + FFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FF2 + 22222222FFF22222222222FFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FFF + FFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF708FF7 + 272F2F27272F2727FFFFFFFFFF708FF27272F27272F2F272FFFFFFFFFF708FFF + FFFFFFFFFFFFFFFFFFFFFFFFFF708FFFFFFFFFFFFFFFFFFFFFFFFFFFFF7008FF + FFFFFFFFFFFFFFFFFFFFFFFFFF80008888888888888888888888888888000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFF801008000010080000100800001008000030 + 0C00000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000080000001C0000003FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF} + OldCreateOrder = False + Position = poScreenCenter + OnClose = FormClose + PixelsPerInch = 96 + TextHeight = 13 + object StatusBar1: TStatusBar + Left = 0 + Top = 434 + Width = 632 + Height = 19 + Panels = < + item + Width = 380 + end + item + Width = 100 + end + item + Width = 150 + end> + SimplePanel = False + SizeGrip = False + end + object Panel1: TPanel + Left = 0 + Top = 0 + Width = 632 + Height = 33 + Align = alTop + BorderStyle = bsSingle + TabOrder = 1 + object btPost: TSpeedButton + Left = 602 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + 06020000424D0602000000000000760000002800000028000000140000000100 + 0400000000009001000000000000000000001000000000000000000000000000 + 80000080000000808000800000008000800080800000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 3333333333333333333333333333333333333333333333333333333333333333 + 33333333333333333333333333333FFFFFFFFFFFF33333380000000000008333 + 33338888888888883F333330CC08CCF770CC03333338F38F333338F38F333330 + CC08CCF770CC03333338F38F333338F38F333330CC07887770CC03333338F38F + FFFFF8338F333330CC60000006CC03333338F338888883338F333330CCCCCCCC + CCCC03333338F33FFFFFFFF38F333330C6000000006C03333338F3888888883F + 8F333330C0FFFFFFFF0C03333338F8F33333338F8F333330C0FFFFFFFF0C0333 + 3338F8F33333338F8F333330C0FFFFFFFF0C03333338F8F33333338F8F333330 + C0FFFFFFFF0C03333338F8F33333338F8F33333000FFFFFFFF0003333338F8F3 + 3333338F8F333330C0FFFFFFFF0C03333338F8FFFFFFFF8F8333333800000000 + 0000833333338888888888883333333333333333333333333333333333333333 + 3333333333333333333333333333333333333333333333333333333333333333 + 33333333333333333333} + NumGlyphs = 2 + Visible = False + OnClick = btPostClick + end + object SpeedButton3: TSpeedButton + Left = 480 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + DE000000424DDE0000000000000076000000280000000D0000000D0000000100 + 0400000000006800000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 + 7000777777077777700077777007777770007777060777777000777066000007 + 7000770666666607700070666666660770007706666666077000777066000007 + 7000777706077777700077777007777770007777770777777000777777777777 + 7000} + OnClick = SpeedButton3Click + end + object SpeedButton4: TSpeedButton + Left = 504 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + 4E010000424D4E01000000000000760000002800000012000000120000000100 + 040000000000D800000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD + DDDDDD000000DDD00000000000DDDD000000DD0777777777070DDD000000D000 + 000000000070DD000000D0777777FFF77000DD000000D077777799977070DD00 + 0000D0000000000000770D000000D0777777777707070D000000DD0000000000 + 70700D000000DDD0FFFFFFFF07070D000000DDDD0FCCCCCF0000DD000000DDDD + 0FFFFFFFF0DDDD000000DDDDD0FCCCCCF0DDDD000000DDDDD0FFFFFFFF0DDD00 + 0000DDDDDD000000000DDD000000DDDDDDDDDDDDDDDDDD000000DDDDDDDDDDDD + DDDDDD000000DDDDDDDDDDDDDDDDDD000000} + OnClick = SpeedButton4Click + end + object newPerson: TSpeedButton + Left = 528 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + 42010000424D4201000000000000760000002800000011000000110000000100 + 040000000000CC00000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 + 777770000000777770000000000770000000777770FFFFFFFF07700000007777 + 70F000000F0770000000777770FFFFFFFF0770000000777770F000000F077000 + 0000777770FFFFFFFF07700000007F778FF000000F077000000078778BFFFFFF + FF0770000000777F8F8000F00007700000007888FB7FFFF0F077700000007FB8 + BFBFBFB0077770000000778B8B8B000077777000000078B78F78B77777777000 + 00007B778B778F7777777000000077778F777777777770000000777777777777 + 777770000000} + OnClick = newPersonClick + end + object SpeedButton6: TSpeedButton + Left = 576 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + DE000000424DDE0000000000000076000000280000000D0000000D0000000100 + 0400000000006800000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 + 7000777777777777700077770000077770007777066607777000777706660777 + 7000777706660777700070000666000070007706666666077000777066666077 + 7000777706660777700077777060777770007777770777777000777777777777 + 7000} + OnClick = SpeedButton6Click + end + object SpeedButton7: TSpeedButton + Left = 552 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + DE000000424DDE0000000000000076000000280000000D0000000D0000000100 + 0400000000006800000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 + 7000777777077777700077777700777770007777770607777000770000066077 + 7000770666666607700077066666666070007706666666077000770000066077 + 7000777777060777700077777700777770007777770777777000777777777777 + 7000} + OnClick = SpeedButton7Click + end + object Bevel4: TBevel + Left = 440 + Top = 1 + Width = 9 + Height = 24 + Shape = bsRightLine + end + object Bevel5: TBevel + Left = 256 + Top = 1 + Width = 9 + Height = 24 + Shape = bsLeftLine + end + object Label31: TLabel + Left = 5 + Top = 8 + Width = 14 + Height = 13 + Caption = 'ID:' + end + object SpeedButton5: TSpeedButton + Left = 72 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + DE000000424DDE0000000000000076000000280000000D0000000D0000000100 + 0400000000006800000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 + 7000777777777777700077777707777770007777706077777000777706660777 + 7000777066666077700077066666660770007000066600007000777706660777 + 7000777706660777700077770666077770007777000007777000777777777777 + 7000} + OnClick = SpeedButton5Click + end + object SpeedButton2: TSpeedButton + Left = 456 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + DE000000424DDE0000000000000076000000280000000D0000000D0000000100 + 0400000000006800000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 + 7000777777777777700077777707777770007777706077777000777706660777 + 7000777066666077700077066666660770007000066600007000777706660777 + 7000777706660777700077770666077770007777000007777000777777777777 + 7000} + OnClick = SpeedButton2Click + end + object Edit1: TEdit + Left = 24 + Top = 3 + Width = 49 + Height = 21 + TabOrder = 0 + OnKeyPress = Edit1KeyPress + end + end + object PageControl2: TPageControl + Left = 0 + Top = 33 + Width = 632 + Height = 401 + ActivePage = Tab_LPersonas + Align = alClient + Images = ImageList1 + MultiLine = True + Style = tsFlatButtons + TabOrder = 2 + TabWidth = 24 + object Tab_LPersonas: TTabSheet + object DBText4: TDBText + Left = 16 + Top = 6 + Width = 65 + Height = 17 + DataField = 'ID' + DataSource = Ds_FPersonas + Font.Charset = DEFAULT_CHARSET + Font.Color = clMaroon + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object Label1: TLabel + Left = 72 + Top = 8 + Width = 46 + Height = 13 + Caption = 'Contacto:' + end + object Label5: TLabel + Left = 72 + Top = 28 + Width = 44 + Height = 13 + Caption = 'Empresa:' + end + object Label28: TLabel + Left = 0 + Top = 8 + Width = 14 + Height = 13 + Caption = 'ID:' + end + object SpeedButton11: TSpeedButton + Left = 600 + Top = 2 + Width = 23 + Height = 22 + Glyph.Data = { + DE000000424DDE0000000000000076000000280000000D0000000D0000000100 + 0400000000006800000000000000000000001000000010000000000000000000 + BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 + 7000777777777777700077777707777770007777706077777000777706660777 + 7000777066666077700077066666660770007000066600007000777706660777 + 7000777706660777700077770666077770007777000007777000777777777777 + 7000} + OnClick = setDHS_Filter + end + object Bevel7: TBevel + Left = 440 + Top = 1 + Width = 9 + Height = 40 + Shape = bsRightLine + end + object DBEdit16: TDBEdit + Left = 120 + Top = 8 + Width = 145 + Height = 21 + DataField = 'Nombre' + DataSource = Ds_FPersonas + TabOrder = 0 + OnKeyPress = NextField_Tab1 + end + object DBEdit28: TDBEdit + Left = 264 + Top = 8 + Width = 161 + Height = 21 + DataField = 'Apellidos' + DataSource = Ds_FPersonas + TabOrder = 1 + OnKeyPress = NextField_Tab1 + end + object DBEdit29: TDBEdit + Left = 120 + Top = 24 + Width = 305 + Height = 21 + DataField = 'Empresa' + DataSource = Ds_FPersonas + TabOrder = 2 + OnKeyPress = NextField_Tab1 + end + object DBGrid1: TDBGrid + Left = 0 + Top = 47 + Width = 624 + Height = 322 + Align = alBottom + DataSource = DS_dhs + TabOrder = 3 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'MS Sans Serif' + TitleFont.Style = [] + Columns = < + item + Expanded = False + FieldName = 'Fecha' + Width = 65 + Visible = True + end + item + Expanded = False + FieldName = 'Concepto' + Width = 271 + Visible = True + end + item + Expanded = False + FieldName = 'Debe' + Width = 79 + Visible = True + end + item + Expanded = False + FieldName = 'Haber' + Visible = True + end + item + Expanded = False + FieldName = 'saldo' + Visible = True + end> + end + object desde: TDateTimePicker + Left = 456 + Top = 2 + Width = 73 + Height = 21 + CalAlignment = dtaLeft + Date = 37654.624250463 + Time = 37654.624250463 + DateFormat = dfShort + DateMode = dmComboBox + Kind = dtkDate + ParseInput = False + TabOrder = 4 + end + object hasta: TDateTimePicker + Left = 528 + Top = 2 + Width = 73 + Height = 21 + CalAlignment = dtaLeft + Date = 37654.624250463 + Time = 37654.624250463 + DateFormat = dfShort + DateMode = dmComboBox + Kind = dtkDate + ParseInput = False + TabOrder = 5 + end + object CheckBox1: TCheckBox + Left = 456 + Top = 24 + Width = 97 + Height = 17 + Caption = 'Activar Filtro' + TabOrder = 6 + OnClick = CheckBox1Click + end + object Button1: TButton + Left = 536 + Top = 24 + Width = 89 + Height = 17 + Caption = 'Refrescar Total' + TabOrder = 7 + OnClick = RefrescarTotales + end + end + object Tab_FPersonas: TTabSheet + ImageIndex = 1 + object PageControl1: TPageControl + Left = 0 + Top = 0 + Width = 624 + Height = 369 + ActivePage = TabSheet1 + Align = alClient + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + Style = tsFlatButtons + TabOrder = 0 + object TabSheet1: TTabSheet + Caption = '&General' + object Bevel1: TBevel + Left = 0 + Top = 0 + Width = 616 + Height = 335 + Align = alClient + end + object Image1: TImage + Left = 8 + Top = 8 + Width = 105 + Height = 113 + end + object Label3: TLabel + Left = 120 + Top = 80 + Width = 58 + Height = 16 + Caption = 'Empresa:' + end + object Label4: TLabel + Left = 120 + Top = 8 + Width = 16 + Height = 16 + Caption = 'ID:' + end + object Label6: TLabel + Left = 120 + Top = 48 + Width = 56 + Height = 16 + Caption = 'Contacto:' + end + object Label7: TLabel + Left = 120 + Top = 104 + Width = 56 + Height = 16 + Caption = 'Actividad' + end + object Label8: TLabel + Left = 8 + Top = 136 + Width = 60 + Height = 16 + Caption = 'Dirección:' + end + object Label9: TLabel + Left = 8 + Top = 160 + Width = 64 + Height = 16 + Caption = 'Población:' + end + object Label10: TLabel + Left = 252 + Top = 160 + Width = 59 + Height = 16 + Caption = 'Provincia:' + end + object Label11: TLabel + Left = 488 + Top = 160 + Width = 21 + Height = 16 + Caption = 'CP:' + end + object busqPersonas: TSpeedButton + Left = 586 + Top = 152 + Width = 23 + Height = 22 + Flat = True + Glyph.Data = { + 66010000424D6601000000000000760000002800000014000000140000000100 + 040000000000F000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 3333333300003333333333333333333300003333373333333333333300003333 + 07733333333333330000333000773333333333330000330F0007733333333333 + 00003330F000777777733333000033330F000000007733330000333330F00788 + 87077333000033333300788FF870773300003333330788888F87073300003333 + 3308888888F80733000033333307888888F807330000333333078FF888880733 + 0000333333777FF8888773330000333333307788887033330000333333330777 + 7703333300003333333337000733333300003333333333333333333300003333 + 33333333333333330000} + end + object Label12: TLabel + Left = 8 + Top = 192 + Width = 64 + Height = 16 + Caption = 'Teléfonos:' + end + object Label13: TLabel + Left = 8 + Top = 232 + Width = 36 + Height = 16 + Caption = 'eMail:' + end + object Label14: TLabel + Left = 296 + Top = 232 + Width = 17 + Height = 16 + Caption = 'url:' + end + object SpeedButton1: TSpeedButton + Left = 585 + Top = 224 + Width = 23 + Height = 22 + Flat = True + Glyph.Data = { + 36050000424D3605000000000000360400002800000010000000100000000100 + 0800000000000001000000000000000000000001000000000000000000000000 + 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFD00000000 + 00000000FDFDFDFDFDFDFDF8FFFBFBFBFBFB030300FDFDFDFDFDFDF803FFFBFB + FBFB03F800FDFDFDFDFDFDFDF8F8FBFBFB03F800FDFDFDFDFDFDFDFDFDFDFD03 + 00FDFDFDFDFDFDFDFDFDFDFD03FB030303F800FDFDFDFDFDFDFDFDF8FB000000 + 00000300FDFDFDFDFDFDFDFD000606060606000300FDFDFDFDFDFDF80602FE06 + 060606000300FDFDFDFDF8FE0202FEFE0206F8F800F800FDFDFDF8FEFEFEFE02 + 0202F8F8000300FDFDFDF8FAFEFFFE020202F806000300FDFDFDF8FAFEFEFFFE + FE02FE06000300FDFDFDFDF8FEFFFEFFFAFE0600FBF8FDFDFDFDFDFDF8FEFEFA + FAFEF803F8FDFDFDFDFDFDFDFDF8F8F8F8F805F8FDFDFDFDFDFD} + end + object SpeedButton8: TSpeedButton + Left = 265 + Top = 224 + Width = 23 + Height = 22 + Flat = True + Glyph.Data = { + 36050000424D3605000000000000360400002800000010000000100000000100 + 0800000000000001000000000000000000000001000000000000000000000000 + 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA + A600000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FDFDFDFDFDFD + FDFDFDFDFDFDFDFDFDFDFDFDFD00000000000000000000000000FDFDFD0000FB + FFFBFFFBFFFBFFFB0000FDFDFD00FB00FBFFFB00FBFFFB00FB00FDFDFD00FFFB + 00FB00FB00FB00FBFF00FDFDFD00FBFFFB00FBFFFB00FBFFFB0000FDFD00FFFB + 00FBFFFBFFFB00FBFF00FD00FD00FB00FBFFFBFFFBFFFB00FB00FDFD000000FB + FFFBFFFBFFFBFFFB00000000FFFF000000000000000000000000FDFD00FF00FD + FDFDFDFDFDFDFDFDFDFDFD00FD00FD00FDFDFDFDFDFDFDFDFDFD00FDFDFDFDFD + 00FDFDFDFDFDFDFDFDFDFDFDFD00FDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFDFD + FDFDFDFDFDFDFDFDFDFDFDFDFD00FDFDFDFDFDFDFDFDFDFDFDFD} + end + object DBText3: TDBText + Left = 144 + Top = 8 + Width = 65 + Height = 17 + DataField = 'ID' + DataSource = Ds_FPersonas + Font.Charset = DEFAULT_CHARSET + Font.Color = clMaroon + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + end + object DBEdit1: TDBEdit + Left = 192 + Top = 72 + Width = 417 + Height = 24 + DataField = 'Empresa' + DataSource = Ds_FPersonas + TabOrder = 0 + OnKeyPress = NextField_Tab1 + end + object DBEdit2: TDBEdit + Left = 192 + Top = 40 + Width = 145 + Height = 24 + DataField = 'Nombre' + DataSource = Ds_FPersonas + TabOrder = 1 + OnKeyPress = NextField_Tab1 + end + object DBEdit3: TDBEdit + Left = 336 + Top = 40 + Width = 273 + Height = 24 + DataField = 'Apellidos' + DataSource = Ds_FPersonas + TabOrder = 2 + OnKeyPress = NextField_Tab1 + end + object DBEdit4: TDBEdit + Left = 488 + Top = 8 + Width = 121 + Height = 24 + DataField = 'DocumentoDNP' + DataSource = Ds_FPersonas + TabOrder = 3 + OnKeyPress = NextField_Tab1 + end + object DBEdit5: TDBEdit + Left = 192 + Top = 96 + Width = 416 + Height = 24 + DataField = 'Actividad' + DataSource = Ds_FPersonas + TabOrder = 4 + OnKeyPress = NextField_Tab1 + end + object DBEdit6: TDBEdit + Left = 80 + Top = 128 + Width = 529 + Height = 24 + DataField = 'Calle' + DataSource = Ds_FPersonas + TabOrder = 5 + OnKeyPress = NextField_Tab1 + end + object DBEdit7: TDBEdit + Left = 80 + Top = 152 + Width = 169 + Height = 24 + DataField = 'Poblacion' + DataSource = Ds_FPersonas + TabOrder = 6 + OnKeyPress = NextField_Tab1 + end + object DBEdit8: TDBEdit + Left = 314 + Top = 152 + Width = 169 + Height = 24 + DataField = 'Provincia' + DataSource = Ds_FPersonas + TabOrder = 7 + OnKeyPress = NextField_Tab1 + end + object DBEdit9: TDBEdit + Left = 512 + Top = 152 + Width = 73 + Height = 24 + DataField = 'CP' + DataSource = Ds_FPersonas + TabOrder = 8 + OnKeyPress = NextField_Tab1 + end + object DBEdit10: TDBEdit + Left = 80 + Top = 184 + Width = 129 + Height = 24 + DataField = 'Telefono1' + DataSource = Ds_FPersonas + TabOrder = 9 + OnKeyPress = NextField_Tab1 + end + object DBEdit11: TDBEdit + Left = 213 + Top = 184 + Width = 129 + Height = 24 + DataField = 'Telefono2' + DataSource = Ds_FPersonas + TabOrder = 10 + OnKeyPress = NextField_Tab1 + end + object DBEdit12: TDBEdit + Left = 346 + Top = 184 + Width = 129 + Height = 24 + DataField = 'Telefono3' + DataSource = Ds_FPersonas + TabOrder = 11 + OnKeyPress = NextField_Tab1 + end + object DBEdit13: TDBEdit + Left = 480 + Top = 184 + Width = 129 + Height = 24 + DataField = 'Telefono4' + DataSource = Ds_FPersonas + TabOrder = 12 + OnKeyPress = NextField_Tab1 + end + object DBEdit14: TDBEdit + Left = 56 + Top = 224 + Width = 209 + Height = 24 + DataField = 'e_Mail' + DataSource = Ds_FPersonas + TabOrder = 13 + OnKeyPress = NextField_Tab1 + end + object DBEdit15: TDBEdit + Left = 320 + Top = 224 + Width = 265 + Height = 24 + DataField = 'url' + DataSource = Ds_FPersonas + TabOrder = 14 + OnKeyPress = NextField_Tab1 + end + object tipoDocumento: TComboBox + Left = 376 + Top = 8 + Width = 105 + Height = 24 + ItemHeight = 16 + TabOrder = 15 + Text = 'NIF' + OnChange = tipoDocumentoChange + Items.Strings = ( + 'NIF' + 'CIF' + 'DNI' + 'Pasaporte' + 'Seguridad Social') + end + end + object TabSheet2: TTabSheet + Caption = 'Datos &Bancarios' + ImageIndex = 6 + object Bevel2: TBevel + Left = 0 + Top = 0 + Width = 616 + Height = 336 + Align = alClient + end + object Bevel6: TBevel + Left = 88 + Top = 200 + Width = 449 + Height = 41 + Shape = bsFrame + Style = bsRaised + end + object Label15: TLabel + Left = 8 + Top = 16 + Width = 118 + Height = 16 + Caption = 'Titular de la Cuenta:' + end + object Label18: TLabel + Left = 400 + Top = 16 + Width = 24 + Height = 16 + Caption = 'NIF:' + end + object Label19: TLabel + Left = 8 + Top = 48 + Width = 49 + Height = 16 + Caption = 'Entidad:' + end + object Label21: TLabel + Left = 8 + Top = 80 + Width = 60 + Height = 16 + Caption = 'Dirección:' + end + object Label22: TLabel + Left = 8 + Top = 104 + Width = 64 + Height = 16 + Caption = 'Población:' + end + object Label23: TLabel + Left = 252 + Top = 104 + Width = 59 + Height = 16 + Caption = 'Provincia:' + end + object Label24: TLabel + Left = 488 + Top = 104 + Width = 21 + Height = 16 + Caption = 'CP:' + end + object SpeedButton9: TSpeedButton + Left = 586 + Top = 96 + Width = 23 + Height = 22 + Glyph.Data = { + 66010000424D6601000000000000760000002800000014000000140000000100 + 040000000000F000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 3333333300003333333333333333333300003333373333333333333300003333 + 07733333333333330000333000773333333333330000330F0007733333333333 + 00003330F000777777733333000033330F000000007733330000333330F00788 + 87077333000033333300788FF870773300003333330788888F87073300003333 + 3308888888F80733000033333307888888F807330000333333078FF888880733 + 0000333333777FF8888773330000333333307788887033330000333333330777 + 7703333300003333333337000733333300003333333333333333333300003333 + 33333333333333330000} + end + object Label20: TLabel + Left = 108 + Top = 192 + Width = 46 + Height = 16 + Caption = 'Entidad' + end + object Label25: TLabel + Left = 184 + Top = 192 + Width = 52 + Height = 16 + Caption = 'Sucursal' + end + object Label26: TLabel + Left = 264 + Top = 192 + Width = 25 + Height = 16 + Caption = 'D.C.' + end + object Label27: TLabel + Left = 348 + Top = 192 + Width = 110 + Height = 16 + Caption = 'Número de cuenta' + end + object SpeedButton10: TSpeedButton + Left = 505 + Top = 208 + Width = 23 + Height = 22 + Glyph.Data = { + 66010000424D6601000000000000760000002800000014000000140000000100 + 040000000000F000000000000000000000001000000010000000000000000000 + 8000008000000080800080000000800080008080000080808000C0C0C0000000 + FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 + 3333333300003333333333333333333300003333373333333333333300003333 + 07733333333333330000333000773333333333330000330F0007733333333333 + 00003330F000777777733333000033330F000000007733330000333330F00788 + 87077333000033333300788FF870773300003333330788888F87073300003333 + 3308888888F80733000033333307888888F807330000333333078FF888880733 + 0000333333777FF8888773330000333333307788887033330000333333330777 + 7703333300003333333337000733333300003333333333333333333300003333 + 33333333333333330000} + end + object DBEdit17: TDBEdit + Left = 80 + Top = 72 + Width = 529 + Height = 24 + DataField = 'Banco_calle' + DataSource = Ds_FPersonas + TabOrder = 0 + end + object DBEdit18: TDBEdit + Left = 80 + Top = 96 + Width = 169 + Height = 24 + DataField = 'Banco_Población' + DataSource = Ds_FPersonas + TabOrder = 1 + end + object DBEdit19: TDBEdit + Left = 316 + Top = 96 + Width = 169 + Height = 24 + DataField = 'Banco_Provincia' + DataSource = Ds_FPersonas + TabOrder = 2 + end + object DBEdit20: TDBEdit + Left = 512 + Top = 96 + Width = 73 + Height = 24 + DataField = 'Banco_CP' + DataSource = Ds_FPersonas + TabOrder = 3 + end + object DBEdit21: TDBEdit + Left = 136 + Top = 8 + Width = 257 + Height = 24 + DataField = 'Titular_de_la_cuenta' + DataSource = Ds_FPersonas + TabOrder = 4 + OnKeyPress = NextField_Tab2 + end + object DBEdit22: TDBEdit + Left = 432 + Top = 8 + Width = 177 + Height = 24 + DataField = 'Nif_del_Titular' + DataSource = Ds_FPersonas + TabOrder = 5 + end + object DBEdit23: TDBEdit + Left = 80 + Top = 40 + Width = 313 + Height = 24 + DataField = 'Entidad_Bancaria' + DataSource = Ds_FPersonas + TabOrder = 6 + end + object DBEdit24: TDBEdit + Left = 96 + Top = 208 + Width = 73 + Height = 24 + DataField = 'Banco_Entidad' + DataSource = Ds_FPersonas + TabOrder = 7 + end + object DBEdit25: TDBEdit + Left = 256 + Top = 208 + Width = 41 + Height = 24 + DataField = 'Banco_DC' + DataSource = Ds_FPersonas + TabOrder = 8 + end + object DBEdit26: TDBEdit + Left = 176 + Top = 208 + Width = 73 + Height = 24 + DataField = 'Banco_Sucursal' + DataSource = Ds_FPersonas + TabOrder = 9 + end + object DBEdit27: TDBEdit + Left = 304 + Top = 208 + Width = 193 + Height = 24 + DataField = 'Banco_NumCuenta' + DataSource = Ds_FPersonas + TabOrder = 10 + end + end + object TabSheet3: TTabSheet + Caption = '&Extras' + ImageIndex = 9 + object Bevel3: TBevel + Left = 0 + Top = 0 + Width = 616 + Height = 183 + Align = alClient + end + object Label2: TLabel + Left = 2 + Top = 136 + Width = 146 + Height = 20 + Caption = 'Información extra:' + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'MS Sans Serif' + Font.Style = [fsBold] + ParentFont = False + end + object Label16: TLabel + Left = 376 + Top = 40 + Width = 86 + Height = 16 + Caption = 'Fecha de Alta:' + end + object Label17: TLabel + Left = 376 + Top = 64 + Width = 120 + Height = 16 + Caption = 'Última Modificación:' + end + object DBText1: TDBText + Left = 504 + Top = 40 + Width = 105 + Height = 17 + Alignment = taRightJustify + DataField = 'FAlta' + DataSource = Ds_FPersonas + end + object DBText2: TDBText + Left = 503 + Top = 64 + Width = 105 + Height = 17 + Alignment = taRightJustify + DataField = 'FModif' + DataSource = Ds_FPersonas + end + object DBMemo1: TDBMemo + Left = 0 + Top = 183 + Width = 616 + Height = 153 + Align = alBottom + DataField = 'Notas' + DataSource = Ds_FPersonas + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'MS Sans Serif' + Font.Style = [] + ParentFont = False + TabOrder = 0 + end + end + end + end + end + object Ds_FPersonas: TDataSource + DataSet = Tb_FPersonas + OnStateChange = Ds_FPersonasStateChange + OnDataChange = Ds_FPersonasDataChange + Left = 20 + Top = 357 + end + object Tb_FPersonas: TTable + BeforePost = Tb_FPersonasBeforePost + OnNewRecord = Tb_FPersonasNewRecord + TableName = 'datos\Personas.db' + Left = 24 + Top = 386 + end + object DS_dhs: TDataSource + DataSet = Tb_dhs + Left = 124 + Top = 356 + end + object Tb_dhs: TTable + OnCalcFields = Tb_dhsCalcFields + OnNewRecord = Tb_dhsNewRecord + IndexName = 'idx_clt' + MasterFields = 'ID' + MasterSource = Ds_FPersonas + TableName = 'datos\dhs.db' + Left = 124 + Top = 388 + object Tb_dhsID: TAutoIncField + FieldName = 'ID' + ReadOnly = True + end + object Tb_dhsIDC: TIntegerField + FieldName = 'IDC' + end + object Tb_dhsFecha: TDateField + FieldName = 'Fecha' + end + object Tb_dhsConcepto: TStringField + FieldName = 'Concepto' + Size = 40 + end + object Tb_dhsDebe: TCurrencyField + FieldName = 'Debe' + end + object Tb_dhsHaber: TCurrencyField + FieldName = 'Haber' + end + object Tb_dhssaldo: TCurrencyField + FieldKind = fkCalculated + FieldName = 'saldo' + Calculated = True + end + end + object ImageList1: TImageList + Left = 156 + Top = 260 + Bitmap = { + 494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 + 0000000000003600000028000000400000001000000001002000000000000010 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000000000800000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000000000800000000000000000000000000000000000000000000080000000 + 0080000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000FFFFFF80FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000080FF000080000000 + 8080FFFFFF00FFFFFFFF000000FF0000000000000000FFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 + 00FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000FFFFFF80000000FF00000000000000000000000000008000000080000000 + 808000000000FFFFFF00000000FF0000000000000000FFFFFF00000000FF0000 + 0000FFFFFF00000000FF00000000000000000000000000000000FFFFFF000000 + 00FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000FFFFFF80000000FFFFFFFF00000000FFFFFFFF00FFFFFFFF000080FFFFFF + FF80000000FFFFFFFF00000000FF0000000000000000FFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 + 00FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000FFFFFF80000000FF000000000000000000000000FFFFFF00000080FFFFFF + FF80000000FFFFFFFF00000000FF0000000000000000FFFFFF00000000FF0000 + 0000FFFFFF00000000FF00000000000000000000000000000000FFFFFF000000 + 00FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000FFFFFF80000000FFFFFFFF00000000FFFFFFFF00000080FF000080000000 + 8080FFFFFF00FFFFFFFF000000FF0000000000000000FFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000 + 00FF000000000000000000000000000000000000000000000000000000000080 + 8000000000800000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000000000800000000000000000000000000000000000008000000080000000 + 808000000000FFFFFF00000000FF0000000000000000FFFFFF00FFFFFFFFFFFF + FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFF00FFFFFFFF0000 + 00FF000000000000000000000000000000000000000000000000000000000080 + 800000FFFF80008080FF00000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000FFFF0000FFFF00FF000000000000800000008080000080000000 + 808000008000FFFFFF80000000FF0000000000000000FFFFFF00000000FF0000 + 0000FFFFFF00FFFFFFFFFFFFFFFF000000FF0000000000000000FFFFFF000000 + 00FF000000000000000000000000800000000000000000000000000000000080 + 800000FFFF80008080FF00000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000080800000808000800000 + 0000FFFF0000FFFF0000000000FF808000000000808000008080000080000000 + 808000008000FFFFFF80000000FF0000000000000000FFFFFF00000000FF0000 + 000000000000FFFFFF00000000FF000000000000000000000000000000000000 + 0000000000000000000080000000800000000080800000000080000000000080 + 800000FFFF80008080FF00000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000000000000000000000000000FFFF + 0000FFFF00FF0000000000000000000000000000000000008000000080000000 + 808000000000FFFFFF00000000FF0000000000000000FFFFFF00FFFFFFFF0000 + 00FF000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000000080800000FFFF80008080FF0000 + 008000FFFF00008080FF00000080000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000FFFF0000FFFF + 0000000000FF8080800000000080000000000000000000000000000080000000 + 008000000000FFFFFF00000000FF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000000080800000FFFF8000FFFFFF00FF + FFFF008080FF0080808000808080008080800080808000000080000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 00000000000000000000000000000000000000000000FFFF0000FFFF00FF0000 + 000000000000FFFF0000FFFF00FF00000000FFFFFF00FFFFFFFFFFFFFFFFFFFF + FFFF000000FF0000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000000080800000FFFF8000FFFFFF0080 + 80FF008080800080808000808080000000800000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000FFFFFF00000000FF0000000000000000FFFFFF00FFFFFFFFFFFFFFFFFFFF + FFFF808080FFFFFFFF80000000FF000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000000080800000FFFF80008080FF0080 + 8080008080800000008000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000FFFFFF80FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF + FFFF808080FF0000008000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000080000000800000000080800000808080008080800000 + 0080000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000008080 + 8000808080808080808080808080808080808080808080808080808080808080 + 8080808080800000008000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000080800000000080000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 0000000000000000000000000000000000000000000000000000000000000000 + 000000000000000000000000000000000000424D3E000000000000003E000000 + 2800000040000000100000000100010000000000800000000000000000000000 + 000000000000000000000000FFFFFF00E000FFFF80008000EFDE000F80000000 + E002000F00000000E78A000F00000000E50A000F00000080E78A000F80000000 + E502000F00000000E08A000F000000000002008E000000000002114400000000 + 800A0AB80000000081DA057C000000000000FAFC000000001001FDF8000000FF + E003FE0400000000E007FFFF3E289F0300000000000000000000000000000000 + 000000000000} + end +end diff --git a/src/FichaPersonas.h b/src/FichaPersonas.h new file mode 100644 index 0000000..72a5f39 --- /dev/null +++ b/src/FichaPersonas.h @@ -0,0 +1,175 @@ +//--------------------------------------------------------------------------- + +#ifndef FichaPersonasH +#define FichaPersonasH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//--------------------------------------------------------------------------- +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 diff --git a/src/Futurist_Yellow Text Document.ico b/src/Futurist_Yellow Text Document.ico new file mode 100644 index 0000000..f593bc9 Binary files /dev/null and b/src/Futurist_Yellow Text Document.ico differ diff --git a/src/QR_dhs.cpp b/src/QR_dhs.cpp new file mode 100644 index 0000000..aa9c434 --- /dev/null +++ b/src/QR_dhs.cpp @@ -0,0 +1,15 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "QR_dhs.h" +//--------------------------------------------------------------------------- +#pragma package(smart_init) +#pragma resource "*.dfm" +TQRdhs *QRdhs; +//--------------------------------------------------------------------------- +__fastcall TQRdhs::TQRdhs(TComponent* Owner) + : TForm(Owner) +{ +} +//--------------------------------------------------------------------------- diff --git a/src/QR_dhs.dfm b/src/QR_dhs.dfm new file mode 100644 index 0000000..9ab7f7c Binary files /dev/null and b/src/QR_dhs.dfm differ diff --git a/src/QR_dhs.h b/src/QR_dhs.h new file mode 100644 index 0000000..ad61aff --- /dev/null +++ b/src/QR_dhs.h @@ -0,0 +1,53 @@ +//--------------------------------------------------------------------------- +#ifndef QR_dhsH +#define QR_dhsH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//--------------------------------------------------------------------------- +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 diff --git a/src/datos/Personas.MB b/src/datos/Personas.MB new file mode 100644 index 0000000..5a8b7d0 Binary files /dev/null and b/src/datos/Personas.MB differ diff --git a/src/datos/Personas.PX b/src/datos/Personas.PX new file mode 100644 index 0000000..1056532 Binary files /dev/null and b/src/datos/Personas.PX differ diff --git a/src/datos/Personas.db b/src/datos/Personas.db new file mode 100644 index 0000000..8ec35be Binary files /dev/null and b/src/datos/Personas.db differ diff --git a/src/datos/dhs.PX b/src/datos/dhs.PX new file mode 100644 index 0000000..cd72f4d Binary files /dev/null and b/src/datos/dhs.PX differ diff --git a/src/datos/dhs.XG0 b/src/datos/dhs.XG0 new file mode 100644 index 0000000..84958c6 Binary files /dev/null and b/src/datos/dhs.XG0 differ diff --git a/src/datos/dhs.YG0 b/src/datos/dhs.YG0 new file mode 100644 index 0000000..8b50856 Binary files /dev/null and b/src/datos/dhs.YG0 differ diff --git a/src/datos/dhs.db b/src/datos/dhs.db new file mode 100644 index 0000000..ca4ee22 Binary files /dev/null and b/src/datos/dhs.db differ diff --git a/src/dhs.bpr b/src/dhs.bpr new file mode 100644 index 0000000..f4293ba --- /dev/null +++ b/src/dhs.bpr @@ -0,0 +1,172 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +[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= + + \ No newline at end of file diff --git a/src/dhs.cpp b/src/dhs.cpp new file mode 100644 index 0000000..7332c10 --- /dev/null +++ b/src/dhs.cpp @@ -0,0 +1,45 @@ +//--------------------------------------------------------------------------- +#include + +#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(); +*/ + + + + diff --git a/src/dhs.res b/src/dhs.res new file mode 100644 index 0000000..9f72c72 Binary files /dev/null and b/src/dhs.res differ diff --git a/src/splash.cpp b/src/splash.cpp new file mode 100644 index 0000000..72d4af1 --- /dev/null +++ b/src/splash.cpp @@ -0,0 +1,34 @@ +//--------------------------------------------------------------------------- + +#include +#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(); +} +//--------------------------------------------------------------------------- diff --git a/src/splash.dfm b/src/splash.dfm new file mode 100644 index 0000000..de2388a --- /dev/null +++ b/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ó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ó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 diff --git a/src/splash.h b/src/splash.h new file mode 100644 index 0000000..871b0a1 --- /dev/null +++ b/src/splash.h @@ -0,0 +1,31 @@ +//--------------------------------------------------------------------------- + +#ifndef splashH +#define splashH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +//--------------------------------------------------------------------------- +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 diff --git a/src/systm/1.AVI b/src/systm/1.AVI new file mode 100644 index 0000000..02d672d Binary files /dev/null and b/src/systm/1.AVI differ