Внешняя печатная форма

@kuza_87 · Регистрация: 11.05.2012

Author24 — интернет-сервис помощи студентам

Делал внешнюю печатная форма к ЗУП к документу "Зарплата к выплате". Там впринципе всё просто. Формирует список людей в алфавитном порядке. Расчётчики сказали мне переделать её, чтобы группировалась по подразделениям. Но тут возникла трудность. Когда выполняется запрос люди дублируются из-за подразделений, т.к. данные о подразделениях берутся из регистра, а там у людей много подразделений (были перемещения) и он отображает в каждой строчке выплату денег с каждым из подразделений.
выглядит код вот так:

+ Code

1C

Функция ПечатьРеестр() Экспорт
    Запрос=Новый Запрос;
 
          Запрос.Текст = "ВЫБРАТЬ
        |    ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо КАК Физлицо,
        |    ЗарплатаКВыплатеОрганизацийЗарплата.Сумма КАК Сумма,
        |    ЕСТЬNULL(РаботникиОрганизацийСрезПоследних.Сотрудник.ПодразделениеОрганизации, ДоговорНаВыполнениеРаботСФизЛицом.ПодразделениеОрганизации) КАК СотрудникПодразделениеОрганизации,
        |    РаботникиОрганизацийСрезПоследних.Период КАК Период,
        |    ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Номер КАК Номер,
        |    ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка.Дата КАК Дата
        |ИЗ
        |    Документ.ЗарплатаКВыплатеОрганизаций.Зарплата КАК ЗарплатаКВыплатеОрганизацийЗарплата
        |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.РаботникиОрганизаций.СрезПоследних(&Период, ) КАК РаботникиОрганизацийСрезПоследних
        |        ПО ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо = РаботникиОрганизацийСрезПоследних.Сотрудник.Физлицо
        |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.ДоговорНаВыполнениеРаботСФизЛицом КАК ДоговорНаВыполнениеРаботСФизЛицом
        |        ПО ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо = ДоговорНаВыполнениеРаботСФизЛицом.ФизЛицо
        |ГДЕ
        |    ЗарплатаКВыплатеОрганизацийЗарплата.Ссылка = &Ссылка
        |
        |УПОРЯДОЧИТЬ ПО
        |ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.Наименование,
        |Период УБЫВ
        |ИТОГИ ПО
        |    Физлицо,
        |    Сумма";
                
    Запрос.Параметры.Вставить("Период",СсылкаНаОбъект.Дата);
    Запрос.Параметры.Вставить("Ссылка",СсылкаНаОбъект.Ссылка);  //ЗНАЧЕНИЕ(Документ.ЗарплатаКВыплатеОрганизаций.ПустаяСсылка)
 
    РезультатЗапроса=Запрос.Выполнить();
    Выборка=РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);//ПоГруппировкам/Прямой
 
    //ТЗ=РезультатЗапроса.Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);//ПоГруппировкам/Прямой
 
    //ТЗ.ВыбратьСтроку();
 
    
    
    //формирование табличного документа с печатной формой
 
    ТабДокумент = Новый ТабличныйДокумент;
    ТабДокумент.ПолеСлева = 0;
    ТабДокумент.ПолеСправа = 0;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗарплатаКВыплатеОрганизаций_Реестр";
    
    Макет = ПолучитьМакет("Реестр");
    
    ОбластьМакетаЗаголовок        = Макет.ПолучитьОбласть("Заголовок");
    ОбластьМакетаШапка            = Макет.ПолучитьОбласть("Шапка");
    ОбластьМакетаСтрока         = Макет.ПолучитьОбласть("Строка");
    ОбластьМакетаПодвал         = Макет.ПолучитьОбласть("Подвал");
    
    ТабДокумент.Вывести(ОбластьМакетаЗаголовок);
    ОбластьМакетаШапка.Параметры.Номер = СсылкаНаОбъект.Номер;
    ОбластьМакетаШапка.Параметры.Дата = СсылкаНаОбъект.Дата;
    ОбластьМакетаШапка.Параметры.КакВыплачено = СсылкаНаОбъект.СпособВыплаты;
    ТабДокумент.Вывести(ОбластьМакетаШапка);
 
    //добавляем массив для разбиения на страницы
 
    
    ВыводимыеОбласти = Новый Массив();
    ВыводимыеОбласти.Добавить(ОбластьМакетаСтрока);
    
    //заполняем строки
 
    Пока Выборка.Следующий()Цикл
        ВыборкаСумма = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
        Пока ВыборкаСумма.Следующий()Цикл
        ВыборкаПодразделение = ВыборкаСумма.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
        Если ВыборкаПодразделение.Следующий() тогда     
        ОбластьМакетаСтрока.Параметры.Заполнить(ВыборкаПодразделение);
        иначе ОбластьМакетаСтрока.Параметры.Заполнить(ВыборкаСумма); 
        
        КонецЕсли;
        // разбиение на страницы
 
        //ВыведеноСтрок = ВыведеноСтрок + 1;
 
        
    // Проверим, уместится ли строка на странице или надо открывать новую страницу
 
        ВывестиПодвалЛиста = Не ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти);
        
        
        
        Если ВывестиПодвалЛиста Тогда
            
            ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
            ТабДокумент.Вывести(ОбластьМакетаШапка);
            //ВыведеноСтраниц = ВыведеноСтраниц + 1;
 
            КонецЕсли;
        
                ТабДокумент.Вывести(ОбластьМакетаСтрока);
    
    КонецЦикла;
    КонецЦикла;
            
    ВыводимыеОбласти = Новый Массив();
    ВыводимыеОбласти.Добавить(ОбластьМакетаСтрока);
    ВыводимыеОбласти.Добавить(ОбластьМакетаПодвал);
    
    
    //Пока ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти, Ложь) Цикл
 
    //    ТабДокумент.Вывести(ОбластьМакетаСтрока);
 
    //КонецЦикла;
 
    
    
    ТабДокумент.Вывести(ОбластьМакетаПодвал);
    
    Возврат ТабДокумент;
 
КонецФункции
Функция Печать () Экспорт
    Возврат    ПечатьРеестр();
    
КонецФункции

Чтобы в макете люди не дублировались я сделал вот так:

+ Code

1C

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

Т.е. добавил 2 цикла.
Вопрос как мне сделать так чтобы я смог сформировать список по подразделениям, и люди не двоились

в идеале можно было бы сделать это в запросе, чтобы выбиралось подразделение на такую же дату как и дата документа, но я не знаю как. Помогите кто может плиз

@wade25 · 11.05.2012, 11:34

Сгруппировать запрос нужно.

@kuza_87 · 11.05.2012, 11:58 **[ТС]**

1C

|УПОРЯДОЧИТЬ ПО
|ЗарплатаКВыплатеОрганизацийЗарплата.Физлицо.Наименование,
|Период УБЫВ
|ИТОГИ ПО
| Физлицо,
| Сумма";

изначально я группировал так, когда нужен был список в алфавитном порядке. Когда я группирую по подразделениям, то один и тот же человек у меня попадает в несколько подразделений (т.е. люди дублируются). т.к. данные о подразделении человека берутся из регистра сведений. А там подразделений много, и я не знаю как мне сделать так, чтобы отображалось одно подразделение, актуальное на даты составления документа

Добавлено через 12 минут
через группировку как сделать конкретно я не могу сообразить((((((((

@wade25 · 11.05.2012, 12:37

Упорядочить и Сгруппировать разные вещи О_о

@kuza_87 · 11.05.2012, 12:54 **[ТС]**

я это понял...но как сгруппировать-то так чтобы одни и те же люди не двоились в разных подразделениях? вот в чём был мой вопрос

@ВВК · 11.05.2012, 13:44

вот суть задачи:
вводится предложение, или несколько слов которые разделены между собой пробелами. Нужно отсортировать эти слова в алфавитном порядке и вывести их в отдельном поле Memo.
задачу нужно реализовать на C++ Builder на формах (!не в консоли!)

@Dethmontt · 11.05.2012, 23:02

ВВК, Кажется ты ошибся адресом!

@duk337 · 13.05.2012, 09:50

Сообщение от ВВК

вот суть задачи:
вводится предложение, или несколько слов которые разделены между собой пробелами. Нужно отсортировать эти слова в алфавитном порядке и вывести их в отдельном поле Memo.
задачу нужно реализовать на C++ Builder на формах (!не в консоли!)

Ну, в 1с система может сама всё вышеуказанное, причём несколькими способами, только Вам-то это к чему?

@fimbulwinter · 14.05.2012, 07:22

Сначала разберись с запросом.
Что то мне подсказывает что СрезПоследних нужно выбрать в отдельную временную таблицу. И возможно у тебя в базе несколько организаций -->>-> в условие запроса вставить организацию.

@Fenomen · 14.05.2012, 11:00

Сообщение от kuza_87

Формирует список людей в алфавитном порядке. Расчётчики сказали мне переделать её, чтобы группировалась по подразделениям. Но тут возникла трудность. Когда выполняется запрос люди дублируются из-за подразделений, т.к. данные о подразделениях берутся из регистра, а там у людей много подразделений (были перемещения) и он отображает в каждой строчке выплату денег с каждым из подразделений.

Срез последних вернет только одно подразделение, в котором сотрудник работает на указанную дату.
Ваши проблемы:
1. Нет фильтра по организации;
2. Вы связываете таблицу по ФизЛицу. Одно физ лицо может работать в двух подразделениях.

Учитывая 2 пункт, без доработки конфигурации, задачу будет решить очень сложно.

@Fenomen 900 / 877 / 8 Регистрация: 15.03.2012 Сообщений: 2,680
	14.05.2012, 11:00	10
	Сообщение от kuza_87 Формирует список людей в алфавитном порядке. Расчётчики сказали мне переделать её, чтобы группировалась по подразделениям. Но тут возникла трудность. Когда выполняется запрос люди дублируются из-за подразделений, т.к. данные о подразделениях берутся из регистра, а там у людей много подразделений (были перемещения) и он отображает в каждой строчке выплату денег с каждым из подразделений. Срез последних вернет только одно подразделение, в котором сотрудник работает на указанную дату. Ваши проблемы: 1. Нет фильтра по организации; 2. Вы связываете таблицу по ФизЛицу. Одно физ лицо может работать в двух подразделениях. Учитывая 2 пункт, без доработки конфигурации, задачу будет решить очень сложно. 0

Блоги программистов
Обновление сайта www.historian.by Reglage 05.01.2025 Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .	Как использовать GraphQL в C# с HotChocolate Programming 05.01.2025 GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .	Модель полного двоичного суматора с помощью логических операций (python) AlexSky-coder 04.01.2025 def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()	Это мы не проходили, это нам не задавали...(асихронный счётчик с управляющим сигналом задержки). Hrethgir 04.01.2025 Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .	Руководство по созданию бота для Телеграм на Python IT_Exp 04.01.2025 Боты для Телеграм представляют собой автоматизированные программы, которые выполняют различные задачи, взаимодействуя с пользователями через интерфейс мессенджера. В данной статье мы рассмотрим,. . .	Применение компонентов PrimeVue в Vue.js 3 на TypeScript BasicMan 04.01.2025 Введение в PrimeVue и настройка окружения PrimeVue представляет собой мощную библиотеку компонентов пользовательского интерфейса для Vue. js 3, которая предоставляет разработчикам богатый набор. . .
Как стать Senior developer cpp_developer 04.01.2025 В современной индустрии разработки программного обеспечения позиция Senior Developer представляет собой не просто следующую ступень карьерной лестницы, а качественно новый уровень профессионального. . .	Что известно о дате выхода Windows 12 и чего от нее ждать IT_Exp 04.01.2025 В мире технологий постоянно происходят изменения, и операционные системы не являются исключением. Windows 11, выпущенная в октябре 2021 года, принесла множество инноваций и улучшений, но. . .	Что новенького в .NET Core 9 Programming 04.01.2025 Обзор ключевых изменений в . NET Core 9 Платформа . NET Core продолжает активно развиваться, и версия 9 представляет собой значительный шаг вперед в эволюции этой технологии. Новый релиз. . .	Инструкция по установке python3.13.1 в Debian 12 AlexSky-coder 03.01.2025 sudo apt update sudo apt install build-essential zlib1g-dev libncurses5-dev libgdbm-dev libnss3-dev libssl-dev libreadline-dev libffi-dev wget. . .	Затестил триггеры. архив проекта прилагаю с GOA файлами в настройках архиватора проектов. Hrethgir 03.01.2025 В этот раз нет закольцованности, потому что от неё только глюки, как я понял, логика не вырезанная. Триггеры очень быстрые если верить измерениям с помощью анализатора от Gowin. Есть ещё регистры,. . .	Python в помощь DevOps IT_Exp 03.01.2025 Причины использования Python в работе DevOps Python стал неотъемлемой частью мира DevOps, и это не случайно. Этот язык программирования обладает множеством преимуществ, которые делают его. . .

@wade25 145 / 145 / 3 Регистрация: 25.03.2011 Сообщений: 512
	11.05.2012, 11:34	2
	Сгруппировать запрос нужно. 0

@wade25 145 / 145 / 3 Регистрация: 25.03.2011 Сообщений: 512
	11.05.2012, 12:37	4
	Упорядочить и Сгруппировать разные вещи О_о 0

@kuza_87 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 5
	11.05.2012, 12:54 [ТС]	5
	я это понял...но как сгруппировать-то так чтобы одни и те же люди не двоились в разных подразделениях? вот в чём был мой вопрос 0

@ВВК 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 13
	11.05.2012, 13:44	6
	вот суть задачи: вводится предложение, или несколько слов которые разделены между собой пробелами. Нужно отсортировать эти слова в алфавитном порядке и вывести их в отдельном поле Memo. задачу нужно реализовать на C++ Builder на формах (!не в консоли!) 0

@Dethmontt Модератор 4029 / 2974 / 591 Регистрация: 10.03.2011 Сообщений: 11,703 Записей в блоге: 1
	11.05.2012, 23:02	7
	ВВК, Кажется ты ошибся адресом! 0

@duk337 2955 / 1767 / 82 Регистрация: 03.11.2011 Сообщений: 8,280
	13.05.2012, 09:50	8
	Сообщение от ВВК вот суть задачи: вводится предложение, или несколько слов которые разделены между собой пробелами. Нужно отсортировать эти слова в алфавитном порядке и вывести их в отдельном поле Memo. задачу нужно реализовать на C++ Builder на формах (!не в консоли!) Ну, в 1с система может сама всё вышеуказанное, причём несколькими способами, только Вам-то это к чему? 0

@fimbulwinter 309 / 309 / 1 Регистрация: 16.01.2011 Сообщений: 1,073
	14.05.2012, 07:22	9
	Сначала разберись с запросом. Что то мне подсказывает что СрезПоследних нужно выбрать в отдельную временную таблицу. И возможно у тебя в базе несколько организаций -->>-> в условие запроса вставить организацию. 0