function richiestaiscrprv(crs,scl){percorso=percorso+"richiestaiscrprv; ";var set=wsprcreg.replace(azindbase+"/","");
/*alert(set);alert("richiestaiscrprv\n"+crs+"\nazindbase="+azindbase+"\nwsprcreg="+wsprcreg+"\ndatiaccredv[2]="+datiaccredv[2]+"\ndatiaccredv[1]="+datiaccredv[1]);*/
var nreg=tipopric="";  

/*if(datiaccredv[2]=="formazione"){var ncmp=new Array("cognome","nome","codice_fiscale","mail"); nreg="richiesteiscrprv.xml";tipopric="provista";}*/
/*if(datiaccredv[2]=="ristorazione"){var ncmp=new Array("cognome","nome","codice_fiscale","mail","tel/cel","indirizzo","civico","cap"); */
if(datiaccredv[2]=="ristorazione"){var ncmp=new Array("mail","cognome","nome","tel","indirizzo","cap"); 
nreg="accredsect.xml";
if(scl.indexOf("dal tavolo")>-1){tipopric="avventore";} if(scl.indexOf("da casa")>-1){tipopric="acquirente";} }

var regacprvs=wsprcreg+"/"+nreg,i=trv=0,rif=operaz=str2="";
var aa=leggireg2(regacprvs); alert(aa+"\nnreg="+nreg+"\nregacprvs="+regacprvs+"\n"+(aa.indexOf("NON TROVATO")>-1)); /**/
ckxml=wsprcreg+"/"; var pos="../"+ckxml,indreg=ckxml; var nqry=new Array("pos","indreg","set","operaz","nreg"); var vqry=new Array(pos,indreg,set,operaz,nreg);
if(aa.indexOf("NON TROVATO")>-1){ /*genera richiesteiscrprov*/operaz="generareg"; 
/*ckxml=wsprcreg+"/"; var pos="../"+ckxml,indreg=ckxml; var nqry=new Array("pos","indreg","set","operaz","nreg");var vqry=new Array(pos,ckxml,set,operaz,nreg);*/
/*alert(vqry);*/ inviarichiestaiscrprv(nqry,vqry);
}
else{/*alert(http_request2.responseText);*/  var lskrif=nvarxml2.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif.length;i++){rif=lskrif[i].attributes[0].value; if(rif==set){trv=1; break;}} 
if(trv==0){/*inserisce in richiesteaccredsect la nuova sezione keyrif relativa al progetto scelto*/ operaz="generarif"; inviaiscrizionecrs(nqry,vqry);}  
if(trv==1){operaz="generamodkey"; msg="il registro delle richieste di iscrizione e&#180; gia&#180; presente e in esso e&#180; gia&#180; stata inserita la sezione relativa al settore indicato"; mostraer(msg);}  
}

function inviaiscrizionecrs(nqry,vqry){ percorso=percorso+"inviaiscrizionecrs; "; /*alert("inviaiscrizionecrs\n"+nqry+"\n"+vqry); return;*/
var nqryar=vqryar=new Array(),i=0; nqryar=nqry; vqryar=vqry; /*for(i=0;i<nqryar.length;i++){alert(nqryar[i]+"="+vqryar[i]); }*/
var str="<center><form action='gestserver1/generamodricaccsect.asp' method='post' id='frmwac' target='popup'> <center>MODULO DI RICHIESTA DELLE CREDENZIALI <b><mark>per ordinazioni dal tavolo</mark></b><button onclick='modshort.style.display=\"none\";coprimenu.style.display=\"none\"; intest1.style.display=\"none\";'> [X] </button> <br/> <table style='display:none;' ><tr><th style='width:20%'>variabili</th><th style='width:80%'> valori </th></tr>";
for(i=0;i<vqryar.length;i++){vqryar[i]=vqryar[i].replace(/'/g,"&#39;"); vqryar[i]=vqryar[i].replace(/,/g,";"); }
for(i=0;i<nqryar.length;i++){/*alert(nqryar[i]+"="+vqryar[i]);*/ str=str+"<tr><th>"+nqryar[i]+"</th><td><input type='text' name='"+nqryar[i]+"' style='width:80%' value='"+vqryar[i]+"'></td></tr>"; } str=str+"</table></form></center>"; /*<tr><th colspan=2><button id='spdform' onclick='spedform()' >spedisci</button></th></tr> */
/*var trform=document.getElementById("trform"); trform.style.display="block"; trform.*/ istfooter.innerHTML=str; /*document.getElementById("spdform").click();spedform();*/ 
var frm=document.getElementById("frmwac"); /*frm.method="post";frm.action="gestserver1/registra_dati.asp";alert(str);*/ frm.submit(); 
}

var dtef=new Array(), st0="",vediono=""; 
for(i=0;i<ncmp.length;i++){for(j=0;j<datiformtip.length;j++){if(ncmp[i]==datiformtip[j]){dtef[i]=numdatireg[j]; break;} } }
/*for(i=0;i<ncmp.length;i++){ st0=st0+ncmp[i]+"="+dtef[i]+", "; } alert(st0); alert(ncmp+"\n"+dtef);*/ 
var dtefstr="";
for(i=0;i<dtef.length-1;i++){dtefstr=dtefstr+datiformtip[dtef[i]]+"|";}; dtefstr=dtefstr+datiformtip[dtef[i]];
/*if(datiaccredv[2]=="formazione"){var str="<center><table style='table-layout:auto;width:80%;' ><tr><th colspan=2> RICHIESTA DI ISCRIZIONE IN PROVA </br>per 15 minuti al corso </br><mark>"+crs+"</mark> </th></tr>"; str2="</br><mark>N.B. i 15 minuti corrispondono a 900 secondi di collegamento gratuito da utilizzare cumulativamente anche in accessi successivi.</mark> ";}*/
if(datiaccredv[2]=="ristorazione"){var str="<center><table style='table-layout:auto;width:80%;' ><tr><th colspan=2> "+scl+" </th></tr>";}
str=str+"<tr><th colspan=2> il richiedente </th></tr>";
for(i=0;i<ncmp.length;i++){if(datiaccredv[2]=="ristorazione"&&scl.indexOf("dal tavolo")>-1&&i>3){vediono=" style='display:none'"; }
str=str+"<tr"+vediono+"><th style='font-weight:normal;text-align:right;width:50%'>"+datiformtip[dtef[i]]+" </th><td> <input type='text' id='"+datiformtip[dtef[i]]+"' name='"+datiformtip[dtef[i]]+"' required title='"+datiformtit[dtef[i]]+"' placeholder='"+datiformph[dtef[i]]+"' pattern='"+datiformpattern[dtef[i]]+"' onchange='centroctrldata(this,\"text\");' /> </td></tr>"; } 
str=str+"<tr><th colspan=2>scegli: <select id='ricpas' onchange='aggiornaaccredsectricprv(\""+nqry+"\",\""+vqry+"\",\""+ncmp+"\",\""+tipopric+"\")'><option value='' selected></option></select>"+str2+"</th></tr> <tr><td colspan=2><div id='trform' style='display:none'></div></td></tr> </table></center> "; 
/*if(azmonit=="fisso"){ istdoc.innerHTML=str;}else{istmobdoc.innerHTML=str; } caricasel("ricpas"); */
istdoc.innerHTML=str; if(azmonit=="mobile"){/*istselcap.style.zIndex=istselpiani.style.zIndex=intestaz0.style.zIndex=-1;*/
istselcap.style.zIndex=istselpiani.style.zIndex=intestaz0.style.zIndex=-1;  istdoc.style.zIndex=1; }
}

function aggiornaaccredsectricprv(ndati,vdati,ncmp,tipopric){ percorso=percorso+"aggiornaaccredsectricprv; "; /*nqry=new Array("pos","indreg","set","operaz","nreg");*/
var nqry=vqry=new Array(),i=n=trovato=0,msg="",messaggio=""; nqry=ndati.split(","); vqry=vdati.split(","); var operaz=vqry[3]="generamodkey"; var set=vqry[2];
var cmpar=new Array(),cmpvar=new Array(),cmpreg=new Array(); cmpar=ncmp.split(","); 
for(i=0;i<cmpar.length;i++){cmpvar[i]=document.getElementById(cmpar[i]).value; } /*alert(cmpar+"\n"+cmpvar+"\n"+tipopric); */
for(i=0;i<cmpar.length;i++){/*alert(document.getElementById(cmpar[i]).style.color+"\n"+(document.getElementById(cmpar[i]).style.color!="rgb(0, 0, 0)")); */
if(i>3&&document.getElementById(cmpar[i]).value!=""&&document.getElementById(cmpar[i]).style.color!="rgb(0, 0, 0)"){trovato=1; } 
if(trovato==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto il valore immesso nel campo "+cmpar[i]+" non e' formalmente corretto"; mostraer(msg); return; }
}

if(tipopric=="acquirente"||tipopric=="provista"){trovato=0;for(i=0;i<cmpar.length;i++){if(cmpvar[i]==""){trovato=1; } if(trovato==1){break;} } }
if(tipopric=="avventore"){trovato=0;for(i=0;i<4;i++){if(cmpvar[i]==""){trovato=1; } if(trovato==1){break;} } }
if(trovato==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto non tutti i campi sono stati compilati"; mostraer(msg); return; }

if(tipopric=="acquirente"||tipopric=="provista"){trovato=0; for(i=0;i<cmpar.length;i++){ /*alert(document.getElementById(cmpar[i]).style.color+"\n"+(document.getElementById(cmpar[i]).style.color!="rgb(0, 0, 0)")); */
if(document.getElementById(cmpar[i]).value!=""&&document.getElementById(cmpar[i]).style.color!="rgb(0, 0, 0)"){trovato=1; } if(trovato==1){break;} }
if(trovato==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto il valore immesso nel campo "+cmpar[i]+" non e' formalmente corretto"; mostraer(msg); return; }}

if(tipopric=="avventore"){trovato=0; for(i=0;i<4;i++){ if(document.getElementById(cmpar[i]).value!=""&&document.getElementById(cmpar[i]).style.color!="rgb(0, 0, 0)"){trovato=1; } 
if(trovato==1){break;} }
if(trovato==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto il valore immesso nel campo "+cmpar[i]+" non e' formalmente corretto"; mostraer(msg); return; }}

var regdamod1=keyrif1=newkey1=regdamod2=keyrif2=newkey2=operaz1=operaz2=tipopric0=""; operaz1=operaz2="niente";
/*alert("\n"+nqry[0]+"="+vqry[0]+"\n"+nqry[1]+"="+vqry[1]+"\n"+nqry[2]+"="+vqry[2]+"\n"+nqry[3]+"="+vqry[3]+"\n"+nqry[4]+"="+vqry[4]);*//*alert(http_request2.responseText);*/
/*alert(http_request2.responseText);*/
var lsk=nvarxml2.getElementsByTagName("key"),indk=0; 
if(lsk.length>0){trovato=0; for(i=0;i<lsk.length;i++){var lsatb=lsk[i].attributes; if(lsatb[0].value==cmpvar[2]){trovato=1; indk=i; tipopric0=lsatb[lsatb.length-1].value; break; }  
if(trovato==1){ break;}} }
/*if(datiaccredv[2]=="formazione"&&trovato==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto cliente gia' registrato ovvero hai gia' richiesto ed ottenuto una volta le credenziali di accesso al settore "+set; mostraer(msg); return; }*/
if(datiaccredv[2]=="ristorazione"&&trovato==1&&tipopric0=="acquirente"){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto cliente gia' registrato come "+tipopric; mostraer(msg); return; }
/*alert("datiaccredv[2]="+datiaccredv[2]+"\ntipopric0="+tipopric0+"\ntipopric="+tipopric+"\nlsatb[4].value="+lsatb[4].value+"\nlsatb[5].value="+lsatb[5].value+"\nlsatb[3].value="+lsatb[3].value+"\n"+(datiaccredv[2]=="ristorazione"&&trovato==1&&tipopric0=="avventore"&&tipopric=="acquirente"&&lsatb[4].value==cmpvar[0]&&lsatb[5].value==cmpvar[1]&&lsatb[3].value==cmpvar[3]));*/
/*alert(lsatb[4].value+"-"+cmpvar[0]+"\n"+lsatb[5].value+"-"+cmpvar[1]+"\n"+lsatb[3].value+"-"+cmpvar[3]); 
alert(datiaccredv[2]=="ristorazione"&&trovato==1&&tipopric0=="avventore"&&tipopric=="acquirente"&&(lsatb[4].value!=cmpvar[0]||lsatb[5].value!=cmpvar[1]||lsatb[3].value!=cmpvar[3])); return;*/
if(datiaccredv[2]=="ristorazione"&&trovato==1&&tipopric0=="avventore"&&tipopric=="acquirente"&&(lsatb[4].value!=cmpvar[0]||lsatb[5].value!=cmpvar[1]||lsatb[3].value!=cmpvar[3])){msg="** ATTENZIONE ** la tua richiesta di passare da <b>ospite avventore</b> ad <b>ospite acquirente</b> <b>non puo' essere inoltrata</b> in quanto cognome, nome o maiol non corrispondono a quelli gia' registrati"; mostraer(msg); return; }
if(datiaccredv[2]=="ristorazione"&&trovato==1&&tipopric0=="avventore"&&tipopric=="acquirente"&&lsatb[4].value==cmpvar[0]&&lsatb[5].value==cmpvar[1]&&lsatb[3].value==cmpvar[3]){msg="** ATTENZIONE ** la tua richiesta di passare da <b>ospite avventore</b> ad <b>ospite acquirente</b> puo' essere inoltrata"; operaz1="sostituisci"; mostraer(msg); }
if(datiaccredv[2]=="ristorazione"&&trovato==1&&tipopric0=="avventore"&&tipopric=="avventore"){msg="** ATTENZIONE ** la tua richiesta NON puo' essere inoltrata in quanto sei gia' registrato come <b>ospite avventore</b> "; mostraer(msg); return; }
/*alert(operaz1+"-"+datiaccredv[2]);*/
if(datiaccredv[2]=="ristorazione"&&operaz1=="sostituisci"){ var lskrif=nvarxml2.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif.length;i++){/*alert(lskrif[i].attributes[0].value);*/ if(lskrif[i].attributes[0].value=="ospite"){var lsatbrif=lskrif[i].attributes,indrif=0,val=""; alert(lsatbrif.length);
for(n=0;n<lsatbrif.length-1;n++){val=lsatbrif.getNamedItem("rif"+indrif).value; /*alert(val);*/ cmpreg[indrif]=val; indrif++; } } }  /**/alert(cmpreg);
}

var cc=calcolasec(); /*var pww=cogn.value.slice(0,2)+nom.value.slice(0,2)+(24*60*60+cc*1);var pw=(cogn.value+"-"+pww);*/ 
var pww=cmpvar[0].slice(0,2)+cmpvar[1].slice(0,2)+(24*60*60+cc*1);var pw=(cmpvar[0]+"-"+pww);
if(operaz1=="niente"){ operaz1="inserisci";}
regdamod1=vqry[0]+"accredsect.xml";
/*if(datiaccredv[2]=="formazione"){ keyrif1="keyrif settore='provisti' ";
newkey1="key codice_fiscale='"+cmpvar[2]+"' pw='"+pw+"' pww='"+pww+"' mail='"+cmpvar[3]+"' livmod='' livlez='' tmpcol='' tmpcolmax='0.4' tipoper='"+tipopric+"' />";}*/
if(datiaccredv[2]=="ristorazione"){ if(operaz1=="inserisci"){keyrif1="keyrif settore='ospiti' ";}
if(operaz1=="sostituisci"){alert(cmpreg+"\n"+lsatb.length);/**/keyrif1="key "; for(i=0;i<cmpreg.length;i++){/*alert(cmpreg[i]+"="+lsatb.getNamedItem(cmpreg[i]).value);*/
keyrif1=keyrif1+cmpreg[i]+"='"+lsatb.getNamedItem(cmpreg[i]).value+"' "; } keyrif1=keyrif1+"/>"; } /*alert(keyrif1);*/
newkey1="key codice_fiscale='"+cmpvar[2]+"' pw='"+pw+"' pww='"+pww+"' mail='"+cmpvar[3]+"' cognome='"+cmpvar[0]+"' nome='"+cmpvar[1]+"' tel='"+cmpvar[4]+"' indirizzo='"+cmpvar[5]+"' civico='"+cmpvar[6]+"' cap='"+cmpvar[7]+"' punti='0' puntimax='500' tipoper='"+tipopric+"' />";}

/*alert("accredsect.xml\n"+keyrif1+"\n"+newkey1);*/

/*if(datiaccredv[2]=="formazione"){regdamod2=vqry[0]+"richiesteiscrprv.xml"; keyrif2="keyrif settore='"+vqry[2]+"' "; operaz2="inserisci";
newkey2="key cognome='"+cmpvar[0]+"' nome='"+cmpvar[1]+"' codice_fiscale='"+cmpvar[2]+"' mail='"+cmpvar[3]+"' dataric='"+azoggi+"' />";}*/
/*alert("richiesteiscrprv.xml\n"+keyrif2+"\n"+newkey2);*/
if(datiaccredv[2]=="ristorazione"){regdamod2=""; keyrif2=""; operaz2="";newkey2=""; }
var valrec=strm="",nrec=0;
 keyrif1=keyrif1.replace(/'/g,"&#39;"); newkey1=newkey1.replace(/'/g,"&#39;"); 
keyrif2=keyrif2.replace(/'/g,"&#39;"); newkey2=newkey2.replace(/'/g,"&#39;"); 
strm="<form id='frmnewraz' target='popup' style='display:block'> ";  
strm=strm+"<input type='text' name='nomreg1' value='"+regdamod1+"' /><input type='text' name='operaz1' value='"+operaz1+"' />";
strm=strm+"**<input type='text' name='keyrif1' value='"+keyrif1+"' /> <input type='text' name='azione' style='width:100%;' value='"+operaz1+"' />"; 
valrec=newkey1;
if(tipopric=="provista"){messaggio="egregio| "+cmpvar[0]+" "+cmpvar[1]+"| per accedere da "+tipopric+" al progetto "+set+" devi effettuare il LOGIN inserendo:| cognome: "+cmpvar[0]+"| password: "+pww+"| quindi puoi attivare il percorso| > Gestioni Aziendali > 3-Gestione Progetti > 1-Gestire Documenti progettuali| N.B., hai 900 secondi da utilizzare anche in accessi successivi prima che le credenziali vengano distrutte";}
if(tipopric=="avventore"){messaggio="egregio| "+cmpvar[0]+" "+cmpvar[1]+"| per accedere da "+tipopric+" alla GESTIONE diretta DELLA TUA ORDINAZIONE tramite il tuo CELLULARE  devi effettuare il LOGIN inserendo:| cognome: "+cmpvar[0]+"| password: "+pww+"| quindi devi attivare il percorso| > Gestioni Aziendali > 3-Gestione Progetti > 2-Gestire Ordinazioni| e costruire in LIVELLI DI PORTATE SUCCESSIVE la tua ordinazione";}
strm=strm+"<input name='key"+nrec+"' style='border:0px; width:100%; text-overflow: ellipsis' value='"+valrec+"' readonly='true'>"; nrec++;
strm=strm+"<input type='text' name='nrec' value='"+nrec+"' /><input type='text' name='sect' value='"+vqry[2]+"' />";
strm=strm+"<input type='text' name='mail' value='' /><input type='text' name='oggetto' value='' />";
strm=strm+"<input type='text' name='nomreg2' value='"+regdamod2+"' /><input type='text' name='operaz2' value='"+operaz2+"' />";
strm=strm+"<input type='text' name='keyrif2' value='"+keyrif2+"' /> <input type='text' name='newkey2' style='width:100%;' value='"+newkey2+"' /> <input type='text' name='oggetto' style='width:100%;' value='Credenziali per accesso in prova' /> <input type='text' name='msg' style='width:100%;' value='"+messaggio+"' /> <input type='text' name='mail' style='width:100%;' value='"+cmpvar[3]+"' /></form>";
document.getElementById("trform").innerHTML=strm; /*alert(strm);*/ document.getElementById("trform").style.display="block";
var frm=document.getElementById("frmnewraz"); /*alert(strm);*/
frm.action="gestserver1/registra_dati.asp"; frm.target="popup"; frm.method="post"; frm.submit(); 

}


function gestisciordinazione(natrib,vatrib,regdamod1,rifkey1){percorso=percorso+"gestisciordinazione; "; document.getElementById("livp0").innerHTML="";natrib=natrib+"";
/*alert("gestisciordinazione\n"+natrib+"\n\n"+vatrib+"\n\n"+regdamod1+"\n\n"+rifkey1); */vatrib=vatrib+"";
var natribar=new Array(),vatribar=new Array(),i=trv=nliv=0,str="";
natribar=natrib.split(","); vatribar=vatrib.split(","); /*alert(natribar.length);*/
for(i=3;i<natribar.length;i++){if(vatribar[i]=="0"){trv=1;}if(trv==1){break;} } 
if(trv==1&&i<13){nliv=(i-2); str=str+"<center><table id='tabord' style='table-layout:auto;max-width:100%;'><tr><th colspan=5> livello di portate n.<b>"+nliv+"</b></th></tr><tr><th style='max-width:10%;'>N</th> <th style='max-width:50%;'>prodotto</th><th style='max-width:20%;'>prezzo unitario</th> <th style='max-width:10%;'>qta</th><th style='width:10%;'>canc</th> </tr></table>" }
document.getElementById("livp"+nliv).innerHTML=str; /*alert(str);*/
}

function incrementa_ordinazione(prod,prz,ingr){ percorso=percorso+"incrementa_ordinazione; "; var tavolo=msg=pos="",i=trv=0; pos=azmodprec+"/"+azrifprec;
tavolo=document.getElementById("codtav").value; if(tavolo==""){msg="<b> * ATTENZIONE * </b>non e'  stato inserito il <b>codice del tavolo</b>"; mostraer(msg); return; }
/*controlla se il prod è già presente altrimenti lo aggiunge. in caso contrario segnala che di quel prodotto si deve solo cambiare la quantità*/
var lsprod=document.getElementsByName("prod_"); /*alert(lsprod[i].textContent+"\n"+prod+"\n"+(lsprod[i].textContent==prod)) */
for(i=0;i<lsprod.length;i++){ if(lsprod[i].textContent.indexOf(prod)>-1){trv=1; }if(trv==1){break;} }
if(trv==1){msg="<b> * ATTENZIONE * </b>il prodotto <b>"+prod+"</b> e' gia' stato selezionato, per variarne il numero devi cambiarne la quantita'"; mostraer(msg); return; } 
/*alert("prod="+prod+"\nprz="+prz+"\ningr="+ingr+"\n"+azmodprec+"/"+azrifprec+"\n"+tavolo);*/
aznrow=aznrow+1; var tabord=document.getElementById("tabord"); /*alert(aznrow);*/
/*
var str="<tr name='tr_'><td>"+aznrow+"</td><td><input type='text' name='prod_' value='"+prod+"' style='text_align:right;border:0px;' disabled /></td><td style='text_align:center;'><input type='text' name='prz_' value='"+prz+"' style='border:0px;' disabled /></td><td style='text-align:center'><input type='number' name='qt_' step=1 value=1 style='width:50px' /></td><td style='text-align:center'><button name='bat_' id='bat_"+aznrow+"' onclick='delrow("+aznrow+")' >cancella</button><input type='text' name='pos' value='"+pos+"' style='display:none;' /></td></tr>";
*/ /*alert(aznrow);*/
var str="<tr name='tr_'><td style='text-align:center'>"+aznrow+"</td><td name='prod_'>"+prod+"<div style='display:none;' name='ingr_'>"+ingr+"</div></td><td name='prz_' style='text-align:center'>"+prz+"</td><td style='text-align:center'><input type='number' name='qt_' step=1 value=1 style='width:50px' /></td><td style='text-align:center'><button name='bat_' id='bat_"+aznrow+"' onclick='delrow("+aznrow+")' >cancella</button><input type='text' name='pos' value='"+pos+"' style='display:none;' /></td></tr>";
var row=tabord.insertRow(1+aznrow); row.innerHTML=str; 
}

function verificacomponenti0(){ percorso=percorso+"verificacomponenti0; "; /*gestione magazzino*//* alert(azdtopsect+"\n"+azdtopsectv);*/
ckxml=wsprcreg+"/gestione_tavoli.xml"; aa=leggireg3(ckxml); /*alert(http_request3.responseText); */ 
var tavolo=document.getElementById("codtav").value,i=0,trv=0,costocompl=costoscont=puntitot=0,msg=""; /*alert(tavolo); return;*/
if(tavolo.indexOf("|")>-1){ var lskey=nvarxml3.getElementsByTagName("key"); 
for(i=0;i<lskey.length;i++){var lsatb=lskey[i].attributes; if(lsatb[0].value==tavolo&&lsatb[2].value!=""){trv=1; break;}}}
/*
if(trv==1){msg="<b> * ATTENZIONE *</b> l'ordinazione non puo' essere inviata in quanto <b>da questo indirizzo <mark>"+tavolo+"</mark> è già stata inviata un&#180;ordinazione che non è stata ancora pagata</b>"; mostraer(msg); return; }
*/
var lsprz=lspos=lsqta=lsprod=prd="",numprod=p1=0;
numprod=document.getElementsByName("prod_").length;
if(numprod==0){msg="<b> * ATTENZIONE *</b> l'ordinazione non puo' essere inviata in quanto <b>non e' stato selezionato alcun prodotto</b>"; mostraer(msg); return; }
for(i=0;i<numprod;i++){prd=document.getElementsByName("prod_")[i].textContent; p1=prd.slice(1).indexOf(",");prd=prd.slice(0,(p1+1)); lsprod=lsprod+","+prd; 
lsprz=lsprz+","+document.getElementsByName("prz_")[i].textContent; lsqta=lsqta+","+document.getElementsByName("qt_")[i].value;  } /*alert(lsprod);*/
var przar=new Array(),prodar=new Array(),qtaar=new Array(); przar=lsprz.slice(1).split(","); var costo=0,tab="<table>",conferma=0; 
/*alert(lspos+"\n"+lsprz+"\n"+lsqta+"\n"+lsposar+"\n"+przar+"\n"+quant);*/ prodar=lsprod.slice(1).split(","); qtaar=lsqta.slice(1).split(",");
for(i=0;i<przar.length;i++){costo=costo+przar[i]*qtaar[i]; } /*alert(costo); alert(prodar);*/ costocompl=costo*1.1; costocompl=costocompl.toFixed(2);
for(i=0;i<przar.length;i++){tab=tab+"<tr><td style='width:auto'>n."+qtaar[i]+"</td><td style='width:auto'> "+prodar[i]+"</td></tr>"; }
/*
tab=tab+"<tr><th colspan=2>Confermi che</br><mark>la lista è completa e corretta? </mark></th></tr><tr><th colspan=2><table><tr> <td style='text-align:center'> <button onclick='verificacomponenti(\""+costocompl+"\");chiudimodshort()'>SI</button> </td> <td style='text-align:center'><button onclick='chiudimodshort()'>NO</button> </td></tr></table></th> </tr></table>";
*/
 var punti=puntiprec=puntimax=0,sconto=""; 
if(tipop!="caposala"){
puntiprec=azdtopsectv[8]*1; puntimax=azdtopsectv[9]*1; /*puntimax=5;*/
punti=(costocompl/10).toFixed(2);puntitot=puntiprec*1+punti*1; puntitot=puntitot.toFixed(2); 
if(puntitot>puntimax){costoscont=(costocompl*0.8).toFixed(2); puntitot=0; /*var pp=calcolapunti(costocompl);*/
sconto="<tr><th colspan=2 style='text-align:left;font-weight:thin;' >con tale ordinazione superi il punteggio massimo; pertanto:</br><li>al costo scontato del 20% <mark>paghi solo: "+costoscont+" euro</mark></li><li>il punteggio ti viene azzerato.</th></tr>"; }
tab=tab+"<tr><th colspan=2>per un costo di "+costo+" euro</br>+ il 10% per confezioni e spedizione</br><mark>TOTALE: "+costocompl+" euro</mark><p style='text-align:left; backgorund-color:"+wscl[3]+";color:"+wscl[4]+";'>punti acquisiti = "+punti+"</br>punti precedenti = "+puntiprec+"</br>punti registrati = "+puntitot+"</p></th></tr>"+sconto;
}
tab=tab+"<tr><th colspan=2>Confermi che</br><mark>la lista è completa e corretta? </mark></th></tr><tr><th colspan=2><table><tr> <td style='text-align:center'> <button onclick='/*modaccredsect();*/verificacomponenti(\""+costocompl+"\",\""+puntitot+"\");chiudimodshort();'>SI</button> </td> <td style='text-align:center'><button onclick='chiudimodshort()'>NO</button> </td></tr></table></th> </tr></table>";
istmds.innerHTML="<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></br>Ordinazione di:</br>"+tab; istmds.style.display="block";
}
/*
function modaccredsect(){percorso=percorso+";"+"modaccredsect";  vat hk=nk="key "; var i=0; ckxml=wsprcreg+"/accredsect.xml"; aa=leggireg3(ckxml); 
for(i=0;i<azdtopsect.length;i++){hk=hk+azdtopsect[i]+"='"+azdtopsectv[i]+"' "; } hk=hk+"/>";
}
*/
/*
function calaolapunti(costocompl){percorso=percorso+";"+"calcolapunti"; 
var punti=puntiprec=puntitot=puntimax=0,sconto=""; puntiprec=azdtopsectv[9]*1; puntimax=azdtopsectv[10]*1; puntimax=5;
punti=(costocompl/10).toFixed(2);puntitot=puntiprec*1+punti*1; puntitot=puntitot.toFixed(2); 
if(puntitot>puntimax){costoscont=(costocompl*0.8).toFixed(2); return(costocompl)
}
*/

function verificacomponenti(costocompl,puntitot){ percorso=percorso+"verificacomponenti; "; /*gestione magazzino*/
var rifasp="https://www.servizinterattivi.it/ptdmsg/gestserver1/dammi_data.asp"; window.open(rifasp,"popup");
/*alert(wsprcreg); alert(http_request.responseText); alert(http_request2.responseText); */
ckxml=wsprcreg+"/magazzino.xml"; aa=leggireg3(ckxml); /*alert(http_request3.responseText); */
var tavolo=document.getElementById("codtav").value; 
var msg=riford=lsprod=lsprz=lsqta=lspos=lsstati=lsingrn=rep=repp=str="",i=j=k=numprod=p1=indst=ind=qt=trv=tot=esci=0,lsatb;
var lsposar=new Array(),repar=new Array(),ingrnar=new Array(),quant=new Array(),ingsnar=new Array(),ingsqar=new Array(),ingredar=new Array(),qtaar=new Array(),ingsing=new Array(),qtasing=new Array(),lshk=lsnk="";
/*alert(codtav+"\n"+document.getElementsByName("prod_").length);*/ numprod=document.getElementsByName("prod_").length;

for(i=0;i<numprod;i++){lsprod=lsprod+","+document.getElementsByName("prod_")[i].textContent; lsprz=lsprz+","+document.getElementsByName("prz_")[i].textContent; 
lsqta=lsqta+","+document.getElementsByName("qt_")[i].value; lspos=lspos+","+document.getElementsByName("pos")[i].value; quant=lsqta.slice(1).split(","); 
lsingrn=lsingrn+"|"+document.getElementsByName("ingr_")[i].innerText.slice(1);
} /*alert(lsingrn);*/
lsposar=lspos.slice(1).split(","); ingrnar=lsingrn.slice(1).split("|"); ingrqar=lsingrn.slice(1).split("|"); ind=0; /*alert(lsprod.match(/,/g).length+"\n"+lsposar); */
/*alert(ingrnar+"\n"+ingrnar.length);*/

if(ingrnar.length>0){
for(i=0;i<ingrnar.length;i++){qt=quant[i];/*alert("ingrnar["+i+"]="+ingrnar[i]+" qt="+qt);*/ ingsnar=ingrnar[i].split(","); /*alert(ingsnar.length); */
for(j=0;j<ingsnar.length;j++){p1=ingsnar[j].lastIndexOf("_"); ingredar[ind]=ingsnar[j].slice(0,p1); qtaar[ind]=ingsnar[j].slice(p1+1)*qt; ind++;}} 
/*alert("ingredar="+ingredar+"\nqtaar="+qtaar);*/ ind=0;
for(i=0;i<ingredar.length;i++){if(ingsing.indexOf(ingredar[i])==-1){ingsing[ind]=ingredar[i];qtasing[ind]=qtaar[i];ind++;}
else{for(j=0;j<ingsing.length;j++){if(ingsing[j]==ingredar[i]){qtasing[j]=qtasing[j]+qtaar[i]; } } } } /*alert("ingsing="+ingsing+"\nqtasing="+qtasing);*/
var lskey=nvarxml3.getElementsByTagName("key"); /*alert(lskey.length); */
for(i=0;i<ingsing.length;i++){trv=tot=0;for(j=0;j<lskey.length;j++){lsatb=lskey[j].attributes; 
if(lsatb[0].value==ingsing[i]&&lsatb[1].value<=qtasing[i]){trv=1;break;}  if(lsatb[0].value==ingsing[i]&&lsatb[1].value>qtasing[i]){trv=0;break;} } 
/*alert("trv="+trv+"\nj="+j+"\nlskey.length="+lskey.length+"\n(trv==0&&j==lskey.length)="+(trv==0&&j==lskey.length)); */
if(trv==0&&j==lskey.length){msg="<b> * ATTENZIONE *</b> l'ingrediente "+ingsing[i]+" non e' presente nel registro di magazzino, pertanto l'ordinazione non puo' essere eseguita"; mostraerpiu(msg); /*alert(msg);*/ esci=1; break; }
if(trv==1&&j<lskey.length){msg="<b> * ATTENZIONE *</b> l'ingrediente "+ingsing[i]+" non e' al momento sufficiente ad esaudire l'ordinazione che, pertanto, deve essere modificata"; mostraerpiu(msg); esci=1; break; }
if(trv==0&&j<lskey.length){msg="l'ingrediente "+ingsing[i]+" e' sufficiente a garantire la realizzazione dell'ordinazione"; mostraerpiu(msg); }
} if(esci==1){return;}
/*aggiorna magazzino*/ 
var dtatbrif=new Array(),dtatbrifv=new Array(); var lskrif=nvarxml3.getElementsByTagName("keyrif");/* alert(lskey.length+"\n"+ingsing.length); */
/*alert(lsatbrif.length);*/var lsatbrif=lskrif[0].attributes; for(j=1;j<lsatbrif.length;j++){dtatbrif[j-1]=lsatbrif[j].value; } 
/*alert("dtatbrif="+dtatbrif);*/
for(i=0;i<ingsing.length;i++){for(j=0;j<lskey.length;j++){dtatbrifv=[]; var lsatb=lskey[j].attributes; 
if(lsatb[0].value==ingsing[i]){/*alert(lsatb[0].value+"\n"+ingsing[i]);*/
var hk="key ";for(n=0;n<dtatbrif.length;n++){dtatbrifv[n]=lskey[j].attributes.getNamedItem(dtatbrif[n]).value; hk=hk+dtatbrif[n]+"='"+dtatbrifv[n]+"' "; } 
hk=hk+"/>"; /*alert(dtatbrifv);*/
dtatbrifv[1]=dtatbrifv[1]-qtasing[i];
var nk="key ";for(n=0;n<dtatbrif.length;n++){nk=nk+dtatbrif[n]+"='"+dtatbrifv[n]+"' "; } 
nk=nk+"/>"; /*alert("hk="+hk+"\nnk="+nk);*/ lshk=lshk+"|"+hk; lsnk=lsnk+"|"+nk; 
}
}
}
var regdamod1="../"+wsprcreg+"/magazzino.xml",regdamod2=operaz2=rifkey2=newkey2=azione=""; lshk=lshk.replace(/'/g,"&#39;"); lsnk=lsnk.replace(/'/g,"&#39;"); 
str="<form id='frmnewraz' target='popup' style='display:block'> "; azione="modifica key magazzino.xml";
str=str+"<input type='text' name='regdamod1' value='"+regdamod1+"' /><input type='text' name='rifkey1' value='"+lshk+"' /> <input type='text' name='regdamod2' value='"+regdamod2+"' /><input type='text' name='rifkey2' value='"+rifkey2+"' /> <input type='text' name='newkey1' style='width:100%;' value='"+lsnk+"' /> <input type='text' name='newkey2' style='width:100%;' value='"+newkey2+"' /> <input type='text' name='azione' style='width:100%;' value='"+azione+"' /> </form>";
document.getElementById("livp0").innerHTML=str; var frm=document.getElementById("frmnewraz"); msg="il registro <b>"+regdamod1+"</b> e' stato aggiornato";
frm.action="gestserver1/modifica_key_plus.asp"; frm.target="popup"; frm.method="post"; frm.submit(); mostraerpiu(msg); 
for(i=0;i<numprod;i++){document.getElementsByName("ingr_")[i].textContent="";}  
for(i=0;i<numprod;i++){lsprod=lsprod+","+document.getElementsByName("prod_")[i].textContent;} 

var keyrifordinaz="keyrif tavolo='"+tavolo+"' "; keyrifordinaz=keyrifordinaz.replace(/'/g,"&#39;");
var regordinaz="../"+ckxml; operazordinaz="inserisci";
var ndt=new Array(),vdt=new Array(riford,lspos,lsprod,lsqta,lsprz,lsstati),irif=nrec=0,newkeyordinaz=keyrif1=operaz1=regdamod2=operaz2=keyrif2=""; 
var lskrif=nvarxml3.getElementsByTagName("keyrif"); for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; if(lsatb[0].value==tavolo){trv=1;}if(trv==1){break;}} 
for(i=0;i<lsatb.length;i++){if(lsatb[i].nodeName.indexOf("rif")>-1){ndt[irif]=lsatb[i].value;irif++; } } 
 newkeyordinaz="key ";
for(i=0;i<ndt.length;i++){newkeyordinaz=newkeyordinaz+ndt[i]+"='"+vdt[i]+"' ";} newkeyordinaz=newkeyordinaz+"/>"; 
newkeyordinaz=newkeyordinaz.replace(/'/g,"&#39;"); 
}
/*if(tavolo.indexOf("|")==-1)*/ var riftav=document.getElementById("datiospite").innerText;
if(riftav.indexOf("caposala-")>-1){setTimeout(()=>inviaordinaz1(regordinaz,operazordinaz,keyrifordinaz,newkeyordinaz,regdamod2,operaz2,keyrif2,newkey2,nrec),500); }
else{setTimeout(()=>inviaordinaz1(regordinaz,operazordinaz,keyrifordinaz,newkeyordinaz,regdamod2,operaz2,keyrif2,newkey2,nrec,costocompl,puntitot),500); }
setTimeout(()=>istfooter.innerHTML="ordinazione inviata con successo",1500); if(azmonit=="fisso"){wsfricarica0(0); }else{wsfricarica0(3);}
}

function inviaordinaz1(regordinaz,operazordinaz,keyrifordinaz,newkeyordinaz,regdamod2,operaz2,keyrif2,newkey2,nrec,costocompl,puntitot){percorso=percorso+"inviaordinaz1; ";/*gestione tavoli*/
var tavolo=document.getElementById("codtav").value; var msg=riford=lsprod=lsprz=lsqta=lspos=lsstati=rep=repp="",i=j=k=numprod=p1=indst=0,lsposar=new Array(),repar=new Array();
numprod=document.getElementsByName("prod_").length;
for(i=0;i<numprod;i++){lsprod=lsprod+","+document.getElementsByName("prod_")[i].textContent; 
lsprz=lsprz+","+document.getElementsByName("prz_")[i].textContent; 
lsqta=lsqta+","+document.getElementsByName("qt_")[i].value; lspos=lspos+","+document.getElementsByName("pos")[i].value; } 
lsposar=lspos.slice(1).split(","); 
for(i=0;i<lsposar.length;i++){p1=lsposar[i].indexOf("/"); rep=lsposar[i].slice(0,p1); repp=rep.slice(0,1); 
if(lsstati.indexOf(rep)==-1){ lsstati=lsstati+","+repp+"0"; repar[indst]=rep; indst++;}} 
var star=new Array(); star=lsstati.split(","); var starunic=[...new Set(star)]; /*alert("star="+star+"\nstarunic="+starunic); return;*/ lsstati=starunic; 
ckxml=wsprcreg+"/gestione_ordinazioni.xml";  var cc=leggireg3(ckxml); var riford=azdatas1.slice(0,(azdatas1.length-1)); 
msg="invio ordinazione dal tavolo <b>"+document.getElementById("codtav").value+"</b></br>"; mostraerpiu(msg);
var ndt=new Array(),vdt=new Array(riford,lspos,lsprod,lsqta,lsprz,lsstati),irif=nrec=0,newkeyordinaz=keyrif1=operaz1=regdamod2=operaz2=keyrif2=""; 
var lskrif=nvarxml3.getElementsByTagName("keyrif"); for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; if(lsatb[0].value==tavolo){trv=1;}if(trv==1){break;}} 
for(i=0;i<lsatb.length;i++){if(lsatb[i].nodeName.indexOf("rif")>-1){ndt[irif]=lsatb[i].value;irif++; } } 
 newkeyordinaz="key ";
for(i=0;i<ndt.length;i++){newkeyordinaz=newkeyordinaz+ndt[i]+"='"+vdt[i]+"' ";} newkeyordinaz=newkeyordinaz+"/>"; newkeyordinaz=newkeyordinaz.replace(/'/g,"&#39;"); 
var keyrifordinaz="keyrif tavolo='"+tavolo+"' "; keyrifordinaz=keyrifordinaz.replace(/'/g,"&#39;");
var regordinaz="../"+ckxml; operazordinaz="inserisci";

riford=tavolo+"/"+riford; var atbprod=new Array("rif_ord","prodotti","quantitativi","stato"),atbprodv=new Array("","","","");atbprodv[0]=riford; atbprodv[3]=0;
/*alert(http_request2.responseText); alert(tavolo);*/ 
var ndt=new Array(),vdt=new Array(),irif=nrec=0,newkey1=keyrif1=operaz1=regdamod2=operaz2=keyrif2=azione=reg=sala=""; reg="gestione_tavoli.xml";
ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml); 
var lskrif2=nvarxml2.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif2.length;i++){var lsatbrif=lskrif2[i].attributes; sala=lsatbrif[0].value; if(sala.indexOf("_")>-1){ p1=sala.indexOf("_");sala=sala.slice(0,p1);}
/*alert("sala="+sala+"\ntavolo="+tavolo+"\nlsatbrif[0].value="+lsatbrif[0].value+"\n(tavolo.indexOf("+sala+")>-1)="+(tavolo.indexOf(sala)>-1));*/
if(tavolo.indexOf(sala)>-1){irif=i;break;}} 
var lskey=lskrif2[irif].getElementsByTagName("key"); for(i=0;i<lskey.length;i++){var lsatb=lskey[i].attributes; tav=lsatb[0].value; if(tav==tavolo){trv=1;break;} } 
keyrif1=newkey1="key "; ndt=[];vdt=[]; /*alert(trv+"\n"+tav+"\n"+tavolo); */
for(i=0;i<lsatb.length;i++){ndt[i]=lsatb[i].nodeName;vdt[i]=lsatb[i].value;}for(i=0;i<ndt.length;i++){keyrif1=keyrif1+ndt[i]+"='"+vdt[i]+"' ";}keyrif1=keyrif1+"/>";/*alert(keyrif1); alert(azlivp);*/ 
if(tavolo.indexOf("|")==-1){ for(i=0;i<ndt.length;i++){if(ndt[i].indexOf("lp")>-1&&vdt[i]=="0"){vdt[i]="1";break; }} }
if(tavolo.indexOf("|")>-1){ 
for(i=0;i<ndt.length;i++){if(ndt[i]=="ordinazione"){vdt[i]="ok";vdt[i+1]="ok"; }if(ndt[i]=="costo"){vdt[i]=costocompl;}if(ndt[i]=="punti"){vdt[i]=puntitot;}} }
/*for(i=0;i<ndt.length;i++){if(ndt[i]=="lp"+azlivp){vdt[i]="1"; }}*/ /*alert(ndt+"\n"+vdt+"\n"+keyrif1);*/
for(i=0;i<ndt.length;i++){newkey1=newkey1+ndt[i]+"='"+vdt[i]+"' ";}newkey1=newkey1+"/>"; /*alert(newkey1); */
regdamod1="../"+wsprcreg+"/"+reg; /*alert("inviaordinaz1\nregdamod1="+regdamod1+"\nkeyrif1="+keyrif1+"\nnewkey1="+newkey1);*/
keyrif1=keyrif1.replace(/'/g,"&#39;"); newkey1=newkey1.replace(/'/g,"&#39;"); 
str="<form id='frmnewraz' target='popup' style='display:block'> "; azione="modifica key gestione_tavoli.xml";
str=str+"<input type='text' name='regdamod1' value='"+regdamod1+"' /><input type='text' name='rifkey1' value='"+keyrif1+"' /> <input type='text' name='regdamod2' value='"+regdamod2+"' /><input type='text' name='rifkey2' value='"+rifkey2+"' /> <input type='text' name='newkey1' style='width:100%;' value='"+newkey1+"' /> <input type='text' name='newkey2' style='width:100%;' value='"+newkey2+"' /> <input type='text' name='azione' style='width:100%;' value='"+azione+"' /> </form>";
document.getElementById("livp0").innerHTML=str; var frm=document.getElementById("frmnewraz"); msg="1) il registro <b>"+reg+"</b> e' stato aggiornato";
frm.action="gestserver1/modifica_key.asp"; frm.target="popup"; frm.method="post"; frm.submit(); mostraerpiu(msg); 

/*setTimeout(()=>registraordinaz(regordinaz,operazordinaz,keyrifordinaz,newkeyordinaz,regdamod2,operaz2,keyrif2,newkey2,nrec),500); */
setTimeout(()=>inviaordinaz2(regordinaz,operazordinaz,keyrifordinaz,newkeyordinaz,regdamod2,operaz2,keyrif2,newkey2,nrec),500); 
}

function inviaordinaz2(regdamod1,operaz1,keyrif1,newkey1,regdamod2,operaz2,keyrif2,newkey2,nrec){ percorso=percorso+"inviaordinaz2; "; 
/*alert("inviaordinaz2\nregdamod1="+regdamod1+"\noperaz1="+operaz1+"\nkeyrif1="+keyrif1+"\nnewkey1="+newkey1+"\nregdamod2="+regdamod2+"\noperaz2="+operaz2+"\nkeyrif2="+keyrif2+"\nnewkey2="+newkey2+"\nnrec="+nrec);*/
/*if(azmonit=="fisso"){istfooter.innerHTML=istfooter.innerHTML+regdamod1+"</br>";}
else{var istfoot=document.getElementById("contactmob");istfoot.innerHTML=istfoot.innerHTML+regdamod1+"</br>"; }*/
var p1=0,msg=reg=""; p1=regdamod1.lastIndexOf("/"); reg=regdamod1.slice(p1+1); msg="2) il registro <b>"+reg+"</b> e' stato aggiornato";
var strm="<form id='frmnewraz' target='popup' style='display:block'> ";  
strm=strm+"<input type='text' name='nomreg1' value='"+regdamod1+"' /><input type='text' name='operaz1' value='"+operaz1+"' />";
strm=strm+"<input type='text' name='keyrif1' value='"+keyrif1+"' />"; 
valrec=newkey1;
strm=strm+"<input name='key"+nrec+"' style='border:0px; width:100%; text-overflow: ellipsis' value='"+valrec+"' readonly='true'>"; nrec++;
strm=strm+"<input type='text' name='nrec' value='"+nrec+"' /><input type='text' name='sect' value='' />";
strm=strm+"<input type='text' name='mail' value='' /><input type='text' name='oggetto' value='' />";
strm=strm+"<input type='text' name='nomreg2' value='"+regdamod2+"' /><input type='text' name='operaz2' value='"+operaz2+"' />";
strm=strm+"<input type='text' name='keyrif2' value='"+keyrif2+"' /> <input type='text' name='newkey2' style='width:100%;' value='"+newkey2+"' /></form>";
document.getElementById("livp0").innerHTML=strm; /*alert("inviaordinaz2\nregdamod1="+regdamod1+"\nkeyrif1="+keyrif1+"\nnewkey1="+newkey1);*/
var frm=document.getElementById("frmnewraz"); 
frm.action="gestserver1/registra_dati.asp"; frm.target="popup"; frm.method="post"; frm.submit(); mostraerpiu(msg); 
setTimeout(()=>inviaordinaz3(),1000); 
}

function inviaordinaz3(){ percorso=percorso+"inviaordinaz3; "; 
var tavolo=document.getElementById("codtav").value; var msg=riford=lsprod=lsprz=lsqta=lspos=lsstati=rep=repp=pr="",i=j=k=numprod=p1=indst=0,lsposar=new Array(),repar=new Array();
numprod=document.getElementsByName("prod_").length; riford=azdatas1.slice(0,(azdatas1.length-1)); p1=tavolo.indexOf("_"); var sl=tavolo.slice(0,p1+1); 
for(i=0;i<numprod;i++){pr=document.getElementsByName("prod_")[i].textContent; /*alert(pr);*/ p1=pr.indexOf(",");if(p1>-1){ pr=pr.slice(0,p1);} lsprod=lsprod+","+pr;
lsprz=lsprz+","+document.getElementsByName("prz_")[i].textContent; 
lsqta=lsqta+","+document.getElementsByName("qt_")[i].value; lspos=lspos+","+document.getElementsByName("pos")[i].value; } 
/*alert("inviaordinaz3\n"+lsprod+"\n\n"+lsprz+"\n\n"+lsqta+"\n\n"+lspos);*/
lsposar=lspos.slice(1).split(","); 
for(i=0;i<lsposar.length;i++){p1=lsposar[i].indexOf("/"); rep=lsposar[i].slice(0,p1); repp=rep.slice(0,1); 
if(lsstati.indexOf(rep)==-1){ lsstati=lsstati+","+repp+"0"; if(repar.indexOf(rep)==-1){ repar[indst]=rep; indst++;}}} /*alert(repar);*/
riford=tavolo+"/"+riford; var atbprod=new Array("rif_ord","prodotti","qta","stato"),atbprodv=new Array("","","",""); atbprodv[0]=riford; atbprodv[3]=0;
var prd=new Array(),qta=new Array(),rep=new Array(),prod=new Array(),quant=new Array(),ind=0; 
prod=lsprod.slice(1).split(","); quant=lsqta.slice(1).split(","); /*alert(prod+"\n"+quant);*/
var tim=0;
for(i=0;i<repar.length;i++){ prd=[];qta=[];ind=0; for(j=0;j<lsposar.length;j++){if(lsposar[j].indexOf(repar[i])>-1){prd[ind]=prod[j]; qta[ind]=quant[j]; ind++;} }
var indreg1="../"+wsprcreg+"/"+repar[i]+"/produzioni.xml"; atbprodv[1]=prd; atbprodv[2]=qta; 
var newk1="key "; for(k=0;k<atbprod.length;k++){newk1=newk1+atbprod[k]+"='"+atbprodv[k]+"' "; }newk1=newk1+"/>"; 
msg="ordinazione specifica inviata al reparto <b>"+repar[i]+"</b> vale <b>"+newk1+"</b>"; 
var krif1="/keyrif"; 
/*var rifasp="gestserver1/insertkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1; window.open(rifasp,"popup"); 
*/var reparto=repar[i]; azpausa=0;inviaordinaz4(krif1,indreg1,newk1,reparto);
while(azpausa<10000000){azpausa++;}
/*alert(azpausa+"-"+tim);*/
mostraerpiu(msg); 
azpausa=0;
/*timeraz=setTimeout(()=>inviaordinaz4(krif1,indreg1,newk1,reparto),500);*/
}
/*
document.getElementById("livp0").innerHTML="";
if(azmonit=="mobile"){ istmobdoc.innerHTML=""; msg="Sarete serviti al più presto. Per richiedere altre cose: <mark> clicca sull'icona della home-page e riattiva il percorso</br><b> > Gestioni Aziendali > 3-Gestione Progetti > 2-Gestire Ordinazioni</b></mark>";}else{ istselpiani.innerHTML=istselcap.innerHTML=istdoc.innerHTML=""; msg="Sarete serviti al più presto. Per richiedere altre cose: <mark>riattiva il percorso:</br><b> > Gestioni Aziendali > 3-Gestione Progetti > 2-Gestire Ordinazioni</b></mark>";} mostraer(""); mostraer(msg);
*/
if(tipop=="caposala"){svuotaordinaz(); msg="ordinazione inviata con riferimento <b>"+riford+"</b> sarete serviti al più presto."; mostraer(""); mostraer(msg);  document.getElementById("codtav").value="";  }
/*alert(tipop+"\n"+tavolo+"\n"+sl);*/
/*if(tipop=="caposala"){document.getElementById("codtav").value=""; }*/if(tipop=="avventore"){document.getElementById("codtav").value=sl; } 
}

function svuotaordinaz(){  percorso=percorso+"svuotaordinaz; "; for(i=0;i<11;i++){var llivp=document.getElementById("livp"+i); llivp.innerHTML=""; }}

function inviaordinaz4(krif1,indreg1,newk1,reparto){ percorso=percorso+"inviaordinaz4; "; var azione="inserisci";
var rifasp="gestserver1/insertkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&azione="+azione; window.open(rifasp,"popup"); 
/*var msg="ordinazione specifica inviata al reparto <b>"+reparto+"</b> vale <b>"+newk1+"</b>"; 
alert("ordinazione specifica inoltrata al reparto "+repar[i]);
mostraerpiu(msg); clearTimeout(timeraz); */
}

function inviaordinaz(){ percorso=percorso+"inviaordinaz; "; 
var tavolo=document.getElementById("codtav").value; var msg=riford=lsprod=lsprz=lsqta=lspos=lsstati=rep=repp="",i=j=k=numprod=p1=indst=0,lsposar=new Array(),repar=new Array();
/*alert(codtav+"\n"+document.getElementsByName("prod_").length);*/ numprod=document.getElementsByName("prod_").length;
for(i=0;i<numprod;i++){lsprod=lsprod+","+document.getElementsByName("prod_")[i].textContent; 
lsprz=lsprz+","+document.getElementsByName("prz_")[i].textContent; 
lsqta=lsqta+","+document.getElementsByName("qt_")[i].value; lspos=lspos+","+document.getElementsByName("pos")[i].value; 
} 
lsposar=lspos.slice(1).split(","); /*alert(lsprod.match(/,/g).length+"\n"+lsposar); */
for(i=0;i<lsposar.length;i++){p1=lsposar[i].indexOf("/"); rep=lsposar[i].slice(0,p1); repp=rep.slice(0,1); 
if(lsstati.indexOf(rep)==-1){/*lsstati=lsstati+","+rep+"_0";*/ lsstati=lsstati+","+repp+"0"; repar[indst]=rep; indst++;}}
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; /*alert(ckxml);*/ var cc=leggireg3(ckxml); var riford=azdatas1.slice(0,(azdatas1.length-1)); 
/*alert(http_request.responseText); alert(http_request2.responseText); alert(http_request3.responseText); alert(azlivp); return;*/
/*rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='quantitativi' rif4='costi' rif5='stati' >*/
/*alert(lsprod+"\n"+lsprz+"\n"+lsqta+"\n"+lsposar+"\n"+lsstati); alert("azdatas1="+azdatas1+"\nazdatas2="+azdatas2+"\nazdatams="+azdatams);*/
msg="invio ordinazione dal tavolo <b>"+document.getElementById("codtav").value+"</b></br>"; mostraerpiu(msg);

var ndt=new Array(),vdt=new Array(riford,lspos,lsprod,lsqta,lsprz,lsstati),irif=nrec=0,newkeyordinaz=keyrif1=operaz1=regdamod2=operaz2=keyrif2=""; 
var lskrif=nvarxml3.getElementsByTagName("keyrif"); for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; if(lsatb[0].value==tavolo){trv=1;}if(trv==1){break;}} 
for(i=0;i<lsatb.length;i++){if(lsatb[i].nodeName.indexOf("rif")>-1){ndt[irif]=lsatb[i].value;irif++; } } 
 newkeyordinaz="key ";
for(i=0;i<ndt.length;i++){newkeyordinaz=newkeyordinaz+ndt[i]+"='"+vdt[i]+"' ";} newkeyordinaz=newkeyordinaz+"/>"; newkeyordinaz=newkeyordinaz.replace(/'/g,"&#39;"); 
var keyrifordinaz="keyrif tavolo='"+tavolo+"' "; keyrifordinaz=keyrifordinaz.replace(/'/g,"&#39;");
var regordinaz="../"+ckxml; operazordinaz="inserisci";
riford=tavolo+"/"+riford; var atbprod=new Array("rif_ord","prodotti","qta","stato"),atbprodv=new Array("","","",""); atbprodv[0]=riford; atbprodv[3]=0;

var ndt=new Array(),vdt=new Array(),irif=nrec=0,newkey1=keyrif1=operaz1=regdamod2=operaz2=keyrif2=azione=reg=""; reg="gestione_tavoli.xml";
var lskrif=nvarxml2.getElementsByTagName("keyrif"); for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; if(lsatb[0].value==tavolo){irif=i;break;}} 
var lskey=lskrif[irif].getElementsByTagName("key"); for(i=0;i<lskey.length;i++){var lsatb=lskey[i].attributes; tav=lsatb[0].value; 
if(tav==tavolo){trv=1;break;} } keyrif1=newkey1="key "; 
for(i=0;i<lsatb.length;i++){ndt[i]=lsatb[i].nodeName; vdt[i]=lsatb[i].value; } for(i=0;i<ndt.length;i++){keyrif1=keyrif1+ndt[i]+"='"+vdt[i]+"' ";}keyrif1=keyrif1+"/>"; 
for(i=0;i<ndt.length;i++){if(ndt[i]=="lp"+azlivp){vdt[i]="1"; }} 
for(i=0;i<ndt.length;i++){newkey1=newkey1+ndt[i]+"='"+vdt[i]+"' ";}newkey1=newkey1+"/>"; 
regdamod1="../"+wsprcreg+"/"+reg; keyrif1=keyrif1.replace(/'/g,"&#39;"); newkey1=newkey1.replace(/'/g,"&#39;"); 
str="<form id='frmnewraz' target='popup' style='display:block'> "; azione="modifica key gestione_tavoli.xml";
str=str+"<input type='text' name='regdamod1' value='"+regdamod1+"' /><input type='text' name='rifkey1' value='"+keyrif1+"' /> <input type='text' name='regdamod2' value='"+regdamod2+"' /><input type='text' name='rifkey2' value='"+rifkey2+"' /> <input type='text' name='newkey1' style='width:100%;' value='"+newkey1+"' /> <input type='text' name='newkey2' style='width:100%;' value='"+newkey2+"' /> <input type='text' name='azione' style='width:100%;' value='"+azione+"' /> </form>";
document.getElementById("livp0").innerHTML=str; var frm=document.getElementById("frmnewraz"); msg="il registro <b>"+reg+"</b> e' stato aggiornato";
frm.action="gestserver1/modifica_key.asp"; frm.target="popup"; frm.method="post"; frm.submit(); mostraerpiu(msg); 
/**/setTimeout(()=>registraordinaz(regordinaz,operazordinaz,keyrifordinaz,newkeyordinaz,regdamod2,operaz2,keyrif2,newkey2,nrec),1500); 
}

function conferma_chiudi_ordinazione0(tavolo,sala,obj,prov){ percorso=percorso+"conferma_chiudi_ordinazione0; ";
var rifasp="gestserver1/dammi_data.asp"; window.open(rifasp,"popup"); ckxml=wsprcreg+"/gestione_tavoli.xml"; /*alert(ckxml);*/ var aa=leggireg(ckxml); 
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; /*alert(ckxml);*/ var bb=leggireg3(ckxml); 
ckxml=wsprcreg+"/accredsect.xml"; /*alert(ckxml);*/ var cc=leggireg2(ckxml); setTimeout(()=>conferma_chiudi_ordinazione(tavolo,sala,obj,prov),500); 
}

function conferma_chiudi_ordinazione(tavolo,sala,obj,liberatavolo){ percorso=percorso+"conferma_chiudi_ordinazione; "; 
/*alert("conferma_chiudi_ordinazione\n"+tavolo+"\n"+sala+"\n"+textcont);*/
var msg=riford=lsprod=lsprz=lsqta=lspos=lsstati=rep=repp=sal=avv=cf=ndn=capotavola=textcont=colcont="",i=j=k=numprod=p1=irif=coperti=servizio=chiusa=0,lsposar=new Array(),repar=new Array();
if(tavolo==null){var tavolo=document.getElementById("codtav").value; var p1=0; p1=tavolo.indexOf("_"); var sala=tavolo.slice(0,p1);} /*alert(tavolo+"\n"+sala);*/

if(obj==null){riftv=document.getElementById("codtav"); textcont=riftv.innerText; colcont=riftv.style.backgroundColor; }else{textcont=obj.textContent; colcont=obj.style.backgroundColor;}

  /* alert(tavolo+"\n"+sala+"\n"+textcont+"\n"+colcont);*/ if(sala=="casa"){tavolo=textcont;}
if(sala!="casa"){p1=tavolo.indexOf("_"); if(p1>-1){sala=tavolo.slice(0,p1); }if(p1==-1){msg="** ERRORE ** il codice del tavolo manca o non è corretto";mostraer("");mostraer(msg);return; } }
if(tavolo==""){msg="** ATTENZIONE ** la chiusura non può essere eseguita in quanto non è stato indicato alcun tavolo";  mostraerpiu(msg); return; }
else{msg="chiusura ordinazione dal tavolo <b>"+tavolo+"</b></br>"; mostraerpiu(msg);} 
/*ckxml=wsprcreg+"/gestione_tavoli.xml"; var cc=leggireg(ckxml); */ /*alert(http_request3.responseText);alert(http_request2.responseText);*/
/*keyrif tavolo='capri_2' rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='quantitativi' rif4='costi' rif5='stati'*/
var ndt=new Array(),vdt=new Array(riford,lspos,lsprod,lsqta,lsprz,lsstati),irif=jrif=nrec=0,newkeyordinaz=keyrif1=operaz1=regdamod2=operaz2=keyrif2=""; 
var lskrif=nvarxml.getElementsByTagName("keyrif"); for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; sal=lsatb[0].value; /*alert(sal+"\n"+sala); */ 
if(sal.indexOf(sala)>-1){irif=i;trv=1;break;}} 
var lskey=lskrif[irif].getElementsByTagName("key"); /*alert(lskey.length);*/
if(lskey.length>0){ for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; /*alert(lsatbkey[0].value+"\n"+tavolo);*/ if(lsatbkey[0].value==tavolo){
if(sala=="casa"){avv=lsatbkey[1].value;chiusa=1;}else{avv=lsatbkey[2].value;coperti=lsatbkey[1].value*1; chiusa=lsatbkey[13].value;} break; } } } /*alert(coperti);*/ capotavola=avv;
if(chiusa==1&&(tipop!="wsm"&&tipop!="caposala")){msg="** ATTENZIONE ** l'ordinazione è già stata chiusa"; mostraer(msg); return; }
/*alert("(tipop=wsm): "+(tipop=="wsm"))*/ /*alert(tipop+"\n"+avv+"\n"+capotavola);*/
/*if((tipop=="wsm"||tipop=="caposala")&&tavolo.indexOf("caposala")==-1)*/
if(tipop=="caposala"||tipop==("capotavola")||tipop=="avventore"){/*legge i dati dell'ospite*/ p1=avv.lastIndexOf("|"); cf=avv.slice(p1+1); /*alert(cf);*/ 
/*ckxml=wsprcreg+"/accredsect.xml"; var cc=leggireg(ckxml);*/
var listkeyrif=nvarxml2.getElementsByTagName("keyrif");  
for(i=0;i<listkeyrif.length;i++){var sect=listkeyrif[i].attributes[0].value; if(sect=="ospiti"){ irif=i; break;}} 
var listkey=listkeyrif[irif].getElementsByTagName("key"); var numkey=listkey.length; 
for(j=0;j<numkey;j++){if(listkey[j].attributes[0].value==cf){ trovato=1; jrif=j; break;}} 
azdtopsect=[];azdtopsectv=[]; 
var lsatb=listkey[jrif].attributes;ind=0; for(k=0;k<lsatb.length;k++){ndn=lsatb[k].nodeName; azdtopsect[ind]=ndn; azdtopsectv[ind]=lsatb[k].value; ind++; } 
/*for(j=0;j<azdtopsect.length;j++){azdtopsectv[j]=listkey[indk].attributes.getNamedItem(azdtopsect[j]).value; if(azdtopsect[j]=="tipoper"){tipop=azdtopsectv[j];} }*/
/*alert(azdtopsect+"\n"+azdtopsectv); */
}

if(tipop=="avventore"||tipop=="acquirente"){p1=avv.lastIndexOf("|"); var ml=avv.slice(0,p1),nom=avv.slice(p1+1); capotavola=cred3+"|"+cred1; 
/*alert(cred1+"-"+cred2+"-"+cred3+"-"+capotavola);*/
/*
var listkeyrif=nvarxml2.getElementsByTagName("keyrif");  
for(i=0;i<listkeyrif.length;i++){var sect=listkeyrif[i].attributes[0].value; if(sect=="ospiti"){ irif=i; break;}} 
var listkey=listkeyrif[irif].getElementsByTagName("key"); var numkey=listkey.length; 
for(j=0;j<numkey;j++){if(listkey[j].attributes[0].value==cf){ trovato=1; jrif=j; break;}} 
azdtopsect=[];azdtopsectv=[]; 
var lsatb=listkey[jrif].attributes;ind=0; for(k=0;k<lsatb.length;k++){ndn=lsatb[k].nodeName; azdtopsect[ind]=ndn; azdtopsectv[ind]=lsatb[k].value; ind++; } 
*/
}

/*ckxml=wsprcreg+"/gestione_ordinazioni.xml"; leggireg3(ckxml); */
var lskrif=nvarxml3.getElementsByTagName("keyrif"),ndt=new Array(),vdt=new Array(),prar=new Array(),qar=new Array(),przar=new Array();
var costocompl=costo=costoscont=sconto=puntitot=irif=ik=i=j=k=n=nz=nliv=numtav=p1=trv=0,tav=str=elenco=tipord=rsc="";
if(sala=="casa"){tipord="Ordinazione da casa";}if(sala!="casa"){tipord="Ordinazioni dal tavolo";}
str="<center><table style='table-layout:auto;font-size:"+azfont2+"px'><tr><th colspan=6> "+tipord+" </br>"+tavolo+" <button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button><div id='captav' style='display:none'>"+capotavola+"</div> </th></tr>"; /*alert(str);*/
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; /*alert(lsatb[0].value+"\n"+tavolo+"\n"+(lsatb[0].value==tavolo));*/
if(lsatb[0].value==tavolo){irif=i; trv=1; for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; } } break; /*alert(ndt);*/ } }
/*str=str+"<tr><th>N</th>"; for(k=0;k<ndt.length;k++){ if(ndt[k]!="reparti"){ str=str+"<th>"+ndt[k]+"</th>";}else{nz=k;} } str=str+"</tr>"; */
if(trv==0){ msg="**ATTENZIONE ** per il tavolo <b>"+tavolo+"</b> in gestione_ordinazioni non sono presenti chiavi"; mostraer(msg); return;}
var lskey=lskrif[irif].getElementsByTagName("key");/*alert(lskey.length); */
if(lskey.length>0){
for(j=0;j<lskey.length;j++){vdt=[]; var lsatbkey=lskey[j].attributes; 
str=str+"<tr><th colspan=3>livp_"+(lskey.length-j)+": *  "+lsatbkey[0].value+" * "+lsatbkey[5].value.slice(1)+" </th></tr><tr><th>elemento</th><th>qta</th><th>costo</th></tr>"; 
prar=[];qar=[];przar=[];
for(k=1;k<lsatbkey.length;k++){/*alert(lsatbkey[k].value);*/ vdt[k]=lsatbkey[k].value; /*if(k>1){vdt[k]=vdt[k].slice(1);}*/} 
/*if(vdt[2].indexOf(",")>-1){ }*/ prar=vdt[2].split(",");qar=vdt[3].split(",");prz=vdt[4].split(","); /*elenco=elenco+"n."+vdt[2]+" "+vdt[3]+"="+vdt[4]+"</br>";*/
for(k=1;k<prar.length;k++){str=str+"<tr><td>"+prar[k]+"</td><td>"+qar[k]+"</td><td>"+prz[k]*qar[k]+"</td></tr>"; costo=costo+(prz[k]*qar[k]);
elenco=elenco+"n."+qar[k]+" "+prar[k]+"="+prz[k]*qar[k]+"</br>"; rsc=rsc+"|"+prar[k]+"_"+qar[k];} /*alert("costo="+costo);*/
}
}  /*alert(elenco);*/
var punti=puntiprec=puntimax=0,strsconto="";  
if(sala=="casa"){servizio=(costo*0.1).toFixed(2); costocompl=costo*1+servizio*1; }else{servizio=(costo*0.13).toFixed(2); costocompl=costo*1+servizio*1+coperti*2; } 
/*alert(azdtopsect+"\n"+azdtopsectv+"\n"+costocompl+"\n"+puntiprec+"\n"+puntimax); costocompl=costocompl.toFixed(2);*/
/*if(tipop!="caposala")*/ /*alert(capotavola);*/
if(capotavola.indexOf("caposala")==-1){ puntiprec=azdtopsectv[8]*1; puntimax=azdtopsectv[9]*1; /*puntimax=5;*/punti=(costocompl/10).toFixed(2);puntitot=puntiprec*1+punti*1; puntitot=puntitot.toFixed(2); /*alert(puntiprec+"\n"+puntitot);*/ if(puntitot>puntimax){costoscont=(costocompl*0.8).toFixed(2); sconto=costoscont=(costocompl*0.2).toFixed(2);  puntitot=0; /*var pp=calcolapunti(costocompl);*/
strsconto="<tr><th colspan=3 style='text-align:left;font-weight:thin;' >con tale ordinazione superi il punteggio massimo; pertanto:</br><li>al costo scontato del 20% <mark>paghi solo: "+costoscont+" euro</mark></li><li>il punteggio ti viene azzerato.</th></tr>"; }} /*alert("chiusa="+chiusa);*/
/*if(chiusa==0){*/
if(sala!="casa"){str=str+"<tr style='text_align:right;'><th colspan=2 style='text_align:right;'>Totale </th><th style='text_align:right;'>"+costo+"</th></tr><tr><th colspan=2 style='text_align:right;'>n."+coperti+" coperti </th><th style='text_align:right;'>"+coperti*2+"</tr><tr><th colspan=2 style='text_align:right;'> servizio al 13% </th><th style='text_align:right;'>"+servizio+"</th></tr><tr><th colspan=3><mark>TOTALE COMPLESSIVO: "+costocompl+" euro</mark></th></tr>";}
if(sala=="casa"){str=str+"<tr style='text_align:right;'><th colspan=2 style='text_align:right;'>Totale </th><th style='text_align:right;'>"+costo+"</th></tr><tr><th colspan=2 style='text_align:right;'>confezione+spedizione al 10% </th><th style='text_align:right;'>"+servizio+"</th></tr><tr><th colspan=3><mark>TOTALE COMPLESSIVO: "+costocompl+" euro</mark></th></tr>";} 
/*if(tipop!="caposala")*/ if(capotavola.indexOf("caposala")==-1){
str=str+"<tr><th colspan=3><p style='text-align:left; backgorund-color:"+wscl[3]+";color:"+wscl[4]+";'>punti acquisiti = "+punti+"</br>punti precedenti = "+puntiprec+"</br>punti registrati = "+puntitot+"</p></th></tr>"+strsconto;
}
elenco=elenco.replace(/\</g,"|"); 
/*if(tipop!="wsm"&&tipop!="caposala")*/
if(tipop!="wsm"&&(colcont!=("rgb(255, 0, 255)")&&colcont!=("rgb(204, 0, 204)"))){str=str+"<tr><th colspan=3>Confermi</br><mark>la chiusura delle ordinazioni? </mark></th></tr><tr><th colspan=3><table><tr> <td style='text-align:center'> <button onclick='chiudi_ordinazione(\""+sala+"\",\""+tavolo+"\",\""+coperti+"\",\""+elenco+"\",\""+costo+"\",\""+costocompl+"\",\""+sconto+"\",\""+puntitot+"\");/*chiudimodshort();*/'>SI</button> </td> <td style='text-align:center'><button onclick='chiudimodshort()'>NO</button> </td></tr></table></th> </tr></table>";}
else{str=str+"<tr><th colspan=3></br><mark>PAGATO? </mark></th></tr><tr><th colspan=3><table><tr> <td style='text-align:center'> <button onclick='tavolo_saldato0(\""+sala+"\",\""+tavolo+"\",\""+coperti+"\",\""+elenco+"\",\""+costo+"\",\""+costocompl+"\",\""+sconto+"\",\""+puntitot+"\",\""+rsc+"\",\""+capotavola+"\"); '>SI</button> </td> <td style='text-align:center'><button onclick='document.getElementById(\"modshort2\").style.display=\"none\"'>NO</button> </td></tr></table></th> </tr></table>";}
/*<button onclick='tavolo_saldato(\""+sala+"\",\""+tavolo+"\",\""+coperti+"\",\""+elenco+"\",\""+costo+"\",\""+costocompl+"\",\""+sconto+"\",\""+puntitot+"\");'>SI</button> </td> <td style='text-align:center'><button onclick='chiudimodshort()'>NO</button> </td></tr></table></th> </tr></table>";}*/
/*<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button> <!--<input type='text' id='confchiusord' style='display:block' value=''>--> </br>Ordinazione di:</br>"+*/
istmds.innerHTML=str; istmds.style.display="block"; istmds.style.zIndex=1; /*alert(str);*/
ckxml=wsprcreg+"/resoconto_giornaliero.xml"; leggireg3(ckxml);
if(liberatavolo!=null&&liberatavolo=="ok"){libera_tavolo(sala,tavolo,avv,rsc,costocompl);return;}
/*str=str.replace(/'/g,"&#39;"); str=str.replace(/</g,"&#60;"); document.getElementById(confchiusord).value=str;*/
}

function libera_tavolo(sala,tavolo,avv,rsc,conto){ percorso=percorso+"libera_tavolo; "; /*var resocontopranzo=istmds.innerHTML;*/
/*alert(http_request.responseText); alert(http_request2.responseText); alert(http_request3.responseText);*/
/*resocontopranzo=resocontopranzo.replace(/</g,"&#60;"); alert("\nresocontopranzo="+resocontopranzo);*/ 
/*alert("libera_tavolo\nsala="+sala+"\navv="+avv+"\nrsc="+rsc+"\nconto="+conto);
ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml);  */var lskrif=nvarxml.getElementsByTagName("keyrif");
if(sala=="casa"){msg="** ATTENZIONE ** i tavoli della sala casa non possono essere liberati"; mostraer(msg); return; }
var ndt=new Array(),vdt=new Array(),hk=reg=reg1=indreg=indreg1=rifsez0=rifsez1=sal=tav=rep="",i=j=k=irif=0; 
reg="gestione_tavoli.xml"; hk="key ";
for(i=0;i<lskrif.length;i++){var lsatbrif=lskrif[i].attributes; sal=lsatbrif[0].value; if(sal.indexOf(sala)>-1){irif=i;trv=1;break; }}
var lskey=lskrif[irif].getElementsByTagName("key");
if(lskey.length>0){for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; tav=lsatbkey[0].value; if(tav==tavolo){trv=1;break; } } } /*alert(coperti);*/
for(i=0;i<lsatbkey.length;i++){ndt[i]=lsatbkey[i].nodeName;vdt[i]=lsatbkey[i].value;}for(i=0;i<ndt.length;i++){hk=hk+ndt[i]+"='"+vdt[i]+"' ";}hk=hk+"/>"; /*alert(hk);*/
/*hk="<"+hk;*/ indreg=""+wsprcreg+"/"+reg; azione="eliminakey"; vdt[1]="";vdt[2]=""; for(i=3;i<17;i++){vdt[i]=0; }
/*var newk="key "; for(i=0;i<ndt.length;i++){newk=newk+ndt[i]+"='"+vdt[i]+"' "; } newk=newk+" />"; */ var newk="";
setTimeout(()=>insertmodelkey(hk,indreg,newk,rep,azione),500); 
msg=msg+"da libera_tavolo: il registro "+reg+" è stato aggiornato</br>"; 
reg1="gestione_ordinazioni.xml"; indreg1=wsprcreg+"/"+reg1; rifsez0="keyrif tavolo='"+tavolo+"' "; rifsez1="/keyrif";
setTimeout(()=>eliminakeyrif(indreg1,rifsez0,rifsez1),1000);
msg=msg+"da libera_tavolo: il registro "+reg1+" è stato aggiornato</br>"; 
mostraerpiu(msg); 
istmds.innerHTML=""; istmds.style.display="none";  
}


/*
function libera_tavolo(sala,tavolo,avv,rsc,conto){ percorso=percorso+"libera_tavolo; ";
var rifasp="https://www.servizinterattivi.it/ptdmsg/gestserver1/dammi_data.asp"; window.open(rifasp,"popup"); 
ckxml=wsprcreg+"/resoconto.xml"; leggireg(ckxml); var lskrif=nvarxml.getElementsByTagName("keyrif"); var i=irif=trv=0,gg="";
if(lskrif.length==0){trv=0;}
if(lskrif.length>0){for(i=0;i<lskrif.length;i++){var lsatbrif=lskrif[i].attributes; gg=lsatbrif[0].value; if(gg==azoggi){irif=i;trv=1;break; }} }
if(trv==1){msg="in resoconto.xml la sezione keyrif di oggi è già presente"; mostraer(msg); }
if(trv==0){msg="in resoconto.xml la sezione keyrif di oggi manca; quindi viene generata"; mostraer(msg); 
var indreg1="../"+wsprcreg+"/resoconto.xml",krif1="resoconto.xml ";
var newk1="keyrif giorno='"+azoggi+"' rif0='ospite' rif1='sala' rif2='rsc' rif3='conto' >"; 
var rifasp="gestserver1/insertkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&rep="+rep; window.open(rifasp,"popup"); }
var indreg1="../"+wsprcreg+"/resoconto.xml"; var newk1="key ospite='"+avv+"' sala='"+sala+"' rsc='"+rsc+"' conto='"+conto+"' />"; var krif1="keyrif giorno='"+azoggi+"' ";
azpausa=0; while(azpausa<10000000){azpausa=azpausa+1;} azpausa=0; 
registrakey(indreg1,newk1,krif1); 
msg="il registro di resoconto è stato aggiornato"; mostraerpiu("</br>"+msg);
ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml); var lskrif=nvarxml2.getElementsByTagName("keyrif"); 
var ndt=new Array(),vdt=new Array(),hk=reg=indreg=sal=tav="",i=j=k=0; reg="gestione_tavoli.xml"; hk="key ";
for(i=0;i<lskrif.length;i++){var lsatbrif=lskrif[i].attributes; sal=lsatbrif[0].value; if(sal.indexOf(sala)>-1){irif=i;trv=1;break; }}
var lskey=lskrif[irif].getElementsByTagName("key");
if(lskey.length>0){for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; tav=lsatbkey[0].value; if(tav==tavolo){trv=1;break; } } } 
for(i=0;i<lsatbkey.length;i++){ndt[i]=lsatbkey[i].nodeName;vdt[i]=lsatbkey[i].value;}for(i=0;i<ndt.length;i++){hk=hk+ndt[i]+"='"+vdt[i]+"' ";}hk=hk+"/>";
indreg=wsprcreg+"/"+reg; 
azpausa=0; while(azpausa<10000000){azpausa=azpausa+1;} msg="il registro gestione_tavoli è stato aggiornato</br>";  eliminakeysmp(indreg,hk);
azpausa=0;
while(azpausa<10000000){azpausa=azpausa+1;}
reg="gestione_ordinazioni.xml"; indreg=wsprcreg+"/"+reg; rifsez0="keyrif tavolo='"+tavolo+"' "; rifsez1="/keyrif";
msg=msg+"il registro "+reg+" è stato aggiornato</br>"; 
eliminakeyrif(indreg,rifsez0,rifsez1);
}
*/

/*
function tavolo_saldato0(sala,tavolo,coperti,elenco,costo,costocompl,sconto,puntitot,rsc){ percorso=percorso+"tavolo_saldato0; "+"tavolo_saldato0\nsala="+sala+"\ntavolo="+tavolo+"\ncoperti="+coperti+"\nelenco="+elenco+"\ncostocompl="+costocompl+"\nsconto="+sconto+"\npuntitot="+puntitot+"\nrsc="+rsc; 
alert(88);
}
*/

function tavolo_saldato0(sala,tavolo,coperti,elenco,costo,costocompl,sconto,puntitot,rsc,cptv){ percorso=percorso+"tavolo_saldato0; "; 
/*alert("tavolo_saldato\nsala="+sala+"\ntavolo="+tavolo+"\ncoperti="+coperti+"\nelenco="+elenco+"\ncostocompl="+costocompl+"\nsconto="+sconto+"\npuntitot="+puntitot+"\nrsc="+rsc);*/
/*alert(http_request.responseText); alert(http_request2.responseText); alert(http_request3.responseText); */
var lskrif=nvarxml3.getElementsByTagName("keyrif"); var i=irif=trv=0,gg=rep=msg="";
if(lskrif.length==0){trv=0;}
if(lskrif.length>0){for(i=0;i<lskrif.length;i++){var lsatbrif=lskrif[i].attributes; gg=lsatbrif[0].value; if(gg==azoggi){irif=i;trv=1;break; }} }
if(trv==1){msg="da tavolosaldato0: in resoconto_giornaliero la sezione keyrif di oggi è già presente</br>"; mostraer(msg); }
if(trv==0){msg="da tavolosaldato0: in resoconto_giornaliero la sezione keyrif di oggi manca; quindi viene generata</br>"; mostraer(msg); /*generakrifresoconto(ospite,sala,rsc,costocompl);*/var indreg1=""+wsprcreg+"/resoconto_giornaliero.xml",krif1="resoconto_giornaliero.xml ";
var newk1="keyrif giorno='"+azoggi+"' rif0='riford' rif1='rscelem' rif2='rscqta' rif3='saldato' >"; azione1="inserisci";
insertmodelkey(krif1,indreg1,newk1,rep,azione1);
/*var indreg2=""+wssect+"/resoconto_giornaliero.xml",krif2="keyrif giorno='"+azoggi+"' ";var newk2="/keyrif>"; azione2="inserisci";
setTimeout(()=>insertmodelkey(krif2,indreg2,newk2,rep,azione2),300);*/
} 
/*timerwait=*/setTimeout(()=>tavolo_saldato(sala,tavolo,coperti,elenco,costo,costocompl,sconto,puntitot,rsc,cptv),300);
}

function tavolo_saldato(sala,tavolo,coperti,elenco,costo,costocompl,sconto,puntitot,rsc,cptv){ percorso=percorso+"tavolo_saldato; "; /*var resocontopranzo=istmds.innerHTML;*/
/*resocontopranzo=resocontopranzo.replace(/</g,"&#60;"); alert("\nresocontopranzo="+resocontopranzo);*/ 
/*alert("tavolo_saldato\nsala="+sala+"\ntavolo="+tavolo+"\ncoperti="+coperti+"\nelenco="+elenco+"\ncostocompl="+costocompl+"\nsconto="+sconto+"\npuntitot="+puntitot+"\nrsc="+rsc);*/
var ndt=new Array(),vdt=new Array(),irif=jrif=nrec=0,newkey1=newkey2=hk1=operaz1=regdamod2=operaz2=hk2=azione=reg=sal=tav=cf=ccff=set=rep="",i=j=k=p1=ind=0; 
var ospite=msg=""; ospite=cptv; /*alert(ospite);*/
var dest=mit=ogg=msgg=riford=""; p1=ospite.lastIndexOf("|"); /*cf=ospite.slice(p1+1); alert(cf);*/
if(ospite.indexOf("caposala")==-1){
var mmail=ospite.slice(0,p1),ccogn=ospite.slice(p1+1); var lsk=nvarxml2.getElementsByTagName("key"); 
for(i=0;i<lsk.length;i++){var lsatb=lsk[i].attributes; if(lsatb[2].value==mmail&&lsatb[3].value==ccogn){ind=i; break; } }
lsatb=lsk[ind].attributes; for(i=0;i<lsatb.length;i++){ndt[i]=lsatb[i].nodeName; vdt[i]=lsatb[i].value; } /*alert(ndt+"\n\n"+vdt);*/
}
var rifasp="gestserver1/dammi_data.asp"; window.open(rifasp,"popup"); /*alert(azoggi); return;*/
/* *** invia il conto online *** */
riford=azdatas1.slice(0,(azdatas1.length-1));
dest=vdt[2]; mit="info@servizinterattivi.it"; ogg="Azienda "+datiaccredv[2]; 
if(sala!="casa"){var rifcop="<li>n."+coperti+" coperti = "+coperti*2+"</li>",plus="<li> servizio 13% = "+(costo*0.13).toFixed(2)+"</li>";}
if(sala=="casa"){var rifcop="",plus="<li> confezione+spedizione 10% = "+(costo*0.1).toFixed(2)+"</li>";}
elenco=elenco.replace(/\|/g,"<");
msgg="Resoconto del pranzo ordinato dal capotavola identificato da "+ospite+" saldato in data "+riford+"</br>"+elenco+"</br>"+rifcop+plus+"<li><mark>TOTALE COMPLESSIVO: "+costocompl+" euro</mark></li><li>punti registrati = "+puntitot+"</li><li> sconto="+sconto; /*alert(rifasp);*/
inviamail(msgg,ogg,dest,mit);
msg=msg+"da tavolosaldato: all'indirizzo mail registrato è stato inviato copia del conto.</br>"; 
/*var rifasp="progasp/jsmail.asp?dest="+dest+"&mit="+mit+"&ogg="+ogg+"&msgg="+msgg; window.open(rifasp,"risp");return;*/ 
/* *** modifica gestione_tavoli *** */
/*ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml); */
reg="gestione_tavoli.xml"; newkey1="key "; 
var lskrif2=nvarxml.getElementsByTagName("keyrif"); ndt=[]; vdt=[];
for(i=0;i<lskrif2.length;i++){var lsatbrif=lskrif2[i].attributes; sal=lsatbrif[0].value; if(sal.indexOf(sala)>-1){irif=i;trv=1;break; }}
var lskey=lskrif2[irif].getElementsByTagName("key");
if(lskey.length>0){for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; tav=lsatbkey[0].value; if(tav==tavolo){trv=1;break; } } } /*alert(coperti);*/
for(i=0;i<lsatbkey.length;i++){ndt[i]=lsatbkey[i].nodeName;vdt[i]=lsatbkey[i].value;}for(i=0;i<ndt.length;i++){hk1=hk1+ndt[i]+"='"+vdt[i]+"' ";}hk1=hk1+"/>";
for(i=0;i<ndt.length;i++){if(ndt[i]=="saldata"){vdt[i]="1"; }} 
for(i=0;i<ndt.length;i++){newkey1=newkey1+ndt[i]+"='"+vdt[i]+"' ";}newkey1=newkey1+"/>"; /*alert("newkey1="+newkey1);*/
var regdamod1=""+wsprcreg+"/"+reg; var azione1="sostituisci";
msg=msg+"da tavolosaldato: gestione_tavoli è stato aggiornato</br>."; 
/*alert("reg="+ckxml+"\nndt="+ndt+"\nvdt="+vdt+"\nhk1="+hk1+"\nregdamod1"+regdamod1+"\nnewkey1="+newkey1); *//*clearTimeout(timerwait); timerwait=*/
setTimeout(()=>insertmodelkey(hk1,regdamod1,newkey1,rep,azione1),000); 
if(ospite.indexOf("caposala")==-1){var regdamod2=hk2=newkey2=azione2=""; ndt=[]; vdt=[]; hk2="key ";
/* *** modifica accredsect *** */   /* alert(datiazxml.responseText); */ 
var captav=document.getElementById("captav").innerText; p1=captav.indexOf("|");
var mailct=captav.slice(0,p1),cognct=captav.slice(p1+1); /*alert(mailct+"\n"+cognct);*/
reg="accredsect.xml"; newkey2="key ";
var lskrif=nvarxml2.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif.length;i++){var lsatbrif=lskrif[i].attributes; set=lsatbrif[0].value; if(set=="ospiti"){irif=i;trv=1;break; }} /*alert(set);*/
var lskey=lskrif[irif].getElementsByTagName("key");/*ccff=lsatbkey[0].value; if(ccff==cf){trv=1;break; }*/
if(lskey.length>0){for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; if(lsatbkey[2].value==mailct&&lsatbkey[3].value==cognct){trv=1;jrif=j;break;}  } } /*alert(lsatbkey[2].value==mailct&&lsatbkey[3].value==cognct);*/var lsatbk=lskey[jrif].attributes;
for(i=0;i<lsatbk.length;i++){ndt[i]=lsatbk[i].nodeName;vdt[i]=lsatbk[i].value;} /*alert(ndt+"\n"+vdt);*/ for(i=0;i<ndt.length;i++){hk2=hk2+ndt[i]+"='"+vdt[i]+"' ";}hk2=hk2+"/>"; 
/*alert("hk2="+hk2);*/
for(i=0;i<ndt.length;i++){if(ndt[i]=="punti"){vdt[i]=puntitot; }} 
for(i=0;i<ndt.length;i++){newkey2=newkey2+ndt[i]+"='"+vdt[i]+"' ";}newkey2=newkey2+"/>"; /*alert("newkey2="+newkey2);*/
regdamod2=""+wsprcreg+"/"+reg; azione2="sostituisci";
msg=msg+"da tavolosaldato: accredsect è stato aggiornato</br>."; 
setTimeout(()=>insertmodelkey(hk2,regdamod2,newkey2,rep,azione2),1500); 
}
/* *** modifica resoconto_giornaliero *** */ 
rsc=rsc.slice(1); var elemar=new Array(),qtaar=new Array(),elemsingar=new Array(),qtasingar=new Array(),i=j=p1=ind=trv=0;elemar=rsc.split("|"); 
for(i=0;i<elemar.length;i++){p1=elemar[i].indexOf("_"); qtaar[i]=elemar[i].slice(p1+1); elemar[i]=elemar[i].slice(0,p1); } /*alert("elemar="+elemar+"\nqtaar="+qtaar); */
for(i=0;i<elemar.length;i++){if(elemsingar.length==0){elemsingar[ind]=elemar[i]; qtasingar[ind]=qtaar[i]; ind++; }
else{ trv=0; for(j=0;j<elemsingar.length;j++){if(elemar[i]==elemsingar[j]){trv=1; qtasingar[j]=(qtasingar[j]*1+qtaar[i]*1); break;}} 
if(trv==0){elemsingar[ind]=elemar[i]; qtasingar[ind]=qtaar[i]; ind++; } 
} }  /*alert("elemsingar="+elemsingar+"\nqtasingar="+qtasingar);*/ 
var newkey3="key riford='"+riford+"' rscelem='"+elemsingar+"' rscqta='"+qtasingar+"' saldato='"+costocompl+"' />"; 
reg="resoconto_giornaliero.xml"; var hk3="keyrif giorno='"+azoggi+"' ";
var regdamod3=""+wsprcreg+"/"+reg; var azione3="inserisci";
msg=msg+"da tavolosaldato: resoconto_giornaliero è stato aggiornato</br>."; 
/*clearTimeout(timerwait); timerwait=*/setTimeout(()=>insertmodelkey(hk3,regdamod3,newkey3,rep,azione3),2500); 
mostraer(msg); /*alert(msg);*/
istmds.innerHTML=""; istmds.style.display="none";  /**/
/*if(tipop!="wsm"){if(azmonit=="fisso"){ istdoc.innerHTML="";}else{istmobdoc.innerHTML=""; }} mostraer(msg);*/
}

/*
function tavolo_saldato(sala,tavolo,coperti,elenco,costo,costocompl,sconto,puntitot){ percorso=percorso+"tavolo_saldato; "; 
var ospite=document.getElementById("captav").innerText,msg="";
var ndt=new Array(),vdt=new Array(),irif=nrec=0,newkey1=newkey2=hk1=operaz1=regdamod2=operaz2=hk2=azione=reg=sal=tav=cf=ccff=set="",i=j=k=p1=0; 
reg="gestione_tavoli.xml"; newkey1="key ";
var dest=mit=ogg=msgg=riford=""; p1=ospite.lastIndexOf("|"); cf=ospite.slice(p1+1); 
var rifasp="https://www.servizinterattivi.it/ptdmsg/gestserver1/dammi_data.asp"; window.open(rifasp,"popup"); 
riford=azdatas1.slice(0,(azdatas1.length-1));
dest=azdtopsectv[3]; mit="info@servizinterattivi.it"; ogg="Resoconto del pranzo presso la "+datiaccredv[0]+" saldato in data "+riford;
if(sala!="casa"){var rifcop="<li>n."+coperti+" coperti = "+coperti*2+"</li>",plus="<li> servizio 13% = "+(costo*0.13).toFixed(2)+"</li>";}
if(sala=="casa"){var rifcop="",plus="<li> confezione+spedizione 10% = "+(costo*0.1).toFixed(2)+"</li>";}
msgg=elenco+"</br>"+rifcop+plus+"<li><mark>TOTALE COMPLESSIVO: "+costocompl+" euro</mark></li><li>punti registrati = "+puntitot+"</li><li> sconto="+sconto; 
var rifasp="gestserver1/jsmail.asp?dest="+dest+"&mit="+mit+"&ogg="+ogg+"&msgg="+msgg; window.open(rifasp,"popup");
msg=msg+"L'ordinazione è stata saldata. All'indirizzo mail registrato è stato inviato copia del conto.</br>"; 
ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml); 
var lskrif2=nvarxml2.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif2.length;i++){var lsatbrif=lskrif2[i].attributes; sal=lsatbrif[0].value; if(sal.indexOf(sala)>-1){irif=i;trv=1;break; }}
var lskey=lskrif2[irif].getElementsByTagName("key");
if(lskey.length>0){for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; tav=lsatbkey[0].value; if(tav==tavolo){trv=1;break; } } } 
for(i=0;i<lsatbkey.length;i++){ndt[i]=lsatbkey[i].nodeName;vdt[i]=lsatbkey[i].value;}for(i=0;i<ndt.length;i++){hk1=hk1+ndt[i]+"='"+vdt[i]+"' ";}hk1=hk1+"/>";
for(i=0;i<ndt.length;i++){if(ndt[i]=="saldata"){vdt[i]="1"; }} 
for(i=0;i<ndt.length;i++){newkey1=newkey1+ndt[i]+"='"+vdt[i]+"' ";}newkey1=newkey1+"/>"; 
regdamod1="../"+wsprcreg+"/"+reg; azione="modifica key di "+reg;
msg=msg+"gestione_tavoli è stato aggiornato</br>."; 
modificakey(regdamod1,hk1,newkey1,azione,regdamod2,hk2,newkey2);
if(ospite.indexOf("caposala")==-1){regdamod1=hk1=newkey1=azione=regdamod2=hk2=newkey2="";
ckxml=wsprcreg+"/accredsect.xml"; leggireg(ckxml); 
reg="accredsect.xml"; newkey1="key ";
var lskrif=nvarxml.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif.length;i++){var lsatbrif=lskrif[i].attributes; set=lsatbrif[0].value; if(set=="ospiti"){irif=i;trv=1;break; }}
var lskey=lskrif[irif].getElementsByTagName("key");
if(lskey.length>0){for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; ccff=lsatbkey[0].value; if(ccff==cf){trv=1;break; } } } 
for(i=0;i<lsatbkey.length;i++){ndt[i]=lsatbkey[i].nodeName;vdt[i]=lsatbkey[i].value;} for(i=0;i<ndt.length;i++){hk1=hk1+ndt[i]+"='"+vdt[i]+"' ";}hk1=hk1+"/>"; 
for(i=0;i<ndt.length;i++){if(ndt[i]=="punti"){vdt[i]=puntitot; }} 
for(i=0;i<ndt.length;i++){newkey1=newkey1+ndt[i]+"='"+vdt[i]+"' ";}newkey1=newkey1+"/>"; 
regdamod1="../"+wsprcreg+"/"+reg; azione="modifica key di "+reg;
msg=msg+"accredsect è stato aggiornato</br>."; 
azpausa=0; while(azpausa<10000000){azpausa++;} document.getElementById("footer").innerHTML=""; azpausa=0;
modificakey(regdamod1,hk1,newkey1,azione,regdamod2,hk2,newkey2);
}
chiudimodshort(); istdoc.innerHTML="";
if(azmonit=="mobile"){istdoc.style.zIndex=-1; istselpiani.style.zIndex=-1; istselcap.style.zIndex=-1; istintestaz0.style.zIndex=1;}
mostraer(msg);
}
*/

function chiudi_ordinazione(sala,tavolo,coperti,elenco,costo,costocompl,sconto,puntitot){ percorso=percorso+"chiudi_ordinazione; "; /*var resocontopranzo=istmds.innerHTML;*/
ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml); 
var ndt=new Array(),vdt=new Array(),irif=nrec=0,newkey1=newkey2=hk1=operaz1=regdamod2=operaz2=hk2=azione=reg=sal=tav="",i=j=k=0; reg="gestione_tavoli.xml"; newkey1="key ";
var lskrif2=nvarxml2.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif2.length;i++){var lsatbrif=lskrif2[i].attributes; sal=lsatbrif[0].value; if(sal.indexOf(sala)>-1){irif=i;trv=1;break; }}
var lskey=lskrif2[irif].getElementsByTagName("key");
if(lskey.length>0){for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; tav=lsatbkey[0].value; if(tav==tavolo){trv=1;break; } } } /*alert(coperti);*/
for(i=0;i<lsatbkey.length;i++){ndt[i]=lsatbkey[i].nodeName;vdt[i]=lsatbkey[i].value;}for(i=0;i<ndt.length;i++){hk1=hk1+ndt[i]+"='"+vdt[i]+"' ";}hk1=hk1+"/>";
for(i=0;i<ndt.length;i++){if(ndt[i]=="chiusa"){vdt[i]="1"; }if(ndt[i]=="costo"){vdt[i]=costocompl;}if(ndt[i]=="punti"){vdt[i]=puntitot;}} 
for(i=0;i<ndt.length;i++){newkey1=newkey1+ndt[i]+"='"+vdt[i]+"' ";}newkey1=newkey1+"/>"; /*alert("ndt="+ndt+"\nvdt="+vdt+"\nhk1="+hk1+"\nregdamod1"+regdamod1+"\nnewkey1="+newkey1);*/
/*
regdamod1="../"+wsprcreg+"/"+reg; azione="modifica key di "+reg;
modificakey(regdamod1,hk1,newkey1,azione,regdamod2,hk2,newkey2);  msg=""; mostraer(msg); 
*/

azione="sostituisci"; var indreg1=""+wsprcreg+"/"+reg,rep=""; insertmodelkey(hk1,indreg1,newkey1,rep,azione); chiudimodshort();
if(tipop!="wsm"&&tipop!="caposala"){istdoc.innerHTML="";if(azmonit=="mobile"){istdoc.style.zIndex=-1;istselpiani.style.zIndex=-1;istselcap.style.zIndex=-1; istintestaz0.style.zIndex=1;cred1=cred2=cred3="";}}
if(sala!="casa"){ msg="L'ordinazione è stata chiusa. Ora il capotavola deve attendere che il caposala porti il POS per effettuare il pagamento online, oppure deve recarsi dal gestore della ristorazione per il pagamento in moneta."; }
if(sala=="casa"){ msg="L'ordinazione è stata inviata e chiusa. Ora si deve attendere che quanto richiesto sia preparato, confezionato e spedito. Intanto potete preparare i soldi per il conto da saldare alla consegna."; }mostraer(msg);
/* *** aggiorna produzioni.xml di sala inserendo la oldk maggiorata dell'attributo reparto del registro di produzione del reparto *** */
/*<key rif_ord='capri_1/12_1_24_8_54_7' reparto='ristorante' prodotti=',carbonara,linguine agli scampi,spaghettini alla puttanesca' quantitativi=',1,1,2' stato='0' />*/
var riford=tavolo+"/"+azdatas1.slice(0,(azdatas1.length-1)); /*alert(riford);*/ rep="/sala_"+sala;
var newk2="key rif_ord='"+riford+"' reparto='"+rep+"' prodotti='conto complessivo da saldare: "+costocompl+"' quantitativi='1' stato='0' />";
var p1=0; p1=indreg1.indexOf(rep); var indreg2=""+wsprcreg+rep+"/produzioni.xml"; 
var krif2="/keyrif>"; 
var azione2="inserisci"; /**/setTimeout(()=>insertmodelkey(krif2,indreg2,newk2,rep,azione2),300); 



}

function rigeneraplancia(){percorso=percorso+"rigeneraplancia; ";  if(wssect==""){ wssect=document.getElementById("sel0").value;}
var indreg=document.getElementById("prcreg").value+"/gestione_tavoli.xml"; leggireg(indreg); var ckxml2=wsprcreg+"/gestione_ordinazioni.xml";leggireg3(ckxml);
var indreg2=document.getElementById("prcreg").value+"/capitolato.xml"; leggireg2(indreg2); /*alert(indreg+"\n\n"+indreg2);*/
/* var indreg0=wssect+"/gestione_tavoli.xml"; var aa=leggidatiaziendali2(indreg0); 
var indreg1=wssect+"/capitolato.xml"; var bb=leggidatiaziendali(indreg1); */
/*clearTimeout(timergest2);*/ setTimeout(()=>azmodgestavoli(),500);
 }

function azmodgestavoli(val){percorso=percorso+"azmodgestavoli; ";  var wscelvar="",cel="",i=0, j=0,t=tr=0,k=0,str=color=prov=rep="",nktavsal=new Array(); prov="azmodgestavoli"; 
/*alert(http_request.responseText);alert(http_request2.responseText);alert(http_request3.responseText); */
/*alert("azmodgestavoli\n"+reg);*/ /*alert(history.length);*//* alert(http_request.responseText);*/
/*alert("azmodgestavoli\nwsdatagesttav="+wsdatagesttav+"\nwslatmodf="+wslatmodf);alert(reg); */ /*wsmodalstop.style.display="none"; */
/*timergest2=setInterval(()=>rigeneraplancia(),5000); */  
 /*timergest2=setTimeout(function(){azmodgestavoli()}, 10000);*/ 
/* clearInterval(timergest2); timergest2=setInterval(()=>rigeneraplancia(),5000); azsec++; istfooter.innerText=azsec; alert(azsec);*/
/* clearTimeout(timergest2); timergest2=window.*/
setTimeout(()=>rigeneraplancia(),19500); azsec=azsec+20; if(azsec>60){azsec=0;azmin=azmin+1;if(azmin==60){azmin=0;azh=azh+1;} } istfooter.innerText=azh+":"+azmin+":"+azsec; /*alert(azsec);*/
var lskeyrif=nvarxml.getElementsByTagName("keyrif"); 
var salear=new Array(), tvar=new Array(), val="",p1=ind=0;
/**/var style = document.createElement('style'),sstr=""; 
sstr=".newc3{ background-color:"+wscl[3]+";color:"+wscl[0]+";font-size:"+azfont8+"px; } ";
style.type = 'text/css';
style.innerHTML=sstr;
document.getElementsByTagName('head')[0].appendChild(style);
var aa=leggireg2(wsprcreg+"/capitolato.xml"); var lskmod=nvarxml2.getElementsByTagName("keymod"); /*alert(lskmod.length+"\n"+http_request2.responseText);*/
/*
var lskcat=nvarxml2.getElementsByTagName("keycat"); for(i=0;i<lskcat.length;i++){val=lskcat[i].attributes[0].value;if(val=="produzioni"){ind=i;break; }}
var lskrep=lskcat[ind].getElementsByTagName("keyrep");
*/
str=str+"<center style='font-size:"+(azfont10*0.9)+"px;font-style:verdana;'>Modulo per la <mark>GESTIONE DELLA RISTORAZIONE</mark> </hr>";


str=str+"<table style='width:auto;border:1px #00a solid;"+wscl[3]+" solid;'><tr><th style='font-size:18px;padding:0px;'>COLORE <b>stato</b> TAVOLI: </th>"; 
var trtc=new Array("","#fbb","#ccf","#ddf","#9e9","#bfb","#c0c","#f0f","#00a","#55f"); var trtn=new Array("libero","occupato","assegnato/ct","assegnato/cs","ordinato/ct","ordinato/cs","chiusa/casa/ct","chiusa/cs","pagato","liberazione");
var trttit=new Array("tavolo non ancora occupato","tacolo occupato","tavolo assegnato al capotavola","tavolo assegnato al caposala","tavolo con ordinazioni fatte dal caposala","tavolo con ordinazioni fatte dal caposala","tavolo con ordinazione chiusa da casa o dal capotavola","tavolo con ordinazione chiusa dal caposala","tavolo col conto pagato","tavolo con richiesta di liberazione");
for(i=0;i<6;i++){str=str+"<th style='font-weight:normal;background-color:"+trtc[i]+";color:#000;font-size:18px;padding:0px 4px 0px 4px;border:1px #00a solid;' title='"+trttit[i]+"'>"+i+":"+trtn[i]+"</th>"; }
/*str0=str0+"<th style='font-weight: normal;background-color:"+trtc[i]+";color:#fff'>"+i+":"+trtn[i]+"</th></tr></table>";*/
for(i=6;i<trtn.length;i++){str=str+"<th style='font-weight: normal;background-color:"+trtc[i]+";color:#fff;font-size:18px;padding:0px 4px 0px 4px;border:1px #00a solid;' title='"+trttit[i]+"'>"+i+":"+trtn[i]+"</th>"; }
str=str+"</tr></table>";


str=str+" <div id='modextern1'></div>";

str=str+"<table style='table-layout:auto;display:none;'><tr><td>wsprcreg=<input id='prcreg' value='"+wsprcreg+"' /> wssect=<input id='sect' value='"+wssect+"' /> wssectab=<input id='sectab' value='"+wssectab+"' /> azsectop=<input id='sectop' value='"+azsectop+"' /> </td></tr></table>";

str=str+"<table onmouseover='this.style.cursor=\"pointer\";' style='table-layout:fixed;width:96%'><center style='font-size:"+azfont8+"px;'>reparti di produzione</center><tr>";
for(i=0;i<lskmod.length;i++){val=lskmod[i].attributes[0].value; if(val.indexOf("sala")==-1){str=str+"<th><button onclick='wsfgestprod0(13,\"4-Gestire Produzioni\",this.textContent,\""+prov+"\")'>"+val+"</button></th>"; } }str=str+"</table>";

for(i=0;i<lskeyrif.length;i++){val=lskeyrif[i].attributes[0].value; p1=val.indexOf("_"); if(p1>-1){salear[i]=val.slice(0,p1); }else{salear[i]=val; } tvar[i]=val.slice(p1+1); }
str=str+"<table onmouseover='this.style.cursor=\"pointer\";' style='table-layout:fixed;width:96%'><center style='font-size:"+azfont8+"px;'>sale <button onclick='mostracapotavola()'>mostra/nascondi ordinante</button></center><tr>";
for(i=0;i<salear.length;i++){str=str+"<th class='newc3'>"+salear[i]+"<div id='"+salear[i]+"'></div></th>"; }
str=str+"</tr></table></center>"
/*
str=str+"<center><table onmouseover='this.style.cursor=\"pointer\";' style='table-layout:fixed;width:96%'><thead>ulteriori elementi di controllo</thead><tr><th> <button onclick='mostracapotavola()'>mostra/nascondi ordinante</button> </th> <th> <button onclick='predisponi_registri()'>predisponi registri</button> </th> <th> <button onclick='elenca_sottoscorta()'>elenca_sottoscorta</button> </th> <th> <button onclick='numeri_prodotti()'>analisi vendite</button> </th></tr></table></center>"
*/

str=str+"<center style='font-size:"+(azfont8+8)+"px;'><mark>ulteriori elementi di controllo</mark> <span id='tavchiuso'></span> <table onmouseover='this.style.cursor=\"pointer\";' style='table-layout:fixed;width:96%;background-color:"+wscl[4]+";'><tr>   <th> <button onclick='svuotareg1_0(0)'>predisponi registri</button> </th> <th> <button onclick='elenca_sottoscorta0()'>elenca_sottoscorta</button> </th> <th> <button onclick='numeri_prodotti0()'>analisi vendite</button> </th></tr></table></center>"

/*if(azmonit=="fisso"){ istdoc.innerHTML=str;}else{istmobdoc.innerHTML=str; }*/
istdoc.innerHTML=str; if(azmonit=="mobile"){istdoc.style.zIndex=1; istselpiani.style.zIndex=-1; istselcap.style.zIndex=-1; istintestaz0.style.zIndex=-1;}
for(i=0;i<salear.length;i++){
if(salear[i]!="casa"){
str="<center><table>";tr=i; for(j=1;j<=tvar[i];j=j+3){str=str+"<tr><th id='"+salear[i]+"_"+j+"' style='font-size:18px;padding:0px;' onclick='veditavolo0(this.textContent,\""+salear[i]+"\",this)'>"+j+"</th><th id='"+salear[i]+"_"+(j+1)+"' onclick='veditavolo0(this.textContent,\""+salear[i]+"\",this)' style='font-size:18px;padding:0px;'>"+(j+1)+"</th><th id='"+salear[i]+"_"+(j+2)+"' style='font-size:18px;padding:0px;' onclick='veditavolo0(this.textContent,\""+salear[i]+"\",this)'>"+(j+2)+"</th></tr>"; }str=str+"</table></center>"; }
if(salear[i]=="casa"){ /*alert("salear[i]="+salear[i]+"\ntvar[i]="+tvar[i]+"\ntvar="+tvar);*/
str="<center><table>";tr=i; for(j=1;j<=tvar[i];j++){str=str+"<tr><th name='"+salear[i]+"_' id='"+salear[i]+"_"+j+"' style='font-size:18px;padding:0px;' onclick='veditavolo0(this.textContent,\""+salear[i]+"\",this)'>"+j+"</th></tr>"; }str=str+"</table>"; }
str=str+"</center>";
document.getElementById(salear[tr]).innerHTML=str; /*alert(tr+"\n\n"+str);*/
} 
/*var rifasp="https://www.servizinterattivi.it/ptdmsg/gestserver1/dammi_data.asp"; window.open(rifasp,"popup"); */
gestiscitavoli(val);
/*if(event.button==2){ mostraprod(\""+cel+"\")}
return;   *************  */
}

function elenca_sottoscorta(){ percorso=percorso+"elenca_sottoscorta; "; var i=j=k=n=gz=scm=cstkg=trv=trvv=ok=0,str=val=tip=elem=str0=msg=valprec=""; 
msg="";
str="<span style='text-align:left'></br><li>gz=giacenza,</li><li>scm=scorta minima, </li><li>ssm=sotto scorta minima,</li> <li>cstkg=costo a Kg,Lt,Pz.</li>Le quantità sono espresse in grammi.</span> <div style='padding:20px;width:auto;'> <table style='table-layout:auto;text-align:center;width:90%;'>";
ckxml=wsprcreg+"/magazzino.xml"; leggireg3(ckxml);var lskrep=nvarxml3.getElementsByTagName("keyrep"); /*alert(ckxml+"\n"+http_request3.responseText);*/
for(i=0;i<lskrep.length;i++){val=lskrep[i].attributes[0].value; str0="<tr><th colspan=6 style='text-align:center;background-color:"+wscl[2]+";color:"+wscl[4]+";'>"+val+"</th></tr>"; 
var lskrif=lskrep[i].getElementsByTagName("keyrif"); 
for(j=0;j<lskrif.length;j++){ok=0;str1=""; var lsatbrif=lskrif[j].attributes; tip=lsatbrif[0].value; str1=str1+"<tr><th colspan=6 style='text-align:center;'>"+tip+"</th></tr><tr><th title='progressivo'>N</th> <th title='elemento'>elemento</th> <th title='giacenza'>gz</th> <th title='scorta minima'>sm</th> <th title='sotto scorta minima'>ssm</th> <th title='costo a kilogrammo'>cstkg</th></tr>"; trv=0; /*alert(str);*/
var lskey=lskrif[j].getElementsByTagName("key"); 

for(k=0;k<lskey.length;k++){var lsatbkey=lskey[k].attributes; gz=lsatbkey[1].value*1; scm=lsatbkey[2].value*1; if(gz<scm){ ok=1; break;}}

if(ok==1){if(val!=valprec){valprec=val;str=str+str0+str1;}else{str=str+str1;} 
for(k=0;k<lskey.length;k++){var lsatbkey=lskey[k].attributes; elem=lsatbkey[0].value; gz=lsatbkey[1].value*1; scm=lsatbkey[2].value*1; cstkg=lsatbkey[3].value*1;
if(gz<scm){trvv++; str=str+"<tr><th>"+trvv+"</th><td>"+elem+"</td><td>"+gz+"</td><td>"+scm+"</td><td>"+(scm-gz)+"</td><td>"+cstkg+"</td></tr>"; }
}}
}
} 
str=str+"</table></div></center>"; /*alert(str);*/ 
istmds.innerHTML="<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></br><button onclick='vedinewfin(1)'>  visualizza a tutta pagine e stampa</button> <span id='stmp' style='display:none'>"+str+"</span>"+str+"</center>"; istmds.style.display="block";
}


function svuotareg1_0(index){ percorso=percorso+"svuotareg1_0; "; /*alert(cred1+"\n"+cred2+"\n"+cred3+"\n"+tipop);*/ /*leggidatiaziendali3(ckxml);*/
/*ckxml="datiut/regaccred.xml";*/ ckxml=datiaccredv[2]+"/"+datiaccredv[1]+"/datiazienda/regaccred.xml"; aa=leggireg3(ckxml); timergest2=setTimeout(()=>svuotareg1_1(index),500); 
var str="<center><mark>predisporre i registri</mark> vuol dire che <b>gestione_tavoli</b> e <b>gestione_ordinazioni</b> vengono svuotati di tutte le chiavi mentre i registri di <b>produzione</b> dei singoli reparti sono ridotti alla sola chiave di accesso.</br>Per avviare la procedura <mark>predisponi registri</mark> evitando di fare disastri devi inserire il codice inviato al tuo indirizzo mail </br><input type='text' id='codicever' style='display:none;' /> codice di sicurezza: <input type='text' id='codicex' style='display:block;' /> </br><button onclick='svuotareg1_2(\""+index+"\");'> predisponi </button> <button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button> </center>";
istmds.innerHTML=str; istmds.style.display="block"; istmds.style.zIndex=1; 
}

function svuotareg1_1(index){ percorso=percorso+"svuotareg1_1; "; clearTimeout(timergest2); /*alert(http_request3.responseText);*/
var lskey=nvarxml3.getElementsByTagName("key"); for(i=0;i<lskey.length;i++){var lsatb=lskey[i].attributes; if(lsatb[0].value==cred2&&lsatb[1].value==tipop+"-"+cred3){
 dammicodice(lsatb[3].value); } }
}

function svuotareg1_2(index){ percorso=percorso+"svuotareg1_2; "; /*alert(http_request.responseText);alert(http_request2.responseText);alert(http_request3.responseText);alert(index);*/ 
var ind=1,msg="";
if(document.getElementById("codicex").value!=document.getElementById("codicever").value){var msg="** ATTENZIONE ** il codice di verifica non è valido"; mostraerpiu(msg); istmds.innerHTML=""; istmds.style.display="none"; return;} msg="procedura di svuotamento avviata"; mostraer(msg); /*return;*/ istmds.innerHTML="";istmds.style.display="none";
var i=0,reg=msg="",nomreg=new Array("gestione_tavoli.xml","gestione_ordinazioni.xml","","",""); var lskmod=nvarxml2.getElementsByTagName("keymod"); /*alert(lskmod.length);*/
for(i=0;i<lskmod.length;i++){val=lskmod[i].attributes[0].value; reg="produzioni.xml"; if(val.indexOf("sala")==-1){ind++; nomreg[ind]=val+"/"+reg;  }}/* alert(nomreg);*/

reg=nomreg[index]; /*indreg="../"+datiaccredv[2]+"/"+datiaccredv[1]+"/produzione/ristorazione/"+reg; */ indreg="../"+document.getElementById("prcreg").value+"/"+reg; 
wsprcreg+nomreg[index]; var rifasp="gestserver1/svuotareg.asp?indreg="+indreg+"&reg="+reg+"&index="+index; /*alert(rifasp);*/
window.open(rifasp,"popup");
msg="</br>* il registro <b>"+nomreg[index]+"</b> è stato svuotato"; mostraerpiu(msg); 
if(index<4){index++; clearTimeout(timergest2); timergest2=setTimeout(()=>svuotareg1_3(index,nomreg),500); }
istmds.innerHTML=""; istmds.style.display="none"; 
}

function svuotareg1_3(index,nomreg){ percorso=percorso+"svuotareg1_3; "; /*alert(http_request.responseText);alert(http_request2.responseText);alert(http_request3.responseText);alert(index);*/ 
reg=nomreg[index]; indreg="../"+datiaccredv[2]+"/"+datiaccredv[1]+"/produzione/ristorazione/"+reg; wsprcreg+nomreg[index]; var rifasp="gestserver1/svuotareg.asp?indreg="+indreg+"&reg="+reg+"&index="+index; /*alert(rifasp);*/
window.open(rifasp,"popup");
msg="</br>* il registro <b>"+nomreg[index]+"</b> è stato svuotato"; mostraerpiu(msg); 
if(index<4){index++; clearTimeout(timergest2); timergest2=setTimeout(()=>svuotareg1_3(index,nomreg),500); }
istmds.innerHTML=""; istmds.style.display="none"; 
}

/*
function predisponi_registri(){ percorso=percorso+";"+"predisponi_registri"; var i=index=0,nomreg=new Array("gestione_tavoli.xml","gestione_ordinazioni.xml"); 
var aa=leggireg2(wsprcreg+"/capitolato.xml");var lskmod=nvarxml2.getElementsByTagName("keymod"); 
for(i=0;i<nomreg.length;i++){index=i; indreg="../"+wsprcreg+"/"+nomreg[i]; azpausa=0; svuota_registro(indreg,nomreg[i],index); while(azpausa<10000000){azpausa++;}
msg="registro <b>"+nomreg[i]+"</b> svuotato"; mostraerpiu(msg);}
for(i=0;i<lskmod.length;i++){val=lskmod[i].attributes[0].value; reg="produzioni.xml"; if(val.indexOf("sala")==-1){index=index+1; indreg="../"+wsprcreg+"/"+val+"/"+reg; 
azpausa=0; svuota_registro(indreg,reg,index); while(azpausa<10000000){azpausa++;} msg="registro <b>"+val+"/"+reg+"</b> svuotato"; mostraerpiu(msg); } }
}
*/

function mostracapotavola(){percorso=percorso+"mostracapotavola; "; /*alert(istmds.style.display);*/
if(istmds.style.display=="none"){var msg="** ATTENZIONE ** devi prima attivare l'area modshort cliccando su una delle celle della plancia di controllo";  mostraer(msg); return;  }
if(istmds.style.display=="block"){var captav=document.getElementById("captav"); if(captav.style.display=="none"){ captav.style.display="block";}else{ captav.style.display="none";}}
}

function gestiscitavoli(val){percorso=percorso+"gestiscitavoli; ";  
var lskrif=nvarxml.getElementsByTagName("keyrif"); var ndt=new Array(),vdt=new Array(),irif=i=j=k=n=nliv=numtav=p1=0,sala=tav=msg=""; 
if(lskrif.length==0){msg="** ATTENZIONE ** il registro <b>gestione_tavoli</b> è stato solo predisposto.</br>Prima di procedere con la <b>gestione della ristorazione</b> occorre inserire in gestione tavoli una sezione keyrif per ciascuna sala, compresa la sala_casa nel formato</br><mark>sala='casa' con gli attributi: ,tavolo,acquirente,ordinazione,conferma,spedita,costo,saldata</br>sala='nomeSala_numaroMaxTavoli es.:Capri_30' con gli attributi: ,tavolo,coperti,avventore,lp0,lp1,lp2,lp3,lp4,lp5,lp6,lp7,lp8,lp9,chiusa,costo,saldata</mark> "; mostraer(msg); return; }
for(i=0;i<lskrif.length;i++){irif=0; var lsatb=lskrif[i].attributes; sala=lsatb[0].value; 
for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[irif]=lsatb[j].value;irif++; } } 
var lskey=lskrif[i].getElementsByTagName("key");
if(lskey.length>0){
for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; for(k=0;k<lsatbkey.length;k++){vdt[k]=lsatbkey[k].value;} 
tav=vdt[0]; p1=tav.indexOf("_"); numtav=tav.slice(p1+1); if(sala.indexOf("casa")==-1){ sala=tav.slice(0,p1);}
if(sala.indexOf("casa")>-1){ var p1=p2=0; p1=azdatas2.indexOf("_"); var dtp=azdatas2.slice(p1+1); p2=dtp.indexOf(":"); dtp=dtp.slice(0,p2); 
if(dtp<0||dtp>24){msg="** ATTENZIONE ** le <b>ordinazioni da casa</b> possono essere accettate dalle ore 0:00 alle ore 24:00 con consegna non prima delle 13:00."; mostraer(msg); return; } 
if(vdt[0]!=""&&vdt[1]!=""&&vdt[2]=="ok"&&vdt[3]=="ok"&&vdt[4]==""){	
var rifcel="casa_"+(j+1);  var cel=document.getElementById(rifcel); cel.textContent=tav;  cel.style.backgroundColor="#c0c";   } 
}
if(sala.indexOf("casa")==-1){
if(vdt[1]>0&&vdt[2]==""){  var cel=document.getElementById(tav); cel.style.backgroundColor="#fbb"; cel.textContent=numtav+"/"+vdt[1];}
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==0){ var cel=document.getElementById(tav);
if(vdt[2].indexOf("caposala")==-1){ cel.style.backgroundColor="#ccf";}else{cel.style.backgroundColor="#def";} cel.style.color=wscl[3];cel.textContent=numtav+"/"+vdt[1];}  if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==0){ var cel=document.getElementById(tav); 
if(vdt[2].indexOf("caposala")==-1){ cel.style.backgroundColor="#6e6";}else{cel.style.backgroundColor="#cfc";} cel.style.color=wscl[3]; for(n=3;n<11;n++){if(vdt[n]==0){nliv=(n-3);break;} }
cel.textContent=numtav+"/"+vdt[1]+"/livp_"+nliv;}
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==1&&vdt[16]==0){ var cel=document.getElementById(tav); 
if(vdt[2].indexOf("caposala")==-1){ cel.style.backgroundColor="#c0c";}else{cel.style.backgroundColor="#f0f";} cel.style.color=wscl[3]; for(n=3;n<11;n++){if(vdt[n]==0){nliv=(n-3);break;}}} 
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==1&&vdt[16]==1){var cel=document.getElementById(tav);cel.style.backgroundColor="#00a";cel.style.color="#ffa"; cel.textContent=numtav+"/"+vdt[1];}
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==1&&vdt[16]==2){var cel=document.getElementById(tav);cel.style.backgroundColor="#55f";cel.style.color="#ffa"; cel.textContent=numtav+"/"+vdt[1];}
} }}
}
}

function veditavolo0(cel,sala,obj){percorso=percorso+"veditavolo0; ";
if(tipop=="caposala"){ckxml=wsprcreg+"/gestione_tavoli.xml";leggireg(ckxml);var ckxml2=wsprcreg+"/gestione_ordinazioni.xml";leggireg3(ckxml2);setTimeout(()=>veditavolo(cel,sala,obj),300);} else{veditavolo(cel,sala,obj);}
}

function veditavolo(cel,sala,obj){percorso=percorso+"veditavolo; "; var intestaord=""; if(tipop=="caposala"){ svuotaordinaz();}
/*alert("veditavolo\nsala="+sala+"\n\n"+http_request.responseText); alert("veditavolo\n"+http_request2.responseText); alert("veditavolo\n"+http_request3.responseText);*/
/*alert(tipop+"\n"+istmds.style.display);*/
/*
if(sala=="casa"){var tavolo=obj.textContent; intestaord=" da casa"; }else{var tavolo=sala+"_"+cel; intestaord=" dal tavolo"; var p1=tavolo.indexOf("/"),avv=capotavola=""; 
if(p1>0){tavolo=tavolo.slice(0,p1);} }
*/
if(sala=="casa"){var tavolo=obj.textContent; intestaord=" da casa"; /*cel;*/}else{p1=cel.indexOf("/"); if(p1>-1){var tavolo=sala+"_"+cel.slice(0,p1);}else{var tavolo=sala+"_"+cel;} 
if(tipop=="caposala"){ var ttvv=document.getElementById("codtav");ttvv.value=tavolo;ttvv.blur();} /*alert(tavolo);*/  intestaord=" dal tavolo"; /*p1=tavolo.indexOf("/"),*/ var avv=capotavola=""; /*alert(tavolo); alert(cel); alert(obj.textContent);*/ /*if(p1>0){tavolo=tavolo.slice(0,p1);}*/ }
if(obj.style.backgroundColor=="rgb(204, 0, 204)"||obj.style.backgroundColor=="rgb(255, 0, 255)"){msg="l'ordinazione del tavolo "+tavolo+" è stata chiusa</br>";mostraer(msg);conferma_chiudi_ordinazione0(tavolo,sala,obj); return;}

/*alert("veditavolo\ncel="+cel+"\nsala="+sala+"\ntavolo="+tavolo); */
/*
if(document.getElementById("modshort")==null){var newspan=document.createElement("span"); newspan.setAttribute("id","modshort"); document.body.insertBefore(newspan, null);}
var mds=document.getElementById("modshort"); mds.style.border="16px solid transparent";mds.style.backgroundColor=wscl[3];mds.style.color=wscl[0];
mds.style.border=azfont2+"px solid transparent";mds.style.borderImage="url('img/"+wscl[5]+"') 20% stretch"; 
mds.style.OborderImage="url('img/"+wscl[5]+"') 20% stretch"; mds.style.fontSize=azfont2+"px"; mds.style.position="absolute"; mds.style.top="20%";mds.style.fontSize=azfont2+"px";
*/
/*var mds=document.getElementById("modshort"); alert(cel.indexOf("/")==-1&&sala!="casa"); */
/*ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml); */
if(cel.indexOf("/")==-1&&sala!="casa"){/*abilitazione tavolo*/ 
var box="<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></br> Indica il numero di coperti del tavolo "+tavolo+" </br><input type='number' id='numcop' min=1 value='0' style='width:50px'>";
if(tipop=="caposala"){box=box+"</br>con ordinazioni gestite dal: <select id='selbox'><option value='' selected></option> <option value='caposala'>caposala</option> <option value='capotavola'>capotavola</option></select>";  }
box=box+" </br><button onclick='registranumcop(\""+tavolo+"\",\""+cel+"\",\""+sala+"\")'>registra</button>"; 
istmds.innerHTML=box; istmds.style.display="block";istmds.style.zIndex=1; }
/*var cella=document.getElementById(tavolo);*/ /*alert(tavolo+"\n"+obj.style.backgroundColor+"\n"+obj.id+"\n"+(obj.style.backgroundColor=="rgb(170, 0, 0)"));*/
/*alert(obj.style.backgroundColor+"\n"+(obj.style.backgroundColor=="rgb(204, 0, 204)"));*/
/*&&tipop!="wsm"*/


/*alert(obj.style.backgroundColor=="rgb(170, 0, 0)"&&tipop=="wsm");*/
if(obj.style.backgroundColor=="rgb(170, 0, 0)"&&tipop=="wsm"){ conferma_chiudi_ordinazione(tavolo,sala,obj.textContent);return;}
if(obj.style.backgroundColor=="rgb(255, 187, 187)"&&tipop=="wsm"){ msg="** ATTENZIONE ** il tavolo "+tavolo+" non è stato ancora assegnato"; mostraer(msg);return;}/**/

if(obj.style.backgroundColor=="rgb(0, 0, 170)"&&tipop=="wsm"){ str=str="<center><table style='table-layout:auto;font-size:"+azfont8+"px'><tr><th> Il tavolo "+tavolo+" ha pagato il conto <button onclick='document.getElementById(\"modshort2\").style.display=\"none\"'> [ X ] </button> </th></tr><tr><th ><mark>LIBERI IL TAVOLO? </mark></th></tr><tr><td style='text-align:center'> <button onclick='libera_tavolo(\""+sala+"\",\""+tavolo+"\",\""+avv+"\"); '>SI</button> </td> <td style='text-align:center'><button onclick='document.getElementById(\"modshort2\").style.display=\"none\"'>NO</button> </td></tr></table>"; 
istmds.innerHTML=str; istmds.style.display="block";  istmds.style.zIndex=1; return; }  /*\""+rsc+"\",,\""+costocompl+"\" alert(obj.style.backgroundColor);*/

if(obj.style.backgroundColor=="rgb(0, 0, 170)"&&tipop=="caposala"){ str=str="<center><table style='table-layout:auto;font-size:"+azfont8+"px'><tr><th> Il tavolo "+tavolo+" ha pagato il conto <button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button> </th></tr><tr><td  style='text-align:center'> <b>Se serve</b> chiedere al <b>gestore della ristorazione</b> di <button onclick='richiesta_libera_tavolo(\""+cel+"\",\""+sala+"\",this)'><mark>liberare il tavolo <b>"+tavolo+"</b></mark></button> </td></tr></table>"; 
istmds.innerHTML=str; istmds.style.display="block";  istmds.style.zIndex=1; return; }  /*\""+rsc+"\",,\""+costocompl+"\" alert(obj.style.backgroundColor);*/

if(obj.style.backgroundColor=="rgb(85, 85, 255)"&&tipop=="wsm"){ libera_tavolo(sala,tavolo,avv); return; }  /*\""+rsc+"\",,\""+costocompl+"\" alert(obj.style.backgroundColor);*/


/*alert(tipop=="wsm"&&istmds.style.display=="none");*/
/*if(tipop=="wsm"&&istmds.style.display=="none"){ conferma_chiudi_ordinazione(tavolo,sala,obj.textContent);}*/

var lskrif=nvarxml.getElementsByTagName("keyrif"); for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; sal=lsatb[0].value; if(sal.indexOf(sala)>-1){irif=i;trv=1;break;}} 
var lskey=lskrif[irif].getElementsByTagName("key"); if(lskey.length>0){ for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; 
if(lsatbkey[0].value==tavolo){if(sala=="casa"){avv=lsatbkey[1].value;chiusa=1;}else{avv=lsatbkey[2].value;} break; } } } /*alert(avv);*/
capotavola=avv;

/*alert(cel+"\n"+sala+"\n"+(cel.indexOf("/")==-1&&sala!="casa"));*/
if(cel.indexOf("/")>-1&&sala!="casa"){/*ckxml=wsprcreg+"/gestione_ordinazioni.xml"; leggireg3(ckxml);*/ /*alert(ckxml+"\n"+http_request3.responseText); return;*/
var lskrif=nvarxml3.getElementsByTagName("keyrif");
var ndt=new Array(),vdt=new Array(),prar=new Array(),qar=new Array(),przar=new Array(),irif=ik=i=j=k=n=nz=nliv=numtav=p1=trv=0,sala=tav=str="";
str="<center><table style='table-layout:auto;font-size:"+azfont2+"px'><tr><th colspan=6> Ordinazioni "+intestaord+" "+tavolo+" <button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button> <div id='captav' style='display:none'>"+capotavola+"</div></th></tr>"; 
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; /*alert(lsatb[0].value+"\n"+tavolo+"\n"+(lsatb[0].value==tavolo));*/
if(lsatb[0].value==tavolo){irif=i; for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; } } trv=1; break; /*alert(ndt);*/ } }
/*str=str+"<tr><th>N</th>"; for(k=0;k<ndt.length;k++){ if(ndt[k]!="reparti"){ str=str+"<th>"+ndt[k]+"</th>";}else{nz=k;} } str=str+"</tr>"; */
if(trv==0){ msg="**ATTENZIONE ** per il tavolo <b>"+tavolo+"</b> in gestione_ordinazioni non sono presenti chiavi"; mostraer(msg); return;}
var lskey=lskrif[irif].getElementsByTagName("key");/*alert(lskey.length); */
if(lskey.length>0){
for(j=0;j<lskey.length;j++){vdt=[]; var lsatbkey=lskey[j].attributes; 
str=str+"<tr><th colspan=3>livp_"+(lskey.length-j)+": *  "+lsatbkey[0].value+" * "+lsatbkey[5].value.slice(1)+"</th></tr><tr><th>elemento</th><th>qta</th><th>prz</th></tr>"; 
prar=[];qar=[];przar=[];
for(k=1;k<lsatbkey.length;k++){/*alert(lsatbkey[k].value);*/ vdt[k]=lsatbkey[k].value; /*if(k>1){vdt[k]=vdt[k].slice(1);}*/} 
/*if(vdt[2].indexOf(",")>-1){ }*/ prar=vdt[2].split(",");qar=vdt[3].split(",");prz=vdt[4].split(",");
for(k=1;k<prar.length;k++){str=str+"<tr><td>"+prar[k]+"</td><td>"+qar[k]+"</td><td>"+prz[k]+"</td></tr>"; } 
}str=str+"</table>"; 
}  /*}*/ /*alert(str);*/
istmds.innerHTML=str; istmds.style.display="block"; istmds.style.zIndex=1; if(tipop!="wsm"){vediabtav(obj);}
}
else{msg="questo tavolo non ha ancora effettuato alcuna ordinazione"; mostraer(msg); return; }
if(cel.length>2&&sala=="casa"){ckxml=wsprcreg+"/gestione_ordinazioni.xml"; leggireg3(ckxml); /*alert(ckxml+"\n"+http_request3.responseText); return;*/
var lskrif=nvarxml3.getElementsByTagName("keyrif"),ndt=new Array(),vdt=new Array(),prar=new Array(),qar=new Array(),przar=new Array(),irif=ik=i=j=k=n=nz=nliv=numtav=p1=0,sala=tav=str="";
str="<center><table style='table-layout:auto;font-size:"+azfont2+"px'><tr><th colspan=6> Ordinazioni dal tavolo</br>"+tavolo+" <button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></th></tr>"; 
var lskrif=nvarxml3.getElementsByTagName("keyrif"); irif=0; 
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes;/*alert(lsatb[0].value+"\n"+tavolo+"\n"+(lsatb[0].value==tavolo)); */
if(lsatb[0].value==tavolo){irif=i; for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; } } /*alert(ndt);*/ break;} }
/*str=str+"<tr><th>N</th>"; for(k=0;k<ndt.length;k++){ if(ndt[k]!="reparti"){ str=str+"<th>"+ndt[k]+"</th>";}else{nz=k;} } str=str+"</tr>"; */
var lskey=lskrif[irif].getElementsByTagName("key");/*alert(lskey.length); */
if(lskey.length>0){
for(j=0;j<lskey.length;j++){vdt=[]; var lsatbkey=lskey[j].attributes; 
str=str+"<tr><th colspan=3>"+(lskey.length-j)+": *  "+lsatbkey[0].value+" * "+lsatbkey[5].value.slice(1)+"</th></tr><tr><th>elemento</th><th>qta</th><th>prz</th></tr>"; 
prar=[];qar=[];przar=[];
for(k=1;k<lsatbkey.length;k++){/*alert(lsatbkey[k].value);*/ vdt[k]=lsatbkey[k].value; /*if(k>1){vdt[k]=vdt[k].slice(1);}*/} 
/*if(vdt[2].indexOf(",")>-1){ }*/ prar=vdt[2].split(",");qar=vdt[3].split(",");prz=vdt[4].split(",");
for(k=1;k<prar.length;k++){str=str+"<tr><td>"+prar[k]+"</td><td>"+qar[k]+"</td><td>"+prz[k]+"</td></tr>"; } 
}str=str+"</table>"; 
} /* } */
istmds.innerHTML=str; istmds.style.display="block"; istmds.style.zIndex=1;
}

}

function richiesta_libera_tavolo(cel,sala,obj){percorso=percorso+"richiesta_libera_tavolo; "; var p1=cel.indexOf("/"); 
if(p1>-1){var tavolo=sala+"_"+cel.slice(0,p1);}else{var tavolo=sala+"_"+cel;} /*alert("cel="+cel+"\nsala="+sala+"\ntavolo="+tavolo); alert(http_request.responseText); */
var indreg1=""+wsprcreg+"/gestione_tavoli.xml",krif1="keyrif sala='"+sala; 
var lskrif=nvarxml.getElementsByTagName("keyrif"); var irif=ik=i=j=0,ndt=new Array(),vdt=new Array(),rep=""; 
for(i=0;i<lskrif.length;i++){ if(lskrif[i].attributes[0].value.indexOf(sala)>-1){irif=i; break;}}
var lsk=lskrif[irif].getElementsByTagName("key"); for(i=0;i<lsk.length;i++){ if(lsk[i].attributes[0].value==tavolo){irif=i; break;}}
var lsatb=lsk[irif].attributes; for(i=0;i<lsatb.length;i++){ ndt[i]=lsatb[i].nodeName;vdt[i]=lsatb[i].value;} 
var azione="sostituisci",hk=newk1="key "; for(i=0;i<ndt.length;i++){hk=hk+ndt[i]+"='"+vdt[i]+"' ";}hk=hk+"/>"; vdt[16]=2; 
for(i=0;i<ndt.length;i++){newk1=newk1+ndt[i]+"='"+vdt[i]+"' ";}newk1=newk1+"/>"; /*alert(ndt+"\n"+vdt+"\n"+hk+"\n"+newk1);*/
var rifasp="gestserver1/insertmodkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+hk+"&azione="+azione; window.open(rifasp,"popup"); chiudimodshort(); 
setTimeout(()=>vedisala("sala_capri"),500); 
/*if(tipop=="caposala"){ckxml=wssect+"/gestione_tavoli.xml"; setTimeout(()=>leggidatiaziendali2(ckxml),500); setTimeout(()=>verificaabltav(tavolo),1000);}*/
}

function registranumcop(tavolo,cel,sala){percorso=percorso+"registranumcop; "; var numcop=document.getElementById("numcop").value*1; var azione="inserisci",msg="";
if(tipop=="caposala"){var sbox=document.getElementById("selbox").value; if(sbox==""){msg="** ATTENZIONE ** il caposala non ha indicato se le ordinazioni sono gestite dal <b>capotavola</b> o dal <b>caposala</b>"; mostraer(msg); return; } }
/*alert("veditavolo\ntavolo="+tavolo+"\ncel="+cel+"\nsala="+sala+"\nnumcop="+numcop); */
/*var mds=document.getElementById("modshort");*/ istmds.innerHTML=""; istmds.style.display="none";
if(numcop==0||numcop<=0){msg="** ATTENZIONE ** non e' stato inserito il numero di coperti del tavolo "+tavolo; mostraer(msg); return;}
var indreg1="../"+wsprcreg+"/gestione_tavoli.xml",krif1="keyrif sala='"+sala; var aa=leggireg(wsprcreg+"/gestione_tavoli.xml");
var lskrif=nvarxml.getElementsByTagName("keyrif"); var irif=ik=i=j=0,ndt=new Array(),vdt=new Array(),rep=""; 
for(i=0;i<lskrif.length;i++){ if(lskrif[i].attributes[0].value.indexOf(sala)>-1){irif=i; var lsatb=lskrif[i].attributes; 
for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; } } if(irif>0){break;} }}
/*var lsatb=lskrif[i].attributes; if(lsatb[0].value.indexOf(sala)==-1)*/ 
vdt[0]=sala+"_"+cel; vdt[1]=numcop; 
/*
if(tipop!="caposala"||(tipop=="caposala"&&sbox=="capotavola")){ vdt[2]=""; document.getElementById("datiospite").innerText=""; }
if(tipop!="caposala"&&sbox=="caposala"){ vdt[2]=document.getElementById("datiospite").innerText;}
*/
if(tipop=="caposala"&&sbox=="capotavola"){ vdt[2]=""; document.getElementById("datiospite").innerText=""; }
if(tipop=="caposala"&&sbox=="caposala"){ vdt[2]=document.getElementById("datiospite").innerText;}
if(tipop=="wsm"){ vdt[2]=""; }

for(i=3;i<ndt.length;i++){vdt[i]=0;} /*alert(ndt+"\n"+vdt);*/
var newk1="key "; for(k=0;k<ndt.length;k++){newk1=newk1+ndt[k]+"='"+vdt[k]+"' "; }newk1=newk1+"/>"; 
var rifasp="gestserver1/insertkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&azione="+azione; window.open(rifasp,"popup");
/*if(tipop=="caposala"&&sbox=="caposala"){*/ckxml=wsprcreg+"/gestione_tavoli.xml"; setTimeout(()=>leggireg(ckxml),500); setTimeout(()=>verificaabltav(tavolo),1000);/*}*/
}

/*
function wsfgestprod0(n,rif,reg,ind){percorso=percorso+"wsfgestprod0; ";  if(azprcreg==null){azprcreg=wsprcreg; }
var rif0=str=val=operaz=set=project=val1=val2=str2=doc="",i=j=p1=0; p1=rif.indexOf("-"); rif0=rif.slice(p1+1); operaz=rif0; 
var aa=leggireg2(wsprcreg+"/gestione_tavoli.xml");var lskrif=nvarxml2.getElementsByTagName("keyrif");
p1=wsprcreg.lastIndexOf("/"); project=wsprcreg.slice(p1+1); var lskmod=nvarxml.getElementsByTagName("keymod"); 
str=str+"<center style='font-size:"+azfont10+"px;font-style:verdana;'>Modulo per <mark>"+rif+"</mark> del progetto</br><mark>"+wssect+"<span id='repp'></span></mark></hr> <table style='table-layout:auto;display:none;'><tr><td>wsprcreg=<input id='prcreg' value='"+wsprcreg+"' /> wssect=<input id='sect' value='"+wssect+"' /> wssectab=<input id='sectab' value='"+wssectab+"' /> azsectop=<input id='sectop' value='"+azsectop+"' /></td></tr></table>";
str=str+"<table style='table-layout:auto;width:auto'><tr><th>seleziona il reparto di ristorazione a cui appartieni: <select id='selec' onchange='wsfgestprod1(\""+n+"\",\""+rif+"\",this.value)'> <option value=''></option>";
for(i=0;i<lskmod.length;i++){val=lskmod[i].attributes[0].value; str=str+"<option value='"+val+"'>"+val+"</option> >"; }
str=str+"</select></th></tr></table> <div id='modextern1'></div></center>"; 
if(azmonit=="mobile"){ azmobdoc=str; istmobdoc.innerHTML=azmobdoc;}else{ istdoc.innerHTML=str; } 
}
*/

function wsfgestprod0(n,rif,rep){percorso=percorso+"wsfgestprod0; "; /*alert("wsfgestprod0\nn="+n+"\nrif="+rif+"\nrep="+rep);*/
/*alert(ckxml);*/ var bb=leggireg2(ckxml); var ckxml3=wsprcreg+"/capitolato.xml";  setTimeout(()=>leggireg3(ckxml3),500);
if(tipop=="wsm"||tipop=="sup"){setTimeout(()=>sceglirep(n,rif,rep),500); }
else{var ckxml2=wsprcreg+"/"+rep+"/produzioni.xml"; setTimeout(()=>leggireg2(ckxml2),500); setTimeout(()=>wsfgestprod1(n,rif,rep),900);}/**/
}

function wsfgestprod1(n,rif,rep){percorso=percorso+"wsfgestprod1; "; var rep0=rep,msg=tipopp=""; var butdisab=rifstrep=""; 
if(tipop=="wsm"){butdisab="disabled='true'"; tipopp="xx"; rep="Ristorante"; }
/*alert("tipop="+tipop+"\ncred3="+cred3+"\nrep="+rep+"\n"+((tipop=="responsabile"||tipop=="res"||tipop=="sup"||tipop=="wsm")&&cred3!=rep));  alert(ckxml+"\n"+http_request2.responseText);alert(http_request3.responseText);*/
setTimeout(()=>wsfgestprod0(n,rif,rep),19500);
/*if(tipop!="res"&&tipop!="sup"&&tipop!="wsm")*/ 
/*alert(tipop+"\n"+(tipop!="res"&&tipop!="sup"||tipop!="wsm"));*/
/*if(((tipop=="responsabile"||tipop=="res"||tipop=="sup"||tipop=="wsm")&&tipopp!="xx")&&cred3!=rep)*/
/*
if(tipop!="sup"&&tipop!="wsm"&&(tipop=="res")){msg="** ATTENZIONE ** <b>"+cred1+"</b> tu sei accreditato come <b>"+tipop+"</b> del reparto <b>"+cred3+"</b> e non puoi operare per il reparto <b>"+rep+"</b>"; mostraer(msg); return; }else{mostraer("");}
*/
/*if(prov==null){ clearInterval(timergest1); timergest1=setInterval(()=>wsfgestprod1(n,rif,rep0),20000); }*/
if(rep.indexOf("sala_")==-1){rifstrep=rep.slice(0,1)+"1"; }
/*timeraz=setInterval(function(){ wsfgestprod1(n,rif,rep); }, 10000);*/ /*history.go(0); */ http_request3=null; /*if(rep.indexOf("sala_")>-1){rep=rep.slice(5); }*/
/*ckxml=wsprcreg+"/"+rep+"/produzioni.xml"; var bb=leggireg3(ckxml); */
if(document.getElementById("repp")!=null){document.getElementById("repp").innerText="/"+rep;  } 
/*document.getElementById("repp").innerText="/"+rep; var rifstrep=rep.slice(0,1)+"1";*/
/*alert("wsfgestprod1\nn="+n+"\nrif="+rif+"\nrep="+rep+"\nprov="+prov+"\nind="+ind+"\nwsprcreg="+wsprcreg); alert(http_request.responseText); alert(http_request2.responseText); */
/* alert(ckxml+"\n"+http_request3.responseText);*/
var rif0=str=val=operaz=set=project=val1=val2=str2=doc=natb=stat=pp=prd=qta="",i=k=p1=stt=0;
var lskrif=nvarxml2.getElementsByTagName("keyrif"); /**/var lsk=nvarxml2.getElementsByTagName("key"); 
if(lsk.length==0){var msg="** Attenzione ** attualmente nel registro di produzione del repato <b>"+rep0+"</b> non ci sono chiavi"; mostraer(msg); 
/*document.getElementById("modextern1").innerHTML="";return;*/ str=msg; } /*alert(lsk.length>aznrowprod);*/
if(lsk.length>aznrowprod){azaudio2.play(); aznrowprod=lsk.length; }
/*if(lsk.length>numlinprec){audio.play(); numlinprec=lsk.length;} if(lsk.length<numlinprec){numlinprec=lsk.length; } var audio=new Audio("actung.wav").play(); */
var lsatbrif=lskrif[0].attributes; 
str=str+"<table style='table-layout:auto'><tr><th>N</th>"; var ncic=0; if(rep.indexOf("sala_")==-1){ncic=lsatbrif.length; }else{ncic=lsatbrif.length-1; }
for(i=0;i<ncic;i++){str=str+"<th>"+lsatbrif[i].value+"</th>"; } str=str+"</tr>";
var ind=1,frmph="",color="",newk=oldk=""; frmph="(0|1)";
/*for(k=0;k<lsk.length;k++){var lsatb=lsk[k].attributes; for(i=0;i<lsatb.length;i++){oldk=oldk+lsatbrif[i].value+"='"+lsatb[i].value+"' "; }}oldk=oldk+"/>";*/
for(k=0;k<lsk.length;k++){oldk=newk="key "; var lsatb=lsk[k].attributes; /*alert(lsatb.length+"\n"+lsatbrif.length);*/
for(i=0;i<lsatb.length;i++){oldk=oldk+lsatbrif[i].value+"='"+lsatb[i].value+"' "; if(lsatbrif[i].value=="stato"){stt=lsatb[i].value*1;} }oldk=oldk+"/>";
for(i=0;i<lsatb.length-1;i++){newk=newk+lsatbrif[i].value+"='"+lsatb[i].value+"' "; }newk=newk+"stato='"+(stt+1)+"' />";
/**/newk=newk.replace(/'/g,"&#39;"); oldk=oldk.replace(/'/g,"&#39;");
if(rep0.indexOf("sala_")==-1){str=str+"<tr><th onclick='veditabprod("+(ind-1)+",\""+lsatb[0].value+"\",\""+lsatb[1].value+"\",\""+lsatb[2].value+"\")' onmouseover='this.style.cursor=\"pointer\";'>"+ind+"</th>"; if(lsatb[3].value==1){color="#8f8";stat="da consegnare";}else{color="";stat="da preparare";}}
else{ str=str+"<tr><th>"+ind+"</th>"; if(lsatb[4].value==1){color="#8f8";stat="consegnato";}else{color="";stat="da prelevare";} }
/*alert(lsatb[3].value+"\n"+color);*/
for(i=0;i<lsatb.length;i++){pp=""; if(lsatbrif[i].value!="stato"&&lsatbrif[i].value!="prodotti"){str=str+"<td style='background-color:"+color+"'>"+lsatb[i].value+"</td>";}
if(lsatbrif[i].value!="stato"&&lsatbrif[i].value=="prodotti"){str=str+"<td style='background-color:"+color+"' onclick='vediprod(\""+rep+"\",\""+lsatb[i].value+"\")'>"+lsatb[i].value+"</td>";}
if(lsatbrif[i].value=="stato"&&rep.indexOf("sala_")==-1){ pp="<td style='background-color:\""+color+"\"'><button "+butdisab+" onclick='registrastato0(\""+lsatb[i].value+"\",\""+lsatb[0].value+"\",\""+ckxml+"\",\""+newk+"\",\""+rep+"\",\""+oldk+"\",\""+rifstrep+"\")'>"+stat+"</button></td>"; str=str+pp;}
}	
/*if(tipop!="wsm"){var strp="<tr id='rig_"+(ind-1)+"' style='display:none'><th colspan=5 syile='text-align:center'><div id='tabelem_"+(ind-1)+"'></div></tr>";}str=str+strp;*/
ind++;str=str+"</tr>"; 
}
str=str+"</table><div id='modextern2'</div></center> "; /*document.getElementById("modextern1").innerHTML=str; */
/*if(prov=="azmodgestavoli"){*//*alert(str); var mds=document.getElementById("modshort");*/ istmds.innerHTML="<center><b>Gestione delle produzioni</b> del reparto <b>"+wsrep+"</b> <button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button> <!--<button onclick='provaaudio(0)'>audio0</button> <button onclick='provaaudio(1)'>audio1</button> <button onclick='provaaudio(2)'>audio2</button> <button onclick='provaaudio(3)'>audio3</button>--> </br>"+str;  /*alert(str);*/ istmds.style.display="block"; istmds.style.zIndex=100; 
}

function vediprod(rep,lsprod){percorso=percorso+"vediprod; "; 
var prodar=new Array(),prodrifar=new Array(),okar=new Array(),krifar=new Array(),i=j=k=r=0,ind=indc=0,trv=0,msg=inddoc="",str="<table>"; prodar=lsprod.split(","); /*alert("vediprod\nlsprod="+lsprod+"\n"+prodar);*/
var lskmod=nvarxml3.getElementsByTagName("keymod"); for(i=0;i<lskmod.length;i++){var lsatbmod=lskmod[i].attributes; if(lsatbmod[0].value==rep){ind=i;trv=1;break; } } 
if(trv==0){msg="** Attenzione ** il repato <b>"+rep+"</b> non è presente nel registro di capitolato"; mostraer(msg); return; }

 str=str+"<tr><th><h2 onclick='istmdl.innerHTML=\"\";istmdl.style.display=\"none\";istmdl.style.zIndex=-1;' onmouseover='this.style.cursor=\"pointer\";'>Istruzioni per la realizzazione dei prodotti richiesti [ X ]</br></h2></th></tr>" 
var lsk=lskmod[ind].getElementsByTagName("key"); var lsatbk=lsk[0].attributes; 
for(j=0;j<lsatbk.length;j++){if(lsatbk[j].nodeName=="caricato"){indc=j; break;} } /*alert(lsk.length+"\n"+indc+"\n"+prodar);*/
var lskrif=lskmod[ind].getElementsByTagName("keyrif"); for(j=0;j<lskrif.length;j++){krifar[j]=lskrif[j].attributes[0].value; } /*alert(krifar);*/
for(i=0;i<prodar.length;i++){for(j=0;j<lskrif.length;j++){ var lsk=lskrif[j].getElementsByTagName("key");
for(k=0;k<lsk.length;k++){ var lsatbk=lsk[k].attributes;if(lsatbk[0].value==prodar[i]){prodrifar[i]=krifar[j];okar[i]=lsatbk[indc].value /*if(=="si"){"si";}else{okar[i]="no";}*/
/*alert(prodar[i]+"\n"+krifar[j]+"\n"+lsatbk[indc].value);*/ break; }}
} 
}/*alert(prodar+"\n"+prodrifar+"\n"+okar);*/ for(i=0;i<prodar.length;i++){prodar[i]=prodar[i].replace(/ /g,"_"); } /*alert(prodar);*/
for(i=0;i<prodar.length;i++){ inddoc=wsprcreg+'/'+rep+'/'+prodrifar[i]+'/'+prodar[i]+'.pdf'; /*alert(inddoc);*/
if(okar[i]=="si"){
str=str+"<tr><td><!--<iframe style='width:100%; height:100%; background-image:url(\""+inddoc+"\"); background-position: center; background-repeat:no-repeat;background-size:contine;' ></iframe>--> <iframe style='width:100%; height:"+(ywidth*0.8)+"px;text-align:center;' src='"+inddoc+"'></iframe></td></tr>";}

}
str=str+"</table>"; /*alert(str);*/ istmds.innerHTML=""; istmds.style.display="none"; istmdl.style.zIndex=-1;
istmdl.innerHTML=str; istmdl.style.display="block"; istmdl.style.zIndex=2;
}


function veditabprod(n,riftav,lsprod,lsqta){percorso=percorso+"veditabprod; "; /*alert("veditabprod\nn="+n+"\nlsprod="+lsprod+"\nlsqta="+lsqta);*/
var prodar=new Array(),qtaar=new Array(),i=0; prodar=lsprod.split(","); qtaar=lsqta.split(","); var str="<table style='table-layout:auto'><th colspan=2>"+riftav+"</th></tr>";
for(i=0;i<prodar.length;i++){str=str+"<tr><td>"+prodar[i]+"</td><td>"+qtaar[i]+"</td></tr>"; } str=str+"</table>";
istmds.innerHTML="<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></center>"+str;istmds.style.display="block";
/*
document.getElementById("tabelem_"+n).innerHTML=str; var rig=document.getElementById("rig_"+n);
if(rig.style.display=="block"){rig.style.display="none"; }else{rig.style.display="block"; }
*/
}

function provaaudio(n){percorso=percorso+"provaaudio; "; 
switch(n){case 0:{azaudio0.play(); break;}case 1:{azaudio1.play(); break;}case 2:{azaudio2.play(); break;}case 3:{azaudioactung.play(); break;}}
}

function tipodiordinazione(tipord){percorso=percorso+"tipodiordinazione; "; var st="",msg="";
if(tipord=="dal tavolo"){/*st="Ordinazione dal tavolo </br><input type='text' id='codtav' value='' placeholder='inserire il codice del tavolo' onchange='vediabtav(this)' /> ";*/
azdtopsectv[(azdtopsect.length-1)]="avventore"; mostramenu("i nostri menu interattivi",1); }
if(tipord=="da casa"){ var tv=azdtopsectv[3]+"|"+azdtopsectv[4]+"|"+azdtopsectv[5]+"|"+azdtopsectv[6]+"|"+azdtopsectv[7]+"|"+azdtopsectv[8]; /* style='max-width:100%'*/
var p1=p2=0; p1=azdatas2.indexOf("_"); var dtp=azdatas2.slice(p1+1); p2=dtp.indexOf(":"); dtp=dtp.slice(0,p2); /*alert(dtp+"\n"+(dtp<10||dtp>12));*/ /**/
if(dtp<0||dtp>24){msg="** ATTENZIONE ** le <b>ordinazioni da casa</b> possono essere accettate dalle ore 0:00 alle ore 24:00 con consegna non prima delle 13:00."; mostraer(msg); return; }
/*alert(dtp+"\n"+(dtp<10||(dtp>12&&dtp<18)||dtp>20));*/
/*if(dtp<10||(dtp>12&&dtp<15)||dtp>20)*/if(dtp<0||dtp>24){msg="** ATTENZIONE ** le <b>ordinazioni da casa</b> possono essere accettate: </br> * dalle ore 09:00 alle ore 12:00 con consegna non prima delle 13:00;</br> * dalle ore 18:00 alle ore 20:00 con consegna non prima delle 21:00"; mostraer(msg); return; }

st="Ordinazione da casa</br><input type='text' id='codtav' value='"+tv+"' placeholder='inserire il codice del tavolo' onchange='vediabtav(this)' disabled/> <div id='livp0'></div><div id='livp1'></div><div id='livp2'></div><div id='livp3'></div><div id='livp4'></div><div id='livp5'></div><div id='livp6'></div><div id='livp7'></div><div id='livp8'></div><div id='livp9'></div><div id='livp10'></div><div id='livp11' style='text-align:center'><button onclick='verificacomponenti0()'>invia l'ordinazione</button></div>"; /*alert(st);*/
document.getElementById("acqord").innerHTML=st; document.getElementById("rictord").innerHTML=""; /*alert(document.getElementById("acqord").innerText);*/
ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg2(ckxml); var lskrif=nvarxml2.getElementsByTagName("keyrif"); 
var i=j=irif=iriff=nrec=salta=0,trvsal=trv=0,sal=tav=str=regdamod1=keyrif1=newkey1=regdamod2=keyrif2=newkey2=operaz1=operaz2="",ndt=new Array(),vdt=new Array();
operaz1="inserisci"; regdamod1="../"+ckxml; keyrif1="keyrif sala='casa_"; 
/*  var avv=azdtopsectv[4]+"|"+azdtopsectv[5]+"|"+azdtopsectv[0]; */  var avv=azdtopsectv[4]+"|"+azdtopsectv[3]+"|"+azdtopsectv[2]; 
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; if(lsatb[0].value=="casa_"){irif=iriff=i; break;}} var lsatb=lskrif[irif].attributes; 
for(i=0;i<lsatb.length;i++){if(lsatb[i].nodeName.indexOf("rif")>-1){ndt[irif]=lsatb[i].value;irif++; } } /*alert(ndt+"\n"+vdt);*/
for(i=0;i<ndt.length;i++){if(i==0){vdt[i]=tv; } if(i==1){vdt[i]=avv; } if(i>1){vdt[i]=""; } } /*alert(ndt+"\n"+vdt); alert(iriff)*/

var lskey=lskrif[iriff].getElementsByTagName("key"); /*alert(lskey.length>0);*/ var rifk="key "+ndt[0]+"='"+vdt[0]+"' "+ndt[1]+"='"+vdt[1]+"' "; /*alert(rifk); */
if(lskey.length>0){ for(j=0;j<lskey.length;j++){var lsatb=lskey[j].attributes; var tavolo=lsatb[0].value,acquir=lsatb[1].value; 
/*alert(tavolo+" - "+vdt[0]+"\n"+acquir+" - "+vdt[1]);*/ if(tavolo==vdt[0]&&acquir==vdt[1]){trv=1;break; } } }
if(trv==1&&vdt[2]==""){msg="** ATTENZIONE ** la chiave dell'acquirente <b>"+vdt[1]+"</b> e' gia' stata predisposta in <b>gestione_tavoli</b>.</br>Puoi procedere con la costruzione e l'invio dell'ordinazione."; mostraer(msg); salta=1; }
if(trv==1&&vdt[2]!=""&&vdt[3]!=""){msg="** ATTENZIONE ** dalla chiave dell'acquirente <b>"+vdt[1]+"</b> risulta che </mark>l'ordinazione è già stata confermata e inviata</mark>"; mostraer(msg); return; }
if(salta==0){
newkey1="key ";
for(i=0;i<ndt.length;i++){newkey1=newkey1+ndt[i]+"='"+vdt[i]+"' ";}newkey1=newkey1+"/>";/*alert(newkey1);*/newkey1=newkey1.replace(/'/g,"&#39;"); 
keyrif1=keyrif1.replace(/'/g,"&#39;"); 
var strm="<form id='frmnewraz' target='popup' style='display:block'> ";  
strm=strm+"<input type='text' name='nomreg1' value='"+regdamod1+"' /><input type='text' name='operaz1' value='"+operaz1+"' />";
strm=strm+"<input type='text' name='keyrif1' value='"+keyrif1.replace(/'/g,"&#39;")+"' />"; 
valrec=newkey1;
strm=strm+"<input name='key"+nrec+"' style='border:0px; width:100%; text-overflow: ellipsis' value='"+valrec+"' readonly='true'>"; nrec++;
strm=strm+"<input type='text' name='nrec' value='"+nrec+"' /><input type='text' name='sect' value='"+sect+"' />";
strm=strm+"<input type='text' name='mail' value='' /><input type='text' name='oggetto' value='' />";
strm=strm+"<input type='text' name='nomreg2' value='"+regdamod2+"' /><input type='text' name='operaz2' value='"+operaz2+"' />";
strm=strm+"<input type='text' name='keyrif2' value='"+keyrif2+"' /> <input type='text' name='newkey2' style='width:100%;' value='"+newkey2+"' /></form>";
document.getElementById("livp0").innerHTML=strm; /*alert(strm);*/
var frm=document.getElementById("frmnewraz"); /*alert(strm);*/
frm.action="gestserver1/registra_dati.asp"; frm.target="popup"; frm.method="post"; frm.submit(); document.getElementById("livp0").innerHTML=""; 
var msg="il tavolo <b>"+tv+"</b> e' stato abilitato e assegnato all'acquirente <b>avv</b>"; mostraer(msg); }
str=str+"<center><table id='tabord' style='table-layout:auto;'><tr><th colspan=5> Ordinazione complessiva per il tavolo <span id='datiospite'><b>"+tv+"</b></span></th></tr><tr><th>N</th> <th>prodotto</th><th>prezzo unitario</th> <th>qta</th><th>canc</th></tr></table>" 
document.getElementById("livp1").innerHTML=str; 
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; regdamod1="../"+ckxml; var operaz1="inserisci",keyrif1="gestione_ordinazioni.xml "; 
newkey1="keyrif tavolo='"+tv+"' rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='qta' rif4='costi' rif5='stati' >";
newkey1=newkey1; valrec=newkey1.replace(/'/g,"&#39;");
setTimeout(()=>predisponikrifordinazioni(regdamod1,keyrif1,newkey1,operaz1),500); 
}
/*setTimeout(()=>vediabtav(document.getElementById("codtav")),1000); */
}

function predisponikrifordinazioni(regdamod1,keyrif1,newkey1,operaz1){ percorso=percorso+"predisponikrifordinazioni; "; var nrec=0;
var strm="<form id='frmnewraz' target='popup' style='display:block'> ";  
strm=strm+"<input type='text' name='nomreg1' value='"+regdamod1+"' /><input type='text' name='operaz1' value='"+operaz1+"' />";
strm=strm+"<input type='text' name='keyrif1' value='"+keyrif1.replace(/'/g,"&#39;")+"' />"; 
strm=strm+"<input name='key"+nrec+"' style='border:0px; width:100%; text-overflow: ellipsis' value='"+valrec+"' readonly='true'>"; nrec++;
newkey1="/keyrif>";
valrec=newkey1;
strm=strm+"<input name='key"+nrec+"' style='border:0px; width:100%; text-overflow: ellipsis' value='"+valrec+"' readonly='true'>"; nrec++;
strm=strm+"<input type='text' name='nrec' value='"+nrec+"' /><input type='text' name='sect' value='"+sect+"' />";
strm=strm+"<input type='text' name='mail' value='' /><input type='text' name='oggetto' value='' />";
strm=strm+"<input type='text' name='nomreg2' value='' /><input type='text' name='operaz2' value='' />";
strm=strm+"<input type='text' name='keyrif2' value='' /> <input type='text' name='newkey2' style='width:100%;' value='' /></form>";
document.getElementById("livp0").innerHTML=strm; /*alert(strm);*/ var frm=document.getElementById("frmnewraz"); /*alert(strm);*/
frm.action="gestserver1/registra_dati.asp"; frm.target="popup"; frm.method="post"; frm.submit();
azpausa=0;
while(azpausa<10000000){azpausa++;}
document.getElementById("livp0").innerHTML=""; 
azpausa=0;
}

function vedisala(sala){percorso=percorso+"vedisala; "; if(tipop!="caposala"){return;}
ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg(ckxml); var ckxml2=wsprcreg+"/gestione_ordinazioni.xml"; leggireg3(ckxml2); setTimeout(()=>azmodgestsala(sala),500); var msg="attività di gestione della sala <b>"+sala+"</b>";mostraer(msg);
}

function azmodgestsala(sala){percorso=percorso+"azmodgestsala; ";  var wscelvar="",cel="",i=0, j=0,t=tr=0,k=0,str=color=prov="",nktavsal=new Array(); prov="azmodgestsala"; 
/*ckxml=wsprcreg+"gestione_tavoli.xml"; leggidatiaziendali2(ckxml); */
var lskeyrif=nvarxml.getElementsByTagName("keyrif"); 
var salear=new Array(), tvar=new Array(), val="",p1=0;
var style = document.createElement('style'),sstr=""; sstr=".newc3{ background-color:"+wscl[3]+";color:"+wscl[0]+";font-size:"+azfont8+"px; } #livsala th{background-color:"+wscl[3]+";color:"+wscl[0]+";font-size:"+azfont8+"px;}";
style.type = 'text/css'; style.innerHTML=sstr;
document.getElementsByTagName('head')[0].appendChild(style);
p1=wsrep.indexOf("_"); var salarif=wsrep.slice(p1+1),ind=0,msg=""; /*alert("salarif="+salarif+"\n"+http_request2.responseText); */
for(i=0;i<lskeyrif.length;i++){val=lskeyrif[i].attributes[0].value; if(val.indexOf(salarif)>-1){ind=i;break; }}
if(ind==0){msg="** ATTENZIONE ** : <b>"+salarif+"</b> è una sala inesistente"; mostraer(msg); return; }
p1=val.indexOf("_"); var tavsal=val.slice(p1+1); 
str=str+"<center style='font-size:"+(azfont8+8)+"px;'><mark> "+wsrep+" </mark>";
str="<table style='table-layout:fixed;width:100%;background-color:"+wscl[3]+";color:"+wscl[3]+";cursor:pointer;' >";tr=i; for(j=1;j<=tavsal;j=j+3){str=str+"<tr><th id='"+salarif+"_"+j+"' onclick='veditavolo0(this.textContent,\""+salarif+"\",this)' style='/*border:1px "+wscl[4]+" solid;*/background-color:"+wscl[0]+";color:"+wscl[3]+";' >"+j+"</th><th id='"+salarif+"_"+(j+1)+"' onclick='veditavolo0(this.textContent,\""+salarif+"\",this)' style='/*border:1px "+wscl[4]+" solid;*/background-color:"+wscl[0]+";color:"+wscl[3]+";' >"+(j+1)+"</th><th id='"+salarif+"_"+(j+2)+"' onclick='veditavolo0(this.textContent,\""+salarif+"\",this)' style='/*border:1px "+wscl[4]+" solid;*/background-color:"+wscl[0]+";color:"+wscl[3]+";' >"+(j+2)+"</th></tr>"; }str=str+"</table></center>"; 
str=str+"</table>"; 
str=str+"</center>"; 
document.getElementById("livsala").innerHTML=str; 
gestiscitavoli(val);
}

function vediabtav(obj){percorso=percorso+"vediabtav; "; ckxml=wsprcreg+"/gestione_tavoli.xml"; var aa=leggireg2(ckxml); var p1=0,sala="",tavolo="";
if(obj.value!=null){tavolo=obj.value; }else{tavolo=document.getElementById("codtav").value;  }
p1=tavolo.indexOf("_"); sala=tavolo.slice(0,p1); var natrib=new Array(),vatrib=new Array()
if(aa.indexOf("NON TROVATO")>-1){ msg="Comunicare al caposala che <b>gestione_tavoli</b> non e' stato ancora predisposto e il tavolo <mark><b>"+tavolo+"</b> non e' abilitato</mark>"; mostraer(msg); return; }
/*alert(http_request2.responseText); alert(obj.value);*/ /*if(document.getElementById("acqord").innerText.indexOf("Ordinazione da casa")==-1)*/
if(obj.value!=null){
if(obj.value.indexOf("casa_")==-1){if(obj.style.color!="rgb(0, 0, 0)"){msg="<b> * ATTENZIONE * </b>il codice del tavolo non e' del formato <b>sala_numero</b>";mostraer(msg);return;}}
}
var lskrif=nvarxml2.getElementsByTagName("keyrif"); var i=irif=0,trvsal=trv=0,sal=tav=str=regdamod1=rifkey1=newkey1=regdamod2=rifkey2=newkey2=avv=""; /*alert(lskrif.length+"\n"+tavolo);*/

for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; sal=lsatb[0].value;/*alert(sal+" - "+tavolo);*/ if(sal.indexOf(sala)>-1){trvsal=1;irif=i;/*} if(trvsal==1){*/break;} }
if(trvsal==0){msg="<b> * ATTENZIONE * </b>nell'indicare il codice del tavolo e' stato inserito un nome di sala inesistente"; mostraer(msg); return;}
if(tipop!="caposala"){/*avv=azdtopsectv[4]+"|"+azdtopsectv[5]+"|"+azdtopsectv[0];*/avv=azdtopsectv[2]+"|"+azdtopsectv[3]; }else{avv=document.getElementById("datiospite").innerText; }
/*alert(azdtopsect+"\n\n"+azdtopsectv);*/
for(i=0;i<lsatb.length;i++){natrib[i]=lsatb[i].nodeName; vatrib[i]=lsatb[i].value; } /*alert(natrib+"\n\n"+vatrib);*/
/*for(i=0;i<lskrif.length;i++){if(lskrif[i].attributes[0].value==sala){irif=i; break;} } */
var lskey=lskrif[irif].getElementsByTagName("key"); var er=0; for(i=0;i<lskey.length;i++){ /*alert(lskey[i].attributes[0].value+"\n"+lskey[i].attributes[2].value+"\n"+avv);*/
	if(lskey[i].attributes[0].value!=tavolo&&lskey[i].attributes[2].value==avv){er=1;break; } }
if(er==1&&tipop!="caposala"){msg="<b> * ATTENZIONE * </b>l'ospite <b>"+avv+"</b> risulta assegnato al tavolo <b>"+lskey[i].attributes[0].value+"</b>"; mostraer(msg); return;}

var lskey=lskrif[irif].getElementsByTagName("key"); 
for(i=0;i<lskey.length;i++){var lsatb=lskey[i].attributes; tav=lsatb[0].value; /*alert("tav="+tav+"\ntavolo="+tavolo+"\n"+(tav==tavolo));*/
if(tav==tavolo){trv=1;} if(trv==1){break;} }
if(trv==0&&tipop!="caposala"){msg="<b> * ATTENZIONE * </b>il tavolo indicato NON e' stato ancora abilitato, <b>segnalare l'inconveniente al caposala</b>"; mostraer(msg); return;}
if(trv==0&&tipop=="caposala"&&obj.style.backgroundColor!="rgb(204, 0, 204)"){ /*abilitazione tavolo*/ var cel=tavolo.slice(p1+1);
istmds.innerHTML="<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></br> Indica il numero di coperti del tavolo "+tavolo+" </br><input type='number' id='numcop' min=1 value='' style='width:50px'> </br><button onclick='registranumcop(\""+tavolo+"\",\""+cel+"\",\""+sala+"\")'>registra</button>"; istmds.style.display="block";
return;}
/*alert("trv="+trv+"\nlsatb[2].value="+lsatb[2].value+"\navv="+avv+"\n"+(trv==1&&(lsatb[2].value!=""&&lsatb[2].value!=avv)));*/
if(trv==1&&(lsatb[2].value!=""&&lsatb[2].value!=avv)){msg="<b> * ATTENZIONE * </b>il tavolo indicato e' gia' stato assegnato ad un altro cliente"; mostraer(msg); return;}
/*alert("trv="+trv+"\nlsatb[2].value="+lsatb[2].value+"\n"+(trv==1&&lsatb[2].value==""));*/
if(trv==1&&lsatb[2].value==""){msg="il tavolo <b>"+tavolo+"</b> e' assegnato al nostro ospite <b>"+azdtopsectv[2]+" "+azdtopsectv[3]+"</b>"; mostraer(msg);}
rifkey1=newkey1="key ",natrib=new Array(), vatrib=new Array();
for(i=0;i<lsatb.length;i++){natrib[i]=lsatb[i].nodeName; vatrib[i]=lsatb[i].value; } /*alert(natrib+"\n\n"+vatrib);*/
for(i=0;i<natrib.length;i++){rifkey1=rifkey1+natrib[i]+"='"+vatrib[i]+"' ";}rifkey1=rifkey1+"/>"; vatrib[2]=avv; 
for(i=0;i<natrib.length;i++){newkey1=newkey1+natrib[i]+"='"+vatrib[i]+"' ";}newkey1=newkey1+"/>"; 
regdamod1="../"+ckxml; 
/*alert(regdamod1+"\n"+rifkey1+"\n"+newkey1);*/
newkey1=newkey1.replace(/'/g,"&#39;"); rifkey1=rifkey1.replace(/'/g,"&#39;"); /*alert(trv==1&&lsatb[2].value==avv);*/
/*alert((trv==1&&lsatb[2].value!=""&&lsatb[2].value!=avv)+"\n"+(trv==1&&lsatb[2].value!=""&&lsatb[2].value!=avv));*/
if(trv==1&&lsatb[2].value!=""&&lsatb[2].value!=avv){msg="tavolo gia' assegnato"; mostraer(msg); return;}
if(trv==1&&lsatb[2].value!=""&&lsatb[2].value==avv){ for(i=3;i<13;i++){if(lsatb[i].value==0){azlivp=i-2; break; } } 
msg="procedi con la costruzione del <b>livello di portate n."+azlivp+"</b></br>"; aznrow=0; mostraer(msg); gestisciordinazione(natrib,vatrib,regdamod1,rifkey1); return;}
/*	msg="registrazione di un nuovo livello di portate"; mostraer(msg); gestisciordinazione(natrib,vatrib,regdamod1,rifkey1); return;*/
str="<form id='frmnewraz' target='popup' style='display:block'> "; azione="modifica key gestione_tavoli.xml";
str=str+"<input type='text' name='regdamod1' value='"+regdamod1+"' /><input type='text' name='rifkey1' value='"+rifkey1+"' /> <input type='text' name='regdamod2' value='"+regdamod2+"' /><input type='text' name='rifkey2' value='"+rifkey2+"' /> <input type='text' name='newkey1' style='width:100%;' value='"+newkey1+"' /> <input type='text' name='newkey2' style='width:100%;' value='"+newkey2+"' /> <input type='text' name='azione' style='width:100%;' value='"+azione+"' /> </form>";
document.getElementById("livp0").innerHTML=str; var frm=document.getElementById("frmnewraz"); 
frm.action="gestserver1/modifica_key.asp"; frm.target="popup"; frm.method="post"; frm.submit(); /*gestisciordinazione(natrib,vatrib,regdamod1,rifkey1);*/
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; regdamod1="../"+ckxml; var operaz1="inserisci",keyrif1="gestione_ordinazioni.xml "; 
newkey1="keyrif tavolo='"+tavolo+"' rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='quantitativi' rif4='costi' rif5='stati' >";
newkey1=newkey1; valrec=newkey1.replace(/'/g,"&#39;");
setTimeout(()=>predisponikrifordinazioni(regdamod1,keyrif1,newkey1,operaz1),500); 
/*<keyrif ospite='aaa|aaa|aaaaaa11a11a111a' rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='quantitativi' rif4='costi' rif5='costo' rif6='stato' >*/
setTimeout(()=>gestisciordinazione(natrib,vatrib,regdamod1,rifkey1),1000); 
}


function verificaabltav(tavolo){percorso=percorso+"verificaabltav; "; /*var tavolo=obj.value; alert(tipop);*/
/*alert("verificaabltav\ntavolo="+tavolo+"\nwsprcreg="+wsprcreg+"\n\n"+http_request.responseText);*//*alert(http_request1.responseText);*//*alert(http_request3.responseText);*/
/*legge gestione_tavoli e controlla la presenza della sezione keyrif tavolo='tavolo' e se esiste verifica che esso non sia stato affidato ad altro ospite altrimenti pone il valore del campo tavolo e l'innerText di riftavolo =""*/
var sal=tv=mag=avv="",p1=p2=i=j=ind=trv=trv2=nk=esci=0,ndt=new Array(),vdt=new Array(),rep=str="",nliv=1; 
/*wsprcreg="RISTORANTE/";*/ var lskrif=nvarxml.getElementsByTagName("keyrif"); 
if(tavolo.indexOf("casa_")>-1){ for(i=0;i<lskrif.length;i++){tv=lskrif[i].attributes[0].value; if(tv=="casa"){ind=i;break;}}
var lsk2=lskrif[ind].getElementsByTagName("key"); nk=(lsk2.length*1+1); tv=lskrif[ind].attributes[0].value; /*alert(tv+"\n"+ind);*/
if(nk>100){msg="** ATTENZIONE ** per oggi sono state già raggiunte le 10 ordinazioni da casa"; mostraer(msg); return;} 
tavolo=tavolo.replace("casa_","casa_"+nk); /*alert(tavolo); return;*/
var indreg1=""+wsprcreg+"/gestione_tavoli.xml",krif1="keyrif sala='casa_",azione="inserisci"; 
var irif=ik=i=j=0; 
var lsatb=lskrif[ind].attributes;  
for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; } } /*if(irif>0){break;} }} vdt[0]=sala+"_"+cel; vdt[1]=numcop; vdt[2]="";*/
/*<key tavolo='123123123|xxxxxxxxxx|111' acquirente='acquirente|uno|acqprv11a11a111a' ordinazione='ok' conferma='ok' spedita='' costo='81.40' punti='8.14' saldata='' />*/

var rifospiten=new Array("cognome","nome","telefono","indirizzo","cap"),rifospitev=""; 
for(i=0;i<rifospiten.length;i++){rifospitev=rifospitev+"|"+datiutv[(i+3)]; } rifospitev=rifospitev.slice(1); /*alert(rifospitev);*/
for(i=0;i<lsk2.length;i++){var riftav=lsk2[i].attributes[0].value; if(riftav.indexOf(rifospitev)>-1){msg="** ATTENZIONE ** nel sistema è già presente un'ordinazione dell'indirizzo "+rifospitev+" non ancora consegnata e pagata"; mostraer(msg); return; } }
/**/
vdt[0]=tavolo; vdt[1]=rifospitev; document.getElementById("riftavolo").innerText=tavolo; /*alert(tavolo);*/
for(i=2;i<ndt.length;i++){vdt[i]=0;} /*alert(ndt+"\n"+vdt);*/
var newk1="key "; for(k=0;k<ndt.length;k++){newk1=newk1+ndt[k]+"='"+vdt[k]+"' "; }newk1=newk1+"/>"; 
var rifasp="progasp/insertmodkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&azione="+azione; /*alert(newk1+"\n"+krif1+"\n"+rifasp);*/ window.open(rifasp,"risp");
msg="l'acquirente <b>"+rifospitev+"</b> può procedere alla costruzione della sua ordinazione"; mostraer(msg); /*return;*/
str="<center><table id='tabord' style='table-layout:auto;width:100%;'><tr><th colspan=5> ordinazione<b>"+nliv+"</b></th></tr><tr><th style='max-width:10%;'>N</th> <th style='max-width:50%;'>prodotto</th><th style='max-width:20%;'>prezzo unitario</th> <th style='max-width:10%;'>qta</th><th style='width:10%;'>canc</th> </tr></table>";
var livport=document.getElementById("livp"+nliv); livport.innerHTML=str;livport.style.display="block"; var liv11=document.getElementById("livp11"); livp11.style.display="block"; 
/*return;*/ tv=tavolo; /*alert(tv);*/
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; regdamod1="../"+ckxml; var operaz1="inserisci",keyrif1="gestione_ordinazioni.xml "; 
newkey1="keyrif tavolo='"+tv+"' rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='quantitativi' rif4='costi' rif5='stati' >";
newkey1=newkey1; valrec=newkey1.replace(/'/g,"&#39;");
setTimeout(()=>predisponikrifordinazioni(regdamod1,keyrif1,newkey1,operaz1),600); 
}
/*alert(77); alert(trv+"\n"+tavolo+"\n"+tv+"\n"+(trv==1&&tavolo==tv&&avv!="")); alert(ndt+"\n"+vdt);*/

if(tavolo.indexOf("casa_")==-1){ 
p1=tavolo.indexOf("_"); sal=tavolo.slice(0,p1); /*trova la keyrif della sala in gestione_tavoli*/ var lskeyrif=nvarxml.getElementsByTagName("keyrif"); 
for(i=0;i<lskeyrif.length;i++){tv=lskeyrif[i].attributes[0].value; /*alert(tv+"\n"+sal+"\n"+(tv.indexOf(sal)>-1)); */ if(tv.indexOf(sal)>-1){ind=i;break;}}
var lsatb=lskeyrif[ind].attributes;  ik=0; ndt=[];vdt=[]; 
var lskey=lskeyrif[ind].getElementsByTagName("key"); /*genera la lista dei tavoli della sala*/
for(i=0;i<lskey.length;i++){tv=lskey[i].attributes[0].value; if(tv==tavolo){ind=i; trv=1;break;}} /*vede se la chiave del tavolo è già presente*/
if(lskey.length==0||(lskey.length>0&&trv==0&&tipop!="caposala")){msg="** ATTENZIONE ** riferire al caposala che <b>il tavolo "+tavolo+" non è stato ancora abilitato"; funz0(); mostraer(msg); return;}
var lsatb=lskey[ind].attributes;/*alert(lsatb.length);*/ for(i=0;i<lsatb.length;i++){ ndt[i]=lsatb[i].nodeName;vdt[i]=lsatb[i].value;}
if(vdt[13]==1||vdt[16]==1){msg="** ATTENZIONE ** il tavolo <b>"+tavolo+"</b> ha già chiuso le ordinazioni"; mostraer(msg); return;} 
/*se le ordinazionmi di quel tavolo non sono state già chiuse o saldate*/
if(tipop!="caposala"&&tipop!="wsm"){ var rifospiten=new Array("cognome","mail"),rifospitev=""; for(i=0;i<datiutn.length;i++){
if(datiutn[i]==rifospiten[0]||datiutn[i]==rifospiten[1]){rifospitev=rifospitev+"|"+datiutv[i];}} rifospitev=rifospitev.slice(1);document.getElementById("datiospite").innerText=rifospitev; 
/*verifica che non vi sia già un altro tavolo interno assegnato a quell'ospite*/ /*alert(rifospitev);*/
var lskeyrifglob=nvarxml.getElementsByTagName("keyrif");
for(i=0;i<lskeyrifglob.length;i++){var sal=lskeyrifglob[i].attributes[0].value; var lskeyglob=lskeyrifglob[i].getElementsByTagName("key"); 
for(j=0;j<lskeyglob.length;j++){tv=lskeyglob[j].attributes[0].value; if(lskeyglob[j].attributes[2].value==rifospitev&&tv!=tavolo){trv2=1;break;}} if(trv2==1){break;}}
if(trv2==1){msg="** ATTENZIONE ** l'ospite <b>"+rifospitev+"</b> risulta gia&#180; assegnato al tavolo <b>"+tv+"</b> della sala <b>"+sal+"</b>. Rivolgersi al caposala"; mostraer(msg); return;}
}
if(tipop=="caposala"){rifospitev=document.getElementById("datiospite").innerText; } /*alert(rifospitev);*/
var oldk="key "; for(j=0;j<lsatb.length;j++){oldk=oldk+lsatb[j].nodeName+"='"+lsatb[j].value+"' "; } oldk=oldk+"/>"; 
/*alert(oldk);*//*alert("trv="+trv+"\ntavolo="+tavolo+"\ntv="+tv+"\navv="+avv+"\n"+(trv==1&&tavolo==tv&&avv=="")+"\n"+(trv==1&&vdt[1]!=""&&vdt[2]==""));*/
/*alert(trv+"\n"+vdt[1]+"\n"+vdt[2]+"\n"+(trv==1&&vdt[1]!=""&&vdt[2]==""));*/
if(trv==1&&vdt[1]!=""&&vdt[2]==""){msg="*Il tavolo <b>"+tavolo+"</b> viene assegnato all&#180;ospite <b>"+rifospitev+"</b> che può costruire il suo primo livello di portate"; mostraer(msg); /*alert(msg);*/
vdt[2]=rifospitev; var newk1="key "; for(k=0;k<ndt.length;k++){newk1=newk1+ndt[k]+"='"+vdt[k]+"' "; }newk1=newk1+"/>"; /*alert(oldk+"\n\n"+newk1);*/
var indreg1="RISTORANTE/gestione_tavoli.xml",krif1=oldk; var azione="sostituisci";
var rifasp="progasp/insertmodkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&azione="+azione; /*alert(newk1+"\n"+krif1+"\n"+rifasp);*/ window.open(rifasp,"risp");
str="<center><table id='tabord' style='table-layout:auto;max-width:100%;'><tr><th colspan=5> livello di portate n.<b><span id='nlivp'>"+nliv+"</span></b></th></tr><tr><th style='max-width:10%;'>N</th> <th style='max-width:50%;'>prodotto</th><th style='max-width:20%;'>prezzo unitario</th> <th style='max-width:10%;'>qta</th><th style='width:10%;'>canc</th> </tr></table>";
var livport=document.getElementById("livp"+nliv); livport.innerHTML=str;livport.style.display="block"; 

/*rileva la presenza della keyrif del tavolo in gestione_ordinazioni e in sua assenza la genera*/ 
var lskeyrif1=nvarxml3.getElementsByTagName("keyrif"),kriford=0; /*alert(lskeyrif1.length+"\n"+datiazxml1.responseText);*/
for(i=0;i<lskeyrif1.length;i++){var rift1=lskeyrif1[i].attributes[0].value; if(rift1==tavolo){kriford=1;break;}}
if(kriford==0){ ckxml=wsprcreg+"/gestione_ordinazioni.xml"; regdamod1="../"+ckxml; var operaz1="inserisci",keyrif1="gestione_ordinazioni.xml "; 
newkey1="keyrif tavolo='"+tavolo+"' rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='quantitativi' rif4='costi' rif5='stati' >";
newkey1=newkey1; valrec=newkey1.replace(/'/g,"&#39;"); /*alert(regdamod1+"\n"+keyrif1+"\n"+newkey1+"\n"+operaz1);*/ msg="viene generata la sezione keyrif del nuovo tavolo";
setTimeout(()=>predisponikrifordinazioni(regdamod1,keyrif1,newkey1,operaz1),600); }else{msg="la sezione keyrif del tavolo è già presente";} mostraer(msg);
return;
}
/*alert(trv+"\n"+vdt[1]+"\n"+vdt[2]+"\n"+(trv==1&&vdt[1]!=""&&vdt[2].indexOf("caposala")>-1));*/
if(trv==1&&vdt[1]!=""&&vdt[2].indexOf("caposala")>-1){msg="forse viene generata in gestione_ordinazioni la sezione keyrif riferita al tavolo <b>"+tavolo+"</b> gestito da <b>"+rifospitev+"</b>"; mostraer(msg); /*alert(msg);*/
str="<center><table id='tabord' style='table-layout:auto;max-width:100%;'><tr><th colspan=5> livello di portate n.<b><span id='nlivp'>"+nliv+"</span></b></th></tr><tr><th style='max-width:10%;'>N</th> <th style='max-width:50%;'>prodotto</th><th style='max-width:20%;'>prezzo unitario</th> <th style='max-width:10%;'>qta</th><th style='width:10%;'>canc</th> </tr></table>";
var livport=document.getElementById("livp"+nliv); livport.innerHTML=str;livport.style.display="block"; 
/*rileva la presenza della keyrif del tavolo in gestione_ordinazioni e in sua assenza la genera*/ 
var lskeyrif1=nvarxml3.getElementsByTagName("keyrif"),kriford=0; /*alert(lskeyrif1.length+"\n"+datiazxml1.responseText);*/
for(i=0;i<lskeyrif1.length;i++){var rift1=lskeyrif1[i].attributes[0].value; /*alert(rift1+"\n"+tavolo);*/ if(rift1==tavolo){kriford=1;break;}}
if(kriford==0){ ckxml=wsprcreg+"/gestione_ordinazioni.xml"; regdamod1="../"+ckxml; var operaz1="inserisci",keyrif1="gestione_ordinazioni.xml "; 
newkey1="keyrif tavolo='"+tavolo+"' rif0='rif_ord' rif1='reparti' rif2='prodotti' rif3='quantitativi' rif4='costi' rif5='stati' >";
newkey1=newkey1; valrec=newkey1.replace(/'/g,"&#39;"); /*alert(regdamod1+"\n"+keyrif1+"\n"+newkey1+"\n"+operaz1);*/ msg="viene generata la sezione keyrif del nuovo tavolo";
setTimeout(()=>predisponikrifordinazioni(regdamod1,keyrif1,newkey1,operaz1),600); }else{msg="";} mostraer(msg);
return;
}

/*p2=tavolo.indexOf("/"); 
if(p1>-1&&p2==-1){msg="** ATTENZIONE ** riferire al caposala che <b>il tavolo "+tavolo+" rigenerato non è stato ancora abilitato"; funz0(); mostraer(msg); return;}*/

for(i=0;i<lskey.length;i++){avv=lskey[i].attributes[2].value; tv=lskey[i].attributes[0].value; /*alert(i+"\n1-avv="+avv+"\ntv="+tv+"\ntavolo="+tavolo+"\nrifospitev="+rifospitev); */
/*if(avv==rifospitev&&tv!=tavolo)*/if(tv==tavolo){break;}}
/*alert(avv+"\n"+rifospitev+"\n"+(avv!=rifospitev));*/
if(avv!=rifospitev){msg="** ATTENZIONE ** il tavolo <b>"+tavolo+"</b> è stato assegnato ad un ospite diverso da <b>"+rifospitev+"</b>";mostraer(msg); return; }

for(i=0;i<lskey.length;i++){avv=lskey[i].attributes[2].value; tv=lskey[i].attributes[0].value;  
if(tavolo==tv){trv=1; ind=i; break;}}
var lsatb=lskey[ind].attributes; for(i=0;i<10;i++){if(lsatb[(i+3)].value==0){var nliv=i+1;vdt[i+3]=1; break;} }
var newk1="key "; for(k=0;k<ndt.length;k++){newk1=newk1+ndt[k]+"='"+vdt[k]+"' "; }newk1=newk1+"/>"; if(tipop!="caposala"){msg="l&#180;";}else{msg="il ";}
msg=msg+tipop+" <b>"+rifospitev+"</b> assegnato al tavolo <b>"+tavolo+"</b> può costruire il livello di portate n."+nliv+"</br>"; mostraer(msg);
/*var indreg1="RISTORANTE/gestione_tavoli.xml",krif1=oldk; var azione="sostituisci";
var rifasp="progasp/insertmodkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&azione="+azione; window.open(rifasp,"risp");*/
str="<center><table id='tabord' style='table-layout:auto;width:100%;'><tr><th colspan=5> livello di portate n.<b>"+nliv+"</b></th></tr><tr><th style='max-width:10%;'>N</th> <th style='max-width:50%;'>prodotto</th><th style='max-width:20%;'>prezzo unitario</th> <th style='max-width:10%;'>qta</th><th style='width:10%;'>canc</th> </tr></table>";
var livport=document.getElementById("livp"+nliv); livport.innerHTML=str;livport.style.display="block"; var liv11=document.getElementById("livp11"); livp11.style.display="block"; 
if(nliv>1){return;}
/**/
/*return;*/}

/*alert(regdamod1+"\n"+keyrif1+"\n"+newkey1+"\n"+operaz1); return; predisponikrifordinazioni(regdamod1,keyrif1,newkey1,operaz1);*/
 }

function registrastato0(stat,rifk,indreg,newk,rep,oldk,rifstrep){percorso=percorso+"registrastato0; "; 
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; var cc=leggireg3(ckxml);  setTimeout(()=>registrastato(stat,rifk,indreg,newk,rep,oldk,rifstrep),500);
}

function registrastato(stat,rifk,indreg,newk,rep,oldk,rifstrep){percorso=percorso+"registrastato; "; var fatto=0,indreg1=""+indreg,msg=""; mostraer("");
/*alert("wssect="+wssect+"\nrep="+rep+"\nindreg="+indreg);*/
/*alert("registrastato\nstat="+stat+"\nrifk="+rifk+"\nindreg="+indreg+"\nnewk="+newk+"\noldk="+oldk+"\nrifstrep="+rifstrep+"\n"+"\n\n"+http_request.responseText);alert(http_request2.responseText);alert(http_request3.responseText); return;*/
if(stat==0){/* *** cambia da 0 ad 1 il valore dell'attributo stato nella chiave dell'ordinazione nel registro produzioni.xml del reparto produttivo *** */ 
var azione="sostituisci"; insertmodelkey(rifk,indreg1,newk,rep,azione); 

/* *** aggiorna produzioni.xml di sala inserendo la oldk maggiorata dell'attributo reparto del registro di produzione del reparto *** */
var p1=0,repsala=indrepsala="";var newk2=newk01=newk02="";p1=oldk.indexOf("prodotti='");newk01=oldk.slice(0,p1);newk02=oldk.slice(p1);newk2=newk01+"reparto='"+rep+"' "+newk02;
p1=rifk.indexOf("_"); repsala="sala_"+rifk.slice(0,p1); p1=indreg1.indexOf(rep); var indreg2=indreg1.slice(0,p1);/*alert(indreg1+"\n"+p1+"\n"+indreg2); */ indreg2=indreg2+repsala+"/produzioni.xml"; /*alert(indreg2);*/
var krif2="/keyrif>"; 
var azione2="inserisci"; setTimeout(()=>insertmodelkey(krif2,indreg2,newk2,rep,azione2),300); 

/* *** legge e aggiorna gestione_ordinazioni sostituendo R0 con R1 o P0 con P1 o B0 con B1 ***  */
var lskrif=nvarxml3.getElementsByTagName("keyrif"),ndt=new Array(),vdt=new Array(),prar=new Array(),qar=new Array(),przar=new Array();
var irif=ikey=ik=i=j=k=n=nz=nliv=numtav=p1=trv=0,sala=tav=str=oldk3=newk3=indreg3="";
 irif=0; p1=rifk.indexOf("/"); var tavolo=rifk.slice(0,p1); 
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; /*alert(lsatb[0].value+"\n"+tavolo+"\n"+(tavolo==lsatb[0].value));*/ 
if(tavolo==lsatb[0].value){irif=i; trv=1; for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; }} /*alert(ndt);*/ break;  }}
oldk3="key "; newk3="key "; 
var lskey=lskrif[irif].getElementsByTagName("key");/*alert(lskey.length); */
if(lskey.length>0){ for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; /*alert(lsatbkey[0].value+"\n"+rifk+"\n"+(rifk.indexOf(lsatbkey[0].value)>-1)+"\n"+j);*/
if(rifk==lsatbkey[0].value){ikey=j; break;}}} 
vdt=[]; var lsatb=lskey[ikey].attributes; /*alert(ikey+"\n"+rifk+"\n"+lsatb[0].value);*/
for(k=0;k<lsatb.length;k++){ vdt[k]=lsatb[k].value; oldk3=oldk3+ndt[k]+"='"+vdt[k]+"' "; }
if(rep=="Ristorante"){newk3=oldk3.replace("R0","R1");}  
if(rep=="Pizzeria"){newk3=oldk3.replace("P0","P1");}
if(rep=="Bar_Pasticceria"){newk3=oldk3.replace("B0","B1");}
oldk3=oldk3+"/>"; newk3=newk3+"/>"; indreg3=""+wsprcreg+"/gestione_ordinazioni.xml"; var azione="sostituisci"; 
setTimeout(()=>insertmodelkey(oldk3,indreg3,newk3,rep,azione),600); 
}

if(stat==1){/* *** elimina la chiave dell'ordinazione dal registro di produzione di sala  *** */ 
var fatto=0,indreg1=""+indreg,msg="",azione="eliminakey",newk=""; insertmodelkey(rifk,indreg1,newk,rep,azione); /*alert(indreg1);*/
/* *** elimina la chiave dell'ordinazione dal registro produzione di reparto in quanto la consegna è stata effettuata *** */
var p1=0,repsala=""; var newk2=oldk=""; 
p1=rifk.indexOf("_"); repsala="sala_"+rifk.slice(0,p1); p1=indreg1.indexOf(rep); var indreg2=indreg1.slice(0,p1);/*alert(indreg1+"\n"+p1+"\n"+indreg2); */ indreg2=indreg2+repsala+"/produzioni.xml"; /*alert(indreg2);*/
var krif2=rifk; 
var azione2="eliminakey"; setTimeout(()=>insertmodelkey(krif2,indreg2,newk2,rep,azione2),300); 
/* *** legge e aggiorna gestione_ordinazioni sostituendo R1 con R2 o P1 con P2 o B1 con B2 ***  */
var lskrif=nvarxml3.getElementsByTagName("keyrif"),ndt=new Array(),vdt=new Array(),prar=new Array(),qar=new Array(),przar=new Array();
var irif=ikey=ik=i=j=k=n=nz=nliv=numtav=p1=trv=0,sala=tav=str=oldk3=newk3=indreg3="";
 irif=0; p1=rifk.indexOf("/"); var tavolo=rifk.slice(0,p1); 
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; /*alert(lsatb[0].value+"\n"+tavolo+"\n"+(tavolo==lsatb[0].value));*/
if(tavolo==lsatb[0].value){irif=i; trv=1; for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; }} /*alert(ndt);*/ break;  }}
oldk3="key "; newk3="key "; 
var lskey=lskrif[irif].getElementsByTagName("key");/*alert(lskey.length); */
if(lskey.length>0){ for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; /*alert(lsatbkey[0].value+"\n"+rifk+"\n"+(rifk.indexOf(lsatbkey[0].value)>-1)+"\n"+j);*/
if(rifk==lsatbkey[0].value){ikey=j; break;}}} 
vdt=[]; var lsatb=lskey[ikey].attributes; /*alert(ikey+"\n"+rifk+"\n"+lsatb[0].value);*/
for(k=0;k<lsatb.length;k++){ vdt[k]=lsatb[k].value; oldk3=oldk3+ndt[k]+"='"+vdt[k]+"' "; 
}
if(rep=="Ristorante"){newk3=oldk3.replace("R1","R2"); } 
if(rep=="Pizzeria"){newk3=oldk3.replace("P1","P2"); }
if(rep=="Bar_Pasticceria"){newk3=oldk3.replace("B1","B2"); }
oldk3=oldk3+"/>"; newk3=newk3+"/>"; indreg3=""+wsprcreg+"/gestione_ordinazioni.xml"; var azione="sostituisci"; 
setTimeout(()=>insertmodelkey(oldk3,indreg3,newk3,rep,azione),600); 
}
}

function saltaarifzaz(){percorso=percorso+"saltaarifzaz; "; var p1=p2=p3=0,ssrc=""; /*alert(rifaz+"\n"+riffz);*/ 
if(riffz.indexOf("-")>-1){var p1=riffz.indexOf("-"); var crs=riffz.slice(p1+1), fz=riffz.slice(0,p1);} /*alert(riffz.indexOf("infoprod_"+datiaccredv[2])>-1);*/
comunicservizinter(1,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","undefined","undefined","undefined",1,1,0,0);
/*alert(wsazset+"\n"+riffz+"\n"+riffz.indexOf("ristorazione")>-1);*/
if(riffz.indexOf("ristorazione")>-1){
prcmob("Informazioni sui nostri prodotti e ordinazioni online",1); comunicservizinter(1,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","undefined","undefined","undefined",1,1,0,0); prcmob("produzione/ristorazione",2);comunicservizinter(2,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","undefined","undefined",1,1,0,0); prcmob(this.textContent,2);comunicservizinter(2,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","undefined","undefined",1,1,0,0)
}

if(riffz.indexOf("menu")>-1){
prcmob("Informazioni sui nostri prodotti e ordinazioni online",1); comunicservizinter(1,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","undefined","undefined","undefined",1,1,0,0); prcmob("produzione/ristorazione",2);comunicservizinter(2,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","undefined","undefined",1,1,0,0); 
prcmob("<center><b>I nostri menu´ interattivi</b></center>",3);
comunicservizinter(3,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","<center><b>I nostri menu´ interattivi</b></center>",1,1,0,0);
setTimeout(()=>mostramenu("I nostri menu´ interattivi",0),500); 
}
/*
if(riffz.indexOf("menu")>-1){var men0=document.getElementById("mnu0_1_1"); men0.click(); var men1=document.getElementById("mnu1_0"); men1.click(); 
var men2=document.getElementById("mnu2_0"); men2.click(); mostramenu("I nostri menu´ interattivi");return; 
}
*/
if(riffz.indexOf("ordinazioni")>-1){
prcmob("Informazioni sui nostri prodotti e ordinazioni online",1); comunicservizinter(1,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","undefined","undefined","undefined",1,1,0,0); prcmob("produzione/ristorazione",2);comunicservizinter(2,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","undefined","undefined",1,1,0,0); 
prcmob("Accedi alle ORDINAZIONI",3);
comunicservizinter(3,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","<center><b>Accedi alle <mark>ORDINAZIONI</b></mark></center>",1,1,0,0);
setTimeout(()=>loginut("Accedi alle ORDINAZIONI",wsprcreg+"/accredsect.xml"),500); 
}

if(riffz.indexOf("ordinaz_casa")>-1){
prcmob("Informazioni sui nostri prodotti e ordinazioni online",1); comunicservizinter(1,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","undefined","undefined","undefined",1,1,0,0); prcmob("produzione/ristorazione",2);comunicservizinter(2,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","undefined","undefined",1,1,0,0); prcmob("ORDINAZIONI ONLINE da casa",3); setTimeout(()=>richiestaiscrprv("ristorazione","ORDINAZIONI ONLINE da casa"),500); 
}
if(riffz.indexOf("ordinaz_tavolo")>-1){
prcmob("Informazioni sui nostri prodotti e ordinazioni online",1); comunicservizinter(1,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","undefined","undefined","undefined",1,1,0,0); prcmob("produzione/ristorazione",2);comunicservizinter(2,"L´Azienda","Informazioni sui nostri prodotti e ordinazioni online","produzione/ristorazione","undefined","undefined",1,1,0,0); prcmob("ORDINAZIONI ONLINE dal tavolo",3); setTimeout(()=>richiestaiscrprv("ristorazione","ORDINAZIONI ONLINE dal tavolo"),500); 
}
if(riffz.indexOf("bonus")>-1){prcmob("Comunicazioni & Sportelli online",1); comunicservizinter(1,"L´Azienda","Comunicazioni & Sportelli online","undefined","undefined","undefined",1,0,0,0); prcmob("4-Promozioni Aziendali",2);comunicservizinter(2,"L´Azienda","Comunicazioni & Sportelli online","Promozioni Aziendali","undefined","undefined",1,0,3,0); prcmob("1-Bonus punteggio e sconto del 20 per cento.pdf",3);comunicservizinter(3,"L´Azienda","Comunicazioni & Sportelli online","Promozioni Aziendali","undefined",vedidoc("Bonus punteggio e sconto del 20 per cento.pdf",datiaccredv[2]+"/"+datiaccredv[1]+"/datiazienda/promozioni/"),1,0,3,0);
 }

if(riffz.indexOf("promo")>-1){prcmob("Comunicazioni & Sportelli online",1); comunicservizinter(1,"L´Azienda","Comunicazioni & Sportelli online","undefined","undefined","undefined",1,0,0,0); prcmob("4-Promozioni Aziendali",2);comunicservizinter(2,"L´Azienda","Comunicazioni & Sportelli online","Promozioni Aziendali","undefined","undefined",1,0,3,0); prcmob("2-Presentazione dei prodotti forniti dall´azienda",3);comunicservizinter(3,"L´Azienda","Comunicazioni & Sportelli online","Contatti e Pubblicita´ dell´azienda","2-Presentazione dei prodotti forniti dall´azienda",vedidoc("presentazione_prodotti_aziendali.pdf",datiaccredv[2]+"/"+datiaccredv[1]+"/datiazienda/"),1,0,0,1);
 }

}

/*
function registrastato(stat,rifk,indreg,newk,rep,oldk,rifstrep){percorso=percorso+"registrastato; "; var fatto=0;indreg="../"+indreg,msg="",operaz=""; mostraer("");
if(stat==0){ operaz="modificakey"; 
modkeyglob(rifk,indreg,newk,rep,operaz);
msg="1 - registro <b>"+indreg+"</b> aggiornato"; 
azpausa=0; while(azpausa<10000000){azpausa++;} azpausa=0; mostraerpiu(msg);
}
if(stat==1&&fatto==0){ 
var operaz="eliminakey"; var newk=""; fatto=1;
var rifasp="https://www.servizinterattivi.it/ptdmsg/gestserver1/modkeyglob.asp?rifreg="+indreg+"&rifkey="+rifk+"&operaz="+operaz+"&newkey="+newk; window.open(rifasp,"popup");
msg="1 - registro <b>"+indreg+"</b> aggiornato"; 
azpausa=0; while(azpausa<10000000){azpausa++;} azpausa=0; mostraerpiu(msg);
}
var p1=0,repsala=indrepsala=""; 
p1=rifk.indexOf("_"); repsala="sala_"+rifk.slice(0,p1); indrepsala=wsprcreg+"/"+repsala+"/produzioni.xml"; 
var indreg1="../"+indrepsala; var newk1=oldk,newk01=newk02=""; msg="registro <b>"+indreg1+" aggiornato</b>"; p1=newk1.indexOf("prodotti='"); newk01=newk1.slice(0,p1);
newk02=newk1.slice(p1); newk1=newk01+"reparto='"+rep+"' "+newk02; 
var krif1="keyrif rif0='rif_ord' "; 
if(stat==0){ var operaz="insertkey"; insertkey(krif1,indreg1,newk1,rep);
msg="2 - registro <b>"+indreg1+"</b> aggiornato"; mostraerpiu(msg);
}
if(stat==1&&fatto==1){ var operaz="eliminakey"; 
modkeyglob(rifk,indreg1,"",rep,operaz);
msg="2 - registro <b>"+indreg1+"</b> aggiornato"; mostraerpiu(msg);
} 
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; leggireg3(ckxml); 
var lskrif=nvarxml3.getElementsByTagName("keyrif"),ndt=new Array(),vdt=new Array(),prar=new Array(),qar=new Array(),przar=new Array();
var irif=ikey=ik=i=j=k=n=nz=nliv=numtav=p1=trv=0,sala=tav=str=oldk=newk=indreg1="";
var lskrif=nvarxml3.getElementsByTagName("keyrif"); irif=0; p1=rifk.indexOf("/"); var tavolo=rifk.slice(0,p1); 
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; 
if(tavolo==lsatb[0].value){irif=i; trv=1; for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[ik]=lsatb[j].value; ik++; }}  break;  }}
oldk="key "; newk="key "; 
var lskey=lskrif[irif].getElementsByTagName("key");
if(lskey.length>0){ for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; 
if(rifk.indexOf(lsatbkey[0].value)>-1){ikey=j; break;}}} 
vdt=[]; var lsatb=lskey[ikey].attributes; 
for(k=0;k<lsatb.length;k++){ vdt[k]=lsatb[k].value; oldk=oldk+ndt[k]+"='"+vdt[k]+"' "; 
if(ndt[k]=="stati"){
if(rep=="Ristorante"){if(vdt[k].indexOf("R1")>-1){vdt[k]=vdt[k].replace("R1","R2");}if(vdt[k].indexOf("R0")>-1){vdt[k]=vdt[k].replace("R0","R1");} } 
if(rep=="Pizzeria"){if(vdt[k].indexOf("P1")>-1){vdt[k]=vdt[k].replace("P1","P2");}if(vdt[k].indexOf("P0")>-1){vdt[k]=vdt[k].replace("P0","P1");} }
if(rep=="Bar_Pasticceria"){if(vdt[k].indexOf("B1")>-1){vdt[k]=vdt[k].replace("B1","B2");}if(vdt[k].indexOf("B0")>-1){vdt[k]=vdt[k].replace("B0","B1");} }
}newk=newk+ndt[k]+"='"+vdt[k]+"' ";
} 
oldk=oldk+"/>"; newk=newk+"/>"; indreg1="../"+ckxml; var operaz="modificakey"; 
setTimeout(()=>modkeyglob(oldk,indreg1,newk,repsala,operaz),1000); msg="3 - registro <b>"+indreg1+" aggiornato</b>"; mostraerpiu(msg);
}
*/

function elenca_sottoscorta0(){ percorso=percorso+"elenca_sottoscorta0; "; ckxml=wsprcreg+"/magazzino.xml"; leggireg2(ckxml); setTimeout(()=>elenca_sottoscorta(),300); }

function elenca_sottoscorta(){ percorso=percorso+"elenca_sottoscorta; "; var i=j=k=n=gz=scm=cstkg=trv=trvv=ok=0,str=val=tip=elem=str0=msg=valprec=""; 
msg=""; /*alert("elenca_sottoscorta\n"+wsprcreg+"\n"+http_request2.responseText);*/
str="<span style='text-align:left'></br><li>gz=giacenza,</li><li>sm=scorta minima, </li><li>ssm=sotto scorta minima,</li> <li>cstkg=costo a Kg,Lt,Pz.</li>Le quantità sono espresse in grammi.</span> <div style='padding:20px;width:auto;'> <table style='table-layout:auto;text-align:center;width:90%;'>";
/*ckxml=wsprcreg+"/magazzino.xml"; leggireg3(ckxml);*/var lskrep=nvarxml2.getElementsByTagName("keyrep"); /*alert(ckxml+"\n"+datiazxml1.responseText);*/
for(i=0;i<lskrep.length;i++){val=lskrep[i].attributes[0].value; /*alert(val);*/ str0="<tr><th colspan=6 style='text-align:center;background-color:"+wscl[2]+";color:"+wscl[4]+";'>"+val+"</th></tr>"; 
var lskrif=lskrep[i].getElementsByTagName("keyrif"); 
for(j=0;j<lskrif.length;j++){ok=0;str1=""; var lsatbrif=lskrif[j].attributes; tip=lsatbrif[0].value; str1=str1+"<tr><th colspan=6 style='text-align:center;'>"+tip+"</th></tr><tr><th title='progressivo'>N</th> <th title='elemento'>elemento</th> <th title='giacenza'>gz</th> <th title='scorta minima'>sm</th> <th title='sotto scorta minima'>ssm</th> <th title='costo a kilogrammo'>cstkg</th></tr>"; trv=0; /*alert(str);*/
var lskey=lskrif[j].getElementsByTagName("key"); 

for(k=0;k<lskey.length;k++){var lsatbkey=lskey[k].attributes; gz=lsatbkey[1].value*1; scm=lsatbkey[2].value*1; if(gz<scm){ ok=1; break;}}

if(ok==1){if(val!=valprec){valprec=val;str=str+str0+str1;}else{str=str+str1;} /*alert(str);*/
for(k=0;k<lskey.length;k++){var lsatbkey=lskey[k].attributes; elem=lsatbkey[0].value; gz=lsatbkey[1].value*1; scm=lsatbkey[2].value*1; cstkg=lsatbkey[3].value*1;
if(gz<scm){trvv++; str=str+"<tr><th>"+trvv+"</th><td>"+elem+"</td><td>"+gz+"</td><td>"+scm+"</td><td>"+(scm-gz)+"</td><td>"+cstkg+"</td></tr>"; }
}}
}
} 
str=str+"</table></div></center>"; /*alert(str);*/ 
istmds.innerHTML="<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></br><button onclick='vedinewfin(1)'>  visualizza a tutta pagine e stampa</button> <span id='stmp' style='display:none'>"+str+"</span>"+str+"</center>"; istmds.style.display="block";istmds.style.zIndex=1; 
}