Как внести проводку, новой позиции

[lena.evdokimova]

Есть новая позиция (Сыр) как ее внести в проводку чтобы он падал на счет 41.01 а он автоматически падает на счет 004.01. Подскажите как мне внести проводку? Спасибо
Код у сыров (02026) Помогите пожалуйта нужно срочно!(


//*************08.06

    ЭтотОбъект.СпособЗачетаАвансов = Перечисления.СпособыЗачетаАвансов.НеЗачитывать;
    ЭтотОбъект.СчетУчетаРасчетовСКонтрагентом = ПланыСчетов.Хозрасчетный.НайтиПоКоду("62.01");
    ЭтотОбъект.Склад = Справочники.Склады.НайтиПоКоду("00001");
    ЭтотОбъект.Организация = Справочники.Организации.НайтиПоКоду("00003");
    Выборка = Справочники.ДоговорыКонтрагентов.Выбрать(, ЭтотОбъект.Контрагент.Ссылка);
    ЭтотОбъект.ВалютаДокумента = Справочники.Валюты.НайтиПоКоду("643");
    Пока Выборка.Следующий()=Истина Цикл
        Если Выборка.Организация<>Справочники.Организации.НайтиПоКоду("00003") Тогда
            Продолжить;
        КонецЕсли;
       
        Если выборка.ПометкаУдаления<>Истина Тогда
        ЭтотОбъект.ДоговорКонтрагента = Выборка.Ссылка;
        КонецЕсли;
    КонецЦикла;
   
    Для каждого ТС из Товары Цикл
        Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829")) <> Истина) Тогда
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");
        иначе
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
        КонецЕсли;
        ТС.СчетДоходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.01.1");
        ТС.СчетУчетаНДСПоРеализации = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.03");
        ТС.СчетРасходов = ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
        ТС.Субконто = ТС.Номенклатура.НоменклатурнаяГруппа;
               
        если (тс.ЦенаПоступления>тс.цена) или (тс.ЦенаПоступления=0)  тогда
        //    тс.ЦенаПоступления=тс.Цена;   

    конецесли;
КонецЦикла;
    //*************08.06

[wise]

Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829")) <> Истина) Тогда            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");        иначе            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");         КонецЕсли;

Код у сыров (02026)
вот и ПОЛУЧАЕТСЯ 004.01
попробуй { Сч41_01 = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
            Сыры = Справочники.Номенклатура.НайтиПоКоду("01829");
        Если (ТС.Номенклатура.ПринадлежитЭлементу(Справочники.Номенклатура.НайтиПоКоду("01829")) <> Истина) Тогда
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("004.01");
        ИначеЕсли ТС.Номенклатура.ПринадлежитЭлементу(Сыры) Тогда
            ТС.СчетУчета = Сч41_01;
        Иначе
            ТС.СчетУчета = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.04");
        КонецЕсли;
}
ВДРУГ получится... ;-)

[lena.evdokimova]

Спасибо уже нашли решение вопроса)