FUNCTION tiposModificacion()
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
         petiquetas ui.ComboBox
 
 LET petiquetas = ui.combobox.forname("formonly.idtipo")
 
 DECLARE betiquetas CURSOR FOR
   SELECT a.idtipo,a.titulo FROM cctb00037 a
   ORDER BY a.idtipo
   CALL petiquetas.clear()
 
 FOREACH betiquetas INTO ketiquetas,detiquetas
  CALL petiquetas.additem(ketiquetas,detiquetas)
 END FOREACH
  
END FUNCTION