//--------------------------------------------------------------------------- #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