Marius Mutu
8e022d332e
Squash al branch-ului de lucru plan13-s2. Clase: ofacturare (nucleul formularului unificat), ofacturare_comun, ferestre_cere_date, ocomenzi, caut_ora (lista de preturi in combo-urile de cautare), omodificari. Programe: ofacturare impartit - ofacturare_antet, ofacturare_rutare_scriere si ogrid_latimi sunt fisiere noi; oproceduri_facturare primeste discountul pe linie si cota standard de TVA cand articolul nu are cota pe politica. Documentatie: capcana SQLExec no_data_found, conventia de encoding, depanarea testelor VFP si regulile de lucru - conflictele cu modificarile venite din alte proiecte sunt rezolvate pastrand ambele parti. Loguri de rulare a testelor scoase din versionare; testele raman. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01PkyjGyrV2S7932om4kfSiK
45 lines
2.8 KiB
Plaintext
45 lines
2.8 KiB
Plaintext
* mock_amessagebox.prg - inlocuieste FUNCTION amessagebox (din oproceduri_comune.prg) in teste,
|
|
* ca dialogurile modale de confirmare sa NU blocheze testul headless. Returneaza 6 (Da/OK) implicit.
|
|
* Se incarca **PRIMA** in lista SET PROCEDURE, INAINTEA fisierelor aplicatiei: la nume duplicat
|
|
* de procedura, VFP foloseste fisierul cautat PRIMUL, nu cel deschis cel mai recent (verificat
|
|
* empiric - vezi COMUN\docs\testare-ui-vfp.md capcana g si antetul lui
|
|
* partener_anaf\mock_anaf_verificare.prg). 23.08.2026: antetul spunea pana acum "ULTIMA", ceea ce
|
|
* e invers si a costat o rulare blocata pe un dialog modal (test_e2e_anaf_firma).
|
|
* Deci nu e de ajuns un SET PROCEDURE ... ADDITIVE la final; lista se reconstruieste cu mock-ul
|
|
* in fata:
|
|
* lcProcExistent = SET("PROCEDURE")
|
|
* SET PROCEDURE TO "<cale>\mock_amessagebox.prg", &lcProcExistent
|
|
* Logheaza apelul (dovada rezolutiei).
|
|
* LIMITA 1: nu acopera sigur apelurile INTRA-FISIER. `verifica_partener_show_info` si
|
|
* `amessagebox` sunt amandoua in oproceduri_comune.prg, deci dialogul acelei functii ramane
|
|
* modal chiar cu mock-ul incarcat; pentru el exista partener_anaf\mock_verifica_partener_show_info.prg.
|
|
* LIMITA 2: nu acopera dialogurile de eroare ale lui goExecutor: o interogare gresita tot agata
|
|
* rularea headless, fara nicio linie in log.
|
|
* Configurabil per apel: daca testul declara PUBLIC gnMockRaspuns (implicit 6 daca nedeclarata),
|
|
* mock-ul returneaza acea valoare - necesar pt. meniuri cu raspunsuri diferite (6/7/2) pe acelasi
|
|
* dialog (ex. do_sterge/do_copiaza_nota, flag 3+32 Yes/No/Cancel).
|
|
* gnMockRaspunsTotal (PUBLIC, optional): cand testul declara aceasta variabila SUPLIMENTARA si
|
|
* mesajul primit contine "Actualizati totalul facturii" (runda25, Grid1.cSuma/cSumaVal.Valid),
|
|
* mock-ul raspunde cu ACEASTA valoare in loc de gnMockRaspuns - necesar cand doua dialoguri
|
|
* diferite (recalculare suma in lei / actualizare total factura) apar in ACELASI apel de metoda
|
|
* si trebuie sa primeasca raspunsuri diferite (ex. Da la primul, Nu la al doilea).
|
|
* gcMockUltimMesaj / gnMockUltimTip (PUBLIC, optional): daca testul declara gcMockUltimMesaj ca
|
|
* sir, mock-ul memoreaza in ele mesajul si tipul ultimului apel - pentru aserti pe TEXTUL dialogului.
|
|
FUNCTION amessagebox
|
|
LPARAMETERS tcMessage, tnDialogBoxType, tcTitle, tcFont, tnTimeOut, tnTimeoutValue
|
|
LOCAL lnRaspuns
|
|
IF TYPE('gnMockRaspunsTotal') = 'N' AND 'Actualizati totalul facturii' $ tcMessage
|
|
lnRaspuns = gnMockRaspunsTotal
|
|
ELSE
|
|
lnRaspuns = IIF(TYPE('gnMockRaspuns') = 'N', gnMockRaspuns, 6)
|
|
ENDIF
|
|
IF TYPE('gcMockUltimMesaj') = 'C'
|
|
gcMockUltimMesaj = TRANSFORM(tcMessage)
|
|
gnMockUltimTip = IIF(TYPE('tnDialogBoxType') = 'N', tnDialogBoxType, 0)
|
|
ENDIF
|
|
IF TYPE('gcUILog') = 'C'
|
|
DO HarnessLog WITH 'MOCK amessagebox apelat: [' + ALLTRIM(TRANSFORM(tcMessage)) + '] -> returnez ' + TRANSFORM(lnRaspuns)
|
|
ENDIF
|
|
RETURN lnRaspuns
|
|
ENDFUNC
|