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

Функция СопоставитьСДокументамиПоступления(СписокЗначений)Экспорт 
	
	СписокНомеров = Новый СписокЗначений;
	СписокНомеров.Добавить(СписокЗначений.БСО);
	
	Если СписокЗначений.ТипДокумента = "ТН-2" 
		ИЛИ СписокЗначений.ТипДокумента = "ТТН-1" Тогда
		
		СписокЗначений.БСО = КорректировкаНомера(СписокЗначений.БСО);
		СписокЗначений.БСО = СкорректироватьДлинуНомера(СписокЗначений.БСО);
		СписокНомеров.Добавить(СписокЗначений.БСО);
		
	КонецЕсли;		

	Текст =
	"ВЫБРАТЬ
	|	АвансовыйОтчет.Ссылка КАК Ссылка
	|ПОМЕСТИТЬ втОбр
	|ИЗ
	|	Документ.АвансовыйОтчет КАК АвансовыйОтчет
	|ГДЕ
	|	АвансовыйОтчет.Проведен
	|	И АвансовыйОтчет.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ГТДИмпорт.Ссылка
	|ИЗ
	|	Документ.ГТДИмпорт КАК ГТДИмпорт
	|ГДЕ
	|	ГТДИмпорт.Проведен
	|	И ГТДИмпорт.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ПринятиеКУчетуОС.Ссылка
	|ИЗ
	|	Документ.ПринятиеКУчетуОС КАК ПринятиеКУчетуОС
	|ГДЕ
	|	ПринятиеКУчетуОС.Проведен
	|	И ПринятиеКУчетуОС.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ПоступлениеНМА.Ссылка
	|ИЗ
	|	Документ.ПоступлениеНМА КАК ПоступлениеНМА
	|ГДЕ
	|	ПоступлениеНМА.Проведен
	|	И ПоступлениеНМА.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ПоступлениеТоваровУслуг.Ссылка
	|ИЗ
	|	Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг
	|ГДЕ
	|	ПоступлениеТоваровУслуг.Проведен
	|	И ПоступлениеТоваровУслуг.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ОтчетКомитентуОПродажах.Ссылка
	|ИЗ
	|	Документ.ОтчетКомитентуОПродажах КАК ОтчетКомитентуОПродажах
	|ГДЕ
	|	ОтчетКомитентуОПродажах.Проведен
	|	И ОтчетКомитентуОПродажах.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ВозвратТоваровПоставщику.Ссылка
	|ИЗ
	|	Документ.ВозвратТоваровПоставщику КАК ВозвратТоваровПоставщику
	|ГДЕ
	|	ВозвратТоваровПоставщику.Проведен
	|	И ВозвратТоваровПоставщику.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ПоступлениеДопРасходов.Ссылка
	|ИЗ
	|	Документ.ПоступлениеДопРасходов КАК ПоступлениеДопРасходов
	|ГДЕ
	|	ПоступлениеДопРасходов.Проведен
	|	И ПоступлениеДопРасходов.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ДокументРасчетовСКонтрагентом.Ссылка
	|ИЗ
	|	Документ.ДокументРасчетовСКонтрагентом КАК ДокументРасчетовСКонтрагентом
	|ГДЕ
	|	ДокументРасчетовСКонтрагентом.Проведен
	|	И ДокументРасчетовСКонтрагентом.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|
	|ОБЪЕДИНИТЬ ВСЕ
	|
	|ВЫБРАТЬ
	|	ОтчетКомиссионераОПродажах.Ссылка
	|ИЗ
	|	Документ.ОтчетКомиссионераОПродажах КАК ОтчетКомиссионераОПродажах
	|ГДЕ
	|	ОтчетКомиссионераОПродажах.Проведен
	|	И ОтчетКомиссионераОПродажах.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
	|;
	|
	|////////////////////////////////////////////////////////////­////////////////////
	|ВЫБРАТЬ
	|	втОбр.Ссылка
	|ИЗ
	|	втОбр КАК втОбр
	|ГДЕ
	|	втОбр.Ссылка.Контрагент <> ЗНАЧЕНИЕ(Справочник.Контрагенты.ПустаяСсылка)
	|	И ВЫБОР
	|			КОГДА втОбр.Ссылка ССЫЛКА Документ.ПоступлениеТоваровУслуг
	|				ТОГДА ВЫБОР
	|						КОГДА &ПустойНомер
	|							ТОГДА втОбр.Ссылка.НомерВходящегоДокумента = """"
	|						ИНАЧЕ втОбр.Ссылка.НомерВходящегоДокумента В (&НомерБСО)
	|					КОНЕЦ
	|			КОГДА втОбр.Ссылка ССЫЛКА Документ.ВозвратТоваровПоставщику
	|				ТОГДА ВЫБОР
	|						КОГДА &ПустойНомер
	|							ТОГДА втОбр.Ссылка.НомерНакладной = """"
	|						ИНАЧЕ втОбр.Ссылка.НомерНакладной В (&НомерБСО)
	|					КОНЕЦ
	|			КОГДА втОбр.Ссылка ССЫЛКА Документ.ОтчетКомитентуОПродажах
	|				ТОГДА ВЫБОР
	|						КОГДА &ПустойНомер
	|							ТОГДА втОбр.Ссылка.Номер = """"
	|						ИНАЧЕ втОбр.Ссылка.Номер В (&НомерБСО)
	|					КОНЕЦ
	|			КОГДА втОбр.Ссылка ССЫЛКА Документ.ДокументРасчетовСКонтрагентом
	|				ТОГДА ВЫБОР
	|						КОГДА &ПустойНомер
	|							ТОГДА втОбр.Ссылка.НомерВходящегоДокумента = """"
	|						ИНАЧЕ втОбр.Ссылка.НомерВходящегоДокумента В (&НомерБСО)
	|					КОНЕЦ
	|			КОГДА втОбр.Ссылка ССЫЛКА Документ.ПоступлениеНМА
	|				ТОГДА ВЫБОР
	|						КОГДА &ПустойНомер
	|							ТОГДА втОбр.Ссылка.НомерВходящегоДокумента = """"
	|						ИНАЧЕ втОбр.Ссылка.НомерВходящегоДокумента В (&НомерБСО)
	|					КОНЕЦ
	|			ИНАЧЕ ВЫБОР
	|					КОГДА &ПустойНомер
	|						ТОГДА втОбр.Ссылка.Номер = """"
	|					ИНАЧЕ втОбр.Ссылка.Номер В (&НомерБСО)
	|				КОНЕЦ
	|		КОНЕЦ
	|	И (втОбр.Ссылка.Контрагент = &Контрагент
	|			ИЛИ втОбр.Ссылка.Контрагент.ГоловнойКонтрагент = &Контрагент)";
	
	НомерБСО2 = СокрЛП(СписокЗначений.БСО);
	НомерБСО3 = СокрЛП(СписокЗначений.БСО);	
	Если СписокЗначений.ТипДокумента = "Другое" Тогда
		
		Префикс 							 		= Организация.Префикс;
		ДлинаНомераОтчетКомиссионераОПродажах		= Метаданные.Документы.ОтчетКомиссионераОПродажах.ДлинаНомера;	
		ДлинаНомераОтчетКомитентуОПродажах   		= Метаданные.Документы.ОтчетКомитентуОПродажах.ДлинаНомера;
		ДлинаПрефикса 						 		= СтрДлина(Префикс);
		ДлиннаНомера						 		= СтрДлина(СокрЛП(СписокЗначений.БСО));
		
		КоличествоДопНулейОтчетКомиссионера   		= ДлинаНомераОтчетКомиссионераОПродажах - (ДлинаПрефикса + ДлиннаНомера);
		КоличествоДопНулейОтчетКомитентуОПродажах   = ДлинаНомераОтчетКомиссионераОПродажах - (ДлинаПрефикса + ДлиннаНомера);
		
		Если НЕ ПустаяСтрока(НомерБСО2) Тогда
			i = 0;
			СтрокаНулей2 = "";
			Пока i < КоличествоДопНулейОтчетКомиссионера Цикл
				i = i + 1;
				СтрокаНулей2 = СтрокаНулей2 + "0"; 		
			КонецЦикла;
			НомерБСО2 = Префикс + СтрокаНулей2 + НомерБСО2;
			СписокНомеров.Добавить(НомерБСО2);
		КонецЕсли;
		
		Если НЕ ПустаяСтрока(НомерБСО3) Тогда
			i = 0;
			СтрокаНулей3 = "";
			Пока i < КоличествоДопНулейОтчетКомитентуОПродажах Цикл
				i = i + 1;
				СтрокаНулей3 = СтрокаНулей3 + "0";
			КонецЦикла;
			НомерБСО3 = Префикс + СтрокаНулей3 + НомерБСО3;
			СписокНомеров.Добавить(НомерБСО3);
		КонецЕсли;
				
	КонецЕсли;
	
	Запрос = Новый Запрос;
	Запрос.Текст = Текст;
	Запрос.УстановитьПараметр("ДатаНачала"		,НачалоМесяца(СписокЗначений.ДатаЭСЧФ));
	Запрос.УстановитьПараметр("ДатаОкончания"	,КонецМесяца(СписокЗначений.ДатаЭСЧФ));
	Запрос.УстановитьПараметр("Организация"		,Организация);
	Запрос.УстановитьПараметр("ПустойНомер"		,НЕ СписокНомеров.Количество());
	Запрос.УстановитьПараметр("НомерБСО"		,СписокНомеров);
	Запрос.УстановитьПараметр("Контрагент"		,СписокЗначений.Контрагент);
		
	Возврат Запрос.Выполнить().Выгрузить();
	
КонецФункции

НомерДок = ДанныеАтрибута(dom,"deliveryCondition/contract/documents/document/number"); 
ДатаДок =  ФорматДатыОбратно(ДанныеАтрибута(dom,"deliveryCondition/contract/documents/document/date"));  

ТЗ.НомерТТН=ДанныеАтрибута(dom,"deliveryCondition/contract/documents/document/number"); 

doc_docType_number=ДанныеАтрибута(dom,"deliveryCondition/contract/documents/document/number");

ТЗ.УНП = ДанныеАтрибута(dom,"provider/unp");
ТЗ.НЕомерТТН = ДанныеАтрибута(dom,"deliveryCondition/contract/documents/document/number");

Таблзнач.НомерТТН = СокрЛП(ТЗ.НомерТТН);