From e9bf5f02a4446e68f1b33a9a64fe4d4a936cbd8e Mon Sep 17 00:00:00 2001
From: Alawn <alawn.cn@gmail.com>
Date: Fri, 14 May 2021 15:36:08 +0800
Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8D=E5=AD=98=E6=8A=98=E9=97=AE?=
 =?UTF-8?q?=E9=A2=98?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 cap/etc/batch/204025_CTL.XML | 32 ++++++++++++++++++++++++++++----
 1 file changed, 28 insertions(+), 4 deletions(-)

diff --git a/cap/etc/batch/204025_CTL.XML b/cap/etc/batch/204025_CTL.XML
index 11c1ba6..e1ec9f1 100644
--- a/cap/etc/batch/204025_CTL.XML
+++ b/cap/etc/batch/204025_CTL.XML
@@ -114,6 +114,13 @@
             </Sentence>
             <Fields>BNK_CD|</Fields>
         </DynSentence>
+        
+        <DynSentence name="QRY_BNK_TYP">
+            <Sentence>
+                SELECT BNK_TYP  FROM ( SELECT BNK_TYP FROM CMMTBKTYP where bnk_cd = ? ) WHERE ROWNUM = 1
+            </Sentence>
+            <Fields>BNK_CD|</Fields>
+        </DynSentence>
 
         <Function name="_after">
             <Process>
@@ -326,17 +333,34 @@
                     <Arg name="CrdNo" value="$AC_NO"/>
                 </Exec>
 
-                <If condition="AND(ISNULL($BNK_TYP),ISNULL($CAPTXNJNL.BANK_CODE))">
-                    <Set>CAPTXNJNL.BNK_TYP=04</Set>
+                <If condition="AND(OR(ISNULL($BNK_TYP),IS_EQUAL_STRING($BNK_TYP,ZZZZ)),ISNULL($CAPTXNJNL.BANK_CODE))">
+                    <Set>CAPTXNJNL.CRD_FLG=04</Set>
                     <Set>CAPTXNJNL.TXN_STS=F</Set>
                     <Set>CAPTXNJNL.RSP_CD=80</Set>
                     <Set>CAPTXNJNL.RSP_MSG=收款账户所属银行未知</Set>
                     <Set>CAPTXNJNL.DSK_NAM_STS=4</Set>
                     <Set>RTR_FLAG=1</Set>
                 </If>
-                <ElseIf condition="AND(ISNULL($BNK_TYP),(ISNULL($CAPTXNJNL.BANK_CODE)=0))">
-                    <Set>RTR_IN.BNK_TYP=04</Set><!--其他-->
+                <ElseIf condition="AND(OR(ISNULL($BNK_TYP),IS_EQUAL_STRING($BNK_TYP,ZZZZ)),(ISNULL($CAPTXNJNL.BANK_CODE)=0))">
+                    <Set>RTR_IN.CRD_FLG=04</Set><!--其他-->
+                    <Set>CAPTXNJNL.CRD_FLG=04</Set>
+                    <Set>RTR_IN.CRD_NM=其他</Set>
+                    <Set>CAPTXNJNL.CRD_NM=其他</Set>
+
                     <Set>BNK_CD=$CAPTXNJNL.BANK_CODE</Set>
+                    <!--Exec func="PUB:ReadRecord">
+                        <Arg name="SqlCmd" value="QRY_BNK_TYP"/>
+                    </Exec-->
+
+                    <If condition="IS_EQUAL_STRING($BNK_CD,ICBC)">
+                        <Set>BNK_TYP=0102</Set>
+                    </If>
+                    <ElseIf condition="IS_EQUAL_STRING($BNK_CD,CMB)">
+                        <Set>BNK_TYP=0308</Set>
+                    </ElseIf>
+
+                    <Set>RTR_IN.BNK_TYP=$BNK_TYP</Set>
+                    <Set>CAPTXNJNL.BNK_TYP=$BNK_TYP</Set>
                     <Exec func="PUB:ReadRecord">
                         <Arg name="SqlCmd" value="QRY_LBNKNO2"/>
                     </Exec>