#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
This commit is contained in:
229
utile/Teste/facturare_unificat/mock_caut_antet.prg
Normal file
229
utile/Teste/facturare_unificat/mock_caut_antet.prg
Normal file
@@ -0,0 +1,229 @@
|
||||
* 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
Block a user