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