FiveTech Support Forums

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

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