Здравствуйте, Уважаемые!
Подскажите, какое правильное условие для цикла написать, чтобы 1С начала создавать второй, третий и тд документ после того, как набирается ПланВес?

Пока Вес <= ПланВес Цикл
   Для Каждого ТекСтрока из ТаблицаДокументов Цикл
   Если Вес <= ПланВес Тогда
       Если ТекСтрока.Отметка = Истина Тогда            
           СтрокаТЧ = Форма.Объект.Реализация.Добавить();
           СтрокаТЧ.Документ = ТекСтрока.Документ;
           СтрокаТЧ.Вес = ТекСтрока.Вес;
           Вес = ТекСтрока.Вес + Вес;
       КонецЕсли;            
   Иначе Прервать;    
   КонецЕсли;    
   КонецЦикла;
   КонецЦикла;

на г-код можно выкладывать

(0) Блок-схемы себе нарисуй.

Пока Вес <= ПланВес Цикл
 
  Если Вес <= ПланВес Тогда

вот это зачем?

Если ТекСтрока.Отметка = Истина Тогда

вот это зачем?

(1) +1

тут не условие нужно, а цикл переписывать.

(5)+1

(0) почти полный аналог задачек на списание по партиям для спеца платформы

(6) По любому так не оставишь)) Не могли бы вы, хоть направить в правильную сторону ?
(7) А есть решение? Можно взглянуть ?

(8) ты бы хоть задачу нормально описал

а что не нормального в моем описании? мне кажется все предельно ясно :-\

(10) Оно фактически отсутствует...

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

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

(13) Что за обработка?

(14) эмм...твоя

(14) "обработка после выхода из цикла" подразумевается код записи документа, когда вышли из цикла..
псц

(16) при его наличии :)

Это очередной виток сумрака, когда 1) ТС не описал задачу 2) Аналитики построили предположения 3) ТС выясняет условие своей задачи по предположениям у аналитиков?

Вес=0;
Для Каждого ТекСтрока из ТаблицаДокументов Цикл
   Если ТекСтрока.Отметка = Истина тогда
     Если (Вес+ТекСтрока.Вес) < ПланВес Тогда
         // еще недобран вес
         Вес = ТекСтрока.Вес + Вес;
     Иначе
         // вес набран
         // тут и создай свой док с весом Вес
         ..................

         Вес=ТекСтрока.Вес;
     КонецЕсли;  
   КонецЕсли;    
КонецЦикла;

)

Вот как у меня получилось:

&НаКлиенте
Процедура Обработка(Команда)    
   МассивСсылок = СоздатьНовыйДокумент();
   Для Каждого Док из МассивСсылок Цикл
   ОткрытьЗначение(Док);
    КонецЦикла;
КонецПроцедуры
&НаСервере
Функция СоздатьНовыйДокумент()
МассивСсылок = Новый Массив;    
МассивДокументов = Новый Массив;
МассивСтрок = Новый Массив;
СоздатьНовыйДокумент = Истина;
Вес = 0;
Объем = 0;
Для Каждого ТекСтрока Из ТаблицаДокументов Цикл
     Если СоздатьНовыйДокумент Тогда
           МассивСтрок = Новый Массив;
           МассивДокументов.Добавить(МассивСтрок);
           Вес = 0;
           СоздатьНовыйДокумент = Ложь;
     КонецЕсли;
     МассивСтрок.Добавить(ТекСтрока);
     Вес = Вес + ТекСтрока.Вес;
     Если Вес > ПланВес ИЛИ Объем > ПланОбъем Тогда
           СоздатьНовыйДокумент = Истина;
     КонецЕсли;
КонецЦикла;
Для Каждого МассивСтрок Из МассивДокументов Цикл
     НовыйДокумент = Документы.Рейс.СоздатьДокумент();
     НовыйДокумент.Дата = ТекущаяДата();
     Для Каждого Строка Из МассивСтрок Цикл
          // РеквДока =
             СтрокаДока = НовыйДокумент.Реализация.Добавить();
           СтрокаДока.Вес = Строка.Вес;
           СтрокаДока.Документ = Строка.Документ;
           СтрокаДока.Объем = Строка.Объем;
       КонецЦикла;
НовыйДокумент.Записать();      
МассивСсылок.Добавить(НовыйДокумент.Ссылка);
КонецЦикла;

(20) а если будет на какойто строке так, что
планвес = 2000
вес = 1990
текстрока.вес = 500
то в документ попадет 2490 вес. это нормально?

(21) Согласен, не нормально. Есть варианты ?

(22) ну проверяй общий вес + текущий вес перед добавлением строки

Если (Вес + ТекСтрока.Вес)<ПланВес Тогда
     МассивСтрок.Добавить(ТекСтрока);
     Вес = Вес + ТекСтрока.Вес;
     Иначе
           СоздатьНовыйДокумент = Истина;
     КонецЕсли;
Изменил условие. стало вроде лучше.

Но все равно не то получается. Выходит если Вес=50 ПланВес= 100 ТекСтрока.Вес=60, то он создаст новый документ, хотя за ним следуют, допустим 3 документа, по которым ТекСтрока.Вес=10, надо чтобы эти тоже попали в первый.. Т.е. документом по возможности набирать ПланВес.

(25) а вот это уже анализ и оптимальное заполнение.
Это совершенно другая задача и решается несколько по другому...

Несколько по другому? Не подскажите алгоритм ?

(27) ну вот тут

   Иначе Прервать;    
   КонецЕсли;    

ставите

   Иначе Продолжить;    
   КонецЕсли;

(27) оптимального алгоритма не существует =)
из (25) пример
ВесПлан = 100;
веса:
50
60
10
20
10
50

точнее существует конечно, но это кросс джоин саму на себя столько раз, сколько записей в таблице, но это очень долгий путь

(27) Самый простой, и мягко говоря, не очень оптимальный вариант:
1. Сортировать вес по убыванию.
2. Документы не сохранять до конца обработки.
3. Сначала пробуем вес добавить во все уже существующие документы, и только если никуда не влез - пихаем в новый.

Но в общем случае результат будет лучше.

(20) а ничего, что Объем не принимает никакого значения, отличного от 0? и происхождение лимитов ПланВес и ПланОбъем не понятно. надеюсь - это не глобальные переменные? можно их параметрами передать, если уж считать на сервере.

(31) На тот момент когда код скинул, объем еще действительно не учавствовал. А ПланВес и ПланОбъем - это значения полей ввода на форме... Юзер сам их туда проставляет..

В общем, получилось вот так:
   
МассивСсылок = Новый Массив;    
МассивДокументов = Новый Массив;
МассивСтрок = Новый Массив;
СоздатьНовыйДокумент = Истина;
Вес = 0;
Объем = 0;
Сч=0;
Пока СЧ<ТаблицаДокументов.Количество() Цикл
Для Каждого ТекСтрока Из ТаблицаДокументов Цикл
Если ТекСтрока.Отметка = Истина Тогда

   Если СоздатьНовыйДокумент Тогда
           МассивСтрок = Новый Массив;
           МассивДокументов.Добавить(МассивСтрок);
           Вес = 0;
           СоздатьНовыйДокумент = Ложь;
       КонецЕсли;
                                        //ИЛИ (Объем+ТекСтрока.Объем) < ПланОбъем
     Если (Вес + ТекСтрока.Вес)<ПланВес Тогда
     МассивСтрок.Добавить(ТекСтрока);
     Вес = Вес + ТекСтрока.Вес;
       //Если Вес > ПланВес ИЛИ Объем > ПланОбъем Тогда
     Сч = Сч+1;          
     ТекСтрока.Отметка = Ложь;
       ИначеЕсли Сч<=ТаблицаДокументов.Количество() тогда
            Продолжить;      
     КонецЕсли;
 КонецЕсли;
КонецЦикла;
Вес = 0;
СоздатьНовыйДокумент = Истина;
КонецЦикла;

Для Каждого МассивСтрок Из МассивДокументов Цикл
     НовыйДокумент = Документы.Рейс.СоздатьДокумент();
     НовыйДокумент.Дата = ТекущаяДата();
     Для Каждого Строка Из МассивСтрок Цикл
          // РеквДока =
             СтрокаДока = НовыйДокумент.Реализация.Добавить();
           СтрокаДока.Вес = Строка.Вес;
           СтрокаДока.Документ = Строка.Документ;
           СтрокаДока.Объем = Строка.Объем;
       КонецЦикла;
НовыйДокумент.Записать();      
МассивСсылок.Добавить(НовыйДокумент.Ссылка);
КонецЦикла;

Совсем плохо ?