形成汇总单后传GUID给审批单
a:=DBWKJH.DataSet.FieldByName('GUID').AsString;
//jsdialogs.ShowMsg(a,'');
TSystemCore.FuncManager.RunFunc(Context, '',
'Biz:\HGOPERATION\WKJHSPD.Func', a , nil, False);
创建审批单后,修改GUID为传递过来的值
q1 := TQuery.Create(nil);
q1.ConnectionString := 'DATABASEURL=Biz:\HGOPERATION\HGOPERATIONDB.Database';
q2 := TQuery.Create(nil);
q2.ConnectionString := 'DATABASEURL=Biz:\HGOPERATION\HGOPERATIONDB.Database';
va := Funcbroker.func.Parameters;
q1.CommandText := 'update XOUTSIDEPLANCHECK set GUID ='''+dsbMaster.DataSet.FieldByName('GUID').AsString+''' where GUID = '''+va+''' ';
q1.Execute;
q2.CommandText := 'update TOUTSIDEPLANCHECK set GUID ='''+dsbMaster.DataSet.FieldByName('GUID').AsString+''' where GUID = '''+va+''' ';
q2.Execute;
dsbMaster.DataSet.Refresh;
q1.Free;
q2.Free; |