新增UI交易20210120

This commit is contained in:
zhao_ll
2021-01-20 19:24:42 +08:00
parent fb7d422c2d
commit 0e0c5fea19
11 changed files with 494 additions and 1 deletions
+34
View File
@@ -0,0 +1,34 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--组查询-->
<Transaction code="2040862" log_switch="1">
<DynSentence name="QRY_CMMTRTRGRP_INF"> <!--组信息查询 查询具体待定-->
<Sentence>
SELECT * FROM CMMTRTRGRP
</Sentence>
</DynSentence>
<FlowCtrl>
<!--交易记录查询-->
<Exec func="PUB:QueryInGroup" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTRTRGRP_INF"/>
<Arg name="RecordName" value="REC"/>
<Arg name="limit" value="1000"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
<Return/>
</If>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</FlowCtrl>
</Transaction>
</Root>
+53
View File
@@ -0,0 +1,53 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--组信息新增-->
<Transaction code="2040863" log_switch="1">
<DynSentence name="QRY_CMMTRTRGRP_INF">
<Sentence>
SELECT 'Y' YN from CMMTRTRGRP WHERE GRP_NM=?
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<FlowCtrl>
<!--组信息新增-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTRTRGRP_INF"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:InsertRecord" error="IGNORE">
<Arg name="TblNam" value="CMMTRTRGRP" />
</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="CAP99999"/>
<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>
+60
View File
@@ -0,0 +1,60 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--组信息修改-->
<Transaction code="2040864" log_switch="1">
<DynSentence name="UPD_CMMTRTRGRP_INF">
<Sentence>
UPDATE CMMTRTRGRP SET GRP_DSC=? WHERE GRP_NM=?
</Sentence>
<Fields>GRP_DSC|GRP_NM|</Fields>
</DynSentence>
<DynSentence name="QRY_CMMTRTRGRP_INF">
<Sentence>
SELECT 'Y' YN from CMMTRTRGRP WHERE GRP_NM=?
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<FlowCtrl>
<!--组信息新增-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTRTRGRP_INF"/>
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="UPD_CMMTRTRGRP_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="CAP99999"/>
<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>
+60
View File
@@ -0,0 +1,60 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--组信息修改-->
<Transaction code="2040865" log_switch="1">
<DynSentence name="QRY_CMMTRTRGRP_INF">
<Sentence>
SELECT 'Y' YN FROM CMMTRTRGRP WHERE GRP_NM=?
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<DynSentence name="DEL_CMMTRTRGRP_INF">
<Sentence>
DELETE FROM CMMTRTRGRP WHERE GRP_NM=?
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<FlowCtrl>
<!--组信息新增-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTRTRGRP_INF"/>
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="DEL_CMMTRTRGRP_INF"/>
</Exec>
<If condition="~RetCod!=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021"/>
<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="CAP00021"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</FlowCtrl>
</Transaction>
</Root>
+43
View File
@@ -0,0 +1,43 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!-- 合作机构下拉列表查询-->
<Transaction code="2040866" log_switch="1">
<DynSentence name="QRY_CMMTORGN_INF">
<Sentence>
SELECT CORP_ORG,CORG_NM from CMMTORGN WHERE ENB_FLG='1'
</Sentence>
</DynSentence>
<FlowCtrl>
<!--查询下拉列表-->
<Exec func="PUB:QueryInGroup" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTORGN_INF"/>
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</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="CAP00021"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF" />
</FlowCtrl>
</Transaction>
</Root>
+45
View File
@@ -0,0 +1,45 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!-- 银行类别下拉列表查询-->
<Transaction code="2040867" log_switch="1">
<DynSentence name="QRY_CMMTBKTYP_INF">
<Sentence>
SELECT BNK_TYP,BNK_NM from CMMTBKTYP
</Sentence>
</DynSentence>
<FlowCtrl>
<!--查询下拉列表-->
<Exec func="PUB:QueryInGroup" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTBKTYP_INF"/>
<Arg name="RecordName" value="REC"/>
<Arg name="limit" value="1000"/>
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</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="CAP00021"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF" />
</FlowCtrl>
</Transaction>
</Root>
+43
View File
@@ -0,0 +1,43 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--支付地抬头组信息关联信息多页查询-->
<Transaction code="2040868" log_switch="1">
<DynSentence name="QRY_TITRTRGRP_UNION"> <!--支付地抬头组关联信息查询-->
<Sentence>
select A.TITLE_ID,A.RTR_GRP,B.TITLE_NAME from TITRTRGRP A,
(SELECT TITLE_ID,TITLE_NAME FROM CAPACCOUNTINF GROUP BY TITLE_ID,TITLE_NAME) B
where A.RTR_GRP=? AND A.TITLE_ID =B.TITLE_ID
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<FlowCtrl>
<!--交易记录查询-->
<Exec func="PUB:DBMultiQueryPage" >
<Arg name="PageNo" value="$PAG_NO"/>
<Arg name="SqlCmd" value="QRY_TITRTRGRP_UNION"/>
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021" />
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</ElseIf>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</FlowCtrl>
</Transaction>
</Root>
+44
View File
@@ -0,0 +1,44 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!-- 未分组支付地抬头信息查询 -->
<Transaction code="2040869" log_switch="1">
<DynSentence name="QRY_CAPACCOUNTINF_NOTGRP">
<Sentence>
SELECT TITLE_ID,TITLE_NAME FROM CAPACCOUNTINF
WHERE TITLE_ID NOT IN (SELECT TITLE_ID from TITRTRGRP) AND ENABLED='Y'
AND ('%s' IS NULL OR TITLE_ID LIKE '%s%') AND ('%s' IS NULL OR TITLE_NAME LIKE '%s%')
GROUP BY TITLE_ID,TITLE_NAME
</Sentence>
<Fields>TITLE_ID|TITLE_ID|TITLE_NAME|TITLE_NAME|</Fields>
</DynSentence>
<FlowCtrl>
<!--交易记录查询-->
<Exec func="PUB:DBMultiQueryPage" >
<Arg name="PageNo" value="$PAG_NO"/>
<Arg name="SqlCmd" value="QRY_CAPACCOUNTINF_NOTGRP"/>
<Arg name="RecNumPerPage" value="$PAG_NUM"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=-1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021" />
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</ElseIf>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</FlowCtrl>
</Transaction>
</Root>
+38
View File
@@ -0,0 +1,38 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!-- 支付地抬头与组关系维护新增 -->
<Transaction code="2040870" log_switch="1">
<!-- 支付地抬头与组关系维护新增 -->
<FlowCtrl>
<Set>RTR_GRP=$GRP_NM</Set>
<!--登记表-->
<Exec func="PUB:InsertRecord" error="IGNORE">
<Arg name="TblNam" value="TITRTRGRP" />
<Arg name="GrpNam" value="REC" />
<Arg name="FldLst" value="RTR_GRP|" />
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</If>
<ElseIf condition="~RetCod=1">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021" />
<Arg name="MsgDat" value="存在重复数据"/>
</Exec>
</ElseIf>
<Else>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021" />
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
</Else>
<Exec func="PUB:DumpETF" />
</FlowCtrl>
</Transaction>
</Root>
+63
View File
@@ -0,0 +1,63 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!-- 支付地抬头与组关系维护删除 -->
<Transaction code="2040871" log_switch="1">
<DynSentence name="DEL_TITRTRGRP_INF">
<Sentence>
DELETE FROM TITRTRGRP
WHERE TITLE_ID=? AND RTR_GRP = ?
</Sentence>
<Fields>TITLE_ID|RTR_GRP|</Fields>
</DynSentence>
<FlowCtrl>
<Set>REC_NUM=$REC_NUM</Set>
<If condition="ISNULL($REC_NUM)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021" />
<Arg name="MsgDat" value="上送数据异常"/>
</Exec>
<Return/>
</If>
<ElseIf condition="INTCMP($REC_NUM,2,0)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021" />
<Arg name="MsgDat" value="上送数据异常"/>
</Exec>
<Return/>
</ElseIf>
<Set>COUNT=0</Set>
<While>
<Set>COUNT=ADD($COUNT,1)</Set>
<If condition="INTCMP($REC_NUM,1,$COUNT)">
<Break/>
</If>
<Set>TITLE_ID=$REC[$COUNT].TITLE_ID</Set>
<Set>RTR_GRP=$GRP_NM</Set>
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="DEL_TITRTRGRP_INF"/>
</Exec>
<If condition="~RetCod != 0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021" />
<Arg name="MsgDat" value="删除数据失败"/>
</Exec>
<Exec func="PUB:RollbackWork"/>
<Return/>
</If>
<Delete>TITLE_ID</Delete>
<Delete>RTR_GRP</Delete>
</While>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000" />
</Exec>
</FlowCtrl>
</Transaction>
</Root>
+11 -1
View File
@@ -117,8 +117,18 @@
<Include file="etc/cap/OBUICAP1/0040003_CTL.XML" /> <!--路由删除-->
<Include file="etc/cap/OBUICAP1/0040002_CTL.XML" /> <!--路由修改-->
<Include file="etc/cap/OBUICAP1/0040001_CTL.XML" /> <!--路由添加-->
<!-- 交易查询管理类交易 -->
<!-- 交易查询管理类交易 -->
<Include file="etc/cap/OBUICAP1/2040858_CTL.XML" /> <!-- 客户信息查询 -->
<Include file="etc/cap/OBUICAP1/2040859_CTL.XML" /> <!-- 支付地抬头查询 -->
<Include file="etc/cap/OBUICAP1/2040861_CTL.XML" /> <!-- 退票交易查询 -->
<Include file="etc/cap/OBUICAP1/2040862_CTL.XML" /> <!-- 组信息查询 -->
<Include file="etc/cap/OBUICAP1/2040863_CTL.XML" /> <!-- 组信息新增 -->
<Include file="etc/cap/OBUICAP1/2040864_CTL.XML" /> <!-- 组信息修改 -->
<Include file="etc/cap/OBUICAP1/2040865_CTL.XML" /> <!-- 组信息删除 -->
<Include file="etc/cap/OBUICAP1/2040866_CTL.XML" /> <!-- 机构信息下拉列表查询 -->
<Include file="etc/cap/OBUICAP1/2040867_CTL.XML" /> <!-- 银行代码下拉列表查询 -->
<Include file="etc/cap/OBUICAP1/2040868_CTL.XML" /> <!-- 按组多页查询支付地抬头信息 -->
<Include file="etc/cap/OBUICAP1/2040869_CTL.XML" /> <!-- 未分组支付地抬头信息多页查询 -->
<Include file="etc/cap/OBUICAP1/2040870_CTL.XML" /> <!-- 支付地抬头与组关系维护新增 -->
<Include file="etc/cap/OBUICAP1/2040871_CTL.XML" /> <!-- 支付地抬头与组关系维护删除 -->
</Application>