FUNCTION categorias()
 
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
         cbcategoria ui.ComboBox,
         cb2 CHAR(2)
         
    LET cbcategoria = ui.combobox.forname("formonly.cod_cat")
    DECLARE bcategoria CURSOR FOR
      SELECT a.cod_categoria,a.descripcion FROM iptb00034 a
      ORDER BY a.descripcion
      CALL cbcategoria.clear()
 
    FOREACH bcategoria INTO ketiquetas,detiquetas
      CALL cbcategoria.additem(ketiquetas,detiquetas)
    END FOREACH
    
 END FUNCTION