//// Env Var
var xmlDocument ='';

var mySchema ='';
var mySchemaXml ='';
var Tables=new Array();

var DataSet=function(){};
	DataSet.fill=0;
	DataSet.Tables=new Array();

var c=0;

var Ds=function(){};
	Ds.Rs=new Array();				  

//// Rockland Client Data to XML -- Form Data To String
function make_rs(t)
{
    if (window.ActiveXObject)
	{
	    //IE
		xmlDocument = new ActiveXObject('Microsoft.XMLDOM');
		xmlDocument.async = false;  
		//var loaded = xmlDocument.loadXML(unescape(t.responseText));
		var loaded = xmlDocument.loadXML(t.responseText);
		if (loaded) 
		{
			mySchema=xmlDocument.documentElement.childNodes[0].xml;
			mySchemaXml=xmlDocument.documentElement.childNodes[0];
			Ds.strSchema=mySchema;
			xml_Schema=mySchemaXml.getElementsByTagName('xs:sequence');							
			var elem=xml_Schema[0].childNodes[0];
			get_Schema(xml_Schema);
			tobj=xmlDocument.documentElement;
			FillDataSet(tobj);
		}
	}
	else
	{
	    if (navigator.userAgent.indexOf("Firefox") > 0)
		{
		    var domParser = new DOMParser();
		    //xmlDocument = domParser.parseFromString(unescape(t.responseText),'application/xml');
		    xmlDocument = domParser.parseFromString(t.responseText,'application/xml');
		    parseError = checkForParseError(xmlDocument);

		    if (parseError.errorCode == 0) 
		    {
			    mySchema = (new XMLSerializer()).serializeToString(xmlDocument.documentElement.childNodes[0]);
			    mySchemaXml=xmlDocument.documentElement.childNodes[0];
			    Ds.strSchema=mySchema;
			    if (!document.getElementById("DataBinder"))
			    {
				    var tmpDataBinder=document.createElement('div');
				    tmpDataBinder.id="DataBinder";
				    document.body.appendChild(tmpDataBinder);
			    }
			    $("DataBinder").innerHTML="";
			    $("DataBinder").appendChild(mySchemaXml);
			    //dataTable=$("DataBinder").getElementsByTagName('choice');
		        xml_Schema=$("DataBinder").getElementsByTagName('sequence');

			    //FireFox 1.5 & 2.0
			    if (navigator.userAgent.indexOf("Firefox") > 0)
			    {
			        xml_Schema=$("DataBinder").getElementsByTagName('xs:sequence');

			    }
			    else
			    {
			        xml_Schema=$("DataBinder").getElementsByTagName('sequence');
			    }
    			
			    var elem=xml_Schema[0].childNodes[0];
			    tobj=xmlDocument.documentElement;
			    tobj=cleanempty(tobj);	 
			    dataObj=tobj.childNodes;
			    countTbl=tobj.childNodes.length;							
			    get_Schema(xml_Schema);
			    FillDataSet(tobj);
			}
       		else 
    	    {
	    	    alert(parseError.reason + '\r\n' + parseError.srcText);
		        //alert(t.responseText.charAt(2176)+t.responseText.charAt(2177)+t.responseText.charAt(2178)+t.responseText.charAt(2179));
	        }
		}
		else
		{
	        var domParser = new DOMParser();
	        xmlDocument = domParser.parseFromString(t.responseText,'application/xml');
	        parseError = checkForParseError(xmlDocument);

	        if (parseError.errorCode == 0) 
	        {
		        mySchema = (new XMLSerializer()).serializeToString(xmlDocument.documentElement.childNodes[0]);
		        mySchemaXml=xmlDocument.documentElement.childNodes[0];
		        Ds.strSchema=mySchema;
		        xml_Schema=mySchemaXml.getElementsByTagName('sequence');
    		    //xml_Schema=mySchemaXml.getElementsByTagName('xs:sequence');
    		    //dataTable=mySchemaXml.getElementsByTagName('choice');
    		    xml_Schema=mySchemaXml.getElementsByTagName('sequence')
		        var elem=xml_Schema[0].childNodes[0];
		        tobj=xmlDocument.documentElement;
		        tobj=cleanempty(tobj);	 
		        dataObj=tobj.childNodes;
		        countTbl=tobj.childNodes.length;							
		        get_Schema(xml_Schema);
		        FillDataSet(tobj);
	        }
       		else 
    	    {
	    	    alert(parseError.reason + '\r\n' + parseError.srcText);
		        //alert(t.responseText.charAt(2176)+t.responseText.charAt(2177)+t.responseText.charAt(2178)+t.responseText.charAt(2179));
	        }
	   	}
	} 

    if (GetAfterExec != null && GetAfterExec != "")
    {
        var GetExec = GetAfterExec; 
        GetAfterExec = "";
        eval(GetExec);
    }
    //alert(t.responseText);
}

//// Rockland Client Data to XML -- DataSet Adapter Builder
function FillDataSet(o)
{
	Ds.Rs=new Array();
	for(i=0;i<DataSet.Tables.length;i++)
	{
		DataSet.Tables[i].Cells=new Array();
		var mydata=new Array();
		var colArr=new Array();
		var typeArr=new Array();
		for(c=0;c<DataSet.Tables[i].Columns.length;c++)
		{
			colArr[c]=DataSet.Tables[i].Columns[c].Name;
			typeArr[c]=DataSet.Tables[i].Columns[c].Type;
		}
		var CC="";
		Ds[DataSet.Tables[i].Name]=function(){};
		Ds.Rs.push(DataSet.Tables[i].Name);
		Ds[DataSet.Tables[i].Name]=new Recordset(colArr,mydata,typeArr);
		if(o.getElementsByTagName(DataSet.Tables[i].Name).length!=0)
		{
			for(r=0;r<o.getElementsByTagName(DataSet.Tables[i].Name).length;r++)
			{	
				Ds[DataSet.Tables[i].Name].AddNew();
				obj=o.getElementsByTagName(DataSet.Tables[i].Name)[r].childNodes;
				for(z=0;z<obj.length;z++)
				{
					if(obj[z].childNodes.length>=1)
					{
					    Ds[DataSet.Tables[i].Name].DsUpdate(obj[z].nodeName, obj[z].firstChild.nodeValue );
					}
				}
			}
		}
	}
	DataSet.fill=1;
	BindData();
}

///// ROCKLAND Save Data to XML//////////////////	
function SaveData()
{
	var els =document.getElementsByTagName("*");
	for (i=0;i<els.length;i++)
	{		
		if(els[i].getAttribute("controlsource"))
		{
		    //alert(els[i].getAttribute("controlsource"));
		   // RocklandBinder.bind(els[i]);
		   if(els[i].getAttribute("controlsource") == "LoadData('')")
		    continue;
			else
		    RocklandBinder.bind(els[i]);
		}
	}

	mystr="";
	mystr="<NewDataSet>\n";
	mystr=mystr+Ds.strSchema;
	for(t=0;t<Ds.Rs.length;t++)
	{
		if(Ds[Ds.Rs[t]].RecordCount>0)
		{
			for(l=0;l<Ds[Ds.Rs[t]].RecordCount;l++)
			{
			mystr=mystr+"<"+Ds.Rs[t]+">\n";
			for(c=0;c<Ds[Ds.Rs[t]].Columns.length;c++)
			{
				if(Ds[Ds.Rs[t]].Data[l][c])
				{
					mystr=mystr+"<"+Ds[Ds.Rs[t]].Columns[c]+">"+Ds[Ds.Rs[t]].Data[l][c]+"</"+Ds[Ds.Rs[t]].Columns[c]+">\n";
				}
			}
			mystr=mystr+"</"+Ds.Rs[t]+">\n";	
		}
	}	 

	if(Ds[Ds.Rs[t]].DataDelete.length>0)
	{	 
		for(l=0;l<Ds[Ds.Rs[t]].DataDelete.length;l++)
		{
			mystr=mystr+"<"+Ds.Rs[t]+">\n";
			for(c=0;c<Ds[Ds.Rs[t]].Columns.length;c++)
			{				
				if(Ds[Ds.Rs[t]].DataDelete[l][c])
				{
					mystr=mystr+"<"+Ds[Ds.Rs[t]].Columns[c]+">"+Ds[Ds.Rs[t]].DataDelete[l][c]+"</"+Ds[Ds.Rs[t]].Columns[c]+">\n";
				}						
			}						
			mystr=mystr+"</"+Ds.Rs[t]+">\n";	
			}					 
		} 	
	}	 	
	mystr=mystr+"</NewDataSet>";
	mystr.replace("undefined","");
	save(mystr);
}
	
///// ROCKLAND Data To UI //////////////////
Ds.binddata_UI = function(ObjectTag)
{
	//if (document[ObjectTag])
	if ($(ObjectTag))
	{
		//colObjs=document[ObjectTag].elements;
		colObjs=$(ObjectTag).elements;
		for (i=0;i<colObjs.length;i++)
		{		
			if( colObjs[i].getAttribute("controlsource"))
			{
				CtrlSource=colObjs[i].getAttribute("controlsource");
				DataType=eval("window."+CtrlSource+".tip");
				//myval=eval("window."+CtrlSource+".Value");
				myval=eval("window."+CtrlSource+".Value");
				if (DataType=="string" && myval)
				{								       
					myval=  myval.trim();
				}
				if (!myval)
				{
					myval = "";
				}
				myval=unescape(myval);
				myarr=CtrlSource.split(".");
				myds=myarr[0]+"."+myarr[1];
				switch(colObjs[i].type) 
				{
					case "radio" : 
						//var chkVal = 0;
						if (myval==colObjs[i].value) 
						{
							colObjs[i].checked = true ;
						}
						else
						{
							colObjs[i].checked = false ;
						}
						//if (myval==1) chkVal = 1 ;
						myeval = "window."+myds+".Update("+CtrlSource+".Name,'"+myval+"')";
						myval = eval(myeval);
						break;
					case "checkbox" : 
						//var chkVal = 0;
						if (myval==1) 
						{
							colObjs[i].checked = true ;
						}
						else
						{
							colObjs[i].checked = false ;
						}
						//if (myval==1) chkVal = 1 ;
						myeval = "window."+myds+".Update("+CtrlSource+".Name,'"+myval+"')";
						myval = eval(myeval);
						break;
					case "textarea" : 
						colObjs[i].value=myval;
						myeval = "window."+myds+".Update("+CtrlSource+".Name,'"+escape(myval)+"')";
						myval = eval(myeval);
						break;
					default :
					    if (colObjs[i].getAttribute("subtype") == "Ref")
					    {
					        //alert(colObjs[i].getAttribute("id"));
					        $(colObjs[i].getAttribute("id") + "Ref").innerHTML = myval
					        //colObjs[i].value="<a>"+myval+"</a>";
					    }
					    else
					    {
					        colObjs[i].value=myval;
					    }
						
						//val = val.replace(/'/g, "\'\'");
						myval = escape(myval);
						myeval = "window."+myds+".Update("+CtrlSource+".Name,'"+myval+"')";
						myval = eval(myeval);
						break;
				}
				//EventUI.init(colObjs[i]);
				RocklandBinder.bind(colObjs[i]);
			}
		}
	}
}


///// ROCKLAND Object DataBinding //////////////////
var RocklandBinder = 
{
	bind : function(o)
	{
		cs=o.getAttribute("controlsource");
		myarr=cs.split(".");
		myds=myarr[0]+"."+myarr[1];
		switch(o.type) 
		{
			case "radio" :  
			    if(o.checked)
                {
    			    val = o.value;
				    myval = eval("window."+myds+".Update("+cs+".Name,'"+escape(val)+"')");
				}
				break;	

			case "checkbox" :  
	            val = o.value;
                if(o.checked)
                {
                    val = 1;
                }
                else
                {
                    val = 0;
                }
				myval = eval("window."+myds+".Update("+cs+".Name,'"+val+"')");
                break;
                
			
			case "textarea" :  
		        if (navigator.appVersion.match(/\bMSIE\b/))
		        {
				    //val = o.innerHTML;
					val = o.value;
				}
				else
				{
					val = o.value;
				}
				myval = eval("window."+myds+".Update("+cs+".Name,'"+escape(val)+"')");
				break;		               

		   default :
				val = o.value;							
				//val = val.replace(/'/g, "\'\'");
				val = escape(val);
				myval = eval("window."+myds+".Update("+cs+".Name,'"+val+"')");
				break;		               
	    }

	}
}
///// ROCKLAND Object UI //////////////////
var EventUI = 
{
    obj : null,
	init : function(o)
	{
	    //o.onblur = EventUI.binder;
	    //o.onkeyup = EventUI.binder;
	    //o.onmouseup = EventUI.binder;
	    //o.onfocusout = EventUI.binder; Marche seulement IE pas firefox
        if (navigator.appVersion.match(/\bMSIE\b/))
        {
	        o.onfocusout = EventUI.binder; 
        }
        else
        {
    	    o.onmouseup = EventUI.binder;
    	    o.onkeydown = EventUI.binder;
        }
	},
	binder : function(e)
	{
		var o = EventUI.obj = this;
		e = EventUI.fixE(e);
		RocklandBinder.bind(o);
//		cs=o.getAttribute("controlsource");
//		myarr=cs.split(".");
//		myds=myarr[0]+"."+myarr[1];
//		switch(o.type) 
//		{
//			case "checkbox" :  
//	            val = o.value;
//                if(o.checked)
//                {
//                    val = 0;
//                }
//                else
//                {
//                    val = 1;
//                }
//				myval = eval("window."+myds+".Update("+cs+".Name,'"+val+"')");
//                break;
//                
//			
//			case "textarea" :  
//		        if (navigator.appVersion.match(/\bMSIE\b/))
//		        {
//				    //val = o.innerHTML;
//					val = o.value;
//				}
//				else
//				{
//					val = o.value;
//				}
//				myval = eval("window."+myds+".Update("+cs+".Name,'"+escape(val)+"')");
//				break;		               

//		   default :
//				val = o.value;							
//				myval = eval("window."+myds+".Update("+cs+".Name,'"+val+"')");
//				break;		               
//	    }
	},
	end : function(e)
	{
		EventUI.obj=null;
	},
	fixE : function(e)
	{
		if (typeof e == 'undefined') 
		{
		    e = window.EventUIent;
		}
		return e;
    }
}
		              
//// ROCKLAND UTILS ///////////////////
function get_Schema(o)
{
	o=cleanempty(o);
	for (i=0;i<o.length;i++)
	{
		DataSet.Tables[i]=function(){};
		DataSet.Tables[i].Name=	o[i].parentNode.parentNode.getAttribute("name");	
		DataSet.Tables[i].Columns=new Array();
		c=0;
		for (j=0;j<(o[i].childNodes.length);j++)
		{
			if(o[i].childNodes[j].getAttribute("name"))
			{		
				DataSet.Tables[i].Columns[c]	=function(){};
				DataSet.Tables[i].Columns[c].Name=o[i].childNodes[j].getAttribute("name");
				DataSet.Tables[i].Columns[c].Type=o[i].childNodes[j].getAttribute("type").replace("xs:","");
			c++;
			}
		}
	}
}
function cleanempty(el)
{
	for(j=0;j<el.length;j++)
	{
		for(i=0;i<el[j].childNodes.length;i++)
		{
			if (el[j].childNodes[i].nodeType == 3 )
			{		
				el[j].removeChild(el[j].childNodes[i]);
			}
		}
	}		
	return el;
}

function checkForParseError (xmlDocument) 
{
	var errorNamespace ='http://www.mozilla.org/newlayout/xml/parsererror.xml';
	var documentElement = xmlDocument.documentElement;
	var parseError = { errorCode : 0 };
	if (documentElement.nodeName == 'parsererror' && documentElement.namespaceURI == errorNamespace) 
	{
		parseError.errorCode = 1;
		var sourceText = documentElement.getElementsByTagNameNS(errorNamespace, 'sourcetext')[0];
		if (sourceText != null) 
		{
			parseError.srcText = sourceText.firstChild.data;
		}
		parseError.reason = documentElement.firstChild.data;
	}
	return parseError;
}

function padNum(number, numDigits) 
{
    var str = number.toString();
    while (str.length < numDigits) str = '0' + str;
    return(str);
}