procedure TPLANNAV.actDetailExecute(Sender: TObject);
begin
TSystemCore.FuncManager.RunFunc(Context, '', 'Biz:\COLLABORATION\PlanCenterFunc.Func',
SysUtils.Format('-vvmPlanDetail -l%s -p', [PlanDataSet.FieldByName('FPlanID').AsString]), False, nil, False);
end;
参考
SysUtils.Format('-vvmPlanDetail -l%s -p', [PlanDataSet.FieldByName('FPlanID').AsString]),这个就是用来过滤的,有关-vvmPlanDetail -l%s -p'这个参数是由功能本身来解析的,具体可以参考计划中心窗体的代码。 |