romfast/comun
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
b851051c44c7f85f1e2f3dca423dbccb5322caeb
comun/utile/Teste/facturare_unificat/mock_caut_antet.prg
Marius Mutu 8e022d332e #13: formular de facturare unificat - etapa curenta 
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
2026-09-09 21:38:25 +03:00

230 lines
7.1 KiB
Plaintext
Raw Blame History

* mock_caut_antet.prg - inlocuieste dialogurile modale de cautare apelate din do_cauta_* (ocautare.prg,
* oproceduri_facturare.prg, oproceduri_comune.prg) cu functii care intorc o valoare fixa si inregistreaza
* apelul (nume + argumente) in gcMockApeluri (PUBLIC, declarat de test). Se incarca ULTIMUL cu
* SET PROCEDURE ... ADDITIVE. Valorile intoarse se controleaza prin PUBLIC gnMockIdPart (id-ul
* partenerului intors de CautPartenerContabilitate) si gnMockButon (valoarea pusa in gnButon de
* fiecare "dialog", ca in productie unde dialogul seteaza gnButon la inchidere).
PROCEDURE MockLog
LPARAMETERS tcNume, tcArgs
IF TYPE("gcLog") = "C"
STRTOFILE("MOCK " + tcNume + CHR(13) + CHR(10), gcLog, 1)
ENDIF
IF TYPE('gcMockApeluri') = 'C'
gcMockApeluri = gcMockApeluri + tcNume + "(" + tcArgs + ")" + CHR(13) + CHR(10)
ENDIF
IF TYPE('gnMockButon') = 'N'
gnButon = gnMockButon
ENDIF
ENDPROC
FUNCTION MockArgs
LPARAMETERS tnCount, t1, t2, t3, t4, t5, t6, t7
LOCAL lcA, i
lcA = ""
FOR i = 1 TO tnCount
lcA = lcA + IIF(i > 1, ",", "") + TRANSFORM(EVALUATE("t" + TRANSFORM(i)))
ENDFOR
RETURN lcA
ENDFUNC
PROCEDURE CautPartenerContabilitate
LPARAMETERS toHash
LOCAL loR
DO MockLog WITH "CautPartenerContabilitate", "cTitlu=" + TRANSFORM(toHash.GetValue('cTitlu')) + ";cCont=" + TRANSFORM(toHash.GetValue('cCont')) + ";dDataDoc=" + TRANSFORM(toHash.GetValue('dDataDoc'))
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_part", IIF(TYPE('gnMockIdPart') = 'N', gnMockIdPart, 0))
ADDPROPERTY(loR, "denumire", "PARTENER MOCK")
ADDPROPERTY(loR, "cod_fiscal", "RO1234567")
RETURN loR
ENDPROC
FUNCTION caut_avize
LPARAMETERS tnIdClient
LOCAL lcXml
DO MockLog WITH "caut_avize", MockArgs(PCOUNT(), tnIdClient)
CREATE CURSOR crsMockAvize (id_vanzare N(10), id_comanda N(10), serie_act C(10), numar_act N(10))
INSERT INTO crsMockAvize VALUES (101, 0, "AV", 7)
INSERT INTO crsMockAvize VALUES (102, 555, "AV", 8)
CURSORTOXML("crsMockAvize", "lcXml", 1, 0, 0, "1")
USE IN crsMockAvize
RETURN lcXml
ENDFUNC
FUNCTION caut_comanda_clienti
LPARAMETERS tnIdClient
LOCAL loR
DO MockLog WITH "caut_comanda_clienti", MockArgs(PCOUNT(), tnIdClient)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_comanda", "301")
ADDPROPERTY(loR, "nr_comanda", "CMD-301 ")
ADDPROPERTY(loR, "id_part", tnIdClient)
ADDPROPERTY(loR, "nume", "PARTENER MOCK")
RETURN loR
ENDFUNC
FUNCTION caut_comanda_client
LPARAMETERS tnIdClient
LOCAL loR
DO MockLog WITH "caut_comanda_client", MockArgs(PCOUNT(), tnIdClient)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_comanda", "302")
ADDPROPERTY(loR, "nr_comanda", "CMD-302 ")
ADDPROPERTY(loR, "id_part", tnIdClient)
ADDPROPERTY(loR, "nume", "PARTENER MOCK")
RETURN loR
ENDFUNC
FUNCTION caut_comanda_gestiune
LPARAMETERS tnIdGest
LOCAL loR
DO MockLog WITH "caut_comanda_gestiune", MockArgs(PCOUNT(), tnIdGest)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_comanda", "303")
ADDPROPERTY(loR, "nr_comanda", "CMD-303 ")
ADDPROPERTY(loR, "id_part", tnIdGest)
ADDPROPERTY(loR, "nume", "GESTIUNE MOCK")
RETURN loR
ENDFUNC
FUNCTION caut_contract_facturare
LPARAMETERS tnIdClient, tcTipuri
LOCAL lcXml
DO MockLog WITH "caut_contract_facturare", MockArgs(PCOUNT(), tnIdClient, tcTipuri)
CREATE CURSOR crsMockCtr (id_ctr N(10), contract C(20), scadenta_incasare N(5), afisare_scadenta N(1), opt_facturare N(2))
INSERT INTO crsMockCtr VALUES (401, "CTR-401", 15, 1, 3)
INSERT INTO crsMockCtr VALUES (402, "CTR-402", 30, 0, 4)
CURSORTOXML("crsMockCtr", "lcXml", 1, 0, 0, "1")
USE IN crsMockCtr
RETURN lcXml
ENDFUNC
FUNCTION caut_facturi_client
LPARAMETERS tnIdClient
LOCAL loR
DO MockLog WITH "caut_facturi_client", MockArgs(PCOUNT(), tnIdClient)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_fact", 501)
ADDPROPERTY(loR, "serie_act", "FA")
ADDPROPERTY(loR, "nract", 77)
RETURN loR
ENDFUNC
FUNCTION caut_facturi_multiple_client
LPARAMETERS tnIdClient, tnInValuta, tnIdValuta, tlMultiple
LOCAL lcXml
DO MockLog WITH "caut_facturi_multiple_client", MockArgs(PCOUNT(), tnIdClient, tnInValuta, tnIdValuta, tlMultiple)
CREATE CURSOR crsMockFact (id_vanzare N(10), serie_act C(10), numar_act N(10))
INSERT INTO crsMockFact VALUES (601, "FA", 11)
INSERT INTO crsMockFact VALUES (602, "", 12)
CURSORTOXML("crsMockFact", "lcXml", 1, 0, 0, "1")
USE IN crsMockFact
RETURN lcXml
ENDFUNC
FUNCTION caut_fdoc
LOCAL loR
DO MockLog WITH "caut_fdoc", ""
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_fdoc", 9)
ADDPROPERTY(loR, "fel_document", "FEL MOCK")
RETURN loR
ENDFUNC
FUNCTION caut_gestiune
LPARAMETERS t1, t2
LOCAL loR
DO MockLog WITH "caut_gestiune", MockArgs(PCOUNT(), t1, t2)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_gestiune", 701)
ADDPROPERTY(loR, "nume_gestiune", "GESTIUNE INIT MOCK")
RETURN loR
ENDFUNC
FUNCTION caut_gestiune_sursa
LPARAMETERS tcTipuri
LOCAL loR
DO MockLog WITH "caut_gestiune_sursa", MockArgs(PCOUNT(), tcTipuri)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_gestiune", 702)
ADDPROPERTY(loR, "nume_gestiune", "GESTIUNE SURSA MOCK")
RETURN loR
ENDFUNC
FUNCTION caut_gestiune_dest
LPARAMETERS tnIdGest, tcTipuri
LOCAL loR
DO MockLog WITH "caut_gestiune_dest", MockArgs(PCOUNT(), tnIdGest, tcTipuri)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_gestiune", 703)
ADDPROPERTY(loR, "nume_gestiune", "GESTIUNE DEST MOCK")
ADDPROPERTY(loR, "id_tipgest", 4)
ADDPROPERTY(loR, "Cont", "371")
ADDPROPERTY(loR, "acont", NULL)
RETURN loR
ENDFUNC
FUNCTION caut_locatie_restaurant
LOCAL loR
DO MockLog WITH "caut_locatie_restaurant", ""
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_rest_locatie", "801")
ADDPROPERTY(loR, "locatie", "LOCATIE MOCK")
RETURN loR
ENDFUNC
PROCEDURE caut_lucrare
LPARAMETERS t1, t2, t3
LOCAL loR
DO MockLog WITH "caut_lucrare", MockArgs(PCOUNT(), t1, t2, t3)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_lucrare", 901)
ADDPROPERTY(loR, "nrord", "LUCR-901")
RETURN loR
ENDPROC
PROCEDURE caut_politici_curente_util
LOCAL loR
DO MockLog WITH "caut_politici_curente_util", ""
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_pol", 1001)
ADDPROPERTY(loR, "nume", "POLITICA MOCK")
RETURN loR
ENDPROC
FUNCTION caut_sectie
LPARAMETERS t1, t2, t3, t4, t5
LOCAL loR
DO MockLog WITH "caut_sectie", MockArgs(PCOUNT(), t1, t2, t3, t4, t5)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_sectie", 1101)
ADDPROPERTY(loR, "sectie", "SECTIE MOCK")
RETURN loR
ENDFUNC
FUNCTION caut_valuta
LPARAMETERS t1, t2, t3
LOCAL loR
DO MockLog WITH "caut_valuta", MockArgs(PCOUNT(), t1, t2, t3)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_valuta", 2)
ADDPROPERTY(loR, "nume_val", "EUR")
RETURN loR
ENDFUNC
FUNCTION caut_venchelt
LPARAMETERS t1, t2, t3, t4, t5, t6, t7
LOCAL loR
DO MockLog WITH "caut_venchelt", MockArgs(PCOUNT(), t1, t2, t3, t4, t5, t6, t7)
loR = CREATEOBJECT("Empty")
ADDPROPERTY(loR, "id_venchelt", 1201)
ADDPROPERTY(loR, "explicatie", "VENIT MOCK")
RETURN loR
ENDFUNC
PROCEDURE VerificaCodFiscal
LPARAMETERS toDate, tnOptiune, toPartener
DO MockLog WITH "VerificaCodFiscal", "denumire=" + TRANSFORM(toDate.denumire) + ";cod_fiscal=" + TRANSFORM(toDate.cod_fiscal) + ";tip=" + TRANSFORM(toDate.tip_verificare) + ";opt=" + TRANSFORM(tnOptiune)
RETURN 1
ENDPROC
Reference in New Issue View Git Blame Copy Permalink