|

楼主 |
发表于 2008-4-14 16:08:11
|
显示全部楼层
我详细说下我想做什么吧,
我有报警监控功能,功能中有代码如下
if alarmType='1' then
StartAlarmFlow1(alarmId);//启动报警处理1流程
procedure TMAINFORM.StartAlarmFlow1(AFlowIDPram:String);
var
lContextCurrent: TContextCurrent;
AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription:String;
begin
lContextCurrent := TContextCurrent.Create(Self.Context);
ADept:='MSK';//这儿不能写死
ARole:='KY';//这儿不能写死,我想通过代码得到处理流程中启动功能'BJCL1_NEW',的执行人,那么这个用户登录就可以看到待办任务,请问如何写
APerson:='ZengBo';//这儿不能写死,
AFlowUrl:='Biz:\WGXTDEMO\BJCL1LC.Proc';//流程处理1
ASubject:='代码启动报警处理1';
ADescription:='代码启动报警处理1描述';
AStartProc:='BJCL1_NEW'; //流程入口功能ID
AFlowID:=AFlowIDPram;
try
UserStartFlow (AFlowUrl,ADept,ARole,APerson,AStartProc,AFlowID,ASubject,ADescription);
finally
lContextCurrent.Free;
end;
end;
根据你的回复:我写成
ADept:='MSK';
ARole:='KY';
APerson:='ZengBo';//若可以得到,AOrgBizURLS,一会儿改
Org.OrgSys.OrgSystem.GetBizURLsByOrgExpr(Org.OrgExpr.OrgSelect(OrgExpr.OrgCondition('','',:OrgUnit.FuncRef = 'Biz:\WGXTDEMO\BJCL1_new.Func')),AOrgBizURLs);
jsDialogs.ShowMsg(AOrgBizURLs.Text,'org');
编译出错
[错误]Biz:\WGXTDEMO\WGXT_NEW\BJJKGN_NEW.FUNC.DIR\MainForm.Form.pas(80, 93): line 80: unexpected token: :
请问是如何写呢?或其它方法实现,
谢谢! |
|