sync SVN r18004/r18007: #6 editare factura emisa - pagina de articole

ofacturare_editare.prg (nou): helpere comune - garda eFactura, cursoarele
notei si ale rulajelor, randul de vanzare corespunzator notei si liniile de
articole citite din view-ul VVANZARI_ARTICOLE.

omodificari.vc2 (frm_modific2024): pagina noua de articole ale facturii,
deocamdata doar afisare. Apare numai cand ofacturare_editare.prg e
inregistrat si documentul are rand in VANZARI; in ROACONT si ROAGEST, unde
fisierul nu e incarcat, pagina lipseste si registrul jurnal ramane neatins.
Randul de vanzare al notei se cauta pe toate tripletele distincte (nract,
serie_act, dataact) din nota, pentru ca primul rand poate fi o incasare.

ofacturare_comun.vc2 (frm_facturi): do_editare_factura si butonul aferent,
dupa modelul lui do_sterge, cu garzile de luna inchisa, luna curenta,
document sters, referinte si eFactura.

docs: comentariile se scriu strict necesar, si in cod si in scripturile de
migrare - fara referinte la planuri, stories, decizii sau erori, istoricul
doar in antetul fisierului. Plus regula zero (predarea contextului),
capcanele de la testarea headless si completari pe fluxul text -> binar.

utile/Teste: suita de regresie pentru editarea facturii si harness-ul
watchdog (nu sunt in SVN, unde utile/Teste e ignorat). .gitignore ignora si
capturile PNG si watchdog_out/, ramase din rulari.

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01SN8snvkk94KuhWwoXUUey3

utile/Teste/editare_factura/test_incarca_articole_view.prg

@@ -0,0 +1,72 @@
+* test_incarca_articole_view.prg
+* Smoke test izolat pentru IncarcaArticoleFactura pe vvanzari_articole (runda 2), inainte de a atinge omodificari.vc2.
+* Regresie: id_vanzare=1050 (cod=1140888) -> 4 randuri, id_vanzare=1047 (cod=1140885) -> 2 randuri,
+* coincide cu baza din rec_view_articole_vanzare.md. Verifica si coloana noua tvd.id_vanzare.
+* Nu atinge Oracle in scriere. QUIT la final.
+
+SET SAFETY OFF
+SET TALK OFF
+
+LOCAL lcLog
+lcLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\test_incarca_articole_view_log.txt'
+STRTOFILE('start' + CHR(13) + CHR(10), lcLog)
+
+PUBLIC gcErrLog
+gcErrLog = lcLog
+ON ERROR DO test_error_handler WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
+
+DO ('D:\ROA\ROAFACTURARE\COMUN\utile\Teste\test_init_env_auto.prg') WITH 'CENTRAL', 'MARIUSM_AUTO', 'ROMFASTSOFT'
+IF gnHandle <= 0
+	STRTOFILE('EROARE: conectare esuata' + CHR(13) + CHR(10), lcLog, 1)
+	QUIT
+ENDIF
+
+SET PROCEDURE TO D:\ROA\ROAFACTURARE\COMUN\programe\ofacturare_editare.prg ADDITIVE
+
+DO verifica WITH 1050, 'cod=1140888', lcLog, 4
+DO verifica WITH 1047, 'cod=1140885', lcLog, 2
+
+*!* cursorul gol - structura cu 21 de campuri, inclusiv id_vanzare (nou)
+CreeazaCursorTvdGol()
+STRTOFILE('--- CreeazaCursorTvdGol ---' + CHR(13) + CHR(10) + ;
+	'  Fcount(tvd) = ' + TRANSFORM(FCOUNT('tvd')) + ' (asteptat 21)' + CHR(13) + CHR(10) + ;
+	'  are id_vanzare: ' + TRANSFORM(TYPE('tvd.id_vanzare') <> 'U') + CHR(13) + CHR(10) + ;
+	'  ' + IIF(FCOUNT('tvd') == 21, 'PASS', 'FAIL') + CHR(13) + CHR(10), lcLog, 1)
+IF Used('tvd')
+	Use In tvd
+ENDIF
+
+STRTOFILE('done' + CHR(13) + CHR(10), lcLog, 1)
+QUIT
+
+
+PROCEDURE verifica
+	LPARAMETERS tnIdVanzare, tcEticheta, tcLog, tnLiniiAsteptate
+
+	LOCAL lnLinii, lnIdVanzareCol
+
+	IncarcaArticoleFactura(tnIdVanzare)
+	lnLinii = Reccount('tvd')
+	lnIdVanzareCol = -1
+	IF lnLinii > 0
+		SELECT tvd
+		GO TOP
+		lnIdVanzareCol = tvd.id_vanzare
+	ENDIF
+
+	STRTOFILE('--- id_vanzare=' + TRANSFORM(tnIdVanzare) + ' [' + tcEticheta + '] ---' + CHR(13) + CHR(10) + ;
+		'  Reccount(tvd) = ' + TRANSFORM(lnLinii) + ' (asteptat ' + TRANSFORM(tnLiniiAsteptate) + ')' + CHR(13) + CHR(10) + ;
+		'  tvd.id_vanzare pe primul rand = ' + TRANSFORM(lnIdVanzareCol) + ' (asteptat ' + TRANSFORM(tnIdVanzare) + ')' + CHR(13) + CHR(10) + ;
+		'  ' + IIF(lnLinii == tnLiniiAsteptate AND (lnLinii == 0 OR lnIdVanzareCol == tnIdVanzare), 'PASS', 'FAIL') + CHR(13) + CHR(10), tcLog, 1)
+
+	IF Used('tvd')
+		Use In tvd
+	ENDIF
+ENDPROC
+
+
+PROCEDURE test_error_handler
+	LPARAMETERS tnError, tcMessage, tcProgram, tnLineNo
+
+	STRTOFILE('EROARE ' + TRANSFORM(tnError) + ' [' + tcProgram + ':' + TRANSFORM(tnLineNo) + '] ' + tcMessage + CHR(13) + CHR(10), gcErrLog, 1)
+ENDPROC