Перенос Кода из 8.1 в 8.3

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

Языки программирования

1. CD_SVEN 01.06.20 09:28 Сейчас в теме

Добрый день переношу доработки из 8.1 в 8.3, столкнулся с проблемой в коде справочника, подскажите пожалуйста как подстроить код под 8.3

// Процедура - обработчик события "НачалоВыбора" поля ввода "Периодичность"
//
Процедура ПериодичностьНачалоВыбора(Элемент, СтандартнаяОбработка)
    СтандартнаяОбработка = Ложь;
    СписокВыбора = Новый СписокЗначений;
    СписокВыбора.Добавить(Перечисления.Периодичность.Месяц);
    СписокВыбора.Добавить(Перечисления.Периодичность.Квартал);
    НачальноеЗначение = СписокВыбора.НайтиПоЗначению(Элемент.Значение);
    ВыбранноеЗначение = ВыбратьИзСписка(СписокВыбора, Элемент, НачальноеЗначение);
    Если НЕ (ВыбранноеЗначение = Неопределено) Тогда
        Элемент.Значение = ВыбранноеЗначение.Значение;
    КонецЕсли;    
КонецПроцедуры // ПериодичностьНачалоВыбора()

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. noprogrammer 239 01.06.20 09:33 Сейчас в теме

(1)
ВыбратьИзСписка Заменить на ПоказатьВыборИзСписка
Перечисления.Периодичность.Месяц заменить на ПредопределенноеЗначение("Перечисление.Периодичность.Месяц")

но гораздо проще без всякого кода просто в элемент указать нужные перечисления и все.

3. CD_SVEN 01.06.20 09:44 Сейчас в теме

(2)

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

Показать

и вот этот код посмотрите пожалуйста

4. noprogrammer 239 01.06.20 10:05 Сейчас в теме

(3) А что тут смотреть? если хотите, что бы код заработал без изменений то просто выполните его в событие "ПередЗаписьюНаСервере".

Оставьте свое сообщение

E-mail: