Имя: Пароль:
1C
 
Конвертация данных (интерактивное окно)
0 myr4ik07
 
08.08.18
13:38
Привет.
Задача, переносить документы, только те, в которых дата источник.дата больше чем приемник.датаЗапретаРедактированияДокументов

в обработчике КД ПослеЗагрузки


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


а есть ли возможность при загрузке в приемнике интерактивное окно открывать типа Если Вопрос("Все ровно загрузить?") = Да Тогда
Загружаем

?
1 myr4ik07
 
08.08.18
13:40
если нет, то как выйти с данной ситуации, нужно пользователя справшивать, да нет, и обрабатывать ответ
2 myr4ik07
 
08.08.18
13:44
или Вопрос() = КодВозврата.Да работает в КД?
3 myr4ik07
 
08.08.18
13:52
работает http://prntscr.com/kg52b5
4 myr4ik07
 
08.08.18
13:57
ОбщаяДатаЗапретаРедактирования = ПараметрыСеанса.ГраницыЗапретаИзмененияДанных.Получить().Получить("ОбщаяДатаЗапретаРедактирования");
Если Объект.Дата <= ОбщаяДатаЗапретаРедактирования Тогда
    
    Если Вопрос("Дата документа №"+Объект.Номер+"  меньше даты запрета редактирования. Всеровно загрузить?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда
        Отказ = Истина;
    КонецЕсли;
    
КонецЕсли;
5 Михаил Козлов
 
08.08.18
14:18
Не забудьте #Если Клиент, а то регламентное задание отвалится.