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:
24
utile/Teste/storno/mock_xmenu_storno.prg
Normal file
24
utile/Teste/storno/mock_xmenu_storno.prg
Normal 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
|
||||
Reference in New Issue
Block a user