powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / [игнор отключен] [закрыт для гостей] / 1с программирование
7 сообщений из 7, страница 1 из 1
1с программирование
    #38958895
konor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Поогите, делаю отчет , нужно вывести список сотрудников и сделать фильтр по полу и по факту работает или нет, я написала условие, но фамилиии дублируются, как написать так, чтобы не было дублей
&НаКлиенте
Процедура СформироватьОтчетМЖ(Команда)
ЗаполнитьТабДок(ТабДок, м, ж, ПечататьТолькоРаботающих);
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ЗаполнитьТабДок(ТабДок, м, ж, ПечататьТолькоРаботающих)
ТабДок.Очистить();
Макет=Отчеты.СписокСотрудников.ПолучитьМакет("МакетСписок");
ОблШапка=Макет.ПолучитьОбласть("Шапка");
ОблЭлемент=Макет.ПолучитьОбласть("Элемент");
ОблГруппа=Макет.ПолучитьОбласть("Группа");
ОблГлавШапка=Макет.ПолучитьОбласть("ГлавШапка");
ОблШапка.Параметры.ДатаОтчета=Формат(ТекущаяДата(),"ДЛФ=DD");
ТабДок.Вывести(ОблШапка);

Выборка=Справочники.Сотрудники.ВыбратьИерархически();
Пока Выборка.Следующий() Цикл
Если Выборка.Предопределенный и ж Тогда
Продолжить;
КонецЕсли;
Если Выборка.пол="ж" и ж Тогда
ОблЭлемент.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОблЭлемент);
КонецЕсли;
Если Выборка.пол="м" и м Тогда
ОблЭлемент.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОблЭлемент);
КонецЕсли;
Если Выборка.Работающий и ПечататьТолькоРаботающих Тогда
Продолжить;
КонецЕсли;
Если Выборка.ЭтоГруппа Тогда
ОблГруппа.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОблГруппа);
Иначе
ОблЭлемент.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОблЭлемент);
КонецЕсли;

КонецЦикла;
КонецПроцедуры
...
Рейтинг: 0 / 0
1с программирование
    #38958898
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Форум по 1С тут http://www.sql.ru/forum/1c
Лучше туда обратиться. Быстрее подскажут.

Модератор: Тема перенесена из форума "Программирование".
...
Рейтинг: 0 / 0
1с программирование
    #38959143
javapecker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
konor, как написать так, чтобы не было дублей. Нужно успокоиться, выкинуть все что ниже
Код: pascal
1.
ТабДок.Вывести(ОблШапка);

, потому что это вообще за гранью добра и зла. Если не знаете как писать запросы или по каким-то причинам обязательно нужно использовать выборку без отбора, отвлекитесь от кода и постарайтесь описать поведение отчета простенькой блок схемой. Потом по ней пишите код. Если же запрос или выборку с отбором или скд использовать можно, то смотрите в их сторону, и кода почти не останется.
...
Рейтинг: 0 / 0
1с программирование
    #38959998
Фотография Владимир Лазурко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Посмотри в этой конфе отчет на СКД. Только запрос с условиями. в условии пишешь "м" или "ж", либо снимаешь флажок использования этого условия для всех (м и ж).
И флажок "работающие" по умолчанию включен.
...
Рейтинг: 0 / 0
1с программирование
    #38960062
Фотография Владимир Лазурко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я специально создал справочник Сотрудники и добавил фигурирующие в топике реквизиты, чтобы этот отчет можно было запустить в нужной базе.
...
Рейтинг: 0 / 0
1с программирование
    #38960193
javapecker
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Владимир Лазурко,
что это за аттракцион невиданной щедрости?))
...
Рейтинг: 0 / 0
1с программирование
    #38961228
Фотография Владимир Лазурко
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
javapeckerВладимир Лазурко,
что это за аттракцион невиданной щедрости?))Тестовый пример, в обеденный перерыв, минут на 15.

Кто людям помогает,
Тот тратит время зря!
Хорошими делами
Прославиться нельзя!
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / [игнор отключен] [закрыт для гостей] / 1с программирование
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]