1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
&НаСервере Процедура ПроверитьАдресЯндексДиск(СтрокаАдреса) РегВыражениеRU = "http(s)?:\/\/disk.yandex.ru\/.*"; // https://disk.yandex.ru/ РегВыражениеCOM = "http(s)?:\/\/disk.yandex.com\/.*"; // https://disk.yandex.com/ Если СтрПодобнаПоРегулярномуВыражению(СтрокаАдреса,РегВыражениеRU) ИЛИ СтрПодобнаПоРегулярномуВыражению(СтрокаАдреса,РегВыражениеCOM) Тогда Объект.ПСИ_ОтчетПТО = ИСТИНА; Иначе ОбщегоНазначения.СообщитьПользователю("Проверьте правильность вводимой ссылки на отчет (должна вести на https://disk.yandex.ru или на https://disk.yandex.com)"); Объект.ОтчетПТО = ""; Объект.ПСИ_ОтчетПТО = ЛОЖЬ; КонецЕсли; КонецПроцедуры |