Имя: Пароль:
1C
1С v8
Комплексная автоматизация 2 (2.4.6.207) для пользователей разный набор печатных форм
0 Мимохожий Однако
 
02.04.19
14:02
Понятно, что зависит от прав пользователя. Чтобы определить нужную роль для этой формы и не давать лишние права, ищу место, где отсеиваются (фильтруются) печатные формы.
Например,документ Акт выполненных работ. Есть печатная форма "Акт выполненных услуг" и "Акт выполненных услуг (Microsoft Word)"
Может быть, кто-то сходу подскажет,где искать эту настройку?
1 Мимохожий Однако
 
02.04.19
14:03
Для пользователя с полными правами видны обе формы по кнопке Печать. А для менеджера только первая форма. Работают на РДП.
2 sqr4
 
02.04.19
14:05
Процедура ДобавитьКомандыПечати(КомандыПечати) Экспорт
Модуль менеджера документа
3 Cyberhawk
 
02.04.19
14:09
В ПриСозданииНаСервере точка входа
4 Вафель
 
02.04.19
14:31
есть пользовательская настройка, какие печ формы из существующих показывать
5 zelyak
 
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
Всем спасибо
8 Gbpltw
 
02.04.19
23:56
(7) есть прекрасно работающий штатный механизм, но свой велосипед с квадратными колесами роднее....
9 Мимохожий Однако
 
03.04.19
06:38
(8) Ты подскажи, где этот велосипед. Я свой уберу в гараж.ОК?