При копировании документа "Заявка на доставку" меняется отображение формы элементов
По теме из базы знаний
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Что вы хотите, что бы мы написали код а вы его скопировали в режиме Конфигуратора, или выложить вам расширение?
Для первого случая, смотрите для элемента ВидДоставки при изменении, то что внутри этой процедуры, нужно скопировать в Модуль объекта ПриКопировании или в модуль формы ПриОткрытии с проверкой что это новый
.
Для первого случая, смотрите для элемента ВидДоставки при изменении, то что внутри этой процедуры, нужно скопировать в Модуль объекта ПриКопировании или в модуль формы ПриОткрытии с проверкой что это новый
Если Параметры.Ключ.Пустая() Тогда
//код из ПриИзменении ВидДоставки
КонецЕсли;
(4) База на поддержке с использованием редактирования.
&НаКлиенте
Процедура ВидДоставкиПриИзменении(Элемент)
Если Объект.Распоряжения.Количество()
И Не ВидДоставкиЗоны = ПредопределенноеЗначение("Перечисление.СТ_ВидыДоставки.Переработка") Тогда
Оповещение = Новый ОписаниеОповещения("ВидДоставкиПриИзмененииПодтвердить", ЭтотОбъект);
ТекстВопроса = НСтр("ru = 'При изменении вида доставки табличная часть ""Распоряжения"" будет очищена. Продолжить?'");
ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
Возврат;
КонецЕсли;
ВидДоставкиПриИзмененииНаКлиенте();
НастроитьФормуНаСервере();
КонецПроцедуры
&НаКлиенте
Процедура ВидДоставкиПриИзмененииПодтвердить(Результат, ДопПараметры) Экспорт
Если Результат = КодВозвратаДиалога.Да Тогда
Объект.Распоряжения.Очистить();
ВидДоставкиПриИзмененииНаКлиенте();
НастроитьФормуНаСервере();
РассчитатьИтоговыеПоказатели(ЭтаФорма);
Иначе
Объект.ВидДоставки = ВидДоставки;
КонецЕсли;
КонецПроцедуры
Показать
(5) Так, если в ПриОткрыти() в конце прописать
должно заработать
//Изменения+
Если Параметры.Ключ.Пустая() Тогда
Если Объект.Распоряжения.Количество()
И Не ВидДоставкиЗоны = ПредопределенноеЗначение("Перечисление.СТ_ВидыДоставки.Переработка") Тогда
Оповещение = Новый ОписаниеОповещения("ВидДоставкиПриИзмененииПодтвердить", ЭтотОбъект);
ТекстВопроса = НСтр("ru = 'При изменении вида доставки табличная часть ""Распоряжения"" будет очищена. Продолжить?'");
ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
Возврат;
КонецЕсли;
ВидДоставкиПриИзмененииНаКлиенте();
НастроитьФормуНаСервере();
КонецЕсли;
//Изменения-
Показатьдолжно заработать
(6)
Нет, не работает.
Если Параметры.Ключ.Пустая() Тогда
Если Объект.Распоряжения.Количество()
И Не ВидДоставкиЗоны = ПредопределенноеЗначение("Перечисление.СТ_ВидыДоставки.Переработка") Тогда
Оповещение = Новый ОписаниеОповещения("ВидДоставкиПриИзмененииПодтвердить", ЭтотОбъект);
ТекстВопроса = НСтр("ru = 'При изменении вида доставки табличная часть ""Распоряжения"" будет очищена. Продолжить?'");
ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
Возврат;
КонецЕсли;
КонецЕсли;
Если Объект.Распоряжения.Количество()
И Не ВидДоставкиЗоны = ПредопределенноеЗначение("Перечисление.СТ_ВидыДоставки.Переработка") Тогда
Оповещение = Новый ОписаниеОповещения("ВидДоставкиПриИзмененииПодтвердить", ЭтотОбъект);
ТекстВопроса = НСтр("ru = 'При изменении вида доставки табличная часть ""Распоряжения"" будет очищена. Продолжить?'");
ПоказатьВопрос(Оповещение, ТекстВопроса, РежимДиалогаВопрос.ДаНет);
Возврат;
КонецЕсли;
КонецЕсли;
Нет, не работает.
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот