7.7 Множественный отбор в общем журнале

Тема в разделе "Конфигурирование на платформе "1С:Предприятие 7.7"", создана пользователем DizeL, 26 ноя 2013.

0/5, Голосов: 0
  1. TopicStarter Overlay
    DizeL
    Offline

    DizeL

    Регистрация:
    13 ноя 2013
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Приветствую всех! Есть общий журнал, в нем надобно сделать отбор по ВидуДокумента и по Общему реквизиту "Фирма"

    УстановитьОтбор("Фирма",ВыбФирма);
    УстановитьОтбор("ДокументСправка");

    Но получается: или Вид или Общий реквизит!

    Заранее всем спасибо!
    DizeL, 26 ноя 2013
    #1
  2. Хряк
    Offline

    Хряк Профессионал в 1С

    Регистрация:
    26 сен 2007
    Сообщения:
    1.507
    Симпатии:
    50
    Баллы:
    54
    нуно ещё один общий реквизит фирма+виддок
    больше никак
    Хряк, 26 ноя 2013
    #2
  3. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.929
    Симпатии:
    472
    Баллы:
    104
    +Для установки реквизита базу придется перепровести......
    А если написать отчет - не устроит?
    Бухгалтерский угодник, 27 ноя 2013
    #3
  4. TopicStarter Overlay
    DizeL
    Offline

    DizeL

    Регистрация:
    13 ноя 2013
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Отчет не хотят, хотят в журнале создавать, смотреть и т.д. документы

    Добавил "ПриЗпаписи" документа - глУниверсРеквизитыОтбора(Контекст,"ДокСправка")

    Теперь в журнале можно выбирать, но только новые создаваемые документы.

    Думаю как перезаписать существующие документы...
    DizeL, 27 ноя 2013
    #4
  5. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.929
    Симпатии:
    472
    Баллы:
    104
    Обработкой... Механизм в глУниверсРеквизитыОтбора
    Бухгалтерский угодник, 27 ноя 2013
    #5
  6. TopicStarter Overlay
    DizeL
    Offline

    DizeL

    Регистрация:
    13 ноя 2013
    Сообщения:
    6
    Симпатии:
    0
    Баллы:
    1
    Сделал обработку, проверил все работает:

    Прошу, уважаемый Бухгалтерский угодник , проверьте код на предмет багов ! :)

    Код:
    Процедура Сформировать()			  
Перем Запрос, ТекстЗапроса;
Если (Число(НачДата) = 0) ИЛИ (Число(КонДата) = 0) Тогда
Предупреждение("Не задан период!");
Возврат;
КонецЕсли;
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС
|Период с НачДата по КонДата ;
|ОбрабатыватьДокументы все;
|Обрабатывать НеПомеченныеНаУдаление;
|Без итогов;
|Док = Документ.ДокСправка.ТекущийДокумент;
|Фирма = Документ.ДокСправка.Фирма;
|Группировка Док Без Групп;
|"//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

Док=СоздатьОбъект("Документ.ДокСправка");
Пока Запрос.Группировка() = 1 Цикл
Если Док.НайтиДокумент(Запрос.Док)=1 Тогда
// Фирма=Запрос.Фирма;	 
Док.ДокФирма = ""+"ДокСправка" + ";" + СокрЛП(Док.Фирма.Наименование)+"";
Док.Записать();
Сообщить ("Записан документ "+Запрос.Док+", Фирма "+Запрос.Фирма);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
    DizeL, 27 ноя 2013
    #6
  7. Бухгалтерский угодник
    Offline

    Бухгалтерский угодник Администраторы Команда форума Администратор

    Регистрация:
    29 дек 2008
    Сообщения:
    21.929
    Симпатии:
    472
    Баллы:
    104
    В целом как-то так. Этот код отработает быстрее вашего
    Код:
    Процедура Сформировать()			  
Перем Запрос, ТекстЗапроса;
Если (Число(НачДата) = 0) ИЛИ (Число(КонДата) = 0) Тогда
Предупреждение("Не задан период!");
Возврат;
КонецЕсли;
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС
|Период с НачДата по КонДата ;
|Без итогов;
|Док = Документ.ДокСправка.ТекущийДокумент;
|Группировка Док Без Групп;
|"//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

Док=СоздатьОбъект("Документ");
НачатьТранзакцию();
Пока Запрос.Группировка() = 1 Цикл
Если Док.НайтиДокумент(Запрос.Док.ТекущийДокумент())=1 Тогда
Док.ДокФирма = "ДокСправка;" + СокрЛП(Док.Фирма.Наименование)+"";
Док.Записать();
КонецЕсли;
КонецЦикла;
ЗафиксироватьТранзакцию();
КонецПроцедуры
    Бухгалтерский угодник, 28 ноя 2013
    #7
Похожие темы
  1. kanubis

    7.7 Ограничение в Общем журнале

    kanubis, 6 июл 2010, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    6
    Просмотров:
    1.195
    Бухгалтерский угодник
    23 апр 2014
  2. Black Cat

    7.7 Запретить в общем журнале с

    Black Cat, 12 авг 2010, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    1
    Просмотров:
    592
    Бухгалтерский угодник
    13 авг 2010
  3. katish

    7.7 Видимость колонок в общем журнале

    katish, 1 окт 2010, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    2
    Просмотров:
    1.188
    Бухгалтерский угодник
    2 окт 2010
  4. Black Cat

    7.7 Отбор по нескольким значениям в Общем Журнале документов

    Black Cat, 8 фев 2011, в разделе: Конфигурирование на платформе "1С:Предприятие 7.7"
    Ответов:
    31
    Просмотров:
    7.887
    nicfest
    27 дек 2012
  5. Y.Tz

    7.7 Как добавить столбцы в общем журнале ТиС 9.2?

    Y.Tz, 15 июн 2012, в разделе: Типовые решения "1С:Предприятие 7.7"
    Ответов:
    9
    Просмотров:
    1.663
    Y.Tz
    20 июн 2012
Загрузка...

Поделиться этой страницей