sync SVN r18218

utile/Teste/grid_albit/mock_cauta_alfa_capture.prg

@@ -0,0 +1,53 @@
+* 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)