get en cajas de dialogos

[Wneskers]

ESTIMADOS COLEGAS TENGO EL SIGUIENTE INCONVENIENTE

EN ESTE EJEMPLO:

REDEFINE COD ID 108 OF CINV ;
VALID ( VE_RPTO( lDevuelve, Cod ), ;
IIF ( lDevuelve = .T., !Emphy(Cod), Cod == Nil ) )

me funciona bien, si el cod esta en blanco no avanza, si lo busca en la base de datos existe lo rechza blanqueando para evitar duplicidad de datos. ahora bien cuando lo blanquea y regresa para introducir el cod nuevamente por medio del GET. Si el cod es de 20 caracteres y el dato anterior tenia 9 asi lo blanquee comienza en el caracter 10 y tengo que retroceder de forma manual, como hago para que comienze el GET en el caracter numero 1 automaticamente

[Garbi]

Prueba con algo asi:
REDFINE OCOD VAR COD ID 108 OD CINV;
......
PONER AL PRINCIPIO
COD:=SPACE(20),OCOD:SETPOS(1),OCOD:REFRESH()