//--------------------------------------------------------------------------- #ifndef MainH #define MainH //--------------------------------------------------------------------------- #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include //--------------------------------------------------------------------------- class TForm1 : public TForm { __published: // IDE-managed Components TDataSource *DsImp; TTable *TbImp; TOpenDialog *OpenDialog1; TStringField *TbImpidS; TStringField *TbImpDescS; TCurrencyField *TbImpPVD; TIntegerField *TbImpstatus; TIntegerField *TbImpidT; TIntegerField *TbImpDescT; TTable *TbDatosT; TStringField *TbImpdescr; TCurrencyField *TbImpPVDa; TCurrencyField *TbImpinc; TCurrencyField *TbImpnewPVP; TCurrencyField *TbImpPVP; TMainMenu *MainMenu1; TMenuItem *Archivo1; TMenuItem *Acercade1; TMenuItem *Cargarasociaciones1; TMenuItem *NuevaAsociacion1; TMenuItem *CargarDatosacotejar1; TMenuItem *N1; TMenuItem *Salir1; TMenuItem *Ver1; TMenuItem *BarradeHerramientas1; TMenuItem *BarradeEstado1; TStatusBar *StatusBar1; TCoolBar *CoolBar1; TToolBar *ToolBar1; TToolButton *ToolButton1; TImageList *ImageList1; TToolButton *ToolButton2; TToolButton *ToolButton3; TToolButton *ToolButton4; TToolButton *ToolButton5; TToolButton *ToolButton6; TToolButton *ToolButton7; TMenuItem *Ejecutar1; TMenuItem *ConfigurarImportacin1; TMenuItem *FusionarNuevosdatos1; TPageControl *PageControl1; TTabSheet *TabSheet1; TTabSheet *TabSheet2; TDBGrid *DBGrid1; TComboBox *ComboBox2; TComboBox *ComboBox1; TLabel *Label1; TLabel *Label2; TComboBox *ComboBox3; TComboBox *ComboBox4; TCheckBox *anuevos; TCheckBox *viudos; TLabel *Label3; TLabel *Label4; TLabel *Label5; TBevel *Bevel1; TBevel *Bevel2; TEdit *FileToImport; TToolButton *ToolButton8; TSaveDialog *SaveDialog1; TLabel *AsociacionActual; TBevel *Bevel3; TLabel *Label6; TLabel *Label7; TLabel *Label8; TLabel *Label9; TLabel *Label10; TLabel *Label11; TImage *DsO; TImage *OsD; TShape *Shape1; TMenuItem *N2; TMenuItem *FiltrarporAsociados1; TMenuItem *FiltrarporNoAsociados1; TMenuItem *VersoloNOAsociados1; void __fastcall TbImpBeforeOpen(TDataSet *DataSet); void __fastcall TbImpCalcFields(TDataSet *DataSet); void __fastcall Salir1Click(TObject *Sender); void __fastcall Acercade1Click(TObject *Sender); void __fastcall BarradeEstado1Click(TObject *Sender); void __fastcall BarradeHerramientas1Click(TObject *Sender); void __fastcall ToolButton1Click(TObject *Sender); void __fastcall ConfigurarImportacin1Click(TObject *Sender); void __fastcall CargarDatosacotejar1Click(TObject *Sender); void __fastcall NuevaAsociacion1Click(TObject *Sender); void __fastcall Cargarasociaciones1Click(TObject *Sender); void __fastcall DBGrid1DrawColumnCell(TObject *Sender, const TRect &Rect, int DataCol, TColumn *Column, TGridDrawState State); void __fastcall FusionarNuevosdatos1Click(TObject *Sender); void __fastcall VersoloNOAsociados1Click(TObject *Sender); void __fastcall FiltrarporNoAsociados1Click(TObject *Sender); void __fastcall FiltrarporAsociados1Click(TObject *Sender); private: // User declarations void __fastcall MergeImport( AnsiString Fich ); bool __fastcall DecoCampos( char *datos, int posID, AnsiString &ID, int posDesc, AnsiString &Desc, int posPVD, Currency &PVD ); bool __fastcall ObtenCampo( char *datos, int pos, char *dest ); bool __fastcall EliminaCaracter( char *datos, char c ); public: // User declarations __fastcall TForm1(TComponent* Owner); AnsiString BaseDir, ImpName; void __fastcall SaveCFG( AnsiString DB ); void __fastcall LoadDataBase( AnsiString DB ); }; //--------------------------------------------------------------------------- extern PACKAGE TForm1 *Form1; //--------------------------------------------------------------------------- #endif