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

frame/SRVBOI.FR2

@@ -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
 20020704       KS       SourceLine     $mod = GetModule( $destname )
 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
 20020903       KS       SourceLine         if $met = "EXTKEY" then
 20051005       KS       SourceLine 

frame/SRVELI.FR6

@@ -94,7 +94,7 @@ Version 50 TradeDesign®
                         Datafield MT T 20 1 0 1 0 {} {报文类型代码} 1
                         Datafield MSGID T 35 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 II T 14 1 0 1 0 {} {报文接收人} 1
                         Datafield MSGREFID T 20 1 0 1 0 {} {通信级参考号} 1
@@ -1390,7 +1390,7 @@ Version 50 TradeDesign®
 20191018164946 WD       SourceLine end select
                         Rule -1
 20191020104213 WD       SourceLine sub GetCurAmt( in STM stream )
-20191020104213 WD       SourceLine #参照501系统，对币种和金额进行赋å€?
+20191020104213 WD       SourceLine #参照501系统，对币种和金额进行赋�?
 20191121114727 WD       SourceLine RELCUR = ""
 20191020104213 WD       SourceLine $amt = ""
 20191020104213 WD       SourceLine RELAMT = 0.000
@@ -1569,7 +1569,7 @@ Version 50 TradeDesign®
 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
 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     CreateSpt
 20200421103712 ZHL      SourceLine   endif
@@ -1874,7 +1874,7 @@ Version 50 TradeDesign®
 20191021160200 WD       SourceLine     \SYSMOD\SPT\PAYFLG = "X"
 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\BRANCHINR = bchkeyinr
 20191021160200 WD       SourceLine \SYSMOD\SPT\CREDAT = Today

frame/srvboi.fr5

@@ -23,7 +23,7 @@ Version 50 TradeDesign®
 20020919       KS       SourceLine   $destname = "BIMEMU\\GIDGRP\\" + BIMEMU\GIDGRP\REC\SNDTO
 20020919       KS       SourceLine   $mod = GetModule( $destname )
 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
 20051002       KS       SourceLine       $PTSPTA.DEFAULTROLSETFLG
 20051002       KS       SourceLine       if not $PTSPTA.isrolset then