81 lines
3.2 KiB
XML
81 lines
3.2 KiB
XML
<?xml version='1.0' encoding='UTF-8'?>
|
|
<Package>
|
|
|
|
<!--客服查询用户营销工具明细(QueryBonusDtl)-->
|
|
<!--输入: MBL_NO :手机号 -->
|
|
<!-- PRD_TYP :营销工具类型 -->
|
|
<Function name="QueryBonusDtl">
|
|
<Input>INP_DAT|GWA|</Input>
|
|
<Output>OUT_DAT|MSG_CD|MSG_DAT</Output>
|
|
<!--查询用户营销工具信息-->
|
|
<DynSentence name="QRY_MKMTBON_INF">
|
|
<Sentence>
|
|
SELECT A.BON_ID,A.BON_NM,A.MKT_ID,B.MKT_NM,A.CUR_AC_BAL AS BAL_AMT,A.BON_RAT AS BON_PIC,A.PRD_TYP
|
|
FROM MKMTBON A,MKMTACT B
|
|
WHERE A.USR_NO=?
|
|
AND A.PRD_TYP=?
|
|
AND A.BON_STS='A'
|
|
AND A.EXP_DT >=?
|
|
AND A.MKT_ID=B.MKT_ID
|
|
</Sentence>
|
|
<Fields>USR_NO|PRD_TYP|CUR_DT|</Fields>
|
|
</DynSentence>
|
|
<Process>
|
|
<Set>MBL_NO=DELBOTHSPACE($INP_DAT.MBL_NO)</Set>
|
|
<Set>PRD_TYP=DELBOTHSPACE($INP_DAT.PRD_TYP)</Set>
|
|
<Set>CUR_DT=$GWA.TX_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($PRD_TYP)">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg营销工具类型不能为空 -->
|
|
<Arg name="MsgCd" value="MKM21014"/>
|
|
<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:QueryInGroup" error="IGNORE">
|
|
<Arg name="SqlCmd" value="QRY_MKMTBON_INF"/>
|
|
<Arg name="RecordName" value="OUT_DAT.BONREC"/>
|
|
</Exec>
|
|
<If condition="~RetCod=-1">
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg查询用户营销工具信息失败 -->
|
|
<Arg name="MsgCd" value="MKM21001"/>
|
|
<Arg name="MsgDat" value="查询用户营销工具信息失败"/>
|
|
</Exec>
|
|
<Return/>
|
|
</If>
|
|
<Set>OUT_DAT.REC_NUM=$REC_NUM</Set>
|
|
<Exec func="PUB:CmpSetMsg">
|
|
<!-- @msg交易成功 -->
|
|
<Arg name="MsgCd" value="MKM00000"/>
|
|
<Arg name="MsgDat" value="交易成功"/>
|
|
</Exec>
|
|
<Exec func="PUB:DumpETF"/>
|
|
</Process>
|
|
</Function>
|
|
</Package>
|