Процедура ОбновитьСписокОтправленныхЭДОДокументов(ТекСтрока=НеОпределено)

	Перем Соединение;

	ЖурналЭДО_Обработанные.Очистить();

	Если ЗначениеЗаполнено(КонтрагентЭДО) Тогда
		МассивКонтрагентов = Новый Массив;
		МассивКонтрагентов.Добавить(КонтрагентЭДО);
	Иначе
		МассивКонтрагентов = КонтрагентыЭДО.ВыгрузитьКолонку("Контрагент1С");
	КонецЕсли;

	Запрос = Новый Запрос;
	Запрос.Текст =
		"ВЫБРАТЬ
		|	ВЫРАЗИТЬ(ЗначенияСвойствОбъектов.Объект КАК Документ.РеализацияТоваровУслуг) КАК Документ1С,
		|	ЗначенияСвойствОбъектов.Значение КАК ЭДО_ID,
		|	ЗначенияСвойствОбъектов.Объект.Контрагент КАК Контрагент1С,
		|	ЗначенияСвойствОбъектов.Объект.Номер КАК НомерДокумента,
		|	ЗначенияСвойствОбъектов.Объект.Дата КАК ДатаДокумента,
		|	ЗначенияСвойствОбъектов.Объект.СуммаДокумента КАК Сумма,
		|	""УПД (ДОП)"" КАК ВидДокумента
		|ИЗ
		|	РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
		|ГДЕ
		|	ЗначенияСвойствОбъектов.Свойство.Наименование = ""ЭДО_ID""
		|	И ЗначенияСвойствОбъектов.Объект ССЫЛКА Документ.РеализацияТоваровУслуг
		|	И ЗначенияСвойствОбъектов.Объект.ПометкаУдаления = &ПометкаУдаления
		|	И ЗначенияСвойствОбъектов.Объект.Организация = &Организация
		|	И ЗначенияСвойствОбъектов.Объект.Контрагент В (&МассивКонтрагентов)
		|	И ЗначенияСвойствОбъектов.Объект.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
		|	И НЕ (ЗначенияСвойствОбъектов.Значение ЕСТЬ NULL)
		|
		|ОБЪЕДИНИТЬ ВСЕ
		|
		|ВЫБРАТЬ
		|	ВЫРАЗИТЬ(ЗначенияСвойствОбъектов.Объект КАК Документ.СчетФактураВыданный) КАК Документ1С,
		|	ЗначенияСвойствОбъектов.Значение КАК ЭДО_ID,
		|	ЗначенияСвойствОбъектов.Объект.Контрагент КАК Контрагент1С,
		|	ЗначенияСвойствОбъектов.Объект.Номер КАК НомерДокумента,
		|	ЗначенияСвойствОбъектов.Объект.Дата КАК ДатаДокумента,
		|	ЗначенияСвойствОбъектов.Объект.СуммаДокумента КАК Сумма,
		|ВЫБОР КОГДА ЗначенияСвойствОбъектов.Объект.ВидСчетаФактуры = ЗНАЧЕНИЕ(Перечисление.ВидСчетаФактурыВыставленного.Корректировочный) ТОГДА
		|   ""УКД (КСЧФДИС)""
		|	ИНАЧЕ
		|	""УПД (СЧФДОП)""
		|КОНЕЦ КАК ВидДокумента
		|ИЗ
		|	РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
		|ГДЕ
		|	ЗначенияСвойствОбъектов.Свойство.Наименование = ""ЭДО_ID""
		|	И ЗначенияСвойствОбъектов.Объект ССЫЛКА Документ.СчетФактураВыданный
		|	И ЗначенияСвойствОбъектов.Объект.ПометкаУдаления = &ПометкаУдаления
		|	И ЗначенияСвойствОбъектов.Объект.Организация = &Организация
		|	И ЗначенияСвойствОбъектов.Объект.Контрагент В (&МассивКонтрагентов)
		|	И ЗначенияСвойствОбъектов.Объект.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
		|	И НЕ (ЗначенияСвойствОбъектов.Значение ЕСТЬ NULL)
		|
		|ОБЪЕДИНИТЬ ВСЕ
		|
        |ВЫБРАТЬ
		|	ВЫРАЗИТЬ(ЗначенияСвойствОбъектов.Объект КАК Документ.КорректировкаРеализации) КАК Документ1С,
		|	ЗначенияСвойствОбъектов.Значение КАК ЭДО_ID,
		|	ЗначенияСвойствОбъектов.Объект.Контрагент КАК Контрагент1С,
		|	ЗначенияСвойствОбъектов.Объект.Номер КАК НомерДокумента,
		|	ЗначенияСвойствОбъектов.Объект.Дата КАК ДатаДокумента,
		|	ЗначенияСвойствОбъектов.Объект.СуммаДокумента КАК Сумма,
		|	""УКД (ДИС)"" КАК ВидДокумента
		|ИЗ
		|	РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
		|ГДЕ
		|	ЗначенияСвойствОбъектов.Свойство.Наименование = ""ЭДО_ID""
		|	И ЗначенияСвойствОбъектов.Объект ССЫЛКА Документ.КорректировкаРеализации
		|	И ЗначенияСвойствОбъектов.Объект.ВидОперации = ЗНАЧЕНИЕ(Перечисление.ВидыОперацийИсправленияПоступленияРеализации.СогласованноеИзменение)
		|	И ЗначенияСвойствОбъектов.Объект.ПометкаУдаления = &ПометкаУдаления
		|	И ЗначенияСвойствОбъектов.Объект.Организация = &Организация
		|	И ЗначенияСвойствОбъектов.Объект.Контрагент В (&МассивКонтрагентов)
		|	И ЗначенияСвойствОбъектов.Объект.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
		|	И НЕ (ЗначенияСвойствОбъектов.Значение ЕСТЬ NULL)";

	Запрос.УстановитьПараметр("МассивКонтрагентов", МассивКонтрагентов);
	Запрос.УстановитьПараметр("ДатаОкончания", КонецДня(КонецПериодаЭДО));
	Запрос.УстановитьПараметр("ДатаНачала", НачалоДня(НачалоПериодаЭДО));
    Запрос.УстановитьПараметр("ПометкаУдаления", Ложь);
	Запрос.УстановитьПараметр("Организация", ФильтрОрганизация);

	Результат = Запрос.Выполнить().Выгрузить();

	Если Результат.Количество()>0 Тогда
		ЭлементыФормы.ИндикаторЖурналаЭДО.Видимость = Истина;
		ЭлементыФормы.ИндикаторЖурналаЭДО.МаксимальноеЗначение = Результат.Количество();
		ЭлементыФормы.ИндикаторЖурналаЭДО.Значение = 0;
		ОбработаноКол = 0;
		//Попова 20170724 Нб Перенос функционала аналогично адаптеру для УФ
		НесколькоПроходов = Результат.Количество()>300;
		МассивСтрок       = Новый Массив;
		Для Каждого СтрокаТЗ Из Результат Цикл
			НоваяСтрока = ЖурналЭДО_Обработанные.Добавить();
			ЗаполнитьЗначенияСвойств(НоваяСтрока, СтрокаТЗ);

			ОбработаноКол = ОбработаноКол + 1;
			ЭлементыФормы.ИндикаторЖурналаЭДО.Значение = ОбработаноКол;

			МассивСтрок.Добавить(НоваяСтрока);
			Если НесколькоПроходов И МассивСтрок.Количество() = 300 Тогда
				ЗаполнитьСтатусыОтправленныхЭДО(МассивСтрок);
				МассивСтрок.Очистить();
			КонецЕсли;
		КонецЦикла;

		Если (НЕ НесколькоПроходов ИЛИ МассивСтрок.Количество() <= 300) И МассивСтрок.Количество()<>0  Тогда
			ЗаполнитьСтатусыОтправленныхЭДО(МассивСтрок);
		КонецЕсли;    //Попова 20170724 Кб

		ЗапроситьКомментарииДляОтклоненных(); //Ломакин 26.04.2018 ICDEV-1269

		ЭлементыФормы.ИндикаторЖурналаЭДО.Видимость = Ложь;

		Если ТекСтрока<>НеОпределено Тогда
			ЭлементыФормы.ЖурналЭДО_Обработанные.ТекущаяСтрока = ТекСтрока;
		КонецЕсли;

		Если ОтборЭДО_ОбработанныеАктивен Тогда
			КопияЖурналЭДО_Обработанные = ЖурналЭДО_Обработанные.Скопировать();
			ОтобратьЭДО(ЖурналЭДО_Обработанные, "Обработанные");
		КонецЕсли;
	КонецЕсли;

КонецПроцедуры