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

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

 CALL clase.clear()

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

 
END FUNCTION