"САМ АЛГОРИТМ ЗАПОЛНЕНИЯ СНИЗУ, ПОЛНОСТЬЮ СКОПИРОВАЛ ЧТОБЫ ВИДНО БЫЛО ЧТО ДЕЛАЕТСЯ С БухИт ПЕРЕД ТЕМ КАК НАЧАТЬ ВЫПОЛНЯТЬ ПОДСЧЕТ СУММЫ <br> БухИт = СоздатьОбъект("БухгалтерскиеИтоги");<br> БухИт.ИспользоватьСубконто(ВидыСубконто.МестаХранения,ВыбСклад,2);<br>// БухИт.ВключатьСубсчета(,); <br> Если Выбсклад.ТипСклада=Перечисление.ТипыСкладов.Оптовый Тогда<br> БухИт.ВыполнитьЗапрос(ДатаНачала,ДатаКонца,"МХ.2",,,,"Операция",); <br> Иначе<br> БухИт.ВыполнитьЗапрос(ДатаНачала,ДатаКонца,"МХ.Р",,,,"Операция",); <br> КонецЕсли;<br> НачСтоимостьВсего = БухИт.СНД(); <br> Т.ВывестиСекцию("ОстатокНачала"); <br> Т.ВывестиСекцию("Приход"); <br> глОживить(3);<br><br><br> Ном=0;<br> БухИт.ВыбратьПериоды(,1,,);<br> Пока БухИт.ПолучитьПериод(,) = 1 Цикл<br> Докум = БухИт.Операция.Документ; <br> СуммаТовара = БухИт.ДО();<br> Если глЕстьРеквизитШапки("НомерДокВходящий", Докум.Вид()) = 1 Тогда<br> НомерДокумента = Докум.НомерДокВходящий;<br> Иначе<br> НомерДокумента = Докум.НомерДок;<br> КонецЕсли;<br> <br> Если глЕстьРеквизитШапки("ДатаДокВходящий", Докум.Вид()) = 1 Тогда<br> ДатаДокумента = Докум.ДатаДокВходящий;<br> Иначе<br> ДатаДокумента = Докум.ДатаДок;<br> КонецЕсли;<br> //ИТ[ <br> стринфо="""";<br> Если (Докум.Вид()="ПеремещениеМПЗ") Тогда<br> стринфо=Докум.МестоХранения; <br> ИначеЕсли глЕстьРеквизитШапки("Контрагент",Докум.Вид())=1 тогда<br> стринфо=Докум.Контрагент; <br> КонецЕсли; <br> Комментарий = Докум.Комментарий;<br> Ном = Ном + 1;<br> Т.ВывестиСекцию("Строка"); <br> глОживить(1);<br> КонецЦикла;<br> ПрихСтоимостьВсего = БухИт.ДО();<br> Т.ВывестиСекцию("ИтогоПриход"); глОживить(1);<br> Т.ВывестиСекцию("ВсегоПриход"); глОживить(1); <br> <br> Т.НоваяСтраница();<br> //Т.ВывестиСекцию("Шапка");<br> Т.ВывестиСекцию("Расход");<br> БухИт.ВыбратьПериоды(,2,,);<br> Пока БухИт.ПолучитьПериод(,) = 1 Цикл<br> Докум = БухИт.Операция.Документ; <br> СуммаТовара = БухИт.КО();<br> Если глЕстьРеквизитШапки("НомерДокВходящий", Докум.Вид()) = 1 Тогда<br> НомерДокумента = Докум.НомерДокВходящий;<br> Иначе<br> НомерДокумента = Докум.НомерДок;<br> КонецЕсли;<br> <br> Если глЕстьРеквизитШапки("ДатаДокВходящий", Докум.Вид()) = 1 Тогда<br> ДатаДокумента = Докум.ДатаДокВходящий;<br> Иначе<br> ДатаДокумента = Докум.ДатаДок;<br> КонецЕсли;<br> //ИТ[ <br> стринфо=""""; Комментарий = Докум.Комментарий;<br> Если (Докум.Вид()="ПеремещениеМПЗ") Тогда <br> Если Докум.ВидПеремещения = 1 Тогда<br> стринфо=Докум.МестоХраненияПриемник; <br> Иначе<br> СтрИнфо = """"+Докум.СчетЗатрат+","+Докум.Субконто1;<br> КонецЕсли;<br> <br><br> ИначеЕсли глЕстьРеквизитШапки("Контрагент",Докум.Вид())=1 тогда<br> стринфо=Докум.Контрагент; <br> Если СуммаТовара<>Докум.Итог("Сумма")Тогда<br> Комментарий = "Скидка "+( СуммаТовара- Докум.Итог("Сумма"));<br> КонецЕсли;<br> <br> КонецЕсли;<br> Ном = Ном + 1;<br> Т.ВывестиСекцию("Строка"); <br> глОживить(1);<br> КонецЦикла;"