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
18 lines
1001 B
Diff
18 lines
1001 B
Diff
diff --git "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2.pre_runda1.bak" "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2"
|
||
index a58ab1a..0fdd7a9 100644
|
||
--- "a/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2.pre_runda1.bak"
|
||
+++ "b/D:\\ROA\\ROAREGISTRATURA\\Clase\\ofundal_registratura.vc2"
|
||
@@ -285,6 +285,12 @@ DEFINE CLASS pg_meniu_princ AS pg_meniu OF "..\comun\clase\ofundal.vcx"
|
||
|
||
PROCEDURE Page3.Deactivate
|
||
Local lnRaspuns
|
||
+ *!* 23.07.2026 MM - partener NULL: nu se salveaza, se renunta explicit (P1/P2)
|
||
+ If !This.ct_part_nr_data1.llock And (Isnull(goRegistratura.id_part) Or Empty(goRegistratura.id_part))
|
||
+ This.ct_part_nr_data1.llock = .T.
|
||
+ AMESSAGEBOX('Alegeti partenerul! Modificarile nu au fost salvate.',0+48,'Atentie')
|
||
+ This.ct_part_nr_data1.Refresh()
|
||
+ Endif
|
||
If !This.ct_part_nr_data1.llock
|
||
This.ct_part_nr_data1.llock = .T.
|
||
lnRaspuns = AMESSAGEBOX('Dori<72>i s<> salva<76>i modific<69>rile f<>cute?',4+32,'Confirmare')
|