0
ddelphknn
10.12.14
✎
12:18
|
Необходимо создать забалансовый счет аналогичный 41-му, но на нем будет вестись учет без учета таможенных затрат.
Делаю подписку на событие ПередЗаписью регистра бухгалтерии.
Пробую скопировать проводку через ЗаполнитьЗначенияСвойств и присвоить корреспондирующему счету "Неопределено". По окончанию процедуры выдает ошибку "Запись не верна! Вид субконто "Способы учета НДС" не доступен для данной записи! Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет)".
У 41 счета такого субконто нет, корреспондирующий счет в значении "Неопределено", как и все виды субконто у него.
В подписке этот код:
Процедура РегистрБухгалтерииХозрасчетныйПриЗаписи(Источник, Отказ, РежимЗаписи) Экспорт
КолвоВИст = Источник.Количество()-1;
Для Счетчик = 0 По КолвоВИст Цикл
Строка = Источник[Счетчик];
Если (ТипЗнч(Источник.Отбор.Регистратор.Значение) <> Тип("ДокументСсылка.ГТДИмпорт")) И (ТипЗнч(Источник.Отбор.Регистратор.Значение) <> Тип("ДокументСсылка.ПоступлениеДопРасходов")) Тогда
Если (Лев(Строка.СчетДт.Код,2) = "41") ИЛИ (Лев(Строка.СчетКт.Код,2) = "41") Тогда
Движение = Источник.Добавить();
ЗаполнитьЗначенияСвойств(Движение,Строка,,"СубконтоКт,СубконтоДт");
Если Лев(Строка.СчетДт.Код,2) = "41" Тогда
Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("041. .");
Движение.СчетКт = Неопределено;
ЗаполнитьЗначенияСвойств(Движение.СубконтоДт,Строка.СубконтоДт);
КонецЕсли;
Если Лев(Строка.СчетКт.Код,2) = "41" Тогда
Движение.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("041. .");
Движение.СчетДт = Неопределено;
ЗаполнитьЗначенияСвойств(Движение.СубконтоКт,Строка.СубконтоКт);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
|
|
6
ddelphknn
10.12.14
✎
12:41
|
Идет, например, проводка СчетКт 041, СчетДт присваиваю неопределено. В СубконтоКт заполнены номенклатура и склады, а в СубконтоДт все субконто неопределено.
|
|