Сервисы ФНС

  ОтветыФл= Новый Соответствие;
	ОтветыФл.Вставить("0" ,"Налогоплательщик зарегистрирован в ЕГРН и имел статус действующего в указанную дату");
	ОтветыФл.Вставить("1" ,"Налогоплательщик зарегистрирован в ЕГРН, но не имел статус действующего в указанную дату");
	ОтветыФл.Вставить("2" ,"Налогоплательщик зарегистрирован в ЕГРН");
	ОтветыФл.Вставить("4" ,"Налогоплательщик с указанным ИНН не зарегистрирован в ЕГРН");
	ОтветыФл.Вставить("5" ,"Некорректный ИНН");
	ОтветыФл.Вставить("6" ,"Недопустимое количество символов ИНН");
	ОтветыФл.Вставить("8" ,"Недопустимые символы в ИНН");
	ОтветыФл.Вставить("10" ,"КПП не должен использоваться при проверке ИП");
	ОтветыФл.Вставить("11" ,"некорректный формат даты");
	ОтветыФл.Вставить("12" ,"некорректная дата (ранее 01.01.1991 или позднее текущей даты)");
	
	ОтветыЮЛ=Новый Соответствие;
	ОтветыЮЛ.Вставить("0" ,"Налогоплательщик зарегистрирован в ЕГРН и имел статус действующего в указанную дату");
	ОтветыЮЛ.Вставить("1" ,"Налогоплательщик зарегистрирован в ЕГРН, но не имел статус действующего в указанную дату");
	ОтветыЮЛ.Вставить("2" ,"Налогоплательщик зарегистрирован в ЕГРН");
	ОтветыЮЛ.Вставить("3" ,"Налогоплательщик с указанным ИНН зарегистрирован в ЕГРН, КПП не соответствует ИНН или не указан*");
	ОтветыЮЛ.Вставить("4" ,"Налогоплательщик с указанным ИНН не зарегистрирован в ЕГРН");
	ОтветыЮЛ.Вставить("5" ,"Некорректный ИНН");
	ОтветыЮЛ.Вставить("6" ,"Недопустимое количество символов ИНН");
	ОтветыЮЛ.Вставить("7" ,"Недопустимое количество символов КПП");
	ОтветыЮЛ.Вставить("8" ,"Недопустимые символы в ИНН");
	ОтветыЮЛ.Вставить("9" ,"Недопустимые символы в КПП");
	ОтветыЮЛ.Вставить("11" ,"некорректный формат даты");
	ОтветыЮЛ.Вставить("12" ,"некорректная дата (ранее 01.01.1991 или позднее текущей даты)");
	
	
	WSОпределение = Новый WSОпределения("http://npchk.nalog.ru/FNSNDSCAWS_2?wsdl");
	WSСервис= WSОпределение.Сервисы.Получить(0);
	прокси=Новый WSПрокси(WSОпределение, WSСервис.URIПространстваИмен, WSСервис.Имя, WSСервис.ТочкиПодключения[0].Имя);
	Фабрика=WSОпределение.ФабрикаXDTO;
    ПакетЗапрос=Фабрика.Пакеты.Получить("http://ws.unisoft/FNSNDSCAWS2/Request");
	ТипНП=ПакетЗапрос.Получить("NdsRequest2");
	ТипДанныеНП=ПакетЗапрос.Получить("NdsRequest2_NP");
	ТабличныйДокумент= Новый ТабличныйДокумент;
	Макет = ПолучитьМакет("Макет");
	ОбластьШапка = Макет.ПолучитьОбласть("ОбластьШапка");
	ОбластьСтрока=Макет.ПолучитьОбласть("ОбластьСтрока");
	ОбластьШапка.Параметры.ДатаОтчета=Формат(ТекущаяДата(),"ДЛФ=DD");
	ТабличныйДокумент.Вывести(ОбластьШапка);
	Выборка=Справочники.Контрагенты.Выбрать();
	Сч=0;
	Пока Выборка.Следующий() Цикл
		Если Выборка.ЭтоГруппа Тогда
			Продолжить;
		КонецЕсли;
		Сч=Сч+1;
		Если ПустаяСтрока(Выборка.ИНН) Тогда
			ОбластьСтрока.Параметры.НПП=Сч;
			ОбластьСтрока.Параметры.Контрагент=Выборка.Ссылка;
			ОбластьСтрока.Параметры.КодОтвета= -1;
			ОбластьСтрока.Параметры.ОписаниеОтвета="Отсутсвует ИНН";
			ТабличныйДокумент.Вывести(ОбластьСтрока);
			Продолжить;
		КонецЕсли;
		
		Налогоплательщики = Фабрика.Создать(ТипНП);
		Налогоплательщик		= Фабрика.Создать(ТипДанныеНП);
		Налогоплательщик.INN	= Выборка.ИНН;
	    Налогоплательщик.KPP	= Выборка.КПП;
		Налогоплательщик.DT	= Формат(ТекущаяДата(),"ДФ=dd.MM.yyyy");
		Налогоплательщики.NP.Добавить(Налогоплательщик);
		Результат=прокси.NdsRequest2(Налогоплательщики);
		Элемент = Результат.NP[0];
		КодОтвета=Элемент.State;
		Если КодОтвета=0 Тогда
			//Проверка пройдена
			Продолжить;
		КонецЕсли;	
		Если Выборка.ЮрФизЛицо = Перечисления.ЮрФизЛицо.ФизЛицо ТОгда
			ОписаниеОтвета=(ОтветыЮЛ.Получить(КодОтвета));	
		Иначе
			ОписаниеОтвета=(ОтветыФЛ.Получить(КодОтвета));
		КонецЕсли;
		ОбластьСтрока.Параметры.НПП=Сч;
		ОбластьСтрока.Параметры.Контрагент=Выборка.Ссылка;
		ОбластьСтрока.Параметры.КодОтвета=КодОтвета;
		ОбластьСтрока.Параметры.ОписаниеОтвета=ОписаниеОтвета;
		ТабличныйДокумент.Вывести(ОбластьСтрока);
	КонецЦикла;
	ТабличныйДокумент.ТолькоПросмотр = Истина;
	ТабличныйДокумент.АвтоМасштаб = Истина;
	ТабличныйДокумент.ОтображатьЗаголовки=Ложь;
	ТабличныйДокумент.ОтображатьСетку=Ложь;
	
	ТабличныйДокумент.Показать();