89 lines
3.4 KiB
XML
89 lines
3.4 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--用户营销工具领用明细查询接口组件(UserBonISSQuery)-->
|
|
<Function name="UserBonISSQuery">
|
|
<Input>INP_DAT|</Input>
|
|
<Output>OUT_DAT|MSG_CD|MSG_DAT|</Output>
|
|
<!--查询交易流水中营销工具领用信息-->
|
|
<DynSentence name="QRY_MKMTJNL">
|
|
<Sentence>
|
|
SELECT A.BON_ID,C.BON_NM,C.PRD_TYP,A.MKT_ID,B.MKT_NM,A.CR_AMT AS BAL_AMT,A.BON_RAT AS BON_PIC,C.ISS_DT,C.ISS_TM
|
|
FROM MKMTJNL A,MKMTACT B,MKMTBON C
|
|
WHERE A.BON_ID=C.BON_ID
|
|
AND A.USR_NO=?
|
|
AND (A.USE_TYP='0' OR A.USE_TYP='2')
|
|
AND TX_STS='S'
|
|
AND A.TX_SYS_DT BETWEEN ? AND ?
|
|
AND A.MKT_ID=B.MKT_ID
|
|
</Sentence>
|
|
<Fields>USR_NO|BEG_DT|END_DT|</Fields>
|
|
</DynSentence>
|
|
<Process>
|
|
<Set>MBL_NO=DELBOTHSPACE($INP_DAT.MBL_NO)</Set>
|
|
<Set>BEG_DT=DELBOTHSPACE($INP_DAT.BEG_DT)</Set>
|
|
<Set>END_DT=DELBOTHSPACE($INP_DAT.END_DT)</Set>
|
|
<!--必输项判断-->
|
|
<If condition="ISNULL($MBL_NO)">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg用户手机号不能为空 -->
|
|
<Arg name="MsgCd" value="MKM10132"/>
|
|
<Arg name="MsgDat" value="用户手机号不能为空"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<If condition="ISNULL($BEG_DT)">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg起始日期不能为空 -->
|
|
<Arg name="MsgCd" value="MKM22026"/>
|
|
<Arg name="MsgDat" value="起始日期不能为空"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<If condition="ISNULL($END_DT)">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg结束日期不能为空 -->
|
|
<Arg name="MsgCd" value="MKM22027"/>
|
|
<Arg name="MsgDat" value="结束日期不能为空"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<!--调用查询手机号或内部用户号的组件-->
|
|
<Call function="Query_MBLNO_USRNO" package="MKM">
|
|
<Input>MBL_NO|USR_NO|</Input>
|
|
<Output>MSG_CD|MSG_DAT|MBL_NO|USR_NO|USR_PROV|USR_CITY|USR_CITY_NM|USR_STS|</Output>
|
|
</Call>
|
|
<If condition="IS_SUCC(@O.MSG_CD)=0">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<Arg name="MsgCd" value="@O.MSG_CD" />
|
|
<Arg name="MsgDat" value="@O.MSG_DAT"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Set>MBL_NO=@O.MBL_NO</Set>
|
|
<Set>USR_NO=@O.USR_NO</Set>
|
|
<!--查询交易流水-->
|
|
<Exec func="PUB:DBMultiQueryPage">
|
|
<Arg name="PageNo" value="$PAG_NO"/>
|
|
<Arg name="SqlCmd" value="QRY_MKMTJNL"/>
|
|
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg查询交易流水失败 -->
|
|
<Arg name="MsgCd" value="MKM22037"/>
|
|
<Arg name="MsgDat" value="查询交易流水失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg交易成功 -->
|
|
<Arg name="MsgCd" value="MKM00000"/>
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
<Exec func="PUB:DumpETF"/>
|
|
</Process>
|
|
</Function>
|
|
|
|
</Package>
|