【结帖】看看这个问题是怎么回事**

hanjason996

出现了这样的问题，我没有定义任何隔离级出现的错误。我想问问是不是我用了2个环境产生的。我是想在流程流转的时候修改数据集字段里的内容。第一次在流程代码里声明了数据集环境。利用参数写进入简表数据集里的票据编码。获得参数值又声明了一个环境。
  怎么解决这个问题啊？请指教

hanjason996

程序运行到系统函数库的某一行 出现这样的错误

zfang

http://bbs.justep.com/forum.php?mod=viewthread&tid=23788

hanjason996

var
  lFunc: TFunc;
  lMainForm: TForm;
  lDataSet: TDataSet;
begin
  lFunc := Command.FlowControl.Func;
  //功能的主窗体属性
  lMainForm := ObjectHelper.GetPropertyValue(lFunc, 'MainForm', []) as TForm;
  //窗体上的数据集代理
  lDataSet := (ObjectHelper.GetFieldValue(lMainForm, 'DataSetBroker1') as TDataSetBroker).DataSet;
  Dialogs.ShowMessage(lDataSet.Fields[0].AsString);
end;


这个是在哪写的？流程里？我声明的form为啥说是Undeclared identifier

zfang

看下帮助。

hanjason996

我按照16楼的方法做了，还有这个错误
感觉一读取参数就出错
代码如下：
procedure TNBLLLC.ProcUnitNBLL_SHAfterFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
i:Integer;
lConn:TConnection;
lSQL: String;
iParam:Business.Model.TBizParam;
Pjbm:string;
iBizURL:TBizURL;
nblldbm:string;
begin
  iBizURL:=TBizURL.Create;
  lConn := TConnection.Create(nil);
  try
    iBizURL.URL:='Biz:\ZKJTWZGLXT\DJBHCSZ.ParamGroup';
    iParam:=SystemUtils.TContextUtils.GetParam(Self.Context,iBizURL,'NBLLDBM');
  Pjbm:=Variants.VarToStr(iParam.Value);
  nblldbm:=Command.FlowControl.Flow.ID;
  lConn.ConnectionString := 'DATABASEURL=Biz:\ZKJTWZGLXT\WZGLSJK.Database';
  lConn.Transaction := Command.FlowControl.Transaction;
  lSQL := 'Update NBLLDJB set PJBM='''+Pjbm+''' where nblldbm='''+nblldbm+'''';
  for i:=0 to Command.FlowControl.Flow.IDs.Count-1 do
    begin
       lConn.ExecuteSQL(lSQL);
    end;
    finally
    IBizURL.Free;
    iParam.Free;
    lConn.Free;
    end;

zfang

看看你当前的环境。

hanjason996

按照方老师的方法解决了，谢谢 结贴