>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
I think a better way would be:

  select max(cod) from mytable ;
     into array lctemp
  lctemp[1] = lctemp[1] + 1
  appe from array lctemp fields cod

HTH
Beth