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

报表，卡bin修改新增功能 #25

Merged
wang_lei1 merged 1 commits from dev into sit 2021-08-23 01:54:41 +00:00
Conversation 0 Commits 1 Files Changed 6
+160 -1
6 changed files with 160 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
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">