35 lines
1.7 KiB
Plaintext
35 lines
1.7 KiB
Plaintext
* mock_meniu_dblclick_deps.prg - inlocuieste nom_parteneri_modifica (COMUN\programe\onomenclatoare.prg)
|
|
* si VerificaCodFiscal (COMUN\programe\oproceduri_comune.prg) in testele banda C (dublu-click in
|
|
* grid-ul de verificare coduri fiscale), ca sa nu deschida formulare modale reale. Ambele proceduri
|
|
* sunt definite in fisiere DIFERITE de overificari.vc2 (apelantul), deci mock-ul castiga normal
|
|
* 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
|
|
IF TYPE('gnMockNomModCount') = 'N'
|
|
gnMockNomModCount = gnMockNomModCount + 1
|
|
ENDIF
|
|
IF TYPE('gnMockNomModId') = 'N'
|
|
gnMockNomModId = tnId_Part
|
|
ENDIF
|
|
RETURN NULL
|
|
ENDPROC
|
|
|
|
PROCEDURE VerificaCodFiscal
|
|
LPARAMETERS toDate, lnOptiune, loPartener
|
|
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
|