Может кому пригодиться..
Проверка на запрещенные символы
Вызов проверки
ЗапрещенныеСимволы = Проверить(Отказ);
Если Отказ Тогда
Сообщить("Внимание! Существуют недопустимые символы:
| " + ЗапрещенныеСимволы, СтатусСообщения.Важное);
КонецЕсли;
&НаСервере
Функция Проверить(отказ)
ВремVIN = Объект.VIN;
Результат = "";
Пока СтрДлина(ВремVIN)>0 Цикл
СимволVIN = Лев(ВремVIN, 1);
Если Найти(РазрешенныеСимволыVIN, СимволVIN)=0 Тогда
Если Найти(Результат, СимволVIN) = 0 Тогда
Результат = Результат + ?(Результат = "", "", ", ") + СимволVIN;
КонецЕсли;
Отказ = Истина;
КонецЕсли;
ВремVIN=Сред(ВремVIN,2);
КонецЦикла;
возврат результат;
КонецФункции
РазрешенныеСимволыVIN="0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ- ";
Показать