Marius Mutu
53d9f1c64a
- import_nota / import_adauga_factura: flux unificat note contabile + articole, sincronizare automata, total factura automat, TVA impartit pe conturile creditoare ale notelor (rundele 1-31) - runda 32: totalurile import_nota pe _label/_textbox din _baza.vcx (Arial 10), fara containerele clb_tx_simplu si fara bifa "Recalculeaza TVA" (recalcul mereu automat); "Sincronizeaza facturile secundare" mutata sub butoane - utile/Teste: harness UI VFP headless (vfp_ui_harness.ps1, ui_harness.prg, precompilare, mock-uri) in radacina; suitele e2e pentru achizitia din import grupate in utile/Teste/achizitie_import/ - docs: flux editare text vcx/scx, testare-ui-vfp si testare-vfp-mcp (mutate din ROAGEST, general valabile), inventar comun, orchestrare subagenti, conventie GO recno, depanare testare VFP Co-Authored-By: Claude Fable 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_019DGibQKa5uK4P2TNSFFQNh
26 lines
1.6 KiB
Plaintext
26 lines
1.6 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 ULTIMA cu SET PROCEDURE ... ADDITIVE - in VFP, la nume duplicat de procedura,
|
|
* castiga fisierul de proceduri deschis cel mai recent. Logheaza apelul (dovada rezolutiei).
|
|
* 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).
|
|
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('gcUILog') = 'C'
|
|
DO HarnessLog WITH 'MOCK amessagebox apelat: [' + ALLTRIM(TRANSFORM(tcMessage)) + '] -> returnez ' + TRANSFORM(lnRaspuns)
|
|
ENDIF
|
|
RETURN lnRaspuns
|
|
ENDFUNC
|