FUNCTION otcategorias(pcampo)
 
 DEFINE  ketiquetas SMALLINT, pcampo,detiquetas CHAR(30),
         cbcategoria ui.ComboBox
    IF pcampo = 'CONSTRUCT' THEN
    
       LET cbcategoria = ui.combobox.forname("formonly.idcategoria")
    ELSE
       LET cbcategoria = ui.combobox.forname("formonly.id_categoria")

    END IF
      CALL cbcategoria.clear()
  
    DECLARE bcategoria CURSOR FOR
      SELECT a.id_categoria,a.descripcion_esp FROM categorias a
      ORDER BY a.descripcion_esp
   
    FOREACH bcategoria INTO ketiquetas,detiquetas
      CALL cbcategoria.additem(ketiquetas,detiquetas)
    END FOREACH
    
 END FUNCTION