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

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

 CALL clase.clear()

 DECLARE busca CURSOR FOR
   SELECT a.id_collection,a.descripcion FROM product_collection a
   ORDER BY a.descripcion
   FOREACH busca INTO kcodn,ddescripcion
     CALL clase.addItem(kcodn,ddescripcion)
   END FOREACH

 
END FUNCTION