Где найти Кладр с кодами Регионов #259572

В налоговой, требуют чтобы код региона стоял перед Адресов, в формате 9 запятых, скачал классфикатор с Гнивик, там нет кода региона, где такой можно найти?Подскажите

справочник кодов регионов:

Неохота вручную все это забивать. Почему Тогда налоговая требует код региона в своих отчетах, а кладр не дает

А в ОКАТО разве нет кода региона?

Мне надо чтобы вот такой был формат: Формат электронного представления адреса, используемый ФНС России, представляет собой строку из 10 элементов, разделяемых запятыми (так называемый формат "9 запятых"): <код страны>, <индекс>, <код региона>, <район>, <город>, <населенный пункт>, <улица>, <дом>, <корпус>, <квартира>. Стандартная 1с выводит такой озврат "," + СокрЛП(Индекс) +            "," + СокрЛП(Регион) +            "," + СокрЛП(Район) +            "," + СокрЛП(Город) +            "," + СокрЛП(НасПункт) +            "," + СокрЛП(Улица) +            "," + СокрЛП(Дом) +            "," + СокрЛП(Корпус) +            "," + СокрЛП(Квартира); То есть вообще как то не соответсвует, В регион выводиться Название Региона, а надо просто цифру, то есть его код. Столкнулся с проблемой сдаче Отчета по алкоголю,кто как Сдавал

В этом кладре нет кода региона

Плохо

Напиши обработку

Функция ПредставитьАдресВФорматеМНС(Адрес)    спрРегионы = СоздатьОбъект("Справочник.Регионы");    АдресСписком = глРазложить(Адрес);    Попытка        Индекс  = АдресСписком.ПолучитьЗначение;        ош=0;        Если ПустоеЗначение(Индекс)=1 Тогда            ош=1;        ИначеЕсли СтрДлина(Индекс)<>6 Тогда            ош=1;        ИначеЕсли Строка(Число(Индекс))<>Индекс Тогда            ош=1;        КонецЕсли;        Если ош=1 Тогда                          Ошибка = Ошибка +?(ПустаяСтрока(Ошибка)=0,", ","") + "индекс в адресе не соотвествует требованиям МНС";            Возврат "";        КонецЕсли;            Если спрРегионы.НайтиПоНаименованию(АдресСписком.ПолучитьЗначение) = 1 Тогда            КодРегиона    = Лев(спрРегионы.Код, 2);        Иначе            КодРегиона = "";        КонецЕсли;                Район        = АдресСписком.ПолучитьЗначение;        Город        = АдресСписком.ПолучитьЗначение;                Если ПустоеЗначение(Город) = 1 Тогда   // для городов федерального подчинения            Если ПустоеЗначение(КодРегиона) = 0 Тогда                Город    = спрРегионы.ТекущийЭлемент.Наименование;                    КонецЕсли;        КонецЕсли;        НасПункт    = АдресСписком.ПолучитьЗначение;        Улица        = АдресСписком.ПолучитьЗначение;        Дом          = АдресСписком.ПолучитьЗначение;        Корпус      = АдресСписком.ПолучитьЗначение;        Квартира    = АдресСписком.ПолучитьЗначение;        АдресМНС    =    " " + СокрЛП(Индекс) +                        "," + СокрЛП(КодРегиона) +                        "," + СокрЛП(Район) +                        "," + СокрЛП(Город) +                        "," + СокрЛП(НасПункт) +                        "," + СокрЛП(Улица) +                        "," + СокрЛП(Дом) +                        "," + СокрЛП(Корпус) +                        "," + СокрЛП(Квартира);        Возврат АдресМНС;    Исключение    КонецПопытки; КонецФункции // ПредставитьАдресВФорматеМНС