Clipper/FiveWin - Por que no me fucniona el foco?

Buenas a todos.
¿Alguien sabría decirme porque no me vuelve al foco que le indico?
.
STATIC aReci
.
.
.

REDEFINE GET aReci[2] VAR aReci[1] ID 1100 OF oDlg ;
VALID LeeReci(@nCobra,@nSaldo,oDlg) ;
UPDATE

REDEFINE GET aReci[8] VAR aReci[7] ID 1200 OF oDlg ;
UPDATE
.
.
.
.

FUNCTION LeeReci(nCobra,nSaldo,oDlg)

.
.
.
DBSEEK(aReci[1])
IF .NOT. FOUND()
aReci[1]:=SPACE(12)
aReci[2]:SetFocus()
ENDIF
oDlg:UPDATE()
RETURN (.T.)

Me estan volviendo loco el tema de moverme como yo quiera entre objetos. Por dios !!!!

Ehh mil gracias que muy pocas veces sabemos agradecer como os mereceis.. Y tu, tocayo, eres una pedazo de máquina..

Ola,

experimente fazer o seguinte :

DBSEEK(aReci[1])
IF .NOT. FOUND()
aReci[1]:=SPACE(12)
xSetFocus( aReci[2] )
aReci[2]:Refresh()
ENDIF
oDlg:UPDATE()
RETURN (.T.)

Nelson Nunes de Araujo
Brasil, 22/12/2005

usas clipper duro puro o fw?

Seguramente el oDlg:Update() te roba el foco y lo coloca al primer TABSTOP. Intenta colocar aRec[2]:SetFocus() justo antes del RETURN .T.

De todas formas, si haces:

IF !Found()
aReci[1] := SPACE(12)
oDlg:Update()
RETURN .F.
ENDIF
RETURN .T.

Al no encontrar el cliente devuelve .F. y no sale del GET. Por lo tanto, no pierde el foco.

Por otra parte, si en lugar de aReci[1] := SPACE(12)
haces aReci[2]:SetText( SPACE(12) )

no necesitas el oDlg:Update() y no te roba el foco. Quedaría:

IF !Found()
aReci[2]:SetText( SPACE(12) )
RETURN .F.
ENDIF
RETURN .T.

Gracias Manuramos, pero al ejecutar el programa me indica que no reconoce el procedimientos SetText

Clip 5.3, FW 2.4, Blinker 7

LPV Gabriel

Tienes razón.
Perdona, ha sido un lapsus.
SetText() es para los SAY´s, para los GET's es CTEXT() pero funciona igual.
oReci[2]:cText( ... )