Clipper/FiveWin - cursor al final del get

   
Vista:

cursor al final del get

Publicado por marcelo (161 intervenciones) el 25/07/2011 16:53:36
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Clipper/FiveWin
- Código fuente de Clipper/FiveWin
- Cursos de Clipper/FiveWin
- Temas de Clipper/FiveWin
información
Códigos de Clipper/FiveWin
- Visor de archivos DBF
- Digito verificador RUT
- Melodias

cursor al final del get

Publicado por Adalberto Baqueros eninsoft@yahoo.es (213 intervenciones) el 26/07/2011 04:19:30
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

cursor al final del get

Publicado por marcelo (161 intervenciones) el 26/07/2011 19:18:39
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

solucionado!!!

Publicado por marcelo (18 intervenciones) el 26/07/2011 20:40:17
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

//--------------------------------------------------------------------
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar