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

ЗапросНомен = Новый Запрос;
ЗапросНомен.Текст =    
"ВЫБРАТЬ
|ЧекККМТовары.Номенклатура,
|СУММА(ЧекККМТовары.Количество) КАК Количество,
|СУММА(ЧекККМТовары.Номенклатура.МинОстаток) КАК МинОстаток
|ПОМЕСТИТЬ ДокТЧ
|ИЗ
|Документ.ЧекККМ.Товары КАК ЧекККМТовары
|ГДЕ
|ЧекККМТовары.Ссылка.Дата МЕЖДУ &ДатаНач И &ДатаКон
|
|СГРУППИРОВАТЬ ПО
|ЧекККМТовары.Номенклатура
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ РАЗЛИЧНЫЕ
|    ЧекККМТовары.Номенклатура
|ПОМЕСТИТЬ СписокТоваров
|ИЗ
|    Документ.ЧекККМ.Товары КАК ЧекККМТовары
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
|    Док.Номенклатура КАК Номенклатура,
|    Док.Количество КАК Продано,
|    ЕСТЬNULL(Рег.КоличествоОстаток, 0) КАК Остаток,
|    Док.МинОстаток КАК МинОстаток,
|    Рег.ЦенаЗакупочная КАК Цена
|ИЗ
|    ДокТЧ КАК Док
|        ЛЕВОЕ СОЕДИНЕНИЕ РегистрНакопления.ОстаткиТоваров.Остатки(
|                ,
|                Номенклатура В
|                    (ВЫБРАТЬ РАЗЛИЧНЫЕ
|                        СписокТоваров.Номенклатура
|                    ИЗ
|                        СписокТоваров КАК СписокТоваров)) КАК Рег
|        ПО Док.Номенклатура = Рег.Номенклатура
|
|УПОРЯДОЧИТЬ ПО
|    Номенклатура";
       
ЗапросНомен.УстановитьПараметр("ДатаНач", ДатаНач);
ЗапросНомен.УстановитьПараметр("ДатаКон", ДатаКон);
МассивРезультатов = ЗапросНомен.ВыполнитьПакет();
РезультатЗапроса = ЗапросНомен.Выполнить();
Выборка = РезультатЗапроса.Выбрать();
Пока Выборка.Следующий() Цикл
   Если НЕ Выборка.Номенклатура.ЭтоГруппа Тогда
       Номенклатура = Выборка.Номенклатура;
       Остаток = Выборка.Остаток;
       МинОстаток = Выборка.МинОстаток;
       Продано = Выборка.Продано;
       Цена = Выборка.Цена;
       Сумма = Цена*Продано;
       Если Остаток < МинОстаток Тогда
           Док = Документы.ЗаявкаМагазина.СоздатьДокумент);
           НовТовар = Док.Товары.Добавить();
           НовТовар.Номенклатура = Номенклатура;
           НовТовар.Количество = Продано;
           НовТовар.Сумма = Сумма;
           НовТовар.Цена = Цена;
       КонецЕсли;
       Док.Автор = глТекущийПользователь.Наименование;
       Док.Дата = ТекущаяДата();
       Док.Склад = Справочники.МестаХранения.НайтиПоКоду(1);
       Док.ПримечаниеДокумента = Строка("Создан автоматически");
       Док.Записать();
       Форма = Док.ПолучитьФорму("ФормаДокумента");
       Форма.Открыть();
   КонецЕсли;
КонецЦикла;

программиста позвать

(1) умник

я тоже согласен

вынеси из цикла

Док = Документы.ЗаявкаМагазина.СоздатьДокумент); - а вообще это работает :)

(0) это что за х...ня? ты все это сделал?

Судя по всему обиделся...

Чувак не парься. Сегодня  пятница ...  оставь сложные задачи на понедельник !!!

Не знаю, что такое "МинОстаток", но исходя из того, что он реквизит Номенклатуры, то суммировать его неправильно.

не обиделся... (4) прочитал и понял где ступил

(0)
Если НЕ Выборка.Номенклатура.ЭтоГруппа Тогда

Так не делают, нужно сразу в запросе отсекать группы.

Док.Склад = Справочники.МестаХранения.НайтиПоКоду(1);

Склад лучше задать на форме.

Док.ПримечаниеДокумента = "Создан автоматически";

И примечание лучше ориентироваться на типовые, там используется Комментарий.


Вот примерно так можно переписать.

Пока Выборка.Следующий() Цикл
       Док = Документы.ЗаявкаМагазина.СоздатьДокумент);
       Если Выборка.Остаток < Выборка.МинОстаток Тогда
           т = Док.Товары.Добавить();
           ЗаполнитьЗначенияСвойств(т, Выборка);
           т.Сумма = Выборка.Цена * Выборка.Количество;
       КонецЕсли;
       Док.Автор = глТекущийПользователь.Наименование;
       Док.Дата = ТекущаяДата();
       Док.Склад = Склад;
       Док.Комментарий = "Создан автоматически";
       Док.Записать();
       Форма = Док.ПолучитьФорму("ФормаДокумента");
       Форма.Открыть();
КонецЦикла;


+ к (9)
Да и Если Остаток < МинОстаток Тогда тоже можно сразу в запросе отфильтровать...

(9)
В (0) написано: "как сделать чтоб весь список в ТЧ загружался, а то у меня при обходе создаются столько доков сколь в условие попадают"
А что твой код делать будет? :)

(6)не обиделся))) сейчас попробую все это провернуть, спасибо за подсказки

(11) Показал подход по сокращению кода, а по существу уже раньше подсказали...

(9) тоже самое делает что и мой код, только создаются +2 пустых дока...а как в один то загнать все?

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

снова нужна помощь по этой же теме. СУММА(ЧекККМТовары.Количество) КАК Количество - это проданый товар, как сделать если это количество равно 0, то есть товара не было продано, тогда это количество равно миностаток? Я делал так

ВЫБОР КОГДА ЧекККМТовары.Количество=0 ТОГДА ЧекККМТовары.Количество = ЧекККМТовары.Номенклатура.МинОстаток КОНЕЦ

Но как я понимаю он мне всегда будет возвращать пустое значение?

надо сначала просуммировать, а потом только сравнивать. Но с другой стороны откуда в документе будут позиции с нулевым количеством?

попробую тогда в регистре провернуть

ВЫБОР КОГДА Док.Количество=0 ТОГДА Док.Количество = Док.МинОстаток ИНАЧЕ Док.Количество КОНЕЦ
Сделал так, пишет неверные параметры (Док.Количество<<?>>)

(19) Док.Количество<<?>> -> Таб.Количество

(20) что-то не понял, Таб.Количество что это?