前端的ext:
function getRelate(){
var MoldCataNum = document . getElementById ( "MoldCataNum" ) . value ;var MoldCataName = document . getElementById ( "MoldCataName" ) . value ;
var url = "/bpm/linkey_workflow_engine.nsf/WF_RunRule?openagent&RuleNum=RUS010_0001" ;
Ext . Ajax . request ( {
url : url ,
succss : function ( action , response ) {
alert ( "success" ) ;
} ,
failure : function ( ) { alert ( "URL Error." ) } ,
params : {
MoldCataNum : MoldCataNum ,
MoldCataName : MoldCataName ,
}
} )
}
规则(lotuscript)
Sub Initialize
On Error Goto errormsg
dim sql as string
dim fldLst as new lcfieldList
dim doc as notesdocument
MoldCataNum=WF_Document.MoldCataNum(0)
MoldCataName=WF_Document.MoldCataName(0)
sql="insert into S010_MoldCata(MoldCataNum,MoldCataName)values('"+MoldCataNum+"','"+MoldCataName+"')"
call rdb.Connect()
call rdb.Connect()
call WF_Con.execute(sql,fldLst) '对数据到数据集fldLst中去
msgbox "插入成功"
Exit Sub
errormsg:
Msgbox "Rule Error:" & Str(Erl) & " " & Error
End Sub