v8: Создать запрос

 [Процедура ААА()



ТЗ=Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("ДокументПоступления");

ТЗ.Колонки.Добавить("ВидЦенности");

ТЗ.Колонки.Добавить("МХ");

ТЗ.Колонки.Добавить("Контрагент");

ТЗ.Колонки.Добавить("Договор");

ТЗ.Колонки.Добавить("Валюта");

ТЗ.Колонки.Добавить("СтавкаНДС");

ТЗ.Колонки.Добавить("Сумма");

ТЗ.Колонки.Добавить("НДС");

//ЭлементыФормы.ТЗ.СоздатьКолонки();

	

Для каждого ТЧ Из Метаданные().ТабличныеЧасти Цикл

ИмяТЧ = ТЧ.Имя;  

Для каждого СтрокаТЧ Из ЭтотОбъект[ИмяТЧ] Цикл

			

	НВС=ТЗ.Добавить();   // Добавляем в Таблицу значений

	НВС.ДокументПоступления = Ссылка;

	НВС.МХ                  = МХкуда;

	НВС.Контрагент          = Контрагент;

	НВС.Договор             = Договор;

	НВС.Валюта              = Валюта;

	НВС.СтавкаНДС           = СтрокаТЧ.СтавкаНДС;

	НВС.Сумма               = СтрокаТЧ.Сумма;

	НВС.НДС                 = СтрокаТЧ.НДС;

			

Если ИмяТЧ = "Товары" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.Товар;

ИначеЕсли ИмяТЧ = "Материалы" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.Материал;

ИначеЕсли ИмяТЧ = "БСО" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.Материал;

ИначеЕсли ИмяТЧ = "Комиссия" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.НаКомиссии;

ИначеЕсли ИмяТЧ = "Тара" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.Тара;

ИначеЕсли ИмяТЧ = "Оборудование" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.Оборудование;

ИначеЕсли ИмяТЧ = "ОС" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.ОС;

ИначеЕсли ИмяТЧ = "НМА" Тогда

НВС.ВидЦенности         = Перечисления.ТМЦ_Статус.НМА;

КонецЕсли;

			

КонецЦикла;

КонецЦикла;



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