第一个问题,流程不能流转的问题
你在项目信息中的runfunc是
procedure TXMXXForm.RunFunc(const aFuncURL,AParam: String);
begin //Context.GetParentContext(BizSys.IL_POSITION ) //
SystemCore.TSystemCore.FuncManager.RunFunc(Context.GetParentContext(BizSys.IL_POSITION ),aFuncURL+AParam , aFuncURL,
AParam, nil, False);
end;
在 重点建设项目进度跟踪管理 中,是
procedure TXMJDGZGLForm.actSBExecute(Sender: TObject);
const
CSB_FUNCURL_JS:string='Biz:\DDB\ZDJSXMJDGZSBFUNC.Func';
CSB_FUNCURL_QQ:string='Biz:\DDB\ZDQQXMJDGZSB.Func';
// CSB_FUNCURL_QQ:string='Biz:\DDB\FJ_1_ZDJSXMJDGZSB.Func'; //FJ_1_ZDJSXMJDGZSB
var
lJHID,lURL:String;
lXMZT:integer;
begin
if Dsb_xmjd.dataset.isEmpty then exit;
lXMZT:= Dsb_xmxx.dataset.fieldByName('XMZT').asInteger;
if lXMZT=10 then lURL:=CSB_FUNCURL_QQ else lURL:=CSB_FUNCURL_JS;
lJHID:=Dsb_xmjd.dataset.fieldByName('ID').asString;
sysfuncLib.TFunJustep.runFunc(context,lURL,lJHID);
end;
这里的runfunc是
static procedure TFunJustep.RunFunc(aContext:TContext;const aFuncURL,AParam: String);
begin //Context.GetParentContext(BizSys.IL_POSITION ) //
SystemCore.TSystemCore.FuncManager.RunFunc(aContext,aFuncURL+AParam , aFuncURL,
AParam, nil, False);
end;
两个runfunc的区别在于,一个是找到岗位环境来运行的,一个是直接在功能环境运行的,其实你只要在运行到这里,打开 对象查看器 ,看看环境链就知道了 |