Есть 7.7, в ней нужно реализовать следующий алгоритм, итак дано : таблица значений в значениях которой ссылки на документы, надо обработать эти документы так, что все документы сумма которого, больше чем заданное значение, надо разбивать на более мелкие документы, т.е. из одного дока сделать несколько маленьких не превышающий определенную сумму.

(0) Делай, мы не против

(1) вообще то хотел получить совет, как лучше это сделать.

(2) а есть варианты?
берешь документ с суммой больше заданной, создаешь еще один и в него переносишь "лишнее". записываешь/проводишь.

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

а куда остаток от откруглений девать уже понимаешь?

(5) эта уже другая история, это в ручную откорректируют

(4) подтолкните на правильный алгоритм решения задачи.

(5) какой остаток от округления?
это только если принять что одну строку табличной части придется разбивать между двумя документами - но это вряд ли

(7) в чем трудность то?

ТЗ.Сортировать("Сумма-");
ТЗ.ВыбратьСтроки();
Пока ТЗ.ПолучитьСтроку()=1 Цикл
  Если ТЗ.Сумма <= ЗаданноеЗначение Тогда Прервать; КонецЕсли;
  ДокументДляРазбиения = ТЗ.Документ;
  ВыполнитьРазбиениеДокумента(ДокументДляРазбиения);
КонецЦикла;

(9) Толсто троллишь )))
Вангую следующий вопрос - где находится ВыполнитьРазбиениеДокумента(ДокументДляРазбиения)   )))

Примерно так обходим общие реквизиты и реквизиты шапки

Для а=1 По Метаданные.ОбщийРеквизитДокумента() Цикл
    РеквизитИд    = Метаданные.ОбщийРеквизитДокумента(а).Идентификатор;
    РеквизитЗн        = ДокИсходный.ПолучитьАтрибут(РеквизитИд);
     ДокРезультат.УстановитьАтрибут(РеквизитИд,РеквизитЗн);
КонецЦикла;

    Для а=1 По Метаданные.Документ(ДокИсходный.Вид()).РеквизитШапки() Цикл
        РеквизитИд        = Метаданные.Документ(ДокИсходный.Вид()).РеквизитШапки(а).Идентификатор;
РеквизитЗн        = ДокИсходный.ПолучитьАтрибут(РеквизитИд);
ДокРезультат.УстановитьАтрибут(РеквизитИд,РеквизитЗн);

КонецЦикла;


Естесственно реквизиты ДатаДок и НомерДок заполняются отдельно. Также надо установить нужное время документа

Подобным же образом обходим табличную часть, но уже контролируем итоговую сумму, количество строк и т.д. и т.п.

(11) Бред.

(14) По теме есть что-то сказать?

(15) Чего хочешь-то?

(0) а ты на какой должности работаешь в этой компании?

(0) Такую обработку написать совсем не сложно. А что касается округления - по копейке откусывай или добавляй в автомате.

(0) ТКВ - зачем? От себя - что за документы?

(0) 7 лет на Мисте - вроде не студент...
Вы точно программист?

(19) документы реализации.

Что-то ернуда получается (

    Сч = "";
    ТаблицРеализДляСчФакт.ВыбратьСтроки();
    Для Сч = 1 По ТаблицРеализДляСчФакт.КоличествоСтрок() Цикл
        Таб = ТаблицРеализДляСчФакт.ПолучитьСтроку(Сч);
        Пока (Таб.Док.СуммаВзаиморасчетов > МаксСуммаНакладных) Цикл
            МелкиеРеализации.Новый();     
            СкопироватьРеквизитыШапки(Таб.Док, МелкиеРеализации);
            Пока (МелкиеРеализации.СуммаВзаиморасчетов < МаксСуммаНакладных) Цикл
                Таб.Док.ВыбратьСтроки();
                Пока Таб.Док.ПолучитьСтроку() = 1 Цикл
                    МелкиеРеализации.НоваяСтрока();
                    МелкиеРеализации.Номенклатура = Таб.Док.Номенклатура;
                    МелкиеРеализации.Количество   = Таб.Док.Количество;
                    МелкиеРеализации.ВалютаОсн      = Таб.Док.ВалютаОсн;
                    МелкиеРеализации.КурсОсн      = Таб.Док.КурсОсн;
                    МелкиеРеализации.КратностьОсн = Таб.Док.КратностьОсн;
                    МелкиеРеализации.Валюта          = Таб.Док.Валюта;
                    МелкиеРеализации.Курс          = Таб.Док.Курс;
                    МелкиеРеализации.Кратность      = Таб.Док.Кратность;
                    МелкиеРеализации.Партия       = Таб.Док.Партия;
                    МелкиеРеализации.Цена          = Таб.Док.Цена;
                    МелкиеРеализации.Единица      = Таб.Док.Единица;
                    МелкиеРеализации.Коэффициент  = 1;
                    МелкиеРеализации.Проект          = Таб.Док.Проект;
                    МелкиеРеализации.СтавкаНДС    = Таб.Док.СтавкаНДС;
            
                    МелкиеРеализации.СуммаВзаиморасчетов    = МелкиеРеализации.Итог("Сумма")+?(МелкиеРеализации.СуммаВклНП =1,0,МелкиеРеализации.Итог("СуммаНП" ))+?(МелкиеРеализации.СуммаВклНДС=1,0,МелкиеРеализации.Итог("СуммаНДС"));
                    
                    глПересчетТаблЧасти(МелкиеРеализации,"Сумма");
                КонецЦикла;
            КонецЦикла;
            МелкиеРеализации.Комментарий  = "Документ создан автоматически! С помощью обработки.";
            МелкиеРеализации.Записать();
            
            Таб.Док.СуммаВзаиморасчетов = Таб.Док.СуммаВзаиморасчетов - МелкиеРеализации.СуммаВзаиморасчетов
        КонецЦикла;
        
    КонецЦикла;

(21) А ты в курсе, что нумерация другая будет? Как с покупателями вопрос решать будете?

(21) сам то понял, какую хню написал с циклами ?

метод пузырька уже забыли

если что, код в (21) в топку

(21) завязывай с программированием....

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

(22) конечно в курсе, это другая история, это все происходит между своими фирмами.

(27)
ну, то что написано в (21) - ни в какие ворота.

ты всегда выбираешь ВСЕ строки документа и пихаешь его в новый, еще и хочешь, чтоб сумма как-то "разбилась"

(28) Я бы решала на уровне проведения док-та (при записи после создания).

(26) "завязывай с программированием" - вы льстите ТС, он еще не начинал   ;-)

и нужно, хотя бы определится, ты разбиваешь только по строкам документа или еще и по количеству.

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

ну и на тебе пример. Показывай, как ты будешь "разбивать"

Сумма дока не должна быть >=100

Исходный Док:

товар    количество   цена    сумма
1.Валенки 10шт 11 руб  110
2.Сапоги  20шт 6 руб   120

ну и
3.Галоши 2шт 120руб 240

(34) У тебя примеры - не для начинающих :)

(36) если человек не понимает хотя бы "на пальцах" как оно должно "разбивать", какой смысл что-то кодить ?

(37) Как учили в универе: пишите на бумажке.

(34) ды как, в исходном доке должны остаться
9 валенки - 99р
1. документ №1  - 1 валенки и 14 сапоги 95р
2. документ №2  - 6 валенки - 36р
3. документ №3  - галоши 2(если не возможно развалить по единице измерения) ну или как варинат вместо одного дока два по одной галоше.

(39) 3. Цена галош превышает сумму док-та. Или ты предлагаешь - одну галошу из пары?

(39) " как варинат вместо одного дока два по одной галоше." Супер!!!!!

(40) вы че реально издеваетесь, галоши и так парами идут, если штуками, то да по одной штуке, я не пойму почему вас так волнует, по одной или по две, да хоть по полторы....

(42) Ну если ты планируешь продавать по полторы галоши, то ты зря тут вопросы задаешь. Иди и делай как хочешь.

(42) Отрежьте мне полторы галоши... Хочу в твой магазин!

(39) Это ты как вычислил ?
А почему не

1. валенки 9 шт - 99 руб ?

+ (44) А после меня придет igorPetrov - ему впарите пол галоши :))))

(46) :)))

(45) Да, ему пофигу.

(47) А я-то думала: почему футболисты в бутсах разного цвета...

(49) Да, у таких вот как ТС и покупали.

На вот тебе примитив:
выгружаешь в ТЗ таб часть.
далее сортируешь, например, по цене по убыванию

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

При желании, всё можно сделать через рандом:

рандомом находишь строку в тз, в которой количество>0 далее рандомом количество в цикле, пока сумма не превышает.

(52) Вместо рандома быстрее в ТЗ с копией табличной части разделяемого документа добавить колонку Сумма+  суммаНДС, а затем оортировать строки полученной таблицы по возрастанию значений этой новой колонки.

Потом добавить колонку с нарастающим итогом с начала таблицы
и заполнить ее в цикле перебора строк.

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

Оставшееся количество товаров из проблемной строки записать в новую таблицу для разделения.
В ту же таблицу добавить все ниже расположенные строки исходной ТЗ.

Следующим шагом будет загрузка оставшихся строк табличной части в разделяемый документ.
Затем при необходимости таким же путем обрабатывается новая таблица для разделения.

(53) не пойдёт.
Ему не только строки нужно целиком, ему нужно рулить количеством товара.

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

(54) ложное суждение, поскольку редактирование количества предусмотрено в тексте (53)

(56) наверное, лень читать до конца было, я на своей волне.. читаю по-диагонали

Блин, задача простая как валенок. Как раз из этого магазина.

(58) Тут вопрос - есть товар в количестве 1 и в сумме превышающей нужную. Вот с этим что делать? А все остальное - мелочи жизни.

(58) Ну, дык, возьми себе пол валенка... По задаче.

(59) такой товар оставлять в первоначальном документе.

(53) и да, рандом не для скорости, он нужен для "правдивости"
чтоб в каждой накладной был разнородный товар, а не моно с одним количеством и одной суммой, что выглядит, подозрительно :)

(60) Хот кстати задачка-то не очень простая. Ну да - отсортировали строки по возрастанию суммы или если ндс - вот только если 2-я строка+3-я превышают сумму и количество там и там один надо смотреть то ли 1-ую + 3-ую то ли 2-ую+4-ую и т.д.

(62) В данной задаче - правдивость на фиг не нужна.

(64) Писать нужно сразу и хорошо.
Если товар еще и упакован, то считать по мин. количеству вложений еще.

(63) В данном случае (как описана задача) - не стоит браться.
Почему? Слишком много "если"....
Я пару лет назад писала гиперболическую наценку. Причем, как оказалось (сама удивилась :) ) работает. Но - все равно проверяют и правят.

или вес там, к примеру.

(64) что вы прицепились к правдивости, это формирование документов между агентом и принципалом, там абсолютно побоку где и какой товар, главное не выскакивать за резмерность документа.

(65) Хорошо - при проведении/записи док-та (сразу оглашать сумму и кидать в другой).

(66) (69) ИМХО.

(68) Делайте сразу - так как надо.

Остановился, на следующем этапе : в этой таблице значений, содержится полностью разложенный документ, т.е. количество в каждой строке равно 1. Как ее правильно теперь обработать, сбросить в промежуточную таблицу по условию превышения, проблема в том что на следующей итерации можно выскочить за предел суммы а назад не вернуть.

ВремТаблицаРазложенная.Номенклатура;
ВремТаблицаРазложенная.Количество;
ВремТаблицаРазложенная.Единица;
ВремТаблицаРазложенная.Коэффициент;
ВремТаблицаРазложенная.Цена;
ВремТаблицаРазложенная.Сумма;
ВремТаблицаРазложенная.СтавкаНДС;
ВремТаблицаРазложенная.СуммаНДС;
ВремТаблицаРазложенная.СтавкаНП;
ВремТаблицаРазложенная.СуммаНП;
ВремТаблицаРазложенная.Партия;
ВремТаблицаРазложенная.МинЦенДатаДок;
ВремТаблицаРазложенная.ПроцРазЦен;
ВремТаблицаРазложенная.РазницаТекЦенаИПрайс;
ВремТаблицаРазложенная.ДляРазбивки;
ВремТаблицаРазложенная.СчетФактураКомитента;

И да, таких документов в месяц, превышающий определенный предел не много, делается все это на сервере в ночное время, потому подождать тут не вопрос.

о задаче рюкзаков еще никто не вспоминал?

Пусть автор не мучит нам мозги а обозначить бюджет для простой задачи когда только строки перераспределчются. Внутри строки ничего не бьем

Поехали!
Демпингуем?
Я сделаю эту задачу за 10 000 руб

9 999.99

(74) я смотрю тут вообще никто себе мозги ну мучит, а пишет одну охинею...

(77) Ну так ты за работу деньги получаешь, а кому-то за тебя мозги мучить - ну ты наивный...
Кстати, пишется Ахинея :-)
И, да, если особо крупных цен и сумм у тебя не наблюдается, то я бы просто тупо добавлял в документ по одной строке до тех пор пока сумма всех строк не превышает нужной суммы, как только сумма из следующей строки будет превышать нужное значение означенная строка становится первой строкой следующего документа и т.д. Если же есть такие строки, которые могут превысить нужную сумму документа, то тут уж придется строку делить, вот тут и встанет вопрос можно ли продавать по одному валенку, хотя, подозреваю, что в реальных случаях такого быть не должно (особенно при перепродажах между своими фирмами)

(78) в (72) я уже написал на ком этапе.

    НабралиСумму  = 0;
    ТекущаяСтрока = 1;
    ВремТаблицаРазложенная.ВыбратьСтроки();
    Пока ВремТаблицаРазложенная.ПолучитьСтроку() = 1 Цикл
        Если НабралиСумму < МаксСуммаНакладных  Тогда  
            //копируем строку из ТабличнойЧастиДока
            НабралиСумму  = НабралиСумму + ПромежТаблица.Итог("Сумма");
            ПромежТаблица.НоваяСтрока();
            Для Сч = 1 По ВремТаблицаРазложенная.КоличествоКолонок() Цикл
                   ПромежТаблица.УстановитьЗначение(ТекущаяСтрока,Сч,ВремТаблицаРазложенная.ПолучитьЗначение(ТекущаяСтрока,Сч));
            КонецЦикла;
               ТекущаяСтрока = ТекущаяСтрока + 1;
            //закончили копировани
        Иначе
            //закрываем документ и очищаем Табличную часть нового документа.
            //ТекущаяСтрока = ТекущаяСтрока - 1;
            ПромежТаблица.ВыбратьСтроку();
            НабралиСумму = 0;
            ПромежТаблица.УдалитьСтроки();
        КонецЕсли;
    КонецЦикла;    

Вот после первого формирования документа, падает в ошибку, номер за пределами значения.

НабралиСумму  = 0;
    ТекущаяСтрока = 1;
    ВремТаблицаРазложенная.ВыбратьСтроки();
    Пока ВремТаблицаРазложенная.ПолучитьСтроку() = 1 Цикл
        Если НабралиСумму < МаксСуммаНакладных  Тогда            
            //копируем строку из ТабличнойЧастиДока
            НабралиСумму  = НабралиСумму + ПромежТаблица.Итог("Сумма");
            ПромежТаблица.НоваяСтрока();
            Для Сч = 1 По ВремТаблицаРазложенная.КоличествоКолонок() Цикл
                   ПромежТаблица.УстановитьЗначение(ПромежТаблица.НомерСтроки,Сч,ВремТаблицаРазложенная.ПолучитьЗначение(ТекущаяСтрока,Сч));
            КонецЦикла;
               ТекущаяСтрока = ТекущаяСтрока + 1;
            //закончили копировани
        Иначе
            //закрываем документ и очищаем Табличную часть нового документа.
            //ТекущаяСтрока = ТекущаяСтрока - 1;
            ПромежТаблица.ВыбратьСтроку();
            НабралиСумму = 0;
            ПромежТаблица.УдалитьСтроки();
        КонецЕсли;
    КонецЦикла;    

вот так работает

Зачем так заумно, все равно ведь неправильно. Пиши проще:
НабралиСумму  = 0;
ВремТаблицаРазложенная.ВыбратьСтроки();
Пока ВремТаблицаРазложенная.ПолучитьСтроку() = 1 Цикл
Если НабралиСумму + ВремТаблицаРазложенная.Сумма < МаксСуммаНакладных Тогда
НабралиСумму = НабралиСумму + ВремТаблицаРазложенная.Сумма;
// Далее добавляем строку в документ
Иначе
// Здесь, надо сделать НОВЫЙ документ, и начать по новой набирать переменную НабралиСУмму, т.е.
НабралиСумму = 0;
// Создание нового документа пиши сам. ЗДЕСЬ
// После его создания
Если НабралиСумму + ВремТаблицаРазложенная.Сумма < МаксСуммаНакладных Тогда
НабралиСумму = НабралиСумму + ВремТаблицаРазложенная.Сумма;
Иначе
// Здесь тот редкий случай, когда строку надо делить, скорее всего не реализуется...
КонецЕсли;


КонецЕсли;
КонецЦикла;

Хреняк и в продакшен

Пипл не понимает что надо алгоритм нарисовать

Без нарисованного - программить с головы - надо иметь много гитик

То есть длина члена должна более менее соответствовать глубине влагалища для получения сатисфакшена.
В противном случае результат не гарантируется

Ой, предыдущее сообщение к ветке про принтер этикеток...
;-)

А то мало ли что подумают здешние извращенцы

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

(87) мы ещё обсулим эту тему

(88) Принято :-)

(84) На легких я так и делаю. Вот в (0) с разбитием документа построчно я без бумажки делал. Со сложными проектами конечно да, нужно помучатся.

(90) сложность задачи определяется субьективно в зависимости от личной квалификации. поэтому, для автора - рисовать алгоритм!

(87) У меня студенты на МК 54 системы линейных уравнений методом Гаусса считали. Я с ними программу для микрокалькулятора составлял )

(92)+ А в военных лагерях только арифмометр Феликс - калькуляторами запрещали пользоваться ) Во жизнь была )

Дам готовый код за 5000 руб.

Объясню, как он работает, за 10000 руб.

(93) У мужа есть фотка: на учениях (артиллерист), бумажка исписанная вдоль и поперек (расчет стрельб). Калькуляторов не было в принципе. Судя по тому, что видно на бумажке - Билл Гейтс и компания отдыхают :)

(94) Я всегда знала, что ты - добрый...
(95) Очень добрый...
:)

(96)Прямая и обратная геодезическая задача - на арифмометре решалась в полевых условиях - обязательно два вычислителя для двойного контроля )

(96) Вспомнил. В одной конторе работал и как раз ЕГАИС начался и все спиртосодержащее под него пошло. Вот там приходилось разбивать огроменные накладные под необходимые суммы потом печатать накладные и счета-фактуры и все это вести в двух экземплярах в налоговую. Заходишь в налоговую - говорят скидывайте в угол а там таких талмудов уже до фига лежало

(0) (2) Используйте рекурсию.

(94) спасибо, уже все сделано

(101) дай посмотреть

(102) Вот лучше посоветуй. ДЕлаю свертку потом заново создаю периферийку. мы в периферийки те же РКО и ПКО не переносим, да и выписки банка не для всех перифериек. В результате вроде базы меньше но при этом полно незакрытых регистров получается. В центральной-то базе слава богу осоновные рабочие регистры закрываются

(103) Незакрытые регистры в ПБ ?

сами пко, потом в ПБ ведёте ?

(105) Да нет. Только по розничным возвратам покупателям ЕНВД магазины делают РКО, и по магазинам где еще и опт нужны выписки приход. Выписки расход вообще не нужны пко делаются на ЦБ - 54 закон же.

(106)+ В двух магазинах вообще только розница. В трех еще и опт

(107)+ То есть то что к ним приходит по банку (что касается конкретного магазина) - они должны видеть выписки-приход чтобы с клиентами оптовыми работать

Функция СоздатьНовДок(Док)
Н=1;
Док.ВыгрузитьТабличнуюЧасть(Тз);
Для К=1 по Тз.Количествострок()Цикл
Тз.Выгрузить(ТЗ2,Н,К);
Если Тз2.Итог(Сумма)>МаксСума Тогда
Тз.Выгрузить(ТЗ2,Н,К-1);
Док2.ЗагрузитьТабличнуюЧасть(Тз2);
Тз.Выгрузить(ТЗ,К,);
Док.ЗагрузитьТабличнуюЧасть(Тз)
Возврат Док;
КонецЕсли;
КонецФункции;
//**********
Пока Док.Итог("Сумма")>МаксСума Цикл
СоздатьНовДок(Док)
КонецЦикла;

В простейшем варианте разобьет все где нет строки превышающей лимит. такие строки я бы еще на этапе формирования документа отлавливал и заставлял узера самостоятельно решать что с ними делать.