"Товарищи у меня вот такой вопрос к вам: <br>В Бухгалтерии в стандартной ведется учет по материалам и передо мной стоит зада сделать следующее: <br>При изменении цены материала чтобы менялись все обороты по нему в денежном выражении то есть производилась корректировка суммы оборотов. Я сделала что-то примерно. но не получается до конца в чем проблема понять не могу. Посмотрите и подскажите Что не так? <br>Процедура КоррОперация(Дата1, Дата2) <br>Дата1 = "15.03.2008"; <br>Дата2 = "31.12.2010"; <br>БИ = СоздатьОбъект("БухгалтерскиеИтоги"); <br>БИ.ИспользоватьСубконто("Материалы"); <br>БИ.ИспользоватьСубконто("МестаХранения"); <br><br>БИ.ВыполнитьЗапрос(Дата1, Дата2,СубСчет10); <br>БИ.ВыбратьСубконто(1); <br>БИ.ПолучитьСубконто(1,,ТекущийЭлемент()); <br>ТекЦена = БИ.СКД("С")/БИ.СКД("К"); <br>БИ.ВыбратьСубконто(2); <br>БИ.ПолучитьСубконто(2,,Константа.ОсновнойСклад); <br><br>ОстКол = БИ.СКД("К"); <br><br>Если ОстКол <>0 Тогда <br>КоррСумма = (Цена - ТекЦена) * ОстКол; <br>КонецЕсли; <br><br>ДокОпер = СоздатьОбъект("Операция"); <br>ДокОпер.Новая(); <br><br>ДокОпер.ДатаОперации = Дата(Дата2); <br>ДокОпер.Документ.Комментарий = "Корректировка стоимости материалов"; <br>ДокОпер.НоваяПроводка(); <br>ДокОпер.НомерЖурнала = "МТ"; <br>ДокОпер.СодержаниеПроводки = "Скорректированно"; <br><br>ДокОпер.Дебет.Счет = ТекущийЭлемент().СубСчет10; <br>ДокОпер.Дебет.Материалы = ТекущийЭлемент(); <br>ДокОпер.Дебет.МестаХранения = Константа.ОсновнойСклад; <br>ДокОпер.Кредит.Счет = СчетПоКоду("00"); <br>ДокОпер.Сумма = КоррСумма; <br>ДокОпер.Записать(); <br>Сообщить("Операция создана"); <br>КонецПроцедуры"