Skip to content

H
hangzhoutd2bdsproject
Commit b3a1c7fd by wangguangchao
Options

a-p dbFetchFields方法参数基本类型全局修改

parent 8c3d3f0c
Showing with 364 additions and 110 deletions
script/abqp.0001.script
......@@ -28,7 +28,9 @@ String getaBoqRef(Date dat,String typ,String gs,String ownextkey,String type)
int errorcode = 0;
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", wgbm );
Argument<String> wgbmBox = new Argument<String>("","");
Platform.dbFetchFields( "", wgbmBox );
wgbm = wgbmBox.value;
errorcode = Platform.errorCode();
}
else
......@@ -45,7 +47,9 @@ String getaBoqRef(Date dat,String typ,String gs,String ownextkey,String type)
Platform.dbExecuteSql( sql );
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", bnkCod );
Argument<String> bnkCodBox = new Argument<String>("","");
Platform.dbFetchFields( "", bnkCodBox );
bnkCod = bnkCodBox.value;
errorcode = Platform.errorCode();
}
else
......@@ -65,7 +69,9 @@ String getaBoqRef(Date dat,String typ,String gs,String ownextkey,String type)
Platform.dbExecuteSql( sql );
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", wgbm );
Argument<String> wgbmBox = new Argument<String>("","");
Platform.dbFetchFields( "", wgbmBox );
wgbm = wgbmBox.value;
errorcode = Platform.errorCode();
Platform.dbCloseCursor();
}
......
script/abqp.0008.script
......@@ -17,7 +17,8 @@ String getDecNum(String argact)
if( Platform.errorCode() > 0 )
{
Platform.dbExecuteSQL( "SELECT BCHKEYINR FROM ACT WHERE EXTKEY=?", argact );
Platform.dbFetchFields( "", bchinr );
Platform.dbFetchFields( "", bchinrBox );
bchinr = bchinrBox.value;
Platform.dbCloseCursor();
err = Platform.errorCode();
if( ! Platform.isEmpty( bchinr ) )
......@@ -41,7 +42,8 @@ String getDecNum(String argact)
else
{
Platform.dbExecuteSQL( "SELECT DECNUM FROM BCH WHERE INR=?", bchinr );
Platform.dbFetchFields( "", decnum );
Platform.dbFetchFields( "", decnumBox );
decnum = decnumBox.value;
Platform.dbCloseCursor();
err = Platform.errorCode();
}
......
script/abqsel.0012.script
......@@ -4,6 +4,8 @@ default ddd ($crtuser,$inptelc) order 1000
int error = 0;
String nam = NULLSTR;
String teloff = NULLSTR;
Argument<String> namBox = new Argument<String>("","");
Argument<String> teloffBox = new Argument<String>("","");
String ptyfileds = NULLSTR;
String sql = NULLSTR;
int err = 0;
......@@ -19,7 +21,9 @@ default ddd ($crtuser,$inptelc) order 1000
if( Platform.errorCode() <= 0 )
{
ptyfileds = "";
Platform.dbFetchFields( "", nam, "", teloff );
Platform.dbFetchFields( "", namBox, "", teloffBox );
nam = namBox.value;
teloff = teloffBox.value;
if( Platform.errorCode() == 0 )
{
$crtuser = nam;
......@@ -45,7 +49,8 @@ default ddd ($crtuser,$inptelc) order 1000
sql = "select adr.tel1 from adr,pty where pty.inr='" + ptyinr + "' and pty.extkey=adr.extkey";
Platform.dbExecuteSql( sql );
err = Platform.errorCode();
Platform.dbFetchFields( "", teloff );
Platform.dbFetchFields( "", teloffBox );
teloff = teloffBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( ! Platform.isEmpty( teloff ) )
......
script/acgget.0000.script
......@@ -15,7 +15,9 @@ event $\mtabut\sav order 1599
String itfSql = "select count(*) from ITF where objtyp='" + $\trnmod\trn\objtyp.getValue() + "' AND OBJINR='" + $\trnmod\trn\objinr.getValue() + "' and trninr='" + $\trnmod\trn\inr.getValue() + "' AND TYP='" + Platform.getTransName() + "' AND OWNREF='" + $\trnmod\trn\ownref.getValue() + "'";
Platform.dbExecuteSql( itfSql );
int error = Platform.errorCode();
Platform.dbFetchFields( "", itfcnt );
Argument<Integer> itfcntBox = new Argument<Integer>("",0);
Platform.dbFetchFields( "", itfcntBox );
itfcnt = itfcntBox.value;
error = Platform.errorCode();
Platform.dbCloseCursor();
int gridcnt = 0;
......
script/actmod.0018.script
......@@ -9,6 +9,9 @@ static String setActTermCode(String type,IStream typestream)
String trmCod = "";
String trmTyp = "";
String nam = "";
Argument<String> namBox = new Argument<String>("","");
Argument<String> trmCodBox = new Argument<String>("","");
Argument<String> trmTypBox = new Argument<String>("","");
Platform.streamClear( typestream );
String res = Platform.getdsp( type );
String sql = "SELECT TRMTYP, TRMCOD, NAM FROM TRM WHERE TRMTYP LIKE '" + res + "%'";
......@@ -18,7 +21,10 @@ static String setActTermCode(String type,IStream typestream)
{
while( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", trmTyp, "", trmCod, "", nam );
Platform.dbFetchFields( "", trmTypBox, "", trmCodBox, "", namBox );
trmTyp = trmTypBox.value;
trmCod = trmCodBox.value;
nam = namBox.value;
if( Platform.errorCode() == 0 )
{
cod = cod + "\r\n" + trmTyp;
......
script/addbut.0007.script
......@@ -3,7 +3,9 @@ void getusrname(String argusr,Argument<String> argname)
String vargname = "";
Platform.dbExecuteSql( "select nam from usr where extkey='" + argusr + "'" );
int error = Platform.errorCode();
Platform.dbFetchFields( "", vargname );
Argument<String> vargnameBox = new Argument<String>("","");
Platform.dbFetchFields( "", vargnameBox );
vargname = vargnameBox.value;
Platform.dbCloseCursor();
argname.value = vargname;
/**
......
script/addbut.0017.script
......@@ -4,7 +4,9 @@ void printAccountfoot(IStream trsstm,String no,String prtsize1,String ins,String
String creinr = "";
String sql = "select creinr from acg where trninr=" + Platform.sqlLit( $\trn\inr.getValue() );
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", creinr );
Argument<String> creinrBox = new Argument<String>("","");
Platform.dbFetchFields( "", creinrBox );
creinr = creinrBox.value;
int err = Platform.errorCode();
Platform.dbCloseCursor();
String lsh = "主机流水号：" + creinr;
......
script/addbut.0021.script
......@@ -10,7 +10,8 @@ String getTextbyInrTable(String tableid,String tableinr,String fieldid)
{
fld = "";
Platform.dbExecuteSQL( "SELECT " + fieldid + " from " + tableid + " WHERE INR = ?", tableinr );
Platform.dbFetchFields( fieldid, fld );
Platform.dbFetchFields( fieldid, fldBox );
fld = fldBox.value;
if( Platform.errorCode() == tdOdbcNotFound )
{
fld = "";
......
script/addbut.0031.script
......@@ -4,7 +4,11 @@ void getbchbygle(String bchinr,Argument<String> bchname,Argument<String> bchkey)
String vbchkey = "";
Platform.dbExecuteSql( "select branch,bchname from bch where inr='" + bchinr + "'" );
int error = Platform.errorCode();
Platform.dbFetchFields( "", vbchkey, "", vbchname );
Argument<String> vbchkeyBox = new Argument<String>("","");
Argument<String> vbchnameBox = new Argument<String>("","");
Platform.dbFetchFields( "", vbchkeyBox, "", vbchnameBox );
vbchkey = vbchkeyBox.value;
vbchname = vbchnameBox.value;
Platform.dbCloseCursor();
bchname.value = vbchname;
bchkey.value = vbchkey;
......
script/cpdgrp.0006.script
......@@ -4,7 +4,9 @@ event $rec\stacty order 1000
String sql = "select altcod from cty where cod = ? ";
String altcod = "";
Platform.dbExecuteSQL( sql, $rec\stacty.getValue() );
Platform.dbFetchFields( "", altcod );
Argument<String> altcodBox = new Argument<String>("","");
Platform.dbFetchFields( "", altcodBox );
altcod = altcodBox.value;
Platform.dbCloseCursor();
String frame = NULLSTR;
if( Platform.errorCode() == tdOdbcNotFound )
......
script/dbagrp.0002.script
......@@ -8,7 +8,9 @@ event $dcl\country order 1000
sql = "select cod from cty where altcod = ? or numcod = ? ";
cod = "";
Platform.dbExecuteSQL( sql, $dcl\country.getValue(), $dcl\country.getValue() );
Platform.dbFetchFields( "", cod );
Argument<String> codBox = new Argument<String>("","");
Platform.dbFetchFields( "", codBox );
cod = codBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() == tdOdbcNotFound )
{
......
script/dbbgrp.0002.script
......@@ -8,7 +8,9 @@ event $dcl\country order 1000
sql = "select cod from cty where altcod = ? or numcod = ? ";
cod = "";
Platform.dbExecuteSQL( sql, $dcl\country.getValue(), $dcl\country.getValue() );
Platform.dbFetchFields( "", cod );
Argument<String> codBox = new Argument<String>("","");
Platform.dbFetchFields( "", codBox );
cod = codBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() == tdOdbcNotFound )
{
......
script/diap0.0000.script
......@@ -11,7 +11,9 @@ void popupDIA(String title)
// ETY-Sql not needed, as contract read with it INR
sql = "SELECT NAM FROM " + $conarg\sector.getValue() + "D WHERE INR = '" + $rec\objinr.getValue() + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", $conarg\selnam.getValue() );
Argument<String> selnamBox = new Argument<String>("","");
Platform.dbFetchFields( "", selnamBox );
$conarg\selnam = selnamBox.value;
if( Platform.errorCode() > 0 )
{
if( Platform.errorCode() == tdOdbcNotFound )
......
script/ditopn.0101.script
......@@ -8,7 +8,13 @@ check $liaall\lsnmod\pfpmod\pfcod order 2000
String engrat = "";
String sql = "SELECT CUR,BUSAMT,MATDAT,TOLER,ENGRAT FROM FIN WHERE SERINO=" + Platform.sqlLit( $liaall\lsnmod\pfpmod\pfcod.getValue() );
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "CUR", cur, "BUSAMT", amt, "MATDAT", matdat, "TOLER", ydz, "ENGRAT", engrat );
Argument<String> curBox = new Argument<String>("","");
Argument<String> ydzBox = new Argument<String>("","");
Argument<String> engratBox = new Argument<String>("","");
Platform.dbFetchFields( "CUR", curBox, "BUSAMT", amt, "MATDAT", matdat, "TOLER", ydzBox, "ENGRAT", engratBox );
cur = curBox.value;
ydz = ydzBox.value;
engrat = engratBox.value;
String ccur = NULLSTR;
int cydz = 0;
int da = 0;
......
script/ditopn.0108.script
......@@ -200,7 +200,9 @@ void printDitOpnNew(String txt,String num)
String bnkSwift = "";
String sql = "select extkey from pty where inr =" + $sysmod\bch\ptyinr.getValue();
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", bnkSwift );
Argument<String> bnkSwiftBox = new Argument<String>("","");
Platform.dbFetchFields( "", bnkSwiftBox );
bnkSwift = bnkSwiftBox.value;
int err = Platform.errorCode();
Platform.dbCloseCursor();
bnk = bnk + "\r\n" + bnkSwift;
......
script/doceot.0022.script
......@@ -114,6 +114,9 @@ void setApf(boolean panelvisibleflag)
Argument<Integer> cntBox = new Argument<Integer>("",cnt);
Argument<String> edtflgBox = new Argument<String>("",edtflg);
Platform.dbFetchFields( "TYP", typBox, "CNT", cntBox, "EDTFLG", edtflgBox );
typ = typBox.value;
cnt = cntBox.value;
edtflg = edtflgBox.value;
if( Platform.errorCode() <= 0 )
{
Platform.streamInsert( apfstream, 0, Platform.mid( typ, 1, 3 ) + Platform.mid( edtflg, 1, 1 ) + Platform.toString( cnt ) );
......
script/doceot.0058.script
......@@ -9,7 +9,7 @@ String getPtmField(String arginr,String argcortyp,String argseafld)
Platform.sysDump( "DOCEOT.GetPtmField called with an empty parameter" );
}
String res = "";
Argument<String> resBox= new Argument<>("","");
Argument<String> resBox= new Argument<String>("","");
Platform.cacheRead( resBox, "DOCEOT", arginr, argcortyp );
res = resBox.value;
String sql = NULLSTR;
......@@ -19,7 +19,8 @@ String getPtmField(String arginr,String argcortyp,String argseafld)
{
sql = "select " + argseafld + " from PTM " + Platform.sdbEtyGenSql( $ptm, "where PTAINR = ? and CORTYP = ?" );
Platform.dbExecuteSQL( sql, arginr, argcortyp );
Platform.dbFetchFields( "", res );
Platform.dbFetchFields( "", resBox );
res = resBox.value;
if( Platform.errorCode() != tdOdbcNotFound )
{
Platform.reraise();
......
script/doceot.0071.script
......@@ -23,7 +23,9 @@ String getAdrFormat(String argetycty)
sql = sql + Platform.sdbEtyGenSql( $cty, "where COD = ?" );
Platform.dbExecuteSQL( sql, $rcv\adr\loccty.getValue() );
String adrFmt = "";
Platform.dbFetchFields( "", adrFmt );
Argument<String> adrFmtBox= new Argument<String>("","");
Platform.dbFetchFields( "", adrFmtBox );
adrFmt = adrFmtBox.value;
if( Platform.errorCode() != tdOdbcNotFound )
{
Platform.reraise();
......
script/doceot.0076.script
......@@ -16,7 +16,12 @@ void setAddressingInfo()
else
{
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", $ptaadrinr.getValue(), "", $ptaptyinr.getValue() );
Argument<String> ptaadrinrBox= new Argument<String>("","");
Argument<String> ptaptyinrBox= new Argument<String>("","");
//Platform.dbFetchFields( "", $ptaadrinr.getValue(), "", $ptaptyinr.getValue() );
Platform.dbFetchFields( "", ptaadrinrBox, "", ptaptyinrBox );
$ptaadrinr = ptaadrinrBox.value;
$ptaptyinr = ptaptyinrBox.value;
if( Platform.errorCode() == tdOdbcNotFound )
{
Platform.clear( $ptainfo );
......
script/docimm.0053.script
......@@ -36,7 +36,9 @@ void popupDocWithSMH(#smh insmh,String intitle)
trninr = Platform.getContent( "\\TRN\\INR" );
sqltext = "select rptno from dba where buscode=(select ownref from trn where inr='" + trninr + "')";
Platform.dbExecuteSql( sqltext );
Platform.dbFetchFields( "", text );
Argument<String> textBox= new Argument<String>("","");
Platform.dbFetchFields( "", textBox );
text = textBox.value;
if( Platform.errorCode() <= 0 )
{
}
......@@ -50,7 +52,9 @@ void popupDocWithSMH(#smh insmh,String intitle)
strsql = "select refnos from dbm where rptno in(select rptno from dba where buscode=(select ownref from trn where inr='" + trninr + "'))";
}
Platform.dbExecuteSql( strsql );
Platform.dbFetchFields( "", tochar4 );
Argument<String> tochar4Box= new Argument<String>("","");
Platform.dbFetchFields( "", tochar4Box );
tochar4 = tochar4Box.value;
if( Platform.isEmpty( tochar4 ) )
{
tochar4 = "hexiaodanhao";
......@@ -76,14 +80,20 @@ void popupDocWithSMH(#smh insmh,String intitle)
Platform.dbCloseCursor();
strsql1 = "select cpldattim from trn where inr='" + trninr + "'";
Platform.dbExecuteSql( strsql1 );
Platform.dbFetchFields( "", dattim );
Argument<String> dattimBox= new Argument<String>("","");
Platform.dbFetchFields( "", dattimBox );
dattim = dattimBox.value;
if( Platform.errorCode() <= 0 )
{
}
Platform.dbCloseCursor();
strsql2 = "select nam,substr(SIGIDX,3,1) from trs where objtyp='TRN' and trs.flg='O' and objinr='" + trninr + "' and inr=(select max(inr) from trs where objtyp='TRN' AND objinr='" + trninr + "')";
Platform.dbExecuteSql( strsql2 );
Platform.dbFetchFields( "", usr3, "", maxrow );
Argument<String> usr3Box= new Argument<String>("","");
Argument<String> maxrowBox= new Argument<String>("","");
Platform.dbFetchFields( "", usr3Box, "", maxrowBox );
usr3 = usr3Box.value;
maxrow = maxrowBox.value;
if( Platform.errorCode() <= 0 )
{
}
......@@ -93,7 +103,9 @@ void popupDocWithSMH(#smh insmh,String intitle)
{
strsql = "select nam from trs where objtyp='TRN' and trs.flg='O' and objinr='" + trninr + "' and sigidx='SG" + Platform.toString( i ) + "'";
Platform.dbExecuteSql( strsql );
Platform.dbFetchFields( "", usr2 );
Argument<String> usr2Box= new Argument<String>("","");
Platform.dbFetchFields( "", usr2Box );
usr2 = usr2Box.value;
tochar = tochar + usr2 + " ";
if( Platform.errorCode() <= 0 )
{
......
script/docimm.0090.script
......@@ -7,7 +7,13 @@ String getAckStr()
if( Platform.compareTo( $smh\trntyp , "TRN" ) == 0 && ! Platform.isEmpty( $smh\trninr ) )
{
Platform.dbExecuteSql( "select ACKTXT,STA,SNDREF from ACK where OBJTYP='TRN' AND OBJINR = " + Platform.sqlLit( $smh\trninr.getValue() ) + " AND OBJSUB =" + Platform.sqlLit( $smh\inr.getValue() ) );
Platform.dbFetchFields( "", acktxt, "", sta, "", ogref );
Argument<String> acktxtBox= new Argument<String>("","");
Argument<String> staBox= new Argument<String>("","");
Argument<String> ogrefBox= new Argument<String>("","");
Platform.dbFetchFields( "", acktxtBox, "", staBox, "", ogrefBox );
acktxt = acktxtBox.value;
sta = staBox.value;
ogref = ogrefBox.value;
if( Platform.errorCode() == tdOdbcNotFound )
{
ignore = Platform.errorCode();
......
script/edimod.0034.script
......@@ -3,7 +3,9 @@ static void getContactName(String ptainr,Argument<String> contnam)
String contNam = "";
String sql = "SELECT NAM from PTC where ptainr = '" + ptainr + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "NAM", contNam );
Argument<String> contNamBox= new Argument<String>("","");
Platform.dbFetchFields( "NAM", contNamBox );
contNam = contNamBox.value;
if( Platform.errorCode() != tdOdbcNotFound )
{
contnam.value = contNam;
......
script/fecism.0008.script
......@@ -915,7 +915,9 @@ void clcFecAmt(#setfel line,Argument<String> relcur,BigDecimal relamt,String fee
}
}
Platform.dbExecuteSQL( fepsql, relObjtyp, relObjinr, $$line\feecod.getValue(), $$line\rol.getValue() );
Platform.dbFetchFields( "", dbFepcnt );
Argument<Integer> dbFepcntBox= new Argument<Integer>("",0);
Platform.dbFetchFields( "", dbFepcntBox );
dbFepcnt = dbFepcntBox.value;
Platform.dbCloseCursor();
}
else
......
script/glemod.0018.script
......@@ -113,7 +113,9 @@ String actgetsql(String ptyinr,String dsp,String cur,IModule mod,String term)
Platform.dbExecuteSql( "select FTASTATUS from fps where fpssid='" + Platform.trim( smhDocfil ) + "' " );
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", ftastatus );
Argument<String> ftastatusBox= new Argument<String>("","");
Platform.dbFetchFields( "", ftastatusBox );
ftastatus = ftastatusBox.value;
error = Platform.errorCode();
}
Platform.dbCloseCursor();
......@@ -315,7 +317,9 @@ String actgetsql(String ptyinr,String dsp,String cur,IModule mod,String term)
clisql = "select inifrm from trn where inr='" + creobjinr + "'";
Platform.dbExecuteSql( clisql );
inifrm = "";
Platform.dbFetchFields( "", inifrm );
Argument<String> inifrmBox= new Argument<String>("","");
Platform.dbFetchFields( "", inifrmBox );
inifrm = inifrmBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( Platform.compareTo( inifrm , "CPTMAN" ) == 0 )
......@@ -333,7 +337,9 @@ String actgetsql(String ptyinr,String dsp,String cur,IModule mod,String term)
clisql = "select inifrm from trn where ownref='" + $\sysmod\spt\ownref.getValue() + "' and relflg in ('R','F') and inifrm='CPTMAN'";
Platform.dbExecuteSql( clisql );
inifrm = "";
Platform.dbFetchFields( "", inifrm );
Argument<String> inifrmBox= new Argument<String>("","");
Platform.dbFetchFields( "", inifrmBox );
inifrm = inifrmBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( Platform.compareTo( inifrm , "CPTMAN" ) == 0 )
......
script/glemod.0020.script
......@@ -7,7 +7,9 @@ String actGetTermid(String act)
{
sql = "SELECT TRMTYP FROM ACT WHERE EXTKEY='" + act + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", termid );
Argument<String> termidBox= new Argument<String>("","");
Platform.dbFetchFields( "", termidBox );
termid = termidBox.value;
ignore = Platform.errorCode();
Platform.dbCloseCursor();
}
......
script/glemod.0022.script
......@@ -3,7 +3,9 @@ String getTrmCodfromType(String trmtyp)
String trmCod = "";
String sql = "SELECT TRMCOD FROM TRM WHERE TRMTYP = '" + trmtyp + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", trmCod );
Argument<String> trmCodBox= new Argument<String>("","");
Platform.dbFetchFields( "", trmCodBox );
trmCod = trmCodBox.value;
int ignore = Platform.errorCode();
Platform.dbCloseCursor();
return trmCod;
......
script/glemod.0026.script
......@@ -85,7 +85,9 @@ void gleSavSetmodold()
Platform.dbExecuteSql( sql );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", extKey );
Argument<String> extKeyBox= new Argument<String>("","");
Platform.dbFetchFields( "", extKeyBox );
extKey = extKeyBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/glemod.0051.script
......@@ -31,7 +31,9 @@ static String getAccBCHZZZ()
accbch = "";
sql = "select accbch from bch where branch='" + bch + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "accbch", accbch );
Argument<String> accbchBox= new Argument<String>("","");
Platform.dbFetchFields( "accbch", accbchBox );
accbch = accbchBox.value;
if( Platform.errorCode() <= 0 )
{
}
......
script/glemod.0052.script
......@@ -7,7 +7,9 @@ String getDLAct(String trntyp,String curstr,String branch)
int err = 0;
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", actVal );
Argument<String> actValBox= new Argument<String>("","");
Platform.dbFetchFields( "", actValBox );
actVal = actValBox.value;
if( Platform.errorCode() <= 0 )
{
}
......
script/glemod.0057.script
......@@ -8,7 +8,9 @@ String getptynam(String ptyinr)
{
sql = "select nam from pty where inr = '" + ptyinr + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", nam );
Argument<String> namBox= new Argument<String>("","");
Platform.dbFetchFields( "", namBox );
nam = namBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
}
......
script/hmdmod.0016.script
......@@ -25,7 +25,9 @@ void iniBranch()
Platform.dbExecuteSQL( sql, bchkeyinr );
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", temp );
Argument<String> tempBox= new Argument<String>("","");
Platform.dbFetchFields( "", tempBox );
temp = tempBox.value;
if( Platform.errorCode() <= 0 )
{
$bchkey = temp;
......@@ -45,7 +47,9 @@ void iniBranch()
Platform.dbExecuteSQL( sql, branchinr );
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", temp );
Argument<String> tempBox= new Argument<String>("","");
Platform.dbFetchFields( "", tempBox );
temp = tempBox.value;
if( Platform.errorCode() <= 0 )
{
$branch = temp;
......
script/hmdmod.0025.script
......@@ -8,7 +8,9 @@ boolean is103message(String smhinr)
{
sql = "select msgtyp from smh where inr='" + smhinr + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", msgtyp );
Argument<String> msgtypBox= new Argument<String>("","");
Platform.dbFetchFields( "", msgtypBox );
msgtyp = msgtypBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( Platform.compareTo( msgtyp , "103" ) == 0 )
......
script/hmdrcv.0000.script
......@@ -10,14 +10,19 @@ void readSwiftFile(String smhinr,IStream swtstm)
Platform.dbExecuteSQL( sql, smhinr, smhinr );
String docfdr = NULLSTR;
String docPth = NULLSTR;
Argument<String> docpathBox= new Argument<String>("","");
Argument<String> docfilBox= new Argument<String>("","");
Argument<String> docfxtBox= new Argument<String>("","");
while( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", docpath, "", docfil, "", docfxt );
Platform.dbFetchFields( "", docpathBox, "", docfilBox, "", docfxtBox );
docpath = docpathBox.value;
docfil = docfilBox.value;
docfxt = docfxtBox.value;
if( Platform.errorCode() <= 0 )
{
docfdr = Platform.getFullName( "DATA", Platform.addNodeToPath( docpath, docfil + "." + docfxt ) );
Argument<String> docPthBox = new Argument<String>();
Argument<String> docfilBox = new Argument<String>("",docfil);
Platform.getDocumentPathAndName( docfdr, docPthBox, docfilBox );
docPth = docPthBox.value;
......
script/hmdsnd.0000.script
......@@ -13,9 +13,17 @@ void convertSwt(#trn argtrn,IStream swtstm)
String docPth = NULLSTR;
String rc = NULLSTR;
int msgcount = 0;
Argument<String> inrBox= new Argument<String>("","");
Argument<String> docpathBox= new Argument<String>("","");
Argument<String> docfilBox= new Argument<String>("","");
Argument<String> docfxtBox= new Argument<String>("","");
while( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", inr, "", docpath, "", docfil, "", docfxt );
Platform.dbFetchFields( "", inrBox, "", docpathBox, "", docfilBox, "", docfxtBox );
inr = inrBox.value;
docpath = docpathBox.value;
docfil = docfilBox.value;
docfxt = docfxtBox.value;
if( Platform.errorCode() <= 0 )
{
delflg = getDoceotField( "\\TRNMOD\\TRNDOC\\DOCEOT", "SMHINR", inr, "DELFLG" );
......@@ -25,7 +33,6 @@ void convertSwt(#trn argtrn,IStream swtstm)
}
docfdr = Platform.getFullName( "DATA", Platform.addNodeToPath( docpath, docfil + "." + docfxt ) );
Argument<String> docPthBox = new Argument<String>();
Argument<String> docfilBox = new Argument<String>("",docfil);
Platform.getDocumentPathAndName( docfdr, docPthBox, docfilBox );
docPth = docPthBox.value;
......
script/hmtp.0012.script
......@@ -80,7 +80,9 @@ void readHmdStm(String trninr,String sptinr,String ioflag,String conrstcod)
hmdinr = Platform.getStreamfieldforacg( line, 15 );
sqlbmd = "select bmdsta from bmd where objtyp='HMD' and objinr='" + hmdinr + "'";
Platform.dbExecuteSql( sqlbmd );
Platform.dbFetchFields( "", bmdsta );
Argument<String> bmdstaBox= new Argument<String>("","");
Platform.dbFetchFields( "", bmdstaBox );
bmdsta = bmdstaBox.value;
err = Platform.errorCode();
if( ! Platform.isEmpty( bmdsta ) )
{
......
script/hmtp.0040.script
......@@ -7,7 +7,9 @@ event $bmdbut order 1000
{
sql = "select count(1) from bmd where recordid='" + $bmdi\recordid.getValue() + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", cnt );
Argument<Integer> cntBox= new Argument<Integer>("",0);
Platform.dbFetchFields( "", cntBox );
cnt = cntBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( cnt > 0 )
......
script/hmtp.0054.script
void getOwnrefHmd(IStream stm)
{
String ownref = "";
Argument<String> ownrefBox= new Argument<String>("","");
String sql = "";
String line = NULLSTR;
String trninr = NULLSTR;
......@@ -15,7 +16,9 @@ void getOwnrefHmd(IStream stm)
{
sql = "select ownref from trn where inr='" + trninr + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", ownref );
Platform.dbFetchFields( "", ownrefBox );
ownref = ownrefBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
}
......@@ -23,14 +26,16 @@ void getOwnrefHmd(IStream stm)
{
sql = "select objref from spt where inr='" + sptinr + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", ownref );
Platform.dbFetchFields( "", ownrefBox );
ownref = ownrefBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( err == tdOdbcNotFound || Platform.isEmpty( ownref ) )
{
sql = "select ownref from trn where sptinr='" + sptinr + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", ownref );
Platform.dbFetchFields( "", ownrefBox );
ownref = ownrefBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
}
......
script/imgmod.0044.script
......@@ -4,7 +4,9 @@ boolean isWin10User()
String usr = "";
String sql = "select cod from stb where tbl='IMGUSR' and uil='EN' and cod='" + $\sysmod\usr\extkey.getValue() + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", usr );
Argument<String> usrBox= new Argument<String>("","");
Platform.dbFetchFields( "", usrBox );
usr = usrBox.value;
int err = Platform.errorCode();
Platform.dbCloseCursor();
if( err == 0 && ! Platform.isEmpty( usr ) )
......
script/itfmod.0006.script
......@@ -8,7 +8,9 @@ String getPtyFld(String ptyfld,String ptyinr)
sql = "select " + ptyfld + " from pty where inr = " + Platform.sqlLit( ptyinr );
Platform.dbExecuteSql( sql );
err = Platform.errorCode();
Platform.dbFetchFields( "", val );
Argument<String> valBox= new Argument<String>("","");
Platform.dbFetchFields( "", valBox );
val = valBox.value;
Platform.dbCloseCursor();
err = Platform.errorCode();
}
......
script/itfmod.0015.script
......@@ -9,7 +9,9 @@ String getCtynumCode(String szflg,String path)
{
Platform.dbExecuteSQL( "select numcod from bopcty where cod = ?", temcod );
err = Platform.errorCode();
Platform.dbFetchFields( "", cod );
Argument<String> codBox= new Argument<String>("","");
Platform.dbFetchFields( "", codBox );
cod = codBox.value;
Platform.dbCloseCursor();
err = Platform.errorCode();
}
......
script/itfmod.0016.script
......@@ -9,7 +9,9 @@ String getCtynumCodeFORACG(String cod)
{
Platform.dbExecuteSQL( "select numcod from bopcty where cod = ?", temcod );
err = Platform.errorCode();
Platform.dbFetchFields( "", vcod );
Argument<String> vcodBox= new Argument<String>("","");
Platform.dbFetchFields( "", vcodBox );
vcod = vcodBox.value;
Platform.dbCloseCursor();
err = Platform.errorCode();
}
......
script/ledlod.0010.script
......@@ -513,7 +513,9 @@ static void isLETrnAllowed(#ledgrp argledgrp,String trnnam,Argument<String> argr
cnt = 0;
sql = "select count(*) from BED WHERE PNTTYP = 'LED' AND PNTINR = " + Platform.sqlLit( $$argledgrp\rec\inr.getValue() ) + " and CLSDAT is null";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", cnt );
Argument<Integer> cntBox= new Argument<Integer>("",0);
Platform.dbFetchFields( "", cntBox );
cnt = cntBox.value;
Platform.dbCloseCursor();
if( cnt > 0 )
{
......
script/liaall.0158.script
......@@ -130,7 +130,11 @@ event onPanelShow $liaalll1 order 100
pntinr = "";
strsql1 = "select pnttyp,pntinr from " + name3 + " where ownref= '" + ownref1 + "'";
Platform.dbExecuteSql( strsql1 );
Platform.dbFetchFields( "", pnttyp, "", pntinr );
Argument<String> pnttypBox= new Argument<String>("","");
Argument<String> pntinrBox= new Argument<String>("","");
Platform.dbFetchFields( "", pnttypBox, "", pntinrBox );
pnttyp = pnttypBox.value;
pntinr = pntinrBox.value;
if( Platform.errorCode() <= 0 )
{
}
......@@ -139,7 +143,9 @@ event onPanelShow $liaalll1 order 100
{
strsql2 = "select ownref from " + pnttyp + " where inr= '" + pntinr + "'";
Platform.dbExecuteSql( strsql2 );
Platform.dbFetchFields( "", refo1 );
Argument<String> refo1Box= new Argument<String>("","");
Platform.dbFetchFields( "", refo1Box );
refo1 = refo1Box.value;
if( Platform.errorCode() <= 0 )
{
}
......
script/liaall.0159.script
......@@ -5,13 +5,13 @@ void getbchanaccbch(String bchinr,String accbchinr,Argument<String> bchkey,Argum
String sqlstr = "select branch from bch where inr='" + vbchinr + "'";
String sqlstr1 = "select branch from bch where inr='" + vaccbchinr + "'";
Platform.dbExecuteSql( sqlstr );
Platform.dbFetchFields( "", bchkey.value );
Platform.dbFetchFields( "", bchkey );
if( Platform.errorCode() <= 0 )
{
}
Platform.dbCloseCursor();
Platform.dbExecuteSql( sqlstr1 );
Platform.dbFetchFields( "", accbch.value );
Platform.dbFetchFields( "", accbch );
if( Platform.errorCode() <= 0 )
{
}
......
script/liaccv.0013.script
......@@ -26,7 +26,9 @@ void sesmodGetAvbFCD(String cur,String ptyinr,IStream cvstm,IStream valstm)
Platform.dbExecuteSql( sql, retstream );
while( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "INR", fchinr );
Argument<String> fchinrBox= new Argument<String>("","");
Platform.dbFetchFields( "INR", fchinrBox );
fchinr = fchinrBox.value;
if( Platform.errorCode() <= 0 )
{
Platform.streamInsert( $\trnmod\wrkstm\cacstm.getValue(), 0, fchinr );
......
script/liaget.0003.script
......@@ -15,7 +15,11 @@ void getTenorStreams(IModule mod,String cbtpfxlst,IStream matstm,IStream amtstm,
{
pteinr = "";
rol = "";
Platform.dbFetchFields( "INR", pteinr, "ROL", rol );
Argument<String> pteinrBox= new Argument<String>("","");
Argument<String> rolBox= new Argument<String>("","");
Platform.dbFetchFields( "INR", pteinrBox, "ROL", rolBox );
pteinr = pteinrBox.value;
rol = rolBox.value;
if( Platform.errorCode() <= 0 )
{
Platform.streamInsert( pteinrs, 0, pteinr );
......
script/liaone.0021.script
......@@ -26,7 +26,9 @@ void glesavlia()
Platform.dbExecuteSql( sql );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", extKey );
Argument<String> extKeyBox= new Argument<String>("","");
Platform.dbFetchFields( "", extKeyBox );
extKey = extKeyBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lidlod.0009.script
......@@ -443,7 +443,9 @@ static void isLITrnAllowed(#lidgrp arglidgrp,String trnnam,Argument<String> argr
cnt = 0;
sql = "select count(*) from BRD where PNTTYP = 'LID' and PNTINR = ? AND CLSDAT is NULL";
Platform.dbExecuteSQL( sql, $$arglidgrp\rec\inr.getValue() );
Platform.dbFetchFields( "", cnt );
Argument<Integer> cntBox= new Argument<Integer>("",0);
Platform.dbFetchFields( "", cntBox );
cnt = cntBox.value;
Platform.dbCloseCursor();
if( cnt > 0 )
{
......
script/litp1.0057.script
......@@ -21,7 +21,11 @@ event $aplp\ptspta\pts\extkey order 9000
Platform.dbExecuteSql( sql );
if( Platform.errorCode() != tdOdbcNotFound )
{
Platform.dbFetchFields( "", tel, "", fax );
Argument<String> telBox= new Argument<String>("","");
Argument<String> faxBox= new Argument<String>("","");
Platform.dbFetchFields( "", telBox, "", faxBox );
tel = telBox.value;
fax = faxBox.value;
err = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lscmod.0011.script
......@@ -2,8 +2,10 @@ static void lscUpdateLsmCommit(#lsm arglsm)
{
// at first check for a rejected LSS
int lssCnt = 0;
Argument<Integer> lssCntBox= new Argument<Integer>("",0);
Platform.dbExecuteSQL( "Select count(*) from LSS where LSMINR = ? and LSSFLG = '" + LscRejected + "'", $$arglsm\inr.getValue() );
Platform.dbFetchFields( "", lssCnt );
Platform.dbFetchFields( "", lssCntBox );
lssCnt = lssCntBox.value;
Platform.dbCloseCursor();
// if at least one rejected was found
String lsmFlg = NULLSTR;
......@@ -21,7 +23,8 @@ static void lscUpdateLsmCommit(#lsm arglsm)
{
// now check for a not accepted LSS (thus = Open or = Pending)
Platform.dbExecuteSQL( "Select count(*) from LSS where LSMINR = ? and LSSFLG in (' ', 'N')", $$arglsm\inr.getValue() );
Platform.dbFetchFields( "", lssCnt );
Platform.dbFetchFields( "", lssCntBox );
lssCnt = lssCntBox.value;
Platform.dbCloseCursor();
// if there are not accepted LSS the leave the LSM in pending state
if( lssCnt > 0 )
......
script/lscmod.0024.script
......@@ -16,7 +16,9 @@ String lscCheckTrnAccepted(String argtrninr)
// #### label NextLsm
NextLsmLabel:
while(true){
Platform.dbFetchFields( "", lsmFlg );
Argument<String> lsmFlgBox= new Argument<String>("","");
Platform.dbFetchFields( "", lsmFlgBox );
lsmFlg = lsmFlgBox.value;
if( Platform.errorCode() != tdOdbcNotFound )
{
Platform.reraise();
......
script/lsnmod.0001.script
......@@ -26,7 +26,9 @@ void lneObtainLnb(#lne arglne)
Platform.dbExecuteSql( sql );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", lnbInr );
Argument<String> lnbInrBox= new Argument<String>("","");
Platform.dbFetchFields( "", lnbInrBox );
lnbInr = lnbInrBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lsnmod.0002.script
......@@ -61,7 +61,9 @@ void lneObtainLsbLsa(#lne arglne)
Platform.dbExecuteSql( lsbSql );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", lsbInr );
Argument<String> lsbInrBox= new Argument<String>("","");
Platform.dbFetchFields( "", lsbInrBox );
lsbInr = lsbInrBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lsnmod.0006.script
......@@ -18,7 +18,13 @@ void lsrObtainCtyReg(#lsr arglsr,Argument<String> argcty,Argument<String> argreg
Platform.dbExecuteSQL( "SELECT PTY.HEQINR, ADR.LOCCTY, CTY.REG FROM PTY, PTA, ADR LEFT OUTER JOIN CTY ON ADR.LOCCTY=CTY.COD WHERE PTA.USG='MAA' AND PTA.PTYINR=PTY.INR AND PTA.OBJTYP='ADR' AND PTA.OBJINR=ADR.INR AND PTY.INR=?", $$arglsr\ptyinr.getValue() );
if( Platform.errorCode() == 0 )
{
Argument<String> heqInrBox= new Argument<String>("","");
Argument<String> ctyBox= new Argument<String>("","");
Argument<String> regBox= new Argument<String>("","");
Platform.dbFetchFields( "", heqInr, "", cty, "", reg );
heqInr = heqInrBox.value;
cty = ctyBox.value;
reg = regBox.value;
err = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lsnmod.0007.script
......@@ -12,7 +12,9 @@ String lsrObtainRevFlg(#lsr arglsr)
Platform.dbExecuteSql( "SELECT LSR.NONREVFLG, LSR.INR FROM LSR, LNE, LNB WHERE LSR.INR=LNE.LSRINR AND LNE.LNBINR=LNB.INR AND LNE.EXTID=LNB.EXTID AND LNB.OBJTYP='" + $objtyp.getValue() + "' AND LNB.OBJINR='" + $objinr.getValue() + "' ORDER BY LSR.INR DESC" );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", flg );
Argument<String> flgBox= new Argument<String>("","");
Platform.dbFetchFields( "", flgBox );
flg = flgBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lsnmod.0012.script
......@@ -188,7 +188,9 @@ void lsnCalculateAmounts(#lne arglne,#lsb arglsb,#lsa arglsa,#lnb arglnb,String
Platform.dbExecuteSql( "SELECT LNEFLG FROM LNE WHERE INR='" + $$arglne\inr.getValue() + "'" );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", oldLneFlg );
Argument<String> oldLneFlgBox= new Argument<String>("","");
Platform.dbFetchFields( "", oldLneFlgBox );
oldLneFlg = oldLneFlgBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lsnmod.0023.script
......@@ -7,7 +7,9 @@ String lsnCheckTrnAccepted(String argtrninr)
// #### label NextLne
NextLneLabel:
while(true){
Platform.dbFetchFields( "", lneFlg );
Argument<String> lneFlgBox= new Argument<String>("","");
Platform.dbFetchFields( "", lneFlgBox );
lneFlg = lneFlgBox.value;
if( Platform.errorCode() != tdOdbcNotFound )
{
Platform.reraise();
......
script/lsnmod.0027.script
......@@ -18,7 +18,9 @@ boolean checkCecm(String nonrevflg,String ptytyp,String lsbownref,String ptyinr)
Platform.dbExecuteSql( "SELECT EXTKEY FROM PTY WHERE INR='" + ptyinr + "'" );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", extKey );
Argument<String> extKeyBox= new Argument<String>("","");
Platform.dbFetchFields( "", extKeyBox );
extKey = extKeyBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lsnmod.0029.script
......@@ -47,7 +47,13 @@ void lsnCreateNewRequest(String argsta,String ordinr)
Platform.dbExecuteSql( sql );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", inr, "", lsrFlg, "", lst );
Argument<String> inrBox= new Argument<String>("","");
Argument<String> lsrFlgBox= new Argument<String>("","");
Argument<String> lstBox= new Argument<String>("","");
Platform.dbFetchFields( "", inrBox, "", lsrFlgBox, "", lstBox );
inr = inrBox.value;
lsrFlg = lsrFlgBox.value;
lst = lstBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......@@ -97,7 +103,9 @@ void lsnCreateNewRequest(String argsta,String ordinr)
inr = "";
while( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", inr );
Argument<String> inrBox= new Argument<String>("","");
Platform.dbFetchFields( "", inrBox );
inr = inrBox.value;
if( Platform.errorCode() == 0 )
{
Platform.streamInsert( inrStm, 0, inr );
......
script/lsnmod.0040.script
......@@ -30,7 +30,9 @@ boolean useHeqInr(String ptyinr,String ptytyp,Argument<String> heqinr)
Platform.dbExecuteSql( sql );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", ptyInr );
Argument<String> ptyInrBox= new Argument<String>("","");
Platform.dbFetchFields( "", ptyInrBox );
ptyInr = ptyInrBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/lsnmod.0042.script
......@@ -11,7 +11,13 @@ void getLneInr(#lne arglne,String lsrinr)
Platform.dbExecuteSql( sql );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", inr, "", lnbInr, "", lsbInr );
Argument<String> inrBox= new Argument<String>("","");
Argument<String> lnbInrBox= new Argument<String>("","");
Argument<String> lsbInrBox= new Argument<String>("","");
Platform.dbFetchFields( "", inrBox, "", lnbInrBox, "", lsbInrBox );
inr = inrBox.value;
lnbInr = lnbInrBox.value;
lsbInr = lsbInrBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/mtabut.0045.script
......@@ -30,13 +30,17 @@ String getOtherContractOfRef(#pts argpts)
}
objinr = "";
Platform.dbExecuteSQL( sql, conTyp, $$argpts\rol.getValue(), $$argpts\ref.getValue(), $$argpts\ptainr.getValue() );
Platform.dbFetchFields( "", objinr );
Argument<String> objinrBox= new Argument<String>("","");
Platform.dbFetchFields( "", objinrBox );
objinr = objinrBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() <= 0 )
{
ownref = "";
Platform.dbExecuteSQL( "select OWNREF from " + tbl + " where INR = ?", objinr );
Platform.dbFetchFields( "", ownref );
Argument<String> ownrefBox= new Argument<String>("","");
Platform.dbFetchFields( "", ownrefBox );
ownref = ownrefBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() != tdOdbcNotFound )
{
......
script/mtabut.0051.script
......@@ -21,7 +21,8 @@ String getOitOfCty(String argcodcty,String argwrnpfx,String argstplev)
etySql = " and " + etySql;
}
Platform.dbExecuteSQL( "select INR from CTY where COD = ?" + etySql, argcodcty );
Platform.dbFetchFields( "", ctyInr );
Platform.dbFetchFields( "", ctyInrBox );
ctyInr = ctyInrBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() != tdOdbcNotFound )
{
......
script/mtabut.0053.script
......@@ -20,7 +20,9 @@ void checkForOtherContractOfRef(#pts argpts)
{
sql = "select objinr from pts where objtyp='LED' and rol='ADV' and ref='" + ptsRef1 + "'";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", ledinr );
Argument<String> ledinrBox= new Argument<String>("","");
Platform.dbFetchFields( "", ledinrBox );
ledinr = ledinrBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() != tdOdbcNotFound )
{
......
script/mtabut.0055.script
......@@ -87,7 +87,8 @@ void checkOpenIssues(IModule arggrp)
}
sqlHardLink = "Select count(*) from " + chiTbl + " Where CLSDAT is null and " + Platform.getLine( $cfginf\chiinrstm.getValue(), linHardNr ) + " = '" + objInr + "' AND " + Platform.getLine( $cfginf\chitypstm.getValue(), linHardNr ) + " = '" + objTyp + "'" + chiInrSql;
Platform.dbExecuteSql( sqlHardLink );
Platform.dbFetchFields( "", hardLinkCnt );
Platform.dbFetchFields( "", hardLinkCntBox );
hardLinkCnt = hardLinkCntBox.value;
Platform.dbCloseCursor();
}
// #### label LblCheckSoftLinks
......@@ -109,7 +110,8 @@ void checkOpenIssues(IModule arggrp)
}
sqlSoftLink = "Select count(*) from " + chiTbl + " Where CLSDAT is null and " + chiInr + " = " + Platform.sqlLit( objInr ) + pnt;
Platform.dbExecuteSql( sqlSoftLink );
Platform.dbFetchFields( "", softLinkCnt );
Platform.dbFetchFields( "", softLinkCntBox );
softLinkCnt = softLinkCntBox.value;
Platform.dbCloseCursor();
if( softLinkCnt > 0 )
{
......@@ -278,7 +280,8 @@ void checkOpenIssues(IModule arggrp)
{
Platform.dbExecuteSQL( basSql + " and INR <> ?", objTyp, objInr, ownSepInr );
}
Platform.dbFetchFields( "", sepCnt );
Platform.dbFetchFields( "", sepCntBox );
sepCnt = sepCntBox.value;
Platform.dbCloseCursor();
Platform.cacheWrite( sepCnt, objTyp + objInr + "SEPOPNCNT" );
}
......@@ -323,7 +326,8 @@ void checkOpenIssues(IModule arggrp)
sptSql = sptSql + sptInrSql;
}
Platform.dbExecuteSQL( sptSql, objInr, objTyp + "%", objTyp, objInr );
Platform.dbFetchFields( "", sptCnt );
Platform.dbFetchFields( "", sptCntBox );
sptCnt = sptCntBox.value;
Platform.dbCloseCursor();
Platform.cacheWrite( sptCnt, objTyp + objInr + "SPTOPNCNT" );
}
......
script/mtabut.0062.script
......@@ -4,7 +4,9 @@ String getBchKeyInr(String argbchkey)
Platform.dbExecuteSql( "select inr from bch where BRANCH='" + argbchkey + "' " );
if( Platform.errorCode() <= 0 )
{
Platform.dbFetchFields( "", fileds );
Argument<String> filedsBox= new Argument<String>("","");
Platform.dbFetchFields( "", filedsBox );
fileds = filedsBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() <= 0 )
{
......
script/mtabut.0075.script
......@@ -3,7 +3,7 @@ void getptyfields(String fields1,Argument<String> fields2)
fields2.value = "";
String sql = "SELECT SLA from PTY WHERE INR='" + fields1 + "' ";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", fields2.value );
Platform.dbFetchFields( "", fields2 );
int error = Platform.errorCode();
Platform.dbCloseCursor();
......
script/mtabut.0080.script
......@@ -16,7 +16,9 @@ void getWrkBranch()
recSql = "select branchinr from " + Platform.mid( path, 2, 3 ) + " where inr=" + Platform.sqlLit( recInr );
Platform.dbExecuteSql( recSql );
err = Platform.errorCode();
Platform.dbFetchFields( "", recBranchInr );
Argument<String> recBranchInrBox= new Argument<String>("","");
Platform.dbFetchFields( "", recBranchInrBox );
recBranchInr = recBranchInrBox.value;
Platform.dbCloseCursor();
err = Platform.errorCode();
bchinr = recBranchInr;
......@@ -82,7 +84,9 @@ void getWrkBranch()
sql = "select branchinr from " + objtyp + " where inr=" + Platform.sqlLit( objinr );
Platform.dbExecuteSql( sql );
err = Platform.errorCode();
Platform.dbFetchFields( "", brhinr );
Argument<String> brhinrBox= new Argument<String>("","");
Platform.dbFetchFields( "", brhinrBox );
brhinr = brhinrBox.value;
Platform.dbCloseCursor();
err = Platform.errorCode();
if( ! Platform.isEmpty( brhinr ) )
......
script/mtabut.0085.script
......@@ -25,7 +25,9 @@ init $\ order 2300
bchflg = "";
sql = "select bchflg from bch where branch='6701' ";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", bchflg );
Argument<String> bchflgBox= new Argument<String>("","");
Platform.dbFetchFields( "", bchflgBox );
bchflg = bchflgBox.value;
error = Platform.errorCode();
Platform.dbCloseCursor();
aa = Platform.getModuleInfo( $rec, 1 );
......
script/ntfmod.0003.script
......@@ -41,7 +41,9 @@ void ntfSendToUsr(String argusr,String argtyp,String argtxt)
if(1==1) return;
}
String inrFlg = "";
Platform.dbFetchFields( "INR", inrFlg );
Argument<String> inrFlgBox= new Argument<String>("","");
Platform.dbFetchFields( "INR", inrFlgBox );
inrFlg = inrFlgBox.value;
String usr = NULLSTR;
if( Platform.errorCode() <= 0 )
{
......
script/ntfmod.0005.script
......@@ -12,7 +12,9 @@ void ntfSendToSsn(String argssn,String argtyp,String argtxt)
Platform.dbExecuteSQL( "Select USR from SSN where INR = ?", argssn );
String usrFlg = "";
// Check whether a session was found.
Platform.dbFetchFields( "USR", usrFlg );
Argument<String> usrFlgBox= new Argument<String>("","");
Platform.dbFetchFields( "USR", usrFlgBox );
usrFlg = usrFlgBox.value;
if( Platform.errorCode() <= 0 )
{
Platform.clear( $ntf );
......
script/ntfmod.0400.script
......@@ -15,7 +15,7 @@ init $$\ order 9001550
cnt = 0;
Platform.dbExecuteSQL( "select count(*) from NTF where USR = ? AND SHWSSNINR = ' ' and (EXPDATTIM > ? or EXPDATTIM is null)", $\sysmod\usr\extkey.getValue(), Platform.toDay() );
Argument<Integer> cntBox = new Argument<Integer>("",cnt);
Platform.dbFetchFields( "", cnt );
Platform.dbFetchFields( "", cntBox );
cnt = cntBox.value;
Platform.dbCloseCursor();
lowCnt = 10;
......
script/office.0007.script
......@@ -33,7 +33,9 @@ void checkSwiftSend()
sql = "select inr from swtdia where objref='" + orf + "' and frm='" + inifrm + "'";
inr = "";
Platform.dbExecuteSql( sql );
Platform.dbFetchFields( "", inr );
Argument<String> inrBox= new Argument<String>("","");
Platform.dbFetchFields( "", inrBox );
inr = inrBox.value;
ignore = Platform.errorCode();
Platform.dbCloseCursor();
if( ignore == tdOdbcNotFound )
......
script/offmod.0011.script
......@@ -10,7 +10,9 @@ int count(IModule argmod,String argsql)
Platform.sqlSetDirtyRead();
int count = 0;
Platform.dbExecuteSql( countsql, retstream );
Platform.dbFetchFields( "", count );
Argument<Integer> countBox = new Argument<Integer>("",0);
Platform.dbFetchFields( "", countBox );
count = countBox.value;
Platform.dbCloseCursor();
Platform.sqlSetCommittedRead();
return count;
......
script/offmod.0013.script
......@@ -18,7 +18,9 @@ event $frm order 1000
else
{
dtaflg = "";
Platform.dbFetchFields( "", dtaflg );
Argument<String> dtaflgBox= new Argument<String>("","");
Platform.dbFetchFields( "", dtaflgBox );
dtaflg = dtaflgBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() > 0 && Platform.errorCode() != tdOdbcNotFound )
{
......
script/offmod.0020.script
......@@ -19,7 +19,11 @@ void checkusrspt()
String ssnFrm = "";
Date ssnDattim = Platform.toDay();
Platform.dbExecuteSQL( "select STA, LSTFRM, LSTDATTIM from SSN where INR = ?", $\sysmod\spt\ssninr.getValue() );
Platform.dbFetchFields( "", ssnSta, "", ssnFrm, "", ssnDattim );
Argument<String> ssnStaBox= new Argument<String>("","");
Argument<String> ssnFrmBox= new Argument<String>("","");
Platform.dbFetchFields( "", ssnStaBox, "", ssnFrmBox, "", ssnDattim );
ssnSta = ssnStaBox.value;
ssnFrm = ssnFrmBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() > 0 )
{
......@@ -41,7 +45,9 @@ void checkusrspt()
int ssnCnt = 0;
// check whether found session is the last session
Platform.dbExecuteSQL( "select count(*) from SSN where INR > ? and INR < ? and USR = ? ", $\sysmod\spt\ssninr.getValue(), $\sysmod\ssn\inr.getValue(), $\sysmod\usr\extkey.getValue() );
Platform.dbFetchFields( "", ssnCnt );
Argument<Integer> ssnCntBox = new Argument<Integer>("",0);
Platform.dbFetchFields( "", ssnCntBox );
ssnCnt = ssnCntBox.value;
Platform.dbCloseCursor();
if( Platform.errorCode() > 0 )
{
......
script/pfpmod.0002.script
......@@ -178,7 +178,9 @@ event $get order 1000
Platform.dbExecuteSql( sqlstr );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", htbh );
Argument<String> htbhBox= new Argument<String>("","");
Platform.dbFetchFields( "", htbhBox );
htbh = htbhBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/pfpmod.0004.script
......@@ -75,7 +75,9 @@ default $nonrevflg order 1000
Platform.dbExecuteSql( "SELECT LSR.NONREVFLG FROM LSR, LNE, LNB WHERE LSR.INR=LNE.LSRINR AND LNE.LNBINR=LNB.INR AND LNE.EXTID=LNB.EXTID AND LNB.OBJTYP='" + objTyp + "' AND LNB.OBJINR='" + objInr + "'" );
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", flg );
Argument<String> flgBox= new Argument<String>("","");
Platform.dbFetchFields( "", flgBox );
flg = flgBox.value;
ignore = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/ptsget.0000.script
......@@ -153,7 +153,9 @@ event $ptspta\pts\extkey order 900
ptysql = "select idtype from pty where inr='" + $ptspta\pta\ptyinr.getValue() + "' ";
idtype = "";
Platform.dbExecuteSql( ptysql );
Platform.dbFetchFields( "", idtype );
Argument<String> idtypeBox= new Argument<String>("","");
Platform.dbFetchFields( "", idtypeBox );
idtype = idtypeBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( Platform.compareTo( $ptspta\pta\ptytyp , "C" ) == 0 && Platform.compareTo( idtype , "C" ) == 0 )
......@@ -161,7 +163,9 @@ event $ptspta\pts\extkey order 900
oitsql = "select inr from oit where objtyp='PTY' and objinr='" + $ptspta\pta\ptyinr.getValue() + "' ";
oitinr = "";
Platform.dbExecuteSql( oitsql );
Platform.dbFetchFields( "", oitinr );
Argument<String> oitinrBox= new Argument<String>("","");
Platform.dbFetchFields( "", oitinrBox );
oitinr = oitinrBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
Platform.sdbRead( $getoit, oitinr );
......@@ -208,7 +212,9 @@ event $ptspta\pts\extkey order 900
oitKYCHKandKYCDZ = "Select KYCDZ FROM OIT WHERE objtyp='PTY' and objinr='" + $ptspta\pta\ptyinr.getValue() + "' ";
Platform.dbExecuteSql( oitKYCHKandKYCDZ );
err = Platform.errorCode();
Platform.dbFetchFields( "", kycdz );
Argument<String> kycdzBox= new Argument<String>("","");
Platform.dbFetchFields( "", kycdzBox );
kycdz = kycdzBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( Platform.compareTo( kycdz , "Y" ) == 0 )
......@@ -298,7 +304,9 @@ event $ptspta\pts\extkey order 900
ptysql = "select frecod from pty where inr='" + $ptspta\pta\ptyinr.getValue() + "' ";
frecod = "";
Platform.dbExecuteSql( ptysql );
Platform.dbFetchFields( "", frecod );
Argument<String> frecodBox= new Argument<String>("","");
Platform.dbFetchFields( "", frecodBox );
frecod = frecodBox.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( Platform.compareTo( frecod , "X" ) == 0 )
......
script/ptsget.0013.script
......@@ -61,7 +61,13 @@ void checkStopAndInfo()
err1 = Platform.errorCode();
if( Platform.errorCode() == 0 )
{
Platform.dbFetchFields( "", kycdz, "", ptytyp, "", oitinr );
Argument<String> kycdzBox= new Argument<String>("","");
Argument<String> ptytypBox= new Argument<String>("","");
Argument<String> oitinrBox= new Argument<String>("","");
Platform.dbFetchFields( "", kycdzBox, "", ptytypBox, "", oitinrBox );
kycdz = kycdzBox.value;
ptytyp = ptytypBox.value;
oitinr = oitinrBox.value;
err1 = Platform.errorCode();
}
Platform.dbCloseCursor();
......
script/ptspta.0003.script
......@@ -29,7 +29,9 @@ String printName()
sql = "select nam1 from pty where inr = ? ";
nam1 = "";
Platform.dbExecuteSQL( sql, $pta\ptyinr.getValue() );
Platform.dbFetchFields( "", nam1 );
Argument<String> nam1Box= new Argument<String>("","");
Platform.dbFetchFields( "", nam1Box );
nam1 = nam1Box.value;
err = Platform.errorCode();
Platform.dbCloseCursor();
if( ! Platform.isEmpty( nam1 ) )
......
script/ptspta.0013.script
......@@ -9,7 +9,11 @@ void prTCnAdRBlK(Argument<String> strtxt)
adr2 = "";
strsql = "select adr.adr1,adr.adr2 from adr where inr='" + $adr\inr.getValue() + "'";
Platform.dbExecuteSql( strsql );
Platform.dbFetchFields( "adr1", adr1, "adr2", adr2 );
Argument<String> adr1Box= new Argument<String>("","");
Argument<String> adr2Box= new Argument<String>("","");
Platform.dbFetchFields( "adr1", adr1Box, "adr2", adr2Box );
adr1 = adr1Box.value;
adr2 = adr2Box.value;
if( Platform.errorCode() <= 0 )
{
if( ! Platform.isEmpty( adr1 ) )
......
script/ptspta.0021.script
......@@ -34,7 +34,9 @@ void prtCusinfForwhEN()
lev = Platform.getContent( "\\SYSMOD\\BCH\\LEV" );
String strsql = "select swfcod from bch where lev='" + lev + "' and bchkey='" + bchkey + "'";
Platform.dbExecuteSql( strsql );
Platform.dbFetchFields( "swfcod", swfcod );
Argument<String> swfcodBox= new Argument<String>("","");
Platform.dbFetchFields( "swfcod", swfcodBox );
swfcod = swfcodBox.value;
if( Platform.errorCode() <= 0 )
{
}
......
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