Автоматизация процессов документооборота на предприятии ООО "Пермский фанерный комбинат"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ButtonsNotToShow &
"ClickApprove,"If
Прячем кнопку отказать в утверждении
If InStr(VAR_ButtonsNotToShow & ",", "ClickRefuseApp,") =
Then_ButtonsNotToShow = VAR_ButtonsNotToShow &
"ClickRefuseApp,"IfУтвержден
Показываем кнопки
VAR_ButtonsNotToShow = Replace(VAR_ButtonsNotToShow &
",", "ClickApprove,", "")_ButtonsNotToShow = Replace(VAR_ButtonsNotToShow &
",", "ClickRefuseApp,", "")IfIf.Close Закрываем рекордсет
End If
Файл USERSHOWDOC.ASP - обработка данных перед выводом карточки документа и назначение порядка следования реквизитов карточки документа при просмотре карточки документа.
Этот файл находится в каталоге PayDox\UserASP\ и предназначен для обработки данных перед выводом карточки документа и назначения порядка следования реквизитов карточки документа при выводе.
Используемые переменные:- категория документа- перечень реквизитов карточки документа (полей таблицы Docs)в порядке их вывода в карточке документа
3.Данная настройка запрещает удаление файла через 10 мин после загрузки.
Необходимо запретить пользователям удалять прикрепленные файлы документа, даже если они сами их прикрепили. При этом бывает ситуация, когда прикреплен не тот файл, что нужен, и его нужно сразу удалить и прикрепить новый. Этот пример как раз для такого случая - 10 мин после загрузки файл можно будет удалить, а потом это сможет сделать только администратор.
В настроечный файл UserShowListComments.asp добавляем код:
not IsAdmin() Then Если пользователь не является администратором
If UCase(MyCStr(dsComments("CommentType"))) = "FILE" Then
Комментарий из раздела ФайлыUCase(Left(MyCStr(dsComments("SpecialInfo")) & " ", 4)) <>
"RESP" Then Комментарий не является ответным на другой
комментарийDateDiff("n", dsComments("DateCreation"), Now()) > 10
Then Если комментарий создан более 10 мин назад_CanDeleteComment = "N" запрещаем удалять
комментарий_CanDeleteComment = "" работают системные
правила разрешения удаления
End IfIfIfIf
Файл USERSHOWLISTCOMMENTS.ASP - управление списком вывода записей таблицы comments
Этот файл находится в каталоге PayDox\UserASP\ и предназначен для управления списком вывода записей таблицы Comments, содержащих информацию, выводимую под карточкой документа - комментарии, информацию о файлах документа, историю согласования, исполнения и т.п.
Для управления списком вывода записей таблицы Comments используются следующие переменные:- объект, представляющий рекордсет таблицы Comments для данного документа. Файл UserShowListComments.asp расположен внутри цикла перебора записей таблицы Comments, соответственно курсор рекордсета dsComments последовательно устанавливается на все записи.
Таким образом, анализируя поля текущей записи рекордсета dsComments можно принимать решение о том, показывать ли данную запись текущему пользователю, а также разрешать ли текущему пользователю удалять данную запись.
4.Данный код предназначен для указания запрета редактирования некоторых полей некоторой категории документа для некоторых пользователей.
Код, размещаемый в файле UserChangeDocSetValues.asp:
указываем, что запрет не относится к операции создания документа, а
только к операции редактирования документаRequest("create") <> "y" Then
указываем категорию документа, для которой будем регулировать
право редактирования некоторых полейCurrentClassDoc="Договоры" Then
указываем пользователей с логинами User1 и User2, для которых
будем регулировать право редактирования некоторых полей
If Session("UserID")="User1" or Session("UserID")="User2" Then
указываем, что поле Подразделение запрещено редактировать
(является предустановленным) и его предустановленное значение
равно его текущему значению_Department_Set=S_Department
указываем, что, если текущее значение поля Подразделение
является пустым, то данное поле не показывать пользователю
в форме редактированияS_Department="" Then=""
End If
указываем, что поле Контрагент запрещено редактировать
(является предустановленным) и его предустановленное
значение равно его текущему значению
S_PartnerName_Set=S_PartnerName
указываем, что, если текущее значение поля Контрагент
является
пустым, то данное поле не показывать пользователю в форме
редактированияS_PartnerName="" Then=""
End If
указываем, что поле Приоритет запрещено редактировать
(является предустановленным) и его предустановленное
значение равно его текущему значению_Rank_Set=S_Rank
указываем, что, если текущее значение поля Приоритет
Является
пустым, то данное поле не показывать пользователю в форме
редактированияS_Rank="" Then=""
End If
указываем, что поле Дата исполнения запрещено редактировать
(является предустановленным) и его предустановленное значение
равно его текущему значению_DateCompletion_Set=S_DateCompletion
указываем, что, если текущее значение поля Дата исполнения
является пустым, то данное поле не показывать пользователю
в форме редактированияS_DateCompletion="" Then=""IfIf Session("UserID")="User1" or Session("UserID")="User2"If CurrentClassDoc="Договоры"If Request("create") <> "y"
Файл USERCHANGEDOCSETVALUES.ASP - выбор предустановленных значений полей карточки документа, запрет редактирования некоторых полей карточки документа, назначение порядка следования реквизитов карточки документа при редактировании.
Этот файл находится в каталоге PayDox\UserASP\ и предназначен для кода, задающего определенные значения для карточки документа, которые пользов?/p>