function iscrizionecrs(crs){percorso=percorso+"iscrizionecrs";var set=wsprcreg.replace(azindbase+"/","");
/*alert(set);alert("iscrizionecrs\n"+crs+"\nazindbase="+azindbase+"\nwsprcreg="+wsprcreg+"\ndatiaccredv[2]="+datiaccredv[2]+"\ndatiaccredv[1]="+datiaccredv[1]);*/
var regacs=azindbase+"/datiazienda/richiesteaccredsect.xml",nreg="richiesteaccredsect.xml",i=trv=0,rif=operaz=msg=""; 
var aa=leggireg2(regacs); /*alert(aa+"\n"+regacs+"\n"+(aa.indexOf("NON TROVATO")>-1)); */
if(aa.indexOf("NON TROVATO")>-1){ /*genera richiesteaccredsect*/
operaz="generareg"; ckxml=regacs; /*azindbase+"/datiazienda/"; */
/*var rifasp="gestserver1/generamodricaccsect.asp?pos=../"+ckxml+"&indreg="+ckxml+"&set="+set+"&operaz="+operaz; window.open(rifasp,"popup"); */
var pos="../"+ckxml,indreg=ckxml; 
msg="il registro "+indreg+" non è presente quindi viene predisposto"; mostraer(msg);
var nqry=new Array("pos","indreg","set","operaz","nreg");
var vqry=new Array(pos,ckxml,set,operaz,nreg);
inviaiscrizionecrs(nqry,vqry);
}
else{/*alert(aa);*/  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"; ckxml=azindbase+"/datiazienda/"; 
/*var rifasp="gestserver1/generamodricaccsect.asp?pos=../"+ckxml+"&indreg="+ckxml+"&set="+set+"&operaz="+operaz; window.open(rifasp,"popup");*/
var pos="../"+ckxml,indreg=ckxml; 
var nqry=new Array("pos","indreg","set","operaz");
var vqry=new Array(pos,ckxml,set,operaz);
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);}  
}

var dtef=new Array(), st0="", ncmp=new Array("cognome","nome","codice_fiscale","mail","giorni"); 
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]];
var str="<center><table style='table-layout:auto;width:80%;' ><tr><th colspan=2> RICHIESTA DI ISCRIZIONE al corso </br><mark>"+crs+"</mark> </th></tr><tr><th colspan=2> il richiedente </th></tr>";
for(i=0;i<3;i++){
str=str+"<tr><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><center><div id='trsecp'><table style='table-layout:auto;width:auto;border:3px "+wscl[3]+" solid;'><tr><th colspan=2>** dati da inserire solo nella prima fase di iscrizione ** </th></tr>";
for(i=3;i<dtef.length;i++){
str=str+"<tr><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>dichiara di:</th></tr> <tr><th style='font-weight:normal;text-align:left;'>* 1 avere preso visione del regolamento di iscrizione</th><td><input type='radio' onchange='' name='si_0' value='si'> si <input type='radio' onchange='' name='si_0' value='no' checked> no </td></tr>"; 
str=str+"<tr><th style='font-weight:normal;text-align:left;'>* 2 accettare il regolamento di iscrizione </th><td><input type='radio' onchange='' name='si_1' value='si'> si <input type='radio' onchange='' name='si_1' value='no' checked> no </td></tr>"; 
str=str+"<tr><th style='font-weight:normal;text-align:left;'>* 3 accettare il regolamento sul trattamento dei dati personali </th><td><input type='radio' onchange='' name='si_2' value='si'> si <input type='radio' onchange='' name='si_2' value='no' checked> no </td></tr></table></div></center></th></tr>"; 

str=str+"<tr><th colspan=2>scegli: <select id='ricpas' onchange='aggiornaaccredsect(\""+dtefstr+"\",\""+operaz+"\",\""+set+"\",\""+regacs+"\")'><option value='' selected></option></select> </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"); var aa=leggireg2(regacs); 
}

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'><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(); 
}

function richiestaiscrprv(crs,scl){percorso=percorso+"richiestaiscrprv; ";var set=wsprcreg.replace(azindbase+"/",""); var i=0;
/*if(http_request4!=null){alert(http_request4.responseText); } */
/*alert(set);alert("richiestaiscrprv\n"+crs+"\nazindbase="+azindbase+"\nwsprcreg="+wsprcreg+"\ndatiaccredv[2]="+datiaccredv[2]+"\ndatiaccredv[1]="+datiaccredv[1]);*/
var nreg=tipopric="";  var lskreg=nvarxml4.getElementsByTagName("regiscrprv.xml"); 
if(lskreg.length==0){msg="** ATTENZIONE ** il registro delle iscrizioni in prova non è stato ancora predisposto"; mostraer(msg); return; }
for(i=0;i<azdatireg.length;i++){/*alert(azdatireg[i]);*/azdatiregv[i]=lskreg[0].attributes.getNamedItem(azdatireg[i]).value; /*alert(azdatireg[i]+"="+azdatiregv[i]);*/} 
/*alert(azdatiregv[7]);dammidata(); */
var lskrif4=nvarxml4.getElementsByTagName("keyrif"); var lsatb4=lskrif4[0].attributes;
var ncmp=new Array(),vcmp=new Array(); for(i=1;i<lsatb4.length;i++){ncmp[(i-1)]=lsatb4[i].value; vcmp[(i-1)]=""; }
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"); nreg="accredsect.xml";
if(scl.indexOf("dal tavolo")>-1){tipopric="avventore";} if(scl.indexOf("da casa")>-1){tipopric="acquirente";} }*/
var i=trv=0,rif=operaz=str2="";
/*var regacprvs=wsprcreg+"/"+nreg; var aa=leggireg2(regacprvs); 
if(aa.indexOf("NON TROVATO")>-1){ ckxml=wsprcreg+"/"; var pos="../"+ckxml,indreg=ckxml;operaz="generareg";  var nqry=new Array("pos","indreg","set","operaz","nreg"); 
var vqry=new Array(pos,indreg,set,operaz,nreg);  inviarichiestaiscrprv(nqry,vqry);}*/ 
/*else{*/  
/*var lskrif=nvarxml2.getElementsByTagName("keyrif"); */
ckxml=wsprcreg+"/"; var pos="../"+ckxml,indreg=ckxml;operaz="insertkey"; nreg="regiscrprv.xml";
var nqry=new Array("pos","indreg","set","operaz","nreg"); var vqry=new Array(pos,indreg,set,operaz,nreg);

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 30 minuti al corso </br><mark>"+crs+"</mark> </th></tr>"; str2="</br><mark>N.B. i 30 minuti corrispondono a 1800 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(azdatiregv[7].indexOf(ncmp[i])>-1){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]]+"' style='color:#000;' onchange='centroctrldata(this,\"text\");' /> </td></tr>"; }
str=str+"<tr><td colspan=2><center>inserire il <b>codice di verifica</b> della mail ricevuto all&#180;indirizzo sopra indicato: <input type='text' id='codiceins' title='inserire il codice di verifica della mail inviato all&#180;indirizzo sopra indicato' placeholder='inserici il codice ricevuto all&#180;indirizzo mail sopra inserito' value='' ><input type='text' id='codver' style='display:none' value='' ></center></td></tr>";  
str=str+"<tr><th colspan=2>scegli: <select id='ricpas' onchange='aggiornaaccredsectricprv(\""+nqry+"\",\""+vqry+"\",\""+ncmp+"\",\""+tipopric+"\",\""+crs+"\")'><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"); /*alert(wsprcreg+"/"+nreg); var aa=leggireg2(wsprcreg+"/"+nreg); alert(aa);*/
document.getElementById("data_ins").value=azoggi; var crsx=""; /*alert(document. ("nv2").innerText);*/
crsx=document.getElementById("nv2").innerText; /*alert(crsx);*/
document.getElementById("settore").value=crsx; /*alert(azoggi+"\n"+document.getElementById("nv2").textContent);*/
/*alert(document.getElementById("data_ins").value+"\n"+document.getElementById("settore").value);*/
}

function richiestaiscrcrs(crs,scl){percorso=percorso+"richiestaiscrcrs; ";var set=wsprcreg.replace(azindbase+"/",""); var i=0;
var nreg=tipopric="";  var lskreg=nvarxml4.getElementsByTagName("regiscrcrs.xml"); leggireg3(datiaccredv[2]+"/"+datiaccredv[1]+"/datiazienda/datibancari.xml");
for(i=0;i<azdatireg.length;i++){azdatiregv[i]=lskreg[0].attributes.getNamedItem(azdatireg[i]).value; } 
var lskrif4=nvarxml4.getElementsByTagName("keyrif"); var lsatb4=lskrif4[0].attributes;
var ncmp=new Array(),vcmp=new Array(); for(i=1;i<lsatb4.length;i++){ncmp[(i-1)]=lsatb4[i].value; vcmp[(i-1)]=""; }
if(datiaccredv[2]=="formazione"){ tipopric="corsista";}
var i=trv=0,rif=operaz="";
ckxml=wsprcreg+"/"; var pos="../"+ckxml,indreg=ckxml;operaz="insertkey"; nreg="regiscrcrs.xml";
var nqry=new Array("pos","indreg","set","operaz","nreg"); var vqry=new Array(pos,indreg,set,operaz,nreg);
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;} } }
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 30 minuti al corso </br><mark>"+crs+"</mark> </th></tr>"; }
str=str+"<tr><th colspan=2> il richiedente </th></tr>"; /*alert(azdatiregv[7]);*/ var escludi=",codab,giorni,cro";
for(i=0;i<ncmp.length;i++){if(azdatiregv[7].indexOf(ncmp[i])>-1||escludi.indexOf(ncmp[i])>-1){vediono=" style='display:none;'"; nomecmp=ncmp[i]; }else{vediono=""; nomecmp=datiformtip[dtef[i]];}
str=str+"<tr"+vediono+"><th style='font-weight:normal;text-align:right;width:50%'>"+nomecmp+" </th><td> <input type='text' id='"+nomecmp+"' name='"+nomecmp+"' required title='"+datiformtit[dtef[i]]+"' placeholder='"+datiformph[dtef[i]]+"' pattern='"+datiformpattern[dtef[i]]+"' style='color:#000;' onchange='centroctrldata(this,\"text\");' /> </td></tr>"; }

str=str+"<tr><th colspan=2><center><div id='trsecp'><table style='table-layout:auto;width:auto;border:3px "+wscl[3]+" solid;'><tr><th colspan=2>** richiedo una iscrizione al corso <mark>"+crs+"</mark> ** per la durata di giorni: <input type='number' id='giornix' min=10 max=99 value=10 /> consecutivi</th></tr>";
str=str+"<tr><th colspan=2>dichiara di:</th></tr> <tr><th style='font-weight:normal;text-align:left;'>* 1 avere preso visione del regolamento di iscrizione</th><td><input type='radio' onchange='' name='si_0' value='si'> si <input type='radio' onchange='' name='si_0' value='no' checked> no </td></tr>"; 
str=str+"<tr><th style='font-weight:normal;text-align:left;'>* 2 accettare il regolamento di iscrizione </th><td><input type='radio' onchange='' name='si_1' value='si'> si <input type='radio' onchange='' name='si_1' value='no' checked> no </td></tr>"; 
str=str+"<tr><th style='font-weight:normal;text-align:left;'>* 3 accettare il regolamento sul trattamento dei dati personali </th><td><input type='radio' onchange='' name='si_2' value='si'> si <input type='radio' onchange='' name='si_2' value='no' checked> no </td></tr></table></div></center></th></tr>"; 

str=str+"<tr><td colspan=2><center>inserire il <b>codice di verifica</b> della mail ricevuto all&#180;indirizzo sopra indicato: <input type='text' id='codiceins' title='inserire il codice di verifica della mail inviato all&#180;indirizzo sopra indicato' placeholder='inserici il codice ricevuto all&#180;indirizzo mail sopra inserito' value='' ><input type='text' id='codver' style='display:none' value='' ></center></td></tr>";  
str=str+"<tr><th colspan=2>scegli: <select id='ricpas' onchange='aggiornaaccredsectricprv(\""+nqry+"\",\""+vqry+"\",\""+ncmp+"\",\""+tipopric+"\",\""+crs+"\")'><option value='' selected></option></select></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"); 
/*var cc=calcolasec(); var codab=vdatiricisc[0].slice(0,2)+vdatiricisc[1].slice(0,2)+(24*60*60+cc); document.getElementById("codab").value=codab; */
document.getElementById("dataf0").value=azoggi; /*alert(document.getElementById("dataf0").value);*/
/*var crsx=""; crsx=document.getElementById("nv2").innerText; document.getElementById("settore").value=crsx; */
}

function aggiornaaccredsectricprv(ndati,vdati,ncmp,tipopric,crs){ percorso=percorso+"aggiornaaccredsectricprv; "; /*nqry=new Array("pos","indreg","set","operaz","nreg");*/
/*alert("aggiornaaccredsectricprv\nndati="+ndati+"\nvdati="+vdati+"\nncmp="+ncmp+"\ntipopric="+tipopric); */
var esc=0;
if(tipopric=="corsista"){var s0=s1=s2=""; for(i=0;i<3;i++){ /*alert(document.getElementsByName("si_"+i)[0].checked); */
if(document.getElementsByName("si_"+i)[0].checked==false){esc=1; break;} } if(esc==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto non è ststo indicato il <mark> <b>si</b> </mark> per tutte le 3 dichiarazioni"; mostraer(msg); return; } } 
/*azoggi=azdatas2;*/ /*alert(azoggi);*/ 
var escludi=messaggio=oggetto=dest=mit="",giorni=0; 
if(ncmp.indexOf(",codab")>-1){var cc=calcolasec(); giorni=document.getElementById("giorni").value=document.getElementById("giornix").value; 
escludi=",cro,dataf1,dataf2,data_inizio,data_fine"; 
var codab=document.getElementById("cognome").value.slice(0,2)+document.getElementById("nome").value.slice(0,2)+(24*60*60+cc);document.getElementById("codab").value=codab;
document.getElementById("costo").value=giorni;}
var nqry=vqry=new Array(),i=n=trovato=ind=0,msg="",messaggio=""; nqry=ndati.split(","); vqry=vdati.split(","); /*var operaz=vqry[3]="generamodkey"; var set=vqry[2];*/
var pos=indreg=nreg="";
for(i=0;i<nqry.length;i++){if(nqry[i]=="nreg"){nreg=vqry[i];}if(nqry[i]=="pos"){pos=vqry[i];}if(nqry[i]=="indreg"){indreg=vqry[i];} }
var cmpar=new Array(),cmpvar=new Array(),cmpreg=new Array(); cmpar=ncmp.split(","); /*alert(cmpar);*/
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; 
/*alert(cmpar[i]+"\n"+document.getElementById(cmpar[i]).style.color);*/ ind=i; break;} }
if(trovato==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto il valore immesso nel campo "+cmpar[ind]+" non e' formalmente corretto"; mostraer(msg); return; }
for(i=0;i<cmpar.length;i++){ if(document.getElementById(cmpar[i]).value==""&&escludi.indexOf(cmpar[i])==-1){trovato=1; ind=i; break;} }
if(trovato==1){msg="** ATTENZIONE ** la richiesta non puo' essere inviata in quanto nel campo <b>"+cmpar[ind]+"</b> non e' stato inserito alcun valore"; mostraer(msg); return; }
var codiceins=document.getElementById("codiceins").value;var codver=document.getElementById("codver").value;
if(codiceins!=codver){msg="** ATTENZIONE ** il codice inserito <b>"+codiceins+"</b> non corrisponde al <b>codice di verifica della mail</b> inviato"; mostraer(msg); return;  }
/*key in regiscrpprv: <key cognome='aaa' nome='bbb' mail='info@servizinterattivi.it' data_ins='4/10/2022' settore='1-Linguaggi_e_tecnologie_di_base' />*/
for(i=0;i<cmpar.length;i++){cmpvar[i]=document.getElementById(cmpar[i]).value; if(cmpar[i]=="mail"){dest=cmpvar[i]; } } /*alert(cmpar+"\n"+cmpvar+"\n"+tipopric); */
var newk1="key "; for(i=0;i<cmpar.length;i++){newk1=newk1+cmpar[i]+"='"+cmpvar[i]+"' "; } newk1=newk1+"/>"; /*alert(newk1);*/
var krif1="",krif2="", indreg1=pos+nreg, azione="inserisci", rep=""; 
if(tipopric=="provista"){krif2="keyrif settore='provisti' ";krif1="keyrif sezione='provisti' ";sez="provisti";}
if(tipopric=="corsista"){krif2="keyrif settore='corsisti' ";krif1="keyrif sezione='corsisti' ";sez="corsisti";}
insertkey(krif1,indreg1,newk1,rep,azione); /*alert("krif1="+krif1+"\nindreg1="+indreg1+"\nnewk1="+newk1+"\nrep="+rep+"\nazione="+azione); retuen;*/

var ncmpar2=new Array(),vcmpar2=new Array(),sez="";
/*if(tipopric=="provista"){krif2="keyrif settore='provisti' ";sez="provisti";}if(tipopric=="corsista"){krif2="keyrif settore='corsisti' ";sez="corsisti";}*/
var lskrif=nvarxml2.getElementsByTagName("keyrif"); 
for(i=0;i<lskrif.length;i++){var sezione=lskrif[i].getAttribute("settore"); if(sezione==sez){ind=i;break;} }
var lsatb=lskrif[ind].attributes; for(i=1;i<lsatb.length;i++){ncmpar2[i-1]=lsatb[i].value; } /*alert(ncmpar2); ncmpar2=(mail,pw,pww,cognome,nome,tmpcol,tmpcolmax,tipoper)*/
var indreg2=pos+"accredsect.xml"; 
/*key in accredsect: 
<keyrif settore='provisti' rif0='mail' rif1='pw' rif2='pww' rif3='cognome' rif4='nome' rif5='tmpcol' rif6='tmpcolmax' rif7='tipoper' >
<key mail='info@servizinterattivi.it' pw='cognprv-cono144894' pww='cono144894' cognome='' nome='' tmpcol='' tmpcolmax='1800' tipoper='provista' />
cmpar=cognome,nome,mail,data_ins,settore; cmpvar=qqq,www,info@servizinterattivi.it,10/4/2025,5-Piattaforma_DMSG; tipopric=provista
<keyrif settore='corsisti' rif0='codice_fiscale' rif1='pw' rif2='pww' rif3='mail' rif4='livmod' rif5='livlez' rif6='tmpcol' rif7='data_inizio' rif8='data_fine' rif9='avvisrin' rif10='avvis20' rif11='tipoper'  >
*/
var cc=calcolasec(); var pww=cmpvar[0].slice(0,2)+cmpvar[1].slice(0,2)+(24*60*60+cc*1);var pw=(cmpvar[0]+"-"+pww);
/*var vcmpar2=new Array(cmpvar[2],pw,pww,cmpvar[0],cmpvar[1],0,1800,tipopric);*/
for(i=0;i<ncmpar2.length;i++){if(document.getElementById(ncmpar2[i])==null){if(ncmpar2[i]=="pww"){vcmpar2[i]=pww;} else if(ncmpar2[i]=="pw"){vcmpar2[i]=pw;}
else{vcmpar2[i]="";} }else{vcmpar2[i]=document.getElementById(ncmpar2[i]).value;} }
/*alert(ncmpar2+"\n"+vcmpar2);*/
var newk2="key ";
for(i=0;i<ncmpar2.length;i++){newk2=newk2+ncmpar2[i]+"='"+vcmpar2[i]+"' "; } newk2=newk2+"/>"; /*alert(newk2);*/
setTimeout(()=>insertkey(krif2,indreg2,newk2,rep,azione),300); /*alert("krif2="+krif2+"\nindreg2="+indreg2+"\nnewk2="+newk2+"\nrep="+rep+"\nazione="+azione);*/

if(tipopric=="provista"){ var messaggio1=oggetto1=dest1=mit1=""; 
dest1=cmpvar[2]; mit1="info@servizinterattivi.it"; oggetto1="l'Azienda DMSG_FAD le invia le credenziali di porova richieste";
messaggio1="Le credenziali da utilizzare per accedere al corso <b>"+crs+"</b> sono:</br>cognome=<b>"+cmpvar[0]+"</b></br>password=<b>"+pww+"</b></br><mark>N.B. Per accedere al corso devi: </br>1) effettuare l'accesso attivando il percorso:<center><b>Informazioni sui Corsi e relativi Accessi > 5_Piattaforma_DMSG > Accedi alla FORMAZIONE ONLINE</b></center>2) attivare il percorso:<center><b>Gestioni Aziendali > 4-Gestione Progetti > 1-Gestire Documenti progettuali</b></center></mark>";
setTimeout(()=>inviamail(messaggio1,oggetto1,dest1,mit1),600);
}

if(tipopric=="corsista"){var messaggio1=oggetto1=dest1=mit1="";  dest1=document.getElementById("mail").value;
var lsk=nvarxml3.getElementsByTagName("key"); var lsatb=lsk[0].attributes;
mit1="info@servizinterattivi.it"; /*oggetto1="l'Azienda DMSG_FAD invia i dati per effettuare il bonifico per l'iscrizione al corso <b>"+crs+"</b>"; */
oggetto1="l'Azienda DMSG_FAD invia i dati per effettuare il bonifico per l'iscrizione al corso "+crs+"";
var ng=document.getElementById("giorni").value; var costo=document.getElementById("costo").value; var causale=document.getElementById("codab").value+" "+ng+"g "+crs;
messaggio1="<!doctype html><html><body>I dati del bonifico per l'iscrizione al corso <b>"+crs+"</b> per n.<b>"+ng+" giorni</b> sono:<br/>";
for(i=0;i<3;i++){messaggio1=messaggio1+""+lsatb[i].nodeName+": <b>"+lsatb[i].value+"</b>;<br/> "; }
messaggio1=messaggio1+"importo: <b>"+costo+" euro</b>;<br/> "; 
messaggio1=messaggio1+"causale: <b>"+causale+"</b>.</body></html>";
/*
messaggio1="<!doctype html><html><body><table><tr><th style='text-align:center;' colspan=2>I dati del <b>bonifico</b> per l'iscrizione al corso <mark><b>"+crs+"</b></mark> per n.<b>"+ng+" giorni</b> sono</th></tr>";
for(i=0;i<3;i++){messaggio1=messaggio1+"<tr><th style='text-align:left'>"+lsatb[i].nodeName+"</th><th style='text-align:left'>"+lsatb[i].value+"</th></tr>"; }
messaggio1=messaggio1+"<tr><th style='text-align:left'>importo</th><th style='text-align:left'>"+costo+" euro</th></tr>"; 
messaggio1=messaggio1+"<tr><th style='text-align:left'>causale</th><th style='text-align:left'>"+causale+"</th></tr></table></body></html>";
*/
/*messaggio1="ciao bello come va?";*/
/*aa=dammicodice(lsatb[2].value,datiaccredv[1]); */
setTimeout(()=>inviamail(messaggio1,oggetto1,dest1,mit1),800); /*alert(messaggio1+"\n"+oggetto1+"\n"+dest1+"\n"+mit1);*/
 /*return;*/}


istdoc.innerHTML="";
msg="procedura completata"; mostraer(msg);

}

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[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); 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/dmsg/gestserver1/dammi_data.asp"; window.open(rifasp,"rispsrv");
/*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){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); }
}

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)); 
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","quantitativi","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);

}

function inviaordinaz4(krif1,indreg1,newk1,reparto){ percorso=percorso+"inviaordinaz4; "; 
var rifasp="gestserver1/insertkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1; 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","quantitativi","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_ordinazione(tavolo,sala,textcont,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="",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; }
if(sala=="casa"){tavolo=textcont;}
if(sala!="casa"){p1=tavolo.indexOf("_"); if(p1>-1){sala=tavolo.slice(0,p1); }if(p1==-1){msg="** ERRORE **";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=leggireg2(ckxml); /* alert(http_request2.responseText);*/
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=nvarxml2.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; 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"){msg="** ATTENZIONE ** l'ordinazione è già stata chiusa"; mostraer(msg); return; }
/*alert("(tipop=wsm): "+(tipop=="wsm"))*/
if(tipop=="wsm"&&tavolo.indexOf("caposala")==-1){/*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=nvarxml.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); */
}

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 dal tavolo";}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")*/ if(capotavola.indexOf("caposala")==-1){
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); 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);*/
if(chiusa==1){
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;
}
if(tipop!="wsm"){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_saldato(\""+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>";}
}
/*<center><button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button> <!--<input type='text' id='confchiusord' style='display:block' value=''>--> </br>Ordinazione di:</br>"+*/
if(liberatavolo!=null&&liberatavolo=="ok"){libera_tavolo(sala,tavolo,avv,rsc,costocompl);return;}
istmds.innerHTML=str; istmds.style.display="block"; 
/*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;*/
/*resocontopranzo=resocontopranzo.replace(/</g,"&#60;"); alert("\nresocontopranzo="+resocontopranzo);*/ 
alert("libera_tavolo\nsala="+sala+"\navv="+avv+"\nrsc="+rsc+"\nconto="+conto);/**/
var rifasp="https://www.servizinterattivi.it/dmsg/gestserver1/dammi_data.asp"; window.open(rifasp,"rispsrv"); /*alert(azoggi); */
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); /*generakrifresoconto(ospite,sala,rsc,costocompl);*/
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;} /*alert(azpausa);*/ 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; } } } /*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+"/>";
/*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_saldato(sala,tavolo,coperti,elenco,costo,costocompl,sconto,puntitot){ percorso=percorso+"tavolo_saldato; "; /*var resocontopranzo=istmds.innerHTML;*/
/*resocontopranzo=resocontopranzo.replace(/</g,"&#60;"); alert("\nresocontopranzo="+resocontopranzo);*/ var ospite=document.getElementById("captav").innerText,msg="";
/*
alert("libera_tavolo\nsala="+sala+"\ntavolo="+tavolo+"\ncoperti="+coperti+"\nelenco="+elenco+"\ncostocompl="+costocompl+"\nsconto="+sconto+"\npuntitot="+puntitot+"\ntipop="+ospite);return;*/
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); /*alert(cf);*/
var rifasp="https://www.servizinterattivi.it/dmsg/gestserver1/dammi_data.asp"; window.open(rifasp,"rispsrv"); /*alert(azoggi); return;*/
/* invia conto */
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; /*alert(rifasp);*/
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>"; 
	/* modifica gestione_tavoli */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; } } } /*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+"/>"; 
regdamod1="../"+wsprcreg+"/"+reg; azione="modifica key di "+reg;
msg=msg+"gestione_tavoli è stato aggiornato</br>."; 
/*alert("reg="+ckxml+"\nndt="+ndt+"\nvdt="+vdt+"\nhk1="+hk1+"\nregdamod1"+regdamod1+"\nnewkey1="+newkey1); */
modificakey(regdamod1,hk1,newkey1,azione,regdamod2,hk2,newkey2);
if(ospite.indexOf("caposala")==-1){regdamod1=hk1=newkey1=azione=regdamod2=hk2=newkey2="";
	/* modifica accredsect */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; } } } /*alert(ccff);*/
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+"/>"; /*alert(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>."; 
/*alert("reg="+ckxml+"\nndt="+ndt+"\nvdt="+vdt+"\nhk1="+hk1+"\nregdamod1"+regdamod1+"\nnewkey1="+newkey1);*/
azpausa=0; while(azpausa<10000000){azpausa++;} document.getElementById("footer").innerHTML=""; azpausa=0;
modificakey(regdamod1,hk1,newkey1,azione,regdamod2,hk2,newkey2);
}
chiudimodshort(); if(tipop!="wsm"){if(azmonit=="fisso"){ istdoc.innerHTML="";}else{istmobdoc.innerHTML=""; }}
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+"/>"; 
regdamod1="../"+wsprcreg+"/"+reg; azione="modifica key di "+reg;
/*alert("ndt="+ndt+"\nvdt="+vdt+"\nhk1="+hk1+"\nregdamod1"+regdamod1+"\nnewkey1="+newkey1);*/
modificakey(regdamod1,hk1,newkey1,azione,regdamod2,hk2,newkey2);
chiudimodshort(); msg=""; mostraer(msg); if(tipop!="wsm"){if(azmonit=="fisso"){ istdoc.innerHTML="";}else{istmobdoc.innerHTML=""; }}
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 da 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);
}

function azmodgestavoli(val){percorso=percorso+"azmodgestavoli; ";  var wscelvar="",cel="",i=0, j=0,t=tr=0,k=0,str=color=prov="",nktavsal=new Array(); prov="azmodgestavoli"; /*alert("azmodgestavoli\n"+reg);*/ /*alert(history.length);*//* alert(http_request.responseText);*/
/*alert("azmodgestavoli\nwsdatagesttav="+wsdatagesttav+"\nwslatmodf="+wslatmodf);alert(reg); */ /*wsmodalstop.style.display="none"; */
clearTimeout(timergest0); timergest0=setTimeout(function(){ azmodgestavoli() }, 10000); 
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; } ";
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);*/
str=str+"<center style='font-size:"+azfont10+"px;font-style:verdana;'>Modulo per la <mark>GESTIONE DELLA RISTORAZIONE</mark> </hr> <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='wsfgestprod1(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</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>"
if(azmonit=="fisso"){ istdoc.innerHTML=str;}else{istmobdoc.innerHTML=str; }
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+"' onclick='veditavolo(this.textContent,\""+salear[i]+"\",this)'>"+j+"</th><th id='"+salear[i]+"_"+(j+1)+"' onclick='veditavolo(this.textContent,\""+salear[i]+"\",this)'>"+(j+1)+"</th><th id='"+salear[i]+"_"+(j+2)+"' onclick='veditavolo(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+"' onclick='veditavolo(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/dmsg/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 predisponi_registri(){ percorso=percorso+"predisponi_registri; "; var i=index=0,nomreg=new Array("gestione_tavoli.xml","gestione_ordinazioni.xml"); /*alert(wsprcreg);*/
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; ";  ckxml=wsprcreg+"/gestione_tavoli.xml"; leggireg(ckxml); 
/*clearTimeout(timergest1); timergest1=setTimeout(function(){ gestiscitavoli() }, 100000); */
var lskrif=nvarxml.getElementsByTagName("keyrif"); var ndt=new Array(),vdt=new Array(),irif=i=j=k=n=nliv=numtav=p1=0,sala=tav=msg=""; /*tav=val;*/
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; /*alert(sala);*/
for(j=0;j<lsatb.length;j++){if(lsatb[j].nodeName.indexOf("rif")>-1){ndt[irif]=lsatb[j].value;irif++; } } /*alert(sala+"\n"+ndt); */
var lskey=lskrif[i].getElementsByTagName("key");/*alert(lskey.length); */
if(lskey.length>0){/*for(j=(lskey.length-1);j>-1;j--)*/
for(j=0;j<lskey.length;j++){var lsatbkey=lskey[j].attributes; for(k=0;k<lsatbkey.length;k++){vdt[k]=lsatbkey[k].value;} /*alert(sala+"\n"+ndt+"\n"+vdt);*/
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){
if(vdt[1]>0&&vdt[2]==""){ /*alert("tavolo abilitato\n"+numtav+"/"+vdt[1]+"\n"+tav);*/ var cel=document.getElementById(tav); 
cel.style.backgroundColor="#fbb"; cel.textContent=numtav+"/"+vdt[1];/**/}
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==0){/*tavolo abilitato e assegnato*/ var cel=document.getElementById(tav); cel.style.backgroundColor="#ccf"; cel.textContent=numtav+"/"+vdt[1];} /*alert(sala+"\n"+vdt[0]+"-"+vdt[1]+"-"+vdt[2]+"-"+vdt[3]+"-"+"\n"+(sala!="casa"&&vdt[1]>0&&vdt[2]!=""&&vdt[3]==1));*/
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==0){/*tavolo abilitato ed assegnato*/ var cel=document.getElementById(tav); cel.style.backgroundColor="#9f9"; 
for(n=3;n<11;n++){if(vdt[n]==0){nliv=(n-3);break;} }
cel.textContent=numtav+"/"+vdt[1]+"\nlivp_"+nliv;}
/*alert(sala+"\n"+vdt[0]+"-"+vdt[1]+"-"+vdt[2]+"-"+vdt[13]+"-"+vdt[14]+"\n"+(sala!="casa"&&vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==1&&vdt[14]==0));*/
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==1&&vdt[16]==0){/*tavolo chiuso*/ var cel=document.getElementById(tav); cel.style.backgroundColor="#a00"; 
cel.style.color="#ffa"; cel.textContent=numtav+"/"+vdt[1];}
if(vdt[1]>0&&vdt[2]!=""&&vdt[3]==1&&vdt[13]==1&&vdt[16]==1){/*tavolo chiuso e saldato*/ var cel=document.getElementById(tav); cel.style.backgroundColor="#00a"; 
cel.style.color="#ffa"; cel.textContent=numtav+"/"+vdt[1];}
}

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; } /*alert(sala+"\n"+vdt);*/
/*alert(sala=="casa"&&vdt[0]!=""&&vdt[1]!=""&&vdt[2]=="ok"&&vdt[3]=="ok"&&vdt[4]=="");*/
if(vdt[0]!=""&&vdt[1]!=""&&vdt[2]==""){ /*tavolo casa_n abilitato e assegnato*/ /*alert("tavolo abilitato e assegnato\nnumtav="+numtav+"/nvdt[1]="+vdt[1]+"\ntav="+tav);*/
var rifcel="casa_"+(j+1); var cel=document.getElementById(rifcel); cel.textContent=tav; /*alert(cel.textContent=tav);*/ cel.style.backgroundColor="#9f9"; /**/}
if(vdt[0]!=""&&vdt[1]!=""&&vdt[2]=="ok"&&vdt[3]=="ok"&&vdt[4]==""){	/*tavolo casa_n abilitato e assegnato con ordinazione inviata e chiusa*/ 
/*alert("ordinazione inviata, in attesa di consegna\nnumtav="+numtav+"/nvdt[1]="+vdt[1]+"\ntav="+tav); */
var rifcel="casa_"+(j+1); /*alert(rifcel);*/ var cel=document.getElementById(rifcel); cel.textContent=tav;  cel.style.backgroundColor="#a00"; cel.style.color="#ffa";  } 
if(vdt[0]!=""&&vdt[1]!=""&&vdt[2]=="ok"&&vdt[3]=="ok"&&vdt[4]!=""&&vdt[7]==0){	/*tavolo casa_n abilitato e assegnato con ordinazione inviasta e chiusa e anche spedita*/ 
/*alert("ordinazione eseguita e spedita all'acquirente"); */
var rifcel="casa_"+(j+1); /*alert(rifcel);*/ var cel=document.getElementById(rifcel); cel.textContent=tav;  cel.style.backgroundColor="#909"; cel.style.color="#ffa"; } 
if(vdt[0]!=""&&vdt[1]!=""&&vdt[2]=="ok"&&vdt[3]=="ok"&&vdt[7]!=0){/*tavolo casa_n abilitato_assegnato con ordinazione inviasta_chiusa oltre che spedita e saldata*/ 
/*alert("ordinazione saldata"); */
var rifcel="casa_"+(j+1); /*alert(rifcel);*/ var cel=document.getElementById(rifcel); cel.textContent=tav;  cel.style.backgroundColor="#00a"; cel.style.color="#ffa"; } 
}
/*else{if(val==0){ azmodgestavoli(1);}}*/
} }}

}

function veditavolo(cel,sala,obj){percorso=percorso+"veditavolo; "; 
if(sala=="casa"){var tavolo=obj.textContent/*cel;*/}else{var tavolo=sala+"_"+cel/*,numcop="numcop"*/; var p1=tavolo.indexOf("/"),avv=capotavola=""; 
if(p1>0){tavolo=tavolo.slice(0,p1);} }
/*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*/ 
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"; }
/*var cella=document.getElementById(tavolo);*/ /*alert(tavolo+"\n"+obj.style.backgroundColor+"\n"+obj.id+"\n"+(obj.style.backgroundColor=="rgb(170, 0, 0)"));*/
if(obj.style.backgroundColor=="rgb(170, 0, 0)"&&tipop!="wsm"){msg="l'ordinazione del tavolo "+tavolo+" è stata chiusa</br>";mostraer(msg);}
/*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(0, 0, 170)"&&tipop=="wsm"){ conferma_chiudi_ordinazione(tavolo,sala,obj.textContent,"ok");return;}
if(tipop=="wsm"&&istmds.style.display=="none"){ conferma_chiudi_ordinazione(tavolo,sala,obj.textContent);}

var lskrif=nvarxml2.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;


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 dal tavolo "+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"; 
}
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";
}

}

function registranumcop(tavolo,cel,sala){percorso=percorso+"registranumcop; "; var numcop=document.getElementById("numcop").value; 
/*alert("veditavolo\ntavolo="+tavolo+"\ncel="+cel+"\nsala="+sala+"\nnumcop="+numcop); */
/*var mds=document.getElementById("modshort");*/ istmds.innerHTML=""; istmds.style.display="none";
if(numcop==""||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=leggireg2(wsprcreg+"/gestione_tavoli.xml");
var lskrif=nvarxml2.getElementsByTagName("keyrif"); var irif=ik=i=j=0,ndt=new Array(),vdt=new Array(),rep=""; 
for(i=0;i<lskrif.length;i++){var lsatb=lskrif[i].attributes; if(lsatb[0].value.indexOf(sala)>-1){irif=i; 
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]="";
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+"/>"; /**/alert(newk1+"\n"+krif1); 
var rifasp="gestserver1/insertkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&rep="+rep; window.open(rifasp,"popup");
}


function wsfgestprod0(n,rif,reg,ind){percorso=percorso+"wsfgestprod0; "; /*clearInterval(timeraz);*/ if(azprcreg==null){azprcreg=wsprcreg; }
/*alert("wsfgestprod0\nazdtopsect="+azdtopsect+"\n\nazdtopsectv="+azdtopsectv+"\nazdatafine="+azdatafine+"\nazgrscad="+azgrscad);
alert("wsfgestprod0\nn="+n+"\nrif="+rif+"\nreg="+reg+"\nind="+ind+"\nwsprcreg="+wsprcreg+"\nazprcreg="+azprcreg+"\nckxml="+ckxml+"\n"+http_request.responseText);*/
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 wsfgestprod1(n,rif,rep,prov){percorso=percorso+"wsfgestprod1; "; var rep0=rep; var butdisab=rifstrep=""; if(tipop=="wsm"){butdisab="disabled='true'";}
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=nvarxml3.getElementsByTagName("keyrif"); /**/var lsk=nvarxml3.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; } /*alert(lsk.length>aznrowprod);*/
if(lsk.length>aznrowprod){var audio=new Audio("actung.wav").play(); aznrowprod=lsk.length; }
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; 
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"){str=str+"<td style='background-color:"+color+"'>"+lsatb[i].value+"</td>";}
if(lsatbrif[i].value=="stato"&&rep.indexOf("sala_")==-1){ pp="<td style='background-color:\""+color+"\"'><button "+butdisab+" onclick='registrastato(\""+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>reparto <b>"+rep+"</b> <button onclick='document.getElementById(\"modshort\").style.display=\"none\"'> [ X ] </button></br>"+str; istmds.style.display="block";}
else{document.getElementById("modextern1").innerHTML=str; }
/*alert(str);*/
/*ckxml=wsprcreg+"/capitolato.xml"; var bb=leggireg3(ckxml); alert(ckxml+"\n"+http_request3.responseText); */
/*if(azmonit=="mobile"){ azmobdoc=str; istmobdoc.innerHTML=azmobdoc;}else{ istdoc.innerHTML=str; } */
}

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 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"){ /*alert(azdtopsect+"\n\n"+azdtopsectv);*/var tv=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]; 
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 <b>"+tv+"</b></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='quantitativi' 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 vediabtav(obj){percorso=percorso+"vediabtav; "; ckxml=wsprcreg+"/gestione_tavoli.xml"; var aa=leggireg2(ckxml); var p1=0,sala="",tavolo=obj.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>"+obj.value+"</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.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]; }else{avv="caposala|"+azdtopsectv[0]; }
/*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){msg="<b> * ATTENZIONE * </b>il tavolo indicato NON e' stato ancora abilitato, <b>segnalare l'inconveniente al caposala</b>"; mostraer(msg); 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>"+obj.value+"</b> e' assegnato al nostro ospite <b>"+azdtopsectv[4]+" "+azdtopsectv[5]+"</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 registrastato(stat,rifk,indreg,newk,rep,oldk,rifstrep){percorso=percorso+"registrastato; "; var fatto=0;indreg="../"+indreg,msg="",operaz=""; mostraer("");
if(stat==0){/*cambia da 0 ad 1 il valore dell'attributo stato nella chiave dell'ordinazione nel registro di produzione del reparto produttivo*/ operaz="modificakey"; 
modkeyglob(rifk,indreg,newk,rep,operaz);
/*var rifasp="https://www.servizinterattivi.it/dmsg/gestserver1/modkeyglob.asp?rifreg="+indreg+"&rifkey="+rifk+"&operaz="+operaz+"&newkey="+newk;  window.open(rifasp,"popup");*/
msg="1 - registro <b>"+indreg+"</b> aggiornato"; /*alert("registro "+indreg+" aggiornato"); */
azpausa=0; while(azpausa<10000000){azpausa++;} azpausa=0; mostraerpiu(msg);
}
if(stat==1&&fatto==0){/*elimina la chiave dell'ordinazione nel registro di produzione del reparto produttivo in quanto prodotti consegnati*/ 
var operaz="eliminakey"; var newk=""; fatto=1;
var rifasp="https://www.servizinterattivi.it/dmsg/gestserver1/modkeyglob.asp?rifreg="+indreg+"&rifkey="+rifk+"&operaz="+operaz+"&newkey="+newk; window.open(rifasp,"popup");
msg="1 - registro <b>"+indreg+"</b> aggiornato"; /*alert("registro "+indreg+" aggiornato"); aznrowprod=aznrowprod-1;*/
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; /*alert(newk01+"\n"+newk02+"\n"+newk1); return;*/
var krif1="keyrif rif0='rif_ord' "; 

if(stat==0){ /*aggiorna produzioni.xml di sala inserendo la oldk del registro di produzione del reparto*/var operaz="insertkey"; insertkey(krif1,indreg1,newk1,rep);
/*la oldk di rep = <key rif_ord='Capri_1/13_3_23_14_16_30' prodotti='linguine agli scampi,paccheri allo scoglio' quantitativi='3,1' stato='0' /> deve diventare
<key rif_ord='Capri_1/13_3_23_14_16_30' reparto='Ristorante' prodotti='linguine agli scampi,paccheri allo scoglio' quantitativi='3,1' stato='0' />
*/
/*var rifasp="gestserver1/insertkey.asp?indreg1="+indreg1+"&newkey1="+newk1+"&keyrif1="+krif1+"&rep="+rep; window.open(rifasp,"popup");*/
msg="2 - registro <b>"+indreg1+"</b> aggiornato"; mostraerpiu(msg);/*alert("registro "+indreg1+" aggiornato");*/
}
if(stat==1&&fatto==1){ /*modifica produzioni.xml di sala eliminando la precedente chiave in quanto il reparto produzione segnala avvenuta consegna*/var operaz="eliminakey"; 
modkeyglob(rifk,indreg1,"",rep,operaz);
/*var rifasp="gestserver1/modkeyglob.asp?rifreg="+indreg1+"&rifkey="+rifk+"&operaz="+operaz+"&newkey="+newk1;  window.open(rifasp,"popup");*/
msg="2 - registro <b>"+indreg1+"</b> aggiornato"; mostraerpiu(msg);/*alert("registro "+indreg1+" aggiornato");*/
} 

/*legge e aggiorna gestione_ordinazioni sostituendo R0 o R1 P0 con P1 */
ckxml=wsprcreg+"/gestione_ordinazioni.xml"; leggireg3(ckxml); /*alert(ckxml+"\n\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();
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); /*alert(tavolo);*/
/*stati.replace("R0",R1); stati.replace("P0",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;  }}
oldk="key "; newk="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.indexOf(lsatbkey[0].value)>-1){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; oldk=oldk+ndt[k]+"='"+vdt[k]+"' "; 
if(ndt[k]=="stati"){/*if(rep=="Ristorante"){vdt[k]=vdt[k].replace("R0","R1");} if(rep=="Pizzeria"){vdt[k]=vdt[k].replace("P0","P1");}*/
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"; 
/*alert(oldk+"\n\n"+newk+"\n\n"+indreg1);*/
/*var rifasp="https://www.servizinterattivi.it/dmsg/gestserver1/modkeyglob.asp?rifreg="+indreg1+"&rifkey="+oldk+"&operaz="+operaz+"&newkey="+newk; window.open(rifasp,"popup");*/
setTimeout(()=>modkeyglob(oldk,indreg1,newk,repsala,operaz),1000); msg="3 - registro <b>"+indreg1+" aggiornato</b>"; mostraerpiu(msg);

/*if(stat==1&&fatto==1){//var operaz="modificakey"; setTimeout(()=>modkeyglob(rifk,indreg1,newk1,repsala,operaz),1000);
var rifasp="https://www.servizinterattivi.it/dmsg/gestserver1/modkeyglob.asp?rifreg="+indreg1+"&rifkey="+rifk+"&operaz="+operaz+"&newkey="+newk1; window.open(rifasp,"popup"); }*/
}

/*
function saltaarifzaz(){percorso=percorso+"saltaarifzaz; "; var p1=p2=p3=0,ssrc="";  
if(riffz.indexOf("-")>-1){var p1=riffz.indexOf("-"); var crs=riffz.slice(p1+1), fz=riffz.slice(0,p1);} 
comunicservizinter(1,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","undefined","undefined","undefined",1,1,0,0);
if(riffz.indexOf("Piattaforma_DMSG")>-1){
prcmob("Informazioni sui Corsi Formativi e Specializzant",1); comunicservizinter(1,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","undefined","undefined","undefined",1,1,0,0); prcmob("5-Piattaforma_DMSG",2);comunicservizinter(2,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/5-Piattaforma_DMSG","undefined","undefined",1,1,0,0); prcmob("presentazione del corso.pdf",3);comunicservizinter(3,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/5-Piattaforma_DMSG","presentazione del corso.pdf",vedidoc("presentazione del corso.pdf","formazione/dmsgfad/formazione/5-Piattaforma_DMSG/"),1,1,0,0); return;
}
if(riffz.indexOf("Architettura_di_un_sito_e_SITO_WEB_GESTIONALE")>-1){
prcmob("Informazioni sui Corsi Formativi e Specializzant",1); comunicservizinter(1,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","undefined","undefined","undefined",1,1,0,0); prcmob("4-Architettura_di_un_sito_e_SITO_WEB_GESTIONALE",2);comunicservizinter(2,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/4-Architettura_di_un_sito_e_SITO_WEB_GESTIONALE","undefined","undefined",1,1,0,0); prcmob("presentazione_corso.pdf",3);comunicservizinter(3,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/4-Architettura_di_un_sito_e_SITO_WEB_GESTIONALE","presentazione_corso.pdf",vedidoc("presentazione_corso.pdf","formazione/dmsgfad/formazione/4-Architettura_di_un_sito_e_SITO_WEB_GESTIONALE/"),1,1,0,0);return;
}
if(riffz.indexOf("Graphics_web_technologies")>-1){
prcmob("Informazioni sui Corsi Formativi e Specializzant",1); comunicservizinter(1,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","undefined","undefined","undefined",1,1,0,0); prcmob("3-Graphics_web_technologies",2);comunicservizinter(2,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/3-Graphics_web_technologies","undefined","undefined",1,1,0,0); prcmob("presentazione_corso.pdf",3);comunicservizinter(3,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/3-Graphics_web_technologies","presentazione_corso.pdf",vedidoc("presentazione_corso.pdf","formazione/dmsgfad/formazione/3-Graphics_web_technologies/"),1,1,0,0); return;
}
if(riffz.indexOf("DOM_XML_e_JavaScript")>-1){
prcmob("Informazioni sui Corsi Formativi e Specializzant",1); comunicservizinter(1,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","undefined","undefined","undefined",1,1,0,0); prcmob("2-DOM_XML_e_JavaScript",2);comunicservizinter(2,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/2-DOM_XML_e_JavaScript","undefined","undefined",1,1,0,0); prcmob("presentazione del corso.pdf",3);comunicservizinter(3,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/2-DOM_XML_e_JavaScript","presentazione del corso.pdf",vedidoc("presentazione del corso.pdf","formazione/dmsgfad/formazione/2-DOM_XML_e_JavaScript/"),1,1,0,0); return;
}
if(riffz.indexOf("Linguaggi_e_tecnologie_di_base")>-1){
prcmob("Informazioni sui Corsi Formativi e Specializzant",1); comunicservizinter(1,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","undefined","undefined","undefined",1,1,0,0); prcmob("1-Linguaggi_e_tecnologie_di_base",2);comunicservizinter(2,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/1-Linguaggi_e_tecnologie_di_base","undefined","undefined",1,1,0,0); prcmob("presentazione_corso.pdf",3);comunicservizinter(3,"L´Azienda","Informazioni sui Corsi Formativi e Specializzanti","formazione/1-Linguaggi_e_tecnologie_di_base","presentazione_corso.pdf",vedidoc("presentazione_corso.pdf","formazione/dmsgfad/formazione/1-Linguaggi_e_tecnologie_di_base/"),1,1,0,0); return;
}
}
*/