Вывод остатков..помогите

"Здравствуйте! Помогите пожалуйста, если сможите начинающему.Имеются подразделения. Реализовано списание техники, премещение между подразделениями в 1С77. Всё это на <br><br>забалансовом счёте МЦ04.Теперь возникла необходимость получения остатков по каждому подразделению. <br>Написан следующий код:<br><br>Опер22=СоздатьОбъект ("Операция");<br>опер22.использоватьСубконто(ВидыСубконто.Подразделения,Подразделение);<br>Опер22.ВыбратьОперацииСПроводкми(ВыбНачПериода,ВыбКонПериода,счет,,1);<br>Пока Опер22.ПолучитьПроводку()=1 Цикл<br> Приход =БухИтоги.СКД(счет,3,,Опер22.дебет.материалы,подразделение);<br> Если Приход > 0 Тогда<br>//вывод в отчёт<br> порНом=Порном+1;<br> маиериал=опер22.дебет.материалы;<br> Инв_Номер=опер22.дебет.материалы.код;<br> таб.вывестиСекцию("Строка");<br> КонецЕсли;<br>КонецЦикла;<br><br>Ошибка следующая:<br> В отчёте строки дублируются.<br>Причина:<br> При перемещении материала1 из подразделения1 в подроазделение2 всё нормально.<br> А При возвращении материала1 из подразделеня2 в подразделение1 начинается дублирование строк в отчёт, т.к:<br>                   Выведем остатки Подразделения2:<br>                   вот проводки:<br>                   1. Д-т подразделение2/подразделение1 материал СКД(подразделение2)=1 Вывод в отчёт<br> 2. К-т подразделение1/подразделение2 материал СКД(подразделение2)=0 В отчёт не выводится<br> 3. Д-т подразделение2/подразделение1 материал СКД(подразделение2)=1 Вывод в отчёт             <br>Что можно сделать в этом случае? Может я изначально что то не так делаю? Ч то Вы можете предложить?<br>Заранее огромное Спасибо!!!             "

"Что то как то все там в алгоритме в кучу и бухитоги и перебор проводок какой то операции зачем то. Надо так:<br>Предположим, что на вашем счете МЦ04 организована аналитика по двум разрезам Материалы и Подразделения<br><br>БухИт=СоздатьОбъект("БухгалтерскиеИтоги");<br>БухИт.ИспользоватьСубконто(ВидыСубконто.Подразделения);<br>БухИт.ИспользоватьСубконто(ВидыСубконто.Материалы);<br>БухИт.ВыполнитьЗапрос(,НужнаяДата,"МЦ04",,,,,3);<br>БухИт.ВыбратьСубконто(ВидыСубконто.Подразделения);<br>Пока БухИт.ПолучитьСубконто(ВидыСубконто.Подразделения)=1 Цикл<br> Таб.ВывестиСтроку("ШапкаПодразделения"); //прямо в таблице в какой нибудь ячейке этой секции можно написать формулу БухИт.СКД("С") - это будет сводный остаток в денежном выражении по всем материалам, которые есть в подразделении, в качестве наименования подразделения обращаемся к ссылку в результате бухитогов БухИт.Субконто(ВидыСубконто.Подразделения) - тоже пишем это в какой нибудь ячейке секции<br> БухИт.ВыбратьСубконто(ВидыСубконто.Материалы);<br> Пока БухИт.ПолучитьСубконто(ВидыСубконто.Материалы)=1 Цикл<br>      Таб.ВывестиСтроку("Строка"); //тут все по аналогии... БухИт.Субконто(ВидыСубконто.Материалы) - это элемент, по которому выводятся остатки, БухИт.СКД("К") - количественный остаток, БухИт.СКД("С") - денежный<br> КонецЦикла;<br>КонецЦикла;"

"> Что то как то все там в алгоритме в кучу и бухитоги и перебор проводок какой то операции зачем то. Надо так:<br>> Предположим, что на вашем счете МЦ04 организована аналитика по двум разрезам Материалы и Подразделения<br>> <br>> БухИт=СоздатьОбъект("БухгалтерскиеИтоги");<br>> БухИт.ИспользоватьСубконто(ВидыСубконто.Подразделения);<br>> БухИт.ИспользоватьСубконто(ВидыСубконто.Материалы);<br>> БухИт.ВыполнитьЗапрос(,НужнаяДата,"МЦ04",,,,,3);<br>> БухИт.ВыбратьСубконто(ВидыСубконто.Подразделения);<br>> Пока БухИт.ПолучитьСубконто(ВидыСубконто.Подразделения)=1 Цикл<br>> Таб.ВывестиСтроку("ШапкаПодразделения"); //прямо в таблице в какой нибудь ячейке этой секции можно написать формулу БухИт.СКД("С") - это будет сводный остаток в денежном выражении по всем материалам, которые есть в подразделении, в качестве наименования подразделения обращаемся к ссылку в результате бухитогов БухИт.Субконто(ВидыСубконто.Подразделения) - тоже пишем это в какой нибудь ячейке секции<br>> БухИт.ВыбратьСубконто(ВидыСубконто.Материалы);<br>> Пока БухИт.ПолучитьСубконто(ВидыСубконто.Материалы)=1 Цикл<br>>       Таб.ВывестиСтроку("Строка"); //тут все по аналогии... БухИт.Субконто(ВидыСубконто.Материалы) - это элемент, по которому выводятся остатки, БухИт.СКД("К") - количественный остаток, БухИт.СКД("С") - денежный<br>> КонецЦикла;<br>> КонецЦикла;<br><br>Огромное Вам спасибо! Всё заработало, никаких дублированей) Просто я новичёк и не очень понимал как это всё просто!"

"> порНом=Порном+1;<br>Мне вот это понравилось. Супер!"

"> > порНом=Порном+1;<br>> Мне вот это понравилось. Супер!<br><br>А так было бы лучше?<br>ЭротНом=ЭротНом+1;<br><br>"

Вот и мне понравилось))) Приятно и понятно)

"> Что то как то все там в алгоритме в кучу и бухитоги и перебор проводок какой то операции зачем то. Надо так:<br>> Предположим, что на вашем счете МЦ04 организована аналитика по двум разрезам Материалы и Подразделения<br>> <br>> БухИт=СоздатьОбъект("БухгалтерскиеИтоги");<br>> БухИт.ИспользоватьСубконто(ВидыСубконто.Подразделения);<br>> БухИт.ИспользоватьСубконто(ВидыСубконто.Материалы);<br>> БухИт.ВыполнитьЗапрос(,НужнаяДата,"МЦ04",,,,,3);<br>> БухИт.ВыбратьСубконто(ВидыСубконто.Подразделения);<br>> Пока БухИт.ПолучитьСубконто(ВидыСубконто.Подразделения)=1 Цикл<br>> Таб.ВывестиСтроку("ШапкаПодразделения"); //прямо в таблице в какой нибудь ячейке этой секции можно написать формулу БухИт.СКД("С") - это будет сводный остаток в денежном выражении по всем материалам, которые есть в подразделении, в качестве наименования подразделения обращаемся к ссылку в результате бухитогов БухИт.Субконто(ВидыСубконто.Подразделения) - тоже пишем это в какой нибудь ячейке секции<br>> БухИт.ВыбратьСубконто(ВидыСубконто.Материалы);<br>> Пока БухИт.ПолучитьСубконто(ВидыСубконто.Материалы)=1 Цикл<br>>       Таб.ВывестиСтроку("Строка"); //тут все по аналогии... БухИт.Субконто(ВидыСубконто.Материалы) - это элемент, по которому выводятся остатки, БухИт.СКД("К") - количественный остаток, БухИт.СКД("С") - денежный<br>> КонецЦикла;<br>> КонецЦикла;<br><br><br>а зачем так? ПРОЩЕ: <br><br><br>БухИт=СоздатьОбъект("БухгалтерскиеИтоги");<br><br>БухИт.ИспользоватьСубконто(ВидыСубконто.Материалы);<br>БухИт.ИспользоватьСубконто(ВидыСубконто.Подразделения, Подразделение, 2);<br><br>БухИт.ВыполнитьЗапрос(,НужнаяДата,"МЦ04",,,,,3);<br>//БухИт.ВыбратьСубконто(ВидыСубконто.Подразделения);<br>//Пока БухИт.ПолучитьСубконто(ВидыСубконто.Подразделения)=1 Цикл<br>// Таб.ВывестиСтроку("ШапкаПодразделения"); //прямо в таблице в какой нибудь ячейке этой ////секции можно написать формулу БухИт.СКД("С") - это будет сводный остаток в денежном выражении //по всем материалам, которые есть в подразделении, в качестве наименования подразделения обращаемся к ссылку в результате бухитогов БухИт.Субконто(ВидыСубконто.Подразделения) - тоже пишем это в какой нибудь ячейке секции<br> БухИт.ВыбратьСубконто(ВидыСубконто.Материалы);<br> Пока БухИт.ПолучитьСубконто(ВидыСубконто.Материалы)=1 Цикл<br> Таб.ВывестиСтроку("Строка"); //тут все по аналогии... БухИт.Субконто(ВидыСубконто.Материалы) - это элемент, по которому выводятся остатки, БухИт.СКД("К") - количественный остаток, БухИт.СКД("С") - денежный<br> КонецЦикла;<br>КонецЦикла;<br>"

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

> Дык это тоже самое, просто вы убрали группировку по подразделению, а судя по начальному варианту спрашивающего она ему была нужна<br><br>так изначально не ясен смысл группировки по подразделению, которое одно !!!<br>=> если переносятся остатки по аналитике - то проще такк...