function  fnmtxputnam1( lb_nam1ref, fn_nam1ref, tblid_1ref, mtxnam1ref, mtxval1ref, rowuno, rowlas, coluno, collas ) { var fn_out1loc = ''; var lb_nam1loc = fntrmall(lb_nam1ref ); var fn_nam1loc = fntrmall(fn_nam1ref );
var tblid_1loc = fntrmall(tblid_1ref ); var mtxnam1loc = fntrmall(mtxnam1ref ); var mtxnam1len = mtxnam1loc.length; fn_out1loc += lfdflostr; if (lb_nam1loc.length > 0 ) { fn_out1loc += '<!--[' +'LIB' +':"' +lb_nam1loc +'".' +']-->';
fn_out1loc += lfdflostr; } if (fn_nam1loc.length > 0 ) { fn_out1loc += '<!--[' +'FN ' +':"' +fn_nam1loc +'".' +']-->'; fn_out1loc += lfdflostr; } if (tblid_1loc.length > 0 ) { fn_out1loc += '<!--[' +'TBL' +':"' +tblid_1loc +'".' +']-->';
fn_out1loc += lfdflostr; } var mtxnam1frs = ''; if (mtxnam1len > 0 ) { mtxnam1frs = '' +"'"  +mtxnam1loc +"'" +' [' +rowuno +'..' +rowlas +'][' +coluno +'..' +collas +']'; fn_out1loc += '<!--[' +'MTX' +':"' +mtxnam1frs +'".' +']-->';
fn_out1loc += lfdflostr; } if (mtxnam1len > 0 ) { fn_out1loc += '<h4><u>Array: ' +mtxnam1frs +'; content:</u></h4><br>'; fn_out1loc += lfdflostr; } return fn_out1loc; } function fnhtmtbl_tblcolwid3( tblwidref, tblbrwref, chrwidpxl, coluno,collas,
dbrcol1ref, tblcolwidstr ) { var tblwidtotitg = 0; var tblwidtotstr = ''; var colntl = collas -coluno +1; var tblbrwloc = 0; var tblbrwtot = 0; var collenloc = 0; var colwiditg = 0; var colwidstr = ''; tblbrwloc = tblbrwref; tblwidtotitg = 0;
if (dbrcol1ref ) { if (dbrcol1ref.length > 0 ) { for (colidx = coluno; (colidx < (collas+1) ); colidx++ ) { collenloc =   0; colwidstr = '0'; collenloc = dbrcol1ref[colidx][dbrlenidx]; if (collenloc < 1 ) { if (tblwidref > 0 ) {
colwiditg = tblwidref /colntl; colwidstr = colwiditg +'px'; } else { colwiditg = 100.0; colwidstr = colwiditg +'%'; } } else if (collenloc > 0 ) { colwiditg = (collenloc *chrwidpxl ); colwidstr = colwiditg +'px'; tblwidtotitg += colwiditg +0; }
tblcolwidstr[colidx] = colwidstr; } } } tblbrwtot = tblbrwloc *(colntl +1); if (tblwidtotitg > 0 ) { tblwidtotitg += tblbrwtot; } else if (tblwidtotitg < 1 ) { tblwidtotitg = tblwidref; } tblwidtotstr = ''; if (tblwidtotitg > 0 ) {
tblwidtotstr = tblwidtotitg +'px'; } else { tblwidtotstr = 100.0 +'%'; } return tblwidtotstr; } function fnhtmtbl_tagtbl1( tblid_ref, tblclsref, tblwidtotstrref, tblbrwref, tblcpdref, tblstlref ) { var fn_out1loc = ''; var tagtblstr = '';
var tblstlloc = ''; var tblstllen = 0; if (vly) { tagtblstr += lfdflostr; tagtblstr += '<table'; if (tblid_ref.length > 0 ) { tagtblstr += ' id= '          +'"' +tblid_ref +'"'; } if (tblclsref.length > 0 ) {
tagtblstr += ' class= '       +'"' +tblclsref +'"'; } if (tblwidtotstrref.length > 0 ) { tagtblstr += lfdflostr; tagtblstr += ' width= '       +'"' +tblwidtotstrref +'"'; } if (tblbrwref > 0 ) {
tagtblstr += ' border= '      +'"' +tblbrwref +'px"'; } if (tblcpdref > 0 ) { tagtblstr += lfdflostr; tagtblstr += ' cellpadding= ' +'"' +tblcpdref +'px"'; } if (tblstlref.length > 0 ) { tblstlloc = fntrmall(tblstlref );
tblstllen = tblstlref.length; tagtblstr += lfdflostr; if (tblstlloc.substr(0,5) =='style' ) { tagtblstr += ' ' +tblstlref; } else if (tblstlloc[tblstllen-1] ==';' ) { tagtblstr += ' style= '     +'"' +tblstlref +'"'; } else {
tagtblstr += ' style= '     +'"' +tblstlref +';"'; } } tagtblstr += '>'; tagtblstr += lfdflostr; tagtblstr += lfdflostr; fn_out1loc = tagtblstr; } return fn_out1loc; } function fnhtmtblcolstr3( coluno,collas, tblcolwidstr ) { var fn_out1loc = '';
var tblcolstr = ''; var regcolstr = ''; var coloutnmx = collas -coluno +1; var colspnloc =  0; var colalvloc = ''; var colalhloc = ''; if (tblcolwidstr ) { var tblcolstr = ''; var regcolstr = ''; tblcolstr += lfdflostr; tblcolstr += '<colgroup';
tblcolstr += ' span= '  +'"' +coloutnmx +'"'; tblcolstr += '>'; tblcolstr += lfdflostr; colspnloc = 1; colalvloc = "top"; colalhloc = "left"; for (colidx = coluno; (colidx < (collas+1) ); colidx++ ) { colwidstr = tblcolwidstr[colidx];
regcolstr = ''; regcolstr += '<col'; regcolstr += ' span= '     +'"' +colspnloc +'"'; regcolstr += ' width= '    +'"' +colwidstr +'"'; regcolstr += ' valign= '   +'"' +colalvloc +'"'; regcolstr += ' align= '    +'"' +colalhloc +'"';
regcolstr += '>'; regcolstr += lfdflostr; tblcolstr += regcolstr; } tblcolstr += '</colgroup>'; tblcolstr += lfdflostr; tblcolstr += lfdflostr; fn_out1loc += tblcolstr; } return fn_out1loc; } function fnhtmtblhdrstr3( tblwidtotstr, tblttlref,
coluno,collas, dbrcol1ref, tblcolwidstr ) { var fn_out1loc = ''; var tblhdrstr = ''; var reghdrstr = ''; var rowspnloc =  0; var coloutnmx = collas -coluno +1; var colwiditg =  0; var colwidstr = ''; var colspnloc =  0; var colalvloc = '';
var colalhloc = ''; var colnamloc = ''; if (dbrcol1ref ) { tblhdrstr += lfdflostr; tblhdrstr += '<thead'; tblhdrstr += '>'; tblhdrstr += lfdflostr; tblhdrstr += lfdflostr; if (vly ) { colspnloc = coloutnmx; colalvloc = "bottom";
colalhloc = "left"; colwiditg = tblwidtotstr; tblttlloc = tblttlref; tblhdrstr += '<tr>'; reghdrstr = ''; if (vly) { reghdrstr = '<th'; reghdrstr += ' colspan= ' +'"' +colspnloc +'"'; reghdrstr += ' valign= '  +'"' +colalvloc +'"';
reghdrstr += ' align= '   +'"' +colalhloc +'"'; reghdrstr += '>'; reghdrstr += lfdflostr; tblttlseg = tblttlloc.substr(0,3); if (tblttlseg != '<h3><b>' ) { reghdrstr += '<h3><b>'; reghdrstr += tblttlloc; reghdrstr += '</b></h3>'; } else {
reghdrstr += tblttlloc; } reghdrstr += lfdflostr; reghdrstr += '</th>'; reghdrstr += lfdflostr; tblhdrstr += reghdrstr; } tblhdrstr += '</tr>'; tblhdrstr += lfdflostr; tblhdrstr += lfdflostr; } if (vly ) { rowspnloc = 1; colspnloc = 1;
colalvloc = "top"; colalhloc = "left"; colwidstr = ''; tblhdrstr += '<tr>'; for (colidx = coluno; (colidx < (collas+1) ); colidx++ ) { colwidstr = tblcolwidstr[colidx]; colnamloc = dbrcol1ref[colidx][dbrnamidx]; reghdrstr = '<th';
reghdrstr += ' rowspan= ' +'"' +rowspnloc +'"'; reghdrstr += ' colspan= ' +'"' +colspnloc +'"'; reghdrstr += ' width= '   +'"' +colwidstr +'"'; reghdrstr += ' valign= '  +'"' +colalvloc +'"'; reghdrstr += ' align= '   +'"' +colalhloc +'"';
reghdrstr += '>'; reghdrstr += lfdflostr; reghdrstr += colnamloc; reghdrstr += lfdflostr; reghdrstr += '</th>'; reghdrstr += lfdflostr; tblhdrstr += reghdrstr; } tblhdrstr += '</tr>'; tblhdrstr += lfdflostr; tblhdrstr += lfdflostr; }
tblhdrstr += '</thead>'; tblhdrstr += lfdflostr; tblhdrstr += lfdflostr; fn_out1loc += tblhdrstr; } return fn_out1loc; } function  fnrowvalfmt1( tblcolref, dbrcolref ) { var colnmx = -1; var colidx = -1; var coltyploc = ''; var collenloc = -1;
var colfrcloc = -1; var collmxloc = -1; var celmatloc = -1; var celtypcue = ''; var tblcolnew = []; colnmx = tblcolref.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 = tblcolref; } else  { celmatloc = tblcolref[colidx]; }
celvalstr = fnvalfmt2('_','_',celmatloc,celtypcue,collenloc,colfrcloc,collmxloc ); tblcolnew[colidx ] = celvalstr; } return tblcolnew; } function  fnfmihtm4celstr1( tblid_ref, rowidx, colidx, mtxfmiinpvly, chrwidpxl, colwidstr, colfmiinpvly,
celid_ref, celmatref, celtypref, cellenref, celfrcref, cellmxref, celttlvly, celttlstl, celfmiinpvly, celatploc, celclkloc, celhtmprfstr ) { var  celhtmstr = ''; var  celtypcue = celtypref; var  cellenloc = cellenref; var  celfrcloc = celfrcref;
var  cellmxloc = cellmxref; var  celmatloc = celmatref; var  celalnstr = ''; var celvalstr = ''; celvalstr = fninpvalmsgstr1(tblid_ref, rowidx, colidx, celid_ref, vl_ttl, vl_qes, celfmiinpvly, celmatloc ); if (celvalstr.length < 1 ) {
if (celmatloc == vl_ttl ) { celvalstr = '&nbsp;'; } else if (mtxfmiinpvly ) { if (celatploc.length > 0 ) { celvalstr = celmatloc.toString(); } else { celvalstr = fnvalfmt2('','',celmatloc,celtypcue,cellenloc,celfrcloc,cellmxloc ); } } else {
celvalstr = fnvalfmt2(numchrlef,numchrrig,celmatloc,celtypcue,cellenloc,celfrcloc,cellmxloc ); } var celvalseg; if (celttlvly ) { celvalseg = celvalstr.substr(0,3); if (celvalseg != '<h3><b>' ) { if (celttlstl.length > 0 ) { celvalstr =
'<span' +' style= "' +celttlstl +'">' +lfdflostr +celvalstr +'</span>' +lfdflostr; } else { celvalstr = '<h3><b>' +celvalstr +'</b></h3>'; } } } } var celhtcstr = ''; var celstlstr = ''; var valstlstr = ''; var celalhloc = ''; var celalvloc = '';
var celalnloc = ''; if (celtypcue.charAt(0) == 'C' ) { celalhloc = 'left'; } else if (celtypcue.charAt(0) == 'L' ) { celalhloc = 'left'; } else if (colfmiinpvly ) { celalhloc = 'left'; } else if (vly) { celalhloc = 'right'; } celalvloc = 'top';
celalnloc += ' valign= '      +'"' +celalvloc +'" align= '       +'"' +celalhloc +'"'; if (!celfmiinpvly ) { celhtcstr += '<span'; } else if (celfmiinpvly ) { celvalstr = fntrmlef(celvalstr ); celhtcstr += '<input'; if (celid_ref.length > 0 ) {
celhtcstr += '' +lfdflostr +' id= '          +'"' +celid_ref +'"'; } celhtcstr += '' +lfdflostr +' size= '        +'"' +cellenloc +'" maxlength= '   +'"' +cellmxloc +'"'; celhtcstr += '' +lfdflostr +' value= '       +'"' +celvalstr +'"';
if (celatploc.length > 0 ) { celhtcstr += '' +lfdflostr +' type= '        +'"' +celatploc +'"'; } if (celclkloc.length > 0 ) { celhtcstr += '' +lfdflostr +' onclick= '     +'"' +celclkloc +'"'; } } celhtcstr += '' +lfdflostr +celalnloc; if (vln) {
if (celtypcue.charAt(0) == 'N' ) { if (celfmiinpvly ) { valstlstr += "white-space:nowrap;"; +''; } } } if (valstlstr.length > 0 ) { +lfdflostr +' style= '       +'"' +valstlstr +'"'; } if (!celfmiinpvly ) { celhtcstr += '>' +lfdflostr;
celhtcstr += '' +celvalstr; celhtcstr += '</span>' +lfdflostr; } else if (celfmiinpvly ) { celhtcstr += '>' +lfdflostr; } celhtmstr = celhtmprfstr +celhtcstr; celhtmstr = '<td' +celalnloc +'>' +lfdflostr +celhtmstr +'</td>' +lfdflostr;
return celhtmstr; } function  fnmtxrowttlvly1( rowcelmatidc, coluno, collas, colnmx, celmatntl, fmicolttlidx, rowfmiinpvly ) { var rowttlvly = vln; var coloutnmx = collas +1 -coluno; var colidx = -1; if (coloutnmx > 0 ) { if (celmatntl > 0 ) {
if (celmatntl == 1 ) { if (fmicolttlidx > -1 ) { if (!rowfmiinpvly ) { colidx = fmicolttlidx; if (rowcelmatidc[colidx] > 0 ) { rowttlvly = vly; } } } } } } return  rowttlvly; } if (vln) { rowhtmstr = fnfmihtm4rowstr1( tblid_ref, rowidx, colidx,
vln, chrwidpxl, tblcolwidstr[colidx], (colidx != fmicolttlidx ), 'celid_loc', celmatloc, dbrcol1ref[colidx][dbrtypidx], dbrcol1ref[colidx][dbrlenidx], dbrcol1ref[colidx][dbrfrcidx], dbrcol1ref[colidx][dbrlenidx], (colidx == fmicolttlidx ),
celttlstl, vln, '', '', celhtmprfstr ); } function  fnfmihtm4rowstr1( mtxnam1ref, mtxval1ref, mtxval2ref, rowidx, coluno, collas, colnmx, tblid_ref, dbrcol1ref, fmicolttlidx, celttlstl, chrwidpxl, tblcolwidstr, fmixplslcvly, fmidetslcvly,
fmidettesvly, fmixplidcmxm, fmiid_tesvly, mx1fmifmtvly, fmifrsidx, fmivalidx ) { var rowhtmstr = ''; var mtxnam1loc = fntrmall(mtxnam1ref); var mtxnam1len = mtxnam1loc.length; var colidx = -1; var colntl = collas +1 -coluno;
var coloutnmx = colntl; var rowhtmxplidc = dtyidc; var rowhtmxplloc =  0; var rowhtmxplfrs = ''; var tblrowcelmatidc = []; var celmatntl = 0; var rowttlvly = vln; var colspnloc = 0; var colalvloc = 'top'; var colalhloc = 'left';
var celmatloc = ''; var coltyploc = ''; var collenloc =  0; var colfrcloc =  0; var collmxloc =  0; var celttlvly = vln; var celtypcue = ''; var celhtmprfstr = ''; var celhtmstr = ''; var rowfmiid_loc =   0; var rowfmiid_frs = '';
var rowatploc = ''; var rowclkloc = ''; var vl_qesloc = ''; var vl_ttlloc = ''; var mtxfmi1typstr = ''; var mtxfmi2typstr = ''; var mx2fmiinpvly = vln; var rowfmiinpvly = vln; var colfmiinpvly = vln; var celfmiinpvly = vln; var colhtmslcvly = vly;
rowhtmxplidc = dtyidc; rowhtmxplloc = fmixplidcmxm; rowhtmxplfrs = ''; if (mx1fmifmtvly ) { if (fmivalidx > -1 ) { vl_qesloc = vl_qes; vl_ttlloc = vl_ttl; } mtxfmi2typstr =fnvaltypstr1(mtxval2ref );
mx2fmiinpvly = fnvalmatvly1(mtxval2ref, mtxfmi2typstr ); if ((fmixplslcvly ) || (fmidetslcvly )) { rowhtmxplidc = mtxval1ref[rowidx ][fmidetidx ]; rowhtmxplloc = mtxval1ref[rowidx ][fmixplidx ]; } if (fmixplslcvly ) {
if (rowhtmxplloc > fmixplidcmxm ) { rowhtmxplidc = dtnidc; } } } if (rowhtmxplidc == dtyidc ) { if (fmidettesvly ) { rowhtmxplfrs = '[' +rowhtmxplidc.toString() +']'; } if (mx1fmifmtvly ) { rowfmiid_loc = mtxval1ref[rowidx ][fmiid_idx ];
if (fmiid_tesvly ) { rowfmiid_frs = '{' +rowfmiid_loc +'}'; } if (mx2fmiinpvly ) { rowatploc = mtxval2ref[rowidx ][fmiatpidx ]; rowclkloc = mtxval2ref[rowidx ][fmiclkidx ]; if (rowclkloc.charAt(0) == '!' ) { rowclkloc = ''; }
rowfmiinpvly = (rowatploc.length > 0 ); } } tblrowcelmatidc = []; celmatntl = 0; rowttlvly = vln; tblrowcelmatidc = fnmtxrowcelmatidc1( mtxval1ref, rowidx, coluno, collas, colnmx, fmivalidx, vl_qes, vl_ttl ); celmatntl = fnmtxrowcelmatntl1(
tblrowcelmatidc, coluno, collas, colnmx ); rowttlvly = fnmtxrowttlvly1( tblrowcelmatidc, coluno, collas, colnmx, celmatntl, fmicolttlidx, rowfmiinpvly ); rowhtmstr += '<tr>'; rowhtmstr += lfdflostr; if (celmatntl < 1 ) { colspnloc = coloutnmx;
colalvloc = 'top'; colalhloc = 'left'; rowhtmstr += '<td'; rowhtmstr += ' colspan= ' +'"' +colspnloc +'"'; rowhtmstr += ' valign= '  +'"' +colalvloc +'"'; rowhtmstr += ' align= '   +'"' +colalhloc +'"'; rowhtmstr += '>'; rowhtmstr += lfdflostr;
celhtmstr = '&nbsp;'; if (vln) { celhtmstr += '[*1:row=' +rowidx +':LEEG]' } if (fmidettesvly ) { celhtmstr = rowhtmxplfrs +' ' +celhtmstr; } if (fmiid_tesvly ) { celhtmstr = rowfmiid_frs +' ' +celhtmstr; } rowhtmstr += celhtmstr;
rowhtmstr += '</td>'; rowhtmstr += lfdflostr; } else { for (colidx = coluno; (colidx < (collas +1 ) ); colidx++ ) { celhtmstr = ''; coltyploc = dbrcol1ref[colidx][dbrtypidx]; collenloc = dbrcol1ref[colidx][dbrlenidx];
colfrcloc = dbrcol1ref[colidx][dbrfrcidx]; collmxloc = dbrcol1ref[colidx][dbrlenidx]; celtypcue = coltyploc; colhtmslcvly = vly; if (mx1fmifmtvly) { if ((colidx == fmifrsidx ) || (colidx == fmivalidx ) ) { colhtmslcvly = vly; } else {
colhtmslcvly = vln; } } colfmiinpvly = vln; celid_loc = ''; celttlvly = (colidx == fmicolttlidx ); celfmiinpvly = vln; if ((!mx1fmifmtvly) || (colhtmslcvly ) ) { celmatloc = fnmtxcelgetval1(mtxval1ref, rowidx,colidx, colnmx ); if (mx1fmifmtvly ) {
coltyploc = mtxval1ref[rowidx][fmitypidx]; collenloc = mtxval1ref[rowidx][fmilenidx]; colfrcloc = mtxval1ref[rowidx][fmifrcidx]; collmxloc = mtxval1ref[rowidx][fmilmxidx]; if (colidx == fmifrsidx ) { celtypcue = 'C'; } else
if (colidx == fmivalidx ) { celtypcue = coltyploc; } if (vln) { if (celmatntl == 1 ) { if (celtypcue == 'C' ) { if (celmatloc.length < 1 ) { celmatloc = '&nbsp;'; } } } } celid_loc = mtxval1ref[rowidx ][fmiid_idx ]; colfmiinpvly =
((mx2fmiinpvly) && (colidx == fmivalidx) ); celttlvly = ((colidx == fmicolttlidx ) && (rowttlvly || (rowfmiinpvly && (rowatploc.length > 0 ) && (rowclkloc.length > 0 ) ) ) ); celfmiinpvly = ((colidx == fmivalidx ) && (rowfmiinpvly ) &&
(rowatploc.length > 0 ) ); celhtmprfstr = ''; if (colidx == fmifrsidx ) { if (fmiid_tesvly ) { celhtmprfstr = '{' +rowid_loc +'}' +lfdhtmstr +lfdflostr; } } else if (colidx == fmivalidx ) { if (fmidettesvly ) { celhtmprfstr =
'[' +rowhtmxplidc.toString() +']' +lfdhtmstr +lfdflostr; } } } if (vln) { if (tblid_ref == 'mxfnce12frs1' ) { if (rowidx == 3 ) { if (colidx == fmivalidx ) { fnmsg1(vly, '' + "{[1] IN: 'fnfmihtm4rowstr1'" + ";CALL: 'fnfmihtm4celstr1'" + ';WITH ' +
'01:'  +'{"'+tblid_ref +'"}' + '02:'  +'[' +rowidx +']' + '03:'  +'[' +colidx +']' +lfdflostr + '04:'  +'{' +mx1fmifmtvly +'}' + '05:'  +'{' +chrwidpxl +'}' + '06:'  +'{' +tblcolwidstr[colidx] +'}' +lfdflostr + '07:'  +'{' +colfmiinpvly +'}' +
'08:'  +'{' +celid_loc +'}' + '09:'  +'{' +celmatloc +'}' + '10:'  +'{' +celtypcue +'}' +lfdflostr + '11:'  +'{' +collenloc +'}' + '12:'  +'{' +colfrcloc +'}' + '13:'  +'{' +collmxloc +'}' +lfdflostr + '14:'  +'{' +celttlvly +'}' +
'15:'  +'{"'+celttlstl +'"}' +lfdflostr + '16:'  +'{' +celfmiinpvly +'}' + '17:'  +'{' +rowatploc +'}' + '18:'  +'{' +rowclkloc +'}' + '19:'  +'{' +celhtmprfstr +'}' ); } } } } if (vln) { if (tblid_ref == 'mxfnce12frs1' ) { fnmsg1(vly, '' +
"{IN 1: 'fnfmihtm4rowstr1'" + ";CALL: 'fnfmihtm4celstr1'" + ';WITH ' + '01:tblid_ref='      +'{"'+tblid_ref +'"}' + '02:rowidx='         +'{' +rowidx +'}' + '03:colidx='         +'{' +colidx +'}' +lfdflostr +
'04:mx1fmifmtvly='   +'{' +mx1fmifmtvly +'}' + '05:chrwidpxl='      +'{' +chrwidpxl +'}' + '06:colwidstr='      +'{' +tblcolwidstr[colidx] +'}' + '07:colfmiinpvly='   +'{' +colfmiinpvly +'}' +lfdflostr + '08:celid_ref='      +'{' +celid_loc +'}' +
'09:celmatref='      +'{' +celmatloc +'}' + '10:celtypref='      +'{' +celtypcue +'}' +lfdflostr + '11:cellenref='      +'{' +collenloc +'}' + '12:celfrcref='      +'{' +colfrcloc +'}' + '13:cellmxref='      +'{' +collmxloc +'}' +lfdflostr +
'14:celttlvly='      +'{' +celttlvly +'}' + '15:celttlstl='      +'{"'+celttlstl +'"}' + '16:celfmiinpvly='   +'{' +celfmiinpvly +'}' + '17:celatploc='      +'{' +rowatploc +'}' + '18:celclkloc='      +'{' +rowclkloc +'}' +
'19:celhtmprfstr='   +'{' +celhtmprfstr +'}' ); } } celhtmstr = fnfmihtm4celstr1( tblid_ref, rowidx, colidx, mx1fmifmtvly, chrwidpxl, tblcolwidstr[colidx], colfmiinpvly, celid_loc, celmatloc, celtypcue, collenloc, colfrcloc, collmxloc, celttlvly,
celttlstl, celfmiinpvly, rowatploc, rowclkloc, celhtmprfstr ); rowhtmstr += celhtmstr; } } } rowhtmstr += '</tr>'; rowhtmstr += lfdflostr; rowhtmstr += lfdflostr; } return rowhtmstr; } if (vln) { rowhtmstr = fnfmihtm4celstr1( tblid_ref,
rowidx, colidx, mx1fmifmtvly, chrwidpxl, tblcolwidstr[colidx], ((mx1fmifmtvly) && (colidx != fmicolttlidx )), mtxval1ref[rowidx ][fmiid_idx ], celmatloc, celtypcue, mtxval1ref[rowidx][fmilenidx], mtxval1ref[rowidx][fmifrcidx],
dbrcol1ref[colidx][dbrlenidx], ((colidx == fmicolttlidx ) && (rowttlvly || (rowfmiinpvly && (rowatploc.length > 0 ) && (rowclkloc.length > 0 ) ) ) ), celttlstl, ((colidx == fmivalidx ) && (rowfmiinpvly ) && (rowatploc.length > 0 ) ), rowatploc,
rowclkloc, celhtmprfstr ); } if (vln) { celhtmstr = fnfmihtm4celstr1( tblid_ref, rowidx, colidx, vln, chrwidpxl, tblcolwidstr[colidx], (colidx != fmicolttlidx ), 'celid_loc', celmatloc, dbrcol1ref[colidx][dbrtypidx], dbrcol1ref[colidx][dbrlenidx],
dbrcol1ref[colidx][dbrfrcidx], dbrcol1ref[colidx][dbrlenidx], (colidx == fmicolttlidx ), celttlstl, vln, '', '', celhtmprfstr ); } function fnstrputtblout1( inpstrref, dlminpref, dlmdumref, dlmlfdref, dlmoutref, lfdoutref ) {
var rowstrbuf = inpstrref; var rowstrlen = rowstrbuf.length; var dlmdumlen = 0; var dlminplen = 0; var dlmlfdlen = 0; var dlmdumidx = -1; var dlminpidx = -1; var dlmlfdidx = -1; var dlmmxmidx = -1; var dlmmnmidx = -1; var dlmidxidx = -1;
var dlmprxidx = -1; var tbldlmidx = []; var tblregbuf = []; var regstrbuf = ''; var regidx = 0; if (rowstrlen < 1 ) { regstrbuf = rowstrbuf; regstrbuf += lfdoutref; } else { dlmdumlen = dlmdumref.length; dlminplen = dlminpref.length;
dlmlfdlen = dlmlfdref.length; if ((dlmdumlen +dlminplen +dlmlfdlen ) < 1 ) { regstrbuf = rowstrbuf; regstrbuf += lfdoutref; regstrbuf += lfdoutref; tblregbuf.push(regstrbuf ); } else { tbldlmidx = []; regstrbuf = '';
while (rowstrbuf.length > 0 ) { dlmdumidx = rowstrbuf.indexOf(dlmdumref ); dlminpidx = rowstrbuf.indexOf(dlminpref ); dlmlfdidx = rowstrbuf.indexOf(dlmlfdref ); dlmmxmidx = Math.max(dlmdumidx, Math.max(dlminpidx, dlmlfdidx ) );
if (dlmmxmidx > -1 ) { dlmmnmidx = Math.min(dlmdumidx, Math.min(dlminpidx, dlmlfdidx ) ); tbldlmidx = [dlmdumidx, dlminpidx, dlmlfdidx ]; tbldlmidx.sort(function(a,b){return a-b;}); dlmidxidx = -1; while (dlmidxidx < tbldlmidx.length ) {
dlmidxidx += 1; dlmprxidx = tbldlmidx[dlmidxidx ]; if (dlmprxidx > -1 ) { dlmidxidx = tbldlmidx.length +1; regstrbuf = ''; if (dlmprxidx == dlmdumidx ) { regstrbuf = rowstrbuf.substr(0,dlmdumidx);
rowstrbuf = rowstrbuf.substr(dlmdumidx +dlmdumlen, rowstrlen ); regstrbuf += lfdoutref; } else if (dlmprxidx == dlminpidx ) { regstrbuf = rowstrbuf.substr(0,dlminpidx); rowstrbuf = rowstrbuf.substr(dlminpidx +dlminplen, rowstrlen );
regstrbuf += dlmoutref; } else if (dlmprxidx == dlmlfdidx ) { regstrbuf = rowstrbuf.substr(0,dlmlfdidx); rowstrbuf = rowstrbuf.substr(dlmlfdidx +dlmlfdlen, rowstrlen ); } regstrbuf += lfdoutref; regstrbuf += lfdoutref; tblregbuf.push(regstrbuf );
} } } else if (dlmmxmidx <  0 ) { regstrbuf = rowstrbuf; rowstrbuf = ''; regstrbuf += lfdoutref; regstrbuf += lfdoutref; tblregbuf.push(regstrbuf ); } } } } return tblregbuf; }