Просьба подсказать (Нужен алгоритм)...
Есть список сумм накладных, нужно подогнать реестр накладных на определенную сумму, может кто сталкивался - нужен чисто алгоритм, пока в инете прочитал про циклический перебор сумм но может есть какие другие методы, просьба поделится мнением как такое делать (т.к. делать предется 2-3 раза в месяц).

читай о рюкзаке

wiki:Задача_о_ранце

Просьба пояснить "рюкзаке"

Большое спасибо буду копать..

(1)(2) "не поможет..."©

(5) да спасибо уже вижу

тупо рандомом с граничными условиями.

(5) как это не поможет

(7) Да спасибо - уже пробую...

(8) топикстартеру не поможет...
у него соотношение радиусов стремится к бесконечности...

вместо того, чтобы наладить учет, мастерят алгоритмы с использованием рандома..

(11) а прикольно, наверное, платежную ведомость рандомом генерить :-)

(11)- учет налажен - на сайт госзакупок требуется подавать котировки на определенную сумму заказа клиента, не зависимо от того сколько отпустил поставщик( беспредел властей краснодарского края бесграничен)... из этого следует сие выше написанное

(12) никаких платежных ведомостей - есть производство (многоуровневое) :
Док счет в нем несколько требований - в нем несколько изделий - изделие состоит из кучи материалов... Конфа самописная. На бухии...

Вот сделал из найденного может кто что подскажет как доработать, а то сыро работает...
   Dim M() As Double, I As Long, Y As Long, X As Long
   Dim NS As Double, TS As Double, GS As Double
   Dim VV1 As Double
   NS = 2313.89 ' сумму надо получить
   'gs накопительная для сравнения
   Do While GS <> NS
       ReDim M(10) As Double
       GS = 0
       For I = 1 To 6 ' количество сум в выборке
           Y = Int(Rnd * 27) + 1 ' пока из 27 строк с суммами - y номер строки
           M(I) = Cells(Y, 1).Value
           Cells(Y, 4).Value = M(I)
           GS = GS + M(I)
           If GS = NS Then
               ' выводим список
               For X = 1 To 6
                   Cells(X, 2).Value = M(I)
               Next X
               Exit Sub
           End If
           VV1 = NS - 10
           If GS < NS And GS > VV1 Then
               ' выводим список
               For X = 1 To 6
                   Cells(X, 2).Value = M(I)
               Next X
               Exit Sub
           End If
           
           Cells(27, 4).Value = GS
           If GS > NS Then
               For X = 1 To 26
                   Cells(X, 4).Value = ""
               Next X
               Exit For
           End If
       Next I
       
   Loop

(15) О_о это точно v7? ;-)

(16) нет эт- обычный vba но для 1c7 можно сделать vbs, или тупо процедурой перегружать в ексель и там запускать макрос...

(17)Средствами 1с не кодится??

Если неохота морочиться с перебором, то жадным алгоритмом:
1. Упорядочить суммы по убыванию.
2. Если очередная накладная подходит (сумма вместе с ней не превышает требуемую) - ее.

(13) +1 сам с таким столкнулся, накладные под счет-фактуру подбираешь?

Без проблем делается по (2). Только тут одна загвоздка - нужно немного подумать. Самую малость, а с этим, как всегда, проблемы :)

Всем спасибо, но сделал через ексель, список сумм нужен только для распечатки...

пишу снова: NS публиковал на мисте практически готовый алгоритм/ я по нему рассчитываю деление большого заказа на паллеты...

(23) это было в 2005 году, кто ж вспомнит то ?
:)

Нужен алгоритм набора нужной суммы

(25) спасибо тебе, добрый человек! ;-)