v8.3: Загрузка данных из exel в ТЧ

 &НаСервере

Процедура ЗаполнитьДанныеНаСервере()

	Попытка

		МассивНомерНаСайте = Новый Массив;

		Для каждого СтрокаДанных Из ЭтаФорма.ТаблицаОстатковРасчетов Цикл

			МассивНомерНаСайте.Добавить(СокрЛП(СтрокаДанных.НомерЗаказаНаСайте));

		КонецЦикла;

		Запрос = Новый Запрос;

		Запрос.Текст =

		"ВЫБРАТЬ

		|	ЗНАЧЕНИЕ(Перечисление.ТипыРасчетовСПартнерами.РасчетыСКлиентом) КАК ТипРасчетов,

		|	ЕСТЬNULL(РасчетыСКлиентами.СуммаОстаток, 0) КАК Сумма,

		|	РасчетыСКлиентами.ЗаказКлиента.Номер КАК Номер,

		|	РасчетыСКлиентами.ЗаказКлиента КАК Заказ,

		|	РасчетыСКлиентами.АналитикаУчетаПоПартнерам.Контрагент КАК Контрагент,

		|	ВЫБОР

		|		КОГДА РасчетыСКлиентами.СуммаОстаток > 0

		|			ТОГДА РасчетыСКлиентами.СуммаОстаток

		|		ИНАЧЕ 0

		|	КОНЕЦ КАК ДолгПартнера,

		|	ВЫБОР

		|		КОГДА РасчетыСКлиентами.КОплатеОстаток > 0

		|			ТОГДА РасчетыСКлиентами.КОплатеОстаток

		|		ИНАЧЕ 0

		|	КОНЕЦ КАК КОплате,

		|	РасчетыСКлиентами.ЗаказКлиента.СтатусЗаказаHybris КАК СтатусЗаказаHybris,

		|	РасчетыСКлиентами.ЗаказКлиента.НомерЗаказаНаСайте КАК НомерЗаказаНаСайте

		|ИЗ

		|	РегистрНакопления.РасчетыСКлиентами.Остатки(, ЗаказКлиента.НомерЗаказаНаСайте В (&МассивНомерНаСайте)) КАК РасчетыСКлиентами";

		

		Запрос.УстановитьПараметр("МассивНомерНаСайте", МассивНомерНаСайте);

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

		

		Строка = ЭтаФорма.ТаблицаОстатковРасчетов;	

		Пока Выборка.Следующий() Цикл

			Значение = Строка.Добавить();

			Значение.НомерЗаказаНаСайте = Выборка.НомерЗаказаНаСайте;

			Значение.СтатусЗаказа = Выборка.СтатусЗаказа;

			Значение.Контрагент = Выборка.Контрагент;

			Значение.Сумма = Выборка.Сумма;

			Значение.Заказ = Выборка.Заказ;

			Значение.ДолгПартнера = Выборка.ДолгПартнера;

			Значение.ТипРасчетов = Выборка.ТипРасчетов;

		КонецЦикла;

		

	Исключение

		Сообщение = Новый СообщениеПользователю;

		Сообщение.Текст = "Не удалось внести данные по причине" +ОписаниеОшибки();

		Сообщение.Сообщить();	

	КонецПопытки; 	

	

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