Mover el puntero

[Noe]

Hola Foro !!!

De antemano les doy las gracias esperando me puedan ayudar, con lo siguiente

Tengo un formulario con un grid con 3 columnas donde se captura el numero del empleado, la fecha de inicio ( solo el dia ejem. 15) y la fecha final ( solo el dia ejem. 25)

todo funciona bien pero quisiera que al digitar la fecha final el puntero se colocara en el siguiente registro.

para no hacerlo con la flecha de abajo

Create Cursor c_todo (num n(7), fini n(2),ffin n(2))

Thisform.grid1.RecordSource='c_todo'

Insert Into c_todo (num,fini,ffin) Values (0,0,0)

Thisform.grid1.setfocus

Gracias....

[Víctor Hugo Espínola Domínguez]

Hola Noé

En el evento Valid del Text1 de la columna fecha final:

If Between(This.Value, 1, MaxDia(Mes))
    Keyboard '{ENTER}' + '{DNARROW}'
Endif

Saludos,

Víctor.

Lambaré - Paraguay.

[Jose Mario]

yo coloco esto en la ultima columna y me funciona

keypress del grid

opc=3 si la opcion eligio 3 adicionar

opc=4 si la opcion eligio 4 nueva

porque si no por todo te agrega un items

ahh y que sea tecla enter

 y al grid la propiedad allowaddnew falso

If nKeyCode=13 and (opc=3 OR opc=4)

GO BOTTOM in c_todo

IF ! EMPTY(c_todo.num)

  sele c_todo

  append blank

  thisform.grid1.num.text1.setfocus

  go BOTTOM in c_todo

  keyboard '{dnarrow}'  

  thisform.grid1.Refresh

ENDIF

ENDIF

This.Parent.Parent.refresh

[Noe]

Gracias por contestar a ambos ( Victor Hugo y Jose Mario)

Funciono de maravilla los 2 ejemplos

GRACIAS.