27 lines
948 B
XML
27 lines
948 B
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!--商户红包实时入账-->
|
|
<Function name="InnerMercWithDraw">
|
|
<Input>MERCWITHDRAW_IN|GWA|</Input>
|
|
<Output>MERCWITHDRAW_OUT|MSG_CD|MSG_DAT|</Output>
|
|
<Process>
|
|
<!-- 调用商户账户存入组件，记商户账 -->
|
|
<Exec func="ACM:MercWithdraw">
|
|
<Arg name="_I_GWA" value="GWA" />
|
|
<Arg name="_I_INP_DAT" value="MERCWITHDRAW_IN" />
|
|
<Arg name="_O_OUT_DAT" value="MERCWITHDRAW_OUT" />
|
|
</Exec>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
</Exec>
|
|
<Return />
|
|
</If>
|
|
<Exec func="PUB:CmpAddMsg">
|
|
<Arg name="MsgCd" value="MKM00000" />
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
</Process>
|
|
</Function>
|
|
</Root>
|