FUNCTION coperacion()
 DEFINE  ketiquetas SMALLINT, detiquetas CHAR(30),
         petiquetas ui.ComboBox
 
 LET petiquetas = ui.combobox.forname("formonly.tipo")
 CALL petiquetas.clear()
 
 DECLARE betiquetas CURSOR FOR
   SELECT a.codigo,a.descripcion FROM prtb00005 a
   ORDER BY a.descripcion
   
 
 FOREACH betiquetas INTO ketiquetas,detiquetas
  CALL petiquetas.additem(ketiquetas,detiquetas)
 END FOREACH
  
END FUNCTION