Сделал обработку которая создает документы бригадный наряд и подбирает (создает, если нет) шаблон проводок.
Недавно пришлось создать документ вручную. Проблема в том что проводку выбираю из справочника, но почему-то создается другая с таким же именем.
Ничего не понял, что еще не так сделал в своей обработке?
Вот код который проверяет шаблон проводки и создает при необходимости новый:
Если СпрШП.НайтиПоНаименованию(ИмяЗаказа+" "+СправочникПодразделений.Наименование)=1 Тогда // уже есть проводка
Док.ШаблонПроводки=СпрШП.ТекущийЭлемент();
Иначе // новый ШП для заказа
СпрШП.Новый();
СпрШП.Наименование=ИмяЗаказа+" "+СправочникПодразделений.Наименование;
СпрПС.НайтиПоКоду(20,0);
СпрШП.СчетДебета=СпрПС.ТекущийЭлемент();
СпрПС.НайтиПоКоду(70,0);
СпрШП.СчетКредита=СпрПС.ТекущийЭлемент();
СпрВС.НайтиПоНаименованию("Виды номенклатуры");
СпрЗС.ИспользоватьВладельца(СпрВС.ТекущийЭлемент());
СпрЗС.НайтиПоНаименованию(ИмяЗаказа,0,1);
СпрШП.Субконто1Дебета=СпрЗС.ТекущийЭлемент();
СпрВС.НайтиПоНаименованию("Затраты на производство");
СпрЗС.ИспользоватьВладельца(СпрВС.ТекущийЭлемент());
СпрЗС.НайтиПоНаименованию("Основная заработная плата",0,1);
СпрШП.Субконто2Дебета=СпрЗС.ТекущийЭлемент();
СпрШП.Субконто4Дебета=СпрЗС.ТекущийЭлемент();
СпрШП.Субконто5Дебета=СпрЗС.ТекущийЭлемент();
СпрШП.Субконто3Дебета=СправочникПодразделений.ТекущийЭлемент();
СпрШП.Субконто1Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто2Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто3Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто4Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто6Дебета=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто7Дебета=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.ВидНачисления=ПолучитьПустоеЗначение("Перечисление.ВидыНачисленийПоОплатеТруда");
СпрШП.Балансодержатель=ПолучитьПустоеЗначение("Справочник.Балансодержатели");
СпрШП.ПодпадаетПодЕНВД=0;
СпрШП.Записать();
Док.ШаблонПроводки=СпрШП.ТекущийЭлемент();
Недавно пришлось создать документ вручную. Проблема в том что проводку выбираю из справочника, но почему-то создается другая с таким же именем.
Ничего не понял, что еще не так сделал в своей обработке?
Вот код который проверяет шаблон проводки и создает при необходимости новый:
Если СпрШП.НайтиПоНаименованию(ИмяЗаказа+" "+СправочникПодразделений.Наименование)=1 Тогда // уже есть проводка
Док.ШаблонПроводки=СпрШП.ТекущийЭлемент();
Иначе // новый ШП для заказа
СпрШП.Новый();
СпрШП.Наименование=ИмяЗаказа+" "+СправочникПодразделений.Наименование;
СпрПС.НайтиПоКоду(20,0);
СпрШП.СчетДебета=СпрПС.ТекущийЭлемент();
СпрПС.НайтиПоКоду(70,0);
СпрШП.СчетКредита=СпрПС.ТекущийЭлемент();
СпрВС.НайтиПоНаименованию("Виды номенклатуры");
СпрЗС.ИспользоватьВладельца(СпрВС.ТекущийЭлемент());
СпрЗС.НайтиПоНаименованию(ИмяЗаказа,0,1);
СпрШП.Субконто1Дебета=СпрЗС.ТекущийЭлемент();
СпрВС.НайтиПоНаименованию("Затраты на производство");
СпрЗС.ИспользоватьВладельца(СпрВС.ТекущийЭлемент());
СпрЗС.НайтиПоНаименованию("Основная заработная плата",0,1);
СпрШП.Субконто2Дебета=СпрЗС.ТекущийЭлемент();
СпрШП.Субконто4Дебета=СпрЗС.ТекущийЭлемент();
СпрШП.Субконто5Дебета=СпрЗС.ТекущийЭлемент();
СпрШП.Субконто3Дебета=СправочникПодразделений.ТекущийЭлемент();
СпрШП.Субконто1Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто2Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто3Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто4Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто6Дебета=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто7Дебета=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.ВидНачисления=ПолучитьПустоеЗначение("Перечисление.ВидыНачисленийПоОплатеТруда");
СпрШП.Балансодержатель=ПолучитьПустоеЗначение("Справочник.Балансодержатели");
СпрШП.ПодпадаетПодЕНВД=0;
СпрШП.Записать();
Док.ШаблонПроводки=СпрШП.ТекущийЭлемент();
По теме из базы знаний
- Обработка "Анализ и редактирование справочника "Шаблоны проводок"
- Работа с шаблонами проводок 1С:Предприятие7.7 ("все под рукой")
- Выгрузка проводок из ЗиК 7.7 в Бухгалтерия 8 редакция 2.0
- Ошибка формирования свода проводок ЗИК 306 - в январе 2011 не формируются проводки по кт 97 счета
- Выгрузка проводок из ЗиК 7.7 (бюджет) в БГУ 8.2. Часть 1. (Выгрузка из ЗиК 7.7 в файл Excel)
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Попробуй так:
Если СпрШП.НайтиПоНаименованию(СокрЛП(ИмяЗаказа)+" "+СокрЛП(СправочникПодразделений.Наименование),0,0)=1 Тогда // уже есть проводка
Если СпрШП.НайтиПоНаименованию(СокрЛП(ИмяЗаказа)+" "+СокрЛП(СправочникПодразделений.Наименование),0,0)=1 Тогда // уже есть проводка
Проблема решилась заменой
СпрШП.Субконто2Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто3Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто4Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
на строки
СпрШП.Субконто2Кредита="";
СпрШП.Субконто3Кредита="";
СпрШП.Субконто4Кредита="";
Интересно чем они отличаются. В отладчике после знака равно в обоих случаях ничего не было.
СпрШП.Субконто2Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто3Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
СпрШП.Субконто4Кредита=ПолучитьПустоеЗначение("Справочник.ЗначенияСубконто");
на строки
СпрШП.Субконто2Кредита="";
СпрШП.Субконто3Кредита="";
СпрШП.Субконто4Кредита="";
Интересно чем они отличаются. В отладчике после знака равно в обоих случаях ничего не было.
Внимание! Тема сдана в архив
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот