Проверить регистрационный номер ПФР в 1С 8.3, 8.2
Функция осуществляет проверку корректности регистрационного номера организации в ПФР. Формат № ПФР: ХХХ-ХХХ-ХХХХХХ.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
Функция ПроверитьРегистрацНомерПФР (Знач ЗначениеПФР) Экспорт НомерПФР = СокрЛП(ЗначениеПФР); // ХХХ-ХХХ-ХХХХХХ Части = РазложитьСтрокуВМассивПодстрок(НомерПФР, "-"); // ЧастьНомера 1 ХХХ ЧастьНомера1 = СокрЛП(Части[0]); Если СтрДлина(ЧастьНомера1) <> 3 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(ЧастьНомера1) Тогда Возврат Ложь; КонецЕсли; // ЧастьНомера 2 ХХХ ЧастьНомера2 = СокрЛП(Части[1]); Если СтрДлина(ЧастьНомера2) <> 3 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(ЧастьНомера2) Тогда Возврат Ложь; КонецЕсли; // ЧастьНомера 3 ХХХХХХ ЧастьНомера3 = СокрЛП(Части[2]); Если СтрДлина(ЧастьНомера3) <> 6 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(ЧастьНомера3) Тогда Возврат Ложь; КонецЕсли; Возврат Истина; КонецФункции |