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

新增渠道配置页面 #1

Merged
wang_lei1 merged 1 commits from dev into sit 2021-05-07 10:39:49 +00:00
Conversation 0 Commits 1 Files Changed 4
+159 -153
4 changed files with 159 additions and 153 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bui/etc/BUI_PUB_CTL.XML
+2 -2
View File
@@ -85,7 +85,7 @@
<Set>token=$TOKEN</Set>
<Set>funcId=$FUNC_ID</Set>
<Set>TXN_CD=$TXN_CD</Set>
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040869,2040862,2040860)">
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040869,2040862,2040860,4908103)">
<!--第三方鉴权-->
<Exec func="PUB:CallThirdComm" error="IGNORE">
<Arg name="HTxnCd" value="TokenVerify" />
@@ -149,7 +149,7 @@
<Exec func="PUB:RollbackWork" error="IGNORE" />
</Else>
<!--FLG_LOG值为0：代表此交易不用写入操作日志 ;其他情况则写入操作日志中 -->
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040862,2040860)">
<If condition="IS_NOEQUAL_STRING($TXN_CD,4807106,4807002,0030006,0030004,0030005,2040866,2040841,2040881,2040876,2040867,2040862,2040860,4908103)">
<!--操作员流水 -->
<Set>MSG_TYP=$GWA.MSG_TYP</Set>
<Set>MSG_CD=$GWA.MSG_CD</Set>
bui/etc/cap/OBUICAP2/4908103_CTL.XML
+97 -100
View File
@@ -1,105 +1,102 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<Transaction code="4908103" log_switch="1" desc="查询渠道配置信息">
<DynSentence name="QRY_CAPCNLINF">
<Sentence>
SELECT *
FROM
CAPCNLINF
WHERE
(SYS_ID=? or ? is null) AND (TXN_CNL =? or ? is null) AND (TXN_DES =? or ? is null) AND (IS_ACC =? or ? is null) AND (IS_SIG =? or ? is null) AND (IS_STL =? or ? is null) AND (RLR_STS =? or ? is null)
</Sentence>
<Fields>SYS_ID|SYS_ID|TXN_CNL|TXN_CNL|TXN_DES|TXN_DES|IS_ACC|IS_ACC|IS_SIG|IS_SIG|IS_STL|IS_STL|RLR_STS|RLR_STS|</Fields>
</DynSentence>
<DynSentence name="QRY_CAPCNLINF_COUNT">
<Sentence>
SELECT COUNT(*) TOT_REC_NUM
FROM
CAPCNLINF
WHERE
(SYS_ID=? or ? is null) AND (TXN_CNL =? or ? is null) AND (TXN_DES =? or ? is null) AND (IS_ACC =? or ? is null) AND (IS_SIG =? or ? is null) AND (IS_STL =? or ? is null) AND (RLR_STS =? or ? is null)
</Sentence>
<Fields>SYS_ID|SYS_ID|TXN_CNL|TXN_CNL|TXN_DES|TXN_DES|IS_ACC|IS_ACC|IS_SIG|IS_SIG|IS_STL|IS_STL|RLR_STS|RLR_STS|</Fields>
</DynSentence>
<FlowCtrl>
<Exec func="PUB:DumpETF"/>
<Set>SYS_ID =$SYS_ID </Set><!--系统编号-->
<Set>TXN_CNL=$TXN_CNL </Set><!--渠道类型-->
<Set>TXN_DES=$TXN_DES </Set><!--渠道描述-->
<Set>IS_ACC =$IS_ACC </Set><!--是否记账-->
<Set>IS_SIG =$IS_SIG </Set><!--是否验签-->
<Set>IS_STL =$IS_STL </Set><!--是否清算-->
<If condition="ISNULL($RLR_STS)">
<Set>RLR_STS=1 </Set><!--为空是失效-->
</If>
<Else>
<Set>RLR_STS=$RLR_STS </Set><!--是否生效-->
</Else>
<Set>SQL=QRY_CAPCNLINF</Set>
<If condition="ISNULL($PAG_NO)">
<Set>PAG_NO=1</Set> <!-- 页号为空时 默认为0 -->
</If>
<Else>
<Set>PAG_NO=$PAG_NO</Set> <!-- 页号 -->
</Else>
<If condition="ISNULL($PAG_NUM)">
<Set>PAG_NUM=10</Set> <!-- 显示行数为空时 默认为10 -->
</If>
<Else>
<Set>PAG_NUM=$PAG_NUM</Set> <!-- 显示行数 -->
</Else>
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPCNLINF_COUNT" />
<Transaction code="4908103" log_switch="1" desc="查询渠道配置信息">
<DynSentence name="QRY_CAPCNLINF">
<Sentence>
SELECT *
FROM
CAPCNLINF
WHERE
(SYS_ID=? or ? is null) AND (TXN_CNL =? or ? is null) AND (TXN_DES =? or ? is null) AND (IS_ACC =? or ? is null) AND (IS_SIG =? or ? is null) AND (IS_STL =? or ? is null) AND (RLR_STS =? or ? is null)
</Sentence>
<Fields>SYS_ID|SYS_ID|TXN_CNL|TXN_CNL|TXN_DES|TXN_DES|IS_ACC|IS_ACC|IS_SIG|IS_SIG|IS_STL|IS_STL|RLR_STS|RLR_STS|</Fields>
</DynSentence>
<DynSentence name="QRY_CAPCNLINF_COUNT">
<Sentence>
SELECT COUNT(*) TOT_REC_NUM
FROM
CAPCNLINF
WHERE
(SYS_ID=? or ? is null) AND (TXN_CNL =? or ? is null) AND (TXN_DES =? or ? is null) AND (IS_ACC =? or ? is null) AND (IS_SIG =? or ? is null) AND (IS_STL =? or ? is null) AND (RLR_STS =? or ? is null)
</Sentence>
<Fields>SYS_ID|SYS_ID|TXN_CNL|TXN_CNL|TXN_DES|TXN_DES|IS_ACC|IS_ACC|IS_SIG|IS_SIG|IS_STL|IS_STL|RLR_STS|RLR_STS|</Fields>
</DynSentence>
<FlowCtrl>
<Exec func="PUB:DumpETF"/>
<Set>SYS_ID =$SYS_ID </Set><!--系统编号-->
<Set>TXN_CNL=$TXN_CNL </Set><!--渠道类型-->
<Set>TXN_DES=$TXN_DES </Set><!--渠道描述-->
<Set>IS_ACC =$IS_ACC </Set><!--是否记账-->
<Set>IS_SIG =$IS_SIG </Set><!--是否验签-->
<Set>IS_STL =$IS_STL </Set><!--是否清算-->
<Set>RLR_STS=$RLR_STS </Set><!--是否生效-->
<Set>SQL=QRY_CAPCNLINF</Set>
<If condition="ISNULL($PAG_NO)">
<Set>PAG_NO=1</Set> <!-- 页号为空时 默认为0 -->
</If>
<Else>
<Set>PAG_NO=$PAG_NO</Set> <!-- 页号 -->
</Else>
<If condition="ISNULL($PAG_NUM)">
<Set>PAG_NUM=10</Set> <!-- 显示行数为空时 默认为10 -->
</If>
<Else>
<Set>PAG_NUM=$PAG_NUM</Set> <!-- 显示行数 -->
</Else>
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CAPCNLINF_COUNT" />
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="RPM00000" />
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="RPM00000" />
</Exec>
<Set>TOT_REC_NUM=$TOT_REC_NUM</Set> <!-- 明细数量 -->
</If>
<ElseIf condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CMM00000"/>
<Arg name="MsgDat" value="无查询结果"/>
</Exec>
<Set>PAG_CNT=0</Set>
<Set>TOT_REC_NUM=0</Set>
</ElseIf>
<Else>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI26006"/>
<Arg name="MsgDat" value="查询数据库出错"/>
</Exec>
<Set>PAG_CNT=0</Set>
<Set>TOT_REC_NUM=0</Set>
<Return />
</Else>
<Exec func="PUB:DBMultiQueryPage" error="IGNORE">
<Arg name="PageNo" value="$PAG_NO" />
<Arg name="SqlCmd" value="$SQL" />
<Arg name="RecNumPerPage" value="$PAG_NUM" />
<Set>TOT_REC_NUM=$TOT_REC_NUM</Set> <!-- 明细数量 -->
</If>
<ElseIf condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CMM00000"/>
<Arg name="MsgDat" value="无查询结果"/>
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CMM00000"/>
<Arg name="MsgDat" value="无查询结果"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI00000"/>
<Arg name="MsgDat" value="查询成功"/>
</Exec>
</ElseIf>
<Else>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI26006"/>
<Arg name="MsgDat" value="查询数据库出错"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF"/>
</FlowCtrl>
</Transaction>
<Set>PAG_CNT=0</Set>
<Set>TOT_REC_NUM=0</Set>
</ElseIf>
<Else>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI26006"/>
<Arg name="MsgDat" value="查询数据库出错"/>
</Exec>
<Set>PAG_CNT=0</Set>
<Set>TOT_REC_NUM=0</Set>
<Return />
</Else>
<Exec func="PUB:DBMultiQueryPage" error="IGNORE">
<Arg name="PageNo" value="$PAG_NO" />
<Arg name="SqlCmd" value="$SQL" />
<Arg name="RecNumPerPage" value="$PAG_NUM" />
</Exec>
<If condition="~RetCod=2">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CMM00000"/>
<Arg name="MsgDat" value="无查询结果"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI00000"/>
<Arg name="MsgDat" value="查询成功"/>
</Exec>
</ElseIf>
<Else>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="BUI26006"/>
<Arg name="MsgDat" value="查询数据库出错"/>
</Exec>
<Return/>
</Else>
<Exec func="PUB:DumpETF"/>
</FlowCtrl>
</Transaction>
</Root>
bui/etc/cap/OBUICAP2_CTL.XML
+2
View File
@@ -97,4 +97,6 @@
<Include file="etc/cap/OBUICAP2/4908103_CTL.XML" />
<!--路由词典-->
<Include file="etc/cap/OBUICAP2/4908104_CTL.XML" />
<!--渠道状态修改-->
<Include file="etc/cap/OBUICAP2/4908105_CTL.XML" />
</Application>
bui/etc/cap/OCAPRPT2/204071_CTL.XML
+58 -51
View File
@@ -1,60 +1,67 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code="204071" desc="时效报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=$GWA.AC_DT</Set>
<Transaction code="204071" desc="时效报表" log_switch="1">
<FlowCtrl>
<Exec func="PUB:InitGWA" /> <!--交易初始化 -->
<Set>AC_DT=$GWA.AC_DT</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="END_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>END_DT=$END_DT</Set>
</If>
<Else>
<Set>END_DT=CALCDATE($AC_DT,-,d,1)</Set>
</Else>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="STAT_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>STAT_DT=$STAT_DT</Set>
</If>
<Else>
<Set>STAT_DT=CALCDATE($END_DT,-,d,6)</Set>
</Else>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="END_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>END_DT=$END_DT</Set>
</If>
<Else>
<Set>END_DT=CALCDATE($AC_DT,-,d,1)</Set>
</Else>
<Set>RPT_KND=RPT_D_001</Set>
<Set>raqname=STRCAT($RPT_KND,-,$AC_DT,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/bui/etc/cap/OCAPRPT2/RPT_D_001.raq)</Set>
<Set>RPTNAME=STRCAT($WORKDIR,/dat/rptdata/,$raqname)</Set>
<Set>RPT_FIL_NM=STRCAT("时效报表-",FMTDATE($AC_DT,0,5),.xls)</Set>
<Exec func="PUB:IsExistNode" error="IGNORE">
<Arg name="FieldName" value="STAT_DT"/>
</Exec>
<If condition="~RetCod=1"> <!--存在-->
<Set>STAT_DT=$STAT_DT</Set>
</If>
<Else>
<Set>STAT_DT=CALCDATE($END_DT,-,d,6)</Set>
</Else>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="STAT_DT" value="$STAT_DT" />
<Arg name="END_DT" value="$END_DT" />
</Exec>
<If condition="~RetCod=-1">
<Set>Rsp_Cd=20499</Set>
<Set>Rsp_Msg=失败</Set>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Set>Rsp_Cd=00000</Set>
<Set>Rsp_Msg=成功</Set>
<Set>RPT_KND=RPT_D_001</Set>
<Set>raqname=STRCAT($RPT_KND,-,$AC_DT,.xls)</Set>
<Set>WORKDIR=GETENV(HWORKDIR)</Set>
<Set>CR_RPT_FILE=STRCAT($WORKDIR,/app/bui/etc/cap/OCAPRPT2/RPT_D_001.raq)</Set>
<Set>RPTNAME=STRCAT($WORKDIR,/dat/rptdata/,$raqname)</Set>
<Set>RPT_TYP=D</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
<Set>RPT_FIL_NM=STRCAT("时效报表-",FMTDATE($AC_DT,0,5),.xls)</Set>
</ElseIf>
</FlowCtrl>
</Transaction>
<Exec func="PUB:GenerateReportNew" error="IGNORE"> <!--报表生成组件-->
<Arg name="RptName" value="$RPTNAME" />
<Arg name="RptFile" value="$CR_RPT_FILE" />
<Arg name="STAT_DT" value="$STAT_DT" />
<Arg name="END_DT" value="$END_DT" />
</Exec>
<If condition="~RetCod=-1">
<Set>Rsp_Cd=20499</Set>
<Set>Rsp_Msg=失败</Set>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021"/>
<Arg name="MsgDat" value="查询成功"/>
</Exec>
<Return/>
</If>
<ElseIf condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00000"/>
<Arg name="MsgDat" value="查询成功"/>
</Exec>
<Set>Rsp_Cd=00000</Set>
<Set>Rsp_Msg=成功</Set>
<Set>RPT_TYP=D</Set>
<Quote name="Do_SVRPro"/> <!--插入报表登记表-->
</ElseIf>
</FlowCtrl>
</Transaction>
</Root>