function fnsetobj1(setval0ref ) { var val0idx = -1; var setobj1 = {}; for (val0idx =0; (val0idx < setval0ref.length ); val0idx++ ) { setobj1[setval0ref[val0idx ] ]=''; } return setobj1; } function fnval_inset1(val1ref, tblval0ref ) {
return (val1ref in fnsetobj1(tblval0ref ) ); } function fnitgextadd1(itgextref, idxaddref ) { var itgextloc; itgextref += idxaddref; Fm1IdxSm1 += 1; itgextloc = Fm1IdxSm1; return itgextloc; } var ItgAdd1 = -1;
function fnItgAdd1(itgextref, itgdifref ) { var itgloc; ItgAdd1 += itgdifref; itgloc = ItgAdd1; return itgloc; } var ItgAdd2 = -1; function fnItgAdd2(addidc, itgextref, itgvalnil, itgdifref ) { var itgloc;
if (addidc > 0 ) { ItgAdd2 += itgdifref; itgloc = ItgAdd2; } else { itgloc = itgvalnil; } return itgloc; } var ItgAdd3 = -1; function fnItgAdd3(addidc, itgextref, itgvalnil, itgdifref ) { var itgloc;
if (addidc < 0 ) { ItgAdd3 = -1; itgloc = ItgAdd3; } else if (addidc == 0 ) { itgloc = itgvalnil; } else if (addidc > 0 ) { ItgAdd3 += itgdifref; itgloc = ItgAdd3; } return itgloc; } function fnmtxdetcolnmx1( mtxtes1vly, mtxnam1ref, mtxval1ref ) {
var fn_namloc ='fnmtxdetcolnmx1'; var rowuno = 0; var rownmx = mtxval1ref.length; var coluno = 0; var colnmx = 1; var rowmatloc =''; var rowid_loc =''; var rowmattyp =''; var rowtypchk =''; var rowmatvly =vln; var matlen =0; var regstrloc ='';
if ((vly) && (mtxval1ref)) { for (rowidx =rowuno; (rowidx < rownmx ); rowidx++ ) { rowmatloc = mtxval1ref[rowidx]; if (mtxtes1vly) { rowid_loc = '[row=' +rowidx +']'; regstrloc ='[' +fn_namloc +':Array=' +"'" +mtxnam1ref +"'" +rowid_loc
+'={' +mtxval1ref[rowidx] +'}]'; fnmsg1(vly, regstrloc ); } rowmattyp = fnvaltypstr1(rowmatloc ); rowtypchk = fnvaltypchk1('row', rowmatloc, rowmattyp ); rowmatvly = fnvalmatvly1(rowmatloc, rowmattyp, rowtypchk ); matlen = 0;
if (rowmattyp == 'array' ) { matlen = rowmatloc.length; colnmx = Math.max(colnmx, matlen ); } if (mtxtes1vly ) { fnmsg1(vly, +'[fnmtxdetcolnmx1:Array=' +"'" +mtxnam1ref +"'" +rowid_loc +';chk:' +rowtypchk +';typ:' +rowmattyp +';matlen=' +matlen
+';colnmx=' +colnmx ); } } } return colnmx; } function  fnmtxcelgetval1( mtxval1ref, rowidx, colidx, colnmx ) { var celmatloc =''; if (colnmx ==1 ) { celmatloc =mtxval1ref[rowidx]; } else { celmatloc =mtxval1ref[rowidx][colidx]; }
return celmatloc; } function  fnmtxrowcelmatidc1( mtxval1ref, rowidx, coluno, collas, colnmx, fmivalidx, vl_qesref, vl_ttlref ) { var celmatntl =0; var rowcelmatidc =[]; var coloutnmx = collas +1 -coluno;
var vl_qesloc = fntrmall(vl_qesref ).toLowerCase(); var vl_qesvly = vln; var vl_ttlloc = fntrmall(vl_ttlref ).toLowerCase(); var vl_ttlvly = vln; var celtypstr =''; var celmattyp =''; var celtypchk =''; var celmatloc; var celmatvly =vln;
var celmatidc =  0; var fmiid_loc =''; for (colidx =0; (colidx < (colnmx +0) ); colidx++ ) { rowcelmatidc[colidx] = 0; if (coloutnmx > 0 ) { if ((colidx >= coluno) && (colidx <= collas)) { celmatvly =vln;
celmatloc = fnmtxcelgetval1(mtxval1ref, rowidx, colidx, colnmx ); fmiid_loc ='[' +rowidx +'][' +colidx +']'; vl_ttlvly = vln; if (fmivalidx > -1 ) { if (vl_qesloc.length > 0 ) { if (celmatloc ==vl_qes ) { vl_qesvly = vly; } }
if (vl_ttlloc.length > 0 ) { if (celmatloc ==vl_ttl ) { vl_ttlvly = vly; } } } if ((!vl_qesvly ) && (!vl_ttlvly )) { celmattyp =fnvaltypstr1(celmatloc ); celtypchk =fnvaltypchk1(fmiid_loc, celmatloc, celmattyp );
celmatvly =fnvalmatvly1(celmatloc, celmattyp, celtypchk ); } celmatidc = 0; if (celmatvly) { celmatidc =1; } rowcelmatidc[colidx] =celmatidc; } } } return  rowcelmatidc; } function  fnmtxrowcelmatntl1( rowcelmatidc, coluno, collas, colnmx ) {
var celmatntl =0; var coloutnmx = collas +1 -coluno; var celmatidc =  0; var celmatvly =vln; var celmatloc; var fmiid_loc =''; if (coloutnmx > 0 ) { for (colidx =coluno; (colidx < (collas+1) ); colidx++ ) { if (rowcelmatidc[colidx] > 0 ) {
celmatntl +=1; } } } return  celmatntl; } function  fntblinival1( tblrownmx, celvalref  ) { var tblrowuno =0; var tblrowidx; var tblval2loc; tblval2loc =[]; for (tblrowidx =tblrowuno; (tblrowidx < tblrownmx ); tblrowidx++ ) {
tblval2loc.push(celvalref ); } return tblval2loc; } function  fnmtxinival1( mtxrownmx, mtxcolnmx, celvalref  ) { var mtxrowuno =0; var mtxcoluno =0; var mtxrowidx; var mtxcolidx; var mtxval2loc; mtxval2loc =[]; var mtxrowloc; var mtxrowmat;
if (mtxcolnmx > 1 ) { mtxrowloc =[]; for (mtxcolidx =mtxcoluno; (mtxcolidx < mtxcolnmx ); mtxcolidx++ ) { mtxrowloc.push(celvalref ); } } for (mtxrowidx =mtxrowuno; (mtxrowidx < mtxrownmx ); mtxrowidx++ ) { if (mtxcolnmx == 1 ) {
mtxrowmat = celvalref; mtxval2loc.push(mtxrowmat ); } else { mtxval2loc[mtxrowidx] =mtxrowloc; } } return mtxval2loc; } var mtxval1ref  =[]; function fnmtxrowidxadd1(mtxval1ref, varidx1ref, tblrow1ref ) { var mtxrow1ixl = -1;
mtxrow1ixl = mtxval1ref.length -1; if (varidx1ref > -1 ) { mtxval1ref.push(tblrow1ref ); if (vln) { mtxval1ref.push(tblrow1ref ); } else if (vln) { mtxrow1idx = mtxrow1ixl +1; mtxval1ref[mtxrow1idx ] = tblrow1ref; } else if (vly) {
mtxrow1idx = mtxrow1ixl +1; mtxval1ref[mtxrow1idx ] = []; for (cel1idx =0; (cel1idx < (tblrow1ref.length ) ); cel1idx++ ) { mtxval1ref[mtxrow1idx ][cel1idx ] = tblrow1ref[cel1idx ]; } } } } var dbrnamidx = 0; var dbrtypidx = 1; var dbrlenidx = 2;
var dbrfrcidx = 3; var dbrlmxidx = 2; function fnDbrIdxAdd1(DbrMtxNew, DbrIdx1, FldNamref,FldTypref, FldLenref,FldFrcref,FldLMxref ) { DbrMtxNew[DbrIdx1 ]  =[]; if (DbrIdx1 < 0 ) { DbrMtxNew[DbrIdx1 ] =['','', 0,0 ]; } else {
DbrMtxNew[DbrIdx1 ] =[FldNamref,FldTypref, FldLenref,FldFrcref ]; } } var DbrMtxNew  =[]; var TblVarIdx  =[]; function fnDbrIdxAdd2(DbrMtxNew, VarIdx1, FldNamref,FldTypref, FldLenref,FldFrcref,FldLMxref ) { var DbrMtxIxL = -1;
DbrMtxIxL = DbrMtxNew.length -1; if (VarIdx1 > -1 ) { DbrMtxNew.push([FldNamref,FldTypref, FldLenref,FldFrcref, VarIdx1  ] ); } DbrMtxIxL = DbrMtxNew.length -1; } function fnDbrColVal1(DbrMtxNew, rowidx, colidx ) { }
function fnDbrIdxAdd3(DbrMtxNew, VarIdx1, FldNamref,FldTypref, FldLenref,FldFrcref,FldLMxref ) { var DbrMtxIxL = -1; DbrMtxIxL = DbrMtxNew.length -1; if (VarIdx1 > -1 ) { DbrMtxNew.push([FldNamref,FldTypref, FldLenref,FldFrcref, VarIdx1  ] ); }
DbrMtxIxL = DbrMtxNew.length -1; } function fnDbrIdxAdd4(DbrMtxNew, TblVarIdx, VarIdx1, FldNamref,FldTypref, FldLenref,FldFrcref,FldLMxref ) { var DbrMtxIxL = -1; var TblIdxIxL = -1; DbrMtxNew[VarIdx1 ]  =[]; TblVarIdx[VarIdx1 ]  =[];
if (VarIdx > -1 ) { DbrMtxIxL = DbrMtxNew.length -1; DbrMtxNew[VarIdx1 ] =[FldNamref,FldTypref, FldLenref,FldFrcref ]; } } function  fnmtxcelputval1( mtxval1ref, rowidx, colidx, colnmx, celmatref ) { var celmatloc =''; if (colnmx ==1 ) {
mtxval1ref[rowidx] = celmatref; } else { mtxval1ref[rowidx][colidx] = celmatref; } } function  fnmtxputval1( mtxval2ref, mtxrowuno, mtxrowlas, mtxrownmx, mtxcoluno, mtxcollas, mtxcolnmx, celvalref  ) { var mtxrowidx; var mtxcolidx;
for (mtxrowidx =mtxrowuno; (mtxrowidx < (mtxrowlas+1) ); mtxrowidx++ ) { for (mtxcolidx =mtxcoluno; (mtxcolidx < (mtxcollas+1) ); mtxcolidx++ ) { fnmtxcelputval1(mtxval2ref, mtxrowidx, mtxcolidx, mtxcolnmx, celvalref ); } } }
function  fnmtxputval2( mtxval1ref, mtxrowuno, mtxrowlas, mtxcoluno, mtxcollas, celvalref  ) { var mtxcolidx = -1; mtxrowidx = mtxrowuno -1; while (mtxrowidx < mtxrowlas ) { mtxrowidx += 1; mtxcolidx = mtxcoluno -1;
while (mtxcolidx < mtxcollas ) { mtxcolidx += 1; mtxval1ref[mtxrowidx, mtxcolidx ] += celvalref; } } } function  fnmtxceladdmat1( mtxval2ref, mtxrowuno, mtxrowlas, mtxrownmx, mtxcoluno, mtxcollas, mtxcolnmx, matlefref, matrigref ) { var mtxrowidx;
var mtxcolidx; var mtxcelval; for (mtxrowidx =mtxrowuno; (mtxrowidx < (mtxrowlas+1) ); mtxrowidx++ ) { for (mtxcolidx =mtxcoluno; (mtxcolidx < (mtxcollas+1) ); mtxcolidx++ ) {
mtxcelval = fnmtxcelgetval1(mtxval2ref, mtxrowidx, mtxcolidx, mtxcolnmx ); fnmtxcelputval1(mtxval2ref, mtxrowidx, mtxcolidx, mtxcolnmx, matlefref +mtxcelval +matrigref ); } } } function  fnrowceladdmat1( dbrcolref, mtxval1colref, matlefref,
matrigref ) { var colnmx = -1; var colidx = -1; var coltyploc = ''; var collenloc = -1; var colfrcloc = -1; var collmxloc = -1; var celmatloc = -1; var celtypcue = ''; var mtxval2colnew =[]; colnmx = mtxval1colref.length; colidx = -1;
while (colidx < (colnmx -1 )) { colidx += 1; coltyploc =dbrcolref[colidx][dbrtypidx]; collenloc =dbrcolref[colidx][dbrlenidx]; colfrcloc =dbrcolref[colidx][dbrfrcidx]; collmxloc =collenloc; celtypcue = coltyploc; celmatloc =''; if (colnmx == 1 ) {
celmatloc =mtxval1colref; } else  { celmatloc =mtxval1colref[colidx]; } celvalstr =fnvaladdnst1(vly,celmatloc, matlefref,matrigref ); mtxval2colnew[colidx ] =celvalstr; } return mtxval2colnew; } function  fnmtxputtbl1( mtxval1ref,
mtxval1rowuno, mtxval1rowlas, mtxval1coluno, mtxval1collas, mtxval1colnmx ) { var mtxval1rownmx =mtxval1ref.length; var mtxval1rowult =Math.min((mtxval1rownmx -1), mtxval1rowlas ); var mtxval1rowntl =mtxval1rowult -mtxval1rowuno +1;
var mtxval1rowidx =-1; var mtxval1colult =mtxval1collas; var mtxval1colntl =mtxval1colult -mtxval1coluno +1; var mtxval1colidx =-1; var tblcelmat; var mtxval2loc = []; var mtxval2rownmx =mtxval1rowntl; var mtxval2rowntl =0; var mtxval2rowuno =0;
var mtxval2rowlas =mtxval2rownmx -1; var mtxval2rowidx =-1; var mtxval2colnmx =mtxval1colntl; var mtxval2colntl =0; var mtxval2coluno =0; var mtxval2collas =mtxval2colntl -1 -mtxval2coluno; var mtxval2colidx =-1; var mtxcelmat;
var mtxval2rowloc =[]; for (mtxval1rowidx =mtxval1rowuno; (mtxval1rowidx < (mtxval1rowult +1) ); mtxval1rowidx++ ) { mtxval2rowidx +=1; mtxval2colidx = -1; mtxval2rowloc =[];
for (mtxval1colidx =mtxval1coluno; (mtxval1colidx < (mtxval1colult +1) ); mtxval1colidx++ ) { tblcelmat = fnmtxcelgetval1(mtxval1ref, mtxval1rowidx, mtxval1colidx, mtxval1colnmx ); mtxval2colidx +=1; mtxcelmat =tblcelmat; if (mtxval2colnmx ==1 ) {
if (mtxval2rowntl ==0 ) { mtxval2loc.push(mtxcelmat ); } else if (mtxval2rowntl > 0 ) { mtxval2loc[mtxval2rowidx] =mtxcelmat; } } else if (mtxval2colnmx > 1 ) { if (mtxval2rowntl ==0 ) { mtxval2rowloc.push(mtxcelmat ); } else
if (mtxval2rowntl > 0 ) { mtxval2loc[mtxval2rowidx][mtxval2colidx] = mtxcelmat; } } } if (mtxval2colnmx > 1 ) { if (mtxval2rowntl ==0 ) { mtxval2loc.push(mtxval2rowloc ); } } } return  mtxval2loc; } function  fnmtxputmtx1( mtxval1ref,
mtxval1rowuno, mtxval1rowlas, mtxval1coluno, mtxval1collas, mtxval1colnmx, mtxval2ref, mtxval2rowuno, mtxval2coluno, mtxval2colnmx ) { var mtxval1rownmx =mtxval1ref.length; var mtxval1rowult =Math.min((mtxval1rownmx -1), mtxval1rowlas );
var mtxval1rowidx; var mtxval1colult =Math.min((mtxval1colnmx -1), mtxval1collas ); var mtxval1colidx; var tblcelmat; var mtxval2rownmx =mtxval2ref.length; var mtxval2rowlas =mtxval2rowuno +(mtxval1rowult -mtxval1rowuno );
var mtxval2rowult =Math.min((mtxval2rownmx -1), mtxval2rowlas ); var mtxval2rowidx; var mtxval2colidx; var mtxcelmat; var mtxval2rowloc; var mtxval2rowmat; mtxval2rowidx =mtxval2rowuno -1;
for (mtxval1rowidx =mtxval1rowuno; (mtxval1rowidx < (mtxval1rowult +1) ); mtxval1rowidx++ ) { mtxval2rowidx +=1; mtxval2colidx =mtxval2coluno -1; mtxval2rowloc =[];
for (mtxval1colidx =mtxval1coluno; (mtxval1colidx < (mtxval1colult +1) ); mtxval1colidx++ ) { tblcelmat = fnmtxcelgetval1(mtxval1ref, mtxval1rowidx, mtxval1colidx, mtxval1colnmx ); mtxval2colidx +=1; mtxcelmat =tblcelmat; if (mtxval2colnmx ==1 ) {
if (mtxval2rownmx < (mtxval2rowidx +1) ) { mtxval2ref.push(mtxcelmat ); } else { mtxval2ref[mtxval2rowidx] =mtxcelmat; } } else if (mtxval2colnmx > 1 ) { if (mtxval2rownmx ==0 ) { mtxval2rowloc[mtxval2colidx] =mtxcelmat; } else {
mtxval2ref[mtxval2rowidx][mtxval2colidx] = mtxcelmat; } } } if (mtxval2rownmx < (mtxval2rowidx +1 ) ) { if (mtxval2colnmx > 1 ) { mtxval2ref.push(mtxval2rowloc ); } } } } function  fnmtxputmtx2( mtxval1ref, mtxval1rowuno, mtxval1rowlas,
mtxval1coluno, mtxval1collas, mtxval1colnmx, mtxval2ref, mtxval2rowuno, mtxval2coluno, mtxval2colnmx ) { var mtxval1rownmx =mtxval1ref.length; var mtxval1rowult =Math.min((mtxval1rownmx -1), mtxval1rowlas ); var mtxval1rowidx;
var mtxval1colult =Math.min((mtxval1colnmx -1), mtxval1collas ); var mtxval1colidx; var tblcelmat; fnalert1(vly, 'mtxval1-rows:' +mtxval1rowuno +',' +mtxval1rowlas +',' +mtxval1rownmx +',' +mtxval1rowult +';' );
fnalert1(vly, 'mtxval1-cols:' +mtxval1coluno +',' +mtxval1collas +',' +mtxval1colnmx +',' +mtxval1colult +';' ); var mtxval2rownmx =mtxval2ref.length; var mtxval2rowlas =mtxval2rowuno +(mtxval1rowult -mtxval1rowuno );
var mtxval2rowult =Math.min((mtxval2rownmx -1), mtxval2rowlas ); var mtxval2rowidx; var mtxval2colidx; var mtxcelmat; var mtxval2rowloc; var mtxval2rowmat; mtxval2rowidx =mtxval2rowuno -1;
for (mtxval1rowidx =mtxval1rowuno; (mtxval1rowidx < (mtxval1rowult +1) ); mtxval1rowidx++ ) { mtxval2rowidx +=1; mtxval2colidx =mtxval2coluno -1; mtxval2rowloc =[];
for (mtxval1colidx =mtxval1coluno; (mtxval1colidx < (mtxval1colult +1) ); mtxval1colidx++ ) { tblcelmat = fnmtxcelgetval2(mtxval1ref, mtxval1rowidx, mtxval1colidx, mtxval1colnmx ); fnalert1(vly,tblcelmat ); mtxval2colidx +=1; mtxcelmat =tblcelmat;
if (mtxval2colnmx ==1 ) { if (mtxval2rownmx < (mtxval2rowidx +1) ) { mtxval2ref.push(mtxcelmat ); } else { mtxval2ref[mtxval2rowidx] =mtxcelmat; } fnalert1(vly, mtxval2ref ); } else if (mtxval2colnmx > 1 ) { if (mtxval2rownmx ==0 ) {
mtxval2rowloc[mtxval2colidx] =mtxcelmat; } else { mtxval2ref[mtxval2rowidx][mtxval2colidx] = mtxcelmat; } fnalert1(vly, mtxval2ref ); } } if (mtxval2rownmx < (mtxval2rowidx +1 ) ) { if (mtxval2colnmx > 1 ) { mtxval2ref.push(mtxval2rowloc ); }
fnalert1(vly, mtxval2ref ); } } function  fnmtxcelgetval2( mtxval1ref, rowidx, colidx, colnmx ) { var celmatloc ='[fnmtxcelgetval2]'; if (colnmx ==1 ) { celmatloc =mtxval1ref[rowidx]; fnalert1(vly, '1:' +celmatloc ); } else if (colnmx > 1 ) {
celmatloc =mtxval1ref[rowidx][colidx]; fnalert1(vly, '2:' +celmatloc ); } return celmatloc; } } function fnmtxcuerowidx1(mtxval1ref,colcueidx ,celvalref ) { var rowvalidx = -1; var rownmx; var rowidx; var celvalloc;
if (fnvaltypstr1(mtxval1ref ) !='array' ) { fnmsg1(vly,"IN fnmtxcuerowidx1: colcueidx=" +colcueidx +"; celvalref=" +celvalref +"; 'mtxval1ref' =NOT TYPE of 'array'." ); } var rownmx =mtxval1ref.length; if (rownmx > 0 ) {
for (rowidx = 0; (rowidx < rownmx); rowidx++ ) { celvalloc =mtxval1ref[rowidx][colcueidx]; if (celvalloc ==celvalref ) { rowvalidx =rowidx; rowidx =rownmx; } } } return rowvalidx; }
function fnmtxcuerowidx2(lb_nam1ref ,mtxval1ref,colcueidx ,celcueref ) { var rowvalidx = -1; var rownmx; var rowidx; var celcueloc; if (fnvaltypstr1(mtxval1ref ) !='array' ) { fnmsg1(vly, 'IN fnmtxcuerowidx1: lb_nam1ref=' +lb_nam1ref
+'; colcueidx=' +colcueidx +'; celcueref=' +celcueref +'; ' +"'mtxval1ref' =NOT TYPE 'array'." ); } var rownmx =mtxval1ref.length; if (rownmx > 0 ) { for (rowidx = 0; (rowidx < rownmx); rowidx++ ) { celcueloc =mtxval1ref[rowidx][colcueidx];
if (celcueloc ==celcueref ) { rowvalidx =rowidx; rowidx =rownmx; } } } return rowvalidx; } function  fnmtxcuecelget1(mtxval1ref,colcueidx, colvalidx ,rowcueref ) { var celmat = null; var rowidx = -1;
rowidx =fnmtxcuerowidx1(mtxval1ref ,colcueidx ,rowcueref ); if (rowidx > -1 ) { celmat =mtxval1ref[rowidx][colvalidx]; } return celmat; } function  fnmtxcuecelput1(mtxval1ref,colcueidx,colvalidx, rowcueref ,celmatref ) { var rowidx = -1;
rowidx =fnmtxcuerowidx1(mtxval1ref ,colcueidx ,rowcueref ); if (rowidx > -1 ) { mtxval1ref[rowidx][colvalidx] = celmatref; } } function  fnmtxcuecelput2(mtxval1ref ,colcueidx,colvalidx, rowcueref ,celmatref ) { var rowidx = -1;
rowidx =fnmtxcuerowidx2('put2:' +celmatref, mtxval1ref ,colcueidx ,rowcueref ); if (rowidx > -1 ) { mtxval1ref[rowidx][colvalidx] = celmatref; } } function  fnmtxcuecelputtbl1(mtxval1ref ,colcueidx,rowcueref ,celmatref,tblval2ref ) {
var rowidx = -1; rowidx =fnmtxcuerowidx1(mtxval1ref ,colcueidx ,rowcueref ); if (rowidx > -1 ) { tblval2ref[rowidx] = celmatref; } } function  fnmtxcuecelputdet1(mtxval1ref ,colcueidx,colvalidx, rowcueref ,celmatref, coldetidx,detidcref ) {
var rowidx = -1; var celmatloc =''; var detidcloc =''; rowidx =fnmtxcuerowidx1(mtxval1ref ,colcueidx ,rowcueref ); if (rowidx > -1 ) { if (vly) { mtxval1ref[rowidx][colvalidx] = celmatref; mtxval1ref[rowidx][coldetidx] = detidcref; } } }
function  fnmtxcuecelputdet2(mtxval1ref ,colcueidx,colvalidx, rowcueref ,celmatref, coldetidx,detidcref ) { var rowidx = -1; var celmatloc =''; var detidcloc =''; if (vly) { fnmsg1(vly, 'IN fnmtxcuecelputdet2[a]: colcueidx=[' +colcueidx +']'
+"; rowcueref='" +rowcueref +"'" +'; celmatref={' +celmatref +'}.' ); } rowidx =fnmtxcuerowidx1(mtxval1ref ,colcueidx ,rowcueref ); if (vly) { fnmsg1(vly, 'IN fnmtxcuecelputdet2[b]: rowidx   =[' +rowidx    +'].' ); } if (rowidx > -1 ) { if (vly) {
mtxval1ref[rowidx][colvalidx] = celmatref; mtxval1ref[rowidx][coldetidx] = detidcref; } } } function  fnmtxcuecelputdet3(mtxval1ref ,colcueidx,colvalidx, coldetidx,detidcref, rowcueref ,celmatref ) { var rowidx = -1; var celmatloc ='';
var detidcloc =''; rowidx =fnmtxcuerowidx1(mtxval1ref ,colcueidx ,rowcueref ); if (rowidx > -1 ) { celmatloc =mtxval1ref[rowidx][colvalidx]; detidcloc =mtxval1ref[rowidx][coldetidx]; if (vly) { mtxval1ref[rowidx][colvalidx] = celmatref;
mtxval1ref[rowidx][coldetidx] = detidcref; } } } function  fnmtxcuecelgetdet1(mtxval1ref ,colcueidx,colvalidx, rowcueref ) { var rowidx = -1; var celmatloc =''; var detidcloc =''; rowidx =fnmtxcuerowidx1(mtxval1ref ,colcueidx ,rowcueref );
if (rowidx > -1 ) { celmatloc =mtxval1ref[rowidx][colvalidx]; } return celmatloc; }