MrTech/ctg-app-ui
5
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sit #27

Merged
wang_lei1 merged 4 commits from sit into uat 2021-08-26 06:24:49 +00:00
Conversation 0 Commits 4 Files Changed 7
+191 -5
7 changed files with 191 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bui/etc/cap/OBUICAP1/2040801_CTL.XML
+31 -4
View File
@@ -73,6 +73,30 @@
<Fields>MERC_ID|MERC_ID|MERC_ORD_NO|MERC_ORD_NO|DSK_NAM|DSK_NAM|JRN_NO|JRN_NO|CRD_NO|CRD_NO|CORG_NO|CORG_NO|TXN_MOD|TXN_MOD|ORD_TYP|ORD_TYP|CAP_ORD_NO|CAP_ORD_NO|TXN_CNL|TXN_CNL|CORG_DSK_NO|CORG_DSK_NO|BEG_DT|BEG_DT|END_DT|END_DT|</Fields>
</DynSentence>
<DynSentence name="QRY_CAPTXNJNL_R"> <!-- 查询退票状态 -->
<Sentence>
SELECT J.*,M.CUSTOMER_NAME MERC_CNM,B.DISK_DESC FROM CAPTXNJNL J
left join CAPCUSINF M on J.MERC_ID=M.CUSTOMER_ID
left join CAPDSKINF B on J.DSK_NAM=B.DSK_NAM
where
('%s' IS NULL OR J.MERC_ID LIKE '%s%')
AND ('%s' IS NULL OR J.MERC_ORD_NO LIKE '%s%')
AND ('%s' IS NULL OR J.DSK_NAM LIKE '%s%')
AND ('%s' IS NULL OR J.JRN_NO LIKE '%s%')
AND ( J.TXN_STS = 'R')
AND ('%s' IS NULL OR J.CRD_NO LIKE '%s%')
AND ('%s' IS NULL OR J.CORG_NO LIKE '%s%')
AND ('%s' IS NULL OR J.TXN_MOD = '%s')
AND ('%s' IS NULL OR J.ORD_TYP = '%s')
AND ('%s' IS NULL OR J.CAP_ORD_NO = '%s')
AND ('%s' IS NULL OR J.TXN_CNL = '%s')
AND ('%s' IS NULL OR J.CORG_DSK_NO = '%s')
AND (J.ORD_DT &gt;='%s' OR '%s' IS NULL)
AND (J.ORD_DT &lt;='%s' OR '%s' IS NULL) order by J.TXN_TM desc
</Sentence>
<Fields>MERC_ID|MERC_ID|MERC_ORD_NO|MERC_ORD_NO|DSK_NAM|DSK_NAM|JRN_NO|JRN_NO|CRD_NO|CRD_NO|CORG_NO|CORG_NO|TXN_MOD|TXN_MOD|ORD_TYP|ORD_TYP|CAP_ORD_NO|CAP_ORD_NO|TXN_CNL|TXN_CNL|CORG_DSK_NO|CORG_DSK_NO|BEG_DT|BEG_DT|END_DT|END_DT|</Fields>
</DynSentence>
<DynSentence name="QRY_CAPTXNJNL_U"> <!-- 查询预计状态 -->
<Sentence>
SELECT J.*,M.CUSTOMER_NAME MERC_CNM,B.DISK_DESC FROM CAPTXNJNL J
@@ -98,7 +122,7 @@
</DynSentence>
<DynSentence name="QRY_CAPTXNJNL_PT"> <!-- 查询超时/处理中状态 -->
<DynSentence name="QRY_CAPTXNJNL_P"> <!-- 查询超时/处理中状态 -->
<Sentence>
SELECT J.*,M.CUSTOMER_NAME MERC_CNM,B.DISK_DESC FROM CAPTXNJNL J
left join CAPCUSINF M on J.MERC_ID=M.CUSTOMER_ID
@@ -108,7 +132,7 @@
AND ('%s' IS NULL OR J.MERC_ORD_NO LIKE '%s%')
AND ('%s' IS NULL OR J.DSK_NAM LIKE '%s%')
AND ('%s' IS NULL OR J.JRN_NO LIKE '%s%')
AND ( J.TXN_STS = 'P' OR J.TXN_STS = 'T')
AND ( J.TXN_STS = 'P')
AND ('%s' IS NULL OR J.CRD_NO LIKE '%s%')
AND ('%s' IS NULL OR J.CORG_NO LIKE '%s%')
AND ('%s' IS NULL OR J.TXN_MOD = '%s')
@@ -132,8 +156,11 @@
<ElseIf condition="IS_EQUAL_STRING($TXN_STS,F)">
<Set>QRY_SQL=QRY_CAPTXNJNL_F</Set>
</ElseIf>
<ElseIf condition="IS_EQUAL_STRING($TXN_STS,PT)">
<Set>QRY_SQL=QRY_CAPTXNJNL_PT</Set>
<ElseIf condition="IS_EQUAL_STRING($TXN_STS,R)">
<Set>QRY_SQL=QRY_CAPTXNJNL_R</Set>
</ElseIf>
<ElseIf condition="IS_EQUAL_STRING($TXN_STS,P)">
<Set>QRY_SQL=QRY_CAPTXNJNL_P</Set>
</ElseIf>
<Else>
<Set>QRY_SQL=QRY_CAPTXNJNL_A</Set>
bui/etc/cap/OBUICAP1/2040883_CTL.XML
+60
View File
@@ -0,0 +1,60 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--卡BIN信息新增-->
<Transaction code="2040883" log_switch="1">
<DynSentence name="QRY_CMMTUFIT_INF">
<Sentence>
SELECT 'Y' YN from CMMTUFIT WHERE FIT_CTT=?
</Sentence>
<Fields>FIT_CTT|</Fields>
</DynSentence>
<FlowCtrl>
<Exec func="PUB:DumpETF" />
<Set>FIT_TRK=2</Set>
<Set>FIT_OFS=2</Set>
<Set>CRD_OFS=2</Set>
<Set>CRD_TRK=2</Set>
<Set>EXP_DT_FLG=22</Set>
<Set>INT_MOD=1</Set>
<Set>TM_SMP=GETDATETIME()</Set>
<!--组信息新增-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTUFIT_INF"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:InsertRecord" error="IGNORE">
<Arg name="TblNam" value="CMMTUFIT" />
</Exec>
<If condition="~RetCod!=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</If>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00026"/>
<Arg name="MsgDat" value="信息已存在"/>
</Exec>
<Return/>
</ElseIf>
<Else><!--数据库查询错误-->
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</FlowCtrl>
</Transaction>
</Root>
bui/etc/cap/OBUICAP1/2040884_CTL.XML
+98
View File
@@ -0,0 +1,98 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--卡BIN信息修改-->
<Transaction code="2040884" log_switch="1">
<DynSentence name="UPD_CMMTUFIT_INF">
<Sentence>
FIT_CTT=?
</Sentence>
<Fields>O_FIT_CTT|</Fields>
</DynSentence>
<DynSentence name="QRY_CMMTUFIT_INF">
<Sentence>
SELECT 'Y' YN from CMMTUFIT WHERE FIT_CTT=?
</Sentence>
<Fields>O_FIT_CTT|</Fields>
</DynSentence>
<DynSentence name="QRY_CMMTUFIT_NEWINF">
<Sentence>
SELECT 'Y' YN from CMMTUFIT WHERE FIT_CTT=?
</Sentence>
<Fields>FIT_CTT|</Fields>
</DynSentence>
<FlowCtrl>
<Exec func="PUB:DumpETF" />
<Set>FIT_TRK=2</Set>
<Set>FIT_OFS=2</Set>
<Set>CRD_OFS=2</Set>
<Set>CRD_TRK=2</Set>
<Set>EXP_DT_FLG=22</Set>
<Set>INT_MOD=1</Set>
<Set>TM_SMP=GETDATETIME()</Set>
<!--休息修改-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTUFIT_INF"/>
</Exec>
<If condition="~RetCod=0">
<If condition="IS_NOEQUAL_STRING($FIT_CTT,$O_FIT_CTT)">
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTUFIT_NEWINF"/>
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00026"/>
<Arg name="MsgDat" value="信息已存在出现重复记录"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</ElseIf>
</If>
<Exec func="PUB:UpdateRecord" error="IGNORE">
<Arg name="TblNam" value="CMMTUFIT" />
<Arg name="CndSts" value="UPD_CMMTUFIT_INF" />
</Exec>
<If condition="~RetCod!=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</If>
</If>
<ElseIf condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00023"/>
<Arg name="MsgDat" value="信息不存在"/>
</Exec>
<Return/>
</ElseIf>
<Else><!--数据库查询错误-->
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</FlowCtrl>
</Transaction>
</Root>
bui/etc/cap/OBUICAP1_CTL.XML
+2
View File
@@ -143,5 +143,7 @@
<Include file="etc/cap/OBUICAP1/2040880_CTL.XML" /> <!-- 客户风控规则解除 -->
<Include file="etc/cap/OBUICAP1/2040881_CTL.XML" /> <!-- 客户登记下拉列表查询 -->
<Include file="etc/cap/OBUICAP1/2040882_CTL.XML" /> <!-- 组信息多页查询 -->
<Include file="etc/cap/OBUICAP1/2040883_CTL.XML" /> <!-- 卡BIN新增 -->
<Include file="etc/cap/OBUICAP1/2040884_CTL.XML" /> <!-- 卡BIN修改 -->
</Application>
cap/etc/OCAPRPT2/RPT_D_010_d.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2/RPT_D_010_m.raq
BIN
View File
Binary file not shown.
cap/etc/OCAPRPT2_CTL.XML
-1
View File
@@ -35,7 +35,6 @@
<Arg name="MsgCd" value="CAP00000"/>
<Arg name="MsgDat" value="插入报表登记表成功"/>
</Exec>
<Return/>
</If>
<Else>
<Exec func="PUB:GWASetMsg">