Clipper/FiveWin - cursor al final del get

Hola!
Necesito ayuda con lo siguiente:

Hago un get asi:

@ Fil,Col get Fac size 68,12 picture"A-9999-99999999" valid FactCompra(Fac,Pro)

El valor de Fac es por defecto " A-0001-000"+space(4) y el usuario debe completar los 4 digitos que faltan.
El cursor está al inicio, como hago para que el cursor esté al final?

Saludos
Marcelo

Hola Marcelo,

Antes del VALID puedes hacer un WHEN KEYBOARD CHR(6) o un WHEN IrAlFinal()

//
STATIC FUNCTION IrAlFinal()
//
KEYBOARD CHR(6)
RETURN .T.

Cualquier otro tema en que pueda yo colaborar, a tus ordenes.

Saludos, desde Santa Cruz de la Sierra - Bolivia

gracias por responderme, pero... no funciona, el cursor sigue posicionado al inicio del get, lo probé de las dos maneras y con ninguna funciona.
Saludos
Marcelo

aqui está la solucion, por si alguno lo necesita, gracias Adalberto!


#include "FiveWin.ch"
//------------------------------------------------------------------------//
function Main()

local oDlg
local dDay := "A-0001-0000"+space(4) // Date()
local oGet

DEFINE DIALOG oDlg TITLE "Just a get"

@ 2, 2 SAY "Date:" OF oDlg
@ 2, 6 GET oGet VAR dDay OF oDlg SIZE 90, 10 VALID Empty( dDay )

@ 5, 6 BUTTON "&Ok" OF oDlg SIZE 30, 12 ACTION oDlg:End()
@ 5, 12 BUTTON "&Cancel" SIZE 30, 12 OF oDlg ACTION oDlg:End() CANCEL

oGet:bGotFocus := { ||oGet:SetPos(12) }

ACTIVATE DIALOG oDlg CENTERED

return nil

//--------------------------------------------------------------------