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

Функция Правило1()  
	Если (ТипЭСЧФ = Перечисление.ТипЭСЧФ.ADDITIONAL) или (ТипЭСЧФ = Перечисление.ТипЭСЧФ.FIXED) Тогда
		Если ПустоеЗначение(КЭСЧФ) = 1 Тогда   
			Сообщить("Правило 1. Поле <К ЭСЧФ> должно быть заполнено."); 
			Возврат 0;
		КонецЕсли;   
		Если КЭСЧФ.ДатаДок > ДатаДок Тогда
			Сообщить("Правило 1.1. Дата документа."); 
			Возврат 0;
		КонецЕсли;   
	КонецЕсли;
	Возврат 1;
КонецФункции    

Функция Правило2()   
	Если ПустоеЗначение(КЭСЧФ) = 0 Тогда
		Если (КЭСЧФ.ТипЭСЧФ <> Перечисление.ТипЭСЧФ.ORIGINAL) и (КЭСЧФ.ТипЭСЧФ <> Перечисление.ТипЭСЧФ.FIXED) Тогда
	        Сообщить("Правило 2. Тип К ЭСЧФ."); 
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции 

Функция Правило3()  
	Возврат 1;
КонецФункции     

Функция Правило4()  
	Возврат 1;
КонецФункции   

Функция Правило5()  
	//Если (ТипЭСЧФ = Перечисление.ТипЭСЧФ.FIXED) Тогда
	//	Если ПустоеЗначение(КЭСЧФ) = 0 Тогда  
	//		Если КЭСЧФ.ДатаДок <= ДатаДок Тогда         
	//			Возврат 1;
	//		КонецЕсли;
	//	КонецЕсли; 
	//	Сообщить("Правило 5. Дата документа!");
	//	Возврат 0;
	//КонецЕсли;
	Возврат 1;
КонецФункции   

Функция Правило6()  
	Возврат 1;
КонецФункции     

Функция Правило7()   
	Если СтатусПоставщика = Перечисление.СтатусПоставщика.FOREIGN_ORGANIZATION Тогда        
		Если (Поставщик_ВзаимозависимоеЛицо = 1) или (Получатель_СделакаСРезидентомОффшорнойЗоны = 1) или
		(Получатель_ОрганизацияВключенаВПереченьКрупныхПлательщиков = 1) или (Получатель_СделкаСТоварамиПоПеречню = 1) Тогда
			Сообщить("Правило 7. Поля 6.1 , 6.2, 6.3, 6.4!");	
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции   

Функция Правило8()  
	Если (Получатель_ВзаимозависимоеЛицо = 1) или (Поставщик_ВзаимозависимоеЛицо = 1) Тогда   
		фл8=0;
		ВыбратьСтроки();
		Пока ПолучитьСтроку() = 1 Цикл  
			Если ПустоеЗначение(Товар) = 0 Тогда    
				Если (ПустоеЗначение(Товар.ТНВЭД) = 1) и (ПустоеЗначение(Товар.ОКЭД) = 1) Тогда
					фл8=1;
					Прервать;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
		Если фл8 = 1 Тогда
			Сообщить("Правило 8. Взаимозависимое лицо. Поля ТН ВЭД ЕАЭС, ОКЭД!");  
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции    

Функция Правило9()  
	Если СтатусПоставщика = Перечисление.СтатусПоставщика.FOREIGN_ORGANIZATION Тогда  
		Если ПустоеЗначение(Контрагент) = 0 Тогда
			Если ПустоеЗначение(Контрагент.СтранаРегистрации) = 0 Тогда   
				СтранаРегистрацииПоставщик = СокрЛП(Контрагент.СтранаРегистрации.Код);
				Если СтранаРегистрацииПоставщик = "112" Тогда
					Сообщить("Правило 9. Код страны поставщика!"); 
					Возврат 0;         
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции   

Функция Правило10()  
	Возврат 1;
КонецФункции  

Функция Правило11()  
	Возврат 1;
КонецФункции  

Функция Правило12()  
	Если ПустоеЗначение(Контрагент) = 0 Тогда        
		Если СокрЛП(Контрагент.ИНН) = СокрЛП(Константа.ИННОрганизации) Тогда     
			Сообщить("Правило 12. Номер УНП!"); 
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции    

Функция Правило13()  
	Возврат 1;
КонецФункции   

Функция Правило14()  
	фл14 = ПустоеЗначение(Поставщик_НомерЗаявления) + ПустоеЗначение(Поставщик_ДатаЗаявления);
	Если фл14 = 1 Тогда
		Сообщить("Правило 14. Поля 14 должны быть заполнены.");   
		Возврат 0;
	КонецЕсли;
	фл14 = ПустоеЗначение(Получатель_НомерЗаявления) + ПустоеЗначение(Получатель_ДатаЗаявления);
	Если фл14 = 1 Тогда
		Сообщить("Правило 14. Поля 21 должны быть заполнены.");   
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции    

Функция Правило15()     
	Возврат 1;
КонецФункции

Функция Правило16()           
	стрКомитент_НомерЭСЧФ = СокрЛП(СтрЗаменить(Комитент_НомерЭСЧФ, "-", ""));
	Если ПустоеЗначение(стрКомитент_НомерЭСЧФ) = 0 Тогда
		Если (СтатусПоставщика = Перечисление.СтатусПоставщика.COMMISSIONAIRE) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда     
			Возврат 1;
		КонецЕсли;    
		Сообщить("Правило 16. Поле 11 недоступно для заполнения"); 
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции
                  
Функция Правило17()       
	Если (СтатусПоставщика = Перечисление.СтатусПоставщика.COMMISSIONAIRE) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда   
		стрКомитент_НомерЭСЧФ = СокрЛП(СтрЗаменить(Комитент_НомерЭСЧФ, "-", ""));
		Если ПустоеЗначение(стрКомитент_НомерЭСЧФ) = 0 Тогда
			Возврат 1;
		КонецЕсли;    
		Сообщить("Правило 17. Поле 11 обязательно для заполнения"); 
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции     

Функция Правило18()  
	Возврат 1;
КонецФункции

Функция Правило19()       
	Если ((СтатусПоставщика = Перечисление.СтатусПоставщика.COMMISSIONAIRE) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSIGNOR)) или
	((СтатусПоставщика = Перечисление.СтатусПоставщика.AGENT) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) Тогда   
		стрПродавец_НомерЭСЧФ = СокрЛП(СтрЗаменить(Продавец_НомерЭСЧФ, "-", ""));
		Если ПустоеЗначение(стрПродавец_НомерЭСЧФ) = 0 Тогда // 12
			Возврат 1;
		КонецЕсли;
		Если ПустоеЗначение(Поставщик_РегистрационныйНомерВыпускаТоваров) = 0 Тогда // 13
			Возврат 1;
		КонецЕсли;
		Если ПустоеЗначение(Поставщик_НомерЗаявления) = 0 Тогда // 14
			Возврат 1;
		КонецЕсли;
		Сообщить("Правило 19. Поле 12, 13 или 14 обязательно для заполнения"); 
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции     

Функция Правило20()  
	стрПродавец_НомерЭСЧФ = СокрЛП(СтрЗаменить(Продавец_НомерЭСЧФ, "-", ""));
	Если ПустоеЗначение(стрПродавец_НомерЭСЧФ) = 0 Тогда // 12       
		Если ((СтатусПоставщика = Перечисление.СтатусПоставщика.COMMISSIONAIRE) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSIGNOR)) или
		((СтатусПоставщика = Перечисление.СтатусПоставщика.AGENT) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) или     
		((СтатусПоставщика = Перечисление.СтатусПоставщика.DEVELOPER) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) Тогда  
			Возврат 1;
		КонецЕсли;	
		Сообщить("Правило 20. Поле 12 недоступно для заполнения."); 
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции

Функция Правило22()
	Если ПустоеЗначение(Поставщик_РегистрационныйНомерВыпускаТоваров) = 0 Тогда // 13  
		Если ((СтатусПоставщика = Перечисление.СтатусПоставщика.COMMISSIONAIRE) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSIGNOR)) или
		((СтатусПоставщика = Перечисление.СтатусПоставщика.AGENT) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) или     
		((СтатусПоставщика = Перечисление.СтатусПоставщика.DEVELOPER) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) Тогда  
			Возврат 1;
		КонецЕсли;	    
		Если ((СтатусПоставщика = Перечисление.СтатусПоставщика.SELLER) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER)) Тогда  
			Если ПустоеЗначение(Контрагент) = 0 Тогда
				Если ПустоеЗначение(Контрагент.СтранаРегистрации) = 0 Тогда
					КодСтраныПолучателя = СокрЛП(Контрагент.СтранаРегистрации.Код); 
					Если (СпКодыЕАЭС.Принадлежит(КодСтраныПолучателя) = 0) и (КодСтраныПолучателя <> "112") Тогда  
						Возврат 1;  
					ИначеЕсли СпКодыЕАЭС.Принадлежит(КодСтраныПолучателя) = 1 Тогда
						Если ПустоеЗначение(Реквизиты_Грузополучатель) = 0 Тогда    
							Если ПустоеЗначение(Реквизиты_Грузополучатель.СтранаРегистрации) = 0 Тогда
								КодСтраныГрузополучатель = СокрЛП(Реквизиты_Грузополучатель.СтранаРегистрации.Код); 
								Если СпКодыЕАЭС.Принадлежит(КодСтраныГрузополучатель) = 0 Тогда  
									Возврат 1;  
								КонецЕсли;
							КонецЕсли;   
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;  
		КонецЕсли;  
		Сообщить("Правило 22. Поле 13 недоступно для заполнения."); 
		Возврат 0;
	КонецЕсли; 
	Возврат 1;
КонецФункции                       
               
Функция Правило22_1()
	фл22 = 0;
	Если (СтатусПоставщика = Перечисление.СтатусПоставщика.SELLER) и 
	(СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда  
		фл22 = 1;
	КонецЕсли;
	Если ПустоеЗначение(Контрагент) = 0 Тогда
		Если ПустоеЗначение(Контрагент.СтранаРегистрации) = 0 Тогда
			КодСтраныПолучателя = СокрЛП(Контрагент.СтранаРегистрации.Код); 
			Если КодСтраныПолучателя <> "112" Тогда
				фл22 = фл22 + 1;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;  
	ВыбратьСтроки();
	Пока ПолучитьСтроку() = 1 Цикл
		Если (ПустоеЗначение(Товар) = 0) и (ПустоеЗначение(СтавкаНДС) = 0) Тогда    
			Если Метаданные.Справочник(Товар.Вид()).Реквизит("ТНВЭД").Выбран() = 1 Тогда
				Если (ПустоеЗначение(Товар.ТНВЭД) = 0) и (Найти(СтавкаНДС.Ставка, "%") > 0) Тогда  
					фл22 = фл22 + 1;
					Прервать;
				КонецЕсли; 
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	Если фл22 = 3 Тогда 
		Если (ПустоеЗначение(Поставщик_РегистрационныйНомерВыпускаТоваров) = 1) и 
		((ПустоеЗначение(Поставщик_НомерЗаявления) = 1) или (ПустоеЗначение(Поставщик_НомерЗаявления) = 1)) Тогда      
			Сообщить("Правило 22.1. Поля 13 или 14.");  
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции  

Функция Правило23()  
	Если (ПустоеЗначение(Поставщик_РегистрационныйНомерВыпускаТоваров) = 0) и
	(СтатусПоставщика = Перечисление.СтатусПоставщика.SELLER) и 
	(СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда 
		Если (ПустоеЗначение(Поставщик_ДатаВыпускаТоваров) = 1) или (ПустоеЗначение(ДатаРазрешенияНаУбытиеТоваров) = 1) Тогда 
			Сообщить("Правило 23. Поля <13.1. Дата выпуска товаров> и <13.2. Дата разрешения на убытие товаров> должны быть заполнены.");
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции  
  
Функция Правило23_1()  
	Если (ПустоеЗначение(Поставщик_ДатаВыпускаТоваров) = 0) и (ПустоеЗначение(ДатаРазрешенияНаУбытиеТоваров) = 0) Тогда
		Если (ПустоеЗначение(Поставщик_РегистрационныйНомерВыпускаТоваров) = 1) Тогда 
			Сообщить("Правило 23.1. Поле 13");
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции  

Функция Правило25()  
	Если (ПустоеЗначение(Поставщик_НомерЗаявления) = 0) или                        //14
	(ПустоеЗначение(Поставщик_ДатаЗаявления) = 0) Тогда 
		Если ((СтатусПоставщика = Перечисление.СтатусПоставщика.COMMISSIONAIRE) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSIGNOR)) или 
		((СтатусПоставщика = Перечисление.СтатусПоставщика.AGENT) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) или 
		((СтатусПоставщика = Перечисление.СтатусПоставщика.DEVELOPER) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) Тогда   
			Возврат 1;
		КонецЕсли;              
		Если (СтатусПоставщика = Перечисление.СтатусПоставщика.SELLER) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда 
			Если ПустоеЗначение(Контрагент) = 0 Тогда           
				Если ПустоеЗначение(Контрагент.СтранаРегистрации) = 0 Тогда 
					КодСтраныПолучателя = СокрЛП(Контрагент.СтранаРегистрации.Код); 
					Если СпКодыЕАЭС.Принадлежит(КодСтраныПолучателя) = 1 Тогда  
						Возврат 1; 
					ИначеЕсли КодСтраныПолучателя <> "112" Тогда
						Если ПустоеЗначение(Реквизиты_Грузополучатель) = 0 Тогда   
							Если ПустоеЗначение(Реквизиты_Грузополучатель.СтранаРегистрации) = 0 Тогда 
								КодСтраныПолучателя = СокрЛП(Реквизиты_Грузополучатель.СтранаРегистрации.Код); 
								Если СпКодыЕАЭС.Принадлежит(КодСтраныПолучателя) = 1 Тогда  
									Возврат 1;
								КонецЕсли;
							КонецЕсли;
						КонецЕсли;  
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;  
			Сообщить("Правило 25. Код страны получателя");
		КонецЕсли;    
		Сообщить("Правило 25. Поле 14 недоступно для заполнения");
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции     
           
Функция Правило26()    
	Если СтатусПоставщика <> Перечисление.СтатусПоставщика.FOREIGN_ORGANIZATION Тогда        
		Если (Получатель_ВзаимозависимоеЛицо = 1) или (Получатель_ОрганизацияВключенаВПереченьКрупныхПлательщиков = 1) или
		(Получатель_СделакаСРезидентомОффшорнойЗоны = 1) или (Получатель_СделкаСТоварамиПоПеречню = 1) Тогда
			Сообщить("Правило 26. Поля 15.1 , 15.2, 15.3, 15.4!");	
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции     
              
Функция Правило27()  
	Возврат 1;
КонецФункции  

Функция Правило29()  
	Если (СтатусПоставщика = Перечисление.СтатусПоставщика.FOREIGN_ORGANIZATION) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда     
		Если ПустоеЗначение(Получатель_РегистрационныйНомерВыпускаТоваров) = 0 Тогда     // 20  
			Возврат 1;
		КонецЕсли;
		Если (ПустоеЗначение(Получатель_НомерЗаявления) = 0) и                    //21
			(ПустоеЗначение(Получатель_ДатаЗаявления) = 0) и
			(ПустоеЗначение(Получатель_ДатаВвозаТоваров) = 0) Тогда
		    Возврат 1;
		КонецЕсли;
		Сообщить("Правило 29. Поле 20 или 21 обязательно для заполнения.");
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции     

Функция Правило30()  
	Если ПустоеЗначение(Получатель_РегистрационныйНомерВыпускаТоваров) = 0 Тогда // 20   
		Если ПустоеЗначение(Контрагент) = 0 Тогда   
			Если ПустоеЗначение(Контрагент.СтранаРегистрации) = 1 Тогда
				Возврат 1;
			Иначе
				КодСтраныПоставщика = СокрЛП(Контрагент.СтранаРегистрации.Код); 
				Если (СпКодыЕАЭС.Принадлежит(КодСтраныПоставщика) = 0) и (КодСтраныПоставщика <> "112") Тогда  
					Возврат 1;
				ИначеЕсли (СпКодыЕАЭС.Принадлежит(КодСтраныПоставщика) = 1) и (КодСтраныПоставщика <> "112") Тогда  
					Если ПустоеЗначение(Реквизиты_Грузоотправитель) = 0 Тогда     
						Если ПустоеЗначение(Реквизиты_Грузоотправитель.СтранаРегистрации) = 0 Тогда    
							КодСтраныГрузоотправитель = СокрЛП(Реквизиты_Грузоотправитель.СтранаРегистрации.Код); 
							Если (СпКодыЕАЭС.Принадлежит(КодСтраныГрузоотправитель) = 0) и (КодСтраныГрузоотправитель <> "112") Тогда  
								Возврат 1;
							КонецЕсли;
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;       
		Сообщить("Правило 30. Поле 20 недоступно для заполнения.");
		Возврат 0;
	КонецЕсли;  
	Возврат 1;
КонецФункции     

Функция Правило31() 
	Если (ПустоеЗначение(Получатель_НомерЗаявления) = 0) или (ПустоеЗначение(Получатель_ДатаЗаявления) = 0) или
	(ПустоеЗначение(Получатель_ДатаВвозаТоваров) = 0) Тогда                // 21, 21.1
		Если ПустоеЗначение(Контрагент) = 0 Тогда   
			Если ПустоеЗначение(Контрагент.СтранаРегистрации) = 1 Тогда     
				Возврат 1;
			Иначе    
				КодСтраныПоставщик = СокрЛП(Контрагент.СтранаРегистрации.Код); 
				Если СпКодыЕАЭС.Принадлежит(КодСтраныПоставщик) = 1 Тогда  
					Возврат 1;   
				ИначеЕсли (СпКодыЕАЭС.Принадлежит(КодСтраныПоставщик) = 0) и (КодСтраныПоставщик <> "112") Тогда
					Если ПустоеЗначение(Реквизиты_Грузоотправитель) = 0 Тогда     
						Если ПустоеЗначение(Реквизиты_Грузоотправитель.СтранаРегистрации) = 0 Тогда    
							КодСтраныГрузоотправитель = СокрЛП(Реквизиты_Грузоотправитель.СтранаРегистрации.Код); 
							Если СпКодыЕАЭС.Принадлежит(КодСтраныГрузоотправитель) = 1 Тогда  
								Возврат 1;
							КонецЕсли;
						КонецЕсли;
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;   
		Сообщить("Правило 31. Поля 21, 21.1 недоступны для заполнения.");
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции     

Функция Правило32() 
	Если (ПустоеЗначение(Получатель_НомерЗаявления) = 0) или (ПустоеЗначение(Получатель_ДатаЗаявления) = 0) Тогда      //21.1
		Если ПустоеЗначение(Получатель_ДатаВвозаТоваров) = 1 Тогда  
			Сообщить("Правило 32. Поле 21.1 обязательно для заполнения.");
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции     

Функция Правило33()  
	Если ПустоеЗначение(УсловияПоставки_ВидДокумента) = 0 Тогда
		Если УсловияПоставки_ВидДокумента.Код = "603" Тогда   
			Если (флПоставщикЯвляетсяГрузоотправителем = 1) и (флПолучательЯвляетсяГрузополучателем = 1) Тогда
				Возврат 1;  
			Иначе
				Если (ПустоеЗначение(Реквизиты_Грузоотправитель) = 0) и (флПоставщикЯвляетсяГрузоотправителем = 0) Тогда
					Если ПустоеЗначение(Реквизиты_Грузоотправитель.ИНН) = 1 Тогда
						Сообщить("Правило 33. УНП Грузоотправителя!");      
						Возврат 0;
					ИначеЕсли ПустоеЗначение(Реквизиты_Грузоотправитель.ЮридическийАдрес) = 1 Тогда
						Сообщить("Правило 33. Юридический адрес Грузоотправителя!");     
						Возврат 0;
					КонецЕсли;   
				КонецЕсли;
				Если (ПустоеЗначение(Реквизиты_Грузополучатель) = 0) и (флПолучательЯвляетсяГрузополучателем = 0) Тогда
					Если ПустоеЗначение(Реквизиты_Грузополучатель.ИНН) = 1 Тогда
						Сообщить("Правило 33. УНП Грузополучателя!");      
						Возврат 0;
					ИначеЕсли ПустоеЗначение(Реквизиты_Грузополучатель.ЮридическийАдрес) = 1 Тогда
						Сообщить("Правило 33. Юридический адрес Грузополучателя!");     
						Возврат 0;
					КонецЕсли;  
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции     

Функция Правило35()  
	Если (флПоставщикЯвляетсяГрузоотправителем = 1) или (флПолучательЯвляетсяГрузополучателем = 1) или
	(ПустоеЗначение(Реквизиты_Грузоотправитель) = 0) или (ПустоеЗначение(Реквизиты_Грузополучатель) = 0) Тогда 
		Если ((ПустоеЗначение(УсловияПоставки_НомерДоговора) = 0) и (ПустоеЗначение(УсловияПоставки_ДатаДоговора) = 1)) или
		((ПустоеЗначение(УсловияПоставки_НомерДоговора) = 1) и (ПустоеЗначение(УсловияПоставки_ДатаДоговора) = 0)) Тогда
			Сообщить("Правило 35. Поле 30. № и дата договора.");         
			Возврат 0;
		КонецЕсли;
		Если (ПустоеЗначение(УсловияПоставки_ВидДокумента) = 1) или (ПустоеЗначение(УсловияПоставки_ДатаДокумента) = 1) или 
		(ПустоеЗначение(УсловияПоставки_Номер) = 1) Тогда
			Сообщить("Правило 35. Поле 30. условия поставки.");         
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции    

Функция Правило37()  
	фл37=  ПустоеЗначение(УсловияПоставки_Номер) + ПустоеЗначение(УсловияПоставки_ДатаДокумента);  // ПустоеЗначение(УсловияПоставки_КодТипаБланка)      ?
	Если (фл37 <> 0) и (фл37 <> 2) Тогда    
		Сообщить("Правило 37. Поле 30 док-ты подтв.-ие поставку");  
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции      

Функция Правило38()  
	Если ПустоеЗначение(УсловияПоставки_ВидДокумента) = 0 Тогда
		Если (УсловияПоставки_ВидДокумента.Код = "602") или (УсловияПоставки_ВидДокумента.Код = "603") Тогда    
			Если (ПустоеЗначение(УсловияПоставки_КодТипаБланка) = 1) или 
			(ПустоеЗначение(УсловияПоставки_ДатаДокумента) = 1) или 
			(ПустоеЗначение(УсловияПоставки_Серия) = 1) или 
			(ПустоеЗначение(УсловияПоставки_Номер) = 1) Тогда
				Сообщить("Правило 38. Поле 30 док-ты подтверждающие поставку обязательны для заполнения");
				Возврат 0;
			КонецЕсли;
		КонецЕсли;  
	КонецЕсли;  
	Возврат 1;
КонецФункции    

Функция Правило41() 
	Если (СтатусПоставщика = Перечисление.СтатусПоставщика.FOREIGN_ORGANIZATION) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда     
		ВыбратьСтроки();
		Пока ПолучитьСтроку() = 1 Цикл
			Если (ПустоеЗначение(Товар) = 0) и (ПустоеЗначение(СтавкаНДС) = 0) Тогда
				Если СтавкаНДС.Ставка = 10 Тогда
					Если ПустоеЗначение(Товар.ТНВЭД) = 1 Тогда
						Сообщить("Правило 41. Код ТН ВЭД ЕАЭС обязателен для заполнения."); 
						Возврат 0;
						Прервать;   
					//ИначеЕсли СтрДлина(СокрЛП(Товар.ТНВЭД)) < 10 Тогда
					//	Сообщить("Правило 41. Код ТН ВЭД ЕАЭС д.б. 10-значным."); 
					//	Возврат 0;
					//	Прервать;   
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;   
	КонецЕсли;
	Возврат 1;
КонецФункции      

Функция Правило44() 
	фл44=0;
	Если ((ПустоеЗначение(Поставщик_РегистрационныйНомерВыпускаТоваров) = 0) или // 13
	(ПустоеЗначение(Поставщик_НомерЗаявления) = 0)) и //14 
	 (((СтатусПоставщика = Перечисление.СтатусПоставщика.SELLER) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER)) или
	  ((СтатусПоставщика = Перечисление.СтатусПоставщика.AGENT) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER)) или
	  ((СтатусПоставщика = Перечисление.СтатусПоставщика.DEVELOPER) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CONSUMER))) Тогда        
	    ВыбратьСтроки();
		Пока ПолучитьСтроку() = 1 Цикл
	    	Если ПустоеЗначение(Товар) = 0 Тогда   
				Если ПустоеЗначение(Товар.ТНВЭД) = 1 Тогда
					Сообщить("Правило 44. Код ТН ВЭД ЕАЭС обязателен для заполнения. Номенклатура - "+Товар); 
					фл44=1;
					Прервать; 
				ИначеЕсли СтрДлина(СокрЛП(Товар.ТНВЭД)) < 4 Тогда
					Сообщить("Правило 44. Код ТН ВЭД ЕАЭС должен быть от 4 до 10. Номенклатура - "+Товар); 
					фл44=1;
					Прервать; 
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
	КонецЕсли; 
	Если фл44=1 Тогда
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции     
               
Функция Правило46() 
	фл46=0;
	ВыбратьСтроки();
	Пока ПолучитьСтроку() = 1 Цикл  
		Если Цена < 0 Тогда
			фл46 = 1;
			Прервать;
		КонецЕсли;
	КонецЦикла;  
	Если фл46 = 1 Тогда
		Сообщить("Правило 46. Цена не может быть отрицательной!"); 
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции   

Функция Правило48()     
	фл48=0;
	ВыбратьСтроки();
	Пока ПолучитьСтроку() = 1 Цикл  
		Если ПустоеЗначение(СтавкаНДС) = 0 Тогда   
			Если (СтавкаНДС.Ставка = 0) и (НДС <> 0) Тогда
				фл48=1;
				Прервать;				
			КонецЕсли;
		КонецЕсли;
	КонецЦикла;
	Если фл48=1 Тогда
		Сообщить("Правило 48. Поле НДС сумма д.б. нулевым!"); 
		Возврат 0;
	КонецЕсли;
	Возврат 1;
КонецФункции 

Функция Правило52() 
	Если (СтатусПоставщика = Перечисление.СтатусПоставщика.FOREIGN_ORGANIZATION) и (СтатусПолучателя = Перечисление.СтатусПолучателя.CUSTOMER) Тогда        
		фл52 = 0;
		ВыбратьСтроки();
		Пока ПолучитьСтроку() = 1 Цикл
	    	Если ДополнительныеДанные <> Перечисление.ТипДополнительныхДанных.IMPORT_VAT Тогда   
				фл52 = 1;
				Прервать;
			КонецЕсли;
		КонецЦикла;   
		Если фл52 = 1 Тогда
			Сообщить("Правило 52. Тип дополнительных данных д. б. ""Ввозной НДС"".");         
			Возврат 0;
		КонецЕсли;
	КонецЕсли;
	Возврат 1;
КонецФункции     
  
Функция Правило53()  
	Если (СтатусПоставщика <> Перечисление.СтатусПоставщика.FOREIGN_ORGANIZATION) Тогда
		фл53=0;
		ВыбратьСтроки();
		Пока ПолучитьСтроку() = 1 Цикл
			Если ПустоеЗначение(СтавкаНДС) = 0 Тогда 
				Если (СтавкаНДС.Ставка = 0) и (Найти(СокрЛП(СтавкаНДС.Наименование), "%") = 0) Тогда 
					Если (ПустоеЗначение(ДополнительныеДанные) = 1) Тогда     
						фл53 = 1;
						Прервать;  
					ИначеЕсли ДополнительныеДанные = Перечисление.ТипДополнительныхДанных.IMPORT_VAT Тогда
						фл53 = 1;
						Прервать;  
					КонецЕсли; 
				КонецЕсли; 
			КонецЕсли;
		КонецЦикла;
		Если фл53 = 1 Тогда
			Сообщить("Правило 53. 6 Раздел 12 Дополнительные данные.");
			Возврат 0;
		КонецЕсли;
	Иначе
		фл53=0;
		ВыбратьСтроки();
		Пока ПолучитьСтроку() = 1 Цикл
			Если ПустоеЗначение(СтавкаНДС) = 0 Тогда 
				Если (СтавкаНДС.Ставка = 0) и (Найти(СокрЛП(СтавкаНДС.Наименование), "%") = 0) Тогда 
					Если (ПустоеЗначение(ДополнительныеДанные) = 1) Тогда     
						фл53 = 1;
						Прервать;  
					ИначеЕсли ДополнительныеДанные <> Перечисление.ТипДополнительныхДанных.VAT_EXEMPTION Тогда
						фл53 = 1;
						Прервать;  
					КонецЕсли; 
				КонецЕсли; 
			КонецЕсли;
		КонецЦикла; 
		Если фл53 = 1 Тогда
			Сообщить("Правило 53.1. 6 Раздел 12 Дополнительные данные.");
			Возврат 0;
		КонецЕсли;
	КонецЕсли;  
	Возврат 1;
КонецФункции   

Функция Правило54()  
	Если (ТипЭСЧФ = Перечисление.ТипЭСЧФ.ORIGINAL) или (ТипЭСЧФ = Перечисление.ТипЭСЧФ.FIXED) Тогда    
		Если (Итог("Количество") < 0) или (Итог("Сумма") < 0) или (Итог("НДС") < 0) или (Итог("Всего") < 0) Тогда  
			Сообщить("Правило 54. Количество, стоимость, НДС, всего - не должны быть отрицательными.");
			Возврат 0;
		КонецЕсли;	
	КонецЕсли;
	Возврат 1;
КонецФункции 

Процедура ПроверкаКонтрагентаНаЛиквидацию() Экспорт
	
	Хост = "www.portal.nalog.gov.by";
	
	Запрос = Новый Запрос;
	Запрос.Текст =
	"ВЫБРАТЬ
	|	Контрагенты.ИНН КАК УНП
	|	Контрагенты.Ссылка КАК Контрагент
	|ИЗ
	|	Справочник.Контрагенты КАК Контрагенты
	|ГДЕ
	|	НЕ Контрагенты.ИНН = """"
	|	И НЕ Контрагенты.ЭтоГруппа
	|	И НЕ Контрагенты.ПометкаУдаления
	|	И Контрагенты.РезидентРБ
	|
	|УПОРЯДОЧИТЬ ПО
	|	УНП,
	|	Контрагент
	|АВТОУПОРЯДОЧИВАНИЕ";
	ВыборкаКонтрагенты = Запрос.Выполнить().Выбрать();

	Пока ВыборкаКонтрагенты.Следующий() Цикл
		УНП = ВыборкаКонтрагенты.УНП;
		Контрагент = ВыборкаКонтрагенты.Контрагент;
		Ресурс = "grp/getData?unp="+СокрЛП(УНП); 
		
		Соединение = Новый HTTPСоединение(Хост);
		Заголовки = Новый Соответствие;
		Заголовки.Вставить("host", Хост); 
		Запрос = Новый HTTPЗапрос(Ресурс, Заголовки); 
		
		Ответ = Неопределено;
		Попытка
			Ответ = Соединение.Получить(Запрос);		
		Исключение
			Продолжить;
		КонецПопытки;	
		
		СведенияXML = Неопределено;
		Попытка
			ЧтениеXML = Новый ЧтениеXML;
			ЧтениеXML.УстановитьСтроку(Ответ.ПолучитьТелоКакСтроку());
			СведенияXML = ФабрикаXDTO.ПрочитатьXML(ЧтениеXML);
		Исключение
			Продолжить;
		КонецПопытки;
		Попытка
			Если ТипЗнч(СведенияXML) = Тип("ОбъектXDTO") Тогда
				Попытка
					Статус = СведенияXML.ROW.VKODS;
				Исключение
					Статус = СведенияXML.ROW[0].VKODS;
				КонецПопытки;
			Иначе
				Продолжить;
			КонецЕсли;
		Исключение
			Сообщить("Ошибка: "+Строка(Контрагент)+" "+ УНП)
		КонецПопытки;
		Если СокрЛП(Статус) = "Ликвидирован" Тогда
			Сообщить(Строка(Контрагент)+" "+Статус)	
		Иначе
			Продолжить
		КонецЕсли;
	КонецЦикла;
Конецпроцедуры

Хост = "www.portal.nalog.gov.by";