Обработка проведения документа Поступление материалов от поставщиков

1. NatalkaBal 29 12.11.07 11:59 Сейчас в теме
1С Бухгалтерия 7.7 редакция 4.5 релиз 7.70.489
Суть проблемы:
Необходимо при проведение документа Поступление материалов от поставщиков добавить две проводки:
1) д 20 к. 10.13
2). МЦ.04
Проводки добавляются при следующих условиях:
1) Материалы относятся только к группе 10.13 (малоценные ОС)
2) Поступление материалов во все Места хранения за исключением Центрального склада.

В модуль документа добавила следующие строки:

Если (МестоХранения.ТекущийЭлемент().Код <> "00002") Тогда // все кроме Центрального склада
Если Материал.СубСчет10 = СчетПоКоду ("10.13") Тогда
Операция.НоваяПроводка();
Операция.НомерЖурнала = "МТ";
Операция.СодержаниеПроводки = "Ввод в эксплуатацию";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = СчетПоКоду ("20");
???????????????????????????????????????????????????
Операция.Дебет.ВидыНоменклатуры = НайтиПоКоду ("0000114");
Операция.Дебет.СтатьиЗатратНаПроизводство=НайтиПоКоду("Т0042");
Операция.Дебет.Подразделения = МестоХранения;
???????????????????????????????????????????????????
Операция.Кредит.Счет = Материал.СубСчет10;
Операция.Кредит.Материалы = Материал;
Операция.Кредит.МестаХранения = МестоХранения;
Операция.Количество = Количество;

Операция.НоваяПроводка();
Операция.СодержаниеПроводки = "Материалы списаны на затраты";
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = СчетПоКоду ("МЦ.04");
Операция.Дебет.Материалы = Материал;
Операция.Дебет.МестаХранения = МестоХранения;
Операция.Количество = Количество;
КонецЕсли;
КонецЕсли;

Необходимо чтобы по счету 20 формировались следующие записи в проводки:
Субконто1 (ВидыНоменклатуры ): ОС до 10 тыс.руб (в справоснике Вид продукции (работ, услуг) - код данной записи 0000114)
Субконто2 (Статьи затрат): ОС до 10 тыс.руб. (в справочнике Статьи затрат -код Т0042)
Субконто3 (Подразделение): Место хранения

Подскажите пожалуйста (дайте совет) как это можно реализовать!
По теме из базы знаний
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. Abadonna 3971 12.11.07 12:50 Сейчас в теме
Просто НайтиПоКоду ("0000114"); НайтиПоКоду("Т0042"); не прокатит.
Спр=СоздатьОбъект("Справочник.СтатьиЗатратНаПроизводство");
Спр.НайтиПоКоду(""Т0042"");
Операция.Дебет.СтатьиЗатратНаПроизводство=Спр.ТекущийЭлемент();
и т.д. и т.п.
3. NatalkaBal 29 12.11.07 12:54 Сейчас в теме
Все получилось.
Огромное спасибо!
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот