修订代码20210126

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>

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>

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>
 
          <!--生成多页查询数据集-->