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

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

 CALL clase.clear()

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

 
END FUNCTION