begin
  // Исходная таблица
  declare local temporary table #T1 (
    Num int not null primary key, 
    Nakl int not null, 
    Ves int not null,
  ) not transactional;

  // Результирующая таблица
  declare local temporary table #T2 (
    Num int not null primary key, 
    Nakl int not null, 
    Ves int not null,
  ) not transactional;

  // Раскидываемый вес
  declare @FullVes int;

  // Параметры записи
  declare @Num int;
  declare @Nakl int;
  declare @Ves int;

  // Заносим исходные данные
  insert into #T1 (Num, Nakl, Ves)
    select  1 ,  1001 ,  1000 
    union all
    select  2 ,  2002 ,  1500 
    union all
    select  3 ,  3003 ,  500 
    union all
    select  4 ,  4004 ,  1500 
    union all
    select  5 ,  5005 ,  2500 ;

  // Устанавливаем нужный для раскидки вес
  set @FullVes =  5000 ;

  // Организуем цикл поиска максимально приближенного веса
  // по исходным данным
  lVes:
  while @FullVes >  0  loop
    // Получаем запись
    select top  1  Num, Nakl, Ves
    into @Num, @Nakl, @Ves
    from #T1
    where Ves <= @FullVes and
          Num not in (select Num from #T2)
    order by Ves desc;

    // Выходим, если больше ничего не найдено
    if @@RowCount =  0  then
      leave lVes;
    end if;

    // Переносим запись
    insert into #T2 (Num, Nakl, Ves)
    values (@Num, @Nakl, @Ves);

    // Отнимаем от общего веса занесенное значение
    set @FullVes = @FullVes - @Ves;
  end loop;

  // Выводим результирующую таблицу
  select *
  from #T2;

  // Показываем, сколько веса осталось не дораскиданным
  select @FullVes;
end