FiveTech Support Forums

Saludos antonio te escribo por que necesito de tu ayuda estoy trabajando en un entorno MDI- MDICHLID y tengo el siguiente problema estoy llamando una ventana MDI desde una celda tipo get de un TwBrowse que esta contenida en otra ventana MDI, al llamarla me la muestra en pantalla pero no me le coloca el focus intente con una funcion que consegui aqui mismo llamada WndSetFocus que la busca por el ctitle y le da el foco pero no me funciona. te anexo el codigo...

Case nCol == 2
uBuffer := (Brw1:CALIAS)->id_com
aResult := ""
IF lContinue:= Brw1:lEditCol( nCol, @uBuffer, "@!")
IF EMPTY(uBuffer)
COMP0101(uBuffer) // aqui llamo a la otra ventana MDI donde debo
// seleccionar una compañia y traerme ese valor
// para luego insertarlo en la celda que estoy
// editando
IF(WndSetFocus("Compañias",oWnd))
SELECT (CALIAS))
REPLACE (Brw1:CALIAS)->id_com WITH uBuffer
ENDIF
ENDIF
ENDIF

Function WndSetFocus(cTitle,oWnd)
*------------------------------------------------------*
local i:=0,lSuccess:=.f.
cTitle:=upper(cTitle)
for i=1 to len(oWnd:oWndClient:aWnd)
if upper( oWnd:oWndClient:aWnd[i]:cCaption )=cTitle
oWnd:oWndClient:aWnd[i]:SetFocus()
lSuccess:=.t.
endif
next
Return lSuccess