идатак » Поиск

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

Вывод результата запроса на форму УП в таблицу значений (аналог СоздатьКолонки() для УП)

при разработке на обычных формах было удобно выводить результат запроса используя метод СоздатьКолоки():

Код 1C v 8.х

 Процедура ПоискНажатие(Элемент)

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

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

"ВЫБРАТЬ

|	ДокументоОборот.Этап,

|	ДокументоОборот.Отдел,

|	ДокументоОборот.ФИО,

|	ДокументоОборот.ДатаВремя КАК Дата_Время,

|	ДокументоОборот.Документы,

|	ДокументоОборот.Примечание,

|	ДокументоОборот.Доставка

|ИЗ

|	РегистрСведений.ДокументоОборот КАК ДокументоОборот

|ГДЕ

|	ДокументоОборот.Документы ПОДОБНОДокументы

|	И ДокументоОборот.Доставка.Дата МЕЖДУДатаН ИДатаК

|

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

|	ДокументоОборот.ДатаВремя";  

Запрос.УстановитьПараметр("Документы", "%"+СокрЛП(Строка(СтрокаПоиска))+"%");

Запрос.УстановитьПараметр("ДатаК", КонПериода);

Запрос.УстановитьПараметр("ДатаН", НачПериода);

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

НайденДок = рез.Выгрузить();

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

В управляемом приложении метод СоздатьКолоки() не доступен, ниже представлена процедура, которая отображает на управляемой форме содержимое таблицы значений переданное ей в качестве параметра:

Пример формы:

Код вывода результата запроса на управляемую форму:

Код 1C v 8.2 УП

 &НаСервере

Процедура СоздатьТаблицуФормы(Знач ИмяПоляТаблицыФормы, Знач ИмяРеквизитаДанныеФормыКоллекция, Знач ТаблицаЗначений)

    

    // Если руками не создали эелемент формы Таблица, то создается программно

    Если Элементы.Найти(ИмяПоляТаблицыФормы) = Неопределено Тогда

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы, Тип("ТаблицаФормы"),);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция;

    КонецЕсли;

    

    УдаляемыеРеквизиты = Новый Массив;

    РеквизитыДляУдаления = ПолучитьРеквизиты(ИмяРеквизитаДанныеФормыКоллекция);

    Для Каждого РеквизитУдаления Из РеквизитыДляУдаления Цикл

        УдаляемыеРеквизиты.Добавить(ИмяРеквизитаДанныеФормыКоллекция+"."+РеквизитУдаления.Имя);

        // Удаляем элементы формы

        Элементы.Удалить(Элементы[ИмяПоляТаблицыФормы+РеквизитУдаления.Имя]);

    КонецЦикла;

    

    // Добавление реквизитов в таблицу формы

    ДобавляемыеРеквизиты = Новый Массив;

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

        ДобавляемыеРеквизиты.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения, ИмяРеквизитаДанныеФормыКоллекция, Колонка.Заголовок));

    КонецЦикла;

    ИзменитьРеквизиты(ДобавляемыеРеквизиты,УдаляемыеРеквизиты);

    

    

    // Добавление элементов форму

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

        ЭлементРеквизита = Элементы.Добавить(ИмяПоляТаблицыФормы + Колонка.Имя, Тип("ПолеФормы"), Элементы[ИмяПоляТаблицыФормы]);

        ЭлементРеквизита.ПутьКДанным = ИмяРеквизитаДанныеФормыКоллекция + "." + Колонка.Имя;

        ЭлементРеквизита.Вид = ВидПоляФормы.ПолеВвода;

    КонецЦикла;

    

    ЗначениеВРеквизитФормы(ТаблицаЗначений, ИмяРеквизитаДанныеФормыКоллекция);      

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





&НаСервере

Процедура ВПоискНаСервере()

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

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

	"ВЫБРАТЬ

	|	РеализацияТоваровУслугСерии.Серия КАК Серия,

	|	РеализацияТоваровУслугСерии.Ссылка КАК Реализация,

	|	РеализацияТоваровУслугСерии.Ссылка.ЗаказКлиента КАК ЗаказКлиента,

	|	РеализацияТоваровУслугСерии.Ссылка.Контрагент КАК Контрагент,

	|	РеализацияТоваровУслугСерии.Ссылка.Договор КАК Договор

	|ИЗ

	|	Документ.РеализацияТоваровУслуг.Серии КАК РеализацияТоваровУслугСерии

	|ГДЕ

	|	РеализацияТоваровУслугСерии.Серия В

	|			(ВЫБРАТЬ

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

	|			ИЗ

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

	|			ГДЕ

	|				СерииНоменклатуры.Наименование ПОДОБНОНаименование)

	|

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

	|	Серия

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

	Запрос.УстановитьПараметр("Наименование", "%"+НомерФН+"%");	

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

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

	СоздатьТаблицуФормы("ТЗ","ТЗ",ТаблицаЗапроса);

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



&НаКлиенте

Процедура ВПоиск(Команда)

	ВПоискНаСервере();

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

Категория: Управляемое приложение, Тонкий клиент

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

Задача: получить в ЗУП 2.5 за определенный период все отпуска и больничные по сотруднику

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

Код 1C v 8.х

 //Получим все отпуска и больничные

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

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

                               |ВЫБРАТЬ

                               |             ОсновныеНачисленияРаботниковОрганизаций.ПериодДействия,

                               |             ОсновныеНачисленияРаботниковОрганизаций.ПериодДействияНачало,

                               |             ОсновныеНачисленияРаботниковОрганизаций.ПериодДействияКонец,

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

                               |             ОсновныеНачисленияРаботниковОрганизаций.Сотрудник,

                               |             ОсновныеНачисленияРаботниковОрганизаций.Результат,

                               |             ОсновныеНачисленияРаботниковОрганизаций.НормаДней,

                               |             ОсновныеНачисленияРаботниковОрганизаций.НормаЧасов,

                               |             ОсновныеНачисленияРаботниковОрганизаций.ОтработаноДней,

                               |             ОсновныеНачисленияРаботниковОрганизаций.ОтработаноЧасов,

                               |             ОсновныеНачисленияРаботниковОрганизаций.ОтработаноДнейПоПятидневке

                               |ИЗ

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

                               |ГДЕ

                               |             ОсновныеНачисленияРаботниковОрганизаций.ВидРасчета В(&ВидРасчета)

                               |             И ОсновныеНачисленияРаботниковОрганизаций.Сотрудник =Сотрудник

                               |             И ОсновныеНачисленияРаботниковОрганизаций.ПериодДействия МЕЖДУДатаН ИДатаК

                               |";

                               кзСписокВидРасчета = Новый СписокЗначений;

                                кзСписокВидРасчета.Добавить(ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.ОплатаПоСреднемуОтпКалендарныеДни);

                                кзСписокВидРасчета.Добавить(ПланыВидовРасчета.ОсновныеНачисленияОрганизаций.ОплатаПоСреднемуБЛ);

                               Запрос.УстановитьПараметр("ВидРасчета", кзСписокВидРасчета);

                               Запрос.УстановитьПараметр("ДатаК", КонПериода);

                               Запрос.УстановитьПараметр("ДатаН", НачалоМесяца(КонПериода));

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

                               РезультатЧасовОтпускИБолн = Запрос.Выполнить().Выбрать();

Категория: 1С Зарплата и Управление Персоналом 2.5

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

Вопрос:
Есть возможность в запросе получить значение переодического регистра сведений если меняется дата в строке запроса. Например: Выбираю таблицу товаров из документа поступления за переод и хочу получить значение цены из регистра цены номенклатуры на дату документа?

Ответ:
Нужно получить результат, в котором каждой дате будет сопоставлена соответствующая (меньшая или равная ей дата) из регистра сведений и значение ресурса регистра, соответствующее этой дате. Вот, например, как я получаю курс доллара на день продажи:

Код 1C v 8.х

 ВЫБРАТЬ

    ДатаПродажиДатаКурса.ДатаПродажи КАК ДатаПродажи,

    ДатаПродажиДатаКурса.ДатаКурса КАК ДатаКурса,

    КурсыВалют.Курс КАК Курс,

    КурсыВалют.Кратность КАК Кратность

ИЗ

    (ВЫБРАТЬ

 ДатыПродаж.ДатаПродажи КАК ДатаПродажи,

 МАКСИМУМ(КурсыВалют.Период) КАК ДатаКурса

    ИЗ

 РегистрСведений.КурсыВалют КАК КурсыВалют

     ВНУТРЕННЕЕ СОЕДИНЕНИЕ (ВЫБРАТЬ РАЗЛИЧНЫЕ

   Продажи.Период КАК ДатаПродажи

     ИЗ

   РегистрНакопления.Продажи КАК Продажи

     ГДЕ

   Продажи.ДоговорКонтрагента.Владелец = &Клиент) КАК ДатыПродаж

     ПО КурсыВалют.Период <= ДатыПродаж.ДатаПродажи

    

    СГРУППИРОВАТЬ ПО

 ДатыПродаж.ДатаПродажи) КАК ДатаПродажиДатаКурса

 ВНУТРЕННЕЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют КАК КурсыВалют

 ПО ДатаПродажиДатаКурса.ДатаКурса = КурсыВалют.Период

ГДЕ

    КурсыВалют.Валюта = &Доллар

Категория: Регистры сведений