Power Builder - nesesito ayuda con este problemita

saludos cordiales,

tengo un problema estoy realizando un pequeño programa
para ingresar artiulos a la base de datos, para lo cual me piden autogenerar codigo.

hasta esta parate esamos vien...

el problmea viene cuando me piden autogenerar codigo pero por categoria

por ejemplo:

tengo
//tabla categorias
cod descripocion
la ----- lacteo
ab ----- abarrotes
du ----- dulses ect.

//tabla prioductos

codigo descripcion

la0001 leche
la0002 yogurt
ab0001 arroz
ab0002 azucar
du0001 chocolates
du0002 caramelos

*** si se ingresa de nuevo otro articulo. por ejemplo

caja de texto caja de texto
la 0003
al escribir la en la caja de texto al hacer enter se deve de autogenerar la numeracionq ue le corresponde a esa categoria.........

agradesere mucho su apoyo nesesito urgente alguna manera de hacer este codigo
+
gracias y hasta pronto

Saludos desde Maracay, Venezuela...

Creas una tabla de grupos que contenga el tipo de grupo y la cantidad de articulos creados para el grupo... ej.
tabla =grupo
Columnas: grupo char(2)
numero entero.

para asignarle el numero, buscas en la tabala de grupos, le sumas 1 y actualizas la tabla con el nuevo valor...
le asignas el nuevo valor a tu codigo de producto...
El problema se presentaría si hay varias personas cargando productos, podría ser que 2 o más personas tomen el mismo grupo al mismo tiempo....

Como veo que no eres un experto esta esa la solución más viable que veo a tu problema...

agradesco la solucion que le da al problema que le plantee

vere com trabaja de lo ontrario agradesere qu me ayude con otra solucion gracias
hasta la proxima

si el ingreso de los productos lo realizas uno a uno este código te va a servir

es mejor que crees una funcion con un argumento string as_categoria y un argumento de retorno
para evitar duplicidad es recomendable generar el codigo antes de pulsar la opcion grabar y no al pulsar la opcion nuevo.

of_generatekey(string as_categoria) return string
//script
string ls_codigo
select IsNull(Max(cod_producto),0) into :ls_codigo from productos
where substring(cod_producto,1,2) = :as_categoria;

ls_codigo = as_categoria + fill('0',4 - len(string(double(ls_codigo) + 1)) ) + string(double(ls_codigo) + 1)
return ls_codigo

muchas gracis pr la ayuda me a servido de mucho

estoy muy agradesido gracias-.....