* mock_facturi_duplicate.prg - inlocuieste FUNCTION facturi_duplicate (oproceduri_comune.prg) in
* testele eFactura, ca verificarea de facturi duplicate sa fie determinista, fara sa depinda de
* date reale din IREG_PARTENERI. Acelasi tipar ca mock_amessagebox.prg: SET PROCEDURE ADDITIVE
* PRIMA, inainte de fisierele aplicatiei. Raspunde cu gcMockDuplicat (PUBLIC, declarat de test)
* daca exista, altfel sir gol (nicio factura duplicata). Lasa in mod deliberat alta zona de lucru
* selectata la iesire (ca originalul, care nu isi salveaza/restaureaza SELECT()), ca apelantul sa
* fie testat pe acelasi comportament.
PROCEDURE facturi_duplicate
	LPARAMETERS tcCont, tnIdPart, tcSerieAct, tnNract, tcMesajReturn
	LOCAL lcRezultat
	lcRezultat = IIF(TYPE('gcMockDuplicat') = 'C', gcMockDuplicat, '')
	IF !USED('cMockFactDbl')
		CREATE CURSOR cMockFactDbl (nr_ireg N(5))
	ENDIF
	SELECT cMockFactDbl
	RETURN m.lcRezultat
ENDPROC