Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 1, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Реестр в журнале документов          
ZhenyaYa Подменю пользователя
сообщение 20.07.12, 9:55
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 105
Из: Киев
Спасибо сказали: 0 раз
Рейтинг: 0

Здравствуйте! Помогите, пожалуйста. В журнале документов есть кнопка реестр, которая ссылается на процедуру в глобальном модуле глПечатьЖурналаДокументов(Контекст, "ПриходныеНакладные"). Вот она
Процедура глПечатьЖурналаДокументов(Конт, Наименование) Экспорт
    
    Перем Отбор, ЗначениеОтбора;
    
    ЕстьОтбор = Конт.ПолучитьОтбор(Отбор, ЗначениеОтбора);
    НачДата = Конт.НачалоИнтервала();
    КонДата = Конт.КонецИнтервала();
    Расшифровка = СоздатьОбъект("СписокЗначений");
    Расшифровка.Установить("Отчет","ОбработкаДокументов");
    Расшифровка.Установить("Дата1", НачДата);
    Расшифровка.Установить("Дата2", КонДата);
    Расшифровка.Установить("ВыбКонтрагент", ПолучитьПустоеЗначение("Справочник.Контрагенты"));
    Расшифровка.Установить("ВыбСтрока", "");
    Расшифровка.Установить("ВыбСтрокаКом", "");
    Расшифровка.Установить("Признак", "Все");
    Расшифровка.Установить("ВидОбработки", "Печать");
    Расшифровка.Установить("ДокументВладелец", Конт.ПодчинениеДокументу());
    Если Отбор = "Фирма" Тогда
        Расшифровка.Установить("ВыбФирма", ЗначениеОтбора);
    Иначе
        Расшифровка.Установить("ВыбФирма", ПолучитьПустоеЗначение("Справочник.Фирмы"));
    КонецЕсли;
    ВсеДокументы = СоздатьОбъект("СписокЗначений");
    ВыбранныеДокументы = СоздатьОбъект("СписокЗначений");
    Для Индекс=1 По Метаданные.Документ() Цикл
        Значение = Метаданные.Документ(Индекс).Идентификатор;
        Представление = Метаданные.Документ(Индекс).Представление();
        Комментарий = Метаданные.Документ(Индекс).Комментарий;
        Если ПустаяСтрока(Комментарий) = 0 Тогда
            Представление = Представление + " (" + Комментарий +")";
        КонецЕсли;
        ВсеДокументы.ДобавитьЗначение(Значение, Представление);
    КонецЦикла;
    //Считаем, что отбор возможен только по документу или контрагенту
    Если ЕстьОтбор = 1 Тогда
        Если Метаданные.Документ(Отбор).Выбран() = 1 Тогда
            Значение = Метаданные.Документ(Отбор).Идентификатор;
            Представление = Метаданные.Документ(Отбор).Представление();
            Комментарий = Метаданные.Документ(Отбор).Комментарий;
            Если ПустаяСтрока(Комментарий) = 0 Тогда
                Представление = Представление + " (" + Комментарий +")";
            КонецЕсли;
            ВсеДокументы.УдалитьЗначение(ВсеДокументы.НайтиЗначение(Значение));
            ВыбранныеДокументы.ДобавитьЗначение(Значение, Представление);
        Иначе
            Расшифровка.Установить("ВыбКонтрагент", ЗначениеОтбора);
            ВсеДокументы.Выгрузить(ВыбранныеДокументы);
            ВсеДокументы.УдалитьВсе();
        КонецЕсли;                                                  
    Иначе
        Для Индекс = 1 По Метаданные.Документ() Цикл
            Док = Метаданные.Документ(Индекс);
            Если ((Строка(Док.Журнал) = Метаданные.Журнал(Наименование).Представление()) или (Наименование = "ПолныйЖурнал")) Тогда
                Значение = Док.Идентификатор;
                Представление = Док.Представление();
                Комментарий = Док.Комментарий;
                Если ПустаяСтрока(Комментарий) = 0 Тогда
                    Представление = Представление + " (" + Комментарий +")";
                КонецЕсли;
                ВсеДокументы.УдалитьЗначение(ВсеДокументы.НайтиЗначение(Значение));
                ВыбранныеДокументы.ДобавитьЗначение(Значение, Представление);
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;
    Расшифровка.Установить("ВыбранныеДокументы", ВыбранныеДокументы);
    Расшифровка.Установить("ВсеДокументы", ВсеДокументы);
    глРасшифровка = Расшифровка;
    глФлагРасшифровки = 1;
    глОбновить = 0;
    ОткрытьФорму("Обработка.ОбработкаДокументов");
    глФлагРасшифровки = 0;
КонецПроцедуры        //ПечатьЖурналаДокументов


При нажатии на кнопку получаем реестр приходных накладных за 2012 год.
Так вот. Понадобилось сделать отбор среди этих приходных накладных по реквизиту АдминПроводка. Создал Общий журнал, сделал отбор по документу ПриходныеНакладные, создлал два чек бокса, при нажатии на первый фильтрует документы с АдминПроводкой, при нажатии второго - без АдминПроводки. Проблема в том, что при выборе, например, документов с АдминПроводкой, нажимаем на кнопку Реестр, и выдает все существующие документы, а не те, которые с АдминПроводкой.

Подскажите, пожалуйста, как это исправить

Ardi Подменю пользователя
сообщение 20.07.12, 10:43
Сообщение #2

Живет на форуме
***********
Гений телепатии и социального моделирования
Группа: Пользователи
Сообщений: 4121
Из: Киев
Спасибо сказали: 957 раз
Рейтинг: 0

Нужно было чекбоксы маркером на экране нарисовать. Это полюбому бы помогло.


Signature
Услуги 1С программиста 8.2, 7.7 (Плохо, дорого, очередь). Киев.

Vofka Подменю пользователя
сообщение 20.07.12, 10:50
Сообщение #3

У нас здесь своя атмосфера...
***********
Группа: Основатель
Сообщений: 13957
Из: Киев
Спасибо сказали: 4524 раз
Рейтинг: 3646.4

ZhenyaYa, ну откуда же эта процедура знает о ваших чекбоксах?

ZhenyaYa Подменю пользователя
сообщение 20.07.12, 10:57
Сообщение #4

Завсегдатай
****
Группа: Пользователи
Сообщений: 105
Из: Киев
Спасибо сказали: 0 раз
Рейтинг: 0

не знаю...я вообще многое не знаю...

Стрелок Подменю пользователя
сообщение 24.07.12, 4:46
Сообщение #5

Говорящий
***
Группа: Пользователи
Сообщений: 96
Спасибо сказали: 8 раз
Рейтинг: 0

Цитата(ZhenyaYa @ 20.07.12, 11:57) *
не знаю...я вообще многое не знаю...



курить по слову "отбор". Советую проследить как работает реестр с отбором по контрагенту


Signature
Программист 1С - любимчик бухгалтеров

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 07.06.24, 23:13
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!