commit 7733370334b0aa0905a8eb3e964c363caed6a5cf Author: jdg Date: Sun Sep 12 21:55:41 2021 +0200 First commit 27/10/2000 diff --git a/Agenda.cpp b/Agenda.cpp new file mode 100644 index 0000000..5b790ad --- /dev/null +++ b/Agenda.cpp @@ -0,0 +1,953 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "Agenda.h" + +#include +#include +#include "DlgQueImprimir.h" + + #define Digito(Num, Dig) ( (Num-( (Num/(int)pow10(Dig)) * (int)pow10(Dig) )) / ( Dig==1 ? 1 : (int)pow10(Dig-1) ) ) + + // Comprobamos que la CC sea correcta + bool 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; + }; + +//--------------------------------------------------------------------------- +#pragma package(smart_init) +#pragma link "ElastFrm" +#pragma link "ElastFrm" +#pragma resource "*.dfm" +TListadoClientes *ListadoClientes; +//--------------------------------------------------------------------------- +__fastcall TListadoClientes::TListadoClientes(TComponent* Owner) + : TForm(Owner) +{ + DB_Path = "datos\\"; + + Session1->Active = true; + // Cargamos el DB_Path... + { + FILE *iFileHandle; + int iFileLength; + + char pszBuffer[180]; + if ( (iFileHandle = fopen( "Path.cfg", "r" )) != NULL ) + { + fgets( pszBuffer, 180, iFileHandle ); + DB_Path = pszBuffer; + fclose( iFileHandle ); + try { + Image1->Picture->LoadFromFile( "logo.bmp" ); + } catch(...) { + Image1->Visible = false; + } + } else { + ShowMessage( "TRABAJANDO EN MODO PRIVADO" ); + } + } + + InfoBar->SimpleText = "Inicializando programa..." ; + + MinFecha->Date = TDateTime::CurrentDate(); + MaxFecha->Date = TDateTime::CurrentDate(); + + OnDataChanged = false; + SelIndex->ItemIndex = 0; + + if ( FileExists( DB_Path + "correos\\poblacion.db" ) ) + { + DBcorreos = true; + TbCorreos->ReadOnly = true; + TbCorreos->TableType = ttParadox; + TbCorreos->TableName = DB_Path + "correos\\poblacion.db"; + TbCorreos->Active = true; + } else { + DBcorreos = false; + } + + + TbCarpetas->TableName = DB_Path + "carpetas.DB"; + TbLlamadas->TableName = DB_Path + "llamadas.DB"; + TbListado->TableName = DB_Path + "personas.DB"; + TbNotas->TableName = DB_Path + "misnotas.DB"; + TbListado->Active = true; + TbLlamadas->Active = true; + TbCarpetas->Active = true; + TbNotas->Active = true; + + InfoBar->SimpleText = "www.infdj.com" ; +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::TbCarpetasBeforeOpen(TDataSet *DataSet) +{ + if ( !FileExists( TbCarpetas->TableName ) ) + { + InfoBar->SimpleText= "Creando carpetas..." ; + TbCarpetas -> TableType = ttParadox; + + TbCarpetas -> FieldDefs -> Clear(); + + /********************\ + |* Datos Básicos *| + \********************/ + TbCarpetas -> FieldDefs -> Add("IDcarpeta", ftAutoInc, 0, false ); + TbCarpetas -> FieldDefs -> Add("carpeta", ftString, 15, false ); + + TbCarpetas -> IndexDefs-> Clear(); + + // Creamos la base... + TbCarpetas -> CreateTable(); + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbListadoBeforeOpen(TDataSet *DataSet) +{ + if ( !FileExists( TbListado->TableName ) ) + { + InfoBar->SimpleText= "Creando personas..." ; + TbListado -> TableType = ttParadox; + + TbListado -> FieldDefs -> Clear(); + + /********************\ + |* Datos Básicos *| + \********************/ + TbListado -> FieldDefs -> Add("CodCliente1", ftAutoInc, 0, false ); + TbListado -> FieldDefs -> Add("CodCliente2", ftString, 15, false ); + + TbListado -> FieldDefs -> Add("FAlta", ftDateTime, 0, false ); + TbListado -> FieldDefs -> Add("FModif", ftDateTime, 0, false ); + + TbListado -> FieldDefs -> Add("Empresa", ftString, 30, false ); + TbListado -> FieldDefs -> Add("Actividad", ftString, 25, false ); + TbListado -> FieldDefs -> Add("Nombre", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Apellidos", ftString, 30, false ); + TbListado -> FieldDefs -> Add("Dni Nif Pasaporte", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("DocumentoDNP", ftString, 20, false ); + + TbListado -> FieldDefs -> Add("Telefono 1", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Telefono 2", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Telefono 3", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Telefono 4", ftString, 15, false ); + TbListado -> FieldDefs -> Add("e-Mail", ftString, 30, false ); + TbListado -> FieldDefs -> Add("url", ftString, 50, false ); + TbListado -> FieldDefs -> Add("Calle", ftString, 25, false ); + TbListado -> FieldDefs -> Add("Calle2", ftString, 25, false ); + TbListado -> FieldDefs -> Add("Num", ftString, 4, false ); + TbListado -> FieldDefs -> Add("Piso", ftString, 2, false ); + TbListado -> FieldDefs -> Add("Letra", ftString, 2, false ); + TbListado -> FieldDefs -> Add("Población", ftString, 20, false ); + TbListado -> FieldDefs -> Add("Provincia", ftString, 15, false ); + TbListado -> FieldDefs -> Add("CP", ftInteger, 0, false ); + + TbListado -> FieldDefs -> Add("Deposito", ftCurrency, 0, false ); + TbListado -> FieldDefs -> Add("Credito", ftCurrency, 0, false ); + TbListado -> FieldDefs -> Add("TiempoH", ftInteger, 0, false ); + TbListado -> FieldDefs -> Add("TiempoM", ftInteger, 0, false ); + + /************************\ + |* Domiciliación Bancaria *| + \************************/ + + TbListado -> FieldDefs -> Add("Titular de la cuenta", ftString, 30, false ); + TbListado -> FieldDefs -> Add("Nif del Titular", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Entidad Bancaria", ftString, 30, false ); + TbListado -> FieldDefs -> Add("Banco_Calle", ftString, 20, false ); + TbListado -> FieldDefs -> Add("Banco_Num", ftString, 4, false ); + TbListado -> FieldDefs -> Add("Banco_Población", ftString, 20, false ); + TbListado -> FieldDefs -> Add("Banco_Provincia", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Banco_CP", ftInteger, 0, false ); + + TbListado -> FieldDefs -> Add("Banco_Entidad", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Banco_Sucursal", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Banco_DC", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Banco_NumCuenta", ftString, 10, false ); + + /************************\ + |* Información Extra *| + \************************/ + + TbListado -> FieldDefs -> Add("Estado Civil", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Fecha de Nacimiento", ftDate, 0, false ); + TbListado -> FieldDefs -> Add("Profesión", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Años en la empresa",ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Personas en la familia", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Estudios", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Tipo vivienda", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Años vivienda", ftSmallint, 0, false ); + TbListado -> FieldDefs -> Add("Extras1", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Extras2", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Extras3", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Extras4", ftString, 15, false ); + TbListado -> FieldDefs -> Add("Notas", ftMemo, 200, false ); + + + TbListado -> FieldDefs -> Add("Imagen", ftString, 80, false ); + + TbListado -> FieldDefs -> Add("Proveedor", ftInteger, 0, false ); + TbListado -> FieldDefs -> Add("Empleado", ftInteger, 0, false ); + TbListado -> FieldDefs -> Add("Cliente", ftInteger, 0, false ); + TbListado -> FieldDefs -> Add("Amigo", ftInteger, 0, false ); + + TbListado -> FieldDefs -> Add("IDcarpeta", ftInteger, 0, false ); + + TbListado -> IndexDefs-> Clear(); + + TIndexOptions MyIndexOptions; + MyIndexOptions << ixPrimary << ixUnique; + TbListado->IndexDefs->Add("Primary", "CodCliente1", MyIndexOptions); + + TbListado->IndexDefs->Add("Nombre", "Nombre", TIndexOptions() << ixCaseInsensitive); + TbListado->IndexDefs->Add("Apellidos", "Apellidos", TIndexOptions() << ixCaseInsensitive); + TbListado->IndexDefs->Add("Empresa", "Empresa", TIndexOptions() << ixCaseInsensitive); + TbListado->IndexDefs->Add("Actividad", "Actividad", TIndexOptions() << ixCaseInsensitive); + TbListado->IndexDefs->Add("Telefono 1", "Telefono 1", TIndexOptions() << ixCaseInsensitive); + TbListado->IndexDefs->Add("Telefono 2", "Telefono 2", TIndexOptions() << ixCaseInsensitive); + // Creamos la base... + TbListado -> CreateTable(); + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbLlamadasBeforeOpen(TDataSet *DataSet) +{ + if ( !FileExists( TbLlamadas->TableName ) ) + { + InfoBar->SimpleText= "Creando control de llamadas..." ; + TbLlamadas -> TableType = ttParadox; + + TbLlamadas -> FieldDefs -> Clear(); + + /********************\ + |* Datos Básicos *| + \********************/ + TbLlamadas -> FieldDefs -> Add("IDllamada", ftAutoInc, 0, false ); + TbLlamadas -> FieldDefs -> Add("IDcliente", ftInteger, 0, false ); + TbLlamadas -> FieldDefs -> Add("fecha", ftDate, 0, false ); + TbLlamadas -> FieldDefs -> Add("hora", ftTime, 0, false ); + TbLlamadas -> FieldDefs -> Add("asunto", ftString, 30, false ); + TbLlamadas -> FieldDefs -> Add("notas", ftMemo, 160, false ); + + TbLlamadas -> IndexDefs-> Clear(); + + TbLlamadas->IndexDefs->Add("Primary", "IDllamada", TIndexOptions() << ixPrimary << ixUnique); + TbLlamadas->IndexDefs->Add("EnlaceCliente", "IDcliente", TIndexOptions() << ixCaseInsensitive); + + // Creamos la base... + TbLlamadas -> CreateTable(); + } +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::FiltrarCategoriasClick(TObject *Sender) +{ + FiltraCriterios(); +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::FiltrarCarpetasClick(TObject *Sender) +{ + FiltraCriterios(); +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::FiltraCriterios(void) +{ + AnsiString CadenaFiltro; + + TbListado->FilterOptions = TbListado->FilterOptions << foCaseInsensitive; + + if ( FiltrarCarpetas->Checked && !TbCarpetas->FieldByName( "IDcarpeta" )->AsString.IsEmpty() ) + CadenaFiltro = "( [IDcarpeta] = '" + TbCarpetas->FieldByName( "IDcarpeta" )->AsString + "') "; + + switch( FiltrarCategorias->ItemIndex ) + { + // Proveedores + case 0: + if ( FiltrarCarpetas->Checked ) CadenaFiltro += " AND "; + CadenaFiltro += "[Proveedor] >= 1"; + break; + // Empleados + case 1: + if ( FiltrarCarpetas->Checked ) CadenaFiltro += " AND "; + CadenaFiltro += "[Empleado] >= 1"; + break; + // Clientes + case 2: + if ( FiltrarCarpetas->Checked ) CadenaFiltro += " AND "; + CadenaFiltro += "[Cliente] >= 1"; + break; + // Amigos + case 3: + if ( FiltrarCarpetas->Checked ) CadenaFiltro += " AND "; + CadenaFiltro += "[Amigo] >= 1"; + break; + } + + if ( CadenaFiltro.IsEmpty() ) + { + TbListado->Filtered = false; + } else { + TbListado->Filter = CadenaFiltro; + TbListado->Filtered = true; + } + +// AlfabetoChange(0); +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::BitBtn1Click(TObject *Sender) +{ + Close(); +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::AlfabetoChange(TObject *Sender) +{ + // Posición dentro de la lista... + switch ( Alfabeto->TabIndex ) + { + case 0: + if ( ! ( TbListado->Locate( "Nombre", "a", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "b", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 1: + if ( ! ( TbListado->Locate( "Nombre", "c", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "d", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 2: + if ( ! ( TbListado->Locate( "Nombre", "e", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "f", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 3: + if ( ! ( TbListado->Locate( "Nombre", "g", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "h", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 4: + if ( ! ( TbListado->Locate( "Nombre", "i", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + if ( ! ( TbListado->Locate( "Nombre", "j", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "k", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 5: + if ( ! ( TbListado->Locate( "Nombre", "l", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "m", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 6: + if ( ! ( TbListado->Locate( "Nombre", "n", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "o", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 7: + if ( ! ( TbListado->Locate( "Nombre", "p", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + if ( ! ( TbListado->Locate( "Nombre", "q", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "r", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 8: + TbListado->Locate( "Nombre", "s", TLocateOptions() << loCaseInsensitive << loPartialKey ); + break; + case 9: + if ( ! ( TbListado->Locate( "Nombre", "t", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "u", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 10: + if ( ! ( TbListado->Locate( "Nombre", "v", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "w", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + case 11: + if ( ! ( TbListado->Locate( "Nombre", "x", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + if ( ! ( TbListado->Locate( "Nombre", "y", TLocateOptions() << loCaseInsensitive << loPartialKey ) ) ) + TbListado->Locate( "Nombre", "z", TLocateOptions() << loCaseInsensitive << loPartialKey ) ; + break; + } +} +//--------------------------------------------------------------------------- + + + +void __fastcall TListadoClientes::DsCarpetasDataChange(TObject *Sender, + TField *Field) +{ + if ( !( TbCarpetas->State == dsEdit || TbCarpetas->State == dsInsert) ) + FiltraCriterios(); +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::DsListadoDataChange(TObject *Sender, + TField *Field) +{ + OnDataChanged = true; + + if ( TbListado->State == dsEdit || TbListado->State == dsInsert ) + return; + + // Cargamos la imagen + + AnsiString PathToImage = DB_Path + "pictures\\"+ TbListado->FieldByName( "Imagen" )->AsString; + SetCurrentDir( ExtractFilePath( Application->ExeName ) ); + try { + Foto->Picture->LoadFromFile( PathToImage ); + } catch(...) { + try { + Foto->Picture->LoadFromFile( DB_Path + "pictures\\iError.bmp" ); + } catch(...) { + // nothing + }; + }; + + if ( CorrectaCC( TbListado->FieldByName("Banco_Entidad")->AsInteger, + TbListado->FieldByName("Banco_Sucursal")->AsInteger, + TbListado->FieldByName("Banco_DC")->AsInteger, + TbListado->FieldByName("Banco_NumCuenta")->AsString ) + ) + { + DBEdit28->Color = clWindow; + DBEdit29->Color = clWindow; + DBEdit30->Color = clWindow; + DBEdit31->Color = clWindow; + }else{ + DBEdit28->Color = clRed; + DBEdit29->Color = clRed; + DBEdit30->Color = clRed; + DBEdit31->Color = clRed; + } + + CheckBox1->Checked = TbListado->FieldByName( "Proveedor" ) ->AsInteger; + CheckBox3->Checked = TbListado->FieldByName( "Empleado" ) ->AsInteger; + CheckBox2->Checked = TbListado->FieldByName( "Cliente" ) ->AsInteger; + CheckBox4->Checked = TbListado->FieldByName( "Amigo" ) ->AsInteger; + + OnDataChanged = false; +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::FotoDblClick(TObject *Sender) +{ + OpenPictureDialog1->InitialDir = DB_Path + "pictures\\"; + if (OpenPictureDialog1->Execute()) + { + TbListado -> Edit(); + TbListado -> FieldByName( "Imagen" ) -> AsString = ExtractFileName(OpenPictureDialog1->FileName); + TbListado -> Post(); + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton6Click(TObject *Sender) +{ + ShowMessage( "No se puede validar la cuenta bancaria\nListado de bancos no accesible..." ); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton5Click(TObject *Sender) +{ + InfoBar->SimpleText = "Localizando Código Postal..." ; + + if ( !DBcorreos ) + { + ShowMessage( "No se puede validar el código postal.\nBase Postal no disponible..." ); + } else { + if ( TbCorreos->Locate( "CODIGO", TbListado->FieldByName("CP")->AsString, TLocateOptions() << loCaseInsensitive ) ) + { + AnsiString Provincias[] = { "###desconocido###", + "Alava", + "Albacete", + "Alicante", + "Almeria", + "Avila", + "Badajoz", + "Illes Balears", + "Barcelona", + "Burgos", + "Caceres", + "Cadiz", + "Castellon de la Plana", + "Ciudad Real", + "Cordoba", + "Coruña, A", + "Cuenca", + "Girona", + "Granada", + "Guadalajara", + "Guippuzcoa", + "Huelva", + "Huesca", + "Jaen", + "Leon", + "Lleida", + "Rioja, La", + "Lugo", + "Madrid", + "Malaga", + "Murcia", + "Navarra", + "Ourense", + "Asturias", + "Palencia", + "Palmas, Las", + "Pontevedra", + "Salamanca", + "Santa Cruz de Tenerife", + "Cantabria", + "Segovia", + "Sevilla", + "Soria", + "Tarragona", + "Teruel", + "Toledo", + "Valencia", + "Valladolid", + "Vizcaya", + "Vizcaya", + "Zamora", + "Zaragoza", + "Ceuta", + "Melilla" }; + + + + TbListado->Edit(); + TbListado->FieldByName("Población")->AsString = TbCorreos->FieldByName("Descripcion")->AsString; + + if ( TbCorreos->FieldByName("ID_Provincia")->AsInteger <= 50 && + TbCorreos->FieldByName("ID_Provincia")->AsInteger > 0 + ) + TbListado->FieldByName("Provincia")->AsString = Provincias[TbCorreos->FieldByName("ID_Provincia")->AsInteger]; + TbListado->Post(); + } + } + + InfoBar->SimpleText = "www.infdj.com"; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton1Click(TObject *Sender) +{ + InfoBar->SimpleText = "Inicializando marcador Telefónico" ; + // Marcar teléfono 1... + PageControl1->ActivePage = TabSheet2; + PageControl2->ActivePage = TabSheet6; + TbLlamadas->Insert(); + InfoBar->SimpleText = "www.infdj.com" ; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton2Click(TObject *Sender) +{ + InfoBar->SimpleText = "Inicializando marcador Telefónico" ; + // Marcar teléfono 2 + PageControl1->ActivePage = TabSheet2; + PageControl2->ActivePage = TabSheet6; + TbLlamadas->Insert(); + InfoBar->SimpleText = "www.infdj.com" ; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton4Click(TObject *Sender) +{ + InfoBar->SimpleText = "Enganchando con el Explorador" ; + + char zFileName[80], zParams[80], zDir[80]; + AnsiString URL = "http://" + TbListado->FieldByName("url")->AsString; + ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, URL), + StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32); +/* + URL1->URL = TbListado->FieldByName("url")->AsString; + URL1->URLType = utHttp; + URL1->Execute(); +*/ + // Abrir i-explorer con esta página + InfoBar->SimpleText = "www.infdj.com" ; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton3Click(TObject *Sender) +{ + InfoBar->SimpleText = "Preparando nuevo correo..." ; + + char zFileName[80], zParams[80], zDir[80]; + AnsiString URL = "mailto:" + TbListado->FieldByName("e-Mail")->AsString; + ShellExecute(Application->MainForm->Handle, 0, StrPCopy(zFileName, URL), + StrPCopy(zParams, ""), StrPCopy(zDir, ""), SW_SHOWNOACTIVATE > 32); + +/* + URL1->URL = TbListado->FieldByName("e-Mail")->AsString; + URL1->URLType = utMailto; + URL1->Execute(); +*/ + // Abrir outlook express con este correo... + InfoBar->SimpleText = "www.infdj.com" ; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton8Click(TObject *Sender) +{ + Close(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton7Click(TObject *Sender) +{ + if ( PageControl1->ActivePage == TabSheet7 ) + { + PageControl1->ActivePage = TabSheet7; + PageControl3->ActivePage = TabSheet9; + DBEdit32->SetFocus(); + TbNotas->Insert(); + } else { + PageControl1->ActivePage = TabSheet2; + PageControl2->ActivePage = TabSheet3; + DBEdit1->SetFocus(); + TbListado->Insert(); + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton11Click(TObject *Sender) +{ + TDlgImprimir *DlgImp; + DlgImp = new TDlgImprimir(this); + DlgImp->ShowModal(); + delete DlgImp; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::BuscarFichaClick(TObject *Sender) +{ + PageControl1->ActivePage = TabSheet7; + PageControl3->ActivePage = TabSheet9; + DBEdit32->SetFocus(); + TbNotas->Insert(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton9Click(TObject *Sender) +{ + if ( PageControl1->ActivePage == TabSheet7 ) + { + TbNotas -> Delete(); + } else { + if ( PageControl2->ActivePage == TabSheet6 ) + TbLlamadas -> Delete(); + else + TbListado -> Delete(); + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbListadoBeforeDelete(TDataSet *DataSet) +{ + if ( MessageDlg( "¿Esta seguro que desea eliminar el REGISTRO actual?", mtWarning, TMsgDlgButtons() << mbNo << mbYes, 0 ) == mrNo ) + Abort(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SelIndexChange(TObject *Sender) +{ + TbListado->IndexFieldNames = SelIndex->Items->Strings[SelIndex->ItemIndex]; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::BuscadorKeyUp(TObject *Sender, WORD &Key, + TShiftState Shift) +{ + TbListado->Locate( SelIndex->Items->Strings[SelIndex->ItemIndex], Buscador->Text, TLocateOptions() << loCaseInsensitive << loPartialKey ); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbLlamadasNewRecord(TDataSet *DataSet) +{ + TbLlamadas->FieldByName( "fecha" )->AsDateTime = TDateTime::CurrentDate(); + TbLlamadas->FieldByName( "hora" )->AsDateTime = TDateTime::CurrentTime(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::FormClose(TObject *Sender, + TCloseAction &Action) +{ + if ( TbListado->State == dsEdit || TbListado->State == dsInsert ) + TbListado->Post(); + if ( TbLlamadas->State == dsEdit || TbLlamadas->State == dsInsert ) + TbLlamadas->Post(); + if ( TbCarpetas->State == dsEdit || TbCarpetas->State == dsInsert ) + TbCarpetas->Post(); + if ( TbNotas->State == dsEdit || TbNotas->State == dsInsert ) + TbNotas->Post(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::MinFechaChange(TObject *Sender) +{ + FiltraLlamadas(); +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::FiltraLlamadas( void ) +{ + if ( FiltroLlamadas->Checked ) + { + TbLlamadas->FilterOptions = TbLlamadas->FilterOptions << foCaseInsensitive; + TbLlamadas->Filter = "([fecha] >= '" + MinFecha->Date + "' AND [fecha] <= '" + MaxFecha->Date +"')"; + TbLlamadas->Filtered = true; + } +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::FiltroLlamadasClick(TObject *Sender) +{ + if ( FiltroLlamadas->Checked ) + { + FiltraLlamadas(); + } else { + TbLlamadas->Filtered = false; + } + +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::DBText1DblClick(TObject *Sender) +{ + PageControl1->ActivePage = TabSheet2; + PageControl2->ActivePage = TabSheet3; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbListadoNewRecord(TDataSet *DataSet) +{ + TbListado->FieldByName( "FAlta" ) -> AsDateTime = TDateTime::CurrentDateTime(); + TbListado->FieldByName( "Proveedor" ) -> AsInteger = 0; + TbListado->FieldByName( "Empleado" ) -> AsInteger = 0; + TbListado->FieldByName( "Cliente" ) -> AsInteger = 1; + TbListado->FieldByName( "Amigo" ) -> AsInteger = 0; + + CheckBox1->Checked = false; + CheckBox3->Checked = false; + CheckBox2->Checked = true; + CheckBox4->Checked = false; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::SpeedButton10Click(TObject *Sender) +{ + // Traemos esta ficha a la carpeta seleccionada... + TbListado->Edit(); +try { + TbListado->FieldByName( "IDcarpeta" )->AsInteger = TbCarpetas->FieldByName( "IDcarpeta" )->AsInteger; + TbListado->Post(); +}catch (...) { + ShowMessage( "No hay carpetas disponibles o señaladas.\nPruebe a seleccionar o crear una nueva..."); +} +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::CheckBox1Click(TObject *Sender) +{ +try { + if ( OnDataChanged ) return; + TbListado->Edit(); + TbListado->FieldByName( "Proveedor" ) ->AsInteger = (int)( CheckBox1->Checked ); + TbListado->Post(); +} catch(...) { +// nothing +} +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::CheckBox3Click(TObject *Sender) +{ +try { + if ( OnDataChanged ) return; + TbListado->Edit(); + TbListado->FieldByName( "Empleado" ) ->AsInteger = (int)( CheckBox3->Checked ); + TbListado->Post(); +} catch(...) { +// nothing +} +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::CheckBox2Click(TObject *Sender) +{ +try { + if ( OnDataChanged ) return; + TbListado->Edit(); + TbListado->FieldByName( "Cliente" ) ->AsInteger = (int)( CheckBox2->Checked ); + TbListado->Post(); +} catch(...) { +// nothing +} +} +//--------------------------------------------------------------------------- +void __fastcall TListadoClientes::CheckBox4Click(TObject *Sender) +{ +try { + if ( OnDataChanged ) return; + TbListado->Edit(); + TbListado->FieldByName( "Amigo" ) ->AsInteger = (int)( CheckBox4->Checked ); + TbListado->Post(); +} catch(...) { +// nothing +} +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbNotasBeforeOpen(TDataSet *DataSet) +{ + if ( !FileExists( TbNotas->TableName ) ) + { + InfoBar->SimpleText= "Creando << mis notas >>..." ; + TbNotas -> TableType = ttParadox; + + TbNotas -> FieldDefs -> Clear(); + + /********************\ + |* Datos Básicos *| + \********************/ + TbNotas -> FieldDefs -> Add("IDnota", ftAutoInc, 0, false ); + TbNotas -> FieldDefs -> Add("fecha", ftDate, 0, false ); + TbNotas -> FieldDefs -> Add("hora", ftTime, 0, false ); + TbNotas -> FieldDefs -> Add("asunto", ftString, 30, false ); + TbNotas -> FieldDefs -> Add("notas", ftMemo, 160, false ); + + TbNotas -> IndexDefs-> Clear(); + + TbNotas->IndexDefs->Add("Primary", "IDnota", TIndexOptions() << ixPrimary << ixUnique); + + // Creamos la base... + TbNotas -> CreateTable(); + } + +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbNotasNewRecord(TDataSet *DataSet) +{ + TbNotas->FieldByName( "fecha" )->AsDateTime = TDateTime::CurrentDate(); + TbNotas->FieldByName( "hora" )->AsDateTime = TDateTime::CurrentTime(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::DBMemo3DblClick(TObject *Sender) +{ + PageControl1->ActivePage = TabSheet7; + PageControl3->ActivePage = TabSheet9; +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::PageControl1Change(TObject *Sender) +{ + if ( PageControl1->ActivePage == TabSheet7 ) + { + DBNavigator1->DataSource = DsNotas; + } else { + DBNavigator1->DataSource = DsListado; + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::DBEdit32KeyUp(TObject *Sender, WORD &Key, + TShiftState Shift) +{ + if ( Key == VK_RETURN ) + TbNotas->Post(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbNotasBeforeDelete(TDataSet *DataSet) +{ + if ( MessageDlg( "¿Confirma que desea eliminar la ANOTACION actual?", mtWarning, TMsgDlgButtons() << mbNo << mbYes, 0 ) == mrNo ) + Abort(); +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::NextField(TObject *Sender, char &Key) +{ + if ( Key == VK_RETURN ) + { + TDBEdit *Siguiente[] = { DBEdit1, DBEdit2, DBEdit3, DBEdit4, DBEdit5, + DBEdit6, DBEdit7, DBEdit17, DBEdit18, DBEdit8, + DBEdit9, DBEdit10, DBEdit11, DBEdit12, DBEdit13, + DBEdit19, DBEdit14, DBEdit15, DBEdit16, DBEdit1 }; + + for ( int i=0; i < 20; i++ ) + { + if ( Sender == Siguiente[i] ) + { + if ( TbListado->State == dsEdit || TbListado->State == dsInsert ) + TbListado->Post(); + Siguiente[i+1]->SetFocus(); + break; + } + } + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::NextField2(TObject *Sender, char &Key) +{ + if ( Key == VK_RETURN ) + { + TDBEdit *Siguiente[] = { DBEdit20, DBEdit21, DBEdit22, DBEdit23, DBEdit24, + DBEdit25, DBEdit26, DBEdit27, DBEdit28, DBEdit29, + DBEdit30, DBEdit31, DBEdit20 }; + + for ( int i=0; i < 12; i++ ) + { + if ( Sender == Siguiente[i] ) + { + if ( TbListado->State == dsEdit || TbListado->State == dsInsert ) + TbListado->Post(); + Siguiente[i+1]->SetFocus(); + break; + } + } + } +} +//--------------------------------------------------------------------------- + +void __fastcall TListadoClientes::TbListadoBeforePost(TDataSet *DataSet) +{ + TbListado->FieldByName( "FModif" ) -> AsDateTime = TDateTime::CurrentDateTime(); +} +//--------------------------------------------------------------------------- + + +void __fastcall TListadoClientes::DBMemo1Exit(TObject *Sender) +{ + if ( TbLlamadas->State == dsEdit || TbLlamadas->State == dsInsert ) + TbLlamadas->Post(); +} +//--------------------------------------------------------------------------- + + +void __fastcall TListadoClientes::TbLlamadasBeforeDelete(TDataSet *DataSet) +{ + if ( MessageDlg( "¿Esta seguro que desea eliminar la LLAMADA actual?", mtWarning, TMsgDlgButtons() << mbNo << mbYes, 0 ) == mrNo ) + Abort(); +} +//--------------------------------------------------------------------------- + + diff --git a/Agenda.dfm b/Agenda.dfm new file mode 100644 index 0000000..caa8109 Binary files /dev/null and b/Agenda.dfm differ diff --git a/Agenda.h b/Agenda.h new file mode 100644 index 0000000..9f6d1b5 --- /dev/null +++ b/Agenda.h @@ -0,0 +1,325 @@ +//--------------------------------------------------------------------------- +#ifndef AgendaH +#define AgendaH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include "elastfrm.hpp" +#include "ElastFrm.hpp" +#include +#include +//--------------------------------------------------------------------------- +class TListadoClientes : public TForm +{ +__published: // IDE-managed Components + TPanel *Panel1; + TPageControl *PageControl1; + TStatusBar *InfoBar; + TTable *TbCarpetas; + TDataSource *DsCarpetas; + TTabSheet *TabSheet1; + TTabSheet *TabSheet2; + TPageControl *PageControl2; + TTabSheet *TabSheet3; + TTabSheet *TabSheet4; + TTabSheet *TabSheet5; + TTabControl *Alfabeto; + TTabSheet *TabSheet6; + TCheckBox *FiltrarCarpetas; + TRadioGroup *FiltrarCategorias; + TGroupBox *GroupBox1; + TTable *TbListado; + TDataSource *DsListado; + TDBMemo *DBMemo1; + TDBGrid *DBGrid2; + TTable *TbLlamadas; + TDataSource *DsLlamadas; + TLabel *Label1; + TDBEdit *DBEdit1; + TDBEdit *DBEdit2; + TLabel *Label5; + TDBEdit *DBEdit3; + TLabel *Label6; + TDBEdit *DBEdit4; + TDBEdit *DBEdit5; + TLabel *Label7; + TLabel *Label8; + TDBEdit *DBEdit6; + TDBEdit *DBEdit7; + TSpeedButton *SpeedButton1; + TSpeedButton *SpeedButton2; + TSpeedButton *SpeedButton3; + TLabel *Label9; + TDBEdit *DBEdit8; + TLabel *Label10; + TDBEdit *DBEdit9; + TSpeedButton *SpeedButton4; + TLabel *Label11; + TLabel *Label12; + TBevel *Bevel9; + TDBEdit *DBEdit10; + TDBEdit *DBEdit11; + TDBEdit *DBEdit12; + TDBEdit *DBEdit13; + TLabel *Label13; + TLabel *Label14; + TLabel *Label15; + TDBEdit *DBEdit14; + TLabel *Label16; + TDBEdit *DBEdit15; + TLabel *Label17; + TDBEdit *DBEdit16; + TSpeedButton *SpeedButton5; + TImage *Foto; + TOpenPictureDialog *OpenPictureDialog1; + TLabel *Label31; + TBevel *Bevel11; + TLabel *Label18; + TLabel *Label24; + TLabel *Label25; + TLabel *Label26; + TLabel *Label27; + TLabel *Label28; + TLabel *Label29; + TLabel *Label30; + TLabel *Label32; + TLabel *Label33; + TLabel *Label34; + TLabel *Label35; + TDBEdit *DBEdit20; + TDBEdit *DBEdit21; + TDBEdit *DBEdit22; + TDBEdit *DBEdit23; + TDBEdit *DBEdit24; + TDBEdit *DBEdit25; + TDBEdit *DBEdit26; + TDBEdit *DBEdit27; + TDBEdit *DBEdit28; + TDBEdit *DBEdit29; + TDBEdit *DBEdit30; + TDBEdit *DBEdit31; + TBevel *Bevel12; + TBevel *Bevel13; + TBevel *Bevel14; + TSpeedButton *SpeedButton6; + TBevel *Bevel15; + TBevel *Bevel16; + TBevel *Bevel17; + TBevel *Bevel18; + TBevel *Bevel19; + TBevel *Bevel20; + TPanel *Panel2; + TSpeedButton *SpeedButton7; + TSpeedButton *SpeedButton8; + TSpeedButton *SpeedButton9; + TSpeedButton *BuscarFicha; + TSpeedButton *SpeedButton11; + TDBNavigator *DBNavigator1; + TPanel *Panel3; + TLabel *Label19; + TComboBox *SelIndex; + TEdit *Buscador; + TDBMemo *DBMemo2; + TDBCtrlGrid *DBCtrlGrid1; + TLabel *Label2; + TLabel *Label4; + TLabel *Label3; + TDBText *DBText1; + TDBText *DBText9; + TDBText *DBText8; + TDBText *DBText6; + TDBText *DBText7; + TDBText *DBText5; + TDBText *DBText4; + TDBText *DBText3; + TDBText *DBText2; + TPanel *Panel4; + TDateTimePicker *MinFecha; + TLabel *Label21; + TDateTimePicker *MaxFecha; + TCheckBox *FiltroLlamadas; + TTable *TbCorreos; + TImage *Image1; + TBevel *Bevel1; + TDBText *DBText10; + TSpeedButton *SpeedButton10; + TAutoIncField *TbListadoCodCliente1; + TStringField *TbListadoCodCliente2; + TStringField *TbListadoEmpresa; + TStringField *TbListadoActividad; + TStringField *TbListadoNombre; + TStringField *TbListadoApellidos; + TSmallintField *TbListadoDniNifPasaporte; + TStringField *TbListadoDocumentoDNP; + TStringField *TbListadoTelefono1; + TStringField *TbListadoTelefono2; + TStringField *TbListadoeMail; + TStringField *TbListadourl; + TStringField *TbListadoCalle; + TStringField *TbListadoNum; + TStringField *TbListadoPiso; + TStringField *TbListadoLetra; + TStringField *TbListadoPoblacin; + TStringField *TbListadoProvincia; + TIntegerField *TbListadoCP; + TCurrencyField *TbListadoDeposito; + TCurrencyField *TbListadoCredito; + TStringField *TbListadoTitulardelacuenta; + TStringField *TbListadoNifdelTitular; + TStringField *TbListadoEntidadBancaria; + TStringField *TbListadoBanco_Calle; + TStringField *TbListadoBanco_Num; + TStringField *TbListadoBanco_Poblacin; + TStringField *TbListadoBanco_Provincia; + TIntegerField *TbListadoBanco_CP; + TSmallintField *TbListadoBanco_Entidad; + TSmallintField *TbListadoBanco_Sucursal; + TSmallintField *TbListadoBanco_DC; + TStringField *TbListadoBanco_NumCuenta; + TSmallintField *TbListadoEstadoCivil; + TDateField *TbListadoFechadeNacimiento; + TStringField *TbListadoProfesin; + TSmallintField *TbListadoAosenlaempresa; + TSmallintField *TbListadoPersonasenlafamilia; + TSmallintField *TbListadoEstudios; + TSmallintField *TbListadoTipovivienda; + TSmallintField *TbListadoAosvivienda; + TStringField *TbListadoExtras1; + TStringField *TbListadoExtras2; + TStringField *TbListadoExtras3; + TStringField *TbListadoExtras4; + TMemoField *TbListadoNotas; + TStringField *TbListadoImagen; + TIntegerField *TbListadoIDcarpeta; + TStringField *TbListadoCarpeta; + TDBEdit *DBEdit17; + TDBEdit *DBEdit18; + TSpeedButton *SpeedButton12; + TSpeedButton *SpeedButton13; + TStringField *TbListadoTelefono3; + TStringField *TbListadoTelefono4; + TDBGrid *DBGrid3; + TIntegerField *TbListadoProveedor; + TIntegerField *TbListadoEmpleado; + TIntegerField *TbListadoCliente; + TIntegerField *TbListadoAmigo; + TCheckBox *CheckBox1; + TCheckBox *CheckBox2; + TCheckBox *CheckBox3; + TCheckBox *CheckBox4; + TDBEdit *DBEdit19; + TStringField *TbListadoCalle2; + TTabSheet *TabSheet7; + TPageControl *PageControl3; + TTabSheet *TabSheet8; + TTable *TbNotas; + TDataSource *DsNotas; + TDBCtrlGrid *DBCtrlGrid2; + TDBMemo *DBMemo3; + TDBText *DBText11; + TDBText *DBText12; + TDBText *DBText13; + TLabel *Label20; + TLabel *Label22; + TLabel *Label23; + TTabSheet *TabSheet9; + TLabel *Label36; + TDBText *DBText14; + TLabel *Label37; + TDBMemo *DBMemo4; + TLabel *Label38; + TDBText *DBText16; + TDBEdit *DBEdit32; + TElasticForm *ElasticForm1; + TLabel *Label39; + TLabel *Label40; + TDBText *DBText15; + TLabel *Label41; + TDBText *DBText17; + TDBEdit *DBEdit33; + TSplitter *Splitter1; + TDateTimeField *TbListadoFAlta; + TDateTimeField *TbListadoFModif; + TSession *Session1; + TImageList *FichaGeneral; + TImageList *Completa; + void __fastcall TbCarpetasBeforeOpen(TDataSet *DataSet); + void __fastcall TbListadoBeforeOpen(TDataSet *DataSet); + void __fastcall TbLlamadasBeforeOpen(TDataSet *DataSet); + void __fastcall FiltrarCategoriasClick(TObject *Sender); + void __fastcall FiltrarCarpetasClick(TObject *Sender); + void __fastcall BitBtn1Click(TObject *Sender); + void __fastcall AlfabetoChange(TObject *Sender); + void __fastcall DsCarpetasDataChange(TObject *Sender, TField *Field); + void __fastcall DsListadoDataChange(TObject *Sender, TField *Field); + void __fastcall FotoDblClick(TObject *Sender); + void __fastcall SpeedButton6Click(TObject *Sender); + void __fastcall SpeedButton5Click(TObject *Sender); + void __fastcall SpeedButton1Click(TObject *Sender); + void __fastcall SpeedButton2Click(TObject *Sender); + void __fastcall SpeedButton4Click(TObject *Sender); + void __fastcall SpeedButton3Click(TObject *Sender); + void __fastcall SpeedButton8Click(TObject *Sender); + void __fastcall SpeedButton7Click(TObject *Sender); + void __fastcall SpeedButton11Click(TObject *Sender); + void __fastcall BuscarFichaClick(TObject *Sender); + void __fastcall SpeedButton9Click(TObject *Sender); + void __fastcall TbListadoBeforeDelete(TDataSet *DataSet); + void __fastcall SelIndexChange(TObject *Sender); + void __fastcall BuscadorKeyUp(TObject *Sender, WORD &Key, + TShiftState Shift); + void __fastcall TbLlamadasNewRecord(TDataSet *DataSet); + void __fastcall FormClose(TObject *Sender, TCloseAction &Action); + void __fastcall MinFechaChange(TObject *Sender); + void __fastcall FiltroLlamadasClick(TObject *Sender); + + + void __fastcall DBText1DblClick(TObject *Sender); + void __fastcall TbListadoNewRecord(TDataSet *DataSet); + void __fastcall SpeedButton10Click(TObject *Sender); + void __fastcall CheckBox1Click(TObject *Sender); + void __fastcall CheckBox3Click(TObject *Sender); + void __fastcall CheckBox2Click(TObject *Sender); + void __fastcall CheckBox4Click(TObject *Sender); + void __fastcall TbNotasBeforeOpen(TDataSet *DataSet); + void __fastcall TbNotasNewRecord(TDataSet *DataSet); + void __fastcall DBMemo3DblClick(TObject *Sender); + void __fastcall PageControl1Change(TObject *Sender); + void __fastcall DBEdit32KeyUp(TObject *Sender, WORD &Key, + TShiftState Shift); + void __fastcall TbNotasBeforeDelete(TDataSet *DataSet); + void __fastcall NextField(TObject *Sender, char &Key); + void __fastcall NextField2(TObject *Sender, char &Key); + void __fastcall TbListadoBeforePost(TDataSet *DataSet); + void __fastcall DBMemo1Exit(TObject *Sender); + void __fastcall TbLlamadasBeforeDelete(TDataSet *DataSet); + +private: // User declarations + bool DBcorreos; + void __fastcall FiltraLlamadas( void ); +public: // User declarations + void __fastcall FiltraCriterios(void); + __fastcall TListadoClientes(TComponent* Owner); + bool OnDataChanged; + AnsiString DB_Path; +}; +//--------------------------------------------------------------------------- +extern PACKAGE TListadoClientes *ListadoClientes; +//--------------------------------------------------------------------------- +#endif + \ No newline at end of file diff --git a/AgendaLlamadas.bpr b/AgendaLlamadas.bpr new file mode 100644 index 0000000..8d8d807 --- /dev/null +++ b/AgendaLlamadas.bpr @@ -0,0 +1,108 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +[Version Info] +IncludeVerInfo=1 +AutoIncBuild=0 +MajorVer=1 +MinorVer=0 +Release=0 +Build=0 +Debug=0 +PreRelease=0 +Special=0 +Private=0 +DLL=0 +Locale=3082 +CodePage=1252 + +[Version Info Keys] +CompanyName=JD Soft +FileDescription=Visualizador de ficheros +FileVersion=1.0.0.0 +InternalName=recolector +LegalCopyright=JD Soft. 199x-2000 +LegalTrademarks=JD Soft. +OriginalFilename=Recolector.EXE +ProductName= +ProductVersion=1.0.0.0 +Comments= +url=http://www.jd.infdj.com +e-mail=jd@infdj.com + +[Debugging] +DebugSourceDirs=$(BCB)\source\vcl + +[Parameters] +RunParams= +HostApplication= +RemoteHost= +RemotePath= +RemoteDebug=0 + +[Compiler] +ShowInfoMsgs=0 +LinkDebugVcl=0 +LinkCGLIB=0 + +[CORBA] +AddServerUnit=1 +AddClientUnit=1 +PrecompiledHeaders=1 + +[Language] +ActiveLang= +ProjectLang= +RootDir= + + \ No newline at end of file diff --git a/AgendaLlamadas.cpp b/AgendaLlamadas.cpp new file mode 100644 index 0000000..07aa2a3 --- /dev/null +++ b/AgendaLlamadas.cpp @@ -0,0 +1,26 @@ +//--------------------------------------------------------------------------- +#include +#pragma hdrstop +USERES("AgendaLlamadas.res"); +USEFORM("Agenda.cpp", ListadoClientes); +USEFORM("DlgQueImprimir.cpp", DlgImprimir); +USEFORM("QR_ListadoGeneral.cpp", Form1); +USEFORM("QR_Mailing.cpp", QRLabelsForm); /* TQuickRep: File Type */ +USEFORM("QR_FichaCompleta.cpp", Form2); +//--------------------------------------------------------------------------- +WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) +{ + try + { + Application->Initialize(); + Application->CreateForm(__classid(TListadoClientes), &ListadoClientes); + Application->CreateForm(__classid(TForm2), &Form2); + Application->Run(); + } + catch (Exception &exception) + { + Application->ShowException(&exception); + } + return 0; +} +//--------------------------------------------------------------------------- diff --git a/AgendaLlamadas.exe b/AgendaLlamadas.exe new file mode 100644 index 0000000..c17c8b6 Binary files /dev/null and b/AgendaLlamadas.exe differ diff --git a/AgendaLlamadas.res b/AgendaLlamadas.res new file mode 100644 index 0000000..74d46d2 Binary files /dev/null and b/AgendaLlamadas.res differ diff --git a/DlgQueImprimir.cpp b/DlgQueImprimir.cpp new file mode 100644 index 0000000..01af428 --- /dev/null +++ b/DlgQueImprimir.cpp @@ -0,0 +1,64 @@ +//--------------------------------------------------------------------------- + +#include +#pragma hdrstop + +#include "DlgQueImprimir.h" +#include "QR_Mailing.h" +#include "QR_ListadoGeneral.h" +#include "QR_FichaCompleta.h" +//--------------------------------------------------------------------------- +#pragma package(smart_init) +#pragma resource "*.dfm" +TDlgImprimir *DlgImprimir; +//--------------------------------------------------------------------------- +__fastcall TDlgImprimir::TDlgImprimir(TComponent* Owner) + : TForm(Owner) +{ +} +//--------------------------------------------------------------------------- + +void __fastcall TDlgImprimir::Button2Click(TObject *Sender) +{ + Close(); +} +//--------------------------------------------------------------------------- +void __fastcall TDlgImprimir::Button1Click(TObject *Sender) +{ + + switch( RadioGroup1->ItemIndex ) + { + // Listado Completo + case 0: + TForm2 *QRComp; + QRComp = new TForm2(this); + if ( !CheckBox1->Checked ) + QRComp->QRBand2->BandType = rbDetail; + QRComp->QuickRep1->Print(); + delete QRComp; + break; + // Listado Rápido + case 1: + TForm1 *QRForm; + QRForm = new TForm1(this); + QRForm->QuickRep1->Preview(); + delete QRForm; + break; + // Pegatinas + case 2: + TQRLabelsForm *QRForm2; + QRForm2 = new TQRLabelsForm(this); + QRForm2->Preview(); + delete QRForm2; + break; + } +} +//--------------------------------------------------------------------------- +void __fastcall TDlgImprimir::RadioGroup1Click(TObject *Sender) +{ + if ( RadioGroup1->ItemIndex == 0 ) + CheckBox1->Visible = true; + else + CheckBox1->Visible = false; +} +//--------------------------------------------------------------------------- diff --git a/DlgQueImprimir.dfm b/DlgQueImprimir.dfm new file mode 100644 index 0000000..99378b8 --- /dev/null +++ b/DlgQueImprimir.dfm @@ -0,0 +1,62 @@ +object DlgImprimir: TDlgImprimir + Left = 498 + Top = 140 + Width = 243 + Height = 166 + BorderIcons = [biSystemMenu] + Caption = 'Imprimir...' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Position = poScreenCenter + PixelsPerInch = 96 + TextHeight = 13 + object RadioGroup1: TRadioGroup + Left = 8 + Top = 8 + Width = 137 + Height = 121 + Items.Strings = ( + 'Listado Completo' + 'Listado Rápido' + 'Pegatinas') + TabOrder = 0 + OnClick = RadioGroup1Click + end + object Button1: TButton + Left = 152 + Top = 72 + Width = 75 + Height = 25 + Caption = '&Aceptar' + TabOrder = 1 + OnClick = Button1Click + end + object Button2: TButton + Left = 152 + Top = 104 + Width = 75 + Height = 25 + Caption = '&Cancelar' + TabOrder = 2 + OnClick = Button2Click + end + object CheckBox1: TCheckBox + Left = 117 + Top = 31 + Width = 116 + Height = 17 + Alignment = taLeftJustify + BiDiMode = bdLeftToRight + Caption = '¿de solo esta Ficha?' + Checked = True + ParentBiDiMode = False + State = cbChecked + TabOrder = 3 + Visible = False + end +end diff --git a/DlgQueImprimir.h b/DlgQueImprimir.h new file mode 100644 index 0000000..d61d083 --- /dev/null +++ b/DlgQueImprimir.h @@ -0,0 +1,29 @@ +//--------------------------------------------------------------------------- + +#ifndef DlgQueImprimirH +#define DlgQueImprimirH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +//--------------------------------------------------------------------------- +class TDlgImprimir : public TForm +{ +__published: // IDE-managed Components + TRadioGroup *RadioGroup1; + TButton *Button1; + TButton *Button2; + TCheckBox *CheckBox1; + void __fastcall Button2Click(TObject *Sender); + void __fastcall Button1Click(TObject *Sender); + void __fastcall RadioGroup1Click(TObject *Sender); +private: // User declarations +public: // User declarations + __fastcall TDlgImprimir(TComponent* Owner); +}; +//--------------------------------------------------------------------------- +extern PACKAGE TDlgImprimir *DlgImprimir; +//--------------------------------------------------------------------------- +#endif diff --git a/Path.cfg b/Path.cfg new file mode 100644 index 0000000..327435f --- /dev/null +++ b/Path.cfg @@ -0,0 +1 @@ +datos\ \ No newline at end of file diff --git a/Path.cfg- b/Path.cfg- new file mode 100644 index 0000000..9ff05e1 --- /dev/null +++ b/Path.cfg- @@ -0,0 +1 @@ +\\Pablo\JDsoft-datos\ \ No newline at end of file diff --git a/QR_FichaCompleta.cpp b/QR_FichaCompleta.cpp new file mode 100644 index 0000000..e412353 --- /dev/null +++ b/QR_FichaCompleta.cpp @@ -0,0 +1,26 @@ +//--------------------------------------------------------------------------- + +#include +#pragma hdrstop + +#include "QR_FichaCompleta.h" +#include "Agenda.h" +//--------------------------------------------------------------------------- +#pragma package(smart_init) +#pragma resource "*.dfm" +TForm2 *Form2; +//--------------------------------------------------------------------------- +__fastcall TForm2::TForm2(TComponent* Owner) + : TForm(Owner) +{ +} +//--------------------------------------------------------------------------- + +void __fastcall TForm2::QRBand2BeforePrint(TQRCustomBand *Sender, + bool &PrintBand) +{ + if ( FileExists( ListadoClientes->DB_Path + "pictures\\"+ ListadoClientes->TbListado->FieldByName( "Imagen" )->AsString ) ) + QRImage1->Picture->LoadFromFile( ListadoClientes->DB_Path + "pictures\\" + ListadoClientes->TbListado->FieldByName( "Imagen" )->AsString ); +} +//--------------------------------------------------------------------------- + diff --git a/QR_FichaCompleta.dfm b/QR_FichaCompleta.dfm new file mode 100644 index 0000000..e23f344 --- /dev/null +++ b/QR_FichaCompleta.dfm @@ -0,0 +1,1896 @@ +object Form2: TForm2 + Left = 283 + Top = 130 + Width = 783 + Height = 720 + Caption = 'Form2' + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'MS Sans Serif' + Font.Style = [] + OldCreateOrder = False + Scaled = False + PixelsPerInch = 96 + TextHeight = 13 + object QuickRep1: TQuickRep + Left = 0 + Top = 0 + Width = 794 + Height = 1123 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + DataSet = ListadoClientes.TbListado + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [] + Functions.Strings = ( + 'PAGENUMBER' + 'COLUMNNUMBER' + 'REPORTTITLE') + Functions.DATA = ( + '0' + '0' + #39#39) + Options = [FirstPageHeader, LastPageFooter] + Page.Columns = 1 + Page.Orientation = poPortrait + Page.PaperSize = A4 + Page.Values = ( + 100 + 2970 + 100 + 2100 + 100 + 100 + 0) + PrinterSettings.Copies = 1 + PrinterSettings.Duplex = False + PrinterSettings.FirstPage = 0 + PrinterSettings.LastPage = 0 + PrinterSettings.OutputBin = Auto + PrintIfEmpty = True + SnapToGrid = True + Units = MM + Zoom = 100 + object QRBand2: TQRBand + Left = 38 + Top = 38 + Width = 718 + Height = 985 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + AlignToBottom = False + BeforePrint = QRBand2BeforePrint + Color = clWhite + ForceNewColumn = False + ForceNewPage = False + Size.Values = ( + 2606.14583333333 + 1899.70833333333) + BandType = rbTitle + object QRShape10: TQRShape + Left = 24 + Top = 720 + Width = 665 + Height = 223 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 590.020833333333 + 63.5 + 1905 + 1759.47916666667) + Shape = qrsRectangle + end + object QRShape6: TQRShape + Left = 32 + Top = 472 + Width = 665 + Height = 223 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 590.020833333333 + 84.6666666666667 + 1248.83333333333 + 1759.47916666667) + Shape = qrsRectangle + end + object QRShape3: TQRShape + Left = 32 + Top = 32 + Width = 665 + Height = 401 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 1060.97916666667 + 84.6666666666667 + 84.6666666666667 + 1759.47916666667) + Shape = qrsRectangle + end + object QRLabel1: TQRLabel + Left = 48 + Top = 88 + Width = 68 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 232.833333333333 + 179.916666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Nombre:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel2: TQRLabel + Left = 48 + Top = 112 + Width = 28 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 296.333333333333 + 74.0833333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Nif:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel3: TQRLabel + Left = 48 + Top = 152 + Width = 75 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 402.166666666667 + 198.4375) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Empresa:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel4: TQRLabel + Left = 48 + Top = 176 + Width = 72 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 465.666666666667 + 190.5) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Actividad' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel5: TQRLabel + Left = 48 + Top = 216 + Width = 74 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 571.5 + 195.791666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Teléfono:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel6: TQRLabel + Left = 48 + Top = 288 + Width = 52 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 762 + 137.583333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'e-mail:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel7: TQRLabel + Left = 48 + Top = 312 + Width = 27 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 825.5 + 71.4375) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'url:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel8: TQRLabel + Left = 48 + Top = 352 + Width = 45 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 931.333333333333 + 119.0625) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Calle:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel9: TQRLabel + Left = 472 + Top = 352 + Width = 49 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 1248.83333333333 + 931.333333333333 + 129.645833333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Núm::' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel10: TQRLabel + Left = 568 + Top = 352 + Width = 41 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 1502.83333333333 + 931.333333333333 + 108.479166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Piso:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel11: TQRLabel + Left = 48 + Top = 400 + Width = 79 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 1058.33333333333 + 209.020833333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Provincia:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel12: TQRLabel + Left = 336 + Top = 400 + Width = 84 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 889 + 1058.33333333333 + 222.25) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Población:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel13: TQRLabel + Left = 568 + Top = 400 + Width = 38 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 1502.83333333333 + 1058.33333333333 + 100.541666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'C.P.:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRImage1: TQRImage + Left = 592 + Top = 40 + Width = 89 + Height = 105 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 277.8125 + 1566.33333333333 + 105.833333333333 + 235.479166666667) + end + object QRShape1: TQRShape + Left = 0 + Top = 0 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 171.979166666667 + 0 + 0 + 171.979166666667) + Brush.Color = clBlack + Shape = qrsCircle + end + object QRShape2: TQRShape + Left = 32 + Top = 16 + Width = 193 + Height = 33 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 87.3125 + 84.6666666666667 + 42.3333333333333 + 510.645833333333) + Brush.Color = clNone + Shape = qrsRectangle + end + object QRLabel14: TQRLabel + Left = 88 + Top = 16 + Width = 83 + Height = 33 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 87.3125 + 232.833333333333 + 42.3333333333333 + 219.604166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Básico' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -27 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Transparent = True + WordWrap = True + FontSize = 20 + end + object QRShape4: TQRShape + Left = 48 + Top = 264 + Width = 641 + Height = 25 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 66.1458333333333 + 127 + 698.5 + 1695.97916666667) + Shape = qrsHorLine + end + object QRShape5: TQRShape + Left = 0 + Top = 440 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 171.979166666667 + 0 + 1164.16666666667 + 171.979166666667) + Brush.Color = clBlack + Shape = qrsCircle + end + object QRShape7: TQRShape + Left = 32 + Top = 456 + Width = 193 + Height = 33 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 87.3125 + 84.6666666666667 + 1206.5 + 510.645833333333) + Brush.Color = clNone + Shape = qrsRectangle + end + object QRLabel15: TQRLabel + Left = 40 + Top = 460 + Width = 176 + Height = 28 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 74.0833333333333 + 105.833333333333 + 1217.08333333333 + 465.666666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Datos Bancarios' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Transparent = True + WordWrap = True + FontSize = 18 + end + object QRLabel16: TQRLabel + Left = 48 + Top = 504 + Width = 55 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 1333.5 + 145.520833333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Titular:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel17: TQRLabel + Left = 488 + Top = 504 + Width = 33 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 1291.16666666667 + 1333.5 + 87.3125) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'NIF:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel18: TQRLabel + Left = 48 + Top = 528 + Width = 138 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 1397 + 365.125) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Entidad Bancaria:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel19: TQRLabel + Left = 48 + Top = 560 + Width = 45 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 1481.66666666667 + 119.0625) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Calle:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel20: TQRLabel + Left = 488 + Top = 560 + Width = 25 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 1291.16666666667 + 1481.66666666667 + 66.1458333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Nº:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel21: TQRLabel + Left = 48 + Top = 584 + Width = 84 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 1545.16666666667 + 222.25) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Población:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel22: TQRLabel + Left = 48 + Top = 608 + Width = 79 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 1608.66666666667 + 209.020833333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Provincia:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel23: TQRLabel + Left = 488 + Top = 584 + Width = 44 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 1291.16666666667 + 1545.16666666667 + 116.416666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'C.P.::' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel24: TQRLabel + Left = 48 + Top = 640 + Width = 55 + Height = 20 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 52.9166666666667 + 127 + 1693.33333333333 + 145.520833333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'C.C.C.:' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = 'Arial' + Font.Style = [fsBold] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRLabel25: TQRLabel + Left = 136 + Top = 672 + Width = 45 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 359.833333333333 + 1778 + 119.0625) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Entidad' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 10 + end + object QRLabel26: TQRLabel + Left = 216 + Top = 672 + Width = 52 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 571.5 + 1778 + 137.583333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Sucursal' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 10 + end + object QRLabel27: TQRLabel + Left = 296 + Top = 672 + Width = 19 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 783.166666666667 + 1778 + 50.2708333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'DC' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 10 + end + object QRLabel28: TQRLabel + Left = 376 + Top = 672 + Width = 77 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 994.833333333333 + 1778 + 203.729166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Nª de Cuenta' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -13 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Transparent = False + WordWrap = True + FontSize = 10 + end + object QRShape8: TQRShape + Left = 0 + Top = 704 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 171.979166666667 + 0 + 1862.66666666667 + 171.979166666667) + Brush.Color = clBlack + Shape = qrsCircle + end + object QRShape9: TQRShape + Left = 24 + Top = 720 + Width = 193 + Height = 33 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 87.3125 + 63.5 + 1905 + 510.645833333333) + Brush.Color = clNone + Shape = qrsRectangle + end + object QRLabel29: TQRLabel + Left = 32 + Top = 724 + Width = 89 + Height = 28 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 74.0833333333333 + 84.6666666666667 + 1915.58333333333 + 235.479166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Caption = 'Extras...' + Color = clWhite + Font.Charset = DEFAULT_CHARSET + Font.Color = clBlack + Font.Height = -24 + Font.Name = 'Arial' + Font.Style = [] + ParentFont = False + Transparent = True + WordWrap = True + FontSize = 18 + end + object QRDBText1: TQRDBText + Left = 48 + Top = 777 + Width = 42 + Height = 25 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 66.1458333333333 + 127 + 2055.8125 + 111.125) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Notas' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText2: TQRDBText + Left = 104 + Top = 505 + Width = 131 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 275.166666666667 + 1336.14583333333 + 346.604166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Titular de la cuenta' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText3: TQRDBText + Left = 192 + Top = 529 + Width = 122 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 508 + 1399.64583333333 + 322.791666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Entidad Bancaria' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText4: TQRDBText + Left = 528 + Top = 505 + Width = 91 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1397 + 1336.14583333333 + 240.770833333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Nif del Titular' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText5: TQRDBText + Left = 96 + Top = 561 + Width = 91 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 254 + 1484.3125 + 240.770833333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Banco_Calle' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText6: TQRDBText + Left = 136 + Top = 585 + Width = 125 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 359.833333333333 + 1547.8125 + 330.729166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Banco_Población' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText7: TQRDBText + Left = 136 + Top = 609 + Width = 120 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 359.833333333333 + 1611.3125 + 317.5) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Banco_Provincia' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText8: TQRDBText + Left = 536 + Top = 585 + Width = 78 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1418.16666666667 + 1547.8125 + 206.375) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Banco_CP' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText9: TQRDBText + Left = 520 + Top = 561 + Width = 87 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1375.83333333333 + 1484.3125 + 230.1875) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Banco_Num' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText10: TQRDBText + Left = 136 + Top = 401 + Width = 66 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 359.833333333333 + 1060.97916666667 + 174.625) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Provincia' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText11: TQRDBText + Left = 424 + Top = 401 + Width = 71 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1121.83333333333 + 1060.97916666667 + 187.854166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Población' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText12: TQRDBText + Left = 608 + Top = 401 + Width = 24 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1608.66666666667 + 1060.97916666667 + 63.5) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'CP' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText13: TQRDBText + Left = 96 + Top = 353 + Width = 37 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 254 + 933.979166666667 + 97.8958333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Calle' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText14: TQRDBText + Left = 96 + Top = 377 + Width = 46 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 254 + 997.479166666667 + 121.708333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Calle2' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText15: TQRDBText + Left = 528 + Top = 353 + Width = 33 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1397 + 933.979166666667 + 87.3125) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Num' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText16: TQRDBText + Left = 616 + Top = 353 + Width = 33 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1629.83333333333 + 933.979166666667 + 87.3125) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Piso' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText17: TQRDBText + Left = 656 + Top = 353 + Width = 37 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1735.66666666667 + 933.979166666667 + 97.8958333333333) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Letra' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText18: TQRDBText + Left = 80 + Top = 313 + Width = 17 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 211.666666666667 + 828.145833333333 + 44.9791666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'url' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText19: TQRDBText + Left = 104 + Top = 289 + Width = 44 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 275.166666666667 + 764.645833333333 + 116.416666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'e-Mail' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText20: TQRDBText + Left = 128 + Top = 217 + Width = 74 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 338.666666666667 + 574.145833333333 + 195.791666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Telefono 1' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText21: TQRDBText + Left = 392 + Top = 217 + Width = 74 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1037.16666666667 + 574.145833333333 + 195.791666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Telefono 2' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText22: TQRDBText + Left = 128 + Top = 241 + Width = 74 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 338.666666666667 + 637.645833333333 + 195.791666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Telefono 3' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText23: TQRDBText + Left = 392 + Top = 241 + Width = 74 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1037.16666666667 + 637.645833333333 + 195.791666666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Telefono 4' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText24: TQRDBText + Left = 128 + Top = 177 + Width = 66 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 338.666666666667 + 468.3125 + 174.625) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Actividad' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText25: TQRDBText + Left = 128 + Top = 153 + Width = 65 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 338.666666666667 + 404.8125 + 171.979166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Empresa' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText26: TQRDBText + Left = 80 + Top = 113 + Width = 125 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 211.666666666667 + 298.979166666667 + 330.729166666667) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Dni Nif Pasaporte' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText27: TQRDBText + Left = 128 + Top = 89 + Width = 66 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 338.666666666667 + 235.479166666667 + 174.625) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Apellidos' + Transparent = False + WordWrap = True + FontSize = 12 + end + object QRDBText28: TQRDBText + Left = 392 + Top = 89 + Width = 57 + Height = 19 + Frame.Color = clBlack + Frame.DrawTop = False + Frame.DrawBottom = False + Frame.DrawLeft = False + Frame.DrawRight = False + Size.Values = ( + 50.2708333333333 + 1037.16666666667 + 235.479166666667 + 150.8125) + Alignment = taLeftJustify + AlignToBand = False + AutoSize = True + AutoStretch = False + Color = clWhite + DataSet = ListadoClientes.TbListado + DataField = 'Nombre' + Transparent = False + WordWrap = True + FontSize = 12 + end + end + end +end diff --git a/QR_FichaCompleta.h b/QR_FichaCompleta.h new file mode 100644 index 0000000..837c8a3 --- /dev/null +++ b/QR_FichaCompleta.h @@ -0,0 +1,96 @@ +//--------------------------------------------------------------------------- + +#ifndef QR_FichaCompletaH +#define QR_FichaCompletaH +//--------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +//--------------------------------------------------------------------------- +class TForm2 : public TForm +{ +__published: // IDE-managed Components + TQuickRep *QuickRep1; + TQRBand *QRBand2; + TQRLabel *QRLabel1; + TQRLabel *QRLabel2; + TQRLabel *QRLabel3; + TQRLabel *QRLabel4; + TQRLabel *QRLabel5; + TQRLabel *QRLabel6; + TQRLabel *QRLabel7; + TQRLabel *QRLabel8; + TQRLabel *QRLabel9; + TQRLabel *QRLabel10; + TQRLabel *QRLabel11; + TQRLabel *QRLabel12; + TQRLabel *QRLabel13; + TQRImage *QRImage1; + TQRShape *QRShape1; + TQRShape *QRShape2; + TQRShape *QRShape3; + TQRLabel *QRLabel14; + TQRShape *QRShape4; + TQRShape *QRShape5; + TQRLabel *QRLabel15; + TQRShape *QRShape6; + TQRShape *QRShape7; + TQRLabel *QRLabel16; + TQRLabel *QRLabel17; + TQRLabel *QRLabel18; + TQRLabel *QRLabel19; + TQRLabel *QRLabel20; + TQRLabel *QRLabel21; + TQRLabel *QRLabel22; + TQRLabel *QRLabel23; + TQRLabel *QRLabel24; + TQRLabel *QRLabel25; + TQRLabel *QRLabel26; + TQRLabel *QRLabel27; + TQRLabel *QRLabel28; + TQRShape *QRShape8; + TQRShape *QRShape9; + TQRLabel *QRLabel29; + TQRShape *QRShape10; + TQRDBText *QRDBText1; + TQRDBText *QRDBText2; + TQRDBText *QRDBText3; + TQRDBText *QRDBText4; + TQRDBText *QRDBText5; + TQRDBText *QRDBText6; + TQRDBText *QRDBText7; + TQRDBText *QRDBText8; + TQRDBText *QRDBText9; + TQRDBText *QRDBText10; + TQRDBText *QRDBText11; + TQRDBText *QRDBText12; + TQRDBText *QRDBText13; + TQRDBText *QRDBText14; + TQRDBText *QRDBText15; + TQRDBText *QRDBText16; + TQRDBText *QRDBText17; + TQRDBText *QRDBText18; + TQRDBText *QRDBText19; + TQRDBText *QRDBText20; + TQRDBText *QRDBText21; + TQRDBText *QRDBText22; + TQRDBText *QRDBText23; + TQRDBText *QRDBText24; + TQRDBText *QRDBText25; + TQRDBText *QRDBText26; + TQRDBText *QRDBText27; + TQRDBText *QRDBText28; + void __fastcall QRBand2BeforePrint(TQRCustomBand *Sender, + bool &PrintBand); +private: // User declarations +public: // User declarations + __fastcall TForm2(TComponent* Owner); +}; +//--------------------------------------------------------------------------- +extern PACKAGE TForm2 *Form2; +//--------------------------------------------------------------------------- +#endif diff --git a/QR_ListadoGeneral.cpp b/QR_ListadoGeneral.cpp new file mode 100644 index 0000000..5057a4c --- /dev/null +++ b/QR_ListadoGeneral.cpp @@ -0,0 +1,15 @@ +//---------------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "QR_ListadoGeneral.h" +#include "Agenda.h" +//---------------------------------------------------------------------------- +#pragma resource "*.dfm" +TForm1 *Form1; +//---------------------------------------------------------------------------- +__fastcall TForm1::TForm1(TComponent* Owner) + : TForm(Owner) +{ +} +//---------------------------------------------------------------------------- \ No newline at end of file diff --git a/QR_ListadoGeneral.dfm b/QR_ListadoGeneral.dfm new file mode 100644 index 0000000..c54aeef Binary files /dev/null and b/QR_ListadoGeneral.dfm differ diff --git a/QR_ListadoGeneral.h b/QR_ListadoGeneral.h new file mode 100644 index 0000000..dd27ddb --- /dev/null +++ b/QR_ListadoGeneral.h @@ -0,0 +1,43 @@ +//---------------------------------------------------------------------------- +#ifndef QR_ListadoGeneralH +#define QR_ListadoGeneralH +//---------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TForm1 : public TForm +{ +__published: + TQuickRep *QuickRep1; + TQRBand *TitleBand1; + TQRLabel *QRLabel1; + TQRBand *PageFooterBand1; + TQRSysData *QRSysData1; + TQRBand *ColumnHeaderBand1; + TQRBand *DetailBand1; + TQRLabel *QRLabel2; + TQRExpr *QRExpr1; + TQRLabel *QRLabel3; + TQRExpr *QRExpr2; + TQRLabel *QRLabel4; + TQRExpr *QRExpr3; + TQRLabel *QRLabel5; + TQRExpr *QRExpr4; + TQRExpr *QRExpr5; +private: +public: + __fastcall TForm1(TComponent* Owner); +}; +//---------------------------------------------------------------------------- +extern PACKAGE TForm1 *Form1; +//---------------------------------------------------------------------------- +#endif \ No newline at end of file diff --git a/QR_Mailing.cpp b/QR_Mailing.cpp new file mode 100644 index 0000000..b3a72cd --- /dev/null +++ b/QR_Mailing.cpp @@ -0,0 +1,15 @@ +//--------------------------------------------------------------------- +#include +#pragma hdrstop + +#include "QR_Mailing.h" +#include "Agenda.h" +//--------------------------------------------------------------------- +#pragma resource "*.dfm" +TQRLabelsForm *QRLabelsForm; +//--------------------------------------------------------------------- +__fastcall TQRLabelsForm::TQRLabelsForm(TComponent* AOwner) + : TQuickRep(AOwner) +{ +} +//--------------------------------------------------------------------- diff --git a/QR_Mailing.dfm b/QR_Mailing.dfm new file mode 100644 index 0000000..13cf1bf Binary files /dev/null and b/QR_Mailing.dfm differ diff --git a/QR_Mailing.h b/QR_Mailing.h new file mode 100644 index 0000000..d05d59e --- /dev/null +++ b/QR_Mailing.h @@ -0,0 +1,42 @@ +//---------------------------------------------------------------------------- +#ifndef QR_MailingH +#define QR_MailingH +//---------------------------------------------------------------------------- +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +#include +//---------------------------------------------------------------------------- +class TQRLabelsForm : public TQuickRep +{ +__published: + TQRBand *DetailBand1; + TQRDBText *QRDBText1; + TQRDBText *QRDBText2; + TQRDBText *QRDBText3; + TQRDBText *QRDBText4; + TQRDBText *QRDBText5; + TQRDBText *QRDBText6; + TQRDBText *QRDBText7; + TQRDBText *QRDBText8; + TQRDBText *QRDBText9; + TQRDBText *QRDBText10; +private: +public: + virtual __fastcall TQRLabelsForm(TComponent* AOwner); +}; +//---------------------------------------------------------------------------- +extern PACKAGE TQRLabelsForm *QRLabelsForm; +//---------------------------------------------------------------------------- +#endif diff --git a/README.md b/README.md new file mode 100644 index 0000000..4cbb09e --- /dev/null +++ b/README.md @@ -0,0 +1,9 @@ +#06-jul-2002 + + +*27/10/2000* + +ToDo: wwtcf? + + +![screenshot](/06-jul-2002.png "Screenshot") diff --git a/datos/Pictures/iError.bmp b/datos/Pictures/iError.bmp new file mode 100644 index 0000000..165310b Binary files /dev/null and b/datos/Pictures/iError.bmp differ diff --git a/datos/carpetas.DB b/datos/carpetas.DB new file mode 100644 index 0000000..ef0c659 Binary files /dev/null and b/datos/carpetas.DB differ diff --git a/datos/llamadas.DB b/datos/llamadas.DB new file mode 100644 index 0000000..6609415 Binary files /dev/null and b/datos/llamadas.DB differ diff --git a/datos/llamadas.MB b/datos/llamadas.MB new file mode 100644 index 0000000..5a8b7d0 Binary files /dev/null and b/datos/llamadas.MB differ diff --git a/datos/llamadas.PX b/datos/llamadas.PX new file mode 100644 index 0000000..ca4b47a Binary files /dev/null and b/datos/llamadas.PX differ diff --git a/datos/llamadas.XG0 b/datos/llamadas.XG0 new file mode 100644 index 0000000..148fa59 Binary files /dev/null and b/datos/llamadas.XG0 differ diff --git a/datos/llamadas.YG0 b/datos/llamadas.YG0 new file mode 100644 index 0000000..3061164 Binary files /dev/null and b/datos/llamadas.YG0 differ diff --git a/datos/misnotas.DB b/datos/misnotas.DB new file mode 100644 index 0000000..bf47c42 Binary files /dev/null and b/datos/misnotas.DB differ diff --git a/datos/misnotas.MB b/datos/misnotas.MB new file mode 100644 index 0000000..5a8b7d0 Binary files /dev/null and b/datos/misnotas.MB differ diff --git a/datos/misnotas.PX b/datos/misnotas.PX new file mode 100644 index 0000000..d5fadee Binary files /dev/null and b/datos/misnotas.PX differ diff --git a/datos/personas.DB b/datos/personas.DB new file mode 100644 index 0000000..98c7a8e Binary files /dev/null and b/datos/personas.DB differ diff --git a/datos/personas.MB b/datos/personas.MB new file mode 100644 index 0000000..5a8b7d0 Binary files /dev/null and b/datos/personas.MB differ diff --git a/datos/personas.PX b/datos/personas.PX new file mode 100644 index 0000000..79e0da2 Binary files /dev/null and b/datos/personas.PX differ diff --git a/datos/personas.XG0 b/datos/personas.XG0 new file mode 100644 index 0000000..f4a3167 Binary files /dev/null and b/datos/personas.XG0 differ diff --git a/datos/personas.XG1 b/datos/personas.XG1 new file mode 100644 index 0000000..5e8ea5d Binary files /dev/null and b/datos/personas.XG1 differ diff --git a/datos/personas.XG2 b/datos/personas.XG2 new file mode 100644 index 0000000..672abbf Binary files /dev/null and b/datos/personas.XG2 differ diff --git a/datos/personas.XG3 b/datos/personas.XG3 new file mode 100644 index 0000000..c1ee540 Binary files /dev/null and b/datos/personas.XG3 differ diff --git a/datos/personas.XG4 b/datos/personas.XG4 new file mode 100644 index 0000000..80504c7 Binary files /dev/null and b/datos/personas.XG4 differ diff --git a/datos/personas.XG5 b/datos/personas.XG5 new file mode 100644 index 0000000..c220605 Binary files /dev/null and b/datos/personas.XG5 differ diff --git a/datos/personas.YG0 b/datos/personas.YG0 new file mode 100644 index 0000000..a76611b Binary files /dev/null and b/datos/personas.YG0 differ diff --git a/datos/personas.YG1 b/datos/personas.YG1 new file mode 100644 index 0000000..0face4d Binary files /dev/null and b/datos/personas.YG1 differ diff --git a/datos/personas.YG2 b/datos/personas.YG2 new file mode 100644 index 0000000..35174d5 Binary files /dev/null and b/datos/personas.YG2 differ diff --git a/datos/personas.YG3 b/datos/personas.YG3 new file mode 100644 index 0000000..5588c43 Binary files /dev/null and b/datos/personas.YG3 differ diff --git a/datos/personas.YG4 b/datos/personas.YG4 new file mode 100644 index 0000000..32ce5b1 Binary files /dev/null and b/datos/personas.YG4 differ diff --git a/datos/personas.YG5 b/datos/personas.YG5 new file mode 100644 index 0000000..dd939f3 Binary files /dev/null and b/datos/personas.YG5 differ diff --git a/jdsoft.bmp b/jdsoft.bmp new file mode 100644 index 0000000..5fa07d0 Binary files /dev/null and b/jdsoft.bmp differ diff --git a/logo.bmp- b/logo.bmp- new file mode 100644 index 0000000..3e48c96 Binary files /dev/null and b/logo.bmp- differ