* 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