7.7 Обработка проведения документа

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем НатахаБ, 12 ноя 2007.

  1. TopicStarter Overlay
    НатахаБ
    Offline

    НатахаБ Опытный в 1С

    Регистрация:
    24 янв 2007
    Сообщения:
    92
    Симпатии:
    0
    Баллы:
    26
    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. Amishechka
    Offline

    Amishechka Опытный в 1С

    Регистрация:
    8 сен 2006
    Сообщения:
    361
    Симпатии:
    1
    Баллы:
    26
    Спр = СоздатьОбъект("Справочник.ВидыНоменклатуры")
    Спр.НайтиПоКоду("0000114");
    Операция.Дебет.ВидыНоменклатуры = Спр.ТекущийЭлемент();

Поделиться этой страницей