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

更新代码

Browse Source
This commit is contained in:
Alawn
2021-03-08 10:22:57 +08:00
parent ef59c2423b
commit 64d164831e
11 changed files with 455 additions and 312 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bui/etc/BUI_PUB_CTL.XML
+160 -120
View File
@@ -1,124 +1,164 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<!-- LibDeclare声明区 -->
<LibDeclare>
<Library name="WEB" value="hiwebatc.jar" />
<Library name="UBUI" value="hiubui.jar" />
<Library name="CPU" value="hicpuatc.jar" />
<Library name="GECINF" value="higeninf.jar" />
<Library name="CMM" value="hicmm.jar" />
<Library name="LOG" value="higeninf.jar" />
</LibDeclare>
<!-- PackageDeclare声明区 -->
<PackageDeclare>
<Package name="LPS_PUB" value="app/lps/etc/LPS_PUB_PKG.XML" />
<Package name="PURM" value="app/bui/etc/urm/URM_PKG.XML" />
</PackageDeclare>
<!-- ConfigDeclare声明区 -->
<!-- 公共前后处理声明区 -->
<GlobalFunction>
<!-- 公共前处理 -->
<Function name="_before">
<DynSentence name="GET_LOGNO">
<Sentence>
select S_LOG_NO.Nextval LOG_NO from dual
</Sentence>
</DynSentence>
<DynSentence name="QRY_CMMTTXIF">
<Sentence>
select * from CMMTTXIF where TXN_COD='%s'
</Sentence>
<Fields>TXN_CD</Fields>
</DynSentence>
<DynSentence name="QRY_CMMTRSTS">
<Sentence>
select * from CMMTRSTS where SYS_DT='%s' and STS='1'
</Sentence>
<Fields>SYS_DT</Fields>
</DynSentence>
<!-- 查询菜单交易码 -->
<DynSentence name="QRY_CMMTFUNC">
<Sentence>
SELECT COUNT(*) MENUROW FROM CMMTFUNC WHERE func_no='%s'
</Sentence>
<Fields>TXN_CD|</Fields>
</DynSentence>
<!-- 过滤交易码 -->
<DynSentence name="QRY_TXNROW">
<Sentence>
SELECT COUNT(*) TXNROW FROM CMMTFUNCROLE r,cmmtoperrole o
WHERE r.role_id = o.role_id AND o.oper_no='%s' AND r.FUNC_NO='%s'
</Sentence>
<Fields>CUR_OPER_NO|TXN_CD|</Fields>
</DynSentence>
<Process>
<Exec func="PUB:InitGWA" error="IGNORE" />
<If condition="~RetCod!=0">
<Exit />
</If>
<!--Exec func="PUB:ETF2XML" error="IGNORE"> <Arg name="DstFld" value="DATA_INF" /> </Exec -->
<Set>UPD_OPER=$CUR_OPER_NO</Set>
<Set>CUR_OPR_ID=$CUR_OPER_NO</Set>
<Set>SYS_DT=GETDATE()</Set>
<!-- 获得流水日志号 -->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="GET_LOGNO" />
</Exec>
<If condition="~RetCod!=0">
<Exit />
</If>
<Set>LOG_NO=STRCAT($SYS_DT,PAD($LOG_NO,1,9,0))</Set>
<!-- 判断用户查询范围 -->
<!-- 如果不为总中心级别,设置查询极别 -->
<Set>SCOP_SQL=STRCAT(1=,1)</Set>
<Set>AC_DT=$SYS_DT</Set>
<Set>BUS_TYP=$TX_ATTR.BUS_TYP</Set>
<Set>TXN_TYP=$TX_ATTR.TXN_TYP</Set>
<!--Set>BUS_CNL=BUI</Set -->
<Set>GWA.BUS_CNL=BUI</Set>
<!--Set>SYS_CNL=BUI</Set -->
<Set>GWA.SYS_CNL=CAP</Set>
<Set>GWA.MSG_CD=SCM00000</Set>
<Set>IP_ADDR=@MSG.SIP</Set>
</Process>
</Function>
<!-- LibDeclare声明区 -->
<LibDeclare>
<Library name="WEB" value="hiwebatc.jar" />
<Library name="UBUI" value="hiubui.jar" />
<Library name="CPU" value="hicpuatc.jar" />
<Library name="GECINF" value="higeninf.jar" />
<Library name="CMM" value="hicmm.jar" />
<Library name="LOG" value="higeninf.jar" />
</LibDeclare>
<!-- PackageDeclare声明区 -->
<PackageDeclare>
<Package name="LPS_PUB" value="app/lps/etc/LPS_PUB_PKG.XML" />
<Package name="PURM" value="app/bui/etc/urm/URM_PKG.XML" />
</PackageDeclare>
<!-- ConfigDeclare声明区 -->
<!-- 公共前后处理声明区 -->
<GlobalFunction>
<!-- 公共前处理 -->
<Function name="_before">
<DynSentence name="GET_LOGNO">
<Sentence>
select S_LOG_NO.Nextval LOG_NO from dual
</Sentence>
</DynSentence>
<DynSentence name="QRY_CMMTTXIF">
<Sentence>
select * from CMMTTXIF where TXN_COD='%s'
</Sentence>
<Fields>TXN_CD</Fields>
</DynSentence>
<DynSentence name="QRY_CMMTRSTS">
<Sentence>
select * from CMMTRSTS where SYS_DT='%s' and STS='1'
</Sentence>
<Fields>SYS_DT</Fields>
</DynSentence>
<!-- 查询菜单交易码 -->
<DynSentence name="QRY_CMMTFUNC">
<Sentence>
SELECT COUNT(*) MENUROW FROM CMMTFUNC WHERE func_no='%s'
</Sentence>
<Fields>TXN_CD|</Fields>
</DynSentence>
<!-- 过滤交易码 -->
<DynSentence name="QRY_TXNROW">
<Sentence>
SELECT COUNT(*) TXNROW FROM CMMTFUNCROLE r,cmmtoperrole o
WHERE r.role_id = o.role_id AND o.oper_no='%s' AND r.FUNC_NO='%s'
</Sentence>
<Fields>CUR_OPER_NO|TXN_CD|</Fields>
</DynSentence>
<Process>
<Exec func="PUB:InitGWA" error="IGNORE" />
<If condition="~RetCod!=0">
<Exit />
</If>
<!--Exec func="PUB:ETF2XML" error="IGNORE"> <Arg name="DstFld" value="DATA_INF" /> </Exec -->
<Set>UPD_OPER=$CUR_OPER_NO</Set>
<Set>CUR_OPR_ID=$CUR_OPER_NO</Set>
<Set>SYS_DT=GETDATE()</Set>
<!-- 获得流水日志号 -->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="GET_LOGNO" />
</Exec>
<If condition="~RetCod!=0">
<Exit />
</If>
<Set>LOG_NO=STRCAT($SYS_DT,PAD($LOG_NO,1,9,0))</Set>
<!-- 判断用户查询范围 -->
<!-- 如果不为总中心级别,设置查询极别 -->
<Set>SCOP_SQL=STRCAT(1=,1)</Set>
<Set>AC_DT=$SYS_DT</Set>
<Set>BUS_TYP=$TX_ATTR.BUS_TYP</Set>
<Set>TXN_TYP=$TX_ATTR.TXN_TYP</Set>
<!--Set>BUS_CNL=BUI</Set -->
<Set>GWA.BUS_CNL=BUI</Set>
<!--Set>SYS_CNL=BUI</Set -->
<Set>GWA.SYS_CNL=CAP</Set>
<Set>GWA.MSG_CD=SCM00000</Set>
<Set>IP_ADDR=@MSG.SIP</Set>
<!-- 公共后处理 -->
<Function name="_after">
<Process>
<Set>OPER_PWD=BLANK(2)</Set><!-- 删除密码 -->
<If condition="~RetCod=-1">
<Set>GWA.MSG_CD=SCM60001</Set>
</If>
<!-- #SysRet 系统异常错误标志 -->
<If condition="#SysRet=0">
<!--@msg 系统正忙,请稍后提交 -->
<Set>GWA.MSG_CD=SCM60002</Set>
</If>
<If condition="ISNULL($GWA.MSG_CD)">
<!--@msg 系统正忙,请稍后提交 -->
<Set>GWA.MSG_CD=SCM60003</Set>
</If>
<If condition="IS_SUCC($GWA.MSG_CD)">
<Set>GWA.MSG_TYP=N</Set>
</If>
<Else>
<Set>GWA.MSG_TYP=E</Set>
<Exec func="PUB:UIProcMsgCod" error="IGNORE" />
<If condition="~RetCod!=0">
<Set>GWA.MSG_INF=系统正忙,请稍后提交</Set>
</If>
</Else>
<If condition="OR(IS_EQUAL_STRING($GWA.MSG_TYP,N),IS_EQUAL_STRING($GWA.MSG_TYP,W))">
<!-- 若消息类型正常或警告则提交数据库事务 -->
<Exec func="PUB:CommitWork" error="IGNORE" />
</If>
<Else>
<!-- 否则回滚数据库事务 -->
<Exec func="PUB:RollbackWork" error="IGNORE" />
</Else>
<!--FLG_LOG值为0：代表此交易不用写入操作日志 ;其他情况则写入操作日志中 -->
</Process>
</Function>
</GlobalFunction>
<!-- 交易鉴权 待修订-->
<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,4905103,2040867,2040862,2040865,2040863,2040864,2040860)">
<!--第三方鉴权-->
<Exec func="PUB:CallThirdComm" error="IGNORE">
<Arg name="HTxnCd" value="TokenVerify" />
<Arg name="ObjSvr" value="SCAHRO1" />
</Exec>
<If condition="~RetCod!=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00028"/>
<Arg name="MsgDat" value="鉴权失败"/>
</Exec>
<!--Exit/-->
</If>
<!--第三方返回为空时 说明无权限-->
<Set>FUNCSET=$FUNCSET</Set>
<If condition="ISNULL($FUNCSET)">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP10021"/>
<Arg name="MsgDat" value="无权限"/>
</Exec>
<!--Exit/-->
</If>
</If>
</Process>
</Function>
<!-- 公共后处理 -->
<Function name="_after">
<Process>
<Set>OPER_PWD=BLANK(2)</Set><!-- 删除密码 -->
<If condition="~RetCod=-1">
<Set>GWA.MSG_CD=SCM60001</Set>
</If>
<!-- #SysRet 系统异常错误标志 -->
<If condition="#SysRet=0">
<!--@msg 系统正忙,请稍后提交 -->
<Set>GWA.MSG_CD=SCM60002</Set>
</If>
<If condition="ISNULL($GWA.MSG_CD)">
<!--@msg 系统正忙,请稍后提交 -->
<Set>GWA.MSG_CD=SCM60003</Set>
</If>
<If condition="IS_SUCC($GWA.MSG_CD)">
<Set>GWA.MSG_TYP=N</Set>
</If>
<Else>
<Set>GWA.MSG_TYP=E</Set>
<Exec func="PUB:UIProcMsgCod" error="IGNORE" />
<If condition="~RetCod!=0">
<Set>GWA.MSG_INF=系统正忙,请稍后提交</Set>
</If>
</Else>
<If condition="OR(IS_EQUAL_STRING($GWA.MSG_TYP,N),IS_EQUAL_STRING($GWA.MSG_TYP,W))">
<!-- 若消息类型正常或警告则提交数据库事务 -->
<Exec func="PUB:CommitWork" error="IGNORE" />
</If>
<Else>
<!-- 否则回滚数据库事务 -->
<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,4905103,2040867,2040862,2040865,2040863,2040864,2040860)">
<!--操作员流水 -->
<Set>MSG_TYP=$GWA.MSG_TYP</Set>
<Set>MSG_CD=$GWA.MSG_CD</Set>
<Exec func="PUB:InsertRecord" error="IGNORE">
<Arg name="TblNam" value="CAPOPRLOG" />
</Exec>
<Exec func="PUB:CommitWork" error="IGNORE" />
</If>
</Process>
</Function>
</GlobalFunction>
</Root>
bui/etc/cap/OBUICAP1/0040003_CTL.XML
+72 -40
View File
@@ -1,45 +1,77 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code='0040003' log_switch='1' desc='批量路由规则信息删除'>
<DynSentence name='CMMTEMRULE_DEL'><!--临时表-->
<Sentence>
DELETE FROM CMMTEMRULE_BATCH WHERE RUL_NO = ?
</Sentence>
<Fields>RUL_NO|</Fields>
</DynSentence>
<DynSentence name='CMMTRTRULE_DEL'><!--正式表-->
<Sentence>
DELETE FROM CMMTRTRULE_BATCH WHERE RUL_NO = ?
</Sentence>
<Fields>RUL_NO|</Fields>
</DynSentence>
<FlowCtrl>
<If condition="IS_EQUAL_STRING($TAB_NM,CMMTEMRULE)">
<Set>DELSQL=CMMTEMRULE_DEL</Set><!--临时表-->
<Transaction code='0040003' log_switch='1' desc='批量路由规则信息删除'>
<DynSentence name='CMMTEMRULE_DEL'><!--临时表-->
<Sentence>
DELETE FROM CMMTEMRULE_BATCH WHERE RUL_NO = ?
</Sentence>
<Fields>RUL_NO|</Fields>
</DynSentence>
<DynSentence name='CMMTRTRULE_DEL'><!--正式表-->
<Sentence>
DELETE FROM CMMTRTRULE_BATCH WHERE RUL_NO = ?
</Sentence>
<Fields>RUL_NO|</Fields>
</DynSentence>
<DynSentence name="QRY_CMMTEMRULE_CMMTRTRULE">
<Sentence>
SELECT RUL_LVL FROM ? WHERE RUL_NO =?
</Sentence>
<Fields>TABLE_NM|RUL_NO|</Fields>
</DynSentence>
<FlowCtrl>
<If condition="IS_EQUAL_STRING($TAB_NM,CMMTEMRULE)">
<Set>DELSQL=CMMTEMRULE_DEL</Set><!--临时表-->
<Set>TABLE_NM=CMMTEMRULE_BATCH</Set><!--临时表-->
</If>
<If condition="IS_EQUAL_STRING($TAB_NM,CMMTRTRULE)">
<Set>DELSQL=CMMTRTRULE_DEL</Set><!--正式表-->
<Set>TABLE_NM=CMMTRTRULE_BATCH</Set><!--正式表-->
</If>
<!--检查是否存在未生效的默认路由-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTEMRULE_BATCH_INF"/>
</Exec>
<If condition='~RetCod=0'>
<If condition="IS_EQUAL_STRING($RUL_LVL,9999)">
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CAP00030'/>
<Arg name='MsgDat' value='默认路由不允许删除'/>
</Exec>
<Return/>
</If>
<If condition="IS_EQUAL_STRING($TAB_NM,CMMTRTRULE)">
<Set>DELSQL=CMMTRTRULE_DEL</Set><!--正式表-->
</If>
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='$DELSQL' />
</If>
<Else>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CAP00021'/>
<Arg name='MsgDat' value='数据库错误'/>
</Exec>
<If condition='~RetCod=0'>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00000'/>
<Arg name='MsgDat' value='删除成功'/>
</Exec>
<Return/>
</If>
<Else>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00302'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
</FlowCtrl>
</Transaction>
<Return/>
</Else>
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='$DELSQL' />
</Exec>
<If condition='~RetCod=0'>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00000'/>
<Arg name='MsgDat' value='删除成功'/>
</Exec>
<Return/>
</If>
<Else>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00302'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
</FlowCtrl>
</Transaction>
</Root>
bui/etc/cap/OBUICAP1/0040009_CTL.XML
+64 -37
View File
@@ -1,43 +1,70 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code='0040009' log_switch='1' desc='批量向正式路由表中插入插入数据'>
<DynSentence name='del'>
<Sentence>DELETE FROM CMMTRTRULE_BATCH</Sentence>
</DynSentence>
<DynSentence name='insert'>
<Sentence>insert into CMMTRTRULE_BATCH (select * from CMMTEMRULE_BATCH where RUL_STS='2')</Sentence>
</DynSentence>
<FlowCtrl>
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='del' />
<Transaction code='0040009' log_switch='1' desc='批量向正式路由表中插入插入数据'>
<DynSentence name='del'>
<Sentence>DELETE FROM CMMTRTRULE_BATCH</Sentence>
</DynSentence>
<DynSentence name='insert'>
<Sentence>insert into CMMTRTRULE_BATCH (select * from CMMTEMRULE_BATCH where RUL_STS='2')</Sentence>
</DynSentence>
<DynSentence name="QRY_CMMTEMRULE_BATCH_INF">
<Sentence>
SELECT 'Y' YN FROM DUAL WHERE EXISTS
( SELECT 'Y' YN FROM CMMTEMRULE_BATCH
WHERE RUL_LVL='9999' AND (RUL_STS!='2' OR CORG_NO IS NULL OR ROUT_FLG IS NULL))
</Sentence>
</DynSentence>
<FlowCtrl>
<!--检查是否存在未生效的默认路由-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTEMRULE_BATCH_INF"/>
</Exec>
<If condition='~RetCod=0'>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CAP00029'/>
<Arg name='MsgDat' value='存在未生效的默认路由'/>
</Exec>
<If condition='~RetCod!=1'><!-- 正式路由表中数据清空成功 -->
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='insert' />
</Exec>
<If condition='~RetCod=0'>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00000'/>
</Exec>
<Return/>
</If>
<Else> <!-- 向正式路由表中插入数据失败 -->
<!-- 事务回滚 -->
<Exec func="PUB:RollbackWork"/>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
<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:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='del' />
</Exec>
<If condition='~RetCod!=1'><!-- 正式路由表中数据清空成功 -->
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='insert' />
</Exec>
<If condition='~RetCod=0'>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00000'/>
</Exec>
<Return/>
</If>
<Else>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
<Else> <!-- 向正式路由表中插入数据失败 -->
<!-- 事务回滚 -->
<Exec func="PUB:RollbackWork"/>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
</FlowCtrl>
</Transaction>
</If>
<Else>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
</FlowCtrl>
</Transaction>
</Root>
bui/etc/cap/OBUICAP1/0040011_CTL.XML
+39 -36
View File
@@ -1,43 +1,46 @@
<?xml version='1.0' encoding='UTF-8'?>
<Root>
<Transaction code='0040011' log_switch='1' desc='批量将正式表数据恢复到临时表中'>
<DynSentence name='del'>
<Sentence>DELETE FROM CMMTEMRULE_BATCH</Sentence>
</DynSentence>
<DynSentence name='insert'>
<Sentence>insert into CMMTEMRULE_BATCH (select * from CMMTRTRULE_BATCH where RUL_STS='2')</Sentence>
</DynSentence>
<FlowCtrl>
<Transaction code='0040011' log_switch='1' desc='批量将正式表数据恢复到临时表中'>
<DynSentence name='del'>
<Sentence>
DELETE FROM CMMTEMRULE_BATCH
WHERE RUL_LVL!='9999' OR ( RUL_LVL='9999' AND RUL_NO IN (select RUL_NO from CMMTRTRULE_BATCH where RUL_STS='2'))
</Sentence>
</DynSentence>
<DynSentence name='insert'>
<Sentence>insert into CMMTEMRULE_BATCH (select * from CMMTRTRULE_BATCH where RUL_STS='2')</Sentence>
</DynSentence>
<FlowCtrl>
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='del' />
</Exec>
<If condition='~RetCod!=1'><!-- 正式路由表中数据清空成功 -->
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='del' />
<Arg name='SqlCmd' value='insert' />
</Exec>
<If condition='~RetCod!=1'><!-- 正式路由表中数据清空成功 -->
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='insert' />
</Exec>
<If condition='~RetCod=0'>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00000'/>
</Exec>
<Return/>
</If>
<Else> <!-- 向正式路由表中插入数据失败 -->
<!-- 事务回滚 -->
<Exec func="PUB:RollbackWork"/>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
<If condition='~RetCod=0'>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM00000'/>
</Exec>
<Return/>
</If>
<Else>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
<Else> <!-- 向正式路由表中插入数据失败 -->
<!-- 事务回滚 -->
<Exec func="PUB:RollbackWork"/>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
</FlowCtrl>
</Transaction>
</If>
<Else>
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CMM30002'/>
<Arg name='MsgDat' value='可能sql语句写错或者其他原因'/>
</Exec>
<Return/>
</Else>
</FlowCtrl>
</Transaction>
</Root>
bui/etc/cap/OBUICAP1/2040858_CTL.XML
+2 -2
View File
@@ -6,8 +6,8 @@
<DynSentence name="QRY_CAPCUSINF"> <!--客户信息查询-->
<Sentence>
select * from CAPCUSINF where
('%s' IS NULL OR CUSTOMER_ID LIKE '%s%')
AND ('%s' IS NULL OR CUSTOMER_NAME LIKE '%s%')
('%s' IS NULL OR CUSTOMER_ID LIKE '%%s%')
AND ('%s' IS NULL OR CUSTOMER_NAME LIKE '%%s%')
AND ('%s' IS NULL OR RANK = '%s')
AND ('%s' IS NULL OR ENABLED = '%s')
</Sentence>
bui/etc/cap/OBUICAP1/2040859_CTL.XML
+3 -3
View File
@@ -6,10 +6,10 @@
<DynSentence name="QRY_CAPACCOUNTINF"> <!--支付地抬头信息查询-->
<Sentence>
select * from CAPACCOUNTINF where
('%s' IS NULL OR TITLE_ID LIKE '%s%')
AND ('%s' IS NULL OR TITLE_NAME LIKE '%s%')
('%s' IS NULL OR TITLE_ID LIKE '%%s%')
AND ('%s' IS NULL OR TITLE_NAME LIKE '%%s%')
AND ('%s' IS NULL OR ACCT_TYPE = '%s')
AND ('%s' IS NULL OR ACCT_NO LIKE '%s%')
AND ('%s' IS NULL OR ACCT_NO LIKE '%%s%')
</Sentence>
<Fields>TITLE_ID|TITLE_ID|TITLE_NAME|TITLE_NAME|ACCT_TYPE|ACCT_TYPE|ACCT_NO|ACCT_NO|</Fields>
</DynSentence>
bui/etc/cap/OBUICAP1/2040860_CTL.XML
+4 -20
View File
@@ -6,8 +6,8 @@
<FlowCtrl>
<!--TEST-->
<Set>token=eyJhbGciOiJIUzUxMiIsInR5cCI6IkpXVCJ9.eyJleHAiOjE2MTE3MTU0NDcsInN1YiI6Ik1SIiwidXNlcklkIjoiMSIsImlzcyI6ImN0Zy5ocm8iLCJ1c2VyTmFtZSI6ImFkbWluIiwiaWF0IjoxNjExNjI5MDQ3fQ.ywC3_Mr9Kmdd6Las-tqlR1WCLW84x-6gUkxIx24YTRtUvf0IscplvEDZrlarjNr5hA10a4SkZ-JRrvcSlRWgJQ</Set>
<Set>funcId=2</Set>
<Set>token=$TOKEN</Set>
<Set>funcId=$FUNC_ID</Set>
<!--TEST-->
<!--第三方鉴权-->
<Exec func="PUB:CallThirdComm" error="IGNORE">
@@ -16,12 +16,12 @@
</Exec>
<If condition="~RetCod!=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP10021"/>
<Arg name="MsgCd" value="CAP00028"/>
<Arg name="MsgDat" value="调用鉴权系统失败"/>
</Exec>
<Return/>
</If>
<!--第三方返回为空时 说明无权限-->
<Set>FUNCSET=$FUNCSET</Set>
<If condition="ISNULL($FUNCSET)">
@@ -32,22 +32,6 @@
<Return/>
</If>
<!--第三方返回不为空时 需要对返回报文进行截取-->
<Exec func="PUB:Split">
<Arg name="Value" value="$FUNCSET"/>
<Arg name="GrpNam" value="REC"/>
<Arg name="SepChar" value=","/>
<Arg name="Type" value="0"/>
<Arg name="ParaNam" value="APP_ID"/>
</Exec>
<If condition="~RetCod!=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP10021"/>
<Arg name="MsgDat" value="解析报文错误"/>
</Exec>
<Return/>
</If>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
bui/etc/cap/OBUICAP1/2040863_CTL.XML
+53 -9
View File
@@ -9,38 +9,82 @@
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<DynSentence name='Qry_MaxId'>
<Sentence>select max(RUL_NO) as maxId from CMMTEMRULE_BATCH </Sentence>
</DynSentence>
<DynSentence name="INS_CMMTEMRULE_BATCH_INF">
<Sentence>
Insert into CMMTEMRULE_BATCH(RUL_NO,RUL_LVL,TRA_CD,DAT_LOW,DAT_UP,TIM_LOW,TIM_UP,RUL_STS,WEIGHT,TXN_CNL,TXN_CNLNA,GRP_NM,TM_SMP)
values (?,9999,'12',?,'99991231','000000','235959','0',999,'HRO','集团代收付',?,?)
</Sentence>
<Fields>RUL_NO|TXN_DT|GRP_NM|TM_SMP|</Fields>
</DynSentence>
<FlowCtrl>
<Set>TM_SMP=GETDATETIME()</Set>
<!--组信息新增-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTRTRGRP_INF"/>
<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/>
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
</If>
<Exec func='PUB:ReadRecord' error='IGNORE'><!-- 查询最大ID -->
<Arg name='SqlCmd' value='Qry_MaxId'/>
</Exec>
<If condition='~RetCod=0'><!-- 在原有基础+1 -->
<If condition='ISNULL($maxId)'> <!-- 没有数据 ID为0000 -->
<Set>RUL_NO=0000</Set>
</If>
<Else>
<Set>RUL_NO=ADDCHAR(ADD(1,$maxId),4,0,1)</Set>
</Else>
</If>
<ElseIf condition='~RetCod =-1'><!-- 查询失败 -->
<Exec func="PUB:RollbackWork" />
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CAP00021' />
</Exec>
<Return/>
</ElseIf>
<Exec func='PUB:ExecSql' error='IGNORE'>
<Arg name='SqlCmd' value='INS_CMMTEMRULE_BATCH_INF' />
</Exec>
<If condition='~RetCod!=0'>
<Exec func="PUB:RollbackWork" />
<Exec func='PUB:GWASetMsg'>
<Arg name='MsgCd' value='CAP00021'/>
<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/>
<Return/>
</ElseIf>
<Else><!--数据库查询错误-->
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="数据库错误"/>
</Exec>
<Return/>
<Return/>
</Else>
<Exec func="PUB:DumpETF" />
<Exec func="PUB:GWASetMsg">
bui/etc/cap/OBUICAP1/2040865_CTL.XML
+51 -2
View File
@@ -1,6 +1,6 @@
<?xml version="1.0" encoding='UTF-8'?>
<Root>
<!--组信息修改-->
<!--组信息删除-->
<Transaction code="2040865" log_switch="1">
<DynSentence name="QRY_CMMTRTRGRP_INF">
@@ -17,9 +17,44 @@
<Fields>GRP_NM|</Fields>
</DynSentence>
<DynSentence name="DEL_CMMTEMRULE_BATCH">
<Sentence>
DELETE FROM CMMTEMRULE_BATCH WHERE GRP_NM=?
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<DynSentence name="QRY_TITRTRGRP_INF">
<Sentence>
SELECT 'Y' YN FROM DUAL WHERE EXISTS
(SELECT 'Y' YN FROM TITRTRGRP
WHERE RTR_GRP=?)
</Sentence>
<Fields>GRP_NM|</Fields>
</DynSentence>
<FlowCtrl>
<!--组信息新增-->
<!--查询是否存在支付地抬头关系-->
<Exec func="PUB:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_TITRTRGRP_INF"/>
</Exec>
<If condition="~RetCod=0">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP00021"/>
<Arg name="MsgDat" value="该路由组存在支付地抬头关联关系不允许删除"/>
</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:ReadRecord" error="IGNORE">
<Arg name="SqlCmd" value="QRY_CMMTRTRGRP_INF"/>
</Exec>
@@ -34,6 +69,20 @@
</Exec>
<Return/>
</If>
<Exec func="PUB:ExecSql" error="IGNORE">
<Arg name="SqlCmd" value="DEL_CMMTEMRULE_BATCH"/>
</Exec>
<If condition="~RetCod!=0">
<Exec func="PUB:RollbackWork" />
<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">
bui/etc/cap/OBUICAP1/2040869_CTL.XML
+1 -1
View File
@@ -6,7 +6,7 @@
<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%')
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>
bui/etc/cap/OBUICAP2/4904101_CTL.XML
+6 -42
View File
@@ -66,58 +66,22 @@
<Set>ADI_INS.HOD_FLG =$ORGLMTRLR[$GROP_NUM].HOD_FLG </Set><!--节假日能否运行 Y:可以 N:不可以-->
<Set>ADI_INS.LMT_MAX_PL_AMT =$ORGLMTRLR[$GROP_NUM].LMT_MAX_PL_AMT </Set><!--单笔最大限额(对私) 0:不限制 -->
<Set>ADI_INS.LMT_MIN_PL_AMT =$ORGLMTRLR[$GROP_NUM].LMT_MIN_PL_AMT </Set><!--单笔最小限额(对私) 0:不限制 -->
<If condition="DOUBLECMP($ADI_INS.LMT_MAX_PL_AMT,1,$ADI_INS.LMT_MIN_PL_AMT )">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="单笔最大限额对私大于单笔最小限额对私"/>
</Exec>
<Return/>
</If>
<Set>ADI_INS.LMT_MAX_CD_AMT =$ORGLMTRLR[$GROP_NUM].LMT_MAX_CD_AMT </Set><!--单笔最大限额(对公) 0:不限制 -->
<Set>ADI_INS.LMT_MIN_CD_AMT =$ORGLMTRLR[$GROP_NUM].LMT_MIN_CD_AMT </Set><!--单笔最小限额(对公) 0:不限制 -->
<!-- <If condition="DOUBLECMP($ADI_INS.LMT_MAX_CD_AMT,1,$ADI_INS.LMT_MIN_CD_AMT )"> -->
<!-- <Exec func="PUB:GWASetMsg"> -->
<!-- <Arg name="MsgCd" value="CAP99999"/> -->
<!-- <Arg name="MsgDat" value="单笔最大限额对公大于单笔最小限额对公"/> -->
<!-- </Exec> -->
<!-- <Return/> -->
<!-- </If> -->
<Set>ADI_INS.LMT_MAX_BAT_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MAX_BAT_AMT</Set><!--单批最大限额 0:不限制 -->
<Set>ADI_INS.LMT_MIN_BAT_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MIN_BAT_AMT</Set><!--单批最小限额 0:不限制 -->
<If condition="DOUBLECMP($ADI_INS.LMT_MAX_BAT_AMT,1,$ADI_INS.LMT_MIN_BAT_AMT )">
<Exec func="PUB:GWASetMsg">
<Arg name="MsgCd" value="CAP99999"/>
<Arg name="MsgDat" value="单批最大限额大于单批最小限额"/>
</Exec>
<Return/>
</If>
<Set>ADI_INS.LMT_MAX_DAY_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MAX_DAY_AMT</Set><!--每日最大限额 0:不限制 -->
<Set>ADI_INS.LMT_MIN_DAY_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MIN_DAY_AMT</Set><!--每日最小限额 0:不限制 -->
<!-- <If condition="DOUBLECMP($ADI_INS.LMT_MAX_DAY_AMT,1,$ADI_INS.LMT_MIN_DAY_AMT )"> -->
<!-- <Exec func="PUB:GWASetMsg"> -->
<!-- <Arg name="MsgCd" value="CAP99999"/> -->
<!-- <Arg name="MsgDat" value="每日最大限额大于每日最小限额"/> -->
<!-- </Exec> -->
<!-- <Return/> -->
<!-- </If> -->
<Set>ADI_INS.LMT_MAX_MTH_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MAX_MTH_AMT</Set><!--每月最大限额 0:不限制 -->
<Set>ADI_INS.LMT_MIN_MTH_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MIN_MTH_AMT</Set><!--每月最小限额 0:不限制 -->
<!-- <If condition="DOUBLECMP($ADI_INS.LMT_MAX_MTH_AMT,1,$ADI_INS.LMT_MIN_MTH_AMT )"> -->
<!-- <Exec func="PUB:GWASetMsg"> -->
<!-- <Arg name="MsgCd" value="CAP99999"/> -->
<!-- <Arg name="MsgDat" value="每月最大限额大于每月最小限额"/> -->
<!-- </Exec> -->
<!-- <Return/> -->
<!-- </If> -->
<Set>ADI_INS.LMT_MAX_YAR_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MAX_YAR_AMT</Set><!--每年最大限额 0:不限制 -->
<Set>ADI_INS.LMT_MIN_YAR_AMT=$ORGLMTRLR[$GROP_NUM].LMT_MIN_YAR_AMT</Set><!--每年最小限额 0:不限制 -->
<!-- <If condition="DOUBLECMP($ADI_INS.LMT_MAX_YAR_AMT,1,$ADI_INS.LMT_MIN_YAR_AMT )"> -->
<!-- <Exec func="PUB:GWASetMsg"> -->
<!-- <Arg name="MsgCd" value="CAP99999"/> -->
<!-- <Arg name="MsgDat" value="每年最大限额大于每年最小限额"/> -->
<!-- </Exec> -->
<!-- <Return/> -->
<!-- </If> -->
<Set>ADI_INS.LMT_MAX_BAT_CNT=$ORGLMTRLR[$GROP_NUM].LMT_MAX_BAT_CNT</Set><!--单批最大笔数 0:不限制 -->
<Set>ADI_INS.LMT_MAX_DAY_CNT=$ORGLMTRLR[$GROP_NUM].LMT_MAX_DAY_CNT</Set><!--每日最大笔数/批数 0:不限制 -->
<Set>ADI_INS.LMT_MAX_MTH_CNT=$ORGLMTRLR[$GROP_NUM].LMT_MAX_MTH_CNT</Set><!--每月最大笔数/批数 0:不限制 -->