roafacturare/docs/cercetare/rec_s4_apelanti.md

Extinderea la cei 5 apelanti frm_modific2024 + linia din roagest.prg

09.08.2026. Extinde solutia "cursorul se pregateste inainte de Createobject" (aplicata deja doar la do_editare_factura, ofacturare_comun.vc2:3792) la ceilalti 4 apelanti care fac Createobject([frm_modific2024]) fara sa pre-incarce nimic, plus linia lipsa din roagest.prg.

Helper-ul nou: PregatesteArticoleFacturaEditare(tcAliasAct)

COMUN\programe\ofacturare_editare.prg:319-340. O singura functie, un singur apel per apelant, inainte de Createobject:

IF "OFACTURARE_EDITARE" $ Upper(Set("Procedure"))
	PregatesteArticoleFacturaEditare('tact')
ENDIF

Reutilizeaza integral ce exista deja, fara sa rescrie nimic:

• descoperirea: IncarcaVanzareDinNota(tcAliasAct) — incearca toate tripletele distincte (cod, nract, serie_act, dataact) din alias pana gaseste un rand in VANZARI (decizia 27); populeaza tvanz si salveaza/restaureaza singura workarea si pozitia curenta pe alias.
• pre-incarcarea: daca a gasit (Reccount('tvanz') = 1), IncarcaArticoleFactura(tvanz.id_vanzare, 'crsArticoleFactura') — exact acelasi apel ca in do_editare_factura.

Helper-ul insusi mai adauga doar restaurarea workarei de la intrare (Select()/SELECT (...), acelasi tipar ca in IncarcaVanzareDinNota), pentru ca IncarcaArticoleFactura isi lasa workarea curenta pe cursorul nou creat, nu pe cea a apelantului.

Decizie: cand nu gaseste randul (tact lipsa/gol, sau nota fara VANZARI), nu creeaza crsArticoleFactura deloc — nu-l creeaza gol. Motivul: Load() din frm_modific2024 (omodificari.vc2:14144, fisier interzis, neatins) testeaza IF Used('crsArticoleFactura') inainte de APPEND FROM; daca helper-ul nu-l deschide, comportamentul e identic cu azi — cursorul canonic gol creat de Load(), plus fallback-ul din Show() (IF Reccount('tvd') = 0) ramane calea activa exact ca inainte de aceasta lucrare. Fara mesaj de eroare pe calea "nu gaseste" — mesajele Oracle raman doar in IncarcaVanzareNota/IncarcaArticoleFactura, pe erori Oracle propriu-zise (neschimbate).

Nu strica workarea/pozitia apelantului in niciun caz (gasit, negasit, sau eroare Oracle).

Cei 4 apelanti tratati

Fisier:linie apel	Clasa.metoda	Context
COMUN\clase\comun.vc2:2435-2437	afisjurcom.do_modifica	registrul jurnal, viu in ROACONT
COMUN\clase\anaf_efactura.vc2:13084-13086	frm_import_efactura.importmodifica	import eFactura achizitie
COMUN\ferestre\frm_initializare_facturi_balanta.sc2:1803-1806	form1.modificanote	initializare solduri
COMUN\ferestre\frm_import_note_facturi_clienti.sc2:895-898	form1.modificanote	import note facturi clienti

Fiecare: apel gardat cu "OFACTURARE_EDITARE" $ Upper(Set("Procedure")) inainte de Createobject([frm_modific2024]...), plus curatenie If Used('crsArticoleFactura') / Use In crsArticoleFactura / Endif alaturi de restul cursoarelor eliberate la iesirea din metoda (acolo unde apelantul le elibereaza deja — toti 4 o fac).

Doi din cei patru sunt no-op-uri sigure, nu utile azi, dar consistente cu cerinta ("fiecare apelant primeste apelul"):

• anaf_efactura.importmodifica importa o factura de achizitie (comentariul de la linia 13104 o confirma), nu are legatura cu VANZARI — tact la momentul apelului e construit din cnote_contabile (achizitie), fara cod corespunzator unei vanzari. Discovery nu gaseste nimic, helper-ul e no-op curat.
• Cele doua .sc2 (frm_initializare_facturi_balanta, frm_import_note_facturi_clienti) creeaza note noi (llNotaNoua = .T.) — cod-ul se genereaza abia dupa ce formularul se inchide (SELECT seq_cod.nextval, dupa Show(1, ...)). La momentul apelului tact n-are inca cod legat de o vanzare existenta, deci discovery nu gaseste nimic, la fel no-op.

Doar afisjurcom.do_modifica (registrul jurnal) atinge azi documente cu rand real in VANZARI pe aceasta cale — acolo helper-ul chiar precarca articolele, la fel ca la do_editare_factura.

Show() ramane fallback — cod (probabil) mort pentru calea tratata

Nu s-a atins omodificari.vc2 (fisier interzis). Fallback-ul din Show() (IF Reccount('tvd') = 0 THEN IncarcaArticoleFactura(...)) ramane pe loc, neschimbat. Pentru cei 5 apelanti tratati acum (do_editare_factura + cei 4 de mai sus), tvd va fi deja plin dupa Load() cand precarcarea a gasit ceva, deci fallback-ul nu se mai declanseaza — la fel cum se intampla deja pentru do_editare_factura. Ramane cod activ doar pentru apelantii care nu pre-incarca deloc (niciunul azi, dupa aceasta lucrare) si pentru orice viitor apelant care nu adopta tiparul. Recomandare: nu se scoate — e in fisierul interzis si decizia e a lui Marius, dar merita observat ca azi n-a mai ramas niciun apelant cunoscut care sa-l exercite.

Linia din roagest.prg

D:\ROA\ROAGEST\Programe\roagest.prg:260: SET PROCEDURE TO ofacturare_editare.prg ADDITIVE, adaugata imediat dupa ofacturare_comun.PRG (acelasi loc relativ ca in roacont.prg:212, deja comis in SVN r18006). Precoditie verificata inainte de editare: Test-Path D:\ROA\ROAGEST\COMUN\programe\ofacturare_editare.prg — fisierul exista pe disc (copia de COMUN din ROAGEST fusese adusa la r18010, per progres.md).

Testare

Suita test_page3_articole.prg extinsa cu o asertie noua (verifica_precarcare_articole, :544-614): reproduce exact secventa din afisjurcom.do_modifica (IncarcaCursoareModificareNota

• rebuild tact cu cu_Tva + PregatesteArticoleFacturaEditare('tact') + Createobject + Show()), si verifica workarea lui tvd identica intre Load si Show — indicatorul deja folosit in suita pentru "fallback-ul din Show() nu a reinchis cursorul". Inainte de aceasta lucrare, pe calea negardata (verifica_recordsource_grid, cazul F), workarea diferea: 5 dupa Load, 26 dupa Show. Pe calea noua (cazul A, cu precarcare): 5 dupa Load, 5 dupa Show — identic, deci fallback-ul n-a mai reinchis cursorul.

Rulat sub watchdog_vfp.ps1 -AutoDismiss, .fxp-uri vechi sterse inainte de fiecare rulare, loForm.ClassLibrary confirmat pe copia editata (nu ROACONT):

Suita	Inainte	Dupa	Exit / dialoguri
test_page3_articole.prg	13 PASS / 2 FAIL	14 PASS / 2 FAIL	0 / 0
test_incarca_vanzare_din_nota.prg	5/5	5/5	0 / 0

Cele 2 FAIL raman identice cu inainte — artefactul headless deja documentat (datoria 7, eroare 1925 Unknown member COLUMN5), neatins de aceasta lucrare. Cifra noua (+1 PASS) e exact asertia adaugata; nicio alta cifra nu s-a miscat — fara regresie.

Netestat: fluxul complet prin afisjurcom.do_modifica/importmodifica/cele doua .sc2 (formularele lor nu se instantiaza headless — cer crsfacturi/crsDetaliiFacturiTemp populate printr-un flux real, aceeasi limitare documentata deja pentru frm_facturi). Testul nou reproduce secventa de cod linie cu linie, nu formularul intreg — verifica helper-ul si interactiunea cu Load()/Show(), nu drumul UI complet pana la el.

Encoding si write-back

Toate editarile facute pe octeti (script Perl, binmode :raw, fara nicio decodare/reencodare), cu match exact pe ancore unice (verificat cate o singura potrivire per inlocuire inainte de scriere). Cens de octeti >0x7F identic inainte/dupa pe toate fisierele atinse, zero secventa EF BF BD dupa:

Fisier	Cens >0x7F (inainte = dupa)
comun.vc2	1× ee
anaf_efactura.vc2	1× e3
frm_initializare_facturi_balanta.sc2	0
frm_import_note_facturi_clienti.sc2	0
ofacturare_editare.prg	0
roagest.prg	1× a9

Write-back text->binar cu txt2vcx.ps1 -AllowComun, toate 4 (comun.vc2, anaf_efactura.vc2, cele doua .sc2) — fidelity check OK pe toate, cens neschimbat dupa refresh-ul cache-ului text. ofacturare_editare.prg, roagest.prg si test_page3_articole.prg sunt surse directe (.prg), fara pas de write-back binar.

Fisiere atinse, stare write-back

Fisier	Modificare	Write-back
COMUN\programe\ofacturare_editare.prg	helper nou + antet rescris	N/A (sursa directa)
COMUN\clase\comun.vc2 + .vcx/.VCT	apel gardat + cleanup	FACUT, fidelity OK
COMUN\clase\anaf_efactura.vc2 + .vcx/.vct	apel gardat + cleanup	FACUT, fidelity OK
COMUN\ferestre\frm_initializare_facturi_balanta.sc2 + .scx/.SCT	apel gardat + cleanup	FACUT, fidelity OK
COMUN\ferestre\frm_import_note_facturi_clienti.sc2 + .scx/.sct	apel gardat + cleanup	FACUT, fidelity OK
D:\ROA\ROAGEST\Programe\roagest.prg	linie SET PROCEDURE noua	N/A (sursa directa)
COMUN\utile\Teste\editare_factura\test_page3_articole.prg	asertie noua	N/A (nu are binar, doar git)

Neatinse (interzise): COMUN\clase\omodificari.vc2, COMUN\clase\ofacturare_comun.vc2.

Fara commit — diff-ul: docs\diff_s4_apelanti_frm_modific2024.patch (2 sectiuni: COMUN din comun.git, ROAGEST\Programe\roagest.prg din roagest.git).

Ce ramane pentru decizia lui Marius

• Aproba diff-ul si cele doua write-back-uri (COMUN, ROAGEST) inainte de commit.
• Rebuild ROACONT ramane la Marius (deja notat in progres.md) — abia dupa el PAGE3 apare efectiv in registrul jurnal acolo. Rebuild ROAGEST, similar, dupa linia noua din roagest.prg.
• Observatia despre fallback-ul din Show() (probabil cod mort pentru toti apelantii cunoscuti azi) — informativa, nu se actioneaza fara aprobare (fisier interzis).