При обмене через правила КД делаю проверку на договор, вылетает ошибка...
Проверяю если договора контрагента нету, то ищем в базе, если нет то создаём, но вылетает ошибка, не могу разобраться что ей нужно
Загрузка в приемнике: Ошибка при загрузке данных: {Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(1274)}: Ошибка в обработчике события ПослеЗагрузкиОбъекта
ИмяПКО = ДоговорыКонтрагентов
ТипОбъекта = Договор
Объект = Поставка на склад 1,5 млн
Обработчик = ПослеЗагрузкиОбъекта
ОписаниеОшибки = Преобразование значения к типу Булево не может быть выполнено
ПозицияМодуля = (1)
КодСообщения = 21
Если Не ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда
Фл = 1;
Выборка = Справочники.ДоговорыКонтрагентов.Выбрать(, Объект.Контрагент);
Пока Выборка.Следующий() Цикл
ТНаим = "Основной договор";
Если Найти(Выборка.Наименование, ТНаим) > 0 Тогда
Фл = 0;
А = Выборка.Ссылка;
Прервать;
КонецЕсли;
КонецЦикла;
Если Фл = 1 Тогда
А = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
А.Наименование = "Основной договор";
А.Номер = "№ " + Лев(Прав(Объект.Номер,6),5);
А.Дата = Объект.Дата;
А.Организация = Объект.Организация;
А.Владелец = Объект.Контрагент;
А.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;
Выборка = Справочники.Валюты.Выбрать();
Пока Выборка.Следующий() Цикл
Сообщить(Выборка.ссылка);
Если СтрНайти(Выборка.Наименование, "руб") > 0 Тогда
А.ВалютаВзаиморасчетов = Выборка.Ссылка;
Прервать;
КонецЕсли;
КонецЦикла;
А.Записать();
КонецЕсли;
Объект.ДоговорКонтрагента = А.Ссылка;
КонецЕсли;
ПоказатьЗагрузка в приемнике: Ошибка при загрузке данных: {Обработка.УниверсальныйОбменДаннымиXML.МодульОбъекта(1274)}: Ошибка в обработчике события ПослеЗагрузкиОбъекта
ИмяПКО = ДоговорыКонтрагентов
ТипОбъекта = Договор
Объект = Поставка на склад 1,5 млн
Обработчик = ПослеЗагрузкиОбъекта
ОписаниеОшибки = Преобразование значения к типу Булево не может быть выполнено
ПозицияМодуля = (1)
КодСообщения = 21
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(4)
Объект.СуммаВключаетНДС = Истина;
Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеТоваровУслуг.ПокупкаКомиссия;
Объект.ВалютаДокумента = Справочники.Валюты.НайтиПоНаименованию("руб.");
Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары");
Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаРасчетов(Объект);
Если Не ЗначениеЗаполнено(Объект.ДоговорКонтрагента) Тогда
Фл = 1;
Выборка = Справочники.ДоговорыКонтрагентов.Выбрать(, Объект.Контрагент);
Пока Выборка.Следующий() Цикл
ТНаим = "Основной договор";
Если Найти(Выборка.Наименование, ТНаим) > 0 Тогда
Фл = 0;
А = Выборка.Ссылка;
Прервать;
КонецЕсли;
КонецЦикла;
Если Фл = 1 Тогда
А = Справочники.ДоговорыКонтрагентов.СоздатьЭлемент();
А.Наименование = "Основной договор";
А.Номер = "№ " + Лев(Прав(Объект.Номер,6),5);
А.Дата = Объект.Дата;
А.Организация = Объект.Организация;
А.Владелец = Объект.Контрагент;
А.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПоставщиком;
А.ВалютаВзаиморасчетов = Справочники.Валюты.НайтиПоКоду("643");
А.Записать();
КонецЕсли;
Объект.ДоговорКонтрагента = А.Ссылка;
КонецЕсли;
Показать
Ниже перенесите
Там конечно надо смотреть все правила по хороше, если у вас договор не перноситься то скорее всего с правилом на договора что то не так.
Универсальный обмен не всегда пишет ошибку та которая есть а то вы счета заполнить без договора пытаетесь...что не есть хорошо
Там конечно надо смотреть все правила по хороше, если у вас договор не перноситься то скорее всего с правилом на договора что то не так.
Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(Объект, "Товары");
Документы.ПоступлениеТоваровУслуг.ЗаполнитьСчетаУчетаРасчетов(Объект);
Универсальный обмен не всегда пишет ошибку та которая есть а то вы счета заполнить без договора пытаетесь...что не есть хорошо
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот