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