【搞定】流程提交时出错，流程锁定，如何处理？**

wangcl

流程提交时出错，流程锁定，如何处理？
  系统建立流程时曾经出错，系统提示：
    创建业务对象“业务模型\南瑞继保业务空间\工程服务提交流程\提交工程服务联系单\工程服务联系单(BIZ:\NRJBYWKJ\GCFWTJLC\TJKHFWLXD.FUNC.dir\KHFWLXD.Form)”时发生了错误。错误信息：正在提交
             确定按钮

   此时其他用户也不能进行提交，将业务数据删除也不能解决。

  请问，如何解决。

alang

请楼主提供这个窗体上的代码看看

wangcl

unit KHFWLXD;

interface

uses
  Business.System, Business.Model, Business.Forms, Business.Model.Flow,
  Business.Data;

type
  TKHFWLXD = class(TForm)
    FuncBroker: TFuncBroker;
    InfoBrokerKHFWGZLXD: TInfoBroker;
    ControlBar: TControlBar;
    DataNavigator: TDataNavigator;
    DocViewBar: TDocViewBar;
    Panel: TPanel;
    FlowBroker1: TFlowBroker;
    DataSetBroker1: TDataSetBroker;
    DataSetBroker2: TDataSetBroker;
    DocView1: TDocView;
    procedure BizFormCreate(Sender: TObject);
    procedure FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
    procedure DataSetBroker2DataChange(Sender: TObject; Field: TDataField);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TKHFWLXD.BizFormCreate(Sender: TObject);
var
    lString : string;
    lParam: TBizParam;
    lBizURL: TBizURL;
begin
//   DocViewKHFWGZLXD_KHFWGZD.Info.DataSetByID('KHFWD').Open();
   DataSetBroker2.DataSet.Open();
   DataSetBroker1.DataSet.Open();

//   lString := DataSetBroker1.DataSet.FieldByName('FID').AsString;
   lString := DataSetBroker1.DataSet.FieldByName('ETELPHONE1').AsString;

    lBizURL := TBizURL.Create;
    try
        lBizURL.URL := 'Biz:\NRJBYWKJ\GCFWCSZ.ParamGroup';
        lParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL.URL, 'LCBZ');
        // Dialogs.ShowMessage(lParam.Value.ToString);

        if( lParam.Value.ToString = '1') then
          begin
            if(DataSetBroker2.DataSet.FieldByName('DH').AsString = '') then
              begin
                DataSetBroker2.DataSet.FieldByName('DH').AsString := lString;
              end
          end
    finally
        lBizURL.Free;
    end;

    DataSetBroker2.DataSet.ApplyUpdates;


end;

procedure TKHFWLXD.FlowBroker1BeforeFlowOut(Sender: TObject; Command: TFlowOutCommand);
var
    lParam: TBizParam;
    lBizURL: TBizURL;
begin
//   DocViewKHFWGZLXD_KHFWGZD.Info.DataSetByID('KHFWD').ApplyUpdates;
    DataSetBroker2.DataSet.ApplyUpdates;

    lBizURL := TBizURL.Create;
    try
        lBizURL.URL := 'Biz:\NRJBYWKJ\GCFWCSZ.ParamGroup';
        lParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL.URL, 'SWSHR');
        lParam.Value := DataSetBroker2.DataSet.FieldByName('SWQRR').AsString;
    finally
        lBizURL.Free;
    end;

    //Dialogs.ShowMessage( DataSetBroker2.DataSet.FieldByName('SWQRR').AsString );
end;

procedure TKHFWLXD.DataSetBroker2DataChange(Sender: TObject; Field: TDataField);
var
    lParam: TBizParam;
    lBizURL: TBizURL;
begin

    //Dialogs.ShowMessage( 'OnDataChange' );
    //Dialogs.ShowMessage( 'Value = ' + DataSetBroker2.DataSet.FieldByName('SWQRR').AsString);

//    lBizURL := TBizURL.Create;
//    try
//        lBizURL.URL := 'Biz:\NRJBYWKJ\GCFWCSZ.ParamGroup';
//        lParam := SystemUtils.TContextUtils.GetParam(Context, lBizURL.URL, 'SWSHR');
//        lParam.Value := DataSetBroker2.DataSet.FieldByName('SWQRR').AsString;
//    finally
//        lBizURL.Free;
//    end;
    DataSetBroker2.DataSet.ApplyUpdates;

end;

end.

alang

楼主是不是用的2800版本？

wangcl

是的

wangcl

程序中去掉ApplyUpdates后，上述错误消失。又有另一个问题：只有一个用户，进行保存后，再修改保存，会有invoke batch mode error, error occur during invoke ApplyUpdates method, Record not found or change by another user, 错误信息。

alang

请楼主用原来给你的2800版本重新下载一次，这个目录替换成了2809版本，你用这个版本的Studio连到你现在的服务器上，调试一下看看

alang

好了吗？

Akon

由于楼主长时间未跟贴,此帖先结,有问题请开新帖.