Форум Программирование Общие вопросы программирования (Dev)

Программная установка основного договора

Платформа 1С v8.3
1. 14.01.21 00:24 Сейчас в теме
Доброго дня ! Не удается назначить основной договор, обработка запускается, отрабатывает без ошибок, результата нет.
В чем может быть дело
База на УФ. Основной договор хранится в одноименном реквизите справочника Контрагенты (не в регистре сведений !). 

&НаСервере
Процедура Команда1НаСервере()
	Запрос = Новый Запрос(" 
|ВЫБРАТЬ 
|	Ссылка, 
|	Наименование 
|ИЗ 
|	Справочник.Контрагенты КАК Контрагенты
|ГДЕ
|   Контрагенты.ЭтоГруппа = Ложь 
|АВТОУПОРЯДОЧИВАНИЕ"); 
	
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
	 ВыбДогКонтрагента = Справочники.ДоговорыКонтрагентов.Выбрать(,ВыборкаДетальныеЗаписи.Ссылка);
	 
	Пока ВыбДогКонтрагента.Следующий() Цикл			 
    КонтрагентОбъект = ВыборкаДетальныеЗаписи.Ссылка.ПолучитьОбъект();
	КонтрагентОбъект.ОсновнойДоговор = ВыбДогКонтрагента;
	Попытка
	КонтрагентОбъект.Записать();
    Исключение
	 Сообщить("Не удалось записать объект """ + КонтрагентОбъект + """
	 |" + ОписаниеОшибки(), 60);	 
     КонецПопытки;
    КонецЦикла;

	 КонецЦикла; 
КонецПроцедуры
Показать
+ – Ответить
Ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
5. user705522_constantin_h 30 14.01.21 13:17 Сейчас в теме
(1)Какой тип у Контрагент.ОсновнойДоговор?
mnbvcxz10; +1 – Ответить
2. user1503726 14.01.21 00:35 Сейчас в теме
В выборке по договорам теоретически можно указать более конкретные условия, отбор по умолчанию может быть отключен.
mnbvcxz10; +1 – Ответить
3. ZergKRSK 128 14.01.21 07:30 Сейчас в теме
Научу пользоваться Отладчиком. Дорого.
+ – Ответить
8. mnbvcxz10 14.01.21 17:17 Сейчас в теме
(3) Все не слава Богу :), Отладчик чегой-то перестал arbeiten . На клиент-сервере иногда чудеса в решете происходят. Разбираться - руки не дошли
+ – Ответить
4. andy_zhav 188 14.01.21 10:03 Сейчас в теме
(1) Посмотрите модуль объекта справочника контрагенты, процедуру перед записью и при записи. Может там затирается. можно еще добавить команду перед записью объекта КонтрагентОбъект.ОбменДанными.Загрузка = истина;
mnbvcxz10; +1 – Ответить
9. mnbvcxz10 14.01.21 17:20 Сейчас в теме
Всем спасибо
(4) ОбменДанными.Загрузка = истина.
Спасибо за дельный совет.
+ – Ответить
6. user633533_encantado 8 14.01.21 13:22 Сейчас в теме
Не понятно что у вас за конфигурация. В общем случае могут быть обработчики, которые не дают назначить какой попало договор как основной.
mnbvcxz10; +1 – Ответить
7. mnbvcxz10 14.01.21 17:14 Сейчас в теме
(6) Да вы правы. Конфа нетиповая, отраслевая. Реализована на версии БСП 3 - 4 летней давности
+ – Ответить
10. mnbvcxz10 14.01.21 17:26 Сейчас в теме
Рещил вопрос "от обратного":

Процедуру разместил (временно) в модуле списка справочника договоры. И там уже перебирая договора "вытаскивал" владельца договора и после назначал основной договор. Буквой "зю" реализация - но сработало. 

&НаСервере
Процедура УстановитьОсновнымНаСервере()
	
	Запрос = Новый Запрос(" 
|ВЫБРАТЬ 
|	Ссылка 
|ИЗ 
|	Справочник.ДоговорыКонтрагентов КАК. ДоговорыКонтрагентов ; 
	
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
	
   Если ВыборкаДетальныеЗаписи.Ссылка.ВидДокумента=Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда
    КонтрагентОбъект = ВыборкаДетальныеЗаписи.Ссылка.Владелец.ПолучитьОбъект();
	КонтрагентОбъект.ОсновнойДоговор = ВыборкаДетальныеЗаписи.Ссылка;
	
	Попытка
	КонтрагентОбъект.ОбменДанными.Загрузка = Истина;	
	КонтрагентОбъект.Записать();
    Исключение
	 Сообщить("Не удалось записать объект """ + КонтрагентОбъект + """
	 |" + ОписаниеОшибки(), 60);	 
 КонецПопытки;
КонецЕсли;

КонецЦикла; 

КонецПроцедуры
Показать
+ – Ответить
Оставьте свое сообщение
Вопросы с вознаграждением
Запросы условие перечисление  0.5 $m Admin БП3.0 v8
ЗУП 3.1 ограничение доступа по подразделениям  1 $m Зарплата ЗУП3.x
Командный интерфейс основного раздела  1 $m Dev 1cv8.cf Интерфейсы
Создание больничных листов с помощью сканирования штрих-кода в ERP 2.4  5 $m Зарплата ERP2
Ошибка формирования декларации по НДС - Не указан номер счета-фактуры  3 $m БУ БП3.0 Розничная и сетевая торговля (FMCG) НДС
Самопроизвольно прекращается регламентное задание  0.6 $m Admin УТ11 Платформа 1С v8.1 Windows
RDP проброс стабильного com порта онлайн кассы для 1с  1.5 $m Admin
Разрешить или запретить редактировать Элементы  0.2 $m Dev
Как учитывать НДС в стоимость товара?  0.18 $m Учет УТ11 v8
Открытие конфигуратора из другой IP подсети  2 $m Admin
Процент оплаты в больничном ЗУП, МРОТ  0.5 $m Зарплата ЗУП3.x
Исполнитель = УстановилРезультат при делегировании. Это правильно?  1 $m Документооборот
Транспортный налог за год 2020  2 $m БУ БП3.0 Транспортный налог
Морфер. Глюк. Слетает Имя и Отчество у ранее спряженных ФИО  1 $m Dev ЗУП3.x
Web - сервис. Выбор файла в одиночном режиме.  0.33 $m Dev v8
Установлена программа на сервере ЗУП 3.1.16.108 платформа "1С:Предприятие 8.3 (8.3.17.1851)" КриптоПро 4.0.99.75 серверная. Ошибка при получении данных по ЭЛН из ФСС  1 $m Зарплата ЗУП3.x
Печатная форма документа графика отпусков с сортировкой по плановой дате базы ЗУП 2.5  1 $m Dev ЗУП2.5
Заполнение формы данными при нажатии на кнопку  0.9 $m Dev
Тестовое задание на вакансию "Программист 1С" №5  1 $m Dev v8 УТ11
РМК 1с розница (изменение работы)  0.01 $m Торговля