Есть такая проблемка: в 7.7 необходимо в журнале документов сделать так, чтобы несколько пользователей, которые работают с одним типом документа (Счет), видели только "свои" документы!
Создавать журнал с типом общий.
Создавать графу отбора "СчетАвтор". В графе указывать поле Автор счета.
Настраивать программный отбор в журнале.
// ======================================
Процедура ПриОткрытии()
Форма.Фирма.Видимость(глИспользуетсяРазделительУчета);
Форма.кПравоваяПоддержка.Видимость(глВидимостьПравовойПоддержки);
Если ПустоеЗначение(Форма.Параметр)=0 Тогда
Если ВРег(ТипЗначенияСтр(Форма.Параметр))="ДОКУМЕНТ" Тогда
// в качестве параметра был передан документ, спозиционируемся на него
Док = Форма.Параметр.ТекущийДокумент();
Если Док.Выбран()>0 Тогда
Нач=?(Док.ДатаДок<НачалоИнтервала(), Док.ДатаДок, НачалоИнтервала());
Кон=?(КонецИнтервала()<Док.ДатаДок, Док.ДатаДок, КонецИнтервала());
Если (НачалоИнтервала()<>Нач) ИЛИ (КонецИнтервала()<>Кон) Тогда
УстановитьИнтервал(Нач, Кон);
Док1 = Пользователь;
УстановитьОтбор(Док.Автор,Док1);
КонецЕсли;
Попытка
АктивизироватьОбъект(Док);
Исключение КонецПопытки;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
1. Кроме графы создавать отбор. (Или использовать общие реквизиты - что в данном случае не в тему)
2. Потом: УстановитьОтбор("ИмяОтбораВКавычках",Док1);
Док1 = Пользователь;
УстановитьОтбор("Автор",Док1);
Общие реквизиты в отбор не нужно добавлять. По ним отбор работает сразу.
И для отбора счет/автор общие не подходят.
2.Существуеет графа "Автор"
Автор темы уже писал, что графа есть, проблема была только в синтаксисе, как и написал Ardi. Осталось узнать у автора или получился у него отбор ?
Док1 = Пользователь;
УстановитьОтбор("Автор",Док1);
СчетАвтор = Пользователь;
...
УстановитьОтбор("СчетАвтор",Пользователь);
Док1 = Пользователь;
УстановитьОтбор("Автор",Док1);
СчетАвтор = Пользователь;
...
УстановитьОтбор("СчетАвтор",Пользователь);
По-перше, автор теми не озвучив свою конфігурацію: типова чи самописка - щоб не гадати, що там вже є створено . По-друге, змініть тон, - оскільки я з цього приводу озвучив свою думку і автор теми сам вибере, яку ідею йому втілювати в життя .
Читаємо правила - п.13 і чистимо офтоп. [це повідомлення і попередній, слідуючий офтоп видалити].
1.Вибачаюсь, що не вказав конфігурацію (перший раз все-таки пишу) - виправляюсь: типова (стандартна) "Бухгалтерский учет" для Украины.
2.Підравив тип в УстановитьОтбор - не працює!
3. Змінна "Автор" - це СправочникПользователи - вона пишеться у всіх документах.
4. Ввів новий реквізит СчетАвтор в документі Счет.
5.Записав УстановитьОтбор("СчетАвтор",Пользователь); в формі док-а Повного журналу
6. зробив декілька "свіжих" документів Счет - а відбір не працює. Всі документи так і є в Повному журналі!
Процедура ПриОткрытии()
Форма.Фирма.Видимость(глИспользуетсяРазделительУчета);
Форма.кПравоваяПоддержка.Видимость(глВидимостьПравовойПоддержки);
Если ПустоеЗначение(Форма.Параметр)=0 Тогда
Если ВРег(ТипЗначенияСтр(Форма.Параметр))="ДОКУМЕНТ" Тогда
// в качестве параметра был передан документ, спозиционируемся на него
Док = Форма.Параметр.ТекущийДокумент();
Если Док.Выбран()>0 Тогда
Нач=?(Док.ДатаДок<НачалоИнтервала(), Док.ДатаДок, НачалоИнтервала());
Кон=?(КонецИнтервала()<Док.ДатаДок, Док.ДатаДок, КонецИнтервала());
Если (НачалоИнтервала()<>Нач) ИЛИ (КонецИнтервала()<>Кон) Тогда
УстановитьИнтервал(Нач, Кон);
КонецЕсли;
Попытка
АктивизироватьОбъект(Док);
Исключение КонецПопытки;
КонецЕсли;
КонецЕсли;
КонецЕсли;
УстановитьОтбор("новый1",Пользователь);
КонецПроцедуры
Пож., как для начинающего - что должно біть вместо "Новій1"?
потрібно створити нову графу відбору
нову графу відбору де? в Повному журналі? і чим вона буде відрізнятись від стандартної "Автор"?
давайте уточнимо задачу: вам потрібно зробити відбір тільки по документу Счет (Счет-фактура) із необхідним автором цього документу чи відбір взагалі всіх документів із необхідним автором?
+
Дякую всім за підтримку! Проблему вирішили. правда, трохи іншим шляхом. Виявилось, що конфа, де це треба було реалізувати, трохи інша, ніж мені дали - і там все реалізувалось!
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua