FUNCTION cbclase()
 DEFINE clase ui.ComboBox,
        kcodn SMALLINT,
        ddescripcion CHAR(60)

 LET  clase = ui.ComboBox.forName("formonly.cod_n")  

 CALL clase.clear()

 DECLARE busca CURSOR FOR
   SELECT a.cod_n,'('||cast(a.cod_n AS varchar(10))||')'||a.producto FROM iptb00020 a
   ORDER BY a.producto
   FOREACH busca INTO kcodn,ddescripcion
     CALL clase.addItem(kcodn,ddescripcion)
   END FOREACH

 
END FUNCTION