Picture de Gests

[fmontepo]

Hola gente del foro.
Estoy cambiando un sistema de 16 bits a 32 bits, y estoy utilizando xHarbour + fwh.
Tengo un inconveniente en la inicialización de las variables y es este:

Tengo definido un get así:

REDEFINE BTNGET oGets[1] VAR vGets[1] ; // Razón Social
ID 101 OF oDlg PICTURE "@S100"

como puede verse el picture es un string de 100 caracteres,

después de que se hace esto:

vGets[1]:= oRs:Fields("razon_social"):Value

ya no puedo escribir más 100 caracteres, solo puedo escribir la cantidad de caracterres que contiene el valor del campo "razon_social".
Ej. si el campo "razon_social" contiene PRUEBA, solo me deja escribir 6 caracteres.
Que estoy haciendo mal?

Fernando Monteporzi.
Santo Tomé - Santa Fe - Argentina.
fmontepo@yahoo.com.ar
[/b]

[Antonio Linares]

Fernando,

Hazlo así:

vGets[1]:= PadR( oRs:Fields("razon_social"):Value, 100 )

[fmontepo]

Antonio,
Gracias.