报错代码修改

script/irtcal.0028.script

-int irtmcccal(Date begdat,Date enddat,String arg,String argperclsflg)
+int irtmcccal(Date begdat,Date enddat,String methodarg,String argperclsflg)
 {
   // Calculation of # of units ( days) for given period
   // begdat included, enddat excluded

script/irtcal.0029.script

-BigDecimal irtmiccal(BigDecimal refamt,BigDecimal rate,BigDecimal units,String arg)
+BigDecimal irtmiccal(BigDecimal refamt,BigDecimal rate,BigDecimal units,String methodarg)
 {
   // Calculation of interest/fee amount as amount * rate/100 * units
   Platform.setErrorCode( 0, "" );

script/liaccv.0031.script

@@ -25,7 +25,7 @@ event $ccvpan order 1100
     case  "FXTSUS":
     case  "FXTSUB":
     case  "DITOPN":
-    Platform.enable( $add, $del );
+    Platform.enable( $add );
     Platform.enable( $liaccvg[1]\rat );
     for(int  idx = 1;idx <= cnt;idx++)
     {
@@ -42,7 +42,7 @@ event $ccvpan order 1100
     }
     else
     {
-      Platform.disable( $add, $del );
+      Platform.disable( $add );
     }
     for(int  idx = 1;idx <= cnt;idx++)
     {
@@ -69,7 +69,7 @@ event $ccvpan order 1100
     }
     else
     {
-      Platform.disable( $add, $del );
+      Platform.disable( $add );
     }
     for(int  idx = 1;idx <= cnt;idx++)
     {
@@ -80,7 +80,7 @@ event $ccvpan order 1100
     case "LITENG":
     case  "GITENG":
     case  "DITENG":
-    Platform.disable( $add, $del );
+    Platform.disable( $add );
     Platform.enable( $liaccvg );
     break;
     case "BRTSET":
@@ -94,7 +94,7 @@ event $ccvpan order 1100
     case  "BDTSET":
     case  "DITCAN":
     Platform.enable( $liaccvg );
-    Platform.disable( $add, $del );
+    Platform.disable( $add );
     for(int  idx = 1;idx <= cnt;idx++)
     {
       if( Platform.isEmpty( $liaccvg[idx]\oldamt ) )
@@ -109,7 +109,7 @@ event $ccvpan order 1100
     }
     break;
     default:
-    Platform.disable( $add, $del );
+    Platform.disable( $add );
     Platform.disable( $liaccvg );
   }
   //保证金调整交易可以手改保证金金额或者手工录入保证金帐号和金额

script/litp1.0020.script

 default $avblab order 1000
 {
-  if( !( Platform.compareTo( $lidgrp\rec\avbwth ,  "O") ) == 0 )
+  if( !( Platform.compareTo( $lidgrp\rec\avbwth ,  "O") == 0)  )
   {
     Platform.visible($avblab);
     $avblab =  #CT000008;

script/litp1.0031.script

@@ -5,7 +5,7 @@ event $advp\ptspta\pts\extkey order 10000
   String wrkAVB = $avbp\ptspta\pts\extkey;
   if( ! Platform.isEmpty( wrkAVB ) && ! Platform.isEmpty( wrkADV ) )
   {
-    if( !( Platform.compareTo( wrkADV ,  wrkAVB) ) == 0 )
+    if( !( Platform.compareTo( wrkADV ,  wrkAVB) == 0)  )
     {
       Platform.postEventRule( $lidgrp\rec\avbwth );
     }

script/litp1.0036.script

 default rmbacc ($lidgrp\rmb\pts\dftact,$lidgrp\rec\rmbact) order 1000
 {
   //! defaults internal and external number for rembours account
-  if( !( Platform.compareTo( $pansta.getValue() ,  PanStaEdit) ) == 0 && !( Platform.compareTo( $pansta.getValue() ,  PanStaAdd) ) == 0 )
+  if( !( Platform.compareTo( $pansta.getValue() ,  PanStaEdit)== 0 )  && !( Platform.compareTo( $pansta.getValue() ,  PanStaAdd) == 0)  )
   {
     if(1==1) return;
   }

script/litp1.0041.script

 default $lidgrp\avb\pts\ref order 2000
 {
-  if( !( Platform.compareTo( $lidgrp\rec\avbwth ,  "O") ) == 0 )
+  if( !( Platform.compareTo( $lidgrp\rec\avbwth ,  "O") == 0 ) )
   {
     Platform.visible( $lidgrp\avb\pts\ref );
   }

script/litp1.0055.script

@@ -13,7 +13,7 @@ default avbwth ($lidgrp\rec\avbwth,$avbp\pansta,$lidgrp\blk\avbwthtxt) order 150
     case "S":
     case  " ":   // Specified Bank or Empty
     // in INF-transactions pansta is PanstaShow
-    if( !( Platform.compareTo( Platform.mid( $\sysmod\atp\cod.getValue(), 1, 3 ) ,  "INF") ) == 0 )
+    if( !( Platform.compareTo( Platform.mid( $\sysmod\atp\cod.getValue(), 1, 3 ) ,  "INF") == 0)  )
     {
       $avbp\pansta = PanStaEdit;
     }
@@ -25,7 +25,7 @@ default avbwth ($lidgrp\rec\avbwth,$avbp\pansta,$lidgrp\blk\avbwthtxt) order 150
     Platform.invisible( $lidgrp\blk\avbwthtxt );
     break;
     case "O":   // Any Bank
-    if( !( Platform.compareTo( Platform.mid( $\sysmod\atp\cod.getValue(), 1, 3 ) ,  "INF") ) == 0 )
+    if( !( Platform.compareTo( Platform.mid( $\sysmod\atp\cod.getValue(), 1, 3 ) ,  "INF") == 0)  )
     {
       $avbp\pansta = PanStaInquiry;
     }
@@ -37,7 +37,7 @@ default avbwth ($lidgrp\rec\avbwth,$avbp\pansta,$lidgrp\blk\avbwthtxt) order 150
     Platform.invisible( $avbp\ptap5 );
     break;
     default:   // All other
-    if( !( Platform.compareTo( Platform.mid( $\sysmod\atp\cod.getValue(), 1, 3 ) ,  "INF") ) == 0 )
+    if( !( Platform.compareTo( Platform.mid( $\sysmod\atp\cod.getValue(), 1, 3 ) ,  "INF") == 0)  )
     {
       $avbp\pansta = PanStaInquiry;
     }

script/litp1.0057.script

@@ -4,7 +4,7 @@ event $aplp\ptspta\pts\extkey order 9000
   IStream acc = new StreamImpl();
   Platform.streamClear( acc );
   Platform.setFieldValue( $aplp\ptspta\pts\extact, "" );
-  String actVal = $\setmod\glemod.getAvailAcc ( "LO", "CNY", $lidgrp\apl\pts\ptyinr.getValue(), this, 0 );
+  String actVal = $\setmod\glemod.getAvailAcc ( "LO", "CNY", $lidgrp\apl\pts\ptyinr.getValue(), this, BigDecimal.ZERO );
   Platform.setFieldValue( $aplp\ptspta\pts\extact, actVal );
   Platform.streamSet( acc, actVal );
   String defacc = Platform.getLine( acc, 1 );

script/lsnmod.0023.script

@@ -4,7 +4,9 @@ String lsnCheckTrnAccepted(String argtrninr)
   String rtn = "";
   // build a list of all existing LSMFLG`s of the Transaction
   Platform.dbExecuteSQL( "Select LNE.LNEFLG FROM LNE, LSB, TRN WHERE LNE.LSBINR=LSB.INR AND LNE.OBJINR=TRN.ORDINR AND TRN.INR=?", argtrninr );
-  // #######TODO 改写 LABEL与GOTO   ####    label NextLne
+  //   ####    label NextLne
+  NextLneLabel:
+  while(true){
   Platform.dbFetchFields( "", lneFlg );
   if( Platform.errorCode() != tdOdbcNotFound )
   {
@@ -14,8 +16,8 @@ String lsnCheckTrnAccepted(String argtrninr)
       case "O":
       case  "A":
       rtn = LscAccepted;
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextLne
-      break;
+      //return ; //  ####   goto NextLne
+      break NextLneLabel;
       case "R":
       rtn = LscRejected;
       break;
@@ -23,6 +25,8 @@ String lsnCheckTrnAccepted(String argtrninr)
       rtn = LscPending;
     }
   }
+  break NextLneLabel;
+  }
   Platform.dbCloseCursor();
   return  rtn;
 

script/lsnmod.0027.script

@@ -54,9 +54,9 @@ boolean checkCecm(String nonrevflg,String ptytyp,String lsbownref,String ptyinr)
     errmsg = "CECM接口调用失败，原因" + rtntxt;
     insertMsg( errmsg, $errstm.getValue() );
     pf = 1;
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto pfend
+    //return ; //   ####   goto pfend
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label pfend
+  //    ####    label pfend
   if( pf == 0 )
   {
     return  true;

script/lsnmod.0032.script

@@ -94,7 +94,7 @@ void lneCommit(Argument<String> obj,Argument<String> inr)
   }
   $lne\usr = Platform.getLoginUser();
   $lne\dat = Platform.today();
-  $lne\tim = Platform.Time();
+  $lne\tim = new BigDecimal(Platform.Time());
   if( Platform.isEmpty( $lne\inr ) )
   {
     Platform.sdbInsert( $lne );

script/lsnmod.0037.script

@@ -5,15 +5,19 @@ int getRiskRate(int days)
   if( Platform.errorCode() > 0 )
   {
     Platform.sysDump( "LSRSKRAT.INI not found in INI directory." );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto GetLineDone
+    //return ; //   ####   goto GetLineDone
+    return rat;
   }
   int idx = 0;
-  // #######TODO 改写 LABEL与GOTO   ####    label GetLineLoop
+  //   ####    label GetLineLoop
+  GetLineLoopLabel:
+  while(true){
   idx = idx + 1;
   String blk = Platform.getLine( lsrskrat, idx );
   if( Platform.isEmpty( blk ) )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto GetLineDone
+    //return ; //   ####   goto GetLineDone
+    return rat;
   }
   int dot = Platform.pos( blk, "," );
   int dec = Platform.pos( blk, "-" );
@@ -28,11 +32,13 @@ int getRiskRate(int days)
     {
       a = Platform.trim( Platform.mid( blk, dot + 1, 10 ) );
       rat = Platform.parseInt( a );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto GetLineDone
+      //return ; //   ####   goto GetLineDone
+      return rat;
     }
   }
-  return ; // #######TODO 改写 LABEL与GOTO  ####   goto GetLineLoop
-  // #######TODO 改写 LABEL与GOTO   ####    label GetLineDone
-  return rat;
+  //return ; //   ####   goto GetLineLoop
+  }
+  //   ####    label GetLineDone
+  //return rat;
 
 }
\ No newline at end of file

script/mtabut.0049.script

@@ -9,9 +9,9 @@ default $clsflg order 10000
   IDatafield field = null;
   Date clsdat = null;
 
-  if( IsEmpty)
+  if( Platform.isEmpty( $clsflg ))
   {
-    ( CLSFLG );
+
     // nothing to do
   }
   else if( Platform.compareTo($clsflg,  "O" )== 0)

script/mtdbut.0000.script

@@ -18,7 +18,7 @@ void doPopup()
     // load additional data
     Platform.invokeModulePath( path + ".LoadAddData", -1 );
     ignore = Platform.errorCode();
-    Platform.popupTitledFrame( getDetailsPanel(), Platform.getDescription( getDetailsPanel(), 1 ) );
+    //Platform.popupTitledFrame( getDetailsPanel(), Platform.getDescription( getDetailsPanel(), 1 ) );
     // crf. 901027 /3
     Platform.redisplay();
   }