ЭСЧФ Беларусь

			InvVatType = InvVatXml.Document.GetXmlNodeValue("issuance/general/documentType");
			//InvVatType = док.ТипЭСЧФ; 
			if InvVatType ="ORIGINAL" then
				xsd = "MNSATI_original.xsd";
			ElsIf  InvVatType =  "FIXED" then
				xsd = "MNSATI_fixed.xsd";
			ElsIf InvVatType =  "ADDITIONAL" then
				xsd = "MNSATI_additional.xsd";
			ElsIf InvVatType =    "ADD_NO_REFERENCE" then
				xsd = "MNSATI_add_no_reference.xsd";
			else
				сообщить("файл " + ИмяФайла+"  содержит неверный тип документа");	
				СтатусВыгрузки="Содержит неверный тип документа";
				ТаблЗнач.Статус=СтатусВыгрузки;
				ТаблЗнач.Пометка=МеткиНет;
				//СтатусВыгрузки=файл+"  содержит неверный тип документа";
				возврат;
			endif;
			
			res = InvVatXml.Document.ValidateXML(КаталогXML+"\xsd\" + xsd, 0);
			
			if res <> 0 then
				Сообщить( EVatService.LastError + " Документ "+ИмяФайла+" не соответствует требуемой схеме xsd");
				СтатусВыгрузки="Не соответствует требуемой схеме xsd";
				ТаблЗнач.Статус=СтатусВыгрузки;
				ТаблЗнач.Пометка=МеткиНет;
				НетОшибок=1;
				//возврат;
			endif;

Процедура ВыполнитьСоединение()

if read_timeout <> "" then
			res = EVatService.SetServiceProperty( "connection.readTimeout", read_timeout, 0 );
			if res <> 0 then
				ВызватьИсключение("Ошибка установки таймаута сетевого чтения: " + EVatService.LastError + " (Код 0x" + Символ(res) + ")");
			endif;    
		endif;
if   EVatAU = 0 Then
      ПриАвторизации();
endif;
Если EVatAU <> 1 Тогда
			ВызватьИсключение("Не удалось выполнить подключение к порталу. Попробуйде позже.")		
		КонецЕсли;
Если EVatService.Connect(АдресПодключенияКСлужбеПортала) = 0 Тогда
         Сообшить("Подключение успешно")
Иначе
         Сообшить("Подключение неудача")
КонецЕсли;

Процедура ПриАвторизации() Экспорт
	
	if EVatAU = 1 then
		
		ПриЗавершенииАвторизации();
		
	endif;
	
	Попытка	
		
		Если ИспользоватьПрокси Тогда
			
			Если EVatService.SetProxy(АдресПрокси,
									  ПортПрокси,
									  ПользовательПрокси,
									  ПарольПрокси,
									  ПолучитьТипПрокси(ТипПрокси)) = 0 Тогда
									  
				Сообщить("Параметры подключения через прокси-сервер успешно установлены");
								
			ИначеЕсли НЕ(ИспользоватьПрокси) Тогда		
				
			Иначе
				ОбщегоНазначения.СообщитьОбОшибке("Ошибка установки параметров прокси-сервера: " + EVatService.LastError);
			КонецЕсли;
			
		КонецЕсли;
		
	Исключение
		
		ОбщегоНазначения.СообщитьОбОшибке(ОписаниеОшибки());
		
	КонецПопытки;
	
	Попытка	
		Если ФлажокАвтроматическаяАвторизация ИЛИ (ЗначениеЗаполнено(ЛОГИН) И ЗначениеЗаполнено(ПАРОЛЬ)) Тогда		
			if EVatService.Login("PUB_KEY_ID="+ЛОГИН+";PASSWORD_KEY="+ПАРОЛЬ, 0) = 0 then
								
				EVatAU = 1;
			else
								
				EVatAU = 0;
				Возврат;
			endif;
		Иначе
			if EVatService.Login("", 0) = 0 then
							
				
				EVatAU = 1;
			else
								
				EVatAU = 0;
				Возврат;
			endif;
		КонецЕсли;
	Исключение
		Сообщить(Строка(ТекущаяДата())+" | Ошибка авторизации! ");
		
	КонецПопытки;
	
КонецПроцедуры