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

Процедура ЗаполнитьСправочнкиКодовЭСЧФ()Экспорт
	Способ1 = Ложь; //поменять на Истина если хотите
	Если Способ1 Тогда
		ФормаХодаФормированияЭСЧФ = ПолучитьОбщуюФорму("ХодВыполненияОбработкиДанных");
		стТип = "Заполнение справочника ЭСЧФ-ми";
		счКоличество = ПолучитьКоличествоДокументовДляВыгрузки(стТип);
		ФормаХодаФормированияЭСЧФ.НаименованиеОбработкиДанных = "Ждите, это долго";
		ФормаХодаФормированияЭСЧФ.КомментарийОбработкиДанных = "Ждите, это ОЧЕНЬ ОЧЕНЬ долго";
		ФормаХодаФормированияЭСЧФ.МаксимальноеЗначение = 9999999999;
		ФормаХодаФормированияЭСЧФ.Значение = 0;
		ФормаХодаФормированияЭСЧФ.Открыть();
		
		
		Справочник = Справочники.ЭСЧФ;
		НачальныйКодПоиска = 0;
		ЧислоЗнааковКода = 10;
		ВерхнийПредел = 9999999999; //   9999999999/120/24=  ~2 472 222 дней /365 = ~6 773,21 лет "GL"
		Пока НачальныйКодПоиска <= ВерхнийПредел Цикл
			ОбработкаПрерыванияПользователя();
			
			НачальныйКодПоиска = НачальныйКодПоиска	+ 1;
			СтрокаНачальныйКод = Строка(НачальныйКодПоиска);
			ДлиннаКода = СтрДлина(СтрокаНачальныйКод);
			ДопЗнакиКода = "0";
			КонечныйКодПоиска = "";
			
			Пока ДлиннаКода <> 10 Цикл
				
				ДлиннаКода = ДлиннаКода + 1;
				КонечныйКодПоиска = КонечныйКодПоиска + "0";
				
			КонецЦикла;
			КонечныйКодПоиска = КонечныйКодПоиска + НачальныйКодПоиска;
			
			ФормаХодаФормированияЭСЧФ.КомментарийЗначения = КонечныйКодПоиска+" из "+Строка(ВерхнийПредел);
			ФормаХодаФормированияЭСЧФ.Значение = ФормаХодаФормированияЭСЧФ.Значение + 1;
			
			КодПоиска = КонечныйКодПоиска;
			ЕстьКод = Справочник.НайтиПоКоду(КодПоиска);
			
			Если НЕ ЗначениеЗаполнено(ЕстьКод) Тогда
				///Проверим статус
				НомерУНП     = Организация.ИНН;
				НомерЭСЧФ 	 = Строка(НомерУНП)+"-"+Строка(Формат(ДатаСовершенияОперации,"ДФ=гггг"))+"-"+Строка(Формат(КодПоиска,"ЧГ="));
				Попытка
					ВыполнитьСоединение();
					InvVatStatus = EVatService.GetStatus(НомерЭСЧФ);
					
					Если InvVatStatus = Неопределено Тогда
						Лог.Добавить(Строка(ТекущаяДата())+" | Ошибка статуса: TimeOut" ,,,БиблиотекаКартинок.СообщениеОшибка);
						Продолжить;
					КонецЕсли;
					
					res = InvVatStatus.Verify();
					if  InvVatStatus <>  0 then
						Статус=InvVatStatus.Status;
					else
						
						Лог.Добавить(Строка(ТекущаяДата())+" | Ошибка статуса: " +InvVatStatus.LastError,,,БиблиотекаКартинок.СообщениеОшибка);
						Продолжить
					endif;
					Если Статус = "NOT_FOUND" Тогда
						Продолжить
					Иначе
						НовыйОбъект = Справочник.СоздатьЭлемент();
						НовыйОбъект.Код = КодПоиска;
						НовыйОбъект.Статус = Статус;
						НовыйОбъект.Наименование = НомерЭСЧФ;
						НовыйОбъект.Записать();
					КонецЕсли;
				Исключение
					
				КонецПопытки;
			КонецЕсли;
			
		КонецЦикла;
		ФормаХодаФормированияЭСЧФ.Закрыть();
	Иначе
		СписокИсключения = Новый СписокЗначений;
		СписокИсключения.Добавить(Справочники.Контрагенты.НайтиПоКоду("000000044"));
		
		Запрос = Новый Запрос;
		Запрос.Текст =
		"ВЫБРАТЬ РАЗРЕШЕННЫЕ
		|	РеализацияТоваровУслуг.Ссылка КАК Ссылка,
		|	РеализацияТоваровУслуг.Контрагент,
		|	РеализацияТоваровУслуг.ПунктРазгрузкиКонтрагента КАК ПунктРазгрузкиКонтрагента,
		|	РеализацияТоваровУслуг.ДоговорКонтрагента,
		|	РеализацияТоваровУслуг.Контрагент.ИНН КАК УНП,
		|	РеализацияТоваровУслуг.СуммаДокумента,
		|	РеализацияТоваровУслуг.НомерНакладной КАК БСО,
		|	РеализацияТоваровУслугТЧЭСЧФ.Статус,
		|	РеализацияТоваровУслугТЧЭСЧФ.Тип,
		|	РеализацияТоваровУслугТЧЭСЧФ.НомерЭСЧФ,
		|	ТЧ.Сумма,
		|	ТЧ.СуммаНДС,
		|	РеализацияТоваровУслугТЧЭСЧФ.ДатаПодписи,
		|	РеализацияТоваровУслугТЧЭСЧФ.СуммаБезНДС,
		|	РеализацияТоваровУслугТЧЭСЧФ.СуммаНДС КАК СуммаНДСЭСЧФ,
		|	РеализацияТоваровУслугТЧЭСЧФ.СуммаСНДС КАК СуммаЭСЧФ,
		|	РеализацияТоваровУслуг.Дата КАК Дата,
		|	РеализацияТоваровУслуг.ДокументПроверен
		|ИЗ
		|	Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
		|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг.ТЧЭСЧФ КАК РеализацияТоваровУслугТЧЭСЧФ
		|		ПО (РеализацияТоваровУслугТЧЭСЧФ.Ссылка = РеализацияТоваровУслуг.Ссылка)
		|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
		|			СУММА(РеализацияТоваровУслугТовары.Сумма) КАК Сумма,
		|			СУММА(РеализацияТоваровУслугТовары.СуммаНДС) КАК СуммаНДС,
		|			СУММА(1) КАК ID,
		|			РеализацияТоваровУслугТовары.Ссылка КАК Ссылка
		|		ИЗ
		|			Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
		|		
		|		СГРУППИРОВАТЬ ПО
		|			РеализацияТоваровУслугТовары.Ссылка
		|		
		|		ОБЪЕДИНИТЬ ВСЕ
		|		
		|		ВЫБРАТЬ
		|			СУММА(РеализацияТоваровУслугУслуги.Сумма),
		|			СУММА(РеализацияТоваровУслугУслуги.СуммаНДС),
		|			СУММА(2),
		|			РеализацияТоваровУслугУслуги.Ссылка
		|		ИЗ
		|			Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
		|		
		|		СГРУППИРОВАТЬ ПО
		|			РеализацияТоваровУслугУслуги.Ссылка) КАК ТЧ
		|		ПО РеализацияТоваровУслуг.Ссылка = ТЧ.Ссылка
		|ГДЕ
		|	РеализацияТоваровУслуг.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
		|	И РеализацияТоваровУслуг.Проведен
		|	И НЕ РеализацияТоваровУслуг.ПометкаУдаления
		|	И НЕ РеализацияТоваровУслуг.Контрагент В ИЕРАРХИИ (&ГруппаИскл)
		|
		|СГРУППИРОВАТЬ ПО
		|	РеализацияТоваровУслуг.Ссылка,
		|	РеализацияТоваровУслуг.Контрагент,
		|	РеализацияТоваровУслуг.ПунктРазгрузкиКонтрагента,
		|	РеализацияТоваровУслуг.ДоговорКонтрагента,
		|	РеализацияТоваровУслуг.Контрагент.ИНН,
		|	РеализацияТоваровУслуг.СуммаДокумента,
		|	РеализацияТоваровУслуг.НомерНакладной,
		|	РеализацияТоваровУслугТЧЭСЧФ.Статус,
		|	РеализацияТоваровУслугТЧЭСЧФ.Тип,
		|	РеализацияТоваровУслугТЧЭСЧФ.НомерЭСЧФ,
		|	ТЧ.Сумма,
		|	ТЧ.СуммаНДС,
		|	РеализацияТоваровУслугТЧЭСЧФ.ДатаПодписи,
		|	РеализацияТоваровУслугТЧЭСЧФ.СуммаБезНДС,
		|	РеализацияТоваровУслугТЧЭСЧФ.СуммаНДС,
		|	РеализацияТоваровУслугТЧЭСЧФ.СуммаСНДС,
		|	РеализацияТоваровУслуг.Дата
		|
		|ОБЪЕДИНИТЬ ВСЕ
		|
		|ВЫБРАТЬ
		|	ВозвратТоваровПоставщику.Ссылка,
		|	ВозвратТоваровПоставщику.Контрагент,
		|	ВозвратТоваровПоставщику.ПунктРазгрузки,
		|	ВозвратТоваровПоставщику.ДоговорКонтрагента,
		|	ВозвратТоваровПоставщику.Контрагент.ИНН,
		|	ВозвратТоваровПоставщику.СуммаДокумента,
		|	ВозвратТоваровПоставщику.НомерНакладной,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.Статус,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.Тип,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.НомерЭСЧФ,
		|	ТЧ.Сумма,
		|	ТЧ.СуммаНДС,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.ДатаПодписи,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.СуммаБезНДС,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.СуммаНДС,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.СуммаСНДС,
		|	ВозвратТоваровПоставщику.Дата,
		|	ВозвратТоваровПоставщику.ДокументПроверен
		|ИЗ
		|	Документ.ВозвратТоваровПоставщику КАК ВозвратТоваровПоставщику
		|		ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ
		|			СУММА(1) КАК ID,
		|			СУММА(ВозвратТоваровПоставщикуТовары.Сумма) КАК Сумма,
		|			СУММА(ВозвратТоваровПоставщикуТовары.СуммаНДС) КАК СуммаНДС,
		|			ВозвратТоваровПоставщикуТовары.Ссылка КАК Ссылка
		|		ИЗ
		|			Документ.ВозвратТоваровПоставщику.Товары КАК ВозвратТоваровПоставщикуТовары
		|		ГДЕ
		|			НЕ ВозвратТоваровПоставщикуТовары.СчетУчетаБУ В ИЕРАРХИИ (&СчетВозвратаИск)
		|		
		|		СГРУППИРОВАТЬ ПО
		|			ВозвратТоваровПоставщикуТовары.Ссылка
		|		
		|		ОБЪЕДИНИТЬ ВСЕ
		|		
		|		ВЫБРАТЬ
		|			СУММА(2),
		|			СУММА(ВозвратТоваровПоставщикуВозвратнаяТара.Сумма),
		|			СУММА(0),
		|			ВозвратТоваровПоставщикуВозвратнаяТара.Ссылка
		|		ИЗ
		|			Документ.ВозвратТоваровПоставщику.ВозвратнаяТара КАК ВозвратТоваровПоставщикуВозвратнаяТара
		|		
		|		СГРУППИРОВАТЬ ПО
		|			ВозвратТоваровПоставщикуВозвратнаяТара.Ссылка) КАК ТЧ
		|		ПО ВозвратТоваровПоставщику.Ссылка = ТЧ.Ссылка
		|		ЛЕВОЕ СОЕДИНЕНИЕ Документ.ВозвратТоваровПоставщику.ТЧЭСЧФ КАК ВозвратТоваровПоставщикуТЧЭСЧФ
		|		ПО ВозвратТоваровПоставщику.Ссылка = ВозвратТоваровПоставщикуТЧЭСЧФ.Ссылка
		|ГДЕ
		|	ВозвратТоваровПоставщику.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
		|	И ВозвратТоваровПоставщику.Проведен
		|	И НЕ ВозвратТоваровПоставщику.ПометкаУдаления
		|	И НЕ ВозвратТоваровПоставщику.Контрагент В ИЕРАРХИИ (&ГруппаИскл)
		|	И ТЧ.ID >= 1
		|
		|СГРУППИРОВАТЬ ПО
		|	ВозвратТоваровПоставщику.Ссылка,
		|	ВозвратТоваровПоставщику.Контрагент,
		|	ВозвратТоваровПоставщику.ПунктРазгрузки,
		|	ВозвратТоваровПоставщику.ДоговорКонтрагента,
		|	ВозвратТоваровПоставщику.Контрагент.ИНН,
		|	ВозвратТоваровПоставщику.СуммаДокумента,
		|	ВозвратТоваровПоставщику.НомерНакладной,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.Статус,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.Тип,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.НомерЭСЧФ,
		|	ТЧ.Сумма,
		|	ТЧ.СуммаНДС,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.ДатаПодписи,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.СуммаБезНДС,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.СуммаНДС,
		|	ВозвратТоваровПоставщикуТЧЭСЧФ.СуммаСНДС,
		|	ВозвратТоваровПоставщику.Дата
		|
		|УПОРЯДОЧИТЬ ПО
		|	Дата";
		Запрос.УстановитьПараметр("ГруппаИскл",СписокИсключения);	
		Запрос.УстановитьПараметр("ДатаНачала",НачалоДня(ДатаСовершенияОперации));
		Запрос.УстановитьПараметр("ДатаОкончания",КонецДня(ДатаСовершенияОперацииПо));
		Запрос.УстановитьПараметр("СчетВозвратаИск",Планысчетов.Хозрасчетный.НайтиПоКоду("002"));
		Результат = Запрос.Выполнить().Выгрузить();
		
		Справочник = Справочники.ЭСЧФ;
		Для Каждого Стр из Результат Цикл
			КодПоиска = Прав(Стр.НомерЭСЧФ,10);
			ЕстьКод = Справочник.НайтиПоКоду(КодПоиска);
			Если НЕ ЗначениеЗаполнено(ЕстьКод)Тогда
				НовыйОбъект = Справочник.СоздатьЭлемент();
				НовыйОбъект.Код = КодПоиска;
				//НовыйОбъект.Владелец = Стр.Ссылка;
				НовыйОбъект.ДокументРегистратор = Стр.Ссылка;
				НовыйОбъект.Контрагент = Стр.Контрагент;
				НовыйОбъект.СуммаБезНДС = Стр.СуммаБезНДС;
				НовыйОбъект.СуммаНДС = Стр.СуммаНДС;
				НовыйОбъект.СуммаСНДС = Стр.СуммаЭСЧФ;
				НовыйОбъект.ТипЭСЧФ = Стр.Тип;
				НовыйОбъект.Статус = Стр.Статус;
				НовыйОбъект.Наименование = Стр.НомерЭСЧФ;
				НовыйОбъект.Записать();	
			КонецЕсли;
		КонецЦикла;
		
	КонецЕсли;