diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2" index 6cfc6a8..3c30eb1 100644 --- "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2.pre_runda1.bak" +++ "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\onom_clienti.vc2" @@ -449,7 +449,6 @@ DEFINE CLASS frm_agenti AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Anchor = 15, ; ColumnCount = 5, ; DeleteMark = .F., ; - FontName = "Arial Narrow", ; Height = 336, ; Left = 15, ; Name = "grd_agenti", ; @@ -461,27 +460,22 @@ DEFINE CLASS frm_agenti AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" ZOrderSet = 6, ; Column1.ColumnOrder = 3, ; Column1.ControlSource = "zona", ; - Column1.FontName = "Arial Narrow", ; Column1.Name = "cZona", ; Column1.Width = 172, ; Column2.ColumnOrder = 1, ; Column2.ControlSource = "nume_agent", ; - Column2.FontName = "Arial Narrow", ; Column2.Name = "cNume", ; Column2.Width = 205, ; Column3.ColumnOrder = 4, ; Column3.ControlSource = "telefon1", ; - Column3.FontName = "Arial Narrow", ; Column3.Name = "cTelefon1", ; Column3.Width = 116, ; Column4.ColumnOrder = 2, ; Column4.ControlSource = "functie", ; - Column4.FontName = "Arial Narrow", ; Column4.Name = "cFunctia", ; Column4.Width = 127, ; Column5.ColumnOrder = 5, ; Column5.ControlSource = "telefon2", ; - Column5.FontName = "Arial Narrow", ; Column5.Name = "cTelefon2", ; Column5.Width = 116 *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> @@ -489,81 +483,72 @@ DEFINE CLASS frm_agenti AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" ADD OBJECT 'grd_agenti.cFunctia.Header1' AS header WITH ; Alignment = 2, ; Caption = "Functie", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_agenti.cFunctia.Text1' AS textbox WITH ; + ADD OBJECT 'grd_agenti.cFunctia.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_agenti.cNume.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nume", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_agenti.cNume.Text1' AS textbox WITH ; + ADD OBJECT 'grd_agenti.cNume.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_agenti.cTelefon1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Telefon 1", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_agenti.cTelefon1.Text1' AS textbox WITH ; + ADD OBJECT 'grd_agenti.cTelefon1.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_agenti.cTelefon2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Telefon 2", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_agenti.cTelefon2.Text1' AS textbox WITH ; + ADD OBJECT 'grd_agenti.cTelefon2.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_agenti.cZona.Header1' AS header WITH ; Alignment = 2, ; Caption = "Zona", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_agenti.cZona.Text1' AS textbox WITH ; + ADD OBJECT 'grd_agenti.cZona.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 Lparameters lcFiltru @@ -1006,7 +991,6 @@ DEFINE CLASS frm_clienti AS _frmbase OF "..\comun\clase\_frm_base.vcx" ADD OBJECT 'grd_clienti' AS _grdrow WITH ; ColumnCount = 9, ; DeleteMark = .F., ; - FontName = "Arial Narrow", ; Height = 366, ; Left = 15, ; Name = "grd_clienti", ; @@ -1017,41 +1001,32 @@ DEFINE CLASS frm_clienti AS _frmbase OF "..\comun\clase\_frm_base.vcx" Width = 636, ; ZOrderSet = 6, ; Column1.ControlSource = "nume", ; - Column1.FontName = "Arial Narrow", ; Column1.Name = "cNume", ; Column1.Width = 172, ; Column2.ControlSource = "cod_fiscal", ; - Column2.FontName = "Arial Narrow", ; Column2.Name = "cCod_fiscal", ; Column2.Width = 91, ; Column3.ControlSource = "telefon", ; - Column3.FontName = "Arial Narrow", ; Column3.Name = "cTelefon", ; Column4.ControlSource = "adresa", ; - Column4.FontName = "Arial Narrow", ; Column4.Name = "cAdresa", ; Column4.Width = 270, ; Column5.ControlSource = "banca", ; - Column5.FontName = "Arial Narrow", ; Column5.Name = "cBanca", ; Column5.Width = 114, ; Column6.ControlSource = "cont_banca", ; - Column6.FontName = "Arial Narrow", ; Column6.Name = "cCont_banca", ; Column6.Width = 52, ; Column7.ControlSource = "reg_comert", ; - Column7.FontName = "Arial Narrow", ; Column7.Name = "cReg_comert", ; Column7.Width = 133, ; Column8.ColumnOrder = 9, ; Column8.ControlSource = "judet", ; - Column8.FontName = "Arial Narrow", ; Column8.Name = "cJudet", ; Column8.Visible = .T., ; Column8.Width = 68, ; Column9.ColumnOrder = 8, ; Column9.ControlSource = "localitate", ; - Column9.FontName = "Arial Narrow", ; Column9.Name = "cLocalitate", ; Column9.Width = 127 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> @@ -1059,147 +1034,129 @@ DEFINE CLASS frm_clienti AS _frmbase OF "..\comun\clase\_frm_base.vcx" ADD OBJECT 'grd_clienti.cAdresa.Header1' AS header WITH ; Alignment = 2, ; Caption = "Adresa", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cAdresa.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cAdresa.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cBanca.Header1' AS header WITH ; Alignment = 2, ; Caption = "Banca", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cBanca.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cBanca.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cCod_fiscal.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cod fiscal", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cCod_fiscal.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cCod_fiscal.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cCont_banca.Header1' AS header WITH ; Alignment = 2, ; Caption = "Cont", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cCont_banca.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cCont_banca.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cJudet.Header1' AS header WITH ; Alignment = 2, ; Caption = "Judet", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cJudet.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cJudet.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; Visible = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cLocalitate.Header1' AS header WITH ; Alignment = 2, ; Caption = "Localitate", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cLocalitate.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cLocalitate.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cNume.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nume client", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cNume.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cNume.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cReg_comert.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr.Reg.Com.", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cReg_comert.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cReg_comert.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grd_clienti.cTelefon.Header1' AS header WITH ; Alignment = 2, ; Caption = "Telefon", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grd_clienti.cTelefon.Text1' AS textbox WITH ; + ADD OBJECT 'grd_clienti.cTelefon.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 Lparameters lcFiltru @@ -1709,7 +1666,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" AutoSize = .T., ; camp_nume = data, ; Caption = "Data", ; - FontName = "Arial Narrow", ; Left = 54, ; Name = "Ck_data", ; TabIndex = 1, ; @@ -1723,7 +1679,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" AutoSize = .T., ; camp_nume = data2, ; Caption = "Data2", ; - FontName = "Arial Narrow", ; Left = 99, ; Name = "Ck_data2", ; TabIndex = 1, ; @@ -1738,7 +1693,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" camp_nume = nume_val, ; Caption = "Valuta", ; Comment = "*:OnResize=LT", ; - FontName = "Arial Narrow", ; Left = 6, ; Name = "Ck_numeval", ; TabIndex = 19, ; @@ -1774,7 +1728,6 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Anchor = 15, ; ColumnCount = 4, ; DeleteMark = .F., ; - FontName = "Arial Narrow", ; Height = 341, ; Left = 8, ; Name = "grid_curs", ; @@ -1784,21 +1737,17 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Top = 68, ; Width = 258, ; Column1.ControlSource = "nume_val", ; - Column1.FontName = "Arial Narrow", ; Column1.Name = "Column1", ; Column1.Width = 74, ; Column2.ControlSource = "curs", ; - Column2.FontName = "Arial Narrow", ; Column2.Format = "rk", ; Column2.InputMask = (get_mask(10,gnPCurs)), ; Column2.Name = "Column2", ; Column2.Width = 58, ; Column3.ControlSource = "data", ; - Column3.FontName = "Arial Narrow", ; Column3.Name = "Column3", ; Column3.Width = 49, ; Column4.ControlSource = "data2", ; - Column4.FontName = "Arial Narrow", ; Column4.Name = "Column4", ; Column4.Width = 51 *< END OBJECT: ClassLib="..\..\comun\clase\_grd_base.vcx" BaseClass="grid" /> @@ -1806,66 +1755,58 @@ DEFINE CLASS frm_curs AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" ADD OBJECT 'grid_curs.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nume valuta", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_curs.Column1.Text1' AS textbox WITH ; + ADD OBJECT 'grid_curs.Column1.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grid_curs.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Curs", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_curs.Column2.Text1' AS textbox WITH ; + ADD OBJECT 'grid_curs.Column2.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grid_curs.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_curs.Column3.Text1' AS textbox WITH ; + ADD OBJECT 'grid_curs.Column3.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'grid_curs.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data2", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_curs.Column4.Text1' AS textbox WITH ; + ADD OBJECT 'grid_curs.Column4.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 LPARAMETERS pcFiltru @@ -2007,9 +1948,8 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Top = 1 *< END OBJECT: ClassLib="..\..\comun\clase\cmd_butoane.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'Command2' AS commandbutton WITH ; + ADD OBJECT 'Command2' AS _commandbutton WITH ; Caption = "", ; - FontName = "Arial Narrow", ; Height = 25, ; Left = 168, ; Name = "Command2", ; @@ -2017,7 +1957,7 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 1, ; Top = 36, ; Width = 28 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> ADD OBJECT 'CUS_ODATA_CURS1' AS cus_odata_curs WITH ; Left = 102, ; @@ -2025,7 +1965,7 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Top = 8 *< END OBJECT: ClassLib="onom_clienti.vcx" BaseClass="custom" /> - ADD OBJECT 'Label1' AS label WITH ; + ADD OBJECT 'Label1' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nume valuta", ; @@ -2035,9 +1975,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 8, ; Top = 41, ; Width = 71 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label2' AS label WITH ; + ADD OBJECT 'Label2' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Curs", ; @@ -2047,9 +1987,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 9, ; Top = 66, ; Width = 29 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label3' AS label WITH ; + ADD OBJECT 'Label3' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data 1", ; @@ -2059,9 +1999,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 10, ; Top = 91, ; Width = 38 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label4' AS label WITH ; + ADD OBJECT 'Label4' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data 2", ; @@ -2071,9 +2011,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 11, ; Top = 117, ; Width = 38 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'txtCurs' AS textbox WITH ; + ADD OBJECT 'txtCurs' AS _textbox WITH ; ControlSource = "porec.curs", ; Height = 23, ; Left = 91, ; @@ -2081,9 +2021,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 2, ; Top = 63, ; Width = 100 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtData1' AS textbox WITH ; + ADD OBJECT 'txtData1' AS _textbox WITH ; ControlSource = "porec.data", ; Height = 23, ; Left = 91, ; @@ -2091,9 +2031,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 3, ; Top = 88, ; Width = 100 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtData2' AS textbox WITH ; + ADD OBJECT 'txtData2' AS _textbox WITH ; ControlSource = "porec.data2", ; Height = 23, ; Left = 91, ; @@ -2101,9 +2041,9 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 4, ; Top = 114, ; Width = 100 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtValuta' AS textbox WITH ; + ADD OBJECT 'txtValuta' AS _textbox WITH ; ControlSource = "porec.nume_val", ; Height = 23, ; Left = 91, ; @@ -2111,7 +2051,7 @@ DEFINE CLASS frm_curs_nou AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" TabIndex = 12, ; Top = 36, ; Width = 75 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE inainte_de_do_termin Private pnIdCursNou @@ -2294,7 +2234,6 @@ DEFINE CLASS frm_delegati AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" ADD OBJECT 'gdelegati' AS _grdrow WITH ; ColumnCount = 6, ; DeleteMark = .F., ; - FontName = "Arial Narrow", ; Height = 300, ; Left = 12, ; Name = "gdelegati", ; @@ -2305,36 +2244,30 @@ DEFINE CLASS frm_delegati AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Top = 72, ; Width = 565, ; Column1.ControlSource = "nume_part", ; - Column1.FontName = "Arial Narrow", ; Column1.Name = "Column1", ; Column1.ReadOnly = .T., ; Column1.Width = 168, ; Column2.ControlSource = "nume", ; - Column2.FontName = "Arial Narrow", ; Column2.Name = "Column2", ; Column2.ReadOnly = .T., ; Column2.Width = 169, ; Column3.ControlSource = "bi_seria", ; - Column3.FontName = "Arial Narrow", ; Column3.Name = "Column3", ; Column3.ReadOnly = .T., ; Column3.Width = 49, ; Column4.ColumnOrder = 5, ; Column4.ControlSource = "eliberatde", ; - Column4.FontName = "Arial Narrow", ; Column4.Name = "Column4", ; Column4.ReadOnly = .T., ; Column4.Width = 77, ; Column5.ColumnOrder = 6, ; Column5.ControlSource = "inactiv", ; - Column5.FontName = "Arial Narrow", ; Column5.Name = "Column5", ; Column5.ReadOnly = .T., ; Column5.Sparse = .F., ; Column5.Width = 48, ; Column6.ColumnOrder = 4, ; Column6.ControlSource = "bi_numar", ; - Column6.FontName = "Arial Narrow", ; Column6.Name = "Column6", ; Column6.ReadOnly = .T., ; Column6.Width = 66 @@ -2343,106 +2276,94 @@ DEFINE CLASS frm_delegati AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" ADD OBJECT 'gdelegati.Column1.Header1' AS header WITH ; Alignment = 2, ; Caption = "Client", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'gdelegati.Column1.Text1' AS textbox WITH ; + ADD OBJECT 'gdelegati.Column1.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'gdelegati.Column2.Header1' AS header WITH ; Alignment = 2, ; Caption = "Delegat", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'gdelegati.Column2.Text1' AS textbox WITH ; + ADD OBJECT 'gdelegati.Column2.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'gdelegati.Column3.Header1' AS header WITH ; Alignment = 2, ; Caption = "BI_seria", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'gdelegati.Column3.Text1' AS textbox WITH ; + ADD OBJECT 'gdelegati.Column3.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'gdelegati.Column4.Header1' AS header WITH ; Alignment = 2, ; Caption = "Eliberat de..", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'gdelegati.Column4.Text1' AS textbox WITH ; + ADD OBJECT 'gdelegati.Column4.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'gdelegati.Column5.Check1' AS checkbox WITH ; + ADD OBJECT 'gdelegati.Column5.Check1' AS _checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; - FontName = "Arial Narrow", ; Height = 17, ; Left = 16, ; Name = "Check1", ; ReadOnly = .T., ; Top = 71, ; Width = 60 - *< END OBJECT: BaseClass="checkbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'gdelegati.Column5.Header1' AS header WITH ; Alignment = 2, ; Caption = "Inactiv", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'gdelegati.Column6.Header1' AS header WITH ; Alignment = 2, ; Caption = "BI_numar", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'gdelegati.Column6.Text1' AS textbox WITH ; + ADD OBJECT 'gdelegati.Column6.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; - FontName = "Arial Narrow", ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1" - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE actualizeaza_grid1 LPARAMETERS pcFiltru @@ -2874,14 +2795,14 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Name = "Responsabill" *< END OBJECT: BaseClass="header" /> - ADD OBJECT '_gnom_responsabili.Column1.Text1' AS textbox WITH ; + ADD OBJECT '_gnom_responsabili.Column1.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT '_gnom_responsabili.Column2.Header1' AS header WITH ; Alignment = 2, ; @@ -2889,16 +2810,16 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT '_gnom_responsabili.Column2.Text1' AS textbox WITH ; + ADD OBJECT '_gnom_responsabili.Column2.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT '_gnom_responsabili.Column3.Check1' AS checkbox WITH ; + ADD OBJECT '_gnom_responsabili.Column3.Check1' AS _checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; @@ -2908,7 +2829,7 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" ReadOnly = .T., ; Top = 30, ; Width = 60 - *< END OBJECT: BaseClass="checkbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT '_gnom_responsabili.Column3.Header1' AS header WITH ; Alignment = 2, ; @@ -2916,7 +2837,7 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT '_gnom_responsabili.Column4.Check1' AS checkbox WITH ; + ADD OBJECT '_gnom_responsabili.Column4.Check1' AS _checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; @@ -2926,7 +2847,7 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" ReadOnly = .T., ; Top = 30, ; Width = 60 - *< END OBJECT: BaseClass="checkbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT '_gnom_responsabili.Column4.Header1' AS header WITH ; Alignment = 2, ; @@ -2940,14 +2861,14 @@ DEFINE CLASS frm_responsabili AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT '_gnom_responsabili.Column5.Text1' AS textbox WITH ; + ADD OBJECT '_gnom_responsabili.Column5.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT 'But_modifica1' AS but_modifica WITH ; Left = 415, ; @@ -3305,14 +3226,14 @@ DEFINE CLASS frm_tipc AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT '_grdrow1.Column1.Text1' AS textbox WITH ; + ADD OBJECT '_grdrow1.Column1.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT '_grdrow1.Column2.Header1' AS header WITH ; Alignment = 2, ; @@ -3320,14 +3241,14 @@ DEFINE CLASS frm_tipc AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT '_grdrow1.Column2.Text1' AS textbox WITH ; + ADD OBJECT '_grdrow1.Column2.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ADD OBJECT '_grdrow1.Column3.Header1' AS header WITH ; Alignment = 2, ; @@ -3335,13 +3256,13 @@ DEFINE CLASS frm_tipc AS _frmbase OF "..\..\comun\clase\_frm_base.vcx" Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT '_grdrow1.Column3.Text1' AS textbox WITH ; + ADD OBJECT '_grdrow1.Column3.Text1' AS _textbox WITH ; BackColor = 255,255,255, ; BorderStyle = 0, ; ForeColor = 0,0,0, ; Margin = 0, ; Name = "Text1", ; ReadOnly = .T. - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\..\comun\clase\_baza.vcx" BaseClass="textbox" /> ENDDEFINE