>I am using into a form:
>
>

>  select mytable
>     go bottom
>        cod = mytable.cod + 1
>    appe blank
>        replace mytable.cod with cod
>

>
> I think this rotine is not suitable because some costumers complain
>that for some reason the code become repetead
>Is there a more eficient way to do it ?
>
>Regards
>
>Moises

select mytable
lock('0') && lock RECCOUNT()
* you have a cod order active
go bottom
insert into (ALIAS()) (cod) values (cod+1)
UNLOCK RECORD 0