Имя: Пароль:
1C
1С v8
Проводка без корреспондирующего счета
0 ddelphknn
 
10.12.14
12:18
Необходимо создать забалансовый счет аналогичный 41-му, но на нем будет вестись учет без учета таможенных затрат.
Делаю подписку на событие ПередЗаписью регистра бухгалтерии.
Пробую скопировать проводку через ЗаполнитьЗначенияСвойств и присвоить корреспондирующему счету "Неопределено". По окончанию процедуры выдает ошибку "Запись не верна! Вид субконто "Способы учета НДС" не доступен для данной записи! Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет)".
У 41 счета такого субконто нет, корреспондирующий счет в значении "Неопределено", как и все виды субконто у него.
В подписке этот код:
Процедура РегистрБухгалтерииХозрасчетныйПриЗаписи(Источник, Отказ, РежимЗаписи) Экспорт
    КолвоВИст = Источник.Количество()-1;
    Для Счетчик = 0 По КолвоВИст Цикл
        Строка = Источник[Счетчик];
        Если (ТипЗнч(Источник.Отбор.Регистратор.Значение) <> Тип("ДокументСсылка.ГТДИмпорт")) И (ТипЗнч(Источник.Отбор.Регистратор.Значение) <> Тип("ДокументСсылка.ПоступлениеДопРасходов")) Тогда
            Если (Лев(Строка.СчетДт.Код,2) = "41") ИЛИ (Лев(Строка.СчетКт.Код,2) = "41") Тогда
                Движение = Источник.Добавить();
                ЗаполнитьЗначенияСвойств(Движение,Строка,,"СубконтоКт,СубконтоДт");
                Если Лев(Строка.СчетДт.Код,2) = "41" Тогда
                    Движение.СчетДт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("041.  .");
                    Движение.СчетКт = Неопределено;
                    ЗаполнитьЗначенияСвойств(Движение.СубконтоДт,Строка.СубконтоДт);
                КонецЕсли;
                Если Лев(Строка.СчетКт.Код,2) = "41" Тогда
                    Движение.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("041.  .");
                    Движение.СчетДт = Неопределено;
                    ЗаполнитьЗначенияСвойств(Движение.СубконтоКт,Строка.СубконтоКт);
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры
1 cw014
 
10.12.14
12:21
Смотри, что у тебя лежит в Движение.СубконтоДт или Движение.СубконтоКт
2 ДенисЧ
 
10.12.14
12:28
А если очистить не только счёт, но и его субконты?
3 Defender aka LINN
 
10.12.14
12:33
(2) Да ну, не может же быть в субконте дело, сам-то подумай!
4 ДенисЧ
 
10.12.14
12:34
(3) Чорт... Что-то я затупил....
5 Джинн
 
10.12.14
12:40
Не проще ли 15-16 счета юзать и не трахать мозг ни себе, ни людям?
6 ddelphknn
 
10.12.14
12:41
Идет, например, проводка СчетКт 041, СчетДт присваиваю неопределено. В СубконтоКт заполнены номенклатура и склады, а в СубконтоДт все субконто неопределено.
7 vicof
 
10.12.14
12:43
А предопределенные элементы религия не позволяет использовать?
8 ddelphknn
 
10.12.14
14:07
up
9 ddelphknn
 
10.12.14
14:51
Сделал без использования ЗаполнитьЗначенияСвойств и заработало.
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой