ПроверитьКодыИФНС (1С 8.3, 8.2)
Функция проверяет на корректность коды налоговых инспекций, перечисленные через запятую.
Функция ПроверитьКодыИФНС(Знач Значение) Экспорт КодыИФНС = СокрЛП(Значение); МассивКодов = РазложитьСтрокуВМассивПодстрок(КодыИФНС); Для Каждого КодСтрока Из МассивКодов Цикл КодСтрока = СокрЛП(КодСтрока); Если СтрДлина(КодСтрока) <> 4 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(КодСтрока) Тогда Возврат Ложь; КонецЕсли; КонецЦикла; Возврат Истина; КонецФункции |