21楼,这段代码
urls:=TStringList.Create();
//只有主任(ZR) 副主任(FZR) 才有权限查看
OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgChildren(OrgKey('+ADept+',''FZR'', '''') , OrgCondition(''*.psm'', '''', ''''), True, False) or OrgChildren(OrgKey('+ADept+',''ZR'', '''') , OrgCondition(''*.psm'', '''', ''''), True, False)',urls);
// OrgSys.OrgSystem.GetBizURLsByOrgExpr('OrgChildren(OrgKey('''',''FZR'', '''') , OrgCondition(''*.psm'', '''', ''''), True, False) or OrgChildren(OrgKey('''',''ZR'', '''') , OrgCondition(''*.psm'', '''', ''''), True, False)',urls);
//Memo1.Text:='OrgChildren(OrgKey('+ADept+',''FZR'', '''') , OrgCondition(''*.psm'', '''', ''''), True, False) or OrgChildren(OrgKey('+ADept+',''ZR'', '''') , OrgCondition(''*.psm'', '''', ''''), True, False)';
// Memo1.Lines.Add(urls.Text);
urls.Free;
你可以把 urls显示出来看看,比如放个memo用于表现
memo1.lines.addstrings(urls);
看是否 是你所要的 主任或者副主任。如果是,那么 下面的代码中 利用上那个urls而不是直接给那个传入进来的三个参数
lFlowControl.FlowRunnerByIndex[0].CurrentTask.subject:=StrSubject;//这是任务主题
lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverDeptID := ADept;//传入接收者的部门ID
lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverPositionID :=ARole;// Business.Model.Org.OrgExpr.OrgKey(ADept, 'FZR', '')+'OR'+Business.Model.Org.OrgExpr.OrgKey(ADept, 'ZR', '');//岗位; //传入接收者的岗位ID
lFlowControl.FlowRunnerByIndex[0].CurrentTask.TaskMessages[0].ReceiverID :=APerson; //传入接收者的人员ID |