#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
This commit is contained in:
2026-09-09 21:38:25 +03:00
parent d1d0d7c37f
commit 8e022d332e
259 changed files with 57305 additions and 1576 deletions

View File

@@ -0,0 +1,19 @@
*!* 31.08.2026
*!* subagent masuratoare argumente
*!* rutine de proba pentru masurarea comportamentului VFP la argumente in plus, apelate din alt fisier (IN)
PROCEDURE rutina_noparam_ext
lcVal = ''
IF PARAMETERS() >= 1
lcVal = TRANSFORM(p1)
ENDIF
RETURN 'noparam_ext OK, PARAMETERS()=' + TRANSFORM(PARAMETERS())
PROCEDURE rutina_1p_ext
LPARAMETERS p1
RETURN '1p_ext OK, p1=' + TRANSFORM(p1) + ', PARAMETERS()=' + TRANSFORM(PARAMETERS())
FUNCTION rutina_2p_ext
LPARAMETERS p1, p2
lcP2 = IIF(VARTYPE(p2) = 'L' AND ISNULL(p2), 'NULL', IIF(VARTYPE(p2)='L', TRANSFORM(p2) + '(bool.F=lipsa)', TRANSFORM(p2)))
RETURN '2p_ext OK, p1=' + TRANSFORM(p1) + ', p2=' + lcP2 + ', VARTYPE(p2)=' + VARTYPE(p2) + ', PARAMETERS()=' + TRANSFORM(PARAMETERS())