A-D T-V Update

script/acgmod.0000.script

@@ -34,7 +34,6 @@ void insertNewACG(int index,String ownref,String trninr,String frm,String objinr
   String guojia = NULLSTR;
   String daima = NULLSTR;
   String shenbao = NULLSTR;
-  String v$daima = NULLSTR;
   String transact_code = NULLSTR;
   String ap_number = NULLSTR;
   String authority_code = NULLSTR;
@@ -152,7 +151,7 @@ void insertNewACG(int index,String ownref,String trninr,String frm,String objinr
         ssta = "O";
         in = "Q";
         guojia = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\ABQSEL\\COUNTRY" );
-        v$daima = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\ABQSEL\\COD" );
+        daima = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\ABQSEL\\COD" );
         shenbao = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\RPTNO" );
         break;
         case "1":

script/acgmod.0003.script

@@ -58,7 +58,6 @@ void getaboqdate(int index,String ownref,String trninr,String frm,String objinr,
   String daima = NULLSTR;
   String shenbao = NULLSTR;
   String in = NULLSTR;
-  String v$daima = NULLSTR;
   if( err == 27 )
   {
     ssta = "O";
@@ -83,7 +82,7 @@ void getaboqdate(int index,String ownref,String trninr,String frm,String objinr,
       ssta = "O";
       in = "Q";
       guojia = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\ABQSEL\\COUNTRY" );
-      v$daima = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\ABQSEL\\COD" );
+      daima = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\ABQSEL\\COD" );
       shenbao = Platform.getContent( "\\SETMOD\\ABQGET\\ABQP\\RPTNO" );
       break;
       case "1":

script/adrdef.0013.script

@@ -15,7 +15,8 @@ void checkADRBIC(String argbic)
   String num = "0123456789";
   // position 1-4 Bank-Code    A-Z are allowed
   // position 5-6 Country-Code A-Z are allowed
-  for(int  i = 1;i <= 6;i++)
+  int i = 1;
+  for(i = 1;i <= 6;i++)
   {
     if( Platform.pos( let, Platform.mid( bic, i, 1 ) ) == 0 )
     {
@@ -39,7 +40,7 @@ void checkADRBIC(String argbic)
   // position 9-11 Branch-Code  A-Z and 0-9 are allowed
   if( Platform.len( bic ) > 8 )
   {
-    for(int  i = 9;i <= 11;i++)
+    for(i = 9;i <= 11;i++)
     {
       if( Platform.pos( let, Platform.mid( bic, i, 1 ) ) == 0 && Platform.pos( num, Platform.mid( bic, i, 1 ) ) == 0 )
       {

script/atcmod.0003.script

@@ -4,7 +4,7 @@ boolean atcConditionTrue(String argignflg,String argcnd,String argcndfld1typ,Str
   if( ! Platform.isEmpty( argignflg ) )
   {
     res = false;
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return res; // #######TODO 改写 LABEL与GOTO  ####   goto done
   }
   String field1 = "";
   String errTxt = NULLSTR;
@@ -22,7 +22,7 @@ boolean atcConditionTrue(String argignflg,String argcnd,String argcndfld1typ,Str
         errTxt = Platform.getErrorText();
         atcCallSysdumpInfo( "ATC\\CNDFLD1", argcndfld1, errTxt );
         res = false;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+        return res; // #######TODO 改写 LABEL与GOTO  ####   goto done
       }
     }
   }
@@ -41,7 +41,7 @@ boolean atcConditionTrue(String argignflg,String argcnd,String argcndfld1typ,Str
         errTxt = Platform.getErrorText();
         atcCallSysdumpInfo( "ATC\\CNDFLD2", argcndfld2, errTxt );
         res = false;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+        return res; // #######TODO 改写 LABEL与GOTO  ####   goto done
       }
     }
   }

script/bolmod.0000.script

@@ -7,7 +7,7 @@ String bolPrintHeader(String msgtype)
   if( Platform.isEmpty( rid ) )
   {
     Platform.setErrorCode( 810, "Empty own RID" );
-    if(1==1) return;
+    if(1==1) return "";
   }
   Platform.printTemp( "<?xml version=\"1.0\" encoding=\"UTF-8\"?>");
   Platform.printTemp( "<Message ProtocolVersion=\"3.0\" ClientSoftware=\"DOKA Bolero Interface Version:  2.0.0.1   (Mon Jun 27 18:00:00 2005) by: DOS GmbH\">");

script/bolmod.0001.script

@@ -8,7 +8,7 @@ String bolPrintRef(String rid,String reftyp,String refnum,String refsco)
   if( idx > 0 )
   {
     // reference already printed
-    if(1==1) return;
+    if(1==1) return "";
   }
   else
   {
@@ -17,13 +17,13 @@ String bolPrintRef(String rid,String reftyp,String refnum,String refsco)
   if( $refcnt.getValue() >= 30 )
   {
     Platform.setErrorCode( 802, "More then 29 references" );
-    if(1==1) return;
+    if(1==1) return "";
   }
   $refcnt = $refcnt.getValue() + 1;
   if( Platform.isEmpty( rid ) )
   {
     Platform.setErrorCode( 810, "Empty receiver RID" );
-    if(1==1) return;
+    if(1==1) return "";
   }
   Platform.printTemp( "  <Reference>");
   Platform.printTemp( "    <RID>" , rid , "</RID>");

script/bolmod.0003.script

@@ -5,7 +5,7 @@ String bolPrintSubject(String subject)
   if( Platform.isEmpty( subject ) )
   {
     Platform.setErrorCode( 999, "subject missing for message" );
-    if(1==1) return;
+    if(1==1) return "";
   }
   String vsubject = subject;
   if( Platform.len( vsubject ) > 80 )

script/bolmod.0004.script

@@ -20,14 +20,14 @@ String bolPrintReceiver(String rid)
   if( Platform.isEmpty( vrid ) )
   {
     Platform.setErrorCode( 999, "empty receiver RID" );
-    if(1==1) return;
+    if(1==1) return "";
   }
   // avoid duplicate insertion of same receiver
   int idx = Platform.streamSearch( $recstream, vrid );
   if( idx > 0 )
   {
     // rid already printed
-    if(1==1) return;
+    if(1==1) return "";
   }
   else
   {
@@ -36,7 +36,7 @@ String bolPrintReceiver(String rid)
   if( $reccnt.getValue() >= 30 )
   {
     Platform.setErrorCode( 800, "More then 29 receiver" );
-    if(1==1) return;
+    if(1==1) return "";
   }
   $reccnt = $reccnt.getValue() + 1;
   Platform.printTemp( "  <Receiver>");

script/bolmod.0010.script

@@ -28,11 +28,11 @@ void bolOther(String arginfo)
     }
     if( ! Platform.isEmpty( appRul ) )
     {
-      switch( $\sysmod\atp\cod.getValue() )
-      {
-        case $\sysmod\atp\bus.getValue() + "TAME":
-        case  $\sysmod\atp\bus.getValue() + "TRAM":
-        case  $\sysmod\atp\bus.getValue() + "TOPN":
+      String busamt = ctx.absGet(Sysmod.class).getAtp().getBus() + "TAME";
+      String busram = ctx.absGet(Sysmod.class).getAtp().getBus() + "TRAM";
+      String busopn = ctx.absGet(Sysmod.class).getAtp().getBus() + "TOPN";
+      String atpcod = ctx.absGet(Sysmod.class).getAtp().getCod();
+      if(atpcod.equals(busamt) || atpcod.equals(busram) || atpcod.equals(busopn)){
         if( Platform.compareTo(Platform.getContent( $grppth.getValue() + "\\" + $\sysmod\atp\bus.getValue() + "DGRP\\REC\\APPRUL" ), Platform.getContent( $grppth.getValue() + "\\OLD" + $\sysmod\atp\bus.getValue() + "DGRP\\REC\\APPRUL" )) != 0 )
         {
           if( ! done )
@@ -43,9 +43,6 @@ void bolOther(String arginfo)
           bolTextTag( "otherType", "documentaryCreditRulesType" );
           bolLines( appRul );
         }
-        break;
-        default:
-        // nothing to do
       }
     }
     if( done )

script/bolmod.0020.script

@@ -3,7 +3,7 @@ void bolAmountTag(String tag,String argcurrency,BigDecimal argamount)
   //! Print amount with currency in Bolero XML Format xxxx.xx
   //! If no tag is omitted, the tag will not printed
   // convert amount into BOL format
-  int absAmt = Platform.abs( argamount );
+  int absAmt = Platform.abs( argamount ).intValue();
   String dectxt = Platform.fmtAmount( absAmt - Platform.floor( absAmt ), argcurrency, "EN" );
   dectxt = Platform.mid( dectxt, 3, Platform.len( dectxt ) - 2 );
   String amount = Platform.toString( Platform.floor( absAmt ) ) + "." + dectxt;

script/bolmod.0035.script

@@ -15,7 +15,7 @@ void bolDocumentaryCreditAmountChange(String argcur,int argamt)
     {
       tag = "IncreaseAmount";
     }
-    bolAmountTag( tag, argcur, Platform.abs( argamt ) );
+    bolAmountTag( tag, argcur, Platform.abs( new BigDecimal(argamt ) ) );
     Platform.printTemp( "</DocumentaryCreditAmountChange>");
   }
 

script/bolmod.0045.script

@@ -4,7 +4,7 @@ void bolDocumentaryCreditSettlementAmount(String argcur,int argamt)
   //! ArgAmt : Defines the amount
   if( argamt != 0 )
   {
-    bolAmountTag( "DocumentaryCreditSettlementAmount", argcur, argamt );
+    bolAmountTag( "DocumentaryCreditSettlementAmount", argcur, new BigDecimal(argamt ) );
   }
 
 }
\ No newline at end of file

script/bolmod.0053.script

@@ -13,7 +13,7 @@ void bolGuaranteeAmountChange(String argcur,int argamt)
     {
       tag = "DecreaseAmount";
     }
-    bolAmountTag( tag, argcur, Platform.abs( argamt ) );
+    bolAmountTag( tag, argcur, Platform.abs( new BigDecimal(argamt ) ) );
     Platform.printTemp( "</GuaranteeAmountChange>");
   }
 

script/bolmod.0054.script

@@ -3,7 +3,7 @@ void bolGuaranteeObject(String argcur,int argamt,int argpercent,String argothert
   Platform.printTemp( "<GuaranteeObject>");
   if( ! Platform.isEmpty( argcur ) )
   {
-    bolAmountTag( "GuaranteeObjectAmount", argcur, argamt );
+    bolAmountTag( "GuaranteeObjectAmount", argcur, new BigDecimal(argamt ) );
   }
   if( argpercent != 0 )
   {

script/cbsget.0000.script

@@ -19,7 +19,7 @@ String cbsGetAllExtIds(IModule obj,String cbcarg)
   Platform.dbSelectCursor( $cbb, sql );
   // #######TODO 改写 LABEL与GOTO   ####    label CBBLoop
   Platform.DBFetch( $cbb );
-  if( Platform.errorCode() <= 0 )
+  while( Platform.errorCode() <= 0 )
   {
     if( Platform.compareTo(lastId, $cbb\extid.getValue()) != 0 )
     {
@@ -40,7 +40,7 @@ String cbsGetAllExtIds(IModule obj,String cbcarg)
       }
       lastId = $cbb\extid;
     }
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto CBBLoop
+    continue ; // #######TODO 改写 LABEL与GOTO  ####   goto CBBLoop
   }
   if( ! Platform.isEmpty( emptyId ) )
   {

script/cbsget.0003.script

@@ -14,7 +14,7 @@ String cbsGetUnbalancedExtIds(IModule obj,String cbcarg)
   Platform.dbSelectCursor( $cbb, sql );
   // #######TODO 改写 LABEL与GOTO   ####    label CBBLoop
   Platform.DBFetch( $cbb );
-  if( Platform.errorCode() <= 0 )
+  while( Platform.errorCode() <= 0 )
   {
     if( Platform.compareTo(lastId, $cbb\extid.getValue()) != 0 )
     {
@@ -38,7 +38,7 @@ String cbsGetUnbalancedExtIds(IModule obj,String cbcarg)
       }
       lastId = $cbb\extid;
     }
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto CBBLoop
+    continue ; // #######TODO 改写 LABEL与GOTO  ####   goto CBBLoop
   }
   if( ! Platform.isEmpty( emptyId ) )
   {

script/cbsget.0004.script

@@ -10,12 +10,13 @@ String internalGenSqlSet(String argliste)
   // from "Arg1,Arg2,..."  in  " IN (`Arg1`, `Arg2`,...)"
   // Initialize workregister
   int begPos = 1;
+  String rtn = NULLSTR;
   IStream argstm = new StreamImpl();
   Platform.streamClear( argstm );
   // #######TODO 改写 LABEL与GOTO   ####    label NxtElm
   // Search for next delimiter
+  while(begPos <= MdaUtilsEx.len(argliste)) {
       int len = Platform.pos( Platform.mid( argliste, begPos ), "," );
-  String rtn = NULLSTR;
       if( len == 0 )
       {
         // if no delimiter found, check whether first arg to avoid
@@ -23,7 +24,7 @@ String internalGenSqlSet(String argliste)
         if( begPos == 1 )
         {
           rtn = " = " + Platform.sqlLit( argliste );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto Done
+          return rtn; // #######TODO 改写 LABEL与GOTO  ####   goto Done
         }
         // if no delimiter found, take rest
         len = Platform.len( Platform.mid( argliste, begPos ) ) + 1;
@@ -42,7 +43,8 @@ String internalGenSqlSet(String argliste)
         begPos = begPos + len;
         if( begPos <= Platform.len( argliste ) )
         {
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto NxtElm
+          continue; // #######TODO 改写 LABEL与GOTO  ####   goto NxtElm
+        }
       }
   }
   // transform list of values into the set format

script/cfgfil.0009.script

@@ -2,7 +2,7 @@ event $hotsub1 order 1000
 {
   if( ! Platform.isEmpty( $subtrn1 ) )
   { // may be header
-    if( !( Platform.compareTo( Platform.getAttributeText( $subtxt1.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+    if( ( Platform.compareTo( Platform.getAttributeText( $subtxt1.getValue(), "Style" ) ,  "Disabled") ) != 0 )
     {
       saveConDataAndCallTrn( $subtrn1.getValue() );
     }

script/cfgfil.0011.script

 event $hotsub2 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt2.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt2.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn2.getValue() );
   }

script/cfgfil.0020.script

 event $hotsub10 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt10.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt10.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn10.getValue() );
   }

script/cfgfil.0021.script

 event $hotsub11 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt11.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt11.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn11.getValue() );
   }

script/cfgfil.0022.script

 event $hotsub3 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt3.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt3.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn3.getValue() );
   }

script/cfgfil.0023.script

 event $hotsub4 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt4.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt4.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn4.getValue() );
   }

script/cfgfil.0024.script

 event $hotsub5 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt5.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt5.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn5.getValue() );
   }

script/cfgfil.0025.script

 event $hotsub6 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt6.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt6.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn6.getValue() );
   }

script/cfgfil.0026.script

 event $hotsub7 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt7.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt7.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn7.getValue() );
   }

script/cfgfil.0027.script

 event $hotsub8 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt8.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt8.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn8.getValue() );
   }

script/cfgfil.0028.script

 event $hotsub9 order 1000
 {
-  if( !( Platform.compareTo( Platform.getAttributeText( $subtxt9.getValue(), "Style" ) ,  "Disabled") ) == 0 )
+  if( ( Platform.compareTo( Platform.getAttributeText( $subtxt9.getValue(), "Style" ) ,  "Disabled") ) != 0 )
   {
     saveConDataAndCallTrn( $subtrn9.getValue() );
   }

script/cfgfil.0094.script

@@ -19,12 +19,12 @@ void saveConDataAndCallTrn(String argtrn)
       if( Platform.errorCode() <= 0 )
       {
         que = Platform.prompt( #CT000024, $\sysmod\spt\dattim.getValue() );
-        if( que == tdPromptYes )
+        if( que )
         {
           Platform.dbLock( $\sysmod\spt );
           if( Platform.errorCode() == tdOdbcLocked || Platform.errorCode() == tdOdbcHeld )
           {
-            if( Platform.prompt( #CT000025, $\sysmod\spt\objnam.getValue(), GetLockUID, Platform.fmtTime( GetLockTime ) ) == tdPromptCancel )
+            if( !que )
             {
               Platform.clear( $\sysmod\spt );
               return ; // #######TODO 改写 LABEL与GOTO  ####   goto LblEnd

script/docbol.0006.script

@@ -23,11 +23,11 @@ void xmlStartElement(String elementname,IStream attr)
       }
       if( ! Platform.isEmpty( $lasttag ) )
       {
-        printElement( $lev.getValue(), $lasttag.getValue(), "" );
+        printElement( (int)$lev.getValue(), $lasttag.getValue(), "" );
       }
       Platform.clear( $lasttag );
       pos = Platform.pos( line, "=" );
-      printElement( $lev.getValue() + 1, tag, Platform.mid( line, pos + 1 ) );
+      printElement( (int)$lev.getValue() + 1, tag, Platform.mid( line, pos + 1 ) );
     }
     $lasttag = "    content";
   }

script/docbol.0007.script

@@ -9,12 +9,12 @@ void xmlEndElement(String elementname)
     {
       if( Platform.compareTo(Platform.trim( $lasttag.getValue() ), "content") != 0 )
       {
-        printElement( $lev.getValue(), $lasttag.getValue(), "" );
+        printElement( (int)$lev.getValue(), $lasttag.getValue(), "" );
       }
     }
     else
     {
-      printElement( $lev.getValue() - 1, $prelasttag.getValue(), $lasttag.getValue() );
+      printElement( (int)$lev.getValue() - 1, $prelasttag.getValue(), $lasttag.getValue() );
     }
   }
   $lev = $lev.getValue() - 1;

script/docbol.0010.script

@@ -10,7 +10,7 @@ void xmlCharacterData(String content)
   }
   else
   {
-    printElement( $lev.getValue(), $lasttag.getValue(), content );
+    printElement( (int)$lev.getValue(), $lasttag.getValue(), content );
   }
   Platform.clear( $lasttag );
 

script/docbol.0011.script

-void bolStripContent(Argument<String> content)
+void bolStripContent(String content)
 {
   String charVar = NULLSTR;
   while( true )
   {
-    charVar = Platform.mid( content.value, 1, 1 );
+    charVar = Platform.mid( content, 1, 1 );
     if( Platform.compareTo(charVar , " ")<0 )
     {
-      content.value = Platform.mid( content.value, 2 );
+      content = Platform.mid( content, 2 );
     }
     else
     {

script/doceot.0001.script

@@ -37,7 +37,7 @@ void savdoc(#smh argsmh)
     Platform.sysDump( "Cannot get \\TRNMOD\\TRN\\INR" );
     Platform.clear( $$argsmh\trninr );
   }
-  $$argsmh\trnsub = Platform.getContentNumeric( "\\TRNMOD\\TRN\\SMHNXT" );
+  $$argsmh\trnsub = Platform.getContentNumeric( "\\TRNMOD\\TRN\\SMHNXT" ).intValue();
   if( Platform.errorCode() != 0 )
   {
     Platform.sysDump( "Cannot get \\TRNMOD\\TRN\\SMHNXT" );
@@ -116,7 +116,7 @@ void savdoc(#smh argsmh)
       Platform.sdbInsert( argsmh );
       $smhinr = $$argsmh\inr;
       return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
-      break;
+      //break;
       case "FIL":
       $$argsmh\cortyp = "FIL";
       $$argsmh\inr = Platform.toString( Platform.dbCounter( "SMH" ), -8 );
@@ -152,7 +152,7 @@ void savdoc(#smh argsmh)
       Platform.dbInsert( argsmh );
       $smhinr = $$argsmh\inr;
       return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
-      break;
+      //break;
       case "INT":
       // document from this transaction just created or still to be created
       $$argsmh\orismhinr = $\trnmod\trndoc.docEOTGetORISMHINR( $idref.getValue() );
@@ -388,7 +388,7 @@ void savdoc(#smh argsmh)
     case "TCO":
     case  "TCA":
     $\trnmod\trnism.wfmAdd_Tradeconnect ( $$argsmh\cortypsub.getValue() );
-    break;
+    //break;
     default:
     proc = "\\TRNMOD\\TRNISM.WfmAdd_" + $$argsmh\cortyp.getValue() + "( \"" + $$argsmh\cortypsub.getValue() + "\")";
     Platform.invokeModulePath( proc, -1 );

script/doceot.0012.script

@@ -39,7 +39,7 @@ String getDocRul(String argdocnam,String structure,String execution)
     {
       return  "\\." + pfx + structure + nbr;
     }
-    break;
+    //break;
     case "S":   // static text function
     // to extract function name, search for last occurence of backslash
     for(int  idx = Platform.len( pfx );idx >= 1;idx+=-1)

script/doceot.0014.script

@@ -97,7 +97,7 @@ void make999fromStream()
   if( Platform.compareTo($cortyp.getValue(), "TCO") != 0 )
   {
     reference = $\trnmod\trndoc.swtPrtReference( ":21:", "", $role.getValue() );
-    if( !( Platform.compareTo( Platform.mid( reference, 5, 6 ) ,  "NONREF") ) == 0 )
+    if( ( Platform.compareTo( Platform.mid( reference, 5, 6 ) ,  "NONREF") ) != 0 )
     {
       Platform.streamInsert( $doctxt.getValue(), 2, Platform.trim( Platform.convertBlock( $\trnmod\trndoc.swtPrtReference( ":21:", "", $role.getValue() ), 1 ) ) );
     }

script/doceot.0016.script

@@ -81,6 +81,6 @@ void popupADD()
     Platform.popupTitledFrame( $addinf, Platform.getText( #CT000081, $pandsc.getValue() ) );
   }
   // Recalc ADDTXTTXM\BUTTXMSEL to ensure that button is enabled
-  Platform.recalc( $addtxttxm\buttxmsel.getValue() );
+  //Platform.recalc( $addtxttxm\buttxmsel.getValue() );
 
 }
\ No newline at end of file

script/doceot.0022.script

@@ -90,6 +90,7 @@ void setApf(boolean panelvisibleflag)
   String typ = NULLSTR;
   int cnt = 0;
   String edtflg = NULLSTR;
+  int  nxt = 1;
   if( ! Platform.isEmpty( $apf ) )
   {
     etySql = Platform.sdbEtyGenTblSql( "APF", "", "", "" );
@@ -106,7 +107,7 @@ void setApf(boolean panelvisibleflag)
         typ = "";
         cnt = 0;
         edtflg = "";
-        Platform.dbExecuteSql( sql, msg );
+        Platform.dbExecuteSql( sql );
         while( Platform.errorCode() <= 0 )
         {
           Platform.dbFetchFields( "TYP", typ, "CNT", cnt, "EDTFLG", edtflg );
@@ -129,7 +130,7 @@ void setApf(boolean panelvisibleflag)
     }
   }
   stmCnt = Platform.streamCount( apfstream );
-  for(int  nxt = 1;nxt <= stmCnt;nxt++)
+  for(nxt = 1;nxt <= stmCnt;nxt++)
   {
     line = Platform.getLine( apfstream, nxt );
     typ = Platform.mid( line, 1, 3 );

script/doceot.0033.script

@@ -2,17 +2,17 @@ default $butdel order 1000
 {
   if( Platform.compareTo($delflg,  "D" )== 0 )
   {
-    Platform.setDescription( $butdel.getValue(), #CT000077 );
+    //Platform.setDescription( $butdel.getValue(), #CT000077 );
   }
   else
   {
     if( Platform.compareTo($lev,  "1" )== 0 || ! Platform.isEmpty( $mliflg ) )
     {
-      Platform.setDescription( $butdel.getValue(), #CT000078 );
+      //Platform.setDescription( $butdel.getValue(), #CT000078 );
     }
     else
     {
-      Platform.setDescription( $butdel.getValue(), #CT000079 );
+      //Platform.setDescription( $butdel.getValue(), #CT000079 );
     }
   }
 

script/doceot.0035.script

@@ -2,11 +2,11 @@ default $pandsc order 1000
 {
   if( Platform.compareTo($delflg,  "D" )== 0 )
   {
-    Platform.setTDStyle( "Disabled", $pandsc, $role, $cortyp, $docsnf, $docuil, $apf, $apfcpy1, $apfcpy2, $butshw, $butsnd );
+    //Platform.setTDStyle( "Disabled", $pandsc, $role, $cortyp, $docsnf, $docuil, $apf, $apfcpy1, $apfcpy2, $butshw, $butsnd );
   }
   else
   {
-    Platform.setTDStyle( "", $pandsc, $role, $cortyp, $docsnf, $docuil, $apf, $apfcpy1, $apfcpy2, $butshw, $butsnd );
+    //Platform.setTDStyle( "", $pandsc, $role, $cortyp, $docsnf, $docuil, $apf, $apfcpy1, $apfcpy2, $butshw, $butsnd );
   }
 
 }
\ No newline at end of file

script/doceot.0042.script

 void setInvisible()
 {
   //! Set this DOCEOT (i.e. line inmessage grid) to invisible (as far as possible)
-  Platform.invisible( this );
-  Platform.disable( $cortyp, $docsnf, $docuil, $apf, $butshw, $butadd );
+  //Platform.invisible( this );
+  //Platform.disable( $cortyp, $docsnf, $docuil, $apf, $butshw, $butadd );
 
 }
\ No newline at end of file

script/doceot.0053.script

@@ -11,7 +11,7 @@ String getCORTYPValuesPopup()
     {
       if( Platform.searchBlock( $valcortyp.getValue(), cortyp ) == 0 )
       {
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextIdx
+        return setval = setval + cortyp + "\r\n"; // #######TODO 改写 LABEL与GOTO  ####   goto NextIdx
       }
     }
     setval = setval + cortyp + "\r\n";

script/doceot.0077.script

@@ -44,12 +44,12 @@ void setLang()
         panref = Platform.getPanel( docruluse );
         if( Platform.errorCode() == 0 )
         {
-          languages = Platform.getPanelInfo( panref, 6 );
+          languages = Platform.getPanelInfo( panref, "6" );
           Platform.setFieldValue( $docuil, languages );
           if( Platform.pos( languages, $docuil.getValue() ) == 0 )
           {
             // if language is not available, use default language
-            $docuil = Platform.getPanelInfo( panref, 5 );
+            $docuil = Platform.getPanelInfo( panref, "5" );
           }
         }
       }

script/doceot.0083.script

@@ -59,15 +59,15 @@ String determineConversion()
           return  "";
         }
 
-        $docexe = pathBox2.value;
+        //$docexe = pathBox2.value;
 
       }
 
-      $docexe = pathBox1.value;
+      //$docexe = pathBox1.value;
 
     }
 
-    $docexe = pathBox.value;
+    //$docexe = pathBox.value;
 
     break;
     case "TLX":   // Telex
@@ -99,17 +99,17 @@ String determineConversion()
           return  "";
         }
 
-        $docexe = pathBox5.value;
+        //$docexe = pathBox5.value;
 
       }
 
-      $docexe = pathBox4.value;
+      //$docexe = pathBox4.value;
 
     }
 
-    $docexe = pathBox3.value;
+    //$docexe = pathBox3.value;
 
-    break;
+    //break;
     case "TCO":   // TradeConnect
     $docstr = "T";
     Argument<String> pathBox6 = new Argument<String>("",$docexe.getValue());
@@ -138,13 +138,13 @@ String determineConversion()
         return  "";
       }
 
-      $docexe = pathBox7.value;
+      //$docexe = pathBox7.value;
 
     }
 
-    $docexe = pathBox6.value;
+    //$docexe = pathBox6.value;
 
-    break;
+    //break;
     case "DTA":       // DTA
     $docstr = "A";
     Argument<String> pathBox8 = new Argument<String>("",$docexe.getValue());
@@ -165,9 +165,9 @@ String determineConversion()
       return  "";
     }
 
-    $docexe = pathBox8.value;
+    //$docexe = pathBox8.value;
 
-    break;
+    //break;
     case "DTE":       // DTE
     $docstr = "E";
     Argument<String> pathBox9 = new Argument<String>("",$docexe.getValue());
@@ -188,9 +188,9 @@ String determineConversion()
       return  "";
     }
 
-    $docexe = pathBox9.value;
+    //$docexe = pathBox9.value;
 
-    break;
+    //break;
     case "RTG":
     case  "TAR":     // RTGSplus
     $docstr = "R";
@@ -200,9 +200,9 @@ String determineConversion()
       return  "SetSwift ExecRule";
     }
 
-    $docexe = pathBox10.value;
+    //$docexe = pathBox10.value;
 
-    break;
+    //break;
     case "BOL":            // Bolero
     $docstr = "B";
     Argument<String> pathBox11 = new Argument<String>("",$docexe.getValue());
@@ -211,9 +211,9 @@ String determineConversion()
       return  "";
     }
 
-    $docexe = pathBox11.value;
+    //$docexe = pathBox11.value;
 
-    break;
+    //break;
     case "IZV":            // DTAUS/IZV
     $docstr = "Z";
     Argument<String> pathBox12 = new Argument<String>("",$docexe.getValue());
@@ -222,9 +222,9 @@ String determineConversion()
       return  "SetSwift ExecRule";
     }
 
-    $docexe = pathBox12.value;
+    //$docexe = pathBox12.value;
 
-    break;
+    //break;
     case "TXT":              // ASCII Text
     $docstr = "J";
     Argument<String> pathBox13 = new Argument<String>("",$docexe.getValue());
@@ -233,14 +233,14 @@ String determineConversion()
       return  "";
     }
 
-    $docexe = pathBox13.value;
+    //$docexe = pathBox13.value;
 
-    break;
+    //break;
     case "LET":     // Letter is handled directly
     Platform.setErrorCode( 995, "\'DetermineConversion\' was called with CORTYP=\'LET\'" );
     return  "";
     //Add by byte for EDI Factoring
-    break;
+    //break;
     case "EDI":   //EDI Factoring
     $docstr = "F";
     Argument<String> pathBox14 = new Argument<String>("",$docexe.getValue());
@@ -249,10 +249,10 @@ String determineConversion()
       return  "ExecRule";
     }
 
-    $docexe = pathBox14.value;
+    //$docexe = pathBox14.value;
 
     //#######
-    break;
+    //break;
     case "DTF":
     $docstr = "D";
     Argument<String> pathBox15 = new Argument<String>("",$docexe.getValue());
@@ -261,12 +261,12 @@ String determineConversion()
       return  "ExecRule";
     }
 
-    $docexe = pathBox15.value;
+    //$docexe = pathBox15.value;
 
-    break;
+    //break;
     default:
     Platform.setErrorCode( 994, Platform.formatText( "Conversion for destination CORTYP $1 not specified in \'DetermineConversion\'", $cortyp.getValue() ) );
     return  "";
   }
-
+    return "";
 }
\ No newline at end of file

script/doceot.0109.script

@@ -54,7 +54,7 @@ String determineMsgTyp()
         if( Platform.compareTo( Platform.toUpper( Platform.mid( line, 1, 4 ) ) ,  ":MT:" ) == 0 )
         {
           return  Platform.mid( line, 5, 3 );
-          break;
+          //break;
         }
         /**
         else

script/docimm.0007.script

@@ -75,8 +75,8 @@ void printAllTags()
           printMT( oriMT, msgidx );  // if MT was before `EOH`
         }
       }
-      Argument<Integer> pathBox = new Argument<Integer>("",$smh\msgpos.getValue());
-      Argument<Integer> pathBox1 = new Argument<Integer>("",$smh\msglen.getValue());
+      Argument<Integer> pathBox = new Argument<Integer>("",(int)$smh\msgpos.getValue());
+      Argument<Integer> pathBox1 = new Argument<Integer>("",(int)$smh\msglen.getValue());
       analyseSwiftStream( pathBox, pathBox1, $smh\cortyp.getValue() );
 
       $smh\msgpos = pathBox.value;

script/docimm.0011.script

@@ -4,11 +4,11 @@ void menuSwiftasRaw()
   // MenuSwiftasRaw is static to allow call from menu DOCPopup
   if( Platform.isEmpty( $ascin ) )
   {
-    Platform.promptok ( #CT000315 );
+    //Platform.promptok ( #CT000315 );
   }
   else
   {
-    Platform.popupTitledFrame( $prtswtr, Platform.gettext ( #CT000033, $title.getValue() ) );
+    //Platform.popupTitledFrame( $prtswtr, Platform.gettext ( #CT000033, $title.getValue() ) );
   }
 
 }
\ No newline at end of file

script/docimm.0014.script

@@ -5,7 +5,7 @@ void popupStreamAsSwift(IStream docstream,String intitle,String indir,String inc
   Platform.streamSet( $ascin.getValue(), docstream );
   Platform.clear( $filename );
   Platform.clear( $msgtxt );
-  Platform.clear( $cn );
+  Platform.setCn( 0 );
   Platform.clear( $smh );
   $lastfilename = $filename;
   $smh\msgpos = 0;

script/docimm.0025.script

@@ -11,8 +11,8 @@ void includeStreamAsSwift(IStream docstream,String argcortyp)
   Platform.streamSet( $ascin.getValue(), docstream );
   // in order to be able to hanlde multi messages in a stream
   $swtdspflg.setValue ( "A" );
-  Argument<Integer> pathBox = new Argument<Integer>("",$smh\msgpos.getValue());
-  Argument<Integer> pathBox1 = new Argument<Integer>("",$smh\msglen.getValue());
+  Argument<Integer> pathBox = new Argument<Integer>("",(int)$smh\msgpos.getValue());
+  Argument<Integer> pathBox1 = new Argument<Integer>("",(int)$smh\msglen.getValue());
   analyseSwiftStream( pathBox, pathBox1, argcortyp );
 
   $smh\msgpos = pathBox.value;

script/docimm.0028.script

@@ -9,8 +9,8 @@ void makeStreamFromSwt(IStream docstream)
   $smh\msglen = 0;
   $smh\dir = "";
   $smh\cortyp = "SWT";
-  Argument<Integer> pathBox = new Argument<Integer>("",$smh\msgpos.getValue());
-  Argument<Integer> pathBox1 = new Argument<Integer>("",$smh\msglen.getValue());
+  Argument<Integer> pathBox = new Argument<Integer>("",(int)$smh\msgpos.getValue());
+  Argument<Integer> pathBox1 = new Argument<Integer>("",(int)$smh\msglen.getValue());
   analyseSwiftStream( pathBox, pathBox1, $smh\cortyp.getValue() );
 
   $smh\msgpos = pathBox.value;

script/docimm.0034.script

@@ -10,6 +10,7 @@ int splitMsg(IStream msg)
   //       tag 20 and 21 are repeated, an additonal tag 79 with no/total is added
   // MT760 is split within tag 72C (place for trailing tag 72 is always reserved
   //       tag 20 and 23 are repeated, tag 79 is updated
+  int idx = 1;
   int len = 0;          // Position of first byte of current line
   int nextidx = 0;      // $idx of last tag start
   int nextpos = 0;      // Byteposition for $nextidx
@@ -43,7 +44,7 @@ int splitMsg(IStream msg)
   Platform.setContext( tdContextMAXSTEPCOUNT, -1, true );
   String line = NULLSTR;
   String mt = NULLSTR;
-  for(int  idx = 1;idx <= Platform.streamCount( $ascin.getValue() );idx++)
+  for(idx = 1;idx <= Platform.streamCount( $ascin.getValue() );idx++)
   {
     line = Platform.trim( Platform.getLine( $ascin.getValue(), idx ) );
     if( Platform.compareTo( Platform.mid( line, 1, 5 ) ,  ":EOH:" ) == 0 )
@@ -196,7 +197,7 @@ int splitMsg(IStream msg)
   int idx72Sub = 0;
   int idx26E = 0;
   int stmCnt = 0;
-  for(int  idx = 1;idx <= Platform.streamCount( $ascin.getValue() );idx++)
+  for(idx = 1;idx <= Platform.streamCount( $ascin.getValue() );idx++)
   {
     line = rtrim( Platform.getLine( $ascin.getValue(), idx ) );
     // trailing space would lead to differences between Len and ConvertSwift
@@ -418,7 +419,7 @@ int splitMsg(IStream msg)
     {
       // as a split is necessary in case a tag exceeds the 100 lines independent of the size call the split rule anyway
       // As the splitting rule might create additional MSGCTL entries directly use the streamcount and no register
-      for(int  idx = 1;idx <= Platform.streamCount( $msgctl.getValue() );idx++)
+      for(idx = 1;idx <= Platform.streamCount( $msgctl.getValue() );idx++)
       {
         splitMTSwt2018( idx, heaLen );
       }
@@ -473,7 +474,7 @@ int splitMsg(IStream msg)
     {                        // first message
       if( total > 1 )
       {                       // replace tag 27 and store tag 20
-        for(int  idx = startidx;idx <= lastidx;idx++)
+        for(idx = startidx;idx <= lastidx;idx++)
         {
           line = Platform.getLine( $ascin.getValue(), idx );
           if( Platform.compareTo( Platform.mid( line, 1, 4 ) ,  ":27:" ) == 0 )

script/docimm.0038.script

@@ -18,7 +18,6 @@ String getNewMT(String orimt,int index)
     {
       return  "799";
     }
-    break;
     case "710":
     return  "711";
     case "720":

script/docimm.0054.script

@@ -31,7 +31,7 @@ String getViewerFromSMH(#smh argsmh)
         {
           return  "RAW";
         }
-        break;
+        //break;
         case "FAX":
         if( Platform.compareTo( $$argsmh\dir ,  ">" ) == 0 && Platform.compareTo( Platform.toLower( $$argsmh\docfxt.getValue() ) ,  "xml" ) == 0 )
         {
@@ -41,7 +41,7 @@ String getViewerFromSMH(#smh argsmh)
         {
           return  "RAW";
         }
-        break;
+        //break;
         case "TLX":
         return  "RAW";
         case "DSP":

script/docimm.0055.script

@@ -13,8 +13,8 @@ void popupStreamAsSWIFTWithSMH()
   {
     // display tagged format as `formatted view`
     msglen = $smh\msglen;
-    Argument<Integer> pathBox = new Argument<Integer>("",$smh\msgpos.getValue());
-    Argument<Integer> msglenBox = new Argument<Integer>("",msglen);
+    Argument<Integer> pathBox = new Argument<Integer>("",(int)$smh\msgpos.getValue());
+    Argument<Integer> msglenBox = new Argument<Integer>("",(int)msglen);
     analyseSwiftStream( pathBox, msglenBox, $smh\cortyp.getValue() );
 
     $smh\msgpos = pathBox.value;

script/docimm.0060.script

@@ -16,7 +16,7 @@ int splitMsgDTAInc()
   start = nextA1;
   if( nextA1 > 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto SearchNextA1
+    return MdaUtils.streamCount(this.getMsgctl()); // #######TODO 改写 LABEL与GOTO  ####   goto SearchNextA1
   }
   return Platform.streamCount( $msgctl.getValue() );
 

script/docimm.0071.script

@@ -213,7 +213,7 @@ void printAllFldStream(boolean printfooterflag)
     {
       if( ! Platform.isEmpty( exeheader ) || ! Platform.isEmpty( exetag ) || ! Platform.isEmpty( execontent ) )
       {
-        Platform.streamInsert( $msgtxt.getValue(), $cn.getValue(), exetag + "\t" + exeheader + "\r\n" + execontent );
+        Platform.streamInsert( $msgtxt.getValue(), (int)$cn.getValue(), exetag + "\t" + exeheader + "\r\n" + execontent );
         printSwiftLine( exeheader, exetag, execontent, printseparate );
         $cn = $cn.getValue() + 1;
       }

script/docimm.0072.script

@@ -24,7 +24,7 @@ void printMT(String orimt,int msgidx)
     {
       content = mt + "  " + content;
     }
-    Platform.streamInsert( $msgtxt.getValue(), $cn.getValue(), mt + ":" + "\t" + content + "\r\n" + header );
+    Platform.streamInsert( $msgtxt.getValue(), (int)$cn.getValue(), mt + ":" + "\t" + content + "\r\n" + header );
     $cn = $cn.getValue() + 1;
     printSwiftLine( header, mt + ":", content, true );
   }

script/docimm.0073.script

@@ -54,7 +54,7 @@ void printTimeStamp(String labeltext,String dattag,String timtag)
       time = "";
     }
     $cn = 1;
-    Platform.streamInsert( $msgtxt.getValue(), $cn.getValue(), Platform.mid( dattag, 1, 2 ) + ":" + "\t" + labeltext + "\r\n" + datestring + " " + time );
+    Platform.streamInsert( $msgtxt.getValue(), (int)$cn.getValue(), Platform.mid( dattag, 1, 2 ) + ":" + "\t" + labeltext + "\r\n" + datestring + " " + time );
     printSwiftLine( labeltext, Platform.mid( dattag, 1, 2 ) + ":", datestring + " " + time, true );
     $cn = $cn.getValue() + 1;
   }

script/docimm.0098.script

@@ -4,7 +4,7 @@ void printAllTagsTCO(IStream docstream,String intitle,String indir,String incort
   Platform.streamSet( $ascin.getValue(), docstream );
   Platform.clear( $filename );
   Platform.clear( $msgtxt );
-  Platform.clear( $cn );
+  this.setCn(0);
   Platform.clear( $smh );
   $smh\dir = indir;
   $smh\cortyp = incortyp;
@@ -70,8 +70,8 @@ void printAllTagsTCO(IStream docstream,String intitle,String indir,String incort
           }
         }
       }
-      Argument<Integer> pathBox = new Argument<Integer>("",$smh\msgpos.getValue());
-      Argument<Integer> pathBox1 = new Argument<Integer>("",$smh\msglen.getValue());
+      Argument<Integer> pathBox = new Argument<Integer>("",(int)$smh\msgpos.getValue());
+      Argument<Integer> pathBox1 = new Argument<Integer>("",(int)$smh\msglen.getValue());
       analyseSwiftStream( pathBox, pathBox1, "SWT" );
 
       $smh\msgpos = pathBox.value;

script/docimm.0100.script

@@ -213,7 +213,7 @@ void printAllFldStreamTCO(boolean printfooterflag)
     {
       if( ! Platform.isEmpty( exeheader ) || ! Platform.isEmpty( exetag ) || ! Platform.isEmpty( execontent ) )
       {
-        Platform.streamInsert( $msgtxt.getValue(), $cn.getValue(), exetag + "\t" + exeheader + "\r\n" + execontent );
+        Platform.streamInsert( $msgtxt.getValue(), (int)$cn.getValue(), exetag + "\t" + exeheader + "\r\n" + execontent );
         //PrintSwiftLine( $exeheader, $exetag, $execontent, $printseparate )
         $cn = $cn.getValue() + 1;
       }

script/docimm.0101.script

@@ -54,7 +54,7 @@ void printTimeStampTCO(String labeltext,String dattag,String timtag)
       time = "";
     }
     $cn = 1;
-    Platform.streamInsert( $msgtxt.getValue(), $cn.getValue(), Platform.mid( dattag, 1, 2 ) + ":" + "\t" + labeltext + "\r\n" + datestring + " " + time );
+    Platform.streamInsert( $msgtxt.getValue(), (int)$cn.getValue(), Platform.mid( dattag, 1, 2 ) + ":" + "\t" + labeltext + "\r\n" + datestring + " " + time );
     //PrintSwiftLine( labeltext, Mid( DatTag, 1, 2 ) + ":", $datestring + " " + $time, TRUE )
     $cn = $cn.getValue() + 1;
   }

script/docimm.0102.script

@@ -24,7 +24,7 @@ void printMTTCO(String orimt,int msgidx)
     {
       content = mt + "  " + content;
     }
-    Platform.streamInsert( $msgtxt.getValue(), $cn.getValue(), mt + ":" + "\t" + content + "\r\n" + header );
+    Platform.streamInsert( $msgtxt.getValue(), (int)$cn.getValue(), mt + ":" + "\t" + content + "\r\n" + header );
     $cn = $cn.getValue() + 1;
   }
 

script/docimm.0105.script

@@ -75,8 +75,8 @@ void printAllTagsTCO1()
           printMT( oriMT, msgidx );  // if MT was before `EOH`
         }
       }
-      Argument<Integer> pathBox = new Argument<Integer>("",$smh\msgpos.getValue());
-      Argument<Integer> pathBox1 = new Argument<Integer>("",$smh\msglen.getValue());
+      Argument<Integer> pathBox = new Argument<Integer>("",(int)$smh\msgpos.getValue());
+      Argument<Integer> pathBox1 = new Argument<Integer>("",(int)$smh\msglen.getValue());
       analyseSwiftStream( pathBox, pathBox1, $smh\cortyp.getValue() );
 
       $smh\msgpos = pathBox.value;

script/docimm.0112.script

@@ -145,19 +145,16 @@ void splitMTSwt2018(int argidx,int arghealen)
           while( sftIdx >= sftBegIdx && Platform.isEmpty( cod ) )
           {
             chkLin = Platform.getLine( $ascin.getValue(), sftIdx );
+            String subChkLin = Platform.MdaUtilsEx( chkLin, 1, 3 );
+            String subTagLin = MdaUtilsEx.mid(tagLin,1,3);
             // set the continuation code to be used
-            switch( Platform.mid( chkLin, 1, 3 ) )
-            {
-              case "/AD":
+            if(subChkLin == "/AD")
                 cod = "/ADD/";
-              break;
-              case "/RE":
+            else if(subChkLin == "/RE")
               cod = "/REPALL/";
-              break;
-              case "/DE":
+            else if(subChkLin == "/DE")
               cod = "/DELETE/";
-              break;
-              case Platform.mid( tagLin, 1, 3 ):
+            else if(subChkLin == subTagLin){
               // if the line holding the tag holds no /code/ do not set the code
               if( Platform.compareTo( Platform.mid( chkLin, 6, 1 ) ,  "/" ) == 0 )
               {

script/dtamod.0003.script

@@ -20,7 +20,7 @@ String dtaPrtTagM19(String argmod)
     if( Platform.errorCode() > 0 )
     {
       Platform.reraise();
-      if(1==1) return;
+      return "";
     }
   }
   // name and phone number (2*35)

script/dtamod.0004.script

 void resetFieldsDTATAG()
 {
   //! Clear all fields on panel DTATAG and set ResetModified()
-  String flds = Platform.getPanelInfo( $dtatag, 7 );
+  String flds = Platform.getPanelInfo( $dtatag, "7" );
   IStream fldstm = new StreamImpl();
   Platform.streamSet( fldstm, flds );
   int fldcnt = Platform.streamCount( fldstm );

script/dtamod.0011.script

@@ -9,14 +9,14 @@ String dtaPrtTagM26orM27(String argdoctypcod,Date argmatdat,String argcur,int ar
     {
       // sight payment
       case "P":
-      Platform.printTemp( $\trnmod\trndoc.swtPrtTagAmount( ":M26:", argcur, argamt ) );
+      Platform.printTemp( $\trnmod\trndoc.swtPrtTagAmount( ":M26:", argcur, new BigDecimal(argamt ) ) );
       // all other payment type
       break;
       default:
       // date defined
       if( ! Platform.isEmpty( argmatdat ) )
       {
-        Platform.printTemp( $\trnmod\trndoc.swtPrtTagField( ":M27:", $\trnmod\trndoc.dtaFmtDate( argmatdat ) + argcur + $\trnmod.fmtAmountSwift( argamt, argcur ) ) );
+        Platform.printTemp( $\trnmod\trndoc.swtPrtTagField( ":M27:", $\trnmod\trndoc.dtaFmtDate( argmatdat ) + argcur + $\trnmod.fmtAmountSwift( new BigDecimal(argamt ), argcur ) ) );
       }
     }
   }

script/dtemod.0003.script

 void resetFieldsDTETAG()
 {
   //! Clear all fields on panel DTETAG and set ResetModified()
-  String flds = Platform.getPanelInfo( $dtetag, 7 );
+  String flds = Platform.getPanelInfo( $dtetag, "7" );
   IStream fldstm = new StreamImpl();
   Platform.streamSet( fldstm, flds );
   int fldcnt = Platform.streamCount( fldstm );

script/dtemod.0004.script

@@ -14,7 +14,7 @@ String dtePrtTagM55(String argdoctypcod,Date argmatdat,String argcur,int argamt)
       // date defined
       if( ! Platform.isEmpty( argmatdat ) )
       {
-        Platform.printTemp( $\trnmod\trndoc.swtPrtTagField( ":M55:", $\trnmod\trndoc.dtaFmtDate( argmatdat ) + argcur + $\trnmod.fmtAmountSwift( argamt, argcur ) ) );
+        Platform.printTemp( $\trnmod\trndoc.swtPrtTagField( ":M55:", $\trnmod\trndoc.dtaFmtDate( argmatdat ) + argcur + $\trnmod.fmtAmountSwift( new BigDecimal(argamt ), argcur ) ) );
       }
       break;
       default:

script/dtemod.0005.script

@@ -14,7 +14,7 @@ String dtePrtTagM56(String argdoctypcod,Date argmatdat,String argcur,int argamt)
       // date undefined
       if( Platform.isEmpty( argmatdat ) )
       {
-        Platform.printTemp( $\trnmod\trndoc.swtPrtTagAmount( ":M56:", argcur, argamt ) );
+        Platform.printTemp( $\trnmod\trndoc.swtPrtTagAmount( ":M56:", argcur, new BigDecimal(argamt ) ) );
       }
       break;
       default:

script/dtemod.0019.script

@@ -9,7 +9,7 @@ String dtePrtTagM29(String argdoctypcod,Date argmatdat,String argcur,int argamt)
     {
       // sight payment
       case "P":
-      Platform.printTemp( $\trnmod\trndoc.swtPrtTagAmount( ":M29:", argcur, argamt ) );
+      Platform.printTemp( $\trnmod\trndoc.swtPrtTagAmount( ":M29:", argcur, new BigDecimal(argamt ) ) );
       break;
       default:
       // nothing to output

script/dtfmap.0000.script

-boolean getConfig()
+boolean getConfigB()
 {
   //!读取ERSMAP.INI文件
   //!===================================

script/dtfmap.0008.script

@@ -8,7 +8,7 @@ String xmlElement(String tag,String content,int fldtyp)
   //!             Fldtyp       FieldType
   //!==========================================
   String objtag = toXMLFieldName( tag );
-  if( Platform.lengths_EDI( content ) > 0 && ( ! Platform.emptyNumericField( tag, content, fldtyp ) ) )
+  if( Platform.lengths_EDI( content ) > 0 && ( ! Platform.emptyNumericField( tag, content, new BigDecimal(fldtyp ) ) ))
   {
     return  "<" + objtag + ">" + Platform.converttoXMLString( content ) + "</" + objtag + ">";
   }

script/dtfmod.0000.script

 void mtaBUTInitProcessDDDDD()
 {
   Platform.streamClear( $dtfmap\resstm.getValue() );
-  boolean tag = $dtfmap.getConfig();
+  boolean tag = $dtfmap.getConfigB();
   String fileNam = NULLSTR;
   int err = 0;
   if( ! Platform.isEmpty( $\sysmod\spt\inr ) )