【搞定】2617中关于取当前操作者岗位的疑问**

jiahaiminghr

TSystemCore.FuncManager.RunFunc(FDefaultPosition.Context, '',
  'Biz:\COLLABORATION\JUSTEPNOTEBOOK.FUNC', '', False, nil, False);

这一句中的FDefaultPosition.Context参数有问题。

你在运行功能时，为功能指定的环境不是当前登录岗位的环境。

linjiawei

TSystemCore.FuncManager.RunFunc(FDefaultPosition.Context, '',
  'Biz:\COLLABORATION\JUSTEPNOTEBOOK.FUNC', '', False, nil, False);
上面是写在主界面的，
那应该怎么传就正确了？

linjiawei

我将一个功能分配到部门上，登陆时如果选择第二个岗位，在“业务功能”面板上没有显示出该功能，而如果选择“自动”或者是第一个岗位，怎么又可以现出该功能？
组织机构如下：

jiahaiminghr

抱歉，楼主。11楼我搞错了。FDefaultPosition在主界面里就是记录的当前登录的岗位。
  // 不舒服，暂时这样
  FDefaultPosition := nil;
  if TSystemLoginDialog.GetPersonMember <> nil then
    for I := 0 to TSystemCore.Operator.PositionCount - 1 do
      if TSystemCore.Operator.Positions[I].PersonMember = TSystemLoginDialog.GetPersonMember then
      begin
        FDefaultPosition := TSystemCore.Operator.Positions[I];
        Break;
      end;
在选择自动登录时，FDefaultPosition 是空值。

TSystemLoginDialog.GetPersonMember返回了登录时在登录对话框中选择的岗位。

并且，我用你12楼的方法启动一个功能后，也可以取到正确的岗位ID。

linjiawei

先看13楼的问题，和这个有关系。

所有的测试前提是在多岗位的环境下，用的登录用户也是第二个岗位下的用户（不要用自动或者第一个岗位下的用户）。你再测试一下看看。

jiahaiminghr

13楼问题没有遇到过，比较奇怪，正在找原因。

取岗位的测试，我是用的多岗位。并且测试了每一个岗位，包括自动的情况。
结果是只有自动时有问题（此时FDefaultPosition ＝nil），其他都正常。

linjiawei

13楼的问题重现了，这个问题也就可以重现了

linjiawei

?

jiahaiminghr

楼主，请确认：
1、你系统空间的内容是否修改过

2、如果没有修改，那么你重新初始化一个新的系统，会有这个问题吗？

3、你现在的版本是多少

linjiawei

我目前就是在初始化里测试的，啥也没有修改。版本号2617 (3.0.6.7)