【结账】[问题]环境链中没有匹配的隔离级“FUNC".**

rzport_wd

我的隔离级都是 未定义。

alang

楼主请把完整代码贴出来看看

rzport_wd

在一个文档中定义的
procedure TYSJHGGDDBSH.SheetDocCreate(Sender: TObject);
var
   lParam:Business.Model.TBizParam;
   lBizURL:TBizURL;
begin

    lBizURL := TBizURL.Create;
    lBizURL.URL := 'Biz:\YWKJ_FY\LYYWCSZ.PARAMGROUP';
    lParam := SystemUtils.TContextUtils.GetParam(self.Context,lBizURL,'DQXW');
    lParam.Value := DataSetBrokerLLYSJHSJJ.DataSet.FieldByName('jhbh').AsString;
    dialogs.ShowMessage(Variants.VarToStr(lParam.Value));
    lBizURL.Free;//释放行为

end;

在流程中定义的
procedure TYSJHGGLC.ProcUnitYSJHGGDDBSPBeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
   lParam:Business.Model.TBizParam;
   lBizURL:TBizURL;
   lQuery :TQuery;
begin
     lBizURL := TBizURL.Create;
     lBizURL.URL := 'Biz:\YWKJ_FY\LYYWCSZ.PARAMGROUP';
     lParam := SystemUtils.TContextUtils.GetParam(self.Context,lBizURL,'DQXW');
     MyAction := Variants.VarToStr(lParam.Value);
     lBizURL.Free;
  lQuery:= TQuery.Create(Self);
  lQuery.ConnectionString := 'DATABASEURL=Biz:\YWKJ_FY\SJK.DATABASE';
  lQuery.CommandText := 'update LLLYS set SFYX=''计划更改'' where jhbh='''+MyAction+'''';
  lQuery.Execute;
  lQuery.CommandText := 'update mt_lujhgg set SFGG=''计划更改'' where jhbh='''+MyAction+'''';
  lQuery.Execute;
end;

rzport_wd

不能这样使用？

lixy

http://bbs.justep.com/forum.php? ... hlight=%C1%F7%B3%CC

参考15楼

rzport_wd

解决。。。。
没有想到可以取当前流程的流程字段。
我使用Command.FlowControl.Flow.ID 解决了我的需求。
3Q，，，结帐：）