CMB当提交成功或超时，执行增强规则，其他场景场景沿用原有处理逻辑

2025-08-18 09:25:44 +08:00
parent 164380cb6b
commit b037db7c71
1 changed files with 29 additions and 3 deletions
@@ -785,6 +785,18 @@
         </Sentence>
         <Fields>ODSK_NAM|OCORG_DSK_NO|</Fields>
      </DynSentence>
+       
+      <DynSentence name="QRY_CAPBATINF_RSPCD"> <!--查询批次信息-->
+         <Sentence>
+            SELECT S_RSP_CD CHK_S_RSP_CD
+            FROM CAPBATINF
+            WHERE ORD_DT=?
+            AND CORG_DSK_NO=?
+         </Sentence>
+         <Fields>OORD_DT|OCORG_DSK_NO|</Fields>
+      </DynSentence>
+        
+        
      <Function name="_before">
         <Process>
            <Exec func="PUB:DumpETF"/>
@@ -961,9 +973,23 @@
                  
                  </If>
                  <Else>
-                      <Set>Rsp_Cd=80</Set>
-                      <Set>Rsp_Msg=继续查询30分钟</Set>
-                      <Return/>
+                      
+                      <Exec func="PUB:ReadRecord" error="IGNORE">
+                         <Arg name="SqlCmd" value="QRY_CAPBATINF_RSPCD"/>
+                      </Exec> 
+
+                      <Set>CHK_S_RSP_CD=$CHK_S_RSP_CD</Set>
+                      <If condition="IS_EQUAL_STRING($CHK_S_RSP_CD,80,00)"> 
+                          <Set>Rsp_Cd=80</Set>
+                          <Set>Rsp_Msg=继续查询30分钟</Set>
+                          <Return/>
+                      </If> 
+                      <Else>
+                          <Set>Rsp_Cd=80</Set>
+                          <Set>Rsp_Msg=银行整批处理失败</Set>
+                          <Set>TRsp_Cd= </Set>
+                          <Set>TRsp_Msg= </Set>  
+                      </Else> 
                  </Else>

               </Else>