Имя: Пароль:
1C
1С v8
Чем заменить ОписаниеОповещения из 8.3 в 8.1.
0 vl_programmer
 
28.03.17
10:15
Есть конфа на 8.3 в ней активно используется ОписаниеОповещения. Данный кот нужно перенести на 8.1 где нет данной конструкций возможно кто то заменял или делал свое нечто подобное. Буду рад за любую помощь. Вариант перехода на 8.3 просьба не предлагать.
2 h-sp
 
28.03.17
10:18
(0) вчера была точно такая же тема. Покопайся во вчерашних топиках.
3 vl_programmer
 
28.03.17
10:23
(2) прежде чем задать вопрос я естественно погуглил и поискал по форуму. Либо ищу не по тем словам либо тему грохнули...
5 FIXXXL
 
28.03.17
10:46
(0) пример кода на 8.3
если это касается обхода модальности в Вопрос, к примеру, тогда пишите без этого обхода, прямой код
6 vl_programmer
 
28.03.17
10:50
(5) Меня параметры смущают.
Оповещение = Новый ОписаниеОповещения("ПолучитьИнформациюДрайвераПоФайлу_ИнициализацияФайлаЗавершение", ЭтотОбъект, ПараметрыВыполнения);
7 FIXXXL
 
28.03.17
10:52
(6) зачем тебе вообще Оповещение = Новый ОписаниеОповещения в 8.1?
или ты хочешь кучу кода копипастнуть в 8.1 из 8.3?
8 vl_programmer
 
28.03.17
10:53
(7) Да. Нужно работу с ТО из библиотеке торгового оборудование перетащить на 8.1
9 FIXXXL
 
28.03.17
10:54
(8) придется переписывать такие куски...
10 vl_programmer
 
28.03.17
10:56
(9) Да понимаю...Но подумал мало ли кто уже писал что то подобное...
11 catena
 
28.03.17
11:13
Функция ОписаниеОповещения(ИмяПроцедуры,Модуль,ДополнительныеПараметры=Неопределено, ИмяПроцедурыОбработкиОшибки=Неопределено, МодульОбработкиОшибки=Неопределено) Экспорт
    Возврат Новый Структура("ИмяПроцедуры,Модуль,ДополнительныеПараметры, ИмяПроцедурыОбработкиОшибки, МодульОбработкиОшибки",
                            ИмяПроцедуры,Модуль,ДополнительныеПараметры, ИмяПроцедурыОбработкиОшибки, МодульОбработкиОшибки);
КонецФункции    
Процедура ПоказатьВопрос(ОписаниеОповещенияОЗавершении, ТекстВопроса, Кнопки, Таймаут=0, КнопкаПоУмолчанию=Неопределено, Заголовок="", КнопкаТаймаута=Неопределено) Экспорт
    Ответ = Вопрос(ТекстВопроса,Кнопки,Таймаут,КнопкаПоУмолчанию,Заголовок,КнопкаТаймаута);
    //ОписаниеОповещения.ИмяПроцедуры(Ответ,ОписаниеОповещения.ДополнительныеПараметры)
    Попытка
        Ду("П."+ОписаниеОповещенияОЗавершении.ИмяПроцедуры+"(П1,П2)",ОписаниеОповещенияОЗавершении.Модуль,Ответ,ОписаниеОповещенияОЗавершении.ДополнительныеПараметры);
    Исключение
        Если ОписаниеОповещенияОЗавершении.ИмяПроцедурыОбработкиОшибки<>Неопределено и ОписаниеОповещенияОЗавершении.МодульОбработкиОшибки<>Неопределено Тогда
            Ду("П."+ОписаниеОповещенияОЗавершении.ИмяПроцедурыОбработкиОшибки,ОписаниеОповещенияОЗавершении.МодульОбработкиОшибки);
        Иначе
            Сообщить(ОписаниеОшибки());
        КонецЕсли;    
    КонецПопытки;    
КонецПроцедуры    

Функция Ду(Код, П=Неопределено, П1=Неопределено,  П2=Неопределено, П3=Неопределено, П4=Неопределено)  Экспорт
    Перем Р;
    Выполнить(Код);
    Возврат Р;
КонецФункции
12 vl_programmer
 
28.03.17
11:18
(11) Спасибо!!!