From 0756a1f792e16c08efcba19fb55d46e5a74b1ad4 Mon Sep 17 00:00:00 2001
From: zhao_ll <zhao_ll@murongtech.com>
Date: Tue, 26 Jan 2021 16:14:18 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E8=AE=A2=E4=BB=A3=E7=A0=8120210126?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bui/etc/cap/OBUICAP1/2040881_CTL.XML    | 43 +++++++++++++++++++++++++
 bui/etc/cap/OBUICAP1_CTL.XML            |  1 +
 bui/etc/cmm/OBUICMM2/BUI0022710_CTL.XML |  6 ++--
 3 files changed, 47 insertions(+), 3 deletions(-)
 create mode 100644 bui/etc/cap/OBUICAP1/2040881_CTL.XML

diff --git a/bui/etc/cap/OBUICAP1/2040881_CTL.XML b/bui/etc/cap/OBUICAP1/2040881_CTL.XML
new file mode 100644
index 0000000..c89380a
--- /dev/null
+++ b/bui/etc/cap/OBUICAP1/2040881_CTL.XML
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding='UTF-8'?>
+<Root>
+   <!--客户等级下拉列表查询-->
+   <Transaction code="2040881" log_switch="1">
+
+      <DynSentence name="QRY_CAPCUSINF_INF">
+         <Sentence>
+            SELECT RANK from CAPCUSINF GROUP BY RANK
+         </Sentence>
+      </DynSentence>        
+
+      <FlowCtrl>
+
+         <!--查询下拉列表-->
+         <Exec func="PUB:QueryInGroup" error="IGNORE">
+            <Arg name="SqlCmd" value="QRY_CAPCUSINF_INF"/>
+         </Exec>
+         <If condition="~RetCod=0">
+          <Exec func="PUB:GWASetMsg">
+            <Arg name="MsgCd" value="CAP00000" />
+         </Exec>
+         </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="CAP00021"/>
+               <Arg name="MsgDat" value="数据库错误"/>
+            </Exec>
+            <Return/>
+         </Else>
+         <Exec func="PUB:DumpETF" />
+
+
+      </FlowCtrl>
+   </Transaction>
+
+</Root>
diff --git a/bui/etc/cap/OBUICAP1_CTL.XML b/bui/etc/cap/OBUICAP1_CTL.XML
index 1da51e1..bc78752 100644
--- a/bui/etc/cap/OBUICAP1_CTL.XML
+++ b/bui/etc/cap/OBUICAP1_CTL.XML
@@ -140,5 +140,6 @@
    <Include file="etc/cap/OBUICAP1/2040878_CTL.XML" />  <!-- 未匹配风控规则客户信息查询 -->  
    <Include file="etc/cap/OBUICAP1/2040879_CTL.XML" />  <!-- 客户风控规则新增 -->  
    <Include file="etc/cap/OBUICAP1/2040880_CTL.XML" />  <!-- 客户风控规则解除 -->  
+   <Include file="etc/cap/OBUICAP1/2040881_CTL.XML" />  <!-- 客户登记下拉列表查询 -->  
    
 </Application>
diff --git a/bui/etc/cmm/OBUICMM2/BUI0022710_CTL.XML b/bui/etc/cmm/OBUICMM2/BUI0022710_CTL.XML
index 1dcecbf..8b1168a 100644
--- a/bui/etc/cmm/OBUICMM2/BUI0022710_CTL.XML
+++ b/bui/etc/cmm/OBUICMM2/BUI0022710_CTL.XML
@@ -6,15 +6,15 @@
          <Sentence>
              SELECT FIT_TRK,FIT_OFS,FIT_CTT,FIT_LEN,CRD_TRK,CRD_OFS,CRD_LEN,CRD_FLG,EXP_DT_FLG,CRD_NM,INT_MOD,U.BNK_TYP,U.TM_SMP,BNK_NM
              FROM CMMTUFIT  U LEFT JOIN CMMTBKTYP B ON U.BNK_TYP = B.BNK_TYP
-             WHERE (FIT_CTT LIKE ? OR ? IS NULL) 
+             WHERE ( (substr(?,0,FIT_LEN) = REPLACE(FIT_CTT,'F','') and crd_len = to_char(length(?))) OR ? IS NULL) 
                AND (CRD_FLG=? OR ? IS NULL)
                AND (BNK_NM LIKE ? OR ? IS NULL)
          </Sentence>
-         <Fields>FIT_CTT|FIT_CTT|CRD_FLG|CRD_FLG|BNK_NM|BNK_NM|</Fields>
+         <Fields>FIT_CTT|FIT_CTT|FIT_CTT|CRD_FLG|CRD_FLG|BNK_NM|BNK_NM|</Fields>
       </DynSentence>
       <FlowCtrl>
 
-          <Set>FIT_CTT=STRCAT("%",DELBOTHSPACE($FIT_CTT),"%")</Set>
+          <!--Set>FIT_CTT=STRCAT("%",DELBOTHSPACE($FIT_CTT),"%")</Set-->
           <Set>BNK_NM=STRCAT("%",DELBOTHSPACE($BNK_NM),"%")</Set>
 
          <!--生成多页查询数据集-->