Автоматическая проводка в выписке по налоговому учету

[Red Ledi]

Некоммерческая организация. Ведем учет в 1С Предприятие. При обновлении 1С попросили программиста в модуле выписке прописать, что бы при поступлении денег по счету 86.1 производилась проводка в налоговом учете Н12 на сумму пришедшую на 86,1. После того как программист ушел заметила, что после проведения любых операций при поступлении денег на р/с Выписка делает проводку по счету Н12, а мне нужно, что бы проводку делал если деньги пришли на 86.1.

Строка 201 // ++вставка
Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "НУ Полученны средства целевого финансирования";
Операция.Кредит.Счет = СчетПоКоду("Н12");
Операция.Сумма = СуммаПоступления;
// ++Конецвставка

Помогите, пожалуйста, исправить.
Большое спасибо ВСЕМ кто ответит

[Fosihas]

Если СчБезНалРасч.Код = СчетПоКоду("86.1") Тогда
// ++вставка
// ++Конецвставка
КонецЕсли

[Red Ledi]

Спасибо за ответ, но почему то, после того как добавила у меня проводка по налоговому учету совсем пропала.
Из модуля Выписки (добавлены последние 10-ть строчек)

//Основная проводка
Если Прих > 0 Тогда
Операция.НоваяПроводка();
Операция.НомерЖурнала = "БК";
Операция.СодержаниеПроводки = НазначениеПлатежа;
Операция.ПервичныйДокумент = глПредставлениеПервичногоДокумента(Контекст);
Операция.Дебет.Счет = СчБезНалРасч;
Операция.Дебет.БанковскиеСчета = БанковскийСчет;
Операция.Дебет.ДвиженияДенежныхСредств = ВидДвижения;
Операция.Кредит.Счет = КоррСч;
Для а = 1 по КоррСч.КоличествоСубконто() Цикл
Операция.Кредит.Субконто(а, Субк[а]);
КонецЦикла;

Если Валютный = 2 Тогда
СуммаПоступления = Окр(Прих*Курс/Кратность,2,1);
Операция.ВалСумма = Прих;
Операция.Валюта = Валюта;

Иначе
Если (ПустоеЗначение(Вал) = 0) и (КоррСч.Валютный = 1) Тогда
Операция.ВалСумма = ВалПрих;
Операция.Валюта = Вал;
КонецЕсли;
СуммаПоступления = Прих;
КонецЕсли;

Операция.Сумма = СуммаПоступления;

Если СчБезНалРасч.Код = СчетПоКоду("86.1") Тогда
// ++вставка
Операция.НоваяПроводка();
Операция.НомерЖурнала = "НУ";
Операция.СодержаниеПроводки = "НУ Полученны средства целевого финансирования";
Операция.Кредит.Счет = СчетПоКоду("Н12");
Операция.Сумма = СуммаПоступления;
// ++Конецвставка
КонецЕсли;

Помогите пожалуйста!