FoxPro/Visual FoxPro - campos

hola amigo estoy usando este codigo para crear una codificacion en secuencia. bueno cree una tabla con 4 campos y cadad uno le puse una secuencia diferente por ejm al campo1 le puse 10001 al campo2 = 20004 y asi sucesivamente. bueno lo k he intentando hacer es k al momento de guardar ese codigo valla al último registro de ese campo k estoy seleccionando, pero el problema k estoy teniendo es k va al ultimo registro pero si el campo 2 ó 3 tienen más datos k el campo1 lo guarda dependiendo al los otros campos. espero haberme explicado y gracias de antemano.
P.D lo k necesito es k el go bottom para realizar al append blank lo haga según el campo k selecciono y no por el k tenga mas registros.

CASE thisform.optiongroup2.Value = 1
SELECT creados
SET ORDER TO codigo_bal
GO bottom
thisform.text1.Value = codigo_bal + 1
thisform.Refresh
USE
CASE thisform.optiongroup2.Value = 2
SELECT creados
SET ORDER TO codigo_pc
GO bottom
thisform.text1.Value = codigo_pc + 1
thisform.Refresh
USE

asi lo creo pero me falta guardarlo k lo estoy intentando asi

CASE thisform.optiongroup2.Value = 2
SELECT creados
SET ORDER TO codigo_pc
GO BOTTOM
APPEND BLANK
replace creados.codigo_pc WITH thisform.text1.Value

mira a lo mejor es mas facil
_tally = 0
select max(campo"n") as valor, recno() as Wregno;
from nombre de tabla;
into array arrwork
if _tally > 0
select tabla
go arrwork[1,2]
endif
ya estas en el registro con el valor mas alto y en arrwork[1,1] tines el valor, esto fijo que no falla
es posible que se pueda hacer de mas fromas pero esto te deberia funcionar
un saludo y feliz año