Skip to content

H
hangzhoutd2bdsproject
Commit 905f72e5 by wangguangchao
Options

ditopn office trnrel sptsel交易报错修改

parent e0a20f6d
Showing with 155 additions and 151 deletions
module/office.module
......@@ -283,7 +283,6 @@
<components path="hotwdg" width="106" required="true" left="636" top="368" height="22"/>
<components path="hotque" width="106" required="true" left="128" top="476" height="22"/>
</panels>
<globalMethods name="getStreamfield" codeText="@0008" moduleName="office"/>
<globalMethods name="formatDate" codeText="@0011" moduleName="office"/>
<localMethods name="appendSql" type="local" codeText="@0003" moduleName="office"/>
<localMethods name="getbchsql" type="local" codeText="@0004" moduleName="office"/>
......
script/ditopn.0035.script
......@@ -18,7 +18,7 @@ void liaallSetTransaction()
}
else
{
$liaall.liaallSetCbeAmount( rol, 3, $oldlidgrp\cbs\max\cur.getValue(), -$trnmod\liaget.trnmodGetTenorAmount( $lidgrp\rec, "AVL" ), "AVL", $\lidgrp\rec );
$liaall.liaallSetCbeAmount( rol, 3, $oldlidgrp\cbs\max\cur.getValue(), new BigDecimal(-$trnmod\liaget.trnmodGetTenorAmount( $lidgrp\rec, "AVL" )), "AVL", $\lidgrp\rec );
$liaall.liaallSetCbeAmountDbtCdt( rol, 3, "", $lidgrp\cbs\max\cur.getValue(), Platform.numAdd($lidgrp\cbs\max\amt.getValue() , $lidgrp\cbs\max2\amt.getValue()), "AVL", $\lidgrp\rec, "1" );
$liaall.liaallSetCoverChangeAmount( rol, $lidgrp\cbs\max\cur.getValue(), Platform.numAdd($lidgrp\cbs\max\amt.getValue() , $lidgrp\cbs\max2\amt.getValue()), $\lidgrp\rec );
}
......
script/ditopn.0049.script
......@@ -20,7 +20,6 @@ String getAMTwrd(int amt,String cur)
case "EN":
return cur + " " + Platform.amtWrd( Platform.toInt( amt ), Platform.getLang() ) + fractiontext;
// else english
break;
default:
return cur + " " + Platform.amtWrd( Platform.toInt( amt ), Platform.getLang() ) + fractiontext;
}
......
script/ditopn.0107.script
......@@ -13,7 +13,7 @@ event $mtabut\sav order 4
{
Platform.visible( $recpan\gkp );
num = Platform.prompt( #CT000637 );
if( num == 1 )
if( num )
{
$recpan\casgrp\rec\jjh = jjh;
Platform.disable( $recpan\casgrp\rec\jjh );
......
script/office.0008.script deleted 100644 → 0
static String getStreamfield(String line,int posi,String sep)
{
//!获取Line 指定位置的数据域
//!=========================================
//! 返回值: 数据域内容
//! 变量: Line 数据Line
//! Posi 数据域位置(第Posi个数据)
//! Created by zdg
//!=========================================
String txt = "";
String vline = line;
String vsep = sep;
int pos = 0;
for(int i = 1;i <= posi - 1;i++)
{
pos = Platform.pos( vline, vsep );
if( pos == 0 )
{
break;
}
vline = Platform.mid( vline, pos + 1 );
}
if( i < posi - 1 )
{
txt = "";
}
else
{
pos = Platform.pos( vline, vsep );
txt = Platform.mid( vline, 1, pos - 1 );
}
return txt;
}
\ No newline at end of file
script/office.0101.script
......@@ -12,7 +12,8 @@ void checkusrdia()
if( cou > 0 )
{
que = Platform.prompt( #CT000309 );
if( que < tdPromptCancel )
//if( que < tdPromptCancel )
if(que)
{
Platform.lnkCallTransaction( "DIASEL" );
}
......
script/office.0104.script
......@@ -2,13 +2,16 @@ void initializeCheck()
{
//! Initialize the time interval for the check routines
initializeCheckRoutine( "checkfile", 0 );
initializeCheckRoutine( "checkrelfolder", 0.5 );
//initializeCheckRoutine( "checkrelfolder", 0.5 );
initializeCheckRoutine( "checkrelfolder", 0 );
initializeCheckRoutine( "checkgar", 1 );
initializeCheckRoutine( "checkdia", 1.5 );
//initializeCheckRoutine( "checkdia", 1.5 );
initializeCheckRoutine( "checkdia", 1 );
initializeCheckRoutine( "checkscr", 2 );
if( Platform.isEmpty( $envtxt ) )
{
initializeCheckRoutine( "ShowVideo", 2.5 );
//initializeCheckRoutine( "ShowVideo", 2.5 );
initializeCheckRoutine( "ShowVideo", 2 );
}
}
\ No newline at end of file
script/office.0106.script
......@@ -4,7 +4,7 @@ void executeCheck(String argroutine,int arginterval)
//! post this check routine
// Execute routine
Platform.invokeModulePath( argroutine, -1 );
int interval = arginterval + Platform.toInt( Random * 5 );
int interval = arginterval + Platform.toInt( Math.random() * 5 );
Platform.invokeModulePath( "ExecuteCheck( \"" + argroutine + "\" , " + Platform.toString( arginterval ) + " )", interval );
}
\ No newline at end of file
script/office.0115.script
void sethints()
{
/**
Platform.setHint( $hotcalc.getValue(), #CT000334 );
Platform.setHint( $hotfil1.getValue(), "$1", $cfgfil\fil1hnt.getValue() );
Platform.setHint( $hotfil2.getValue(), "$1", $cfgfil\fil2hnt.getValue() );
......@@ -10,23 +11,30 @@ void sethints()
Platform.setHint( $hotreg.getValue(), #CT000350 );
Platform.setHint( $hotman.getValue(), #CT000351 );
Platform.setHint( $hotwdg.getValue(), #CT000352 );
**/
if( Platform.isEmpty( $doorsta ) )
{
/**
Platform.setHint( $hotrat.getValue(), #CT000339 );
Platform.setHint( $hotadr.getValue(), #CT000340 );
Platform.setHint( $hotstd.getValue(), #CT000348 );
Platform.setHint( $hotsta.getValue(), #CT000349 );
**/
}
String relhint = #CT000343;
/**
Platform.setHint( $hotrel.getValue(), "$1", relhint );
Platform.setHint( $hotrel1.getValue(), "$1", relhint );
Platform.setHint( $hotrel2.getValue(), "$1", relhint );
Platform.setHint( $hotrel3.getValue(), "$1", relhint );
**/
String infhint = #CT000354;
/**
Platform.setHint( $hotinf1.getValue(), "$1", infhint );
Platform.setHint( $hotinf2.getValue(), "$1", infhint );
Platform.setHint( $hotinf3.getValue(), "$1", infhint );
Platform.setHint( $hotinf1.getValue(), #CT000353 );
Platform.setHint( $hotque.getValue(), #CT000355 );
**/
}
\ No newline at end of file
script/sptsel.0003.script
......@@ -29,7 +29,7 @@ void updateSptSpr(#spt argspt,String argsptsta,String argsprsta)
}
// update SPR
$spr\reldat = Platform.today();
$spr\reltim = Platform.Time( 4 );
$spr\reltim = new BigDecimal(Platform.Time( 4 ));
$spr\relusr = Platform.getLoginUser();
$spr\relssninr = $\sysmod\ssn\inr;
$spr\relsta = argsprsta;
......
script/sptsel.0006.script
......@@ -15,23 +15,23 @@ default $selrow order 1000
{
Platform.enable( $bind );
// multi select, no row selected
$selrow = 0;
$selrow = BigDecimal.ZERO;
}
else
{
line = Platform.getLine( lineidx, 1 );
inr = Platform.mid( line, 1, Platform.pos( line, "\t" ) - 1 );
$selrow = Platform.streamSearch( $sptstm, inr );
$selrow = new BigDecimal(Platform.streamSearch( $sptstm, inr ));
}
}
else
{
$selrow = 0;
$selrow = BigDecimal.ZERO;
}
}
else
{
$selrow = 0;
$selrow = BigDecimal.ZERO;
}
}
\ No newline at end of file
script/sptsel.0013.script
......@@ -17,10 +17,12 @@ void autoBindCshMsg()
can = Platform.promptYesNo( #CT000148 );
switch( can )
{
case tdPromptYes:
//case tdPromptYes:
case 1:
bindCshMsg( sptinr202, smhinr202, $\spt\smhinr.getValue() );
break;
case tdPromptNo:
//case tdPromptNo:
case 0:
break;
default:
// NtfCheck will be started
......
script/sptsel.0015.script
......@@ -7,7 +7,7 @@ event $bind order 1000
int selCnt = 0;
String line = NULLSTR;
String sptInr = NULLSTR;
if( Platform.prompt( #CT000149 ) == tdPromptYes )
if( Platform.prompt( #CT000149 ) )
{
Platform.GetAttributeStream( selStm, $sptstm.getValue(), tdAttrSelected );
selCnt = Platform.streamCount( selStm );
......
script/sptsel.0016.script
......@@ -30,7 +30,7 @@ event $unbind order 1000
if(1==1) return;
}
String inr = #CT000152;
if( Platform.prompt( #CT000151 ) == tdPromptYes )
if( Platform.prompt( #CT000151 ) )
{
Platform.dbExecuteSQL( "select inr from smh where grpinr = ? and msgtyp in ('202','910')", $\spt\smhinr.getValue() );
Platform.dbFetchFields( "", inr );
......
script/sptsel.0019.script
......@@ -2,13 +2,13 @@ default setclearkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkaut,$chkdel,$chkclr,$ch
{
//default setClearKey ( CHKINC, CHKRIM, CHKPEN, CHKCOR, CHKAUT, CHKDEL, CHKCLR, CHKTCO, CHKCORE, CHKNRA ) order 1100
/**
if GetFocusField == "\CHKCLR" or GetFocusField == "\CHKTCO" then
if Platform.GetFocusField() == "\CHKCLR" or Platform.GetFocusField() == "\CHKTCO" then
**/
/**
if GetFocusField == "\CHKTCO" then
if Platform.GetFocusField() == "\CHKTCO" then
if CHKTCO == "Y" then
**/
if( Platform.compareTo( GetFocusField , "\\CHKCLR" ) == 0 )
if( Platform.compareTo( Platform.GetFocusField() , "\\CHKCLR" ) == 0 )
{
if( Platform.compareTo( $chkclr.getValue() , "Y" ) == 0 )
{
......@@ -30,7 +30,7 @@ default setclearkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkaut,$chkdel,$chkclr,$ch
if( ! ( Platform.isEmpty( $chkinc ) && Platform.isEmpty( $chkrim ) && Platform.isEmpty( $chkpen ) && Platform.isEmpty( $chkcor ) && Platform.isEmpty( $chkaut ) && Platform.isEmpty( $chkdel ) ) )
{
Platform.clear( $chkclr );
if( Platform.compareTo( GetFocusField , "\\CHKCOR" ) == 0 || Platform.compareTo( GetFocusField , "\\CHKPEN" ) == 0 || Platform.compareTo( GetFocusField , "\\CHKINC" ) == 0 )
if( Platform.compareTo( Platform.GetFocusField() , "\\CHKCOR" ) == 0 || Platform.compareTo( Platform.GetFocusField() , "\\CHKPEN" ) == 0 || Platform.compareTo( Platform.GetFocusField() , "\\CHKINC" ) == 0 )
{
Platform.clear( $chktco );
//新增大额
......@@ -40,7 +40,7 @@ default setclearkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkaut,$chkdel,$chkclr,$ch
Platform.clear( $chknra );
}
}
if( Platform.compareTo( GetFocusField , "\\CHKTCO" ) == 0 )
if( Platform.compareTo( Platform.GetFocusField() , "\\CHKTCO" ) == 0 )
{
if( Platform.compareTo( $chktco.getValue() , "Y" ) == 0 )
{
......@@ -64,7 +64,7 @@ default setclearkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkaut,$chkdel,$chkclr,$ch
endif
**/
}
if( Platform.compareTo( GetFocusField , "\\CHKCOR" ) == 0 )
if( Platform.compareTo( Platform.GetFocusField() , "\\CHKCOR" ) == 0 )
{
if( Platform.compareTo( $chkcor.getValue() , "Y" ) == 0 )
{
......@@ -77,7 +77,7 @@ default setclearkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkaut,$chkdel,$chkclr,$ch
}
}
//核心汇出汇款
if( Platform.compareTo( GetFocusField , "\\CHKCORE" ) == 0 )
if( Platform.compareTo( Platform.GetFocusField() , "\\CHKCORE" ) == 0 )
{
if( Platform.compareTo( $chkcore.getValue() , "Y" ) == 0 )
{
......@@ -95,7 +95,7 @@ default setclearkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkaut,$chkdel,$chkclr,$ch
}
}
//NRA
if( Platform.compareTo( GetFocusField , "\\CHKNRA" ) == 0 )
if( Platform.compareTo( Platform.GetFocusField() , "\\CHKNRA" ) == 0 )
{
if( Platform.compareTo( $chknra.getValue() , "Y" ) == 0 )
{
......@@ -112,7 +112,7 @@ default setclearkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkaut,$chkdel,$chkclr,$ch
Platform.clear( $chkcmt );
}
}
if( Platform.compareTo( GetFocusField , "\\CHKCMT" ) == 0 )
if( Platform.compareTo( Platform.GetFocusField() , "\\CHKCMT" ) == 0 )
{
if( Platform.compareTo( $chkcmt.getValue() , "Y" ) == 0 )
{
......
script/sptsel.0022.script
default setkey ($chkinc,$chkrim,$chkpen,$chkcor,$chkcore) order 1200
{
java.lang.String key = GetFocusField;
java.lang.String key = Platform.GetFocusField();
switch( key )
{
case "\\CHKINC":
......
script/sptsel.0030.script
......@@ -13,7 +13,8 @@ event $prtctl order 1000
String line2 = NULLSTR;
String getsmhinr = NULLSTR;
int err = 0;
if( can != tdPromptCancel )
//if( can != tdPromptCancel )
if( can )
{
if( Platform.isEmpty( $\prt ) )
{
......
script/sptsel.0033.script
......@@ -13,8 +13,8 @@ void printStreamAsSWIFTWithSMH()
{
// display tagged format as `formatted view`
msglen = $docimm\smh\msglen;
Argument<Integer> pathBox = new Argument<Integer>("",$docimm\smh\msgpos.getValue());
Argument<Integer> msglenBox = new Argument<Integer>("",msglen);
Argument<Integer> pathBox = new Argument<Integer>("",new Integer((int)$docimm\smh\msgpos.getValue()));
Argument<Integer> msglenBox = new Argument<Integer>("",new Integer((int)msglen));
$docimm.analyseSwiftStream ( pathBox, msglenBox, $docimm\smh\cortyp.getValue() );
$docimm\smh\msgpos = pathBox.value;
......
script/sptsel.0037.script
......@@ -85,7 +85,6 @@ String getSptSql(String argsql)
= "Select distinct SPT.INR, SPT.STA, SMHINR, INFDSP, FRM, OBJNAM, TXT, DATTIM, USR, DATTIM, INFTXT, OWNUSR, OBJTYP, OBJINR, DELFLG, WRKUSR, LSTUSR, (SELECT BCHNAME FROM BCH WHERE INR=WRKGRP) BCHNAME, RMTFLG,ACT59,NAM59,OWNUSG,RELAMT,RELCUR from SPT where to_char(dattim,'yyyymmdd')>'20180920' order BY SPT.INR DESC "
**/
}
break;
default:
//---------非经办行
/**
......
script/sptsel.0040.script
......@@ -30,7 +30,7 @@ event $udapl order 1000
selCnt = Platform.streamCount( selStm );
if( selCnt > 1 )
{
if( Platform.prompt( #CT001041, selCnt ) == tdPromptYes )
if( Platform.prompt( #CT001041, selCnt ) )
{
for(int i = 1;i <= selCnt;i++)
{
......@@ -60,7 +60,7 @@ event $udapl order 1000
{
Platform.reraise();
}
if( Platform.prompt( #CT001043, $spt\objnam.getValue(), $spt\txt.getValue() ) == tdPromptYes )
if( Platform.prompt( #CT001043, $spt\objnam.getValue(), $spt\txt.getValue() ) )
{
line = Platform.getLine( selStm, 1 );
inifrm = Platform.getStreamfieldforacg( line, 5 );
......
script/sptsel.0050.script
......@@ -41,7 +41,7 @@ event $delapl order 1000
if( selCnt > 1 )
{
Platform.closePanel( $chkpan );
if( Platform.prompt( #CT000313, selCnt ) == tdPromptYes )
if( Platform.prompt( #CT000313, selCnt ) )
{
for(int i = 1;i <= selCnt;i++)
{
......@@ -72,7 +72,7 @@ event $delapl order 1000
Platform.reraise();
}
Platform.closePanel( $chkpan );
if( Platform.prompt( #CT000315, $spt\objnam.getValue(), $spt\txt.getValue() ) == tdPromptYes )
if( Platform.prompt( #CT000315, $spt\objnam.getValue(), $spt\txt.getValue() ) )
{
executeDelete( $selsptinr.getValue() );
if( Platform.compareTo( $sysmod\bch\bchtyp , "7" ) == 0 )
......
script/sptsel.0055.script
......@@ -63,14 +63,14 @@ event onPanelShow $nracpol2 order 100
}
else
{
if( sta = "J" )
if( sta.equals("J") )
{
Platform.printTempUsing( "sptsel.CUSTNM", "审核状态 : 拒绝 ");
Platform.printTemp( Platform.vertical ( 1, tdUnitem, tdPosCurrent ));
}
else
{
if( sta = "N" )
if( sta.equals("N") )
{
Platform.printTempUsing( "sptsel.CUSTNM", "审核状态 :未受理 ");
Platform.printTemp( Platform.vertical ( 1, tdUnitem, tdPosCurrent ));
......
script/sptsel.0058.script
......@@ -36,7 +36,6 @@ String getNraSql(String argsql)
{
return "Select ORDERNO,PAYACC,RECACC,ACCNAME,AMOUNT,CURRCODE,BOCFLAG,MEO,STATE,REJECTREASON,TXT,operator,INR,transferdate,txtime,loginid,txchan,txchanno,transerialno,bchkeyinr,ownusg from NRA " + argsql + " and (bchkeyinr in(" + ddSql + ") ) order BY INR DESC ";
}
break;
default:
//---------非经办行
return "Select ORDERNO,PAYACC,RECACC,ACCNAME,AMOUNT,CURRCODE,BOCFLAG,MEO,STATE,REJECTREASON,TXT,operator,INR,transferdate,txtime,loginid,txchan,txchanno,transerialno,bchkeyinr,ownusg from NRA " + argsql + " and (BCHKEYINR=" + Platform.sqlLit( $sysmod\bch\inr.getValue() ) + " ) " + " order BY INR DESC ";
......
script/sptsel.0059.script
......@@ -35,7 +35,8 @@ event $released order 1000
$sysmod\nra\bchkeyinr = Platform.getStreamfieldforacg( line, 20 );
$sysmod\nra\ownusg = Platform.getStreamfieldforacg( line, 21 );
prompt = Platform.prompt( #CT000438 );
if( prompt == 2 )
//if( prompt == 2 )
if( prompt )
{
if(1==1) return;
}
......
script/sptsel.0069.script
......@@ -12,7 +12,8 @@ event $qr order 1000
else
{
prompt = Platform.prompt( #CT000443, $\sysmod.getBchcode ( $nrabranch.getValue() ) );
if( prompt == 2 )
//if( prompt == 2 )
if( prompt )
{
if(1==1) return;
}
......
script/sptsel.0074.script
......@@ -26,7 +26,7 @@ event $rejapl order 1000
{
Platform.reraise();
}
if( Platform.prompt( #CT000454, $spt\objnam.getValue(), $spt\txt.getValue() ) == tdPromptYes )
if( Platform.prompt( #CT000454, $spt\objnam.getValue(), $spt\txt.getValue() ) )
{
line = Platform.getLine( selStm, 1 );
inifrm = Platform.getStreamfieldforacg( line, 5 );
......
script/sptsel.0077.script
......@@ -7,7 +7,7 @@ event $hmdmod\hmtp\audsav order 10
Platform.dbHold( $spt );
if( Platform.errorCode() == tdOdbcLocked || Platform.errorCode() == tdOdbcHeld )
{
Platform.message( #CT000465, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( GetLockTime ), 1, 5 ) );
Platform.message( #CT000465, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ) );
}
else
{
......
script/sptsel.0082.script
event $sndbak order 1000
{
boolean aa = Platform.prompt( #CT000509, "是否确定退回报文 " );
if( aa == tdPromptYes )
if( aa )
{
Platform.clear( $extkey );
Platform.clear( $psw );
......
script/sptsel.0084.script
......@@ -7,7 +7,7 @@ event $bakbut order 1000
Platform.dbLock( $\sysmod\spt );
if( Platform.errorCode() == tdOdbcLocked || Platform.errorCode() == tdOdbcHeld )
{
Platform.message( #CT001025, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( GetLockTime ), 1, 5 ) );
Platform.message( #CT001025, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ) );
Platform.clear( $\sysmod\spt );
Platform.exitEvent();
}
......
script/sptsel.0087.script
......@@ -59,7 +59,8 @@ event $smssnd order 1000
booktime = "09:05:00";
bookdat = "";
dangqian = Platform.toDay();
begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
//begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
begtime = Platform.dateTimeMake( Platform.today(), 16 );
endtime = Platform.dateTimeMake( Platform.today(), 9 );
datediff1 = Platform.dateTimeDiff( dangqian, begtime );
datediff2 = Platform.dateTimeDiff( dangqian, endtime );
......
script/sptsel.0092.script
......@@ -47,7 +47,8 @@ event $prtbop order 1000
String dir = NULLSTR;
String errTxt = NULLSTR;
String filPath = NULLSTR;
if( can != tdPromptCancel )
//if( can != tdPromptCancel )
if( can )
{
if( Platform.isEmpty( $\prt ) )
{
......@@ -117,8 +118,8 @@ event $prtbop order 1000
Platform.streamInsert( $docimm\bopstm.getValue(), 1, "汇入汇款信息表" );
$docimm.setFileName();
$docimm.loadDocument();
Argument<Integer> pathBox = new Argument<Integer>("",$docimm\smh\msgpos.getValue());
Argument<Integer> pathBox1 = new Argument<Integer>("",$docimm\smh\msglen.getValue());
Argument<Integer> pathBox = new Argument<Integer>("",new Integer((int)$docimm\smh\msgpos.getValue()));
Argument<Integer> pathBox1 = new Argument<Integer>("",new Integer((int)$docimm\smh\msglen.getValue()));
$docimm.analyseSwiftStream ( pathBox, pathBox1, $docimm\smh\cortyp.getValue() );
$docimm\smh\msgpos = pathBox.value;
......@@ -243,7 +244,8 @@ event $prtbop order 1000
// PrintBOPFromNET( DOCIMM\BOPNET, 'RG000618
//$dir = GetFullName( "DATA", "bopnet" )
fil = "BOPNET\\" + $bopnet\sptinr.getValue();
dir = Platform.getAbsPath( "DATA", fil );
//dir = Platform.getAbsPath( "DATA", fil );
dir = Platform.getAbsPath( "DATA" );
$docimm.setFileName1();
if( Platform.compareTo( Platform.getContext( tdContextCLIENTSERVER ) , tdStringTRUE ) == 0 )
{
......
script/sptsel.0101.script
......@@ -157,8 +157,8 @@ event $vewbop order 1000
Platform.streamInsert( $docimm\bopstm.getValue(), 1, "汇入汇款信息表" );
$docimm.setFileName();
$docimm.loadDocument();
Argument<Integer> pathBox = new Argument<Integer>("",$docimm\smh\msgpos.getValue());
Argument<Integer> pathBox1 = new Argument<Integer>("",$docimm\smh\msglen.getValue());
Argument<Integer> pathBox = new Argument<Integer>("",new Integer((int)$docimm\smh\msgpos.getValue()));
Argument<Integer> pathBox1 = new Argument<Integer>("",new Integer((int)$docimm\smh\msglen.getValue()));
$docimm.analyseSwiftStream ( pathBox, pathBox1, $docimm\smh\cortyp.getValue() );
$docimm\smh\msgpos = pathBox.value;
......@@ -277,7 +277,8 @@ event $vewbop order 1000
// PrintBOPFromNET( DOCIMM\BOPNET, 'RG000680
//$dir = GetFullName( "DATA", "bopnet" )
fil = "BOPNET\\" + $bopnet\sptinr.getValue();
dir = Platform.getAbsPath( "DATA", fil );
//dir = Platform.getAbsPath( "DATA", fil );
dir = Platform.getAbsPath( "DATA" );
$docimm.setFileName1();
if( Platform.compareTo( Platform.getContext( tdContextCLIENTSERVER ) , tdStringTRUE ) == 0 )
{
......
script/sptsel.0108.script
......@@ -110,9 +110,9 @@ event onPanelShow $tcollt order 100
case "A":
Platform.prtLine12( "付汇性质:", "出口加工区" );
break;
case "X":
Platform.prtLine12( "付汇性质:", "其他特殊经济区" );
break;
//case "X":
//Platform.prtLine12( "付汇性质:", "其他特殊经济区" );
//break;
case "M":
Platform.prtLine12( "付汇性质:", "深加工结转" );
break;
......
script/sptsel.0117.script
......@@ -20,7 +20,7 @@ event $rembut order 1000
{
Platform.reraise();
}
if( Platform.prompt( #CT000972 ) == tdPromptYes )
if( Platform.prompt( #CT000972 ) )
{
executeRemark( $selsptinr.getValue() );
Platform.clear( $infor );
......
script/sptsel.0131.script
......@@ -44,7 +44,8 @@ void cptopnbySMS()
booktime = "09:05:00";
bookdat = "";
dangqian = Platform.toDay();
begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
//begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
begtime = Platform.dateTimeMake( Platform.today(), 16 );
endtime = Platform.dateTimeMake( Platform.today(), 9 );
datediff1 = Platform.dateTimeDiff( dangqian, begtime );
datediff2 = Platform.dateTimeDiff( dangqian, endtime );
......
script/sptsel.0134.script
......@@ -67,7 +67,8 @@ void smshmdsnd()
String booktime = "09:05:00";
String bookdat = "";
Date dangqian = Platform.toDay();
Date begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
//Date begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
Date begtime = Platform.dateTimeMake( Platform.today(), 16 );
Date endtime = Platform.dateTimeMake( Platform.today(), 9 );
Long datediff1 = Platform.dateTimeDiff( dangqian, begtime );
Long datediff2 = Platform.dateTimeDiff( dangqian, endtime );
......
script/sptsel.0135.script
......@@ -24,7 +24,7 @@ event $udapl order 200
selCnt = Platform.streamCount( selStm );
if( selCnt > 1 )
{
if( Platform.prompt( #CT001121, selCnt ) == tdPromptYes )
if( Platform.prompt( #CT001121, selCnt ) )
{
for(int i = 1;i <= selCnt;i++)
{
......@@ -54,7 +54,7 @@ event $udapl order 200
{
Platform.reraise();
}
if( Platform.prompt( #CT001123, $spt\objnam.getValue(), $spt\txt.getValue() ) == tdPromptYes )
if( Platform.prompt( #CT001123, $spt\objnam.getValue(), $spt\txt.getValue() ) )
{
line = Platform.getLine( selStm, 1 );
inifrm = Platform.getStreamfieldforacg( line, 5 );
......
script/sptsel.0137.script
......@@ -10,7 +10,7 @@ event $rou order 1000
String frame = NULLSTR;
if( selCnt > 1 )
{
if( Platform.prompt( #CT000111, selCnt ) == tdPromptYes )
if( Platform.prompt( #CT000111, selCnt ) )
{
for(int i = 1;i <= selCnt;i++)
{
......@@ -30,7 +30,7 @@ event $rou order 1000
}
if( Platform.errorCode() == tdOdbcLocked || Platform.errorCode() == tdOdbcHeld )
{
Platform.message( #CT000113, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( GetLockTime ), 1, 5 ) );
Platform.message( #CT000113, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ) );
}
else
{
......@@ -49,7 +49,7 @@ event $rou order 1000
$cfg\penitm = pathBox.value;
Platform.gridInsertRow( $sysmod\sptr, 0 );
Platform.dbRead( $sysmod\sptr [i], sptInr, "INR" );
Platform.dbRead( $sysmod\sptr.get(i), sptInr, "INR" );
err = Platform.errorCode();
Platform.dbFree( $\sysmod\spt );
}
......
script/sptsel.0143.script
......@@ -19,7 +19,8 @@ void takeEntry()
Platform.reraise();
}
reply = Platform.prompt( #CT000046, Platform.convertBlock( $spt\inftxt.getValue(), 0, 4, 65 ) );
if( reply == tdPromptCancel )
//if( reply == tdPromptCancel )
if( reply )
{
Platform.status( #CT000047 );
Platform.exitEvent();
......
script/sptsel.0144.script
......@@ -7,7 +7,7 @@ event $cln order 1000
String sptInr = NULLSTR;
if( selCnt > 1 )
{
if( Platform.prompt( #CT000077, selCnt ) == tdPromptYes )
if( Platform.prompt( #CT000077, selCnt ) )
{
for(int i = 1;i <= selCnt;i++)
{
......@@ -32,7 +32,7 @@ event $cln order 1000
{
Platform.reraise();
}
if( Platform.prompt( #CT000079, $spt\objnam.getValue(), $spt\txt.getValue() ) == tdPromptYes )
if( Platform.prompt( #CT000079, $spt\objnam.getValue(), $spt\txt.getValue() ) )
{
executeDelete( $selsptinr.getValue() );
}
......
script/sptsel.0146.script
......@@ -29,7 +29,7 @@ event $connect order 1000
if( Platform.compareTo(Platform.toLower( $\sysmod\spt\frm.getValue() ), frm) != 0 )
{
que = Platform.prompt( #CT000012, $\sysmod\spt\frm.getValue() );
if( que != tdPromptOK )
if( que )
{
// clear SYSMOD\SPT, otherwise the record will be unlocked in sysmod, altough it is not locked
Platform.clear( $sysmod\spt );
......@@ -39,7 +39,7 @@ event $connect order 1000
Platform.dbLock( $\sysmod\spt );
if( Platform.errorCode() == tdOdbcLocked || Platform.errorCode() == tdOdbcHeld )
{
Platform.message( #CT000008, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( GetLockTime ), 1, 5 ) );
Platform.message( #CT000008, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ) );
}
else
{
......
script/sptsel.0147.script
......@@ -9,7 +9,7 @@ void callTrn(String argsptinr,String argfrm)
Platform.dbLock( $\sysmod\spt );
if( Platform.errorCode() == tdOdbcLocked || Platform.errorCode() == tdOdbcHeld )
{
Platform.message( #CT000010, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( GetLockTime ), 1, 5 ) );
Platform.message( #CT000010, $\sysmod\spt\objnam.getValue(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ) );
}
else
{
......
script/sptsel.0150.script
......@@ -30,7 +30,7 @@ void getSelectedItem()
Disable( TAK, ROU, CONNECT, DEL, BUTINF, INC, BUTSPT, REPROW )
**/
// Disable( TAK, CONNECT, DEL, BUTINF, INC, BUTSPT, REPROW )
Platform.disable( $tak, $connect, $del, $butinf, $inc, $butspt, $reprow, $buttco );
//Platform.disable( $tak, $connect, $del, $butinf, $inc, $butspt, $reprow, $buttco );
Platform.invisible( $cln );
Platform.invisible( $butundel );
sta = "";
......@@ -76,7 +76,7 @@ void getSelectedItem()
if( pos == 0 )
{
// Disable( TAK, ROU, CONNECT, DEL, BUTINF, INC, BUTSPT, REPROW )
Platform.disable( $tak, $rou, $connect, $del, $butinf, $inc, $butspt, $reprow, $buttco );
//Platform.disable( $tak, $rou, $connect, $del, $butinf, $inc, $butspt, $reprow, $buttco );
Platform.invisible( $cln );
Platform.invisible( $butundel );
}
......
script/sptsel.0160.script
......@@ -64,7 +64,7 @@ event $smsbut order 1000
Platform.dbCloseCursor();
if( Platform.isEmpty( $spt\extkey ) )
{
if( Platform.prompt( #CT001076 ) == tdPromptYes )
if( Platform.prompt( #CT001076 ) )
{
Platform.clear( $newextkey );
Platform.clear( $ptynam );
......@@ -255,7 +255,8 @@ event $smsbut order 1000
booktime = "09:05:00";
bookdat = "";
dangqian = Platform.toDay();
begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
//begtime = Platform.dateTimeMake( Platform.today(), 16.30 );
begtime = Platform.dateTimeMake( Platform.today(), 16 );
endtime = Platform.dateTimeMake( Platform.today(), 9 );
datediff1 = Platform.dateTimeDiff( dangqian, begtime );
datediff2 = Platform.dateTimeDiff( dangqian, endtime );
......
script/sptsel.0164.script
......@@ -29,7 +29,6 @@ String oldGetSptSql(String argsql)
return "Select INR, STA, SMHINR, INFDSP, FRM, OBJNAM, TXT, DATTIM, USR, DATTIM, INFTXT, OWNUSR, OBJTYP, OBJINR, DELFLG, WRKUSR, LSTUSR, (SELECT BCHNAME FROM BCH WHERE INR=WRKGRP) BCHNAME, RMTFLG,ACT59,NAM59 from SPT " + Platform.sdbEtyGenSql( $spt, argsql ) + " and (BCHKEYINR IN (SELECT INR FROM BCH WHERE UPBCHKEY=" + Platform.sqlLit( $\sysmod\bch\branch.getValue() ) + " or BCHKEYINR=" + Platform.sqlLit( $sysmod\bch\inr.getValue() ) + ") or WRKGRP=" + Platform.sqlLit( $sysmod\bch\inr.getValue() ) + ") " + ddSql + " order BY INR DESC ";
}
}
break;
default:
//---------非经办行
return "Select INR, STA, SMHINR, INFDSP, FRM, OBJNAM, TXT, DATTIM, USR, DATTIM, INFTXT, OWNUSR, OBJTYP, OBJINR, DELFLG, WRKUSR, LSTUSR, (SELECT BCHNAME FROM BCH WHERE INR=WRKGRP) BCHNAME, RMTFLG,ACT59,NAM59 from SPT " + Platform.sdbEtyGenSql( $spt, argsql ) + " and (BCHKEYINR=" + Platform.sqlLit( $sysmod\bch\inr.getValue() ) + " or WRKGRP=" + Platform.sqlLit( $sysmod\bch\inr.getValue() ) + " or WRKUSR=" + Platform.sqlLit( $sysmod\usr\extkey.getValue() ) + ") " + ddSql + " order BY INR DESC ";
......
script/trnrel.0000.script
......@@ -25,11 +25,15 @@ String branchsqlAndUp()
Platform.streamSet( $bchstream.getValue(), bRANCHinr );
Platform.sqlSetDirtyRead();
String sql = "SELECT INR FROM BCH WHERE UPBRANCH = '" + $sysmod\bch\branch.getValue() + "'";
Platform.dbExecuteSql( sql, errmsg );
//Platform.dbExecuteSql( sql, errmsg );
Platform.dbExecuteSql( sql );
enddoLabel:
while(true){
if( Platform.errorCode() != 0 )
{
Platform.dbCloseCursor();
return ; // #######TODO 改写 LABEL与GOTO #### goto enddo
//return ; // #### goto enddo
break enddoLabel;
}
String branch = "";
Platform.dbFetchFields( "", branch );
......@@ -42,7 +46,9 @@ String branchsqlAndUp()
Platform.dbFetchFields( "", branch );
}
Platform.dbCloseCursor();
// #######TODO 改写 LABEL与GOTO #### label enddo
break enddoLabel;
}
// #### label enddo
Platform.sqlSetCommittedRead();
//--------------------------------
//<<< ZL 大集中改造从501中移植过来-----
......
script/trnrel.0013.script
......@@ -58,7 +58,7 @@ event $relcor order 1000
}
}
a = Platform.prompt( #CT000155 );
if( a == 1 )
if( a )
{
Platform.dbHold( $trn );
Platform.dbUpdate( $trn, $trn\inr.getValue(), "INR" );
......
script/trnrel.0022.script
......@@ -64,7 +64,7 @@ void repairnext()
{
continue;
}
$trncorco\begtim = Platform.Time();
$trncorco\begtim = new BigDecimal(Platform.Time());
Platform.setIniStr( "trnrel.ini", "LOG", "lasttrninr", trninr );
// repair one record and then return to trnrel
$trncorco.executeCor ( "C", "", "", "" );
......
script/trnrel.0026.script
......@@ -36,7 +36,7 @@ boolean checkRelFixTrn(String trninrr)
**/
//modify by chenzhuo 20120812
Platform.streamClear( $\recpan\trostm.getValue() );
troAddTro_cz( 1, "S", trninrr );
troAddTro_cz( new BigDecimal(1), "S", trninrr );
Platform.streamSort( $\recpan\trostm.getValue() );
int n = Platform.streamCount( $\recpan\trostm.getValue() );
String line = "";
......
script/trnrel.0037.script
......@@ -114,7 +114,7 @@ event $udapl order 1000
if( ! Platform.isEmpty( undtxt ) )
{
a = Platform.prompt( #CT000272, undtxt );
if( a == 2 )
if( a )
{
//DBFreeAll
if(1==1) return;
......
script/trnrel.0041.script
......@@ -13,7 +13,7 @@ event $udhd order 1000
int pos = 0;
String sql = NULLSTR;
int err = 0;
if( Platform.prompt( #CT000298 ) == 1 )
if( Platform.prompt( #CT000298 ) )
{
//###########读取相关内容下的cde状态，失败则重新发送
//!===================================
......
script/trnrel.0042.script
......@@ -9,7 +9,7 @@ event $udfxq order 1100
String errmsg = NULLSTR;
String ret = NULLSTR;
String msg = NULLSTR;
if( Platform.prompt( #CT000299 ) == 1 )
if( Platform.prompt( #CT000299 ) )
{
trninr = $trn\inr;
if( ! Platform.isEmpty( trninr ) )
......
script/trnrel.0044.script
......@@ -40,7 +40,7 @@ default undotrnbut ($udhd,$udfxq) order 1000
}
else
{
Platform.disable( $udfxq, $udhd );
//Platform.disable( $udfxq, $udhd );
}
}
\ No newline at end of file
script/trnrel.0046.script
......@@ -12,7 +12,7 @@ event $recpan\shwceb order 1000
int rc = 0;
String errmsg = NULLSTR;
String ret = NULLSTR;
if( Platform.prompt( #CT000297 ) == 1 )
if( Platform.prompt( #CT000297 ) )
{
trninr = $trn\inr;
if( ! Platform.isEmpty( trninr ) )
......
script/trnrel.0047.script
......@@ -16,7 +16,7 @@ event $recpan\shwdeb order 1000
int pos = 0;
String sql = NULLSTR;
int err = 0;
if( Platform.prompt( #CT000296 ) == 1 )
if( Platform.prompt( #CT000296 ) )
{
rc = "";
errtxt = "";
......
script/trnrel.0052.script
......@@ -46,4 +46,5 @@ boolean checkRelbopTrn(String trninrr)
return true;
}
return true;
}
\ No newline at end of file
script/trnrel.0062.script
......@@ -66,7 +66,7 @@ event $sndcmt order 1000
Platform.message( #CT000339, "受理失败" + outtxt );
}
Platform.dbHold( $\sysmod\cnd );
Platform.dbUpdate( $\sysmod\cnd, "where trninr='" + $trn\inr.getValue() + "'" );
//Platform.dbUpdate( $\sysmod\cnd, "where trninr='" + $trn\inr.getValue() + "'" );
Platform.dbCommit();
if( ! Platform.isEmpty( $trn\inr ) )
{
......
script/trnrel.0066.script
......@@ -48,10 +48,10 @@ void getrolforDRG(Argument<String> firext,Argument<String> secext)
firext.value = Platform.getContent( "\\BIMEMU\\LEDGRP\\BEN\\PTS\\EXTKEY" );
err = Platform.errorCode();
break;
case "BETSET":
//case "BETSET":
case "BETSND":
case "BETDRV":
case "BETSET":
//case "BETSET":
firext.value = Platform.getContent( "\\BIMEMU\\BEDGRP\\BEN\\PTS\\EXTKEY" );
err = Platform.errorCode();
break;
......
script/trnrel.0069.script
......@@ -29,6 +29,6 @@ event $reldspdrg order 998
releaseimage( $trn\imginr.getValue(), $trn\ownref.getValue(), $trn\relflg.getValue(), $trn\relres.getValue() );
}
$\recpan.fillWFESTM();
Platform.exitEvent();
//Platform.exitEvent();
}
\ No newline at end of file
script/trnrel.0070.script
......@@ -8,6 +8,7 @@ event $reldspdrg order 1000
int cmttim = 0;
int err = 0;
int fmttim = 0;
int time = 0;
if( ! Platform.isEmpty( $\sysmod\cnd\inr ) )
{
cmtflg = Platform.getIniStr( "cntran.ini", "CMTDAT", "CMTFLG" );
......
script/trnrel.0102.script
......@@ -27,7 +27,7 @@ event $reldsp order 1000
{
//新增货贸直连接口关闭提示
prompt = Platform.prompt( #CT000442 );
if( prompt == 2 )
if( prompt )
{
Platform.exitEvent();
}
......
script/trnrel.0103.script
event $rejdsp order 1000
{
boolean prompt = Platform.prompt( #CT000163 );
if( prompt == 2 )
if( prompt )
{
if(1==1) return;
}
......
script/trnrel.0105.script
event $rejrow order 1000
{
boolean prompt = Platform.prompt( #CT000161 );
if( prompt == 2 )
if( prompt )
{
if(1==1) return;
}
......
script/trnrel.0107.script
event $repdsp order 1000
{
boolean prompt = Platform.prompt( #CT000165 );
if( prompt == 2 )
if( prompt )
{
if(1==1) return;
}
......
script/trnrel.0108.script
event $reprow order 1000
{
boolean prompt = Platform.prompt( #CT000166 );
if( prompt == 2 )
if( prompt )
{
if(1==1) return;
}
......
script/trnrel.0109.script
check $relnum order 1000
{
if( !( Platform.compareTo( $recpan\pansta , PanStaHide) ) == 0 )
if( !( Platform.compareTo( $recpan\pansta , PanStaHide) == 0) )
{
if( $relnum.getValue() < 1 || $relnum.getValue() > 3 )
{
......
script/trnrel.0117.script
......@@ -38,7 +38,7 @@ event $relrow order 1000
{
//新增货贸直连接口关闭提示
prompt = Platform.prompt( #CT000441 );
if( prompt == 2 )
if( prompt )
{
Platform.exitEvent();
}
......@@ -66,6 +66,7 @@ event $relrow order 1000
//大额和境内外币需校验时间
if( ! Platform.isEmpty( $\sysmod\cnd\inr ) )
{
int time = 0;
cmtflg = Platform.getIniStr( "cntran.ini", "CMTDAT", "CMTFLG" );
fmtflg = Platform.getIniStr( "cntran.ini", "CMTDAT", "FMTFLG" );
cmtdat = Platform.getIniStr( "cntran.ini", "CMTDAT", "CMTDAT" );
......@@ -182,7 +183,7 @@ event $relrow order 1000
{
if( Platform.errorCode() == tdOdbcLocked || Platform.errorCode() == tdOdbcHeld )
{
Platform.errorMessage( #CT000106, trninr, Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( GetLockTime ), 1, 5 ) );
Platform.errorMessage( #CT000106, trninr, Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ) );
Platform.exitEvent();
}
else
......
script/trnrel.0122.script
......@@ -231,19 +231,19 @@ void updateGridButtons()
{
if( Platform.compareTo( wrkUSR , Platform.getLoginUser() ) == 0 && Platform.compareTo($sysmod\bch\lev.getValue(), "0") != 0 )
{
Platform.disable( $relrow, $reldsp );
//Platform.disable( $relrow, $reldsp );
}
else
{
// Enable( RELROW, RELDSP )
Platform.enable( $relrow, $reldsp, $reprow );
//Platform.enable( $relrow, $reldsp, $reprow );
if( Platform.compareTo($\sysmod\bch\lev.getValue(), "2") != 0 )
{
if( Platform.compareTo( $\sysmod\bch\lev , "0" ) == 0 )
{
if( Platform.compareTo(res2, req2) != 0 || Platform.compareTo(res1, req1) != 0 )
{
Platform.disable( $relrow, $reldsp, $undo );
//Platform.disable( $relrow, $reldsp, $undo );
Platform.disable( $reprow );
dot1 = "D";
}
......@@ -254,7 +254,7 @@ void updateGridButtons()
{
if( Platform.compareTo(res2, req2) != 0 || Platform.compareTo( res1 , req1 ) == 0 )
{
Platform.disable( $relrow, $reldsp, $undo );
//Platform.disable( $relrow, $reldsp, $undo );
Platform.disable( $reprow );
dot1 = "D";
}
......@@ -267,14 +267,14 @@ void updateGridButtons()
{
if( ! Platform.isEmpty( $bratrn ) && ! Platform.isEmpty( trninr ) )
{
Platform.enable( $relrow, $reprow, $reldsp );
//Platform.enable( $relrow, $reprow, $reldsp );
if( Platform.compareTo($\sysmod\bch\lev.getValue(), "2") != 0 )
{
if( Platform.compareTo( $\sysmod\bch\lev , "0" ) == 0 )
{
if( Platform.compareTo(res2, req2) != 0 || Platform.compareTo(res1, req1) != 0 )
{
Platform.disable( $relrow, $reldsp, $reprow );
//Platform.disable( $relrow, $reldsp, $reprow );
}
}
else
......@@ -283,7 +283,7 @@ void updateGridButtons()
{
if( Platform.compareTo(res2, req2) != 0 )
{
Platform.disable( $relrow, $reldsp, $reprow );
//Platform.disable( $relrow, $reldsp, $reprow );
dot1 = "D";
}
}
......@@ -292,7 +292,7 @@ void updateGridButtons()
}
else
{
Platform.disable( $relrow, $reldsp );
//Platform.disable( $relrow, $reldsp );
}
}
int useidx = 0;
......@@ -306,7 +306,7 @@ void updateGridButtons()
{
if( Platform.compareTo($trn\relflg.getValue(), "W") != 0 && Platform.compareTo($trn\relflg.getValue(), "X") != 0 )
{
Platform.disable( $relrow, $reldsp );
//Platform.disable( $relrow, $reldsp );
return ; // #######TODO 改写 LABEL与GOTO #### goto orelab
}
else
......@@ -319,7 +319,7 @@ void updateGridButtons()
}
if( useidx <= 0 )
{
Platform.disable( $relrow, $reldsp );
//Platform.disable( $relrow, $reldsp );
return ; // #######TODO 改写 LABEL与GOTO #### goto orelab
}
}
......@@ -336,23 +336,23 @@ void updateGridButtons()
{
if( Platform.compareTo( wrkUSR , Platform.getLoginUser() ) == 0 && Platform.compareTo($sysmod\bch\lev.getValue(), "0") != 0 && count > 0 )
{
Platform.disable( $reprow, $rejrow, $repdsp );
//Platform.disable( $reprow, $rejrow, $repdsp );
}
else
{
/**
Enable( REPROW, REJROW, REPDSP )
**/
Platform.enable( $reprow, $rejrow, $repdsp, $relrow, $reldsp );
//Platform.enable( $reprow, $rejrow, $repdsp, $relrow, $reldsp );
if( Platform.compareTo( dot1 , "D" ) == 0 )
{
Platform.disable( $reprow, $rejrow, $repdsp, $relrow, $reldsp );
//Platform.disable( $reprow, $rejrow, $repdsp, $relrow, $reldsp );
}
}
}
else
{
Platform.disable( $reprow, $rejrow, $repdsp );
//Platform.disable( $reprow, $rejrow, $repdsp );
}
if( cnfRowFlag )
{
......
script/trnrel.0125.script
event $coninf\coninfp order 200
{
Platform.exitEvent();
//Platform.exitEvent();
}
\ No newline at end of file
script/trnrel.0134.script
event $dsp order 9000
{
// store time when user started to work on this item (for ORE update)
$trncorco\begtim = Platform.Time();
$trncorco\begtim = new BigDecimal(Platform.Time());
}
\ No newline at end of file
script/trnrel.0135.script
event $trncorco\trnstm order 9000
{
// store time when user started to work on this item (for ORE update)
$trncorco\begtim = Platform.Time();
$trncorco\begtim = new BigDecimal(Platform.Time());
}
\ 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