Доброго дня! Є такий варіант: в мене вийшло те що потрібно
ВЫБРАТЬ 0 КАК n ПОМЕСТИТЬ Т_Цифри
ОБЪЕДИНИТЬ
ВЫБРАТЬ 1
ОБЪЕДИНИТЬ
ВЫБРАТЬ 2
ОБЪЕДИНИТЬ
ВЫБРАТЬ 3
ОБЪЕДИНИТЬ
ВЫБРАТЬ 4
ОБЪЕДИНИТЬ
ВЫБРАТЬ 5
ОБЪЕДИНИТЬ
ВЫБРАТЬ 6
ОБЪЕДИНИТЬ
ВЫБРАТЬ 7
ОБЪЕДИНИТЬ
ВЫБРАТЬ 8
ОБЪЕДИНИТЬ
ВЫБРАТЬ 9 ;
//////////////////////////////////////////////////////////////////////////////// ВЫБРАТЬ ДОБАВИТЬКДАТЕ(&Дата1, ГОД, а_Одиниці.n + б_Десятки.n * 10 + в_Сотні.n * 100 + г_Тисячі.n * 1000) КАК Дата ПОМЕСТИТЬ Т_Дат ИЗ Т_Цифри КАК а_Одиниці ЛЕВОЕ СОЕДИНЕНИЕ Т_Цифри КАК б_Десятки ПО (ИСТИНА) ЛЕВОЕ СОЕДИНЕНИЕ Т_Цифри КАК в_Сотні ПО (ИСТИНА) ЛЕВОЕ СОЕДИНЕНИЕ Т_Цифри КАК г_Тисячі ПО (ИСТИНА) ГДЕ а_Одиниці.n + б_Десятки.n * 10 + в_Сотні.n * 100 + г_Тисячі.n * 1000 <= РАЗНОСТЬДАТ(&Дата1, &Дата2, ГОД) ;
//////////////////////////////////////////////////////////////////////////////// ВЫБРАТЬ ВложенныйЗапрос.Сотрудник КАК Робітник, МАКСИМУМ(ВложенныйЗапрос.ДатаПрийому) КАК ДатаПрийому, МАКСИМУМ(ВложенныйЗапрос.ДатаЗвільнення) КАК ДатаЗвільнення ПОМЕСТИТЬ Т_Робітників ИЗ (ВЫБРАТЬ РаботникиОрганизаций.Сотрудник КАК Сотрудник, РаботникиОрганизаций.Период КАК ДатаПрийому, NULL КАК ДатаЗвільнення ИЗ РегистрСведений.РаботникиОрганизаций КАК РаботникиОрганизаций ГДЕ РаботникиОрганизаций.ПричинаИзмененияСостояния = ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.ПриемНаРаботу) И РаботникиОрганизаций.Сотрудник = &Сотрудник
ОБЪЕДИНИТЬ ВСЕ
ВЫБРАТЬ РаботникиОрганизаций.Сотрудник, NULL, РаботникиОрганизаций.Период ИЗ РегистрСведений.РаботникиОрганизаций КАК РаботникиОрганизаций ГДЕ РаботникиОрганизаций.ПричинаИзмененияСостояния = ЗНАЧЕНИЕ(Перечисление.ПричиныИзмененияСостояния.Увольнение) И РаботникиОрганизаций.Сотрудник = &Сотрудник) КАК ВложенныйЗапрос
СГРУППИРОВАТЬ ПО ВложенныйЗапрос.Сотрудник ;
//////////////////////////////////////////////////////////////////////////////// ВЫБРАТЬ Т_Робітників.Робітник, ГОД(Т_Дат.Дата) КАК Рік, ВЫБОР КОГДА Т_Робітників.ДатаПрийому МЕЖДУ НАЧАЛОПЕРИОДА(Т_Дат.Дата, ГОД) И КОНЕЦПЕРИОДА(Т_Дат.Дата, ГОД) ТОГДА Т_Робітників.ДатаПрийому ИНАЧЕ Т_Дат.Дата КОНЕЦ КАК ДатаПочаток, ВЫБОР КОГДА Т_Робітників.ДатаЗвільнення МЕЖДУ НАЧАЛОПЕРИОДА(Т_Дат.Дата, ГОД) И КОНЕЦПЕРИОДА(Т_Дат.Дата, ГОД) ТОГДА Т_Робітників.ДатаЗвільнення ИНАЧЕ КОНЕЦПЕРИОДА(Т_Дат.Дата, ГОД) КОНЕЦ КАК ДатаКінець ИЗ Т_Робітників КАК Т_Робітників, Т_Дат КАК Т_Дат
Доброго дня! Можна. В ОбработкаРасшифровки отримуєте з даних розшифровки необхідні поля, і формуєте з новою схемою компоновки звіт.
ЕлементРозшифровки = ДанныеРасшифровки.Элементы[Расшифровка]; ПолеРозшифровки = ЕлементРозшифровки.ПолучитьПоля()[0]; Если ПолеРозшифровки.Поле = "СумаУпр" Или ПолеРозшифровки.Поле = "СумаФакт" Тогда СтандартнаяОбработка = Ложь; Форма = ПолучитьФорму("ФормаРозшифровки"); Параметри = Новый Соответствие; БатьківськіЕлементи = ЕлементРозшифровки.ПолучитьРодителей(); Для Каждого БатьківськийЕлементРозшифровки Из БатьківськіЕлементи Цикл Поля = БатьківськийЕлементРозшифровки.ПолучитьПоля(); Для Каждого ЗначенняПоля Из Поля Цикл Параметри.Вставить(ЗначенняПоля.Поле, ЗначенняПоля.Значение); КонецЦикла; КонецЦикла; Если ПолеРозшифровки.Поле = "СумаУпр" Тогда Параметр = КомпоновщикНастроек.Настройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("Сценарій")); Параметри.Вставить("Сценарій", Параметр.Значение); Иначе Параметри.Вставить("Сценарій", Справочники.СценарииПланирования.ПустаяСсылка()); КонецЕсли;
Форма.Параметри = Параметри; Если НЕ Форма.Открыта() Тогда Форма.Открыть(); КонецЕсли;
ТЗ = Новый ТаблицаЗначений; Если МасивДаних.Количество() Тогда // Малюємо колонки для таблиці Для Каждого ЭлементМассива Из МасивДаних[0] Цикл ТЗ.Колонки.Добавить(ЭлементМассива.Ключ); КонецЦикла;
Для Каждого ЭлементМассива Из МасивДаних Цикл // Додаємо дані до таблиці РядокТЗ = ТЗ.Добавить(); Для Каждого ЗначениеСтруктуры Из ЭлементМассива Цикл РядокТЗ[ЗначениеСтруктуры.Ключ] = ЗначениеСтруктуры.Значение; КонецЦикла; КонецЦикла; КонецЕсли; Возврат ТЗ;
ВЫБРАТЬ РаботникиСрезПоследних.Подразделение КАК Подразделение, РаботникиСрезПоследних.ФизЛицо ИЗ РегистрСведений.Работники.СрезПоследних КАК РаботникиСрезПоследних
в компоновкі вибираєте перше групування по підрозділу, друге по по фізОсобі, виходить те що вам потрібно. замініть в моєму запиті на свій, все норм.
Доброго дня! Може хто підкаже чи поділиться, потрібно акти звірки через фредо відправляти клієнтам. так як видаткові накладні. Можемо обговорити оплату якщо в кого-сь є робоче рішення.
Для Каждого ЭлементКнопка Из ЭлементыФормы.ДействияФормы.Кнопки.ОтборПоНаличиюОргинала.Кнопки Цикл Если Элемент.Имя = ЭлементКнопка.Имя Тогда ЭлементКнопка.Пометка = Истина; Иначе ЭлементКнопка.Пометка = Ложь; КонецЕсли; КонецЦикла;
НашОтбор = ЭтаФорма.Отбор.Ссылка; Если Элемент.Имя = "ВсеДокументы" Тогда НашОтбор.Использование = Ложь; Иначе Запрос = Новый Запрос; Запрос.Текст = ПолучитьТекстЗапроса(Элемент.Имя); СписокДокументов = Новый СписокЗначений; СписокДокументов.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"));
Если Вид = "РНЕсть" Тогда ТекстЗапроса = "ВЫБРАТЬ | Док.Сделка КАК Ссылка |ИЗ | Документ.РеализацияТоваровУслуг КАК Док |ГДЕ | НЕ Док.Сделка.ПометкаУдаления";
Иначе ТекстЗапроса = "ВЫБРАТЬ РАЗРЕШЕННЫЕ | Док.Ссылка |ИЗ | Документ.ЗаказПокупателя КАК Док |ГДЕ | Не Док.ПометкаУдаления | И НЕ Док.Ссылка В | (ВЫБРАТЬ | Док.Сделка КАК Ссылка | ИЗ | Документ.РеализацияТоваровУслуг КАК Док)"; КонецЕсли; Возврат ТекстЗапроса;
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!
Открытая тема (есть новые ответы)
Опрос (есть новые голоса)
Открытая тема (нет новых ответов)
Опрос (нет новых голосов)
Горячая тема (есть новые ответы)
Закрытая тема
Горячая тема (нет новых ответов)
Тема перемещена