修改

2021-01-26 20:47:27 +08:00
parent 0756a1f792
commit 2a9d4f0e4c
1 changed files with 49 additions and 2 deletions
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding='UTF-8'?>
 <Root>
-   <!--组信息修改-->
+   <!--风控组信息删除-->
   <Transaction code="2040875" log_switch="1">

      <DynSentence name="QRY_CUSLMTRLR_INF">
@@ -10,6 +10,22 @@
         <Fields>LMT_NM|</Fields>
      </DynSentence>

+      <!--是否存在生效用户使用该组-->
+      <DynSentence name="QRY_CAPCUSINF_INF">
+         <Sentence>
+            SELECT 'Y' YN FROM DUAL WHERE EXISTS (SELECT 'Y' YN FROM  CAPCUSINF  WHERE LMT_NM=? AND ENABLED='Y')
+         </Sentence>
+         <Fields>LMT_NM|</Fields>
+      </DynSentence>
+
+      <!--更新失效用户风控组-->
+      <DynSentence name="UPD_CAPCUSINF_INF">
+         <Sentence>
+           UPDATE  CAPCUSINF SET LMT_NM='DEFAULT' WHERE LMT_NM=? AND ENABLED='N'
+         </Sentence>
+         <Fields>LMT_NM|</Fields>
+      </DynSentence>
+
      <DynSentence name="DEL_CUSLMTRLR_INF">
         <Sentence>
            DELETE  FROM CUSLMTRLR WHERE LMT_NM=?
@@ -19,11 +35,41 @@

      <FlowCtrl>

-         <!--组信息新增-->
+         <!--组信息删除-->
         <Exec func="PUB:ReadRecord" error="IGNORE">
            <Arg name="SqlCmd"       value="QRY_CUSLMTRLR_INF"/>
         </Exec>
         <If condition="~RetCod=0">
+            <Exec func="PUB:ReadRecord" error="IGNORE">
+               <Arg name="SqlCmd"       value="QRY_CAPCUSINF_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>
+            
+            <!--更新该风控规则下的失效用户的风控规则为DEFAULT-->
+            <Exec func="PUB:ExecSql" error="IGNORE">
+               <Arg name="SqlCmd"    value="UPD_CAPCUSINF_INF"/>
+            </Exec>
+            <If condition="~RetCod=-1">
+               <Exec func="PUB:GWASetMsg">
+                  <Arg name="MsgCd" value="CAP00021"/>
+                  <Arg name="MsgDat" value="数据库错误"/>
+               </Exec>
+               <Return/>
+            </If>
+            
            <Exec func="PUB:ExecSql" error="IGNORE">
               <Arg name="SqlCmd"    value="DEL_CUSLMTRLR_INF"/>
            </Exec>
@@ -32,6 +78,7 @@
                  <Arg name="MsgCd" value="CAP00021"/>
                  <Arg name="MsgDat" value="数据库错误"/>
               </Exec>
+                <Exec func="PUB:RollbackWork" />
               <Return/>
            </If>
         </If>