Skip to content

T
tdcode
Commit 2087243f by wangguangchao
Options

IF和$mod = PTSPTA报错代码提交

parent 8557d342
Showing with 6 additions and 6 deletions
frame/SRVBOI.FR2
...@@ -304,7 +304,7 @@ Version 50 TradeDesign® ...@@ -304,7 +304,7 @@ Version 50 TradeDesign®
20070820 KS SourceLine if $met = "EXTKEY" or $met = "BIC" or $met = "RID" or $met = "TID" or $met = "ADRBLK" then 20070820 KS SourceLine if $met = "EXTKEY" or $met = "BIC" or $met = "RID" or $met = "TID" or $met = "ADRBLK" then
20020704 KS SourceLine $mod = GetModule( $destname ) 20020704 KS SourceLine $mod = GetModule( $destname )
20020704 KS SourceLine if ErrorCode <= 0 then 20020704 KS SourceLine if ErrorCode <= 0 then
20020704 KS SourceLine if $mod is PTSPTA then 20020704 KS SourceLine if $mod.is("PTSPTA") then
20020704 KS SourceLine $PTSPTA = $mod as PTSPTA 20020704 KS SourceLine $PTSPTA = $mod as PTSPTA
20020903 KS SourceLine if $met = "EXTKEY" then 20020903 KS SourceLine if $met = "EXTKEY" then
20051005 KS SourceLine 20051005 KS SourceLine
......
frame/SRVELI.FR6
...@@ -94,7 +94,7 @@ Version 50 TradeDesign® ...@@ -94,7 +94,7 @@ Version 50 TradeDesign®
Datafield MT T 20 1 0 1 0 {} {报文类型代码} 1 Datafield MT T 20 1 0 1 0 {} {报文类型代码} 1
Datafield MSGID T 35 1 0 1 0 {} {报文标识号} 1 Datafield MSGID T 35 1 0 1 0 {} {报文标识号} 1
Datafield SNDDAT T 8 1 0 1 0 {} {报文发起日期} 1 Datafield SNDDAT T 8 1 0 1 0 {} {报文发起日期} 1
Datafield SNDTIM T 6 1 0 1 0 {} {报文发起时é?} 1 Datafield SNDTIM T 6 1 0 1 0 {} {报文发起时�?} 1
Datafield IO T 14 1 0 1 0 {} {报文发起人} 1 Datafield IO T 14 1 0 1 0 {} {报文发起人} 1
Datafield II T 14 1 0 1 0 {} {报文接收人} 1 Datafield II T 14 1 0 1 0 {} {报文接收人} 1
Datafield MSGREFID T 20 1 0 1 0 {} {通信级参考号} 1 Datafield MSGREFID T 20 1 0 1 0 {} {通信级参考号} 1
...@@ -1390,7 +1390,7 @@ Version 50 TradeDesign® ...@@ -1390,7 +1390,7 @@ Version 50 TradeDesign®
20191018164946 WD SourceLine end select 20191018164946 WD SourceLine end select
Rule -1 Rule -1
20191020104213 WD SourceLine sub GetCurAmt( in STM stream ) 20191020104213 WD SourceLine sub GetCurAmt( in STM stream )
20191020104213 WD SourceLine #参照501系统，对币种和金额进行赋å€? 20191020104213 WD SourceLine #参照501系统，对币种和金额进行赋�?
20191121114727 WD SourceLine RELCUR = "" 20191121114727 WD SourceLine RELCUR = ""
20191020104213 WD SourceLine $amt = "" 20191020104213 WD SourceLine $amt = ""
20191020104213 WD SourceLine RELAMT = 0.000 20191020104213 WD SourceLine RELAMT = 0.000
...@@ -1569,7 +1569,7 @@ Version 50 TradeDesign® ...@@ -1569,7 +1569,7 @@ Version 50 TradeDesign®
20200511091822 ZHL SourceLine { 20200511091822 ZHL SourceLine {
20200421104057 ZHL SourceLine if Mid( MT, 1, 4 ) = "ELCS" and Mid( MT, 6, 1 ) <> "222" and Mid( MT, 6, 1 ) <> "7" and Mid( MT, 6, 1 ) <> "8" and Mid( MT, 6, 1 ) <> "9" then 20200421104057 ZHL SourceLine if Mid( MT, 1, 4 ) = "ELCS" and Mid( MT, 6, 1 ) <> "222" and Mid( MT, 6, 1 ) <> "7" and Mid( MT, 6, 1 ) <> "8" and Mid( MT, 6, 1 ) <> "9" then
20200511091824 ZHL SourceLine } 20200511091824 ZHL SourceLine }
20200511092116 ZHL SourceLine IF Mid( MT, 6, 3 ) <> "222" and Mid( MT, 6, 1 ) <> "7" and Mid( MT, 6, 1 ) <> "8" and Mid( MT, 6, 1 ) <> "9" then 20200511092116 ZHL SourceLine if Mid( MT, 6, 3 ) <> "222" and Mid( MT, 6, 1 ) <> "7" and Mid( MT, 6, 1 ) <> "8" and Mid( MT, 6, 1 ) <> "9" then
20191021155731 WD SourceLine MakeOutStream 20191021155731 WD SourceLine MakeOutStream
20191021155731 WD SourceLine CreateSpt 20191021155731 WD SourceLine CreateSpt
20200421103712 ZHL SourceLine endif 20200421103712 ZHL SourceLine endif
...@@ -1874,7 +1874,7 @@ Version 50 TradeDesign® ...@@ -1874,7 +1874,7 @@ Version 50 TradeDesign®
20191021160200 WD SourceLine \SYSMOD\SPT\PAYFLG = "X" 20191021160200 WD SourceLine \SYSMOD\SPT\PAYFLG = "X"
20191021160200 WD SourceLine endif 20191021160200 WD SourceLine endif
20191021160200 WD SourceLine endif 20191021160200 WD SourceLine endif
20191021160200 WD SourceLine #向SPT表中存机构信æ?------------------ 20191021160200 WD SourceLine #向SPT表中存机构信�?------------------
20191021160200 WD SourceLine \SYSMOD\SPT\BCHKEYINR = bchkeyinr 20191021160200 WD SourceLine \SYSMOD\SPT\BCHKEYINR = bchkeyinr
20191021160200 WD SourceLine #\SYSMOD\SPT\BRANCHINR = bchkeyinr 20191021160200 WD SourceLine #\SYSMOD\SPT\BRANCHINR = bchkeyinr
20191021160200 WD SourceLine \SYSMOD\SPT\CREDAT = Today 20191021160200 WD SourceLine \SYSMOD\SPT\CREDAT = Today
......
frame/srvboi.fr5
...@@ -23,7 +23,7 @@ Version 50 TradeDesign® ...@@ -23,7 +23,7 @@ Version 50 TradeDesign®
20020919 KS SourceLine $destname = "BIMEMU\\GIDGRP\\" + BIMEMU\GIDGRP\REC\SNDTO 20020919 KS SourceLine $destname = "BIMEMU\\GIDGRP\\" + BIMEMU\GIDGRP\REC\SNDTO
20020919 KS SourceLine $mod = GetModule( $destname ) 20020919 KS SourceLine $mod = GetModule( $destname )
20020919 KS SourceLine if ErrorCode <= 0 then 20020919 KS SourceLine if ErrorCode <= 0 then
20020919 KS SourceLine if $mod is PTSPTA then 20020919 KS SourceLine if $mod.is("PTSPTA") then
20020919 KS SourceLine $PTSPTA = $mod as PTSPTA 20020919 KS SourceLine $PTSPTA = $mod as PTSPTA
20051002 KS SourceLine $PTSPTA.DEFAULTROLSETFLG 20051002 KS SourceLine $PTSPTA.DEFAULTROLSETFLG
20051002 KS SourceLine if not $PTSPTA.isrolset then 20051002 KS SourceLine if not $PTSPTA.isrolset then
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment