storno eFactura: forma rearanjata (butoane jos, meniu Trimite, stare pe un rand, redimensionabila), sume vizibile in grid (V(250)), fara SET STEP ON in borderou; e2e adaptat (mock xmenu)

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_01WsxyCHJYL6W9MZ6FPnH8ax
This commit is contained in:
2026-09-18 23:18:30 +03:00
parent 4eae0bd4a6
commit a682e7985b
3 changed files with 212 additions and 120 deletions

View File

@@ -0,0 +1,24 @@
* mock_xmenu_storno.prg - mock XMENU specific testului E2E storno (test_storno_e2e.prg).
* Raspunde din coada PUBLIC gaXmenuQueue/gnXmenuQueuePos (populata de test inainte de fiecare
* Click care deschide meniul cmdTrimite); coada goala -> 0 (echivalent Esc/renuntare la xmenu).
* Logheaza toate apelurile in PUBLIC gaXmenuCalls/gnXmenuCalls.
FUNCTION xmenu
LPARAMETERS tcItems, tnBar
LOCAL lnRaspuns
IF TYPE('gnXmenuQueuePos') = 'N' AND gnXmenuQueuePos <= ALEN(gaXmenuQueue)
lnRaspuns = gaXmenuQueue[gnXmenuQueuePos]
gnXmenuQueuePos = gnXmenuQueuePos + 1
ELSE
lnRaspuns = 0
ENDIF
IF TYPE('gnXmenuCalls') = 'N'
gnXmenuCalls = gnXmenuCalls + 1
DIMENSION gaXmenuCalls[gnXmenuCalls, 2]
gaXmenuCalls[gnXmenuCalls, 1] = TRANSFORM(tcItems)
gaXmenuCalls[gnXmenuCalls, 2] = lnRaspuns
ENDIF
IF TYPE('gcUILog') = 'C'
DO PrLogLocal WITH 'MOCK xmenu: [' + LEFT(TRANSFORM(tcItems), 100) + '] -> ' + TRANSFORM(lnRaspuns)
ENDIF
RETURN lnRaspuns
ENDFUNC