我这样取操作人员所在的部门编号时,如果操作人员在登陆时未选择岗位信息就会出现隔离级不存在的提示,这个如何解决呀
function TSJWG1.getoperatorDep():string;
var
lParam: TBizParam;
lBizURL: TBizURL;
intZ,intx:integer;
// context:TContextCurrent;
begin
// context:=TContextCurrent.Create(self.Context);
// result:=context.Dept.ID;
lBizURL := TBizURL.Create;
try
lBizURL.URL := 'Biz:\SYSTEM\ORGPARAMS.PARAMGROUP';
lParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL, 'DeptID');
Result :=Variants.VarToStr(lParam.Value);
finally
lBizURL.Free;
end;
//result:=SystemCore.TSystemCore. .Operator. .Operator.ID;
end; |