【搞定】阜阳升级后问题**

comqing · 发表于 2007-6-18 17:41:35

1如何禁用用户在任务上的"取回"权限,

2使用以下JSP进入X3后,直接关闭IE时报错.如果注销提示"不能注销",直接关闭IE报错信息如附图

<%@ page contentType="text/html; charset=GBK" %>
<%@ page import="com.justep.loader.LibContext"%>
<%@ page import="java.lang.reflect.Method" %>
<%
Class pclass = LibContext.getInstance().getLoader().loadClass("com.justep.web.SysServerProvider");
Object pobj = pclass.newInstance();
Method getBXClassIDMethod = pclass.getMethod("getBXClassID",new Class[]{});
Method getBXCodeMethod = pclass.getMethod("getBXCodebase",new Class[]{});
Method getSysServerURLMethod = pclass.getMethod("getSysServerURL",new Class[]{});

String classId = (String)getBXClassIDMethod.invoke(pobj,new Object[]{});
String codeBase = (String)getBXCodeMethod.invoke(pobj,new Object[]{});
String url = (String)getSysServerURLMethod.invoke(pobj,new Object[]{});
%>
<%
String username = request.getParameter("username");
String password = request.getParameter("password");
%>

<HTML>

<HEAD>
<title>>X3 协同管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>

<BODY leftmargin="0" topmargin="0" scroll="no">

<OBJECT  id = "X3X"
      classid="<%= classId%>"
   codebase="<%= codeBase%>"
      width="100%"
      height="100%"
      align=center
      hspace=0
      vspace=0
>
</OBJECT>

<object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
</object>

<script ID="BusinessCloseEventHandler" language="javascript" FOR="BusinessX" EVENT="OnTerminate">
  WebBrowser.ExecWB(45,1); // close window
</script>

<script type="text/javascript">
var username = "<%=username%>";
var pwd = "<%=password%>";
  function BeforeClose()
  {
if(!X3X.TerminateQuery())
{
   event.returnValue = "";
}
  }

  document.title = X3X.DisplayName;
  X3X.ServerURL = "<%= url%>"
  X3X.ShowSplash();
  X3X.UpdateVersion();
  X3X.Init();
  X3X.CloseSplash();

  X3X.Logon(username,pwd);

  X3X.Run("Biz:\System\Init.Func", "", "", "");
  document.body.onbeforeunload=BeforeClose;
  document.title = X3X.DisplayName;

</script>
</BODY>
</HTML>

lisb · 发表于 2007-6-18 17:47:16

问题1
修改业务模型\协同系统\任务\任务中心信息注销下面一句，注意改好后编译，签入，刷新缓存

procedure TTaskOperations.AddDefaultBizOperations(var OperatorBizOperations: TStrings);
begin
  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\Open.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\Process.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FlowOut.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FlowBack.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\Abort.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\Finish.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\PlanOperationGroup.OperationGroup\ReadFinish.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\PlanOperationGroup.OperationGroup\AllocEdit.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\PlanOperationGroup.OperationGroup\Agree.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\PlanOperationGroup.OperationGroup\UnAgree.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\PlanOperationGroup.OperationGroup\Report.Operation');
//  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\FetchBack.Operation');
  OperatorBizOperations.Add('Biz:\COLLABORATION\TaskOptionGroup.OperationGroup\Del.Operation');
end;

问题2，我们再测试一下

lisb · 发表于 2007-6-19 10:19:21

问题2
按下面修改业务模型\系统空间\系统运行库\系统核心库中的一个函数，注意修改完后编译、签入、刷新缓存

static procedure TSYSTEMCORE.SetOperator(AOperator: TOperator);
begin
  if not FCanRelogon or (FOperator <> nil) then
raise Exception.Create('已经登录');

  FOperator := AOperator;

  FSetOperator := True;
  //FCanRelogon := Borland.Delphi.Windows.GetModuleHandle('rtdbg.dll') <> 0;
  FCanRelogon := True;
end;

pingeo · 发表于 2007-6-27 12:47:39

多谢,结了吧!

		自动登录	找回密码
密码			立即注册

【搞定】阜阳升级后问题**

好使!多谢!