построительзапроса » Поиск

Результаты по ключевому слову: построительзапроса

Как преобразовать MXL файл в Таблицу Значений? Категория: Табличный документ

Табличная часть ~ Как получить массив строк по условию (отбору)?

Для УП:

Код 1C v 8.3

 

// Отбор на форме

&НаКлиенте

....

ФМ=Новый ФиксированнаяСтруктура("КлючСвязи",Элементы.ДанныеБезКоррекции.ТекущиеДанные.КлючСвязи);

Элементы.СписокПодразделений.ОтборСтрок=ФМ;

Код 1C v 8.3

 //Функция получает записи табличной части согласно установленному отбору

Функция ПолучитьЗаписиСогласноОтбору(ТабличноеПолеИсточник)



ОтборСтрок = ТабличноеПолеИсточник.ОтборСтрок;

ПостроительЗапроса = Новый ПостроительЗапроса;

ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличноеПолеИсточник.Значение); 

Для Каждого ЭлементОтбора Из ОтборСтрок Цикл     

Если ЭлементОтбора.Использование Тогда

НовыйОтбор = ПостроительЗапроса.Отбор.Добавить(ЭлементОтбора.Имя);        

НовыйОтбор.Использование = Истина;         

НовыйОтбор.ВидСравнения = ЭлементОтбора.ВидСравнения;       

НовыйОтбор.ЗначениеС = ЭлементОтбора.ЗначениеС;        

НовыйОтбор.ЗначениеПо = ЭлементОтбора.ЗначениеПо;        

НовыйОтбор.Значение = ЭлементОтбора.Значение;     

КонецЕсли;

КонецЦикла;





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

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

Для Каждого Стр ИЗ Таблица Цикл

СтруктураПоиска = Новый Структура;

Для Каждого Колонка Из Таблица.Колонки Цикл

СтруктураПоиска.Вставить(Колонка.Имя, Стр[Колонка.Имя]);

КонецЦикла;

НайденыеСтроки = ТабличноеПолеИсточник.Значение.НайтиСтроки(СтруктураПоиска);

Если НайденыеСтроки.Количество() > 0 Тогда

МассивСтрок.Добавить(НайденыеСтроки[0]);

КонецЕсли;

КонецЦикла;



Возврат МассивСтрок;



КонецФункции

Для Обычных форм:

Код 1C v 8.х

 ПараметрыОтбора = Новый Структура;

	ПараметрыОтбора.Вставить("ДокСсылка", ДанныеПоШК.Объект);

	НайденныеСтроки = ПакетДокументов.НайтиСтроки(ПараметрыОтбора);



// Подробнее

СтруктураОтбора = Новый Структура("ВидДокумента, Контрагент", ПФ, ?(Контр = Неопределено, Справочники.Контрагенты.ПустаяСсылка(), Контр));

ПакетДокументов 		 = ЗадачаОбъект.ПакетДокументов;

МассивСтрок				 = ПакетДокументов.НайтиСтроки(СтруктураОтбора);

Если МассивСтрок.Количество() Тогда

	Для Каждого СтрокаМассива Из МассивСтрок Цикл

		СтрокаМассива.ДобавленоПользователем = Истина;

		СтрокаМассива.Пользователь           = ПараметрыСеанса.ТекущийПользователь;

		СтрокаМассива.ДатаВремя				 = ТекущаяДата();

	КонецЦикла;

КонецЕсли;



//или

ТЧ = ПромежуточнаяНакладная.Выгрузить();

		ТЧ.Свернуть("СхемаПродажи");

		СтрокаСПустойСП = ТЧ.НайтиСтроки(Новый Структура("СхемаПродажи", Справочники.СхемыПродаж.ПустаяСсылка()));

		

		Если ТЧ.Количество() - СтрокаСПустойСП.Количество() > 1 Тогда

			Если Вопрос("Сбросить все схемы в строках?", РежимДиалогаВопрос.ДаНет) = КодВозвратаДиалога.Нет Тогда

				НесколькоСхем = Истина;

				Возврат;

			КонецЕсли;

		КонецЕсли;

		

		Для каждого СтрокаПН из ПромежуточнаяНакладная Цикл

			Если СтрокаПН.Номенклатура.ВидНоменклатуры.ТипНоменклатуры <> Перечисления.ТипыНоменклатуры.Услуга Тогда

				СтрокаПН.СхемаПродажи = СхемаПродажи;

			КонецЕсли;

	КонецЦикла;

Категория: Работа с Формой (Диалог) и её элементами

Табличное поле ~ Как получить строки табличного поля, отобранные отбором? Категория: Список Справочника, Документов, Регистров

Запрос к Таблице Значений

Код 1C v 8.х

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

//Опишем тип создаваемой колонки

Массив = Новый Массив;

КЧ = Новый КвалификаторыЧисла(10, 2);

Массив.Добавить(Тип("Число"));

ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);

Таблица.Колонки.Добавить("КодУслуги",ОписаниеТиповЧ);



//... выборки из справочника и заполнение ТЗ

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

       НоваяСтрока = Таблица.Добавить();   

       НоваяСтрока.КодУслуги = ВыборкаСпр.Код;   

КонецЦикла;

  

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

МенеджерВТ = Новый МенеджерВременныхТаблиц;

Запрос.МенеджерВременныхТаблиц = МенеджерВТ;

// Текст запроса для построения временной таблицы

Запрос.Текст = "ВЫБРАТЬ

                  |    Таб.КодУслуги КАК Код

                  |ПОМЕСТИТЬ ВТДанные

                  |ИЗ

                  |    &Данные КАК Таб";

Запрос.УстановитьПараметр("Данные",Таблица);

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

Пример Заполнения колонки одной таблицы по колонке другой, по типу ЛЕВОЕ СОЕДИНЕНИЕ
Это удобно когда например надо заполнить колонку не одним фиксированным значением, а в зависимости от значений в других колонках

Код 1C v 8.х

 

   ТЗН1 = Новый ТаблицаЗначений;//Колонки Кол1,кол2,кол3,ИД

   ТЗН2 = Новый ТаблицаЗначений;//Колонки Кол4,кол5,кол6,ИД

 

    Запрос.УстановитьПараметр("ТЗН1",Отправления);

    Запрос.УстановитьПараметр("ТЗН2",ЛотыКСписанию);

    МВТ = Новый МенеджерВременныхТаблиц;

    Запрос.МенеджерВременныхТаблиц = МВТ;

    //Запрос 1 Помещаем ТЗН1 в МенеджерВременныхТаблиц в таблицу ТЗН1

 

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

    "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН1

    |ИЗ

    |    &ТЗН1 КАК ТЗН1";

    Запрос.Выполнить();

    //Запрос 2 Помещаем ТЗН2 в МенеджерВременныхТаблиц в таблицу ТЗН2

 

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

    "ВЫБРАТЬ

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |    ТЗН2.ИД   КАК ИД

    |ПОМЕСТИТЬ

    |    ТЗН2

    |ИЗ

    |    &ТЗН2 КАК ТЗН2";

    //Получаем результирующую таблицу

 

    Запрос.Выполнить();

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

        "ВЫБРАТЬ

    |    ТЗН1.Кол1 КАК Кол1,

    |    ТЗН1.Кол2 КАК Кол2,

    |    ТЗН1.Кол3 КАК Кол3,

    |    ТЗН1.ИД   КАК ИД,

    |    ТЗН2.Кол1 КАК Кол4,

    |    ТЗН2.Кол2 КАК Кол5,

    |    ТЗН2.Кол3 КАК Кол6,

    |ИЗ

    |    ТЗН1 КАК ТЗН1

    |   ВНУТРЕННЕЕ СОЕДИНЕНИЕ ТЗН2 КАК ТЗН2

    |   ПО ТЗН1.ИД = ТЗН2.ИД";

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

Запрос к таблице делается в 2 этапа:
Сначала она запросом помещается в МенеджерВременныхТаблиц, а затем вторым запросом к ней делается запрос!

В 8.0 к ТЗ можно работать только построителем запроса!
Примерно так:

Код 1C v 8.х

 ПостроительЗапроса = Новый ПостроительЗапроса;

    ПостроительЗапроса.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТЗ);

    

    СтрокаОтбора = ПостроительЗапроса.Отбор.Добавить("Реквизит");

    СтрокаОтбора.Значение = Истина;

    СтрокаОтбора.ВидСравнения = ВидСравнения.Равно;

    СтрокаОтбора.Использование = Истина;

        

    ПостроительЗапроса.Выполнить();

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

Как в запросе, в качестве источника данных, использовать таблицу значений?

Категория: Запросы