MrTech/ctg-app-cap
5
0
Fork 0
Code Releases Activity

修复存折问题

Browse Source
This commit is contained in:
Alawn
2021-05-14 15:36:08 +08:00
parent f66c2cdd11
commit e9bf5f02a4
1 changed files with 28 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
cap/etc/batch/204025_CTL.XML
+28 -4
View File
@@ -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>