Skip to content

H
hangzhoutd2bdsproject
Commit 182d2d81 by Gan
Options

A-D T-V Update

parent 0f6cd0df
Showing with 158 additions and 156 deletions
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 ) )
......
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