запроса%табличное » Поиск

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

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

Для УП:

Код 1C v 8.3

 

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

&НаКлиенте

....

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

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

Код 1C v 8.3

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

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



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

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

КонецЦикла;





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

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

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

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

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

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

КонецЦикла;

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

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

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

КонецЕсли;

КонецЦикла;



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



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

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

Код 1C v 8.х

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

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

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



// Подробнее

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

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

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

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

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

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

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

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

	КонецЦикла;

КонецЕсли;



//или

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

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

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

		

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

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

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

				Возврат;

			КонецЕсли;

		КонецЕсли;

		

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

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

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

			КонецЕсли;

	КонецЦикла;

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

Как выгрузить результат запроса с отбором по регистратору в табличную часть, табличное поле?

Выгрузка результата запроса в табличную часть документа, справочника

Код 1C v 8.х

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

// Получим суммы начисленные документами НачислениеЗарплатыРаботникамОрганизаций в ПериодВзаиморасчетов

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

|ВЫБРАТЬ

|	ВзаиморасчетыСРаботникамиОрганизаций.Период,

|	ВзаиморасчетыСРаботникамиОрганизаций.Регистратор,

|	ВзаиморасчетыСРаботникамиОрганизаций.Физлицо,

|	ВзаиморасчетыСРаботникамиОрганизаций.Организация,

|	ВзаиморасчетыСРаботникамиОрганизаций.ПериодВзаиморасчетов,

|	ВзаиморасчетыСРаботникамиОрганизаций.СуммаВзаиморасчетов

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций

|ГДЕ

|	ВзаиморасчетыСРаботникамиОрганизаций.ПериодВзаиморасчетов = &ПериодВзаиморасчетов

|	И ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.НачислениеЗарплатыРаботникамОрганизаций

|";

Запрос.УстановитьПараметр("ПериодВзаиморасчетов",Дата("01.09.2009 0:00:00"));

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

// Выгрузим Результат Запроса в ТЗ

ТзВрем = Результат.Выгрузить();

Для Каждого стр Из Тзврем Цикл

       // ТаблЧастьДокРезультат - Табличная часть на форме, создаем в ней новую строку

	НовСтр=ТаблЧастьДокРезультат.Добавить();

        // Заполняем значения новой строки значениями  результат запроса:

	ЗаполнитьЗначенияСвойств(новстр, стр);

        //ВНИМАНИЕ!!! ЗаполнитьЗначенияСвойств( - работает только когда имена колонок табл части и результата запроса совпадают!

        //Если не совпадают, то обычным способом:

        НовСтр.Дата = стр.ПериодВзаиморасчетов;

        НовСтр.Сумма = стр.СуммаВзаиморасчетов;

КонецЦикла;

Выгрузка результата запроса в табличное поле с типом данных Таблица Значений

Код 1C v 8.х

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

// Получим суммы начисленные документами НачислениеЗарплатыРаботникамОрганизаций в ПериодВзаиморасчетов

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

|ВЫБРАТЬ

|	ВзаиморасчетыСРаботникамиОрганизаций.Период,

|	ВзаиморасчетыСРаботникамиОрганизаций.Регистратор,

|	ВзаиморасчетыСРаботникамиОрганизаций.Физлицо,

|	ВзаиморасчетыСРаботникамиОрганизаций.Организация,

|	ВзаиморасчетыСРаботникамиОрганизаций.ПериодВзаиморасчетов,

|	ВзаиморасчетыСРаботникамиОрганизаций.СуммаВзаиморасчетов

|ИЗ

|	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций КАК ВзаиморасчетыСРаботникамиОрганизаций

|ГДЕ

|	ВзаиморасчетыСРаботникамиОрганизаций.ПериодВзаиморасчетов = &ПериодВзаиморасчетов

|	И ВзаиморасчетыСРаботникамиОрганизаций.Регистратор ССЫЛКА Документ.НачислениеЗарплатыРаботникамОрганизаций

|";

Запрос.УстановитьПараметр("ПериодВзаиморасчетов",Дата("01.09.2009 0:00:00"));

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

// Выгрузим Результат Запроса в ТЗ

ТзВрем = Результат.Выгрузить();

// ТЗРезультат - это Табличное Поле на Форме, присваиваем ему таблицу значений 

ТЗРезультат=ТзВрем;

//Создаем колонки в табличном поле, после чего видим в поле тз

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

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

Функция ЗНАЧЕНИЕ

Функция ЗНАЧЕНИЕ - Позволяет использовать прямо в текстах запроса предопределенные в конфигураторе данные. (т.е. позволяет избавиться от необходимости передавать их параметрами к запросу). Использование предопределенных данных конфигурации

Например:
можно было бы написать в запросе:

Код 1C v 8.х

 | ВзаиморасчетыСПокупателямиОстатки.Проект = &ПроектыПустаяСсылка

а потом передать в запрос параметр:

Код 1C v 8.х

 Запрос.УстановитьПараметр("ПроектыПустаяСсылка", Справочник.Проекты.ПустаяСсылка());

А при помощи ЗНАЧЕНИЕ будет так:

Код 1C v 8.х

 | ВзаиморасчетыСПокупателямиОстатки.Проект = ЗНАЧЕНИЕ(Справочник.Проекты.ПустаяСсылка)

Примеры использования:

Код 1C v 8.х

 //ПРИМЕР 1 (Получение паспортный данных сотрудника)

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

Запрос.УстановитьПараметр("Физлицо", Физлицо);

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

"ВЫБРАТЬ РАЗРЕШЕННЫЕ

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументВид,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументСерия,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументНомер,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументДатаВыдачи,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументКемВыдан,

|             ПаспортныеДанныеФизЛицСрезПоследних.ДокументКодПодразделения,

|             "","" + АдресаФактические.Поле1 + "","" + АдресаФактические.Поле2 + "","" + АдресаФактические.Поле3 + "","" + АдресаФактические.Поле4 + "","" + АдресаФактические.Поле5 + "","" + АдресаФактические.Поле6 + "","" + АдресаФактические.Поле7 + "","" + АдресаФактические.Поле8 + "","" + АдресаФактические.Поле9 КАК АдресФактический,

|             "","" + АдресПрописки.Поле1 + "","" + АдресПрописки.Поле2 + "","" + АдресПрописки.Поле3 + "","" + АдресПрописки.Поле4 + "","" + АдресПрописки.Поле5 + "","" + АдресПрописки.Поле6 + "","" + АдресПрописки.Поле7 + "","" + АдресПрописки.Поле8 + "","" + АдресПрописки.Поле9 КАК АдресПоПрописке,

|             ДомашниеТелефоны.Поле3 КАК ТелефонДомашний

|ИЗ

|             Справочник.ФизическиеЛица КАК ФизическиеЛица

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ПаспортныеДанныеФизЛиц.СрезПоследних(, ФизЛицо = &ФизЛицо) КАК ПаспортныеДанныеФизЛицСрезПоследних

|             ПО ФизическиеЛица.Ссылка = ПаспортныеДанныеФизЛицСрезПоследних.ФизЛицо

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК ДомашниеТелефоны

|             ПО ФизическиеЛица.Ссылка = ДомашниеТелефоны.Объект

|             И (ДомашниеТелефоны.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ТелефонФизЛица))

|             И (ДомашниеТелефоны.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Телефон))

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресаФактические

|             ПО ФизическиеЛица.Ссылка = АдресаФактические.Объект

|             И (АдресаФактические.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ФактАдресФизЛица))

|             И (АдресаФактические.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес))

|             ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КонтактнаяИнформация КАК АдресПрописки

|             ПО (ФизическиеЛица.Ссылка = АдресаФактические.Объект)

|             И (АдресаФактические.Вид = ЗНАЧЕНИЕ(Справочник.ВидыКонтактнойИнформации.ЮрАдресФизЛица))

|             И (АдресаФактические.Тип = ЗНАЧЕНИЕ(Перечисление.ТипыКонтактнойИнформации.Адрес))

|ГДЕ

|             ФизическиеЛица.Ссылка = &Физлицо";

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

Если Выборка.Следующий() Тогда

    АдресПроживания = Выборка.АдресФактический;

    УдостоверениеЛичности = Строка(Выборка.ДокументВид)+"; "+Выборка.ДокументСерия+"; "+Выборка.ДокументНомер+"; "+Формат(Выборка.ДокументДатаВыдачи,"ДЛФ=D");

    Телефон = Выборка.ТелефонДомашний; 

КонецЕсли;



//ПРИМЕР 2

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

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

|    ВидыНоменклатуры.Ссылка как ссылка,

|    ВидыНоменклатуры.Порядок

|ИЗ

|    Перечисление.ВидыНоменклатуры КАК ВидыНоменклатуры

|ГДЕ

|    ВидыНоменклатуры.Ссылка = Значение(Перечисление.ВидыНоменклатуры.Услуга) ";



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

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

ЭлементыФормы.ТабличноеПоле1.Значение = ТЗ;

ЭлементыФормы.ТабличноеПоле1.СоздатьКолонки();

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

Использование Предопределенных данных конфигурации Категория: Запросы

Внешние обработки, печатные формы, обработки по заполнению табличных частей Категория: Внешние печатные формы, отчеты и обработк�…

Выгрузить результат запроса в Дерево Значений, Дерево Значений на форме

Код 1C v 8.х

 // Вывод результата запроса в Табличное Поле - Дерево значений

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

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

             |	ВзаиморасчетыСРаботникамиОрганизацийОстатки.ПериодВзаиморасчетов КАК ЗаМесяц,

             |	ВзаиморасчетыСРаботникамиОрганизацийОстатки.Физлицо КАК Работник,

             |	ВзаиморасчетыСРаботникамиОрганизацийОстатки.СуммаВзаиморасчетовОстаток КАК Остаток

             |ИЗ

             |	РегистрНакопления.ВзаиморасчетыСРаботникамиОрганизаций.Остатки(, ) КАК ВзаиморасчетыСРаботникамиОрганизацийОстатки

             |ГДЕ

             |	ВзаиморасчетыСРаботникамиОрганизацийОстатки.СуммаВзаиморасчетовОстаток < 5

             |	И ВзаиморасчетыСРаботникамиОрганизацийОстатки.ПериодВзаиморасчетов > ДАТАВРЕМЯ(2011, 1, 1, 0, 0, 0)

             |

             |УПОРЯДОЧИТЬ ПО

             |	ЗаМесяц,

             |	Работник

             |ИТОГИ

             |	СУММА(Остаток)

             |ПО

             |	ЗаМесяц

             |АВТОУПОРЯДОЧИВАНИЕ";     		

//Выгрузим результат запроса в Табличное Поле с Типом значения Дерево значений			 

ЭлементыФормы.Долги.Значение = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

//Создадим колонки для вывода данных

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

//Настроим ширину колонок табличного поля

ЭлементыФормы.Долги.Колонки.Работник.Ширина=23;

ЭлементыФормы.Долги.Колонки.ЗаМесяц.Ширина=17;

ЭлементыФормы.Долги.Колонки.Остаток.Ширина=11;

еще пример:

Код 1C v 8.х

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

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

    "ВЫБРАТЬ

    |    Номенклатура.Наименование КАК Наименование

    |ИЗ

    |    Справочник.Номенклатура КАК Номенклатура

    |

    |УПОРЯДОЧИТЬ ПО

    |    Наименование ИЕРАРХИЯ";

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

Дерево = Результат.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

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

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

Как вывести в справочник в виде дерева значений Категория: Работа с Деревом Значений

Заполнение табличного поля данными таблицы значений, полученной из SQL - Запроса

Код 1C v 8.х

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

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

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



ТабличноеПоле.Очистить();

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

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



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



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

Соединение = Новый COMОбъект("ADODB.Connection");

НаборЗаписей = Новый ComObject("ADODB.RecordSet");

Команда = Новый COMОбъект("ADODB.Command");



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

 Соединение.Open();

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

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



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

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



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

//Состояние ("Заполнение временной таблицы...");



Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

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

 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);

  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



//Состояние ("Закрываем соединение с SQL...");

Соединение.Close();

Возврат Таблица;

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

Код 1C v 8.х

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +

    (";UID=") + Login + ("; PWD=") + Password + (";");

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

  Подключение.Open(СтрокаСоединения);

  Состояние ("Подключение к серверу SQL...");

 Исключение

  Сообщить(ОписаниеОшибки());

  Возврат Ложь;

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

 

СоединениеSQL = Новый COMObject("ADODB.Command");

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



Состояние ("Выполнение запроса SQL...");

ЗаписиSQL = Новый ComObject("ADODB.RecordSet");



ЗаписиSQL = СоединениеSQL.Execute();



 

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

Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 Сообщить(ИмяСтолбца);

КонецЦикла;





Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы

 

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

 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

 КонецЦикла;

       

 ЗаписиSQL.MoveNext();

 

КонецЦикла;



Состояние ("Закрываем соединение с SQL...");

   ЗаписиSQL.Close();

Подключение.Close();



Возврат Таблица;   // Возврат таблицы значений запроса SQL



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

Категория: COM-объекты, WMI, WSH