Code: Select all
REDEFINE GET oGets[8] VAR hVars["CLAVE"] ID 706 OF oDlgChild
oGets[8]:bKeyDown:= { |nKey| IIF( nKey == VK_RETURN, ;
( ChkArticulos( oGets[8], hVars["CLAVE"] ), 1 ) , 0 ) }
REDEFINE BUTTONBMP oBotons[2] ID 716 OF oDlgChild;
ACTION ( AddItemToBrowse(aDetalle, hVars, oGets), ;
oBrwDetalle:Refresh(), oGets[8]:SetFocus(), oGets[8]:Refresh() ) ;
BITMAP "BMP_ADD_ITEM"
Sin embargo si le pongo un MsgStop() antes de poner el foco en el get, si lo regresa el foco al get
Code: Select all
REDEFINE BUTTONBMP oBotons[2] ID 716 OF oDlgChild;
ACTION ( AddItemToBrowse(aDetalle, hVars, oGets), ;
oBrwDetalle:Refresh(), MsgStop("hola"), oGets[8]:SetFocus(), oGets[8]:Refresh() ) ;
BITMAP "BMP_ADD_ITEM"
GABO