Files
AgendaLlamadas/Agenda.h
2021-09-12 21:55:41 +02:00

325 lines
10 KiB
C++

//---------------------------------------------------------------------------
#ifndef AgendaH
#define AgendaH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <Db.hpp>
#include <DBGrids.hpp>
#include <DBTables.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include <DBCGrids.hpp>
#include <DBCtrls.hpp>
#include <Mask.hpp>
#include <Dialogs.hpp>
#include <ExtDlgs.hpp>
#include <Graphics.hpp>
#include "elastfrm.hpp"
#include "ElastFrm.hpp"
#include <ImgList.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
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