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
30 lines
1.4 KiB
Plaintext
30 lines
1.4 KiB
Plaintext
* mock_validare_antet.prg - pentru test_s3_validare_antet.prg: inlocuieste amessagebox si facturi_duplicate
|
|
* (ambele din oproceduri_comune.prg) cu functii care inregistreaza apelul (text + tip + titlu, respectiv
|
|
* cont + serie + numar) in gcMockApeluri (PUBLIC, declarat de test) si intorc valori programate:
|
|
* amessagebox -> gnMockRaspuns (PUBLIC; implicit 6)
|
|
* facturi_duplicate -> gcMockDuplicat (PUBLIC; implicit "" = fara dubluri; netrivial = simuleaza dubluri)
|
|
* Se pune PRIMUL in SET PROCEDURE (la nume duplicat castiga primul fisier din lista).
|
|
|
|
PROCEDURE MockJurnal
|
|
LPARAMETERS tcLinie
|
|
IF TYPE('gcMockApeluri') = 'C'
|
|
gcMockApeluri = gcMockApeluri + tcLinie + CHR(13) + CHR(10)
|
|
ENDIF
|
|
ENDPROC
|
|
|
|
FUNCTION amessagebox
|
|
LPARAMETERS tcMessage, tnDialogBoxType, tcTitle, tcFont, tnTimeOut, tnTimeoutValue
|
|
LOCAL lnRaspuns
|
|
lnRaspuns = IIF(TYPE('gnMockRaspuns') = 'N', gnMockRaspuns, 6)
|
|
DO MockJurnal WITH "amessagebox([" + STRTRAN(TRANSFORM(tcMessage), CHR(13), "|") + "]," + TRANSFORM(tnDialogBoxType) + ",[" + TRANSFORM(tcTitle) + "]) -> " + TRANSFORM(lnRaspuns)
|
|
RETURN lnRaspuns
|
|
ENDFUNC
|
|
|
|
FUNCTION facturi_duplicate
|
|
LPARAMETERS tcCont, tnIdFact, tcSerie, tnNumar, tcAltele
|
|
LOCAL lcR
|
|
lcR = IIF(TYPE('gcMockDuplicat') = 'C', gcMockDuplicat, "")
|
|
DO MockJurnal WITH "facturi_duplicate(" + TRANSFORM(tcCont) + "," + TRANSFORM(tnIdFact) + ",[" + TRANSFORM(tcSerie) + "]," + TRANSFORM(tnNumar) + ") -> [" + lcR + "]"
|
|
RETURN lcR
|
|
ENDFUNC
|