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
This commit is contained in:
29
Teste/build_registratura.prg
Normal file
29
Teste/build_registratura.prg
Normal file
@@ -0,0 +1,29 @@
|
||||
* build_registratura.prg - M6: recompilare completa a proiectului (headless).
|
||||
* Rulare: vfp9.exe -A -T "D:\ROA\ROAREGISTRATURA\Teste\build_registratura.prg"
|
||||
* Log: D:\ROA\ROAREGISTRATURA\Teste\log_build.txt (+ erori de compilare in .err daca apar)
|
||||
SET SAFETY OFF
|
||||
SET TALK OFF
|
||||
PUBLIC gcBuildLog
|
||||
gcBuildLog = 'D:\ROA\ROAREGISTRATURA\Teste\log_build.txt'
|
||||
STRTOFILE('=== build_registratura ' + TTOC(DATETIME()) + CHR(13)+CHR(10), gcBuildLog)
|
||||
|
||||
ON ERROR DO blog WITH '*** EROARE ' + TRANSFORM(ERROR()) + ': ' + MESSAGE() + ;
|
||||
' | ' + MESSAGE(1) + ' | prg=' + PROGRAM() + ' lin=' + TRANSFORM(LINENO())
|
||||
|
||||
SET DEFAULT TO D:\ROA\ROAREGISTRATURA
|
||||
DO blog WITH 'BUILD EXE roaregistratura.exe FROM roaRegistratura RECOMPILE ...'
|
||||
BUILD EXE roaregistratura.exe FROM roaRegistratura RECOMPILE
|
||||
DO blog WITH 'Build incheiat. Verificati roaregistratura.err daca exista.'
|
||||
IF FILE('D:\ROA\ROAREGISTRATURA\roaregistratura.err')
|
||||
DO blog WITH '--- roaregistratura.err ---'
|
||||
DO blog WITH FILETOSTR('D:\ROA\ROAREGISTRATURA\roaregistratura.err')
|
||||
ELSE
|
||||
DO blog WITH 'FARA erori de compilare (.err inexistent).'
|
||||
ENDIF
|
||||
ON ERROR
|
||||
QUIT
|
||||
|
||||
PROCEDURE blog
|
||||
LPARAMETERS tcMsg
|
||||
STRTOFILE(TRANSFORM(tcMsg) + CHR(13)+CHR(10), gcBuildLog, 1)
|
||||
ENDPROC
|
||||
Reference in New Issue
Block a user