#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/editare_factura/probe_s9_4_parameters.prg

@@ -0,0 +1,54 @@
+* probe_s9_4_parameters.prg
+* READ-ONLY, fara Oracle: PARAMETERS() vs PCOUNT() vs VARTYPE() intr-o functie cu parametri
+* optionali, dupa ce s-a executat un apel imbricat. Decide garda din hunk C (S9-4).
+
+SET SAFETY OFF
+SET TALK OFF
+
+PUBLIC gcErrLog
+gcErrLog = 'D:\ROA\ROAFACTURARE\COMUN\utile\Teste\editare_factura\probe_s9_4_parameters_log.txt'
+STRTOFILE('start ' + TRANSFORM(DATETIME()) + CHR(13) + CHR(10), gcErrLog)
+
+LOCAL lnOut, llR
+lnOut = 0
+
+*!* cazul 1: apelant care TRANSMITE al 6-lea parametru prin referinta
+llR = Tinta(1, 2, 3, 4, 5, @lnOut)
+STRTOFILE('CU al 6-lea param: lnOut dupa apel = ' + TRANSFORM(lnOut) + CHR(13) + CHR(10), gcErrLog, 1)
+
+*!* cazul 2: apelant care NU il transmite
+llR = Tinta(1, 2, 3, 4, 5)
+
+STRTOFILE('end' + CHR(13) + CHR(10), gcErrLog, 1)
+QUIT
+
+
+FUNCTION Tinta
+	LPARAMETERS t1, t2, t3, t4, t5, t6
+	LOCAL lnDummy
+
+	STRTOFILE('--- apel Tinta ---' + CHR(13) + CHR(10), gcErrLog, 1)
+	STRTOFILE('  INAINTE de apel imbricat: PARAMETERS()=' + TRANSFORM(PARAMETERS()) + ;
+		'  PCOUNT()=' + TRANSFORM(PCOUNT()) + '  VARTYPE(m.t6)=' + VARTYPE(m.t6) + CHR(13) + CHR(10), gcErrLog, 1)
+
+	*!* apel imbricat cu 2 parametri - exact situatia din StergeDocumentFacturare (goExecutor, OSCRIE_IN_FISIERE)
+	lnDummy = Imbricat(10, 20)
+
+	STRTOFILE('  DUPA apel imbricat cu 2 param: PARAMETERS()=' + TRANSFORM(PARAMETERS()) + ;
+		'  PCOUNT()=' + TRANSFORM(PCOUNT()) + '  VARTYPE(m.t6)=' + VARTYPE(m.t6) + CHR(13) + CHR(10), gcErrLog, 1)
+
+	IF VARTYPE(m.t6) = 'N'
+		t6 = 4242
+		STRTOFILE('  garda VARTYPE: a scris in t6' + CHR(13) + CHR(10), gcErrLog, 1)
+	ELSE
+		STRTOFILE('  garda VARTYPE: NU a scris in t6' + CHR(13) + CHR(10), gcErrLog, 1)
+	ENDIF
+
+	RETURN .T.
+ENDFUNC
+
+
+FUNCTION Imbricat
+	LPARAMETERS a, b
+	RETURN a + b
+ENDFUNC