Каталог статей

Запрос к Табличному полю в обработке

Wed, 25 Sep 2019 11:10:58 GMT

МенВрТаб=Новый МенеджерВременныхТаблиц;
   ЗапросТекст= новый запрос;
   ЗапросТекст.МенеджерВременныхТаблиц=МенВрТаб;
   ЗапросТекст.Текст="ВЫБРАТЬ
   |Номер,
   |Сумма,
   |Местонахождения
   |ПОМЕСТИТЬ ТаблицаТелефоны
   |ИЗ
   |&ТзТелефоны КАК ТзТелефоны";
   ЗапросТекст.УстановитьПараметр("ТзТелефоны",ЭтотОбъект.Телефонны.Выгрузить());
   ЗапросТекст.Выполнить();


   Запрос= новый запрос;
   Запрос.МенеджерВременныхТаблиц=МенВрТаб;
   Запрос.Текст="ВЫБРАТЬ
   |   СУММА(ТаблицаТелефоны.Сумма) КАК Сумма,
   |   ТаблицаТелефоны.Местонахождения КАК Местонахождения
   |ИЗ
   |   ТаблицаТелефоны КАК ТаблицаТелефоны
   |
   |СГРУППИРОВАТЬ ПО
   |   ТаблицаТелефоны.Местонахождения";
   РезультатыЗапроса=Запрос.Выполнить().Выгрузить();

Вопросы пользователю ДаНетОтмена

Wed, 25 Sep 2019 10:48:13 GMT

Ответ = Вопрос("Очистить табличную часть Услуги?",
        РежимДиалогаВопрос.ДаНетОтмена,
        0, // таймаут в секундах
        КодВозвратаДиалога.Да, // (необ.) кнопка по умолчанию
        "Внимание!!!" // (необ.) заголовок
        );

       Если Ответ = КодВозвратаДиалога.Да Тогда
           НовыйДок.Услуги.Очистить();
       иначеЕсли Ответ = КодВозвратаДиалога.Отмена тогда
           Возврат;
       КонецЕсли;

Сохранить и Вост. значения пользователя во временную таблицу БД.

Wed, 06 Jun 2018 08:43:59 GMT

Сохранить или Восстановить значение

Программно добавить элемент формы обыч прил

Mon, 05 Mar 2018 13:24:25 GMT

НовыйЭлемент=ЭлементыФормы.Добавить(Тип("ПолеВвода"),"Провод_"+ИмяКартинки,истина,ЭлементыФормы.Панель1);

Запрос к таблице значений по условию с выборкай данных

Wed, 10 May 2017 13:21:52 GMT

Запрос = Новый Запрос;
   МенеджерВТ = Новый МенеджерВременныхТаблиц;
   Запрос.МенеджерВременныхТаблиц=МенеджерВТ;
   Запрос.Текст = "ВЫБРАТЬ
                   |   ТаблицаТЧСтатьиЗатрат.КодСЗ,
                   |   ТаблицаТЧСтатьиЗатрат.СтатьиЗатрат,
                   |   ТаблицаТЧСтатьиЗатрат.Сумма
                   |ПОМЕСТИТЬ МВТТЧСтатьиЗатрат
                   |ИЗ
                   |   &Данные КАК ТаблицаТЧСтатьиЗатрат
                   |ГДЕ
                   |   ТаблицаТЧСтатьиЗатрат.КодСЗ = &КодСЗ
                   |;
                   |
                   |////////////////////////////////////////////////////////////////////////////////
                   |ВЫБРАТЬ
                   |   МВТТЧСтатьиЗатрат.КодСЗ,
                   |   МВТТЧСтатьиЗатрат.СтатьиЗатрат,
                   |   МВТТЧСтатьиЗатрат.Сумма
                   |ИЗ
                   |   МВТТЧСтатьиЗатрат КАК МВТТЧСтатьиЗатрат";


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

   Запрос.УстановитьПараметр("КодСЗ", Число(Сред(СтрокаФормулы,СимволСтроки,КолСимволовЧисла)));
   РезультатЗапроса = Запрос.Выполнить();
           ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Автогруппировка строк в отчете вариант 2

Wed, 01 Mar 2017 12:27:55 GMT

    //*********************Выбираем физ лиц и делаем итоги по подразделению для группировки по нему           **************

   Запрос = Новый Запрос;
   Запрос.Текст =
   "ВЫБРАТЬ
   |   РаботникиОрганизацииСрезПоследних.ФизЛицо,
   |   РаботникиОрганизацииСрезПоследних.Подразделение КАК Подразделение,
   |   РаботникиОрганизацииСрезПоследних.Должность,
   |   РаботникиОрганизацииСрезПоследних.ДатаПриема,
   |   РаботникиОрганизацииСрезПоследних.КлассУТ
   |ИЗ
   |   РегистрСведений.РаботникиОрганизации.СрезПоследних КАК РаботникиОрганизацииСрезПоследних
   |ГДЕ
   |   РаботникиОрганизацииСрезПоследних.ПричинаИзмененияСостояния <> &Увольнение
   |   И РаботникиОрганизацииСрезПоследних.Подразделение <> &Пенсионеры
   |
   |УПОРЯДОЧИТЬ ПО
   |   РаботникиОрганизацииСрезПоследних.Подразделение.Наименование
   |ИТОГИ ПО
   |   Подразделение";

   Запрос.УстановитьПараметр( "Увольнение",Перечисления.ПричиныИзмененияСостояния.Получить(2));
   Запрос.УстановитьПараметр( "Пенсионеры",Справочники.ПодразделенияОрганизаций.НайтиПоКоду("50101"));

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

   //********************* Конец Выбираем физ лиц и делаем итоги по подразделению для группировки по нему           **************

   //***************Группировка подразделений******************
   ВыборкаИтоги = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   ТабДок.НачатьАвтогруппировкуСтрок();
   Пока ВыборкаИтоги.Следующий()Цикл
       Область = Макет.ПолучитьОбласть("Строка");

       Область.Параметры.Подразделение =ВыборкаИтоги.Подразделение;

       ТабДок.Вывести(Область, 1);
       //*************** Конец Группировка подразделений******************

       ///***********************Выбодим ФизЛицо В группе подразделений
       Выборка = ВыборкаИтоги.Выбрать(ОбходРезультатаЗапроса.Прямой);
       Пока Выборка.Следующий() Цикл
           ОбластьПодстрока = Макет.ПолучитьОбласть("Подстрока");
           ЗаполнитьЗначенияСвойств(ОбластьПодстрока.Параметры,Выборка);
           ТабДок.Вывести(ОбластьПодстрока, 2);

           //*********************Выбираем Факторы у физ лиц и выводим их **************
           Запрос = Новый Запрос;
           Запрос.Текст =
           "ВЫБРАТЬ
           |   ФизЛицоФакторыСрезПоследних.Фактор,
           |   ФизЛицоФакторыСрезПоследних.ВидЗанятости,
           |   ФизЛицоФакторыСрезПоследних.КлассУТ
           |ИЗ
           |   РегистрСведений.ФизЛицоФакторы.СрезПоследних(
           |           ,
           |           ФизЛицо = &ФизЛицо) КАК ФизЛицоФакторыСрезПоследних

           //|               И Подразделение = &Подразделение
           //|               И Должность = &Должность
           //|               И КлассУТ = &КлассУТ) КАК ФизЛицоФакторыСрезПоследних
           |ГДЕ
           |   ФизЛицоФакторыСрезПоследних.ДействуетФактор = ИСТИНА";

           //Запрос.УстановитьПараметр("Должность", Выборка.Должность);
           //Запрос.УстановитьПараметр("КлассУТ", Выборка.КлассУТ);
           //Запрос.УстановитьПараметр("Подразделение", Выборка.Подразделение);
           Запрос.УстановитьПараметр("ФизЛицо", Выборка.ФизЛицо);



           ВыборкаФакторыОсн = Запрос.Выполнить().Выбрать();
           Пока ВыборкаФакторыОсн.Следующий() Цикл
               ОбластьВредностиОсн= Макет.ПолучитьОбласть("ВредностиОсн");
               ЗаполнитьЗначенияСвойств(ОбластьВредностиОсн.Параметры,ВыборкаФакторыОсн);
               ТабДок.Вывести(ОбластьВредностиОсн, 2);

           КонецЦикла;

           //*********************Выбираем Факторы у физ лиц и выводим их **************

       КонецЦикла;
       ///*********************** КОНЕЦ Выбодим ФизЛицо В группе подразделений


   КонецЦикла;
   ТабДок.ЗакончитьАвтогруппировкуСтрок();

Автогруппировка строк в отчете вариант 1

Wed, 01 Mar 2017 12:26:50 GMT

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

   ТабДок.НачатьАвтогруппировкуСтрок();


   Пока Выборка.Следующий() Цикл
            Область = Макет.ПолучитьОбласть("Строка");
            Область.Параметры.Подразделение = Выборка.Подразделение;
             ТабДок.Вывести(Область,1);

            ОБласть = Макет.ПолучитьОбласть("Подстрока");
            ОБласть.Параметры.ФизЛицо = Выборка.ФизЛицо;
               ТабДок.Вывести(ОБласть,2);
   КонецЦикла;
   ТабДок.ЗакончитьАвтогруппировкуСтрок();

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

Thu, 23 Jul 2015 08:41:21 GMT

    Результат = Запрос.Выполнить();
   ТЗ_МЦ2=Результат.Выгрузить();
   ЭлементыФормы.ТЗ_МЦ2.СоздатьКолонки();
   ЭлементыФормы.ТЗ_МЦ2.Значение=ТЗ_МЦ2;

Отчет который выводит группы если стоит флаг и делает группы курсивом

Wed, 17 Jun 2015 09:25:22 GMT

&НаКлиенте
Процедура СформироватьПрайс(Команда)
ЗаполнитьТАБДОК (ТабДок)

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

Процедура ЗаполнитьТАБДОК (ТабДок)
табдок.Очистить();
//Выборка=Справочники.Номенклатура.Выбрать(); //выводим весь список в разнобой вместе с группами
Выборка=Справочники.Номенклатура.ВыбратьИерархически(); //выводим группы а внутри элементы

Макет = Отчеты.ПрайсЛист.ПолучитьМакет("Макет");
ОблШапка=Макет.ПолучитьОбласть("Шапка");
ОблЭлемент = Макет.ПолучитьОбласть("Элемент");
ОблЭлемент2 = Макет.ПолучитьОбласть("Элемент2");

ОблШапка.Параметры.ДатаОтчета=ТекущаяДата();
Табдок.Вывести(ОблШапка);

Пока Выборка.Следующий()Цикл
Если Выборка.ЭтоГруппа и ФлагГруппы Тогда
ОблЭлемент2.Параметры.Код=Выборка.Код;
ОблЭлемент2.Параметры.Наименование=Выборка.Наименование;
ОблЭлемент2.Параметры.цена=Выборка.ЦенаПродажи;
Табдок.Вывести(ОблЭлемент2);
иначе Если Не Выборка.ЭтоГруппа Тогда
ОблЭлемент.Параметры.Код=Выборка.Код;
ОблЭлемент.Параметры.Наименование=Выборка.Наименование;
ОблЭлемент.Параметры.цена=Выборка.ЦенаПродажи;
Табдок.Вывести(ОблЭлемент);
КонецЕсли;
КонецЕсли;

КонецЦикла;

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

Создать простой отчет без запроса. Выводим справочник номенклатура

Wed, 17 Jun 2015 09:04:16 GMT

&НаКлиенте
Процедура СформироватьПрайс(Команда)
ЗаполнитьТАБДОК (ТабДок)

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

Процедура ЗаполнитьТАБДОК (ТабДок)
табдок.Очистить();
//Выборка=Справочники.Номенклатура.Выбрать(); //выводим без груп по алфавиту
Выборка=Справочники.Номенклатура.ВыбратьИерархически(); //выводим группы
Макет = Отчеты.ПрайсЛист.ПолучитьМакет("Макет");
ОблШапка=Макет.ПолучитьОбласть("Шапка");
ОблЭлемент = Макет.ПолучитьОбласть("Элемент");
ОблШапка.Параметры.ДатаОтчета=ТекущаяДата();
Табдок.Вывести(ОблШапка);

Пока Выборка.Следующий()Цикл
ОблЭлемент.Параметры.Код=Выборка.Код;
ОблЭлемент.Параметры.Наименование=Выборка.Наименование;
ОблЭлемент.Параметры.цена=Выборка.ЦенаПродажи;
Табдок.Вывести(ОблЭлемент);
КонецЦикла;

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