romfast/roaregistratura
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
d2e87327a46f240279f9ff20ffb8afdd178a1b16
roaregistratura/docs/diff_runda1_ferestre_M2_M3_M4_M5.patch
Marius Mutu d2e87327a4 Registratura: adaugare/editare fara erori la partener NULL, lista doar ultimul document, fonturi Arial 10 (M1-M5) 
M1 modifica_reg_dg: garda id_part NULL/empty (mesaj + Return .F.), NVL pe id_part/nr_pag, functia intoarce succes.
M2 validare partener in toate cele 3 puncte de salvare, INAINTE de blocarea campurilor (Command2.Click salveaza inainte sa blocheze; bara laterala si Page3.Deactivate nu mai salveaza/prompteaza cu partener NULL).
M3 do_adauga: documentul nou intra direct in editare (llock=.F., focus cmdDenumire); eliminat mesajul fals "Toate modificarile au efect imediat!".
M4 viz_registratura + do_cauta: filtru initial "doar ultimul document" (subquery max(id_reg)); fara criterii de cautare se pastreaza filtrul, nu se incarca toata baza.
M5 fonturi: eliminate 154 suprascrieri "Arial Narrow" si rebazate 96 controale baseclass pe COMUN _baza.vcx (textbox/label/checkbox/commandbutton/optiongroup); Init de grid propaga fontul la coloane si headere (fara asta raman Arial 9 - verificat empiric).

Teste: harness headless (init env dedicat, form, adaugare+editare cu verificare in baza) + test UI vizual cu screenshots pe fluxul real (19 PASS / 0 FAIL). Diff-uri de audit in docs/diff_runda1_*.patch.

M6 (build EXE) BLOCAT headless: roaRegistratura.pjx refera 48 fisiere hardcodate pe "c:\program files\...\vfp 9" (masina 32-bit din 2021) + COMUN\utile\hpdf\ReportOutput\ctl32_progressbar.vcx redenumit _old; necesita repathing o data in VFP9 IDE.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_018H9za5A9Tk6wcLFof6seds
2026-07-23 18:53:12 +03:00

1106 lines
38 KiB
Diff
Raw Blame History

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
*</PropValue>
- 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
*</PropValue>
- 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
Reference in New Issue View Git Blame Copy Permalink