【结贴】隔离级不存在

xjc

1.我在简洁风格/窗体库/标准风格窗体
在界面住窗体SHOW的时候
下面会出错隔离级不存在
var
lContextCurrent: Business.Model.TContextCurrent;
id:String;
begin
lContextCurrent := Business.Model.TContextCurrent.Create(Self.Context);
id:=lContextCurrent.Organ.ID;   
end;

但是我其他自己的功能里面用了就没有问题,请问为什么?

lixy

用标准风格窗体的
function TSTANDARDSTYLEMAINFORM.GetRealContext: TContext;  
获得context。楼主可以在这个文件搜索下这个函数

xjc

lContextCurrent := Business.Model.TContextCurrent.Create(GetRealContext);

这样还是不存在呢?

jiahaiming

请提供错误截图

xjc

整个代码 变量和下段是我加的代码(主要是想根据不同机构的人登陆进去换张图片)
var
lContextCurrent: Business.Model.TContextCurrent;
id : String;
jpeg:tjpegimage;
stream :TMemoryStream;
strFilter:String;
begin
  FRelevancyNavBarMessageHandler :=  TShowRelevancyNavBarMessageHandler.Create(Self);
  // TODO: 这里挂接到了全局环境
  Context.GetParentContext(BizSys.IL_GLOBAL).AddMessageHandler(TShowRelevancyNavBarMessage.GetName, FRelevancyNavBarMessageHandler);
  RunFirstFuncTimer.Enabled := True;
  if not Opr.IsSystemManager(TSystemCore.Operator.ID) then
    DelayRunFuncsTimer.Enabled := True;
  InitFuncTreeTabs;
  RunIM(False);




lContextCurrent := Business.Model.TContextCurrent.Create(GetRealContext);
  Business.Forms.dialogs.ShowMessage('11111111');
try

  id:=lContextCurrent.Organ.ID;//这句出错
    strFilter:='id ='''+id+'''' ;
       TSqlDataSet(DataSetBrokerpicture.DataSet).SQLFilter :=strFilter;
       DataSetBrokerpicture.DataSet.Refresh;
        jpeg:=tjpegimage.Create;
        stream   :=TMemoryStream.Create;
       tblobfield(DataSetBrokerpicture.DataSet.FieldByName('pic')).savetostream(stream);
       stream.Position:=0;
  jpeg.loadfromstream(stream);
  imgTitle.Picture.Assign(jpeg);
  jpeg.Free;
  stream.Free;
       finally
    lContextCurrent.Free;
  end;









end;

lixy

。。。

xjc

这个能得到部门的ID 怎么得到机构呢?我看了不知道函数

xjc

TContextUtils.GetOperator(GetRealContext).DefaultPosition.DeptID;

这个能得到.

怎么6楼把先的可以得到部门ID的编辑没有了 呵呵
麻烦解决下哈

gaihl

{ 根据指定岗位获取机构 }
static function TOrgUtils.GetOrgan(APosition: TOperatorPosition): TDept; overload;

    id := TOrgUtils.GetOrgan(TContextUtils.GetOperator(GetRealContext).DefaultPosition).ID

xjc

OK 谢谢,,