diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\ferestre_registratura.vc2.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\ferestre_registratura.vc2" index 6e561a8..77aa3a3 100644 --- "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\ferestre_registratura.vc2.pre_runda1.bak" +++ "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\ferestre_registratura.vc2" @@ -151,7 +151,7 @@ DEFINE CLASS ct_part_nr_data AS container Width = 614 * - ADD OBJECT 'cmdDenumire' AS commandbutton WITH ; + ADD OBJECT 'cmdDenumire' AS _commandbutton WITH ; Caption = "", ; Enabled = .F., ; Height = 22, ; @@ -161,9 +161,9 @@ DEFINE CLASS ct_part_nr_data AS container TabIndex = 2, ; Top = 5, ; Width = 29 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'Command2' AS commandbutton WITH ; + ADD OBJECT 'Command2' AS _commandbutton WITH ; Anchor = 3, ; Caption = "Modifica", ; FontBold = .T., ; @@ -175,9 +175,9 @@ DEFINE CLASS ct_part_nr_data AS container TabIndex = 1, ; Top = 3, ; Width = 131 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'Label3' AS label WITH ; + ADD OBJECT 'Label3' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Partener", ; @@ -188,9 +188,9 @@ DEFINE CLASS ct_part_nr_data AS container TabIndex = 6, ; Top = 8, ; Width = 52 - *< 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 = "Nr. doc.", ; @@ -201,9 +201,9 @@ DEFINE CLASS ct_part_nr_data AS container TabIndex = 7, ; Top = 31, ; Width = 45 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label9' AS label WITH ; + ADD OBJECT 'Label9' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Data doc.", ; @@ -214,9 +214,9 @@ DEFINE CLASS ct_part_nr_data AS container TabIndex = 8, ; Top = 31, ; Width = 55 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'txtClient' AS textbox WITH ; + ADD OBJECT 'txtClient' AS _textbox WITH ; ControlSource = "goRegistratura.denumire", ; Height = 21, ; Left = 241, ; @@ -226,9 +226,9 @@ DEFINE CLASS ct_part_nr_data AS container TabStop = .F., ; Top = 6, ; Width = 289 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtData_ctr' AS textbox WITH ; + ADD OBJECT 'txtData_ctr' AS _textbox WITH ; ControlSource = "goRegistratura.data", ; Height = 21, ; Left = 442, ; @@ -237,9 +237,9 @@ DEFINE CLASS ct_part_nr_data AS container TabIndex = 4, ; Top = 29, ; Width = 119 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtNumar' AS textbox WITH ; + ADD OBJECT 'txtNumar' AS _textbox WITH ; ControlSource = "goRegistratura.numar", ; Format = "k", ; Height = 21, ; @@ -249,7 +249,7 @@ DEFINE CLASS ct_part_nr_data AS container TabIndex = 3, ; Top = 29, ; Width = 113 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE blocheaza_campuri this.cmdDenumire.Enabled = .F. @@ -301,8 +301,6 @@ DEFINE CLASS ct_part_nr_data AS container PROCEDURE Command2.Click If This.Parent.lLock - AMESSAGEBOX('Toate modificarile au efect imediat! Nu puteti da renuntare!',0+48,'Atentie') - This.Picture = 'unlock.bmp' This.Parent.lLock = .F. This.Caption = 'Salveaza' @@ -324,17 +322,19 @@ DEFINE CLASS ct_part_nr_data AS container ****** Else - This.Picture = 'lock.bmp' - This.Parent.lLock = .T. - This.Caption = 'Modifica' - This.Parent.blocheaza_campuri() - - If Isnull(goRegistratura.id_part) + *!* 23.07.2026 MM - validare partener si salvare INAINTE de blocarea campurilor (P2/P3) + If Isnull(goRegistratura.id_part) Or Empty(goRegistratura.id_part) AMESSAGEBOX('Alegeti partenerul!',48,'Atentie') This.Parent.cmdDenumire.SetFocus() Return Endif - Do modifica_reg_dg With goRegistratura In oproceduri_roaregistratura.prg + If !modifica_reg_dg(goRegistratura) + Return + Endif + This.Picture = 'lock.bmp' + This.Parent.lLock = .T. + This.Caption = 'Modifica' + This.Parent.blocheaza_campuri() If Type('podg_dg.but_termin1') <> 'U' podg_dg.blocheaza_campuri() @@ -524,7 +524,6 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" AutoSize = .T., ; camp_nume = data, ; Caption = "Data doc.", ; - FontName = "Arial Narrow", ; Left = 93, ; Name = "Ck_data", ; TabIndex = 4, ; @@ -539,7 +538,6 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" camp_nume = numar, ; Caption = "Nr.doc.", ; Comment = "*:OnResize=LT", ; - FontName = "Arial Narrow", ; Left = 93, ; Name = "Ck_numar", ; TabIndex = 3, ; @@ -553,7 +551,6 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" camp_nume = denumire, ; Caption = "Partener", ; Comment = "*:OnResize=LT", ; - FontName = "Arial Narrow", ; Left = 8, ; Name = "Ck_nume", ; TabIndex = 1, ; @@ -565,7 +562,6 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" Alignment = 0, ; Anchor = 3, ; Caption = "Sterse", ; - FontName = "Arial Narrow", ; ForeColor = 255,0,0, ; Left = 171, ; Name = "ck_sters", ; @@ -580,7 +576,6 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" camp_nume = fel_document, ; Caption = "Tip document", ; Comment = "*:OnResize=LT", ; - FontName = "Arial Narrow", ; Left = 8, ; Name = "Ck_tipdoc", ; TabIndex = 2, ; @@ -634,7 +629,6 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" Anchor = 15, ; ColumnCount = 22, ; DeleteMark = .F., ; - FontName = "Arial Narrow", ; GridLineColor = 192,192,192, ; HeaderHeight = 38, ; Height = 258, ; @@ -651,465 +645,403 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" ZOrderSet = 3, ; Column1.ColumnOrder = 7, ; Column1.ControlSource = "denumire", ; - Column1.FontName = "Arial Narrow", ; Column1.Name = "cNume", ; Column1.ReadOnly = .T., ; Column1.Width = 193, ; Column2.ColumnOrder = 5, ; Column2.ControlSource = "numar", ; - Column2.FontName = "Arial Narrow", ; Column2.Name = "cNr_ctr", ; Column2.ReadOnly = .T., ; Column2.Width = 48, ; Column3.ColumnOrder = 6, ; Column3.ControlSource = "data", ; - Column3.FontName = "Arial Narrow", ; Column3.Format = "d", ; Column3.Name = "cData_ctr", ; Column3.ReadOnly = .T., ; Column3.Width = 51, ; Column4.ColumnOrder = 10, ; Column4.ControlSource = "descriere", ; - Column4.FontName = "Arial Narrow", ; Column4.Name = "cDescriere", ; Column4.ReadOnly = .T., ; Column5.ColumnOrder = 3, ; Column5.ControlSource = "numar_intern", ; - Column5.FontName = "Arial Narrow", ; Column5.Name = "cNumar_intern", ; Column5.ReadOnly = .T., ; Column5.Width = 45, ; Column6.ColumnOrder = 4, ; Column6.ControlSource = "data_intern", ; - Column6.FontName = "Arial Narrow", ; Column6.Name = "cData_intern", ; Column6.ReadOnly = .T., ; Column6.Width = 51, ; Column7.ColumnOrder = 2, ; Column7.ControlSource = "iif(ie=1,'Intrare',iif(ie=2,'Iesire',''))", ; - Column7.FontName = "Arial Narrow", ; Column7.Name = "cIE", ; Column7.ReadOnly = .T., ; Column7.Width = 59, ; Column8.ColumnOrder = 12, ; Column8.ControlSource = "fel_document", ; - Column8.FontName = "Arial Narrow", ; Column8.Name = "cFel_document", ; Column8.ReadOnly = .T., ; Column8.Width = 67, ; Column9.Alignment = 2, ; Column9.ColumnOrder = 18, ; Column9.ControlSource = "avizat", ; - Column9.FontName = "Arial Narrow", ; Column9.Name = "cAvizat", ; Column9.ReadOnly = .T., ; Column9.Sparse = .F., ; Column9.Width = 41, ; Column10.ColumnOrder = 8, ; Column10.ControlSource = "pers_contact", ; - Column10.FontName = "Arial Narrow", ; Column10.Name = "cPers_contact", ; Column10.ReadOnly = .T., ; Column10.Width = 80, ; Column11.ColumnOrder = 11, ; Column11.ControlSource = "mediu_transmisie", ; - Column11.FontName = "Arial Narrow", ; Column11.Name = "cMediu_transmisie", ; Column11.ReadOnly = .T., ; Column12.ColumnOrder = 14, ; Column12.ControlSource = "util", ; - Column12.FontName = "Arial Narrow", ; Column12.Name = "Column12", ; Column12.ReadOnly = .T., ; Column13.ColumnOrder = 15, ; Column13.ControlSource = "dataora", ; - Column13.FontName = "Arial Narrow", ; Column13.Name = "Column13", ; Column13.ReadOnly = .T., ; Column14.ColumnOrder = 16, ; Column14.ControlSource = "utils", ; - Column14.FontName = "Arial Narrow", ; Column14.Name = "Column14", ; Column14.ReadOnly = .T., ; Column15.ColumnOrder = 17, ; Column15.ControlSource = "dataoras", ; - Column15.FontName = "Arial Narrow", ; Column15.Name = "Column15", ; Column15.ReadOnly = .T., ; Column16.ColumnOrder = 19, ; Column16.ControlSource = "util_avizat", ; - Column16.FontName = "Arial Narrow", ; Column16.Name = "Column16", ; Column16.ReadOnly = .T., ; Column17.ColumnOrder = 20, ; Column17.ControlSource = "dataora_avizat", ; - Column17.FontName = "Arial Narrow", ; Column17.Name = "Column17", ; Column17.ReadOnly = .T., ; Column18.ColumnOrder = 21, ; Column18.ControlSource = "are_obs", ; - Column18.FontName = "Arial Narrow", ; Column18.Name = "cAre_obs", ; Column18.ReadOnly = .T., ; Column18.Sparse = .F., ; Column19.ColumnOrder = 9, ; Column19.ControlSource = "nresp", ; - Column19.FontName = "Arial Narrow", ; Column19.Name = "cNresp", ; Column19.ReadOnly = .T., ; Column19.Width = 83, ; Column20.ColumnOrder = 13, ; Column20.ControlSource = "nr_pag", ; - Column20.FontName = "Arial Narrow", ; Column20.Name = "cNr_pag", ; Column20.ReadOnly = .T., ; Column20.Width = 39, ; Column21.ColumnOrder = 22, ; Column21.ControlSource = "proiect", ; - Column21.FontName = "Arial Narrow", ; Column21.Name = "Column22", ; Column21.ReadOnly = .T., ; Column22.ColumnOrder = 1, ; Column22.ControlSource = "are_link", ; Column22.CurrentControl = "Command1", ; Column22.DynamicCurrentControl = "iif(are_link=1,'command1','command2')", ; - Column22.FontName = "Arial Narrow", ; Column22.Name = "Column23", ; Column22.ReadOnly = .T., ; Column22.Sparse = .F., ; Column22.Width = 47 *< END OBJECT: ClassLib="..\comun\clase\_grd_base.vcx" BaseClass="grid" /> - ADD OBJECT 'grid_registratura.cAre_obs.Check1' AS checkbox WITH ; + ADD OBJECT 'grid_registratura.cAre_obs.Check1' AS _checkbox WITH ; Alignment = 0, ; Caption = "", ; - FontName = "Arial Narrow", ; Height = 17, ; Left = 37, ; Name = "Check1", ; Top = 48, ; Width = 60 - *< END OBJECT: BaseClass="checkbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grid_registratura.cAre_obs.Header1' AS header WITH ; Alignment = 2, ; Caption = "Observatii", ; - FontName = "Arial Narrow", ; Name = "Header1", ; Picture = ..\grafice\wzedit.bmp *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cAvizat.Check1' AS checkbox WITH ; + ADD OBJECT 'grid_registratura.cAvizat.Check1' AS _checkbox WITH ; Alignment = 0, ; Caption = "", ; Centered = .T., ; - FontName = "Arial Narrow", ; Height = 17, ; Left = 54, ; Name = "Check1", ; Top = 60, ; Width = 60 - *< END OBJECT: BaseClass="checkbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> ADD OBJECT 'grid_registratura.cAvizat.Header1' AS header WITH ; Alignment = 2, ; Caption = "Avizat", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> ADD OBJECT 'grid_registratura.cData_ctr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data doc.", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cData_ctr.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cData_ctr.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 'grid_registratura.cData_intern.Header1' AS header WITH ; Alignment = 2, ; Caption = "Data inreg.", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cData_intern.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cData_intern.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_registratura.cDescriere.Header1' AS header WITH ; Alignment = 2, ; Caption = "Descriere", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cDescriere.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cDescriere.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_registratura.cFel_document.Header1' AS header WITH ; Alignment = 2, ; Caption = "Fel document", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cFel_document.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cFel_document.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_registratura.cIE.Header1' AS header WITH ; Alignment = 2, ; Caption = "Intrare/Iesire", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cIE.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cIE.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_registratura.cMediu_transmisie.Header1' AS header WITH ; Alignment = 2, ; Caption = "Mediu tr./rec.", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cMediu_transmisie.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cMediu_transmisie.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_registratura.cNr_ctr.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. doc.", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cNr_ctr.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cNr_ctr.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 'grid_registratura.cNr_pag.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. pag.", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cNr_pag.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cNr_pag.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_registratura.cNresp.Header1' AS header WITH ; Alignment = 2, ; Caption = "Responsabil", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cNresp.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cNresp.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_registratura.cNumar_intern.Header1' AS header WITH ; Alignment = 2, ; Caption = "Nr. inreg.", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cNumar_intern.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cNumar_intern.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_registratura.cNume.Header1' AS header WITH ; Alignment = 2, ; Caption = "Partener", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cNume.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cNume.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 'grid_registratura.Column12.Header1' AS header WITH ; Alignment = 2, ; Caption = "Utilizator", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column12.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column12.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_registratura.Column13.Header1' AS header WITH ; Alignment = 2, ; Caption = "Dataora", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column13.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column13.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_registratura.Column14.Header1' AS header WITH ; Alignment = 2, ; Caption = "Utilizator stergere", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column14.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column14.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_registratura.Column15.Header1' AS header WITH ; Alignment = 2, ; Caption = "Dataora stergerii", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column15.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column15.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_registratura.Column16.Header1' AS header WITH ; Alignment = 2, ; Caption = "Utilzator avizare", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column16.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column16.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_registratura.Column17.Header1' AS header WITH ; Alignment = 2, ; Caption = "Dataora avizarii ", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column17.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column17.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_registratura.Column22.Header1' AS header WITH ; Alignment = 2, ; Caption = "Proiect", ; - FontName = "Arial Narrow", ; Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column22.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column22.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_registratura.Column23.Command1' AS commandbutton WITH ; + ADD OBJECT 'grid_registratura.Column23.Command1' AS _commandbutton WITH ; Caption = "", ; Height = 27, ; Left = 15, ; @@ -1118,9 +1050,9 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" SpecialEffect = 1, ; Top = 77, ; Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'grid_registratura.Column23.Command2' AS commandbutton WITH ; + ADD OBJECT 'grid_registratura.Column23.Command2' AS _commandbutton WITH ; Caption = "", ; Height = 27, ; Left = 27, ; @@ -1128,40 +1060,37 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" SpecialEffect = 1, ; Top = 125, ; Width = 84 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> ADD OBJECT 'grid_registratura.Column23.Header1' AS header WITH ; Caption = "Link", ; - FontName = "Arial Narrow", ; Name = "Header1", ; Picture = ..\comun\grafice\attach_mic.bmp *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.Column23.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.Column23.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 'grid_registratura.cPers_contact.Header1' AS header WITH ; Alignment = 2, ; Caption = "Persoana contact a partenerului", ; - FontName = "Arial Narrow", ; Name = "Header1", ; WordWrap = .T. *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_registratura.cPers_contact.Text1' AS textbox WITH ; + ADD OBJECT 'grid_registratura.cPers_contact.Text1' AS _textbox WITH ; Alignment = 3, ; 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 @@ -1223,6 +1152,16 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" This.grid_registratura.SetFocus() This.Parent.Parent.ActivePage = 3 + *!* 23.07.2026 MM - documentul nou intra direct in editare (P3) + With This.Parent.Parent.Page3.ct_part_nr_data1 + .lLock = .F. + .deblocheaza_campuri() + .Refresh() + .cmdDenumire.SetFocus() + Endwith + If Type('podg_dg.but_termin1') <> 'U' + podg_dg.deblocheaza_campuri() + Endif Endif Release loGeneratorNumere @@ -1261,7 +1200,12 @@ DEFINE CLASS ct_registratura AS _ctfrmbase OF "..\comun\clase\_ct_base.vcx" IF this.ck_sters.Value = 1 lcFiltru = [ 2=2] + lcFiltru ELSE - lcFiltru = [ STERS=0] + lcFiltru + *!* 23.07.2026 MM - fara criterii: doar ultimul document, nu toata baza (P4) + If Empty(lcFiltru) + lcFiltru = [ sters=0 and id_reg=(select max(id_reg) from vregistratura where sters=0)] + Else + lcFiltru = [ STERS=0] + lcFiltru + Endif ENDIF @@ -1558,7 +1502,7 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen BUT_TERMIN1.ZOrderSet = 6 * - ADD OBJECT 'ck_avizat' AS checkbox WITH ; + ADD OBJECT 'ck_avizat' AS _checkbox WITH ; Alignment = 0, ; AutoSize = .T., ; BackStyle = 0, ; @@ -1572,12 +1516,11 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 223, ; Width = 48, ; ZOrderSet = 23 - *< END OBJECT: BaseClass="checkbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="checkbox" /> - ADD OBJECT 'cmdFel_document' AS commandbutton WITH ; + ADD OBJECT 'cmdFel_document' AS _commandbutton WITH ; Caption = "", ; Enabled = .F., ; - FontName = "Arial Narrow", ; Height = 24, ; Left = 277, ; Name = "cmdFel_document", ; @@ -1586,12 +1529,11 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 124, ; Width = 28, ; ZOrderSet = 11 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'cmdMedii_transmisie' AS commandbutton WITH ; + ADD OBJECT 'cmdMedii_transmisie' AS _commandbutton WITH ; Caption = "", ; Enabled = .F., ; - FontName = "Arial Narrow", ; Height = 24, ; Left = 277, ; Name = "cmdMedii_transmisie", ; @@ -1600,12 +1542,11 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 199, ; Width = 28, ; ZOrderSet = 11 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'cmdNresp' AS commandbutton WITH ; + ADD OBJECT 'cmdNresp' AS _commandbutton WITH ; Caption = "", ; Enabled = .F., ; - FontName = "Arial Narrow", ; Height = 24, ; Left = 277, ; Name = "cmdNresp", ; @@ -1614,12 +1555,11 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 174, ; Width = 28, ; ZOrderSet = 11 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'cmdPers_contact' AS commandbutton WITH ; + ADD OBJECT 'cmdPers_contact' AS _commandbutton WITH ; Caption = "", ; Enabled = .F., ; - FontName = "Arial Narrow", ; Height = 24, ; Left = 277, ; Name = "cmdPers_contact", ; @@ -1628,9 +1568,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 149, ; Width = 28, ; ZOrderSet = 11 - *< END OBJECT: BaseClass="commandbutton" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="commandbutton" /> - ADD OBJECT 'Label1' AS label WITH ; + ADD OBJECT 'Label1' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Persoana contact", ; @@ -1641,9 +1581,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 153, ; Width = 98, ; ZOrderSet = 15 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label17' AS label WITH ; + ADD OBJECT 'Label17' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Tip document", ; @@ -1654,9 +1594,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 128, ; Width = 77, ; ZOrderSet = 15 - *< 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 = "Mediu transmisie", ; @@ -1667,9 +1607,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 203, ; Width = 97, ; ZOrderSet = 15 - *< 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 = "Responsabil", ; @@ -1680,9 +1620,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 178, ; Width = 73, ; ZOrderSet = 15 - *< 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 = "Descriere", ; @@ -1693,9 +1633,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 61, ; Width = 56, ; ZOrderSet = 40 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label5' AS label WITH ; + ADD OBJECT 'Label5' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr. pagini", ; @@ -1706,9 +1646,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 128, ; Width = 55, ; ZOrderSet = 42 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label6' AS label WITH ; + ADD OBJECT 'Label6' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "Nr./data inreg. (intrare-iesire)", ; @@ -1719,9 +1659,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 38, ; Width = 160, ; ZOrderSet = 42 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'Label9' AS label WITH ; + ADD OBJECT 'Label9' AS _label WITH ; AutoSize = .T., ; BackStyle = 0, ; Caption = "/", ; @@ -1732,9 +1672,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 38, ; Width = 5, ; ZOrderSet = 44 - *< END OBJECT: BaseClass="label" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="label" /> - ADD OBJECT 'optIE' AS optiongroup WITH ; + ADD OBJECT 'optIE' AS _optiongrup WITH ; BackStyle = 0, ; ButtonCount = 2, ; ControlSource = "goRegistratura.ie", ; @@ -1762,7 +1702,7 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Option2.Name = "Option2", ; Option2.Top = 4, ; Option2.Width = 49 - *< END OBJECT: BaseClass="optiongroup" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="optiongroup" /> ADD OBJECT 'Shape7' AS shape WITH ; BackStyle = 0, ; @@ -1775,7 +1715,7 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen ZOrderSet = 0 *< END OBJECT: BaseClass="shape" /> - ADD OBJECT 'txtData_intern' AS textbox WITH ; + ADD OBJECT 'txtData_intern' AS _textbox WITH ; ControlSource = "goRegistratura.data_intern", ; Height = 21, ; Left = 324, ; @@ -1785,9 +1725,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 36, ; Width = 119, ; ZOrderSet = 45 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtDescriere' AS textbox WITH ; + ADD OBJECT 'txtDescriere' AS _textbox WITH ; ControlSource = "goRegistratura.descriere", ; Height = 21, ; Left = 122, ; @@ -1797,9 +1737,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 59, ; Width = 321, ; ZOrderSet = 41 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtFel_document' AS textbox WITH ; + ADD OBJECT 'txtFel_document' AS _textbox WITH ; ControlSource = "goRegistratura.fel_document", ; Height = 21, ; Left = 131, ; @@ -1810,9 +1750,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 126, ; Width = 144, ; ZOrderSet = 16 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtMediu_transmisie' AS textbox WITH ; + ADD OBJECT 'txtMediu_transmisie' AS _textbox WITH ; ControlSource = "goRegistratura.mediu_transmisie", ; Height = 21, ; Left = 131, ; @@ -1823,9 +1763,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 201, ; Width = 144, ; ZOrderSet = 16 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtNr_pag' AS textbox WITH ; + ADD OBJECT 'txtNr_pag' AS _textbox WITH ; ControlSource = "goRegistratura.nr_pag", ; Format = "k", ; Height = 21, ; @@ -1837,9 +1777,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 126, ; Width = 48, ; ZOrderSet = 43 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtNresp' AS textbox WITH ; + ADD OBJECT 'txtNresp' AS _textbox WITH ; ControlSource = "goRegistratura.nresp", ; Height = 21, ; Left = 131, ; @@ -1850,9 +1790,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 176, ; Width = 144, ; ZOrderSet = 16 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtNumar_intern' AS textbox WITH ; + ADD OBJECT 'txtNumar_intern' AS _textbox WITH ; ControlSource = "goRegistratura.numar_intern", ; Format = "k", ; Height = 21, ; @@ -1864,9 +1804,9 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 36, ; Width = 113, ; ZOrderSet = 43 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> - ADD OBJECT 'txtPers_contact' AS textbox WITH ; + ADD OBJECT 'txtPers_contact' AS _textbox WITH ; ControlSource = "goRegistratura.pers_contact", ; Height = 21, ; Left = 131, ; @@ -1877,7 +1817,7 @@ DEFINE CLASS frm_dg_date_generale AS frm_dg OF "..\comun\clase\ferestre_atasamen Top = 151, ; Width = 144, ; ZOrderSet = 16 - *< END OBJECT: BaseClass="textbox" /> + *< END OBJECT: ClassLib="..\comun\clase\_baza.vcx" BaseClass="textbox" /> PROCEDURE blocheaza_campuri this.txtDescriere.ReadOnly = .T. @@ -2141,13 +2081,13 @@ DEFINE CLASS frm_dg_referinte AS frm_dg OF "..\comun\clase\ferestre_atasamente.v Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_referinte.Column1.Text1' AS textbox WITH ; + ADD OBJECT 'grid_referinte.Column1.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 'grid_referinte.Column2.Header1' AS header WITH ; Alignment = 2, ; @@ -2155,12 +2095,12 @@ DEFINE CLASS frm_dg_referinte AS frm_dg OF "..\comun\clase\ferestre_atasamente.v Name = "Header1" *< END OBJECT: BaseClass="header" /> - ADD OBJECT 'grid_referinte.Column2.Text1' AS textbox WITH ; + ADD OBJECT 'grid_referinte.Column2.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" /> ENDDEFINE