46 lines
1.9 KiB
XML
46 lines
1.9 KiB
XML
<?xml version="1.0" encoding='UTF-8'?>
|
|
<Root>
|
|
<!-- 查询移动交易服务费待分润信息 -->
|
|
<Transaction code="BUI020101" desc="Get corg" log_switch="1">
|
|
<DynSentence name="QRY_PSMTPFSH_PFSH">
|
|
<Sentence>
|
|
SELECT CHG_FEE_DT,MERC_FEE_MOD,CHG_FEE_FLG,JRN_NO,MERC_TYP,MERC_ID,
|
|
CLR_MERC,MERC_PROV,MERC_CITY,MERC_CITY_NM,USR_PROV,USR_CITY,
|
|
USR_CITY_NM,USR_NO,MBL_NO,ORD_NO,ORD_TYP,FEE_DRT_FLG,ORD_CAP_TYP,
|
|
TOT_ORD_AMT,MERC_CLR_AMT,TOT_FEE_AMT,TOT_TX_NUM,TOT_ORD_NUM,FEE_DT,
|
|
SPLT_DT,AGENT_MERC_ID,USR_SPLT_AMT,MERC_SPLT_AMT,AGT_SPLIT_AMT
|
|
FROM PSMTPFSH
|
|
WHERE JRN_NO= ?
|
|
</Sentence>
|
|
<Fields>JRN_NO|</Fields>
|
|
</DynSentence>
|
|
<FlowCtrl>
|
|
<Set>FLG_LOG=0</Set> <!--值为0：代表此交易不用写入操作日志 -->
|
|
<!-- 去掉字段前后空格 -->
|
|
<Set>JRN_NO=DELBOTHSPACE($JRN_NO)</Set>
|
|
<Exec func="PUB:ReadRecord" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_PSMTPFSH_PFSH" />
|
|
</Exec>
|
|
<If condition="~RetCod=0">
|
|
<!--@msg 交易成功-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM00000" />
|
|
</Exec>
|
|
</If>
|
|
<ElseIf condition="~RetCod=2">
|
|
<!--@msg 没有符合条件的移动交易服务费待分润信息-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM10001" />
|
|
</Exec>
|
|
<Return />
|
|
</ElseIf>
|
|
<Else>
|
|
<!--@msg 查询移动交易服务费待分润信息，操作数据库失败-->
|
|
<Exec func="PUB:GWASetMsg">
|
|
<Arg name="MsgCd" value="PSM10002" />
|
|
</Exec>
|
|
<Return />
|
|
</Else>
|
|
</FlowCtrl>
|
|
</Transaction>
|
|
</Root> |