LOCAL llOK WITH ThisForm llOK=.oMovPed.PedidosNaoSatisfeitos(.oRSMovPed) IF .oRSMovPed.RecordCount>0 lcAliasGridPage1=LOWER(SYS(2015)) .RS2CURSOR(.oRSMovPed,lcAliasGridPage1) SELECT(lcAliasGridPage1) ELSE .SfPageFrame1.SfCnt1.Page1.SfGrd1.RecordSource='' .SfPageFrame1.SfCnt1.Page1.SfGrd1.refresh() ENDIF ENDWITHGridPage1Setup() --
WITH THISFORM .SfPageFrame1.Page1.SfGrd1.RecordSource='' .SfPageFrame1.Page1..SfGrd1.refresh() SELECT (lcAliasGridPage1) GO top .SfPageFrame1.Page1.SfGrd1.RecordSource=(lcAliasGridPage1) .SfPageFrame1.Page1.Sfgrd1.Refresh() .SfPageFrame1.Page1.SfGrd1.Column1.controlsource=lcAliasGridPage1+'.c_codigo' .SfPageFrame1.Page1.SfGrd1.Column2.controlsource=lcAliasGridPage1+'.c_cod_matpri' ENDWITHI remove the code from the timer for page2 and page3, and only refresh de Page1 and it's activepage and the grid lost focus.