* mock_muta_borderou.prg - controlul negativ al probei S11: inlocuieste FUNCTION
* MutaBorderouReemitere (din ofacturare_rutare_scriere.prg) cu un no-op care intoarce .T.,
* adica exact starea codului DINAINTE de reparatia S11. Nu se atinge fisierul comis.
* Se incarca PRIMA in lista SET PROCEDURE - in VFP, la nume duplicat de procedura castiga primul
* fisier din lista, nu cel deschis cel mai recent:
*   lcProcExistent = SET("PROCEDURE")
*   SET PROCEDURE TO "<cale>\mock_muta_borderou.prg", &lcProcExistent
* Dovada ca mock-ul a preluat NU se ia chemand functia din test (ar demonstra doar rezolutia din
* test), ci din gnMockMutaApeluri, incrementat aici si citit dupa apelul facut de .vc2.
FUNCTION MutaBorderouReemitere
	LPARAMETERS tnIdVanzareVechi, tnIdVanzareNou
	IF TYPE('gnMockMutaApeluri') = 'N'
		gnMockMutaApeluri = gnMockMutaApeluri + 1
	ENDIF
	IF TYPE('gcErrLog') = 'C'
		STRTOFILE('MOCK MutaBorderouReemitere(' + TRANSFORM(tnIdVanzareVechi) + ', ' + ;
			TRANSFORM(tnIdVanzareNou) + ') -> .T. fara nicio scriere' + CHR(13) + CHR(10), gcErrLog, 1)
	ENDIF
	RETURN .T.
ENDFUNC