IFS8.2、安全检查点介绍、开发与配置

来源：互联网发布：jsp导入java类编辑：程序博客网时间：2024/06/07 11:38

安全检查点

安全检查点用于在业务流程中，进行相关操作的时候，触发安全检查，要求输入用户验证信息，备注信息，验证成功后进行下一步操作。二次安全验证。

作用：防止电脑未关闭IFS应用时，其他人通过该电脑未关闭的IFS应用进行非法操作。

流程：

打开安全检查点：ifswin:Ifs.Application.SecurityCheckpointAdministration.SetUp

方法和类型里其它选项需要额外的扩展包。

开发：

新建安全检查点

PL/SQL调用完成验证

DECLARE

Gate_Msg_ VARCHAR2(2000);

BEGIN

Gate_Msg_ := Message_Sys.Construct('SECURITY_CHECKPOINT');

Message_Sys.Set_Attribute(Gate_Msg_, 'PERSON_ID',Person_Info_Api.Get_Id_For_User(Fnd_Session_API.Get_Fnd_User));

Message_Sys.Set_Attribute(Gate_Msg_, 'DOC_CLASS', rec_.doc_class);

Message_Sys.Set_Attribute(Gate_Msg_, 'DOC_NO', rec_.doc_no);

Message_Sys.Set_Attribute(Gate_Msg_, 'DOC_SHEET', rec_.doc_sheet);

Message_Sys.Set_Attribute(Gate_Msg_, 'DOC_REV', rec_.doc_rev);

Security_Sys.Security_Checkpoint('DOCMAN_DOC_REV_SET_TO_APPROVED', Gate_Msg_);

END;

也可以导出安全检查点(INS文件)，然后发布：

-----------------------------------------------------------------------------

-- Registering Security Checkpoints

-----------------------------------------------------------------------------

PROMPT =======> Registering Security Checkpoint Gate "DOCMAN_DOC_REV_SET_TO_APPROVED"

DECLARE

   Gate_Id_  VARCHAR2(1000) := 'DOCMAN_DOC_REV_SET_TO_APPROVED';

   Info_Msg_ VARCHAR2(32000) := '';

   Par_Msg_  VARCHAR2(32000) := '';

BEGIN

   -- Construct Main Message

   Info_Msg_ := Message_Sys.Construct('GATE');

   Message_Sys.Add_Attribute(Info_Msg_, 'DESCRIPTION', 'Used when approving a Document Revision');

   Message_Sys.Add_Attribute(Info_Msg_, 'MESSAGE', 'Person &PERSON_ID approved Document Revision &DOC_CLASS-&DOC_NO-&DOC_SHEET-&DOC_REV');

   Message_Sys.Add_Attribute(Info_Msg_, 'ACTIVE_DB', 'TRUE');

   -- Adding parameters

   -- Construct Parameter Message

   Par_Msg_ := Message_Sys.Construct('PARAMETERS');

   Message_Sys.Add_Attribute(Par_Msg_, 'FNDUSER', 'STRING');

   Message_Sys.Add_Attribute(Par_Msg_, 'PERSON_ID', 'STRING');

   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_CLASS', 'STRING');

   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_NO', 'STRING');

   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_SHEET', 'STRING');

   Message_Sys.Add_Attribute(Par_Msg_, 'DOC_REV', 'STRING');

   -- Add Parameters message to main message

   Message_Sys.Add_Attribute(Info_Msg_, 'PARAMETERS', Par_Msg_);

   -- Register Security Checkpoint Gate

   Sec_Checkpoint_Gate_Api.Register(Gate_Id_, Info_Msg_);

END;

参数类型仅支持STRING, NUMBER or DATE.

安全检查点日志：

记录所有通过安全检查点的记录。标准message、时间、备注等信息。

0 0