/* [Info-Net - FileJoiner] filename: WebAdmin\_Include.js */
/*<SCRIPT type="text/javascript"><!--*/
//############################################################
//####     W E B  A D M I N  /  _ I N C L U D E . J S     ####
//############################################################
//	31/03/2010	ver. 1.2.6		- [40] Funzione [WebAdmin_OpenForm_Newsletter_Invio]: modificato modo di costruire nome window.
//	30/03/2010	ver. 1.2.5		- [40] Funzione [WebAdmin_OpenForm_Newsletter_Invio]: modificata, dopo le modifiche alla struttura del file che apre.
//	01/07/2009	ver. 1.2.4.1	- [40] In [WebAdmin_LanguageManager], risolto baco su [GetLangList], che non clonava l'array Traduci_Lingue_List.
//	26/06/2009	ver. 1.2.4		- [40] Modificata classe [WebAdmin_LanguageManager]: ora è in grado di gestire una lista proprietaria di lingue.
//	29/05/2009	ver. 1.2.3.3	- [56] Modificata funzione di this._RunMenu().
//	31/03/2009	ver. 1.2.3.2	- [40] Fatte correzioni alla classe [WebAdmin_CboLang].
//	04/02/2009	ver. 1.2.3.1	- [56] Cambiato la durata del cookie.
//	22/01/2009	ver. 1.2.3		- [56] Aggiunta classe [WeaAbmin_LanguageManager].
//	20/06/2008	ver. 1.2.2		- Aggiunta funzione [WebAdmin_Nazioni_DlgReferer], le provenienze dei log del sito.
//	20/06/2008	ver. 1.2.1		- Aggiunta funzione [WebAdmin_Nazioni_DlgList], per aprire la lista delle Nazioni.
//	13/03/2008	ver. 1.2.0.1	- Modifica procedura [WebAdmin_eCommerce_OrdCli_DlgEdit]: ora il popup è più grande.
//	12/03/2008	ver. 1.2.0		- Aggiunta procedura di ricerca Login [WebAdmin_Login_DlgFind].
//	05/03/2008	ver. 1.1.0		- Aggiunta procedura per modulo [eCommerce]: [WebAdmin_eCommerce_OrdCli_DlgEdit].
//	08/02/2008	ver. 1.0.3		- Aggiunta funzione [WebAdmin_OpenChangeLanNumber] e modificata funzione [WebAdmin_OpenWebTest].
//	20/11/2007	ver. 1.0.2		- Modifica indirizzo civico.
//	13/07/2007	ver. 1.0.1		- Modifica indirizzo civico.
//	01/12/2006	ver. 1.0.0.1	- Aggiunta procedura WebAdmin_SetGenericVars, che setta la variabile R nel caso in cui JScriptFinale non è stato
//				aggiunto al piè di pagina. Questo può avvenire quando ci sta un errore lato server.
//	29/11/2006	ver. 1.0.0		- Scorporamento delle procedure JavaScript dal file _Include.ASP a _Include.JS




function WebAdmin_SetGenericVars() {
	if (!window.R) {
		window.R = '/';
	}
}

function WebAdmin_EditorToolBar_About() {
	window.open(R + 'WebAdmin/AboutPopup.asp', '_blank', 'width=450,height=250,toolbar=0,menubar=0,location=0,scrollbars=0,status=0,resizable=0');
}


function WebAdmin_OpenForm_Record(Mode, Module, IDRecord, IDParent) {
	var nomeWindow = 'WebAdmin_' + Module + '_' + ((IDRecord <= -1) ? 'New' : IDRecord);
	WebAdmin_SetGenericVars();
	if (Module == 'UdsExpress') {
		window.open(R + 'WebAdmin/OpenRecordUdsExpress.asp?Mode=' + Mode + '&ID=' + IDRecord + '&IDParent=' + IDParent + '', nomeWindow, 'width=900,height=650,location=0,menubar=0,resizable=0,scrollbars=1,toolbar=0,status=1', false);
	} else {
		window.open(R + 'WebAdmin/OpenRecord.asp?Mode=' + Mode + '&Module=' + Module + '&ID=' + IDRecord + '&IDParent=' + IDParent + '', nomeWindow, 'width=880,height=600,location=0,menubar=0,resizable=0,scrollbars=1,toolbar=0,status=1', false);
	}
}
function WebAdmin_OpenForm_DeleteRecord(Module, IDRecord, IDParent) {
	WebAdmin_SetGenericVars();
	window.open(R + 'WebAdmin/DeleteRecord.asp?Module=' + Module + '&ID=' + IDRecord + '&IDParent=' + IDParent + '', 'WebAdmin_DeleteRecord', 'width=400,height=200,location=0,menubar=0,resizable=0,scrollbars=0,toolbar=0', false);
}

function WebAdmin_Toolbar_ViewChilds(Module, IDParent) {
	var obj = document.getElementById('WebAdmin_' + Module + '_' + IDParent + '');
	WebAdmin_SetGenericVars();
	SetProperty(obj, 'display', ((obj.style.display=='none') ? 'inline' : 'none') , 0);
}

function WebAdmin_OpenForm_Login(IDRecord) {
	var tipo, id;
	WebAdmin_SetGenericVars();
	if (IDRecord == 'new') {
		tipo = 'new';
		id = 0;
	} else {
		tipo = 'edit';
		id = IDRecord;
	}
	window.open(R + 'WebAdmin/OpenLogin.asp?OpenType=' + tipo + '&ID=' + id, 'WebAdmin_Login_' + (IDRecord.toString().replace(/-/i, 'm')), 'width=580, height=500, location=0, menubar=0, resizable=1, scrollbars=1, status=1, toolbar=0');
}

function WebAdmin_OpenForm_Newsletter(IDRecord) {
	var tipo, id;
	if (IDRecord == 'new') {
		tipo = 'new';
		id = 0;
	} else {
		tipo = 'edit';
		id = IDRecord;
	}
	WebAdmin_SetGenericVars();
	window.open(R + 'WebAdmin/OpenNewsletter.asp?OpenType=' + tipo + '&ID=' + id, 'WebAdmin_Newsletter_' + IDRecord, 'width=860, height=650, location=0, menubar=0, resizable=1, scrollbars=1, status=1, toolbar=0');
}
function WebAdmin_OpenForm_Newsletter_Invio(IDMail, IDInvio, SendType, SendType_Test_Lan, SendType_Test_Dest) {
	WebAdmin_SetGenericVars();
	window.open(R + 'WebAdmin/OpenNewsletter_Invio.asp?IDParent=' + IDMail + '&ID=' + IDInvio + '&SendType=' + SendType + '&SendType_Test_Lan=' + SendType_Test_Lan + '&SendType_Test_Dest=' + CStrUrlParam(SendType_Test_Dest), 'WebAdmin_Newsletter_Invio_' + IDInvio, 'width=600, height=500, location=0, menubar=0, resizable=1, scrollbars=0, status=1, toolbar=0');
}
function WebAdmin_OpenWebTest() {
	WebAdmin_SetGenericVars();
	window.open(R + 'WebAdmin/index_DlgWebTest.asp', '_blank', 'width=900, height=400, location=0, menubar=0, resizable=1, scrollbars=1, status=1, toolbar=0');
}
function WebAdmin_OpenChangeLanNumber() {
	WebAdmin_SetGenericVars();
	window.open(R + 'WebAdmin/index_DlgChangeLanNumber.asp', '_blank', 'width=900, height=600, location=0, menubar=0, resizable=1, scrollbars=1, status=1, toolbar=0');
}
			
function WebAdmin_eCommerce_OrdCli_DlgEdit(IDRecord) {
	WebAdmin_SetGenericVars();
	window.open(R + 'WebAdmin/eCommerce_OrdCli_DlgEdit.asp?ID=' + IDRecord, 'eCommerce_OrdCli_DlgEdit_' + IDRecord, 'width=1000, height=600, location=0, menubar=0, resizable=1, scrollbars=0, status=1, toolbar=0');
}

function WebAdmin_Login_DlgFind(CurrentValue, AllowNew, AllowRemove, FormFilter, ImplicitFilter) {
/*	La funzione restituisce  NULL  se l'operazione di ricerca è stata annullata (tipo finestra chiusa), altrimenti una collection con:
		ID, Username, Firstname, Lastname
	Attenzione: se l'utente clicca su RIMUOVI allora i valori di questa collection saranno tutti impostati a NULL.
*/
	var parametri, risp;
	
	parametri = 'ID=' + CurrentValue;
	parametri += '&AllowNew=' + ((AllowNew)? CStrUrlParam(AllowNew) : '');
	parametri += '&AllowRemove=' + ((AllowNew)? CStrUrlParam(AllowRemove) : '');
	parametri += '&FormFilter=' + ((FormFilter)? CStrUrlParam(FormFilter) : '');
	parametri += '&ImplicitFilter=' + ((FormFilter)? CStrUrlParam(ImplicitFilter) : '');
	//window.open(R + 'WebAdmin/WebLogins_Login_DlgFind.asp?' + parametri);
	risp = HtmlTag_OpenWindowModalDialog(R + 'WebAdmin/WebLogins_Login_DlgFind.asp', parametri, null);
	if (risp == '#non definito#') {risp = null;} else {risp = DeserializeValue(risp);}
	return risp;
}

function WebAdmin_Nazioni_DlgList() {
	WebAdmin_SetGenericVars();
	window.open(R + 'WebAdmin/Nazioni_DlgList.asp', 'Nazioni_DlgList', 'width=400, height=600, location=0, menubar=0, resizable=1, scrollbars=1, status=1, toolbar=0');
}

function WebAdmin_Statistiche_DlgReferer(Data){
	window.open('Statistiche_DlgLogReferer.asp?Data=' + Data, 'Referer_DlgList', 'width=600, height=600, location=0, menubar=0, resizable=1, scrollbars=1, status=1, toolbar=0');
}

function WebAdmin_LanguageManager(IdObject, CurrentLang ){
	var ImgObjectColl, currentLang, previousLang, id;
	this.currentLang = '';
	this.previousLang = '';
	this.ImgObjectColl = new Array();
	this.id = IdObject;
	this._objUl = null;
	this._tmrMouseOut = null;
	this._langList = null;
	
	if (!window.WebAdmin_LanguageManagerColl) window.WebAdmin_LanguageManagerColl = new Array();
	window.WebAdmin_LanguageManagerColl[this.id] = this;
	
	this._initialize = function(){
		this.previousLang = '';
		if (GetCookie(this.id + '_CurrLang') === null){
			this.currentLang = CurrentLang;
		} else {
			this.currentLang = GetCookie(this.id + '_CurrLang');
		}
	}
	
	this._RunMenu = function (ObjUl, CssSubMenuOffset) {
		var ulTags = ObjUl.getElementsByTagName('ul');
		var str1;
		for (var t=0; t < ulTags.length; t++) {
			ulTags[t].style.top = (ulTags[t].parentNode.offsetHeight + CssSubMenuOffset) + 'px';
			
			str1= ''+
				'ulTags[t].parentNode.onmouseover = function() {' +
				'var obj1 = window.WebAdmin_LanguageManagerColl[\'' + CStrJS(this.id) + '\'];' +
				'obj1._onMouseOverEvent();' +
			'}';
			eval(str1);
			
			str1 = '' +
			'ulTags[t].parentNode.onmouseout = function() {' +
				'var obj1 = window.WebAdmin_LanguageManagerColl[\'' + CStrJS(this.id) + '\'];' +
				'obj1._tmrMouseOut = setTimeout(\'window.WebAdmin_LanguageManagerColl[\\\'' + CStrJS(this.id) + '\\\']._onMouseOutEvent();\', 500);' +
			'}';
			eval(str1);
		}
	}
	
	this._onMouseOverEvent = function(){
		clearTimeout(this._tmrMouseOut);
		this._objUl.getElementsByTagName('ul')[0].style.zIndex = 100;
		this._objUl.getElementsByTagName('ul')[0].style.visibility = 'visible';
		this._objUl.getElementsByTagName('ul')[0].style.display = 'block';
		this._objUl.getElementsByTagName('ul')[0].style.zIndex = 0;
	}
	this._onMouseOutEvent = function(){
		this._objUl.getElementsByTagName('ul')[0].style.zIndex = 0;
		this._objUl.getElementsByTagName('ul')[0].style.visibility = 'hidden';
		this._objUl.getElementsByTagName('ul')[0].style.display = 'none';
		this._objUl.getElementsByTagName('ul')[0].style.zIndex = 100;
	}
	
	this.DrawImg = function(OnLoad, OnBeforeChanging, OnAfterChanged, OnUnload, IdParent, CssStyle){
		this._drawGeneric(OnLoad, OnBeforeChanging, OnAfterChanged, OnUnload, IdParent, CssStyle);
	}
	this.DrawHidden = function(OnLoad, OnBeforeChanging, OnAfterChanged, OnUnload){
		this._drawGeneric(OnLoad, OnBeforeChanging, OnAfterChanged, OnUnload, null, null);
	}
	this._drawGeneric = function(OnLoad, OnBeforeChanging, OnAfterChanged, OnUnload, IdParent, CssStyle){
		var obj1, obj2;
		obj1 = document.createElement('SPAN');
		obj1.className = 'LanguageManager_Img';
		if (CssStyle) obj1.style.cssText = CssStyle;
		obj2 = document.createElement('IMG');
		obj2.src = R + 'WebAdmin/Images/SelezLingua_Flag' + this.currentLang + '.gif';
		obj2.LanManager_OnLoad = OnLoad;
		obj2.LanManager_OnBeforeChanging = OnBeforeChanging;
		obj2.LanManager_OnAfterChanged = OnAfterChanged;
		obj2.LanManager_OnUnload = OnUnload;
		this.ImgObjectColl.push(obj2);
		obj1.appendChild(obj2);
		if (IdParent) {
			findObj(IdParent).appendChild(obj1);
		} else {
			obj1.style.display = 'none';
			document.appendChild(obj1)
		}
	}
	this.DrawMenu = function(OnLoad, OnBeforeChanging, OnAfterChanged, OnUnload, IdParent, CssStyle){
		var objDiv, objUl, objLi, objImg, objAnc, objUlSub, obj1, obj2;
		var cont1, strJS;
		
		objDiv = document.createElement('DIV');
		objDiv.className = 'LanguageManager_Menu';
		if (CssStyle) objDiv.style.cssText = CssStyle;
		
		objUl = document.createElement('UL');
		this._objUl = objUl;
		objDiv.appendChild(objUl);

		objAnc = document.createElement('A');
		objAnc.href = 'javascript:void(0);';
		
		objImg = document.createElement('IMG');
		objImg.src = R + 'WebAdmin/Images/SelezLingua_Flag' + this.currentLang + '.gif';
		objImg.LanManager_OnBeforeChanging = OnBeforeChanging;
		objImg.LanManager_OnAfterChanged = OnAfterChanged;
		objImg.LanManager_OnLoad = OnLoad;
		objImg.LanManager_OnUnload = OnUnload;
		this.ImgObjectColl.push(objImg);
		objAnc.appendChild(objImg);
		
		objImg = document.createElement('IMG');
		objImg.src = R + 'WebAdmin/Images/SelezLingua_CmdMenu.gif';
		objAnc.appendChild(objImg);
		
		objLi = document.createElement('LI');
		objUl.appendChild(objLi);
		objLi.appendChild(objAnc);
		
		objUlSub = document.createElement('UL');
		objUlSub.style.display = 'none';
		for (cont1 = 0; cont1 < this.GetLangList().length; cont1++){
			obj1 = document.createElement('LI');
			obj2 = document.createElement('A');
			obj2.href = 'javascript:void(0);';
			obj2.LangCode = this.GetLangList()[cont1];
			strJS = 'addEvent(obj2, \'click\', function(ev) {' + 
						'var eventObj = new STDEvent(ev); var obj1, lan;' +
						'eval(\'' + CStrJS('obj1 = window.WebAdmin_LanguageManagerColl[\'' + CStrJS(this.id) + '\'];') + '\');' + 
						'lan = (eventObj.srcElement.LangCode ? eventObj.srcElement.LangCode : eventObj.srcElement.parentElement.LangCode);' +
						'obj1._MenuItem_onClick(lan);' +
					'}' +
				');';
			eval(strJS);
			obj3 = document.createElement('IMG');
			obj3.src = R + 'WebAdmin/Images/SelezLingua_Flag' + this.GetLangList()[cont1] + '.gif';
			obj2.appendChild(obj3);
			obj2.innerHTML = obj2.innerHTML + '&nbsp;' + this.GetLangList()[cont1];
			obj1.appendChild(obj2);
			objUlSub.appendChild(obj1);
		}
		objLi.appendChild(objUlSub)
		findObj(IdParent).appendChild(objDiv);
		this._RunMenu(objUl, -2);
	}
	
	this._raise_onBeforeChanging = function(Evento, NewCode){
		var str1;
		if (Evento){
			switch(typeof(Evento).toLowerCase()){
				case 'string':
					str1 = Evento;
					str1 = str1.replace();
					str1 = str1.replace(/\[CURRENTCODE]/g, this.currentLang);
					str1 = str1.replace(/\[NEWCODE]/g, NewCode);
					str1 = str1.replace(/\[SOURCE]/g, 'WebAdmin_LanguageManagerColl[\'' + CStrJS(this.id) + '\']');
					eval(str1);
					break;
				case 'function':
					Evento(this, this.currentLang, NewCode);
					break;
				default:
					alert('ERRORE!');
					break;
			}
		}
	}
	
	this._raise_onAfterChanged = function(Evento){
		if (Evento){
			switch(typeof(Evento).toLowerCase()){
				case 'string':
					str1 = Evento;
					str1 = str1.replace();
					str1 = str1.replace(/\[PREVIOUSCODE]/g, this.previousLang);
					str1 = str1.replace(/\[CURRENTCODE]/g, this.currentLang);
					str1 = str1.replace(/\[SOURCE]/g, 'WebAdmin_LanguageManagerColl[\'' + CStrJS(this.id) + '\']');
					eval(str1);
					break;
				case 'function':
					Evento(this, this.previousLang , this.currentLang);
					break;
				default:
					alert('ERRORE!');
					break;
			}
		}
	}
	
	this._raise_onLoad = function(Evento){
		if (Evento){
			switch(typeof(Evento).toLowerCase()){
				case 'string':
					str1 = Evento;
					str1 = str1.replace(/\[CURRENTCODE]/g, this.currentLang);
					str1 = str1.replace(/\[SOURCE]/g, 'WebAdmin_LanguageManagerColl[\'' + CStrJS(this.id) + '\']');
					eval(str1);
					break;
				case 'function':
					Evento(this, this.currentLang);
					break;
				default:
					alert('ERRORE!');
					break;
			}
		}
	} 
	
	this._raise_onUnload = function(Evento){
		if (Evento){
			switch(typeof(Evento).toLowerCase()){
				case 'string':
					str1 = Evento;
					str1 = str1.replace(/\[CURRENTCODE]/g, this.currentLang);
					str1 = str1.replace(/\[SOURCE]/g, 'WebAdmin_LanguageManagerColl[\'' + CStrJS(this.id) + '\']');
					eval(str1);
					break;
				case 'function':
					Evento(this, this.currentLang);
					break;
				default:
					alert('ERRORE!');
					break;
			}
		}
	}
	
	this.Load = function() {
		var img;
		for (img in this.ImgObjectColl){
			this.ImgObjectColl[img].src = R + 'WebAdmin/Images/SelezLingua_Flag' + this.currentLang + '.gif';
			this._raise_onLoad(this.ImgObjectColl[img].LanManager_OnLoad);
		}
	}
	
	this.Unload = function(){
		var img;
		for (img in this.ImgObjectColl){
			this.ImgObjectColl[img].src = R + 'WebAdmin/Images/SelezLingua_Flag' + this.currentLang + '.gif';
			this._raise_onUnload(this.ImgObjectColl[img].LanManager_OnUnload);
		}
	}
	
	this._MenuItem_onClick = function(NewCode){
		if (this.currentLang != NewCode){
			this.SetLang(NewCode);
		}
	}
	
	this.SetLang = function(NewCode){
		var img;
		for (img in this.ImgObjectColl){
			this._raise_onBeforeChanging(this.ImgObjectColl[img].LanManager_OnBeforeChanging, NewCode);
		}
		
		this.previousLang = this.currentLang;
		this.currentLang = NewCode;
		
		for (img in this.ImgObjectColl){
			this.ImgObjectColl[img].src = R + 'WebAdmin/Images/SelezLingua_Flag' + NewCode + '.gif';
			this._raise_onAfterChanged(this.ImgObjectColl[img].LanManager_OnAfterChanged, this.currentLang);
		}
				SetCookie(this.id + '_CurrLang', this.currentLang, 1 / (24 * 60) * 20);
 	}
 	this.SetLangList = function(LangList) {
 		//Serve per settare la lista delle lingue mostrabili dall'oggetto. Attenzione: l'argomento deve essere un array di "Codici lingua".
 		this._langList = LangList;
 	}
 	this.GetLangList = function() {
 		if (!this._langList) this._langList = Traduci_Lingue_List.slice(0);	//clono l'array.
 		return this._langList;
 	}
	this._initialize();
	return this;
}
/* [Info-Net - FileJoiner] filename: _HtmlTag\_Include.js */
//##########################################################
//####     H T M L T A G /  _ I N C L U D E . J S		####
//##########################################################
//	31/05/2010	ver. 1.0.7		- [40] Funzione [HtmlTag_MsgBox_DlgEdit]: aggiunto copia dell'argomento [Parameters] in [argsColl] (per maggiori info
//				vedere i commenti nella funzione).
//	18/02/2010	ver. 1.0.6  	- [40] Aggiunto l'uso della proprietà di [HtmlPlus_Popup] "showInTopFrame".
//	15/12/2009	ver. 1.0.5  	- [56] Modificato funzione [HtmlTag_ListBox_SelMultipla].
//	12/11/2009	ver. 1.0.4  	- [40] Aggiunto funzione [HtmlTag_ListBox_SelMultipla].
//	23/10/2009	ver. 1.0.3.2	- [40] Nell'impiego di [HtmlPlus_Popup], ridefinito meglio le dimensioni del Popup e del contenuto.
//	23/10/2009	ver. 1.0.3.1	- [40] Nell'impiego di [HtmlPlus_Popup], rimosso metodo per indicare lo stile di default (zeus).
//	13/10/2009	ver. 1.0.3		- [40] Aggiunto procedure per il calendario: [HtmlTag_Calendar_DlgEdit] mostra un popup col calendario, mentre
//				la funzione [HtmlTag_TextboxCalendar_Show] si occupa di gestire il valore "Data" di un textbox.
//	25/09/2009	ver. 1.0.2		- [56] Modificato funzione [HtmlTag_MsgBox_DlgEdit]: ora i parametri vengono passati attraverso l'oggetto Popup, e non più
//				tramite URL.
//	24/09/2009	ver. 1.0.1		- [56] Modificato funzione [HtmlTag_MsgBox_DlgEdit] in modo che possa accettare l'abilitazione dei pulasnti.
//	19/06/2009	ver. 1.0.0		- Primo versione.

function HtmlTag_KeyWords_DlgEdit(CurrValue, OnCloseFunction, Title, optClassName, optOpenInCurrentFrame){
	var objPopUp;
	var idObj = 'HtmlTag_KeywordsPopup';
	var CollectionArgument = new Array();
	var cont1;
	var parametri;
	
	parametri = '';
	CollectionArgument['CurrValue'] = CurrValue;
	if (window.HtmlPlus_PopupColl) {
		if (window.HtmlPlus_PopupColl[idObj]) objPopUp = HtmlPlus_PopupColl[idObj];
	}
	if (!objPopUp) {
		objPopUp = new HtmlPlus_Popup(idObj, Title, R + '_HtmlTag/Keywords_DlgEdit.asp' + parametri, 515, 312, 510, 280, optClassName);
		if (IsUndefined(optOpenInCurrentFrame) == false) objPopup.showInTopFrame = !optOpenInCurrentFrame;
	}
	if (OnCloseFunction) objPopUp.OnClose = OnCloseFunction;
	objPopUp.Open(CollectionArgument['CurrValue'], '50%', '30%', true, 0, 0, 0);
	return objPopUp;
}

function HtmlTag_MsgBox_DlgEdit(Parameters, OnCloseFunction, Title, optClassName, optOpenInCurrentFrame) {
	var objPopup;
	var idPopup = 'MsgBox_Popup';
	var argsColl = new Array();
	var cont1;
	
	//Clono [Parameters] in [argsColl], anche se non tutti i valori saranno utili all'interno di "MsgBox_DlgEdit.asp". Questo perchè i valori
	//di troppo potrebbero essermi utili nella funzione indicata in [OnCloseFunction], che leggendo "Sender.LastSendArgument()" posso conoscere
	//informazioni sul contesto per cui si è aperta la maschera "MsgBox".
	for (cont1 in Parameters) {
		argsColl[cont1] = Parameters[cont1];
	}
	//Setto gli argomenti necessari a "MsgBox_DlgEdit.asp"
	argsColl['Title'] = Title;
	argsColl['Text'] = Parameters['Text'];
	argsColl['Cmd'] = Parameters['Cmd'].split(';');
	if (Parameters['AskEnable']) argsColl['AskEnable'] = Parameters['AskEnable'].split(';');
	if (window.HtmlPlus_PopupColl) {
		if (window.HtmlPlus_PopupColl[idPopup]) objPopup = HtmlPlus_PopupColl[idPopup];
	}
	if (!objPopup) {
		objPopup = new HtmlPlus_Popup(idPopup, Title, R + '_HtmlTag/MsgBox_DlgEdit.asp', 515, 312, 510, 280, optClassName);
		if (IsUndefined(optOpenInCurrentFrame) == false) objPopup.showInTopFrame = !optOpenInCurrentFrame;
	}
	if (OnCloseFunction) objPopup.OnClose = OnCloseFunction;
	objPopup.Open(argsColl, '50%', '30%', true, 0, 0, 0);
	return objPopup;
}

function HtmlTag_StringheSupp_Config_Open(Code, optSqlAllowDelete, optLockCodeField){
	/*Argomenti:
		Code :					codice di StringheSupp da editare (campo StringheSupp.Codice)
		optSqlAllowDelete :		(opzionale) comando SQL per verificare se è ammessa l'eliminazione di un record: se la Select è in EOF allora il record
								può essere eliminato; il comando SQL può sfruttare questi parametri:  @ID, @Codice.
								Essi verranno riempiti con il valore dei relativi campi del record da eliminare.
		optLockCodeField :		(opzionale) se è TRUE allora il campo [Codice] di un record già esistente non potrà essere modificato.
	*/
	var params, nomeWin, argColl;
	var strUrl, objWin;
	
	params = 'OpenType=edit&IdParent=' + Code;
	nomeWin = 'HtmlTag_StringheSupp_Config__' + Code;
	strUrl = R + '_HtmlTag/StringheSupp_DlgEdit.asp?' + params;
	objWin = window.open(strUrl, nomeWin, 'width=680, height=600, location=0, menubar=0, resizable=1, scrollbars=1, status=1, toolbar=0');
	argColl = null;
	if (optSqlAllowDelete) {if (!argColl) argColl=new Object(); argColl['varSqlAllowDelete'] = optSqlAllowDelete;}
	if (optLockCodeField) {if (!argColl) argColl=new Object(); argColl['varLockCodeField'] = (optLockCodeField ? '1': '0');}
	if (argColl) {
		argColl['win'] = objWin;
		if (!window.HtmlTag_StringheSupp_Config_Open__setVariables) {
			window.HtmlTag_StringheSupp_Config_Open__setVariables = function(ArgumentIndex) {
				var argColl, objDoc, idTag;
				argColl = window.HtmlTag_StringheSupp_Config_Open__setVariables_argsColl[ArgumentIndex];
				try {
					objDoc = argColl['win'].document;
					for (idTag in argColl) {
						if (idTag != 'win') objDoc.getElementById(idTag).value = argColl[idTag];
					}
				} catch (ex) {
					setTimeout('HtmlTag_StringheSupp_Config_Open__setVariables(' + CNumJS(ArgumentIndex) + ');', 200);
				}
			}
			window.HtmlTag_StringheSupp_Config_Open__setVariables_argsColl = new Array();
		}
		window.HtmlTag_StringheSupp_Config_Open__setVariables_argsColl.push(argColl);
		setTimeout('HtmlTag_StringheSupp_Config_Open__setVariables(' + CNumJS(HtmlTag_StringheSupp_Config_Open__setVariables_argsColl.length - 1) + ');', 200);
	}
	return;
}

function HtmlTag_StringheSupp_SelMultipla(StrSuppType, CurrValue, OnCloseFunction, Title, optClassName, optOpenInCurrentFrame){
	var objPopUp;
	var idObj = 'HtmlTag_StringheSupp_SelMultipla__' + StrSuppType;
	var argsColl = new Array();
	var cont1;
	
	argsColl['title'] = '';
	argsColl['Selected'] = SerializeValue(CurrValue);
	argsColl['TypeStringheSupp'] = StrSuppType;
	
	parametri = '?TypeStrSupp=' + StrSuppType;
	parametri += '&Value=' + SerializeValue(CurrValue);
	if (window.HtmlPlus_PopupColl) {
		if (window.HtmlPlus_PopupColl[idObj]) {
			objPopUp = HtmlPlus_PopupColl[idObj];
		}
	}
	if (!objPopUp) {
		objPopUp = new HtmlPlus_Popup(idObj, Title, R + '_HtmlTag/StringheSupp_DlgAdd.asp' + parametri, 515, 312, 510, 280, optClassName);
		if (IsUndefined(optOpenInCurrentFrame) == false) objPopup.showInTopFrame = !optOpenInCurrentFrame;
	}
	if (OnCloseFunction) objPopUp.OnClose = OnCloseFunction;
	objPopUp.Open(argsColl, '50%', '30%', true, 0, 0, 0);
	return objPopUp;
}


function HtmlTag_ListBox_SelMultipla(SourceType, SourceValue, CurrValue, OnCloseFunction, Title, optClassName, optOpenInCurrentFrame) {
    // Apre un popup per la selezione multipla
    // Argomenti:
	// SourceType :				Può essere : sql, dictionary, stringhesupp e rappresenta il tipodi fonte da cui attingere la lista
	// SourceValue :			Se type è dictionary è una dictionary se stringhesupp è il codice stringhesupp, se sql  una query
	// CurrValue :				E' il valore corrente
	// OnCloseFunction :		Funzione da eseguire su chiusura del PopUp
	// Title :					Titolo della finestra PopUp che si apre
	// optClassName :			[Opzionale] se inserito il PopUp prenderà la definizione di stile definita nel parametro.
	
    var objPopUp;
    var idObj = 'ListBox_DlgEdit__' + Module + '_' + Code;
    var argsColl = new Array();
    var cont1;

    argsColl['Title'] = Title;
    argsColl['SourceType'] = SourceType;
    argsColl['SourceValue'] = SourceValue;
    argsColl['SelectedValue'] = CurrValue;
	
    if (window.HtmlPlus_PopupColl) {
        if (window.HtmlPlus_PopupColl[idObj]) {
            objPopUp = HtmlPlus_PopupColl[idObj];
        }
    }
    if (!objPopUp) {
        objPopUp = new HtmlPlus_Popup(idObj, Title, R + '_HtmlTag/ListBox_DlgEdit.asp', 515, 312, 510, 280, optClassName);
        if (IsUndefined(optOpenInCurrentFrame) == false) objPopup.showInTopFrame = !optOpenInCurrentFrame;
    }
    if (OnCloseFunction) objPopUp.OnClose = OnCloseFunction;
    objPopUp.Open(argsColl, '50%', '30%', true, 0, 0, 0);
    return objPopUp;
}

function HtmlTag_Calendar_DlgEdit(CurrentDate, Left, Top, OnOpenFunction, OnCloseFunction) {
	//Mostra il calendario all'interno di un Popup. Al termine della scelta della data (o su abort) viene invocata la funzione [OnCloseFunction]. Argomenti:
	//	CurrentDate :		oggetto Date (o stringa) che indica il giorno corrente.
	//	Left :				(argomento per il Popup) coordinata Left del popup.
	//	Top :				(argomento per il Popup) coordinata Top del popup.
	//	OnCloseFunction :	(argomento per il Popup) funzione che viene richiamata al termine dell'inserimento del valore (o su abort).
	var valCurrDate, strHtml, objPopup;
	var idObject = 'HtmlTag_Calendar_DlgEdit';
	valCurrDate = CDate(CurrentDate);
	if (window.HtmlPlus_PopupColl) objPopup = window.HtmlPlus_PopupColl[idObject + '__Popup'];
	if (!objPopup) {
		strHtml = '<div id="' + idObject + '__Div" class="Def_Calendar" style="width:auto;height:auto;"></div>';
		objPopup = new HtmlPlus_Popup(idObject + '__Popup', 'Calendario', strHtml, '220', '200', 'auto', 'auto', 'UI');
		objPopup.showInTopFrame = false;
	}
	objPopup.Open(null, Left, Top, false, 0, 0, 0);
	if (!objPopup.ObjCalendar) {
		FileInclude('/_Include/HtmlPlus_Calendar.js')
		HtmlTag_Calendar_DlgEdit__buildCalendar_info = {IDPrefix:idObject, CurrDate:valCurrDate, OnOpenFunction:OnOpenFunction};
		HtmlTag_Calendar_DlgEdit__buildCalendar();
	} else {
		objPopup.ObjCalendar.SetCalendar(valCurrDate);
		objPopup.ObjCalendar.SetCurrentDate(valCurrDate, false, true);
		objPopup.ObjCalendar.RedrawCalendar();
	}
	if (OnCloseFunction) {
		objPopup.OnClose = OnCloseFunction;
	}
	return objPopup;
}
function HtmlTag_Calendar_DlgEdit__buildCalendar() {
	var idPrefix, currDate;
	var objPopup;
	if (window.HtmlPlus_Calendar) {
		idPrefix = HtmlTag_Calendar_DlgEdit__buildCalendar_info.IDPrefix;
		currDate = HtmlTag_Calendar_DlgEdit__buildCalendar_info.CurrDate;
		objPopup = window.HtmlPlus_PopupColl[idPrefix + '__Popup'];
		objPopup.ObjCalendar = new HtmlPlus_Calendar(idPrefix + '__Calendar', findObj(idPrefix + '__Div'), null, currDate, null, null);
		objPopup.ObjCalendar.ObjPopup = objPopup;
		objPopup.ObjCalendar.showCurrentValue = true;
		objPopup.ObjCalendar.showPreviousDays = true;
		objPopup.ObjCalendar.showNextDays = true;
		objPopup.ObjCalendar.AddDayEvent(1, 0, true, null, null, false);
		objPopup.ObjCalendar.OnAfterCurrentDateChanged = function (Calendar, OldDate, CurrentDate) {setTimeout('window.HtmlPlus_PopupColl[\'' + CStrJS(Calendar.ObjPopup.id) + '\'].Close(DeserializeValue(\'' + CStrJS(SerializeValue(CurrentDate)) + '\'), false);', 200);}
		objPopup.ObjCalendar.DrawObject();
		if (HtmlTag_Calendar_DlgEdit__buildCalendar_info.OnOpenFunction) {
			HtmlTag_Calendar_DlgEdit__buildCalendar_info.OnOpenFunction();
		}
	} else {
		setTimeout('HtmlTag_Calendar_DlgEdit__buildCalendar();', 100);
	}
}


function HtmlTag_TextboxCalendar_Show(ObjTextbox, optDirection, optFireChangeEvent) {
	//Procedure per la gestione del calendario su di un oggetto [Textbox]. Dato l'oggetto [Textbox], si occuperà di mostrare un Popup il cui valore corrente
	//sarà quello mostrato dal textbox, e scelto il valore nuovo questo verrà applicato al textbox. Argomenti:
	//	ObjTextbox		: oggetto su cui applicare il textbox.
	//	optDirection	: (opzionale, argomento per [HtmlPlus_Positionator]) serve per personalizzare il Popup in una posizione personalizzata rispetto
	//					al textbox.
	//	optFireChangeEvent : (opzionale) se TRUE, se il valore DATA viene modificato allora viene invocato l'evento "onChange".
	var objPopup, objPosiz, direz;
	direz = (optDirection ? optDirection : 'SE');
	//Qui devo creare un nuovo oggetto [Positionator] e indicargli che deve lavorare con il Textbox.
	objPosiz = new HtmlPlus_Positionator('HtmlTag_Calendar_DlgEdit__Positionator', null, ObjTextbox, direz, {position1:'0px'}, null);
	objPopup = HtmlTag_Calendar_DlgEdit(ObjTextbox.value, 'dynamic', objPosiz, null, HtmlTag_TextboxCalendar_Show__onDialogClosed);
	objPosiz.object = objPopup.container;
	HtmlTag_TextboxCalendar_Show__info = {objTxt:ObjTextbox, fireChangeEvent:optFireChangeEvent};
	objPosiz.Run();
}
function HtmlTag_TextboxCalendar_Show__onDialogClosed(ObjTextbox, ReturnValue, IsAbort) {
	var objTxt;
	if (HtmlTag_TextboxCalendar_Show__info) {
		objTxt = HtmlTag_TextboxCalendar_Show__info.objTxt;
		if (!IsAbort) {
			SetHtmlControlValue(objTxt, CDate(ReturnValue).CDateHtml());
			if (HtmlTag_TextboxCalendar_Show__info.fireChangeEvent) fireEvent(objTxt, 'change');
		}
		HtmlTag_TextboxCalendar_Show__info = null;
	}
}