* 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