Power Builder - Como crear un proced almacenado q genere autocodig

Buenas, aqui otra vez, esperando por una ayuda mas de los genios, como puedo crear un procedimiento almacenado en power builder q me permita autogenerar el codigo de una boleta de venta enlazado a mi datawindon, gracias

select max (serie_doc) ,max (num_doc )
into :li_serie ,:li_numero
from
Ventas

if isnull(li_serie) then li_serie =0
if isnull(li_numero) then li_numero =0

y tambien tendrias q ver si el numero es = 9999999
enmtonces el numero de serie sube

if li_numero = 999999 then
li_serie ++
li_numero = 1
else
li_numero ++
end if

no es un sp ,pero espero te de una idea ,ademas no crea q sea necesario q crees un sp para este caso

Saludos