34 lines
1002 B
XML
34 lines
1002 B
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
<!--代收付通过互联网发送邮件-->
|
|
<Function name="SEND_MAL">
|
|
<Input>MAl_ADR|</Input>
|
|
<Output>MSG_CD|</Output>
|
|
<Process>
|
|
<Set>MAl_ADR = $MAl_ADR</Set>
|
|
|
|
|
|
<Exec func="PUB:CallThirdService">
|
|
<Arg name="ObjSvr" value="OCMMPUB1"/>
|
|
<Arg name="HTxnCd" value="0040001"/>
|
|
<Arg name="SRN" value="PAY_REGION" />
|
|
</Exec>
|
|
<If condition="~RetCod=1">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="URM20184"/>
|
|
<!-- @msg接收数据超时 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<If condition="~RetCod=10">
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="URM20185"/>
|
|
<!--@msg 发送失败 -->
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
</Process>
|
|
</Function>
|
|
</Package>
|