FUNCTION paises()
  DEFINE kpais VARCHAR(10),kdescripcion CHAR(30),
    ppais ui.ComboBox
         
     
  LET ppais = ui.combobox.forname("formonly.codigo")
  DECLARE busca_pais CURSOR FOR
    SELECT RTRIM(a.codigo),a.nombre FROM vetb00017 a
    
    ORDER BY a.nombre
    
    CALL ppais.clear()
   
  FOREACH busca_pais INTO kpais,kdescripcion
   CALL ppais.additem(kpais,kdescripcion)
  END FOREACH
 END FUNCTION