Moises,
Probably it is just a misspelling in your post here and it is alright in your actual code, but you are selecting max(code) and then replacing coded (an extra or a missing d)
>select max(
code) from estoque ;
> into array lctemp
> lcTemp[1] = nvl(lcTemp[1],0)+1
> replace
coded with lctemp
>
> SELECT ESTOQUE
>
>= TABLEUPDATE (.T.)
>
>*********************************************************
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges