SoloCodigo

Amigos Hola a todos. Tengo Problemas con SetFocus en un form. Tengo un TxTFecha. que en el evento LostFocus , si deja el usuario la fecha vacia Sale un mensaje de k debe completarla , pero no vuelve el cursor a este campo. les mando el codigo que puse para saber donde esta el error. Gracias a Todos.

OBJETO abl txtFecha   Procedimineto LostFocus

IF thisform.Pageframe1.Page1.txtfecha.value=CTOD("  /  /  ")
cMessageTitle = 'Cmpleta eL Campo Fecha'
cMessageText = "Programa Fusion"
nDialogType = 4+32+0

nResp=MESSAGEBOX(cMessageTitle,nDialogType,cMessageText)
DO CASE
   CASE nResp = 6
   THISFORM.Pageframe1.Page1.txtfecha.SETFOCUS  (NO RESPONDE Y PASA AL CAMPO SIGUIENTE)
      THISFORM.Pageframe1.Page1.Command1.Enabled=.t.
   CASE nResp = 7
   THISFORM.Pageframe1.Page1.Command7.SETFOCUS
      THISFORM.Pageframe1.Page1.Command1.Enabled=.f.
   
ENDCASE

ENDIF

THISFORM.Pageframe1.Page1.refresh
THISFORM.REFRESH

Aprovecho para recordarles k deje una discucion con respecto a trabajar en red y nadie me supo contestar. Almenos una idea por Fi SR JUEZ ??????
gRACIAS

que tal amigo.

lo que dice el amigo widark es cierto, pero tendrias que cambiar lo que haces un poco
ya que no puedes utilizar setfocus en el valid debido a que el evento when te estará retornando
.F.
asi que en el valid le pones un return 0, yle quitas la linea que le tienes setfocus

Solucion simple y sencilla

solo tienes que validar en campo fecha en el campo siguiente donde el cursor cae y veras que retorna

if xxx=xxx
 thisform.textfecha.setfocus
 return .f.
endif
y veras que vuelve en seguida

saludos
EG