#13: formular de facturare unificat - etapa curenta

Squash al branch-ului de lucru plan13-s2.

Clase: ofacturare (nucleul formularului unificat), ofacturare_comun,
ferestre_cere_date, ocomenzi, caut_ora (lista de preturi in combo-urile de
cautare), omodificari.

Programe: ofacturare impartit - ofacturare_antet, ofacturare_rutare_scriere si
ogrid_latimi sunt fisiere noi; oproceduri_facturare primeste discountul pe linie
si cota standard de TVA cand articolul nu are cota pe politica.

Documentatie: capcana SQLExec no_data_found, conventia de encoding, depanarea
testelor VFP si regulile de lucru - conflictele cu modificarile venite din alte
proiecte sunt rezolvate pastrand ambele parti.

Loguri de rulare a testelor scoase din versionare; testele raman.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01PkyjGyrV2S7932om4kfSiK

utile/Teste/facturare_unificat/mock_validare_antet.prg

@@ -0,0 +1,29 @@
+* mock_validare_antet.prg - pentru test_s3_validare_antet.prg: inlocuieste amessagebox si facturi_duplicate
+* (ambele din oproceduri_comune.prg) cu functii care inregistreaza apelul (text + tip + titlu, respectiv
+* cont + serie + numar) in gcMockApeluri (PUBLIC, declarat de test) si intorc valori programate:
+*   amessagebox       -> gnMockRaspuns (PUBLIC; implicit 6)
+*   facturi_duplicate -> gcMockDuplicat (PUBLIC; implicit "" = fara dubluri; netrivial = simuleaza dubluri)
+* Se pune PRIMUL in SET PROCEDURE (la nume duplicat castiga primul fisier din lista).
+
+PROCEDURE MockJurnal
+	LPARAMETERS tcLinie
+	IF TYPE('gcMockApeluri') = 'C'
+		gcMockApeluri = gcMockApeluri + tcLinie + CHR(13) + CHR(10)
+	ENDIF
+ENDPROC
+
+FUNCTION amessagebox
+	LPARAMETERS tcMessage, tnDialogBoxType, tcTitle, tcFont, tnTimeOut, tnTimeoutValue
+	LOCAL lnRaspuns
+	lnRaspuns = IIF(TYPE('gnMockRaspuns') = 'N', gnMockRaspuns, 6)
+	DO MockJurnal WITH "amessagebox([" + STRTRAN(TRANSFORM(tcMessage), CHR(13), "|") + "]," + TRANSFORM(tnDialogBoxType) + ",[" + TRANSFORM(tcTitle) + "]) -> " + TRANSFORM(lnRaspuns)
+	RETURN lnRaspuns
+ENDFUNC
+
+FUNCTION facturi_duplicate
+	LPARAMETERS tcCont, tnIdFact, tcSerie, tnNumar, tcAltele
+	LOCAL lcR
+	lcR = IIF(TYPE('gcMockDuplicat') = 'C', gcMockDuplicat, "")
+	DO MockJurnal WITH "facturi_duplicate(" + TRANSFORM(tcCont) + "," + TRANSFORM(tnIdFact) + ",[" + TRANSFORM(tcSerie) + "]," + TRANSFORM(tnNumar) + ") -> [" + lcR + "]"
+	RETURN lcR
+ENDFUNC