38 lines
1.2 KiB
XML
38 lines
1.2 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--检查商户类型-->
|
|
<Function name="CheckMercTyp">
|
|
<Input>MERC_ID|</Input>
|
|
<Output>MSG_CD|</Output>
|
|
|
|
<Process>
|
|
<Set>INP_DAT.MERC_ID=$MERC_ID</Set>
|
|
<!--查询商户信息-->
|
|
<Exec func="URM:QueryMerchInfo">
|
|
<Arg name="_I_INP_DAT" value="INP_DAT"/>
|
|
<Arg name="_O_OUT_DAT" value="INP_OUT"/>
|
|
</Exec>
|
|
<If condition="NOT(IS_SUCC(@O.MSG_CD))"> <!-- 查询商户信息失败 -->
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!-- 检查商户类型是否为营业厅 -->
|
|
<If condition="IS_NOEQUAL_STRING(@O.INP_OUT.MERC_TYP,5)">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="LPS81027"/>
|
|
<Arg name="MsgDat" value="此商户非营业厅商户"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="LPS00000"/>
|
|
</Exec>
|
|
</Process>
|
|
</Function>
|
|
|
|
</Package>
|