romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync SVN r18038

Browse Source
This commit is contained in:
Marius Mutu
2026-08-23 10:29:05 +03:00
parent 2b695b3656
commit 887ac9faec
8 changed files with 1519 additions and 362 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
utile/Teste/todo21/mock_meniu_dblclick_deps.prg
View File

@@ -5,6 +5,9 @@
* daca e incarcat cu SET PROCEDURE ... ADDITIVE INAINTE de test_init_env_auto.
* Apelurile se numara in variabile PUBLIC (declarate si initializate de test inainte de fiecare pas):
* gnMockNomModCount / gnMockNomModId (nom_parteneri_modifica) si gnMockVerifCodCount (VerificaCodFiscal).
* gcMockVerifCodOptiuniAnte (daca declarata C de test) - captureaza toDate.optiuni_meniu_ante primit.
* gnMockVerifCodLnOptiune (daca declarata N de test) - controleaza ce intoarce mock-ul prin @lnOptiune,
* ca testul sa simuleze alegerea din XMENU (ex. 1 = prima optiune din meniu) fara sa-l deschida.
PROCEDURE nom_parteneri_modifica
LPARAMETERS tnId_Part, tnIdTipPart, tcTipPart, tnSpecial, tcMesaj
@@ -22,6 +25,10 @@ PROCEDURE VerificaCodFiscal
IF TYPE('gnMockVerifCodCount') = 'N'
gnMockVerifCodCount = gnMockVerifCodCount + 1
ENDIF
IF TYPE('gcMockVerifCodOptiuniAnte') = 'C'
gcMockVerifCodOptiuniAnte = IIF(PEMSTATUS(toDate, 'optiuni_meniu_ante', 5), ALLTRIM(toDate.optiuni_meniu_ante), '')
ENDIF
lnOptiune = IIF(TYPE('gnMockVerifCodLnOptiune') = 'N', gnMockVerifCodLnOptiune, 0)
loPartener = NULL
RETURN 7
ENDPROC