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

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

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

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

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

	 КонецЦикла; 
КонецПроцедуры
Показать
+ – Ответить
Ответы
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
5. user705522_constantin_h 29 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 185 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.75 $m Hardware КА2 8.3.14 ИТ-компания Вопрос Обсуждение Вопрос c ответом Лицензия 1С
Программное создание кнопок на форме  2 $m Dev
у кого есть положительный/ отрицательный опыт по релизам 8.3.17.1851 , 8.3.18.1288, 8.3.18.1289 для файлового / серверного вариантов  0.2 $m UpdateCF БП3.0 ЗУП3.x 8.3.8
Мобильный клиент. Команда в боковом меню.  1 $m MobileDev
Отчет СКД: таблица по месяцам  0.36 $m Dev УТ11 v8 1С Внешний отчет (ert,erf)
Функция добавление фотографию через свой ПК...  0.3 $m Dev
Обмен данных висит на этапе Анализа данных  0.5 $m Обмен
Ошибка арифметического переполнения при преобразовании numeric к типу данных numeric  0.09 $m Dev 1cv8.cf v8 1С:Франчайзи, автоматизация бизнеса
Выгрузка из 1с Далион УНО групп печати во Фронтол 6  0.05 $m Обмен
торговля комиссионным маркированным товаром Управление торговлей, редакция 11 (11.4.13.99)  5 $m Торговля УТ11 Маркировка
Помощь в настройке УАТ и формы отчета  1 $m Учет Автомобили, автосервисы Транспорт, автопарки, такси
Передача и возврат значений  0.3 $m Dev v8
Восстанавливает резерв по сомнительным долгам после списания  2 $m БУ ERP2 КА2 Налог на прибыль БУ
Не активна форма автовыбора и расчёта по формуле в спецификации ERP 2.4  0.5 $m Dev
Меркурий 119ф и Ут 11.4.13.103  1 $m Торговля УТ11 v8
Перебор символов  2.01 $m Dev v8
Можно ли поставить переключатель?  0.02 $m Dev
Внешний отчет УНФ 1.6  1 $m Dev
Переход с доработанной ЗКГУ на ЗКГУ КОРП  1 $m UpdateCF ЗКГУ3.0
как в 1С ERP включить ретро-бонусы в себестоимость закупаемых товаров  1 $m Учет ERP2 КА2 v8