Вход | Регистрация
 
1С:Предприятие :: 1С:Предприятие 8 общая

Комплексная автоматизация 2 (2.4.6.207) для пользователей разный набор печатных форм

Комплексная автоматизация 2 (2.4.6.207) для пользователей разный набор печатных форм
Я
   МимохожийОднако
 
02.04.19 - 14:02
Понятно, что зависит от прав пользователя. Чтобы определить нужную роль для этой формы и не давать лишние права, ищу место, где отсеиваются (фильтруются) печатные формы.
Например,документ Акт выполненных работ. Есть печатная форма "Акт выполненных услуг" и "Акт выполненных услуг (Microsoft Word)"
Может быть, кто-то сходу подскажет,где искать эту настройку?
 
 
   МимохожийОднако
 
1 - 02.04.19 - 14:03
Для пользователя с полными правами видны обе формы по кнопке Печать. А для менеджера только первая форма. Работают на РДП.
   sqr4
 
2 - 02.04.19 - 14:05
Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
Модуль менеджера документа
   Cyberhawk
 
3 - 02.04.19 - 14:09
В ПриСозданииНаСервере точка входа
   Вафель
 
4 - 02.04.19 - 14:31
есть пользовательская настройка, какие печ формы из существующих показывать
   zelyak
 
5 - 02.04.19 - 14:36
Можно проще - нарисуй свою ВПФ по умолчанию а в ней меню выбора формы, которое будет показывать нужные.
   МимохожийОднако
 
6 - 02.04.19 - 19:26
Согласно подсказке (2) добрался в модуле менеджера до функции 
Пользователи.ЭтоПолноправныйПользователь(), в которой увидел, что эта печатная форма работает только для пользователей с полными правами или Администратора системы.
Не стал добавлять эту роль.
Добавил через расширение процедуру, скопированную из процедуры  ДобавитьКомандыПечати(КомандыПечати)
..
&Перед("ДобавитьКомандыПечати")
Процедура Расш1_ДобавитьКомандыПечати1(КомандыПечати)
    Если НЕ Пользователи.ЭтоПолноправныйПользователь() Тогда
    // Акт выполненных работ (Microsoft Word)

        КомандаПечати = КомандыПечати.Добавить();
        КомандаПечати.Обработчик = "УправлениеПечатьюУТКлиент.ПечатьАктВыполненныхРаботMicrosoftWord";
        КомандаПечати.МенеджерПечати = "";
        КомандаПечати.Идентификатор = "АктMicrosoftWord";
        КомандаПечати.Представление = НСтр("ru = 'Акт выполненных работ (Microsoft Word)'");
        КомандаПечати.ПроверкаПроведенияПередПечатью = Истина;
        КомандаПечати.ТребуетсяРасширениеРаботыСФайлами = Истина;
    КонецЕсли;
КонецПроцедуры
...
   МимохожийОднако
 
7 - 02.04.19 - 19:27
Всем спасибо
   Gbpltw
 
8 - 02.04.19 - 23:56
(7) есть прекрасно работающий штатный механизм, но свой велосипед с квадратными колесами роднее....
   МимохожийОднако
 
9 - 03.04.19 - 06:38
(8) Ты подскажи, где этот велосипед. Я свой уберу в гараж.ОК?

Список тем форума
Рекламное место пустует  Рекламное место пустует
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.