FUNCTION maquinas()
 DEFINE kmaquina VARCHAR(14),
        kdescripcion CHAR(60),
        maquinas ui.ComboBox
 
 LET maquinas = ui.combobox.forname("formonly.codigo")
 
 DECLARE busca_maquinas CURSOR FOR
  SELECT a.codigo,RTRIM(a.nombre)+'('+RTRIM(a.codigo_externo)+')'
  FROM irtb00009 a
  WHERE a.status_t IS null 
  ORDER BY a.nombre
  
  CALL maquinas.clear()
  FOREACH busca_maquinas INTO kmaquina,kdescripcion
   CALL maquinas.additem(kmaquina,kdescripcion)
  END FOREACH 
  
END FUNCTION