ПроверитьРегистрационныйНомерПФР (1С 8.3, 8.2)
Функция проверяет корректность строки с регистрационным номером организации в ПФР. Формат строки: xxx-xxx-xxxxxx.
Функция ПроверитьРегистрационныйНомерПФР(Знач Значение) Экспорт Номер = СокрЛП(Значение); // ххх-ххх-хххххх Части = РазложитьСтрокуВМассивПодстрок(Номер, "-"); // часть 1 ххх Часть1 = СокрЛП(Части[0]); Если СтрДлина(Часть1) <> 3 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(Часть1) Тогда Возврат Ложь; КонецЕсли; // часть 2 ххх Часть2 = СокрЛП(Части[1]); Если СтрДлина(Часть2) <> 3 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(Часть2) Тогда Возврат Ложь; КонецЕсли; // часть 3 хххххх Часть3 = СокрЛП(Части[2]); Если СтрДлина(Часть3) <> 6 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(Часть3) Тогда Возврат Ложь; КонецЕсли; Возврат Истина; КонецФункции |