Программная установка основного договора
Доброго дня ! Не удается назначить основной договор, обработка запускается, отрабатывает без ошибок, результата нет.
В чем может быть дело
База на УФ. Основной договор хранится в одноименном реквизите справочника Контрагенты (не в регистре сведений !).
В чем может быть дело
База на УФ. Основной договор хранится в одноименном реквизите справочника Контрагенты (не в регистре сведений !).
&НаСервере
Процедура Команда1НаСервере()
Запрос = Новый Запрос("
|ВЫБРАТЬ
| Ссылка,
| Наименование
|ИЗ
| Справочник.Контрагенты КАК Контрагенты
|ГДЕ
| Контрагенты.ЭтоГруппа = Ложь
|АВТОУПОРЯДОЧИВАНИЕ");
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ВыбДогКонтрагента = Справочники.ДоговорыКонтрагентов.Выбрать(,ВыборкаДетальныеЗаписи.Ссылка);
Пока ВыбДогКонтрагента.Следующий() Цикл
КонтрагентОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
КонтрагентОбъект.ОсновнойДоговор = ВыбДогКонтрагента;
Попытка
КонтрагентОбъект.Записать();
Исключение
Сообщить("Не удалось записать объект """ + КонтрагентОбъект + """
|" + ОписаниеОшибки(), 60);
КонецПопытки;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
ПоказатьПо теме из базы знаний
- Автоматическое создание договоров и установка основного договора контрагента
- Конфигурация "Весовая ред. 3.0" для Платформы 8.3
- Загрузка чеков ФНС в документы 1С:БП, 1С:УНФ, 1С:ERP, 1С:КА и 1С:УТ
- Модульная (open source) конфигурация "INFOSTART ERP community edition"
- Счета учета расчетов с контрагентами по видам договоров в 1С:Бухгалтерия предприятия
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Рещил вопрос "от обратного":
Процедуру разместил (временно) в модуле списка справочника договоры. И там уже перебирая договора "вытаскивал" владельца договора и после назначал основной договор. Буквой "зю" реализация - но сработало.
Процедуру разместил (временно) в модуле списка справочника договоры. И там уже перебирая договора "вытаскивал" владельца договора и после назначал основной договор. Буквой "зю" реализация - но сработало.
&НаСервере
Процедура УстановитьОсновнымНаСервере()
Запрос = Новый Запрос("
|ВЫБРАТЬ
| Ссылка
|ИЗ
| Справочник.ДоговорыКонтрагентов КАК. ДоговорыКонтрагентов ;
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
Если ВыборкаДетальныеЗаписи.Ссылка.ВидДокумента=Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда
КонтрагентОбъект = ВыборкаДетальныеЗаписи.Ссылка.Владелец.ПолучитьОбъект();
КонтрагентОбъект.ОсновнойДоговор = ВыборкаДетальныеЗаписи.Ссылка;
Попытка
КонтрагентОбъект.ОбменДанными.Загрузка = Истина;
КонтрагентОбъект.Записать();
Исключение
Сообщить("Не удалось записать объект """ + КонтрагентОбъект + """
|" + ОписаниеОшибки(), 60);
КонецПопытки;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот