[结贴][请求]环境链中没有匹配的隔离级＂Global "？**

xhong

　　有A,B,C三个功能,隔离级都是未定义．A功能是项目列表，通过调用B功能的显示详细信息，B功能中调用C功能判断是否该项目有他人正在访问，没有人访问，C功能调用业务信息写一条占用纪录到数据库．
　　现在的问题是：第一次运行正常，但当关闭B功能窗体，再打开B功能窗体，调用C功能中业务信息执行Append操作时出现异常;异常如下:

xhong

在A中调用B功能:
B:= SYSTEMCORE.TSystemCore.FuncManager.RunFunc(Self.Context,'editMode','Biz:\OPERATION\AMCPMS\fun_CONTRACTINFO.Func',ParameterInit,nil,false);
在B功能中调用C功能
C:= FWCTKZGN.TFWCTKZGN(SYSTEMCORE.TSystemCore.FuncManager.RunFunc(Self.Context,'','Biz:\OPERATION\AMCPMS\FWCTKZGN.Func','',nil,false));

yancm

把您出问题的代码贴出来。

xhong

{*******************************************************
      AppendRecord:
      Describe:----  新建一条资源占用纪录
******************************************************* }
procedure TFWCTKZXX.AppendRecord(ObjID:string;AccType:string);
begin
     try
        DsAccessControl.DisableControls;

        [B] DSAccessControl.Append;[/B]      
  
         DSAccessControl.FieldByName('ObjectID').AsString:=ObjID;

        if not AccType.Equals('') then
           DSAccessControl.FieldByName('AccessType').AsString:=AccType;

        DSAccessControl.FieldByName('AccessIP').AsString:=LocalIP;
        DSAccessControl.FieldByName('Person').AsString:=LoginUser;
        DSAccessControl.FieldByName('LastActionTime').AsDateTime:=DBServerTime;

        DSAccessControl.ApplyUpdates;
     finally
        DsAccessControl.EnableControls;
     end;
end;

运行到这行的时候出错:  DSAccessControl.Append;

yancm

看不出什么问题。您是否设置了自动填充。在自动填充里面使用了系统参数？
还有，您是从studio初始化运行的还是仅仅运行了一个功能？

xhong

从初始化运行的, 主关键字使用了系统参数:创建GUID,

alang

2楼代码，self.context都改成
Context.GetParentContext(BizSys.IL_POSITION)

xhong

alang, 谢谢,按照你说的,问题解决.我还想问一下:为什么第一能正确运行,关闭B功能,在运行的时候会提示上面的错误呢. 我查看了运行环境,第一次运行的时候,在B功能的环境下有C功能,B功能窗体关闭,再打开后,在B功能环境中找不到了C功能,请问这个时候C功能运行在一个什么环境呢？谢谢！

alang

楼主先看看下面两个帖子，是不是就明白了
http://bbs.justep.com/forum.php?mod=viewthread&tid=2357
http://bbs.justep.com/forum.php?mod=viewthread&tid=19153

xhong

谢谢，结账