From 69d85d486ec2b5996170546c191cd1b209978ed8 Mon Sep 17 00:00:00 2001
From: Alawn <alawn.cn@gmail.com>
Date: Wed, 10 Apr 2024 15:20:31 +0800
Subject: [PATCH] =?UTF-8?q?=E5=9B=A0=E4=B8=BA=E6=95=B4=E4=B8=AA=E9=9B=86?=
 =?UTF-8?q?=E5=9B=A2=E9=80=9A=E8=BF=87=E5=B7=A5=E8=A1=8C=E5=8F=91=E6=94=BE?=
 =?UTF-8?q?=E8=B6=85=E8=BF=871000=E4=B8=AA=E6=89=B9=E6=AC=A1=EF=BC=8C?=
 =?UTF-8?q?=E5=AF=BC=E8=87=B4bustype=E9=87=8D=E5=A4=8D?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 cap/etc/channel/icbc/BATCH_ICBC.XML | 36 ++++++++++++++++++++++++++++-
 1 file changed, 35 insertions(+), 1 deletion(-)

diff --git a/cap/etc/channel/icbc/BATCH_ICBC.XML b/cap/etc/channel/icbc/BATCH_ICBC.XML
index 22e4052..a156c04 100644
--- a/cap/etc/channel/icbc/BATCH_ICBC.XML
+++ b/cap/etc/channel/icbc/BATCH_ICBC.XML
@@ -58,6 +58,15 @@
          </Sentence>
          <Fields>DSK_NAM|ORD_DT|CORG_NO|TXN_MOD|</Fields>
       </DynSentence>
+       
+      <DynSentence name="QryBatTacNo"><!-- 查询付款账号 -->
+         <Sentence>
+            SELECT   TAC_NO ICBC_BUS_TYP_SEQ FROM CAPTXNJNL
+            WHERE DSK_NAM=? AND ORD_DT=?  AND CORG_NO=?  AND ROWNUM =1
+         </Sentence>
+         <Fields>DSK_NAM|ORD_DT|CORG_NO|</Fields>
+      </DynSentence>        
+        
       <FlowCtrl>
          <!--清理数据 -->
          <Delete>RSP_CD</Delete>
@@ -74,14 +83,39 @@
 
 
          <!--获取第三方业务种类编号1到999  当日不重复 每一个大批次获取一个-->
-         <Exec func="PUB:ReadRecord" error="IGNORE">
+         <!--Exec func="PUB:ReadRecord" error="IGNORE">
             <Arg name="SqlCmd"       value="QRY_ICBCCORGBUSTYP_VAL"/>
          </Exec>
+         <If condition="~RetCod!=0">
+            <Set>Rsp_Cd=80</Set>
+            <Set>Rsp_Msg=获取业务种类编号失败</Set>
+            <Return/>
+         </If-->
+         
+         <!--查询付款账号-->
+         <Exec func="PUB:ReadRecord" error="IGNORE">
+            <Arg name="SqlCmd"       value="QryBatTacNo"/>
+         </Exec>
          <If condition="~RetCod!=0">
             <Set>Rsp_Cd=80</Set>
             <Set>Rsp_Msg=获取业务种类编号失败</Set>
             <Return/>
          </If>
+         
+			<Set>BR_NO=999999</Set>   <!--公共序号表pubseqrec中的字段BR_NO -->
+			<Set>ICBC_BUS_TYP_SEQ=$ICBC_BUS_TYP_SEQ</Set>   <!--公共序号表pubseqrec中的字段BR_NO -->
+			<Exec func="PUB:GetPubSeqNoCircle" error="IGNORE">
+				<Arg name="SeqNam" value="ICBC_CORG_BUS_TYP" />
+				<Arg name="Len" value="3" />
+				<Arg name="SeqCnd" value="$ICBC_BUS_TYP_SEQ" />
+			</Exec>
+			<If condition="~RetCod!=0">
+            <Set>Rsp_Cd=80</Set>
+            <Set>Rsp_Msg=获取序号失败</Set>
+            <Return/>
+			</If>          
+           
+         <Set>CORG_BUS_TYP=$SEL_VAL</Set>
          <Set>CORG_BUS_TYP=ADD($CORG_BUS_TYP,0)</Set>
 
          <!--打开游标 对系统内系统外的数据分别处理-->