54 lines
2.6 KiB
Plaintext
54 lines
2.6 KiB
Plaintext
* 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)
|