* mock_cauta_alfa_capture.prg - inlocuieste DOAR PROCEDURE cauta_alfa (COMUN\programe\cauta_alfa.prg,
* linia 16), NU restul lantului (do_cauta/CautPartenerContabilitate/alege_partener raman REALE,
* neatinse) - captureaza starea EXACT in punctul unde codul real ar deschide formularul modal de
* cautare: ASTACKINFO() (cine a apelat - LostFocus/Click/AfterRowColChange), Thisform.LockScreen,
* USED/RECCOUNT('tact'), Grid1.RecordSource. Nu deschide niciun formular - raspunde "Cancel"
* (gnButon=2), exact ca un operator care apasa Renunta, ca sa nu blocheze testul.
* Se incarca PRIMUL (inaintea "SET PROCEDURE TO cauta_alfa ADDITIVE" din test_init_env_auto) - la
* nume duplicat de procedura VFP foloseste fisierul incarcat PRIMUL.
*
* Rezultat expus (citit de testul principal): gnCaptureN (numarul de intrari capturate).

Procedure cauta_alfa
	Parameters tcselect,tcfiltru,tcschema,tcorder,tccoloana,tcTitlu,tcTitluColoane, ;
		tcNume_Proc,tl_AllInList,tcFiltruOriginal,tcPrimaColoana, tnPornire, tnTipReturn, ;
		tcIdColumn, tlDesktop, tcGroup, tcGridDynamicBackColor, tcGridToolTip, tlModParam, tcStringCriterii, ;
		tcProceduraVerifica, tcProceduraCopiaza,tcLocate

	LOCAL lcStack, lnI, lnN
	LOCAL ARRAY laStack[1]
	gnCaptureN = gnCaptureN + 1

	lnN = ASTACKINFO(laStack)
	lcStack = ''
	FOR lnI = 1 TO lnN
		lcStack = lcStack + '    #' + TRANSFORM(lnI) + ' ' + TRANSFORM(laStack[lnI,3]) + ' linia ' + TRANSFORM(laStack[lnI,6]) + CHR(13) + CHR(10)
	ENDFOR

	DO HarnessLog WITH '--- CAPTURE #' + TRANSFORM(gnCaptureN) + ' intrare in cauta_alfa (mock) ---'
	DO HarnessLog WITH 'ASTACKINFO:' + CHR(13) + CHR(10) + lcStack
	DO HarnessLog WITH 'LockScreen=' + TRANSFORM(goFormTest.LockScreen) + ;
		' USED(tact)=' + TRANSFORM(USED('tact')) + ' RECCOUNT(tact)=' + TRANSFORM(IIF(USED('tact'),RECCOUNT('tact'),-1)) + ;
		' RECNO(tact)=' + TRANSFORM(IIF(USED('tact'),RECNO('tact'),-1)) + ;
		' Grid1.RecordSource=[' + goFormTest.Grid1.RecordSource + ']' + ;
		' Grid1.Visible=' + TRANSFORM(goFormTest.Grid1.Visible) + ' Thisform.Visible=' + TRANSFORM(goFormTest.Visible)

	IF TYPE('gcCaptureSyncStep') = 'N' AND gcCaptureSyncStep > 0
		DO HarnessStep WITH gcCaptureSyncStep, 'in interiorul cauta_alfa (mock), captura #' + TRANSFORM(gnCaptureN), 8
	ENDIF

	*-- raspuns Cancel real (gnButon global, declarat PUBLIC in test_init_env_auto.prg)
	gnButon = 2
	DO CASE
	CASE tnTipReturn = 0
		LOCAL loRet
		loRet = CREATEOBJECT('Empty')
		ADDPROPERTY(loRet, 'id_part', 0)
		ADDPROPERTY(loRet, 'tip', 0)
		ADDPROPERTY(loRet, 'nume', '')
		RETURN loRet
	OTHERWISE
		RETURN ''
	ENDCASE
Endproc && cauta_alfa (mock capturare)