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

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

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

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

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

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

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


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