【结贴】[请求]取当前操作者**

rzport_jqf

我已经在项目配置里面导入了'系统核心库' 了, 为什么还不识别 TSystemCore ?

代码如下:
procedure TNG.BizFormShow(Sender: TObject);
var
   lDealPerson: String;

begin

  lDealPerson := TSystemCore.Operator.Positions[0].PersonMember.ID;
  Dialogs.ShowMessage( lDealPerson   );

end;

jili02

var
  lContextCurrent: TContextCurrent;
  lOrgUnit: TOrgUnit;
begin
  lContextCurrent := TContextCurrent.Create(Context);
  try
    {得到当前操作者ID}
    if lContextCurrent.Operator <> nil then
      FOperatorID := lContextCurrent.Operator.ID else
      FOperatorID := '';
    if (lContextCurrent.PositionMember <> nil) and (lContextCurrent.PositionMember.Parent <> nil) then
    begin
      {得到当前登录人部门 URL}
      FDeptURL := UpperCase(lContextCurrent.PositionMember.Parent.BizURL.URL);
      {得到当前部门ID}
      FDeptID := lContextCurrent.PositionMember.Parent.ID;
      {得到当前岗位 URL}
      FPositionURL := UpperCase(lContextCurrent.PersonMember.BizURL.URL);
    end
    else
    begin
      FDeptURL := '';
      FDeptID := '';
    end;
  finally
    lContextCurrent.Free;
  end;

Akon

SystemCore.TSystemCore.Operator.Positions[1].PersonID;

shangxy

SYSTEMCORE.TSystemCore.Operator.Positions[0].PersonMember.ID

rzport_jqf

报错了:

lixy

必须初始化运行调试。

rzport_jqf

可以了. 谢谢!