From 2a9d4f0e4cdc9b54f6287895c20066a648d8eee5 Mon Sep 17 00:00:00 2001
From: zhao_ll <zhao_ll@murongtech.com>
Date: Tue, 26 Jan 2021 20:47:27 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E6=94=B9?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bui/etc/cap/OBUICAP1/2040875_CTL.XML | 51 ++++++++++++++++++++++++++--
 1 file changed, 49 insertions(+), 2 deletions(-)

diff --git a/bui/etc/cap/OBUICAP1/2040875_CTL.XML b/bui/etc/cap/OBUICAP1/2040875_CTL.XML
index 404913c..417ff6b 100644
--- a/bui/etc/cap/OBUICAP1/2040875_CTL.XML
+++ b/bui/etc/cap/OBUICAP1/2040875_CTL.XML
@@ -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>