Переключение на Главную Страницу Страницы: 1 ОтправитьПечать
Обычная тема Программный аналог кнопки Просмотр (число прочтений - 2654 )
vivm
Full Member
***
Отсутствует



Сообщений: 159
Местоположение: Новосибирск
Зарегистрирован: 26. Мая 2006
Пол: Мужской
Программный аналог кнопки Просмотр
23. Августа 2007 :: 03:18
Печать  
При открытии документа из журнала документ блокируется для изменений. Если в процедуре ПриОткрытии() поставить Форма.ТолькоПросмотр(1) изменить документ будет нельзя, а документ все равно блокируется. Т.е. если кто-то ещё попытается открыть его, он получит сообщение «Запись заблокирована».

Если нажать кнопку «Просмотр» на панели инструментов, документ в этом случае не блокируется.

Вопрос – как сделать, чтобы по умолчанию документы из журнала открывались без блокировки, а при нажатии кнопки – открывался для редактирования?
  
Наверх
ICQ  
IP записан
 
trad
1c++ power user
1c++ donor
1c++ moderator
Отсутствует



Сообщений: 3051
Местоположение: Киров
Зарегистрирован: 23. Мая 2006
Пол: Мужской
Re: Программный аналог кнопки Просмотр
Ответ #1 - 23. Августа 2007 :: 04:50
Печать  
vivm писал(а) 23. Августа 2007 :: 03:18:
Вопрос – как сделать, чтобы по умолчанию документы из журнала открывались без блокировки
Сервис - Параметры - Общие - Режим открытия объектов
(но это будет касаться всех объектов)

vivm писал(а) 23. Августа 2007 :: 03:18:
а при нажатии кнопки – открывался для редактирования?
ОткрытьФорму(ТекущийДокумент, , 0)
  

1&&2&&3
Наверх
 
IP записан
 
vivm
Full Member
***
Отсутствует



Сообщений: 159
Местоположение: Новосибирск
Зарегистрирован: 26. Мая 2006
Пол: Мужской
Re: Программный аналог кнопки Просмотр
Ответ #2 - 23. Августа 2007 :: 05:00
Печать  
Век живи век учись  Улыбка спасибо Тоже вариант

При установке доступа у каждого юзера можно прописать вручную. И он же это может исправить. Какие нибудь программные проверки этой настройки и возможность её установки есть?
  
Наверх
ICQ  
IP записан
 
artbear
1c++ developer
1c++ moderator
Отсутствует


Эх, дайте что-нибудь новенькое
да полезное потести

Сообщений: 6303
Местоположение: Москва
Зарегистрирован: 19. Мая 2006
Пол: Мужской
Re: Программный аналог кнопки Просмотр
Ответ #3 - 23. Августа 2007 :: 05:08
Печать  
Есть ВК от trad, которая может управлять настройками профиля пользователя на лету.
Цитата:
V7AppProfile.dll - ВК для 1С:Предприятие 7.7
Автор Трапезников Дмитрий (trad)
Copyright (c) 2007
//////////////////////////////////////////////////////////////////////

Описание ВК:
ВК реализует объект ПрофильПриложения.
Объект предназначен для доступа к нокоторым настройкам параметров системы 1С:Предприятие
Часть этих настроек расположены например в диалоге "Настройка параметров системы" (Меню: Сервис-Параметры).
Настройки собраны в коллекцию атрибутов объекта ПрофильПриложения.
Атрибуты доступны как для чтения так и для записи.
Объект ПрофильПриложения так же может иметь подпрофили отражающие некоторые подсистемы 1С:Предприятия.

Прямой линк http://dev.citykirov.ru/v7appProfile.zip

А еще лучше найди на форуме тему об этой ВК

ЗЫ Кстати, автор ВК тебе и отвечал Улыбка
  

OpenConf developer :: http://openconf.1cpp.ru&&FormEx developer :: http://formex.dorex.ru&&1C++ active developer && tester :: www.1cpp.ru
Наверх
GTalkSkype/VoIPICQ  
IP записан
 
vivm
Full Member
***
Отсутствует



Сообщений: 159
Местоположение: Новосибирск
Зарегистрирован: 26. Мая 2006
Пол: Мужской
Re: Программный аналог кнопки Просмотр
Ответ #4 - 23. Августа 2007 :: 06:36
Печать  
artbear писал(а) 23. Августа 2007 :: 05:08:
Прямой линк http://dev.citykirov.ru/v7appProfile.zip

А еще лучше найди на форуме тему об этой ВК

ЗЫ Кстати, автор ВК тебе и отвечал Улыбка


ну тогда спасибо автору за замечательный инструмент! Попробовал, понравилось
  
Наверх
ICQ  
IP записан
 
vivm
Full Member
***
Отсутствует



Сообщений: 159
Местоположение: Новосибирск
Зарегистрирован: 26. Мая 2006
Пол: Мужской
Re: Программный аналог кнопки Просмотр
Ответ #5 - 23. Августа 2007 :: 08:21
Печать  
А вот и код, может пригодится кому:

[code]Попытка
     ЗагрузитьВнешнююКомпоненту("V7AppProfile.dll");
     Профиль=СоздатьОбъект("ПрофильПриложения");
     Профиль.Атрибуты.ObjOpenMode=1;
     Профиль="";
Исключение
     Если глПользователь.Наименование="Админ" Тогда
           Предупреждение("Не удалось загрузить компоненту редактирования профилей");
     КонецЕсли;
КонецПопытки;[/code]
  
Наверх
ICQ  
IP записан
 
Переключение на Главную Страницу Страницы: 1
ОтправитьПечать