Проверить коды ИФНС в 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 |
Функция ПроверкаКодовИФНС(Знач ЗначениеИФНС) Экспорт СтрКодыИФНС = СокрЛП(ЗначениеИФНС); МассивКодовИФНС = РазложитьСтрокуВМассивПодстрок(СтрКодыИФНС); Для Каждого КодИФНССтрока Из МассивКодовИФНС Цикл КодИФНССтрока = СокрЛП(КодИФНССтрока); Если СтрДлина(КодИФНССтрока) <> 4 Тогда Возврат Ложь; КонецЕсли; Если Не ПопыткаПеревестиВЧисло(КодИФНССтрока) Тогда Возврат Ложь; КонецЕсли; КонецЦикла; Возврат Истина; КонецФункции |