Skip to content

H
hangzhoutd2bdsproject
Commit d287d83b by lsk
Options

t-x goto语法转换修改提交

parent 2f67ac06
Showing with 176 additions and 69 deletions
eIBS.properties
#Tue Oct 12 14:48:20 CST 2021
#Tue Oct 12 16:26:34 CST 2021
LastTarget=eIBS
ScalePercent=80
DefaultTransName=ditopn
......
script/trncorco.0007.script
......@@ -23,6 +23,8 @@ boolean doConfirm(#trn argtrn)
}
// Check wether CNF Entry is waiting
int destnum = 0;
ExitLabel:
while(true){
if( ! checkServiceWfe( argtrn, "CNF" ) )
{
destnum = 0;
......@@ -32,13 +34,14 @@ boolean doConfirm(#trn argtrn)
Platform.sdbUpdate( argtrn );
Platform.dbCommit();
updategrid( argtrn );
return true; // #######TODO 改写 LABEL与GOTO #### goto ExitLabel
//return true; // #### goto ExitLabel
break ExitLabel;
}
sigWrite( "E", argtrn, "SG3" ); // external confirmation entered`
String setflg = Platform.mid( $$argtrn\relreq.getValue(), 3, 1 );
$$argtrn\relres = Platform.mid( $$argtrn\relres.getValue(), 1, 2 ) + setflg;
Platform.status( #CT000002, $$argtrn\ownref.getValue() );
// #######TODO 改写 LABEL与GOTO #### label ReturnLabel
// #### label ReturnLabel
if( Platform.compareTo( $$argtrn\relres , $$argtrn\relreq ) == 0 )
{
$$argtrn\relflg = "R";
......@@ -47,7 +50,9 @@ boolean doConfirm(#trn argtrn)
{
$$argtrn\relflg = "W";
}
// #######TODO 改写 LABEL与GOTO #### label ExitLabel
break ExitLabel;
}
// #### label ExitLabel
updateServiceWfe( argtrn, "CNF" ); // Update status of WFE entry for release
$$argtrn\inftxt = inftxttmp;
$$argtrn\infdsp = infdsptmp;
......
script/trncorco.0017.script
......@@ -9,7 +9,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
//检核牌价是否变化
/*if( checkXrtChg( $$argtrn\inr.getValue() ) )
{
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}*/
//新增结售汇，更新汇率处理
boolean getXrtReturn = false;
......@@ -19,11 +20,14 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
getXrtReturn = getXrtReturnBox.value;
//新增更新gle汇率异常处理，如果异常直接不能复核，（其实也可以直接不更新，后面再优化）
ExitNoUpdateLabel:
while(true){
if( getXrtReturn )
{
destnum = new BigDecimal("0");
Platform.errorMessage( #CT000072 );
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; //#### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
//! brtset bctset cptopn 交易提示一下如果结算贷款登记时绑定过借据号
String jjh = NULLSTR;
......@@ -48,7 +52,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
{
Platform.errorMessage( #CT000058, Platform.mid( $$argtrn\ownref.getValue(), 3 ) );
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
}
queHldFlg = "D";
......@@ -62,7 +67,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
Platform.errorMessage( #CT000028, $$argtrn\inr.getValue(), GetLockUID, GetLockDateTime );
destnum = new BigDecimal("0");
queHldFlg = " ";
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
Platform.reraise();
}
......@@ -75,7 +81,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
Platform.errorMessage( #CT000029, $$argtrn\inr.getValue(), GetLockUID, GetLockDateTime );
destnum = new BigDecimal("0");
queHldFlg = " ";
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
Platform.reraise();
}
......@@ -85,7 +92,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
Platform.errorMessage( #CT000030 );
queHldFlg = "D";
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
// Checking the commit status after locking the TRN
if( Platform.compareTo($$argtrn\comflg, "D" )== 0 )
......@@ -93,25 +101,30 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
Platform.errorMessage( #CT000031 );
queHldFlg = "D";
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
destnum = new BigDecimal(argrelnum);
// Force reread of WFEs
Platform.clear( $wfmmod\wfs );
// Check wether REL Entry is waiting
// if service "REL" is used, SRVREL must be included and executed in MGRTSK in order to set WFE for REL to "D"one
ExitLabel:
while(true){
if( ! checkServiceWfe( argtrn, "REL" ) )
{
queHldFlg = "D";
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitLabel
//return destnum; // #### goto ExitLabel
break ExitLabel;
}
//检查服务状态是否有，"E" or "F" ，如果有，必须先进行处理才能RELEASE
if( ! checkWfeStat() )
{
queHldFlg = "D";
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitLabel
//return destnum; // #### goto ExitLabel
break ExitLabel;
}
// check wether user already gave signature
destnum = setSign( argtrn, argrelnum );
......@@ -119,13 +132,15 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
{
queHldFlg = "D";
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
if( ! checkPDP( argtrn ) )
{
queHldFlg = "D";
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
// 资金报价交易有时间控制，超过时间不允许Release
Date time = null;
......@@ -141,7 +156,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
Platform.errorMessage( #CT000050 );
queHldFlg = " ";
destnum = new BigDecimal("0");
return destnum; // #######TODO 改写 LABEL与GOTO #### goto ExitNoUpdateLabel
//return destnum; // #### goto ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
}
//gleXrtChgAfterRelease( argtrn\inr )
......@@ -266,7 +282,9 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
{
$imgmod.imgrel ( $$argtrn\imginr.getValue(), $$argtrn\ownref.getValue(), $$argtrn\relflg.getValue(), $$argtrn\relres.getValue() );
}
// #######TODO 改写 LABEL与GOTO #### label ExitLabel
break ExitLabel;
}
// #### label ExitLabel
$$argtrn\inftxt = inftxttmp;
$$argtrn\infdsp = infdsptmp;
setTrnOrgFlg( argtrn );
......@@ -320,7 +338,9 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
updategrid( argtrn );
Platform.SetAttributeStream( $trnstm.getValue(), tdAttrSelected, lines );
}
// #######TODO 改写 LABEL与GOTO #### label ExitNoUpdateLabel
break ExitNoUpdateLabel;
}
// #### label ExitNoUpdateLabel
Platform.dbRollback();
return destnum;
......
script/trndia.0010.script
......@@ -135,9 +135,12 @@ void saveNewDiaries()
// analyse of controlflag
flg = internalCtlGetFlgOfLbl( lbl );
// entry mustn`t be saved in DB when diary was not modified or is a dummy-entry
diary:
while(true){
if( Platform.compareTo( flg , "SNN" ) == 0 || Platform.compareTo( flg , "SND" ) == 0 || Platform.compareTo( flg , "NNN" ) == 0 )
{
return ; // #######TODO 改写 LABEL与GOTO #### goto diary
//return ; // #### goto diary
break diary;
}
if( Platform.compareTo( Platform.getTransName() , "CPTREP" ) == 0 )
{
......@@ -218,7 +221,9 @@ void saveNewDiaries()
Platform.reraise();
}
}
// #######TODO 改写 LABEL与GOTO #### label diary
break diary;
}
// #### label diary
}
}
\ No newline at end of file
script/trndia.0025.script
......@@ -30,7 +30,9 @@ void internalCtlGetDiaOfType(String argpth,String argdiatyp,String argsubkey,ISt
}
}
int idx = 1;
// #######TODO 改写 LABEL与GOTO #### label NextEntry
NextEntry:
while(true){
//#### label NextEntry
int fnd = Platform.streamSearch( $diawrkstm, lbl, idx );
if( fnd == 0 && lblWithInr )
{
......@@ -38,13 +40,17 @@ void internalCtlGetDiaOfType(String argpth,String argdiatyp,String argsubkey,ISt
lbl = argpth + "//#" + argsubkey + "#" + argdiatyp + "#";
idx = 1;
lblWithInr = false;
return ; // #######TODO 改写 LABEL与GOTO #### goto NextEntry
//return ; //#### goto NextEntry
continue NextEntry;
}
if( fnd > 0 )
{
Platform.streamInsert( argwrkstm, 0, Platform.getLine( $diawrkstm.getValue(), fnd ) );
idx = fnd + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto NextEntry
//return ; // #######TODO 改写 LABEL与GOTO #### goto NextEntry
continue NextEntry;
}
break NextEntry;
}
}
\ No newline at end of file
script/trndia.0045.script
......@@ -5,6 +5,8 @@ boolean isOpenDiariesExists()
boolean res = false;
int stmCnt = 0;
String lbl = NULLSTR;
done:
while(true){
if( ! Platform.isEmpty( $diawrkstm ) )
{
stmCnt = Platform.streamCount( $diawrkstm.getValue() );
......@@ -15,11 +17,14 @@ boolean isOpenDiariesExists()
if( Platform.isEmpty( $diachk\donflg ) )
{
res = true;
return res; // #######TODO 改写 LABEL与GOTO #### goto done
//return res; //#### goto done
break done;
}
}
}
// #######TODO 改写 LABEL与GOTO #### label done
break done;
}
// #### label done
return res;
}
\ No newline at end of file
script/trndoc.0002.script
......@@ -74,6 +74,9 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
String docnam = Platform.mid( argdocpannam, 1, Platform.len( argdocpannam ) - 2 ) + Platform.mid( argdocpannam, Platform.len( argdocpannam ), 1 );
// check if message is already in list
int gridCnt = Platform.gridCount( $doceot );
boolean setitFlag = true;
setitLabel:
while(true){
if( gridCnt > 0 )
{
for(int i = 1;i <= gridCnt;i++)
......@@ -88,7 +91,8 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
if( Platform.compareTo($doceot[i]\argptainr.getValue(), ptainr) != 0 )
{
Platform.clear( $doceot[i] );
return ; // #######TODO 改写 LABEL与GOTO #### goto setit
//return ; //#### goto setit
break setitLabel;
}
$doceot[i]\pandsc = pandsc;
$doceot[i]\role = role;
......@@ -143,7 +147,9 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
Platform.clear( $doceot[i]\docdat );
}
}
return ; // #######TODO 改写 LABEL与GOTO #### goto DoRegisterAddTxt
// return ; //#### goto DoRegisterAddTxt
setitFlag = false;
break setitLabel;
}
}
}
......@@ -156,15 +162,19 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
if( Platform.isEmpty( $doceot[i]\id ) )
{
fnd = i;
return ; // #######TODO 改写 LABEL与GOTO #### goto setit
//return ; //#### goto setit
break setitLabel;
}
}
}
Platform.gridInsertRow( $doceot, 0, 10 );
fnd = Platform.gridCount( $doceot ) - 9;
int i = fnd;
break setitLabel;
}
// set line in DOCEOT
// #######TODO 改写 LABEL与GOTO #### label setit
// #### label setit
if(setitFlag){
if( i > 0 )
{
$doceot[i]\id = id;
......@@ -209,8 +219,9 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
Platform.clear( $doceot[i]\docdat );
}
}
}
// defaulting for ADDTXT/ADDSTR from RegisterAddTxt
// #######TODO 改写 LABEL与GOTO #### label DoRegisterAddTxt
// #### label DoRegisterAddTxt
int stmCnt = 0;
String postcmd = NULLSTR;
if( ! Platform.isModified( $doceot[i]\addtxt ) && ! Platform.isModified( $doceot[i]\addstr ) )
......
script/trndoc.0055.script
......@@ -28,6 +28,8 @@ event $butatt order 1000
int stmCnt = Platform.streamCount( selStm );
String objtyp = NULLSTR;
String objinr = NULLSTR;
UpdateGrids:
while(true){
for(int selidx = 1;selidx <= stmCnt;selidx++)
{
line = Platform.getLine( selStm, selidx );
......@@ -44,7 +46,8 @@ event $butatt order 1000
{
Platform.errorMessage( #CT001100 );
fillCONDOCSTM();
return ; // #######TODO 改写 LABEL与GOTO #### goto UpdateGrids
//return ; //#### goto UpdateGrids
break UpdateGrids;
}
else
{
......@@ -54,17 +57,21 @@ event $butatt order 1000
break;
default:
Platform.errorMessage( #CT001099, objtyp );
return ; // #######TODO 改写 LABEL与GOTO #### goto UpdateGrids
//return ; // #### goto UpdateGrids
break UpdateGrids;
}
// Attachment entry does not yet exist, create new attachment under selected document
newid = createAttachment( $doceot[dOCEOTidx]\id.getValue(), $smh\nam.getValue(), "SMH", $smh\inr.getValue(), "" );
if( Platform.errorCode() > 0 )
{
Platform.errorMessage( #CT001098, Platform.getErrorText() );
return ; // #######TODO 改写 LABEL与GOTO #### goto UpdateGrids
//return ; //#### goto UpdateGrids
break UpdateGrids;
}
}
// #######TODO 改写 LABEL与GOTO #### label UpdateGrids
break UpdateGrids;
}
//#### label UpdateGrids
Platform.invokeModulePath( "assertDOCS", 0 );
Platform.invokeModulePath( "TRNDOCFillDOCTree", 0 );
if( Platform.compareTo(newid, "") != 0 )
......
script/trndoc.0060.script
......@@ -37,20 +37,26 @@ event $filrecv order 1000
filenameout = getNormalizedFilename( Platform.getLastNode( filenamein ) );
filenameoutfull = Platform.getFullName( "tmp", filenameout );
Platform.FileCopy( "client:" + filenamein, filenameoutfull );
UpdateGrids:
while(true){
if( Platform.errorCode() > 0 )
{
Platform.errorMessage( #CT001116, Platform.getErrorText() );
return ; // #######TODO 改写 LABEL与GOTO #### goto UpdateGrids
//return ; // #### goto UpdateGrids
break UpdateGrids;
}
// Attachment entry does not yet exist, create new attachment under selected document
newid = createAttachment( $doceot[dOCEOTidx]\id.getValue(), filenameout, "FIL", filenameout, "" );
if( Platform.errorCode() > 0 )
{
Platform.errorMessage( #CT001118, Platform.getErrorText() );
return ; // #######TODO 改写 LABEL与GOTO #### goto UpdateGrids
//return ; // #### goto UpdateGrids
break UpdateGrids;
}
}
// #######TODO 改写 LABEL与GOTO #### label UpdateGrids
break UpdateGrids;
}
// #### label UpdateGrids
Platform.invokeModulePath( "assertDOCS", 0 );
Platform.invokeModulePath( "TRNDOCFillDOCTree", 0 );
if( ! Platform.isEmpty( newid ) )
......
script/trndoc.0068.script
......@@ -34,6 +34,8 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
// check if message is already in list
int gridcnt = Platform.gridCount( $doceot );
int fnd = 0;
setit:
while(true){
if( gridcnt > 0 )
{
for(int i = 1;i <= gridcnt;i++)
......@@ -41,7 +43,8 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
if( Platform.compareTo( id , $doceot[i]\id ) == 0 )
{
fnd = i;
return ; // #######TODO 改写 LABEL与GOTO #### goto setit
//return ; //#### goto setit
break setit;
}
}
}
......@@ -54,7 +57,8 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
if( Platform.isEmpty( $doceot[i]\id ) )
{
fnd = i;
return ; // #######TODO 改写 LABEL与GOTO #### goto setit
//return ; // #### goto setit
break setit;
}
}
}
......@@ -62,8 +66,10 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
gridcnt = Platform.gridCount( $doceot );
fnd = gridcnt - 9;
int i = fnd;
break setit;
}
// set line in DOCEOT
// #######TODO 改写 LABEL与GOTO #### label setit
// #### label setit
if( i > 0 )
{
$doceot[i]\id = id;
......
script/trndoc.0123.script
......@@ -43,12 +43,17 @@ event $butattapy order 1000
Platform.exitEvent();
}
String newid = createAttachment( $doceot[dOCEOTidx]\id.getValue(), attName, "EOT", attInr, "" );
UpdateGrids:
while(true){
if( Platform.errorCode() > 0 )
{
Platform.errorMessage( #CT001188, Platform.getErrorText() );
return ; // #######TODO 改写 LABEL与GOTO #### goto UpdateGrids
//return ; // #### goto UpdateGrids
break UpdateGrids;
}
// #######TODO 改写 LABEL与GOTO #### label UpdateGrids
break UpdateGrids;
}
// #### label UpdateGrids
Platform.invokeModulePath( "assertDOCS", 0 );
Platform.invokeModulePath( "TRNDOCFillDOCTree", 0 );
if( ! Platform.isEmpty( newid ) )
......
script/trnism.0012.script
......@@ -14,8 +14,8 @@ static void getStandardReference(Argument<String> ownref,String sector,String pn
}
if( Platform.isEmpty( pntref ) )
{
//return ; // #######TODO 改写 LABEL与GOTO #### goto GetNewRef
// #######TODO 改写 LABEL与GOTO #### label GetNewRef
//return ; // #### goto GetNewRef
// #### label GetNewRef
// if number of parents contract empty
// - generate new reference
// Generate Name of counter to be taken
......@@ -115,9 +115,9 @@ static void getStandardReference(Argument<String> ownref,String sector,String pn
if(1==1) return;
}
}
//return ; // #######TODO 改写 LABEL与GOTO #### goto done
//return ; // #### goto done
/**
// #######TODO 改写 LABEL与GOTO #### label GetNewRef
// #### label GetNewRef
// if number of parents contract empty
// - generate new reference
// Generate Name of counter to be taken
......
script/trnism.0033.script
......@@ -37,12 +37,12 @@ void getgrpnew(String sec,String bchkey,String branch,Argument<String> grp)
if( Platform.errorCode() == 0 )
{
grp.value = $rou\grp;
return ; // #######TODO 改写 LABEL与GOTO #### goto end2
return ; //#### goto end2
}
else
{
err = Platform.errorCode();
return ; // #######TODO 改写 LABEL与GOTO #### goto END1
//return ; // #### goto END1
}
}
else
......@@ -50,7 +50,7 @@ void getgrpnew(String sec,String bchkey,String branch,Argument<String> grp)
grp.value = "";
}
//2、------查找该分行除了第一步中已设定组以外其它所有支行的组别所属--------------
// #######TODO 改写 LABEL与GOTO #### label END1
// #### label END1
rousql = "Where (BUSSEC = '" + sec + "' AND TRNGRP='" + trl + "' AND BCHCOD='' )";
Platform.dbSelectCursor( $rou, rousql );
if( Platform.errorCode() == 0 )
......@@ -69,7 +69,7 @@ void getgrpnew(String sec,String bchkey,String branch,Argument<String> grp)
{
grp.value = "";
}
// #######TODO 改写 LABEL与GOTO #### label end2
// #### label end2
/**
if Pos( \SYSMOD\USR\TRLGRP, "A" ) == 1 then
GRP = ""
......
script/trnmod.0005.script
......@@ -5,7 +5,7 @@ void troWriteEntry(String objtyp,String objinr,String trninr)
if( Platform.isEmpty( objinr ) )
{
Platform.sysDump( "Can not insert contract without INR in SRO" );
return ; // #######TODO 改写 LABEL与GOTO #### goto done
return ; //#### goto done
}
// Is already a last TRN stored for this contract?
String sql = Platform.sdbEtyGenSql( $tro, "where OBJTYP = " + Platform.sqlLit( objtyp ) + " AND OBJINR = " + Platform.sqlLit( objinr ) + " AND LSTFLG = 'X'" );
......@@ -38,6 +38,6 @@ void troWriteEntry(String objtyp,String objinr,String trninr)
Platform.sdbInsert( $tro );
}
}
// #######TODO 改写 LABEL与GOTO #### label done
//#### label done
}
\ No newline at end of file
script/trnmod.0025.script
......@@ -80,6 +80,6 @@ void autoRegistration(IModule arggrp,String argfrm,String argtxt)
$\sysmod.sptSaveEntry( $sptaut, arggrp, SptWaitingRegistration, bakStm, "", "" );
// reset SMH
Platform.loadData( $smh, oldSmh );
// #######TODO 改写 LABEL与GOTO #### label done
// #### label done
}
\ No newline at end of file
script/trnmod.0037.script
......@@ -23,13 +23,16 @@ void troLockAdditionalContract(IModule obj)
$mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, "", "ADDRELWRN" + Platform.recGetObj( obj ) + Platform.recGetInr( obj ) );
int a = 0;
String notFndTxt = NULLSTR;
doneLabel:
while(true){
if( Platform.isEmpty( objINR ) && ! Platform.sptIsAnyLoaded() )
{
Platform.setContentText( objPath + "\\OWNREF", "" );
a = Platform.errorCode();
notFndTxt = #CT000026;
Platform.setErrorCode( 27, notFndTxt );
return ; // #######TODO 改写 LABEL与GOTO #### goto done
//return ; //#### goto done
break doneLabel;
}
String ownRef = Platform.getContent( objPath + "\\OWNREF" );
Platform.sdbReadLock( Platform.getModule( objPath ), objINR );
......@@ -37,7 +40,8 @@ void troLockAdditionalContract(IModule obj)
int errorCode = 0;
if( Platform.errorCode() == tdOdbcNotFound )
{
return ; // #######TODO 改写 LABEL与GOTO #### goto done
//return ; // #### goto done
break doneLabel;
}
else
{
......@@ -48,7 +52,8 @@ void troLockAdditionalContract(IModule obj)
errorCode = Platform.errorCode();
$mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, Platform.getText( #CT000028, Platform.errorCode(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ), ownRef ), "ADDLCKWRN" + Platform.recGetObj( obj ) + Platform.recGetInr( obj ) );
Platform.setErrorCode( errorCode, lckTxt );
return ; // #######TODO 改写 LABEL与GOTO #### goto done
//return ; // #### goto done
break doneLabel;
}
else
{
......@@ -78,7 +83,8 @@ void troLockAdditionalContract(IModule obj)
errTxt = Platform.getText( #CT000080, ref, trnLst );
$mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, errTxt, "ADDXREWRN" + Platform.recGetObj( obj ) + Platform.recGetInr( obj ) );
Platform.setErrorCode( tdOdbcLocked, errTxt );
return ; // #######TODO 改写 LABEL与GOTO #### goto done
//return ; // #### goto done
break doneLabel;
}
else
{
......@@ -90,7 +96,9 @@ void troLockAdditionalContract(IModule obj)
trnLst = trnLstBox.value;
Platform.setErrorCode( 0, "" );
// #######TODO 改写 LABEL与GOTO #### label done
break doneLabel;
}
// #### label done
// reraise all errorcodes
Platform.reraise();
// Use EXIT to return to caller with the errorcode set
......
script/trnp.0038.script
......@@ -28,6 +28,8 @@ void fillWFESTM()
{
srv = Platform.getLine( remainSrv, idx );
preLst = $wfmmod.getPreLst ( srv );
Nextsrv:
while(true){
for(int sroidx = 1;sroidx <= Platform.len( preLst );sroidx+=6)
{
// PreLst contains list of (possible) predecessors of $srv
......@@ -39,14 +41,17 @@ void fillWFESTM()
if( Platform.streamSearch( remainSrv, preSrv ) > 0 )
{
// service still has predecessor
return ; // #######TODO 改写 LABEL与GOTO #### goto Nextsrv
//return ; //#### goto Nextsrv
break Nextsrv;
}
}
}
loopFlag = false;
Platform.streamDelete( remainSrv, idx );
Platform.streamInsert( srvstm, 0, srv );
// #######TODO 改写 LABEL与GOTO #### label Nextsrv
break Nextsrv;
}
//#### label Nextsrv
}
if( loopFlag == true )
{
......
script/trnrel.0122.script
......@@ -296,6 +296,8 @@ void updateGridButtons()
}
}
int useidx = 0;
orelabLabel:
while(true){
if( ! Platform.isEmpty( $trncorco\selinr ) )
{
for(int trnidx = 1;trnidx <= Platform.streamCount( $trncorco\selinr.getValue() );trnidx++)
......@@ -307,7 +309,8 @@ void updateGridButtons()
if( Platform.compareTo($trn\relflg.getValue(), "W") != 0 && Platform.compareTo($trn\relflg.getValue(), "X") != 0 )
{
//Platform.disable( $relrow, $reldsp );
return ; // #######TODO 改写 LABEL与GOTO #### goto orelab
//return ; // #### goto orelab
break orelabLabel;
}
else
{
......@@ -320,14 +323,17 @@ void updateGridButtons()
if( useidx <= 0 )
{
//Platform.disable( $relrow, $reldsp );
return ; // #######TODO 改写 LABEL与GOTO #### goto orelab
//return ; //#### goto orelab
break orelabLabel;
}
}
}
}
}
Platform.invisible( $rejrow );
// #######TODO 改写 LABEL与GOTO #### label orelab
break orelabLabel;
}
// #### label orelab
if( Platform.compareTo( $\sysmod\bch\lev , "3" ) == 0 )
{
$seaownflg = "X";
......
script/xrtmod.0029.script
......@@ -18,7 +18,9 @@ void updateTdparaCurTable()
String curCod = "";
int curDec = 0;
Platform.dbExecuteSql( sql );
// #######TODO 改写 LABEL与GOTO #### label GetNext
// #### label GetNext
GetNext:
while(true){
Platform.dbFetchFields( "COD", curCod, "DEC", curDec );
String curNam = NULLSTR;
String curLin = NULLSTR;
......@@ -34,7 +36,8 @@ void updateTdparaCurTable()
{
curTbl = curTbl + "\r\n" + curLin;
}
return ; // #######TODO 改写 LABEL与GOTO #### goto GetNext
//return ; // #### goto GetNext
continue GetNext;
}
else
{
......@@ -43,6 +46,8 @@ void updateTdparaCurTable()
Platform.reraise();
}
}
break GetNext;
}
Platform.dbCloseCursor();
Platform.SetIniBlock( "TDPARA.INI", "CURRENCY", "Currency", curTbl );
Platform.CacheClear();
......
script/xrtmod.0042.script
......@@ -9,7 +9,7 @@ void getratCeb(String fromcur,String tocur,String typ,Date value,Argument<BigDec
if( Platform.compareTo( fromcur , tocur ) == 0 )
{
rmbrat.value = new BigDecimal(1);
return ; // #######TODO 改写 LABEL与GOTO #### goto done
return ; // #### goto done
}
if( ( Platform.compareTo(fromcur, sysiso) != 0 ) && ( ! Platform.isEmpty( fromcur ) ) )
{
......@@ -32,6 +32,6 @@ void getratCeb(String fromcur,String tocur,String typ,Date value,Argument<BigDec
rmbrat.value = Platform.round( $xrt\midrat.getValue(), 6 );
}
}
// #######TODO 改写 LABEL与GOTO #### label done
// #### label done
}
\ No newline at end of file
script/xrtmod.0043.script
......@@ -14,7 +14,7 @@ void getratCebTim(String fromcur,String tocur,Date value,Argument<String> rmbrat
if( Platform.compareTo( fromcur , tocur ) == 0 )
{
rmbrat.value = "";
return ; // #######TODO 改写 LABEL与GOTO #### goto done
return ; // #### goto done
}
if( ( Platform.compareTo(fromcur, sysiso) != 0 || Platform.compareTo(tocur, sysiso) != 0 ) && ( ! Platform.isEmpty( fromcur ) ) )
{
......@@ -58,6 +58,6 @@ void getratCebTim(String fromcur,String tocur,Date value,Argument<String> rmbrat
cbrate = XRT\BUY1RAT
endif
**/
// #######TODO 改写 LABEL与GOTO #### label done
// #### label done
}
\ No newline at end of file
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