Вибрати документи, заповнити тз, завантажити в документ

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