//codigo incrustado control_data.asp
/**************************************
*
*
*
***************************************/
function listObject(pname,pfields,pdata){
  this.name=pname;
  this.editmode=false;
  this.fieldsSource=pfields;
  this.blankfields = new Array()
  try{  
	var adoRs = new ActiveXObject("adodb.recordset");
  }catch (e){alert(e.description)}
  
  var objectAsosiates=new Array();
  this.init=function(){for (var i in pfields){this.blankfields[i]="";adoRs.Fields.append (pfields[i],200,8000);}adoRs.CursorLocation=3;adoRs.CursorType=3;adoRs.LockType=4;adoRs.open();for (var i in pdata ){adoRs.AddNew(pfields,pdata[i]);}adoRs.MoveFirst()};
  this.edit=function(){this.editmode=!this.editmode;this.updateAsociates2()}  
  this.isedit=function(){return this.editmode}  
  this.close=function(){adoRs.close()};
  this.movenext=function(){adoRs.MoveNext();this.updateAsociates2()};
  this.movefirst=function(){adoRs.MoveFirst();this.updateAsociates2()};
  this.movelast=function(){adoRs.MoveLast();this.updateAsociates2()}
  this.movepreview=function(){adoRs.MovePreview();this.updateAsociates2()};
  this.sort=function(pcriterial){adoRs.sort=(pcriterial);this.updateAsociates()};
  this.filter=function(pcriterial){adoRs.filter=(pcriterial);this.movefirst();this.updateAsociates()};
  this.fields=function(){return adoRs.fields};
  this.fieldscount=function(){return adoRs.fields.count};
  this.field=function(pfield){return adoRs.fields(pfield)};  
  this.insertrow=function(pdata){adoRs.addNew (this.fieldsSource,pdata);this.updateAsociates()};
  this.addrow=function(pdata){adoRs.MoveLast();adoRs.addNew (this.fieldsSource,this.blankfields);adoRs.MoveLast();this.edit();};
  this.count=function(){return (adoRs.RecordCount)};
  this.eof=function(){return adoRs.EOF};  
  this.addAsociates=function (pobject){objectAsosiates[objectAsosiates.length] = pobject};  
  this.updateAsociates=function(){for (var i in objectAsosiates){if(objectAsosiates[i].classname=="grid")objectAsosiates[i].paint()/*; else objectAsosiates[i].selectrow();*/}};
  this.updateAsociates2=function(){  
	for (var i in objectAsosiates){
		try{
			if(objectAsosiates[i].classname!="grid")objectAsosiates[i].paint() /*; else objectAsosiates[i].selectrow();*/
		}catch(e){}
	}
  };
  this.updateAsociates3=function(){  
	for (var i in objectAsosiates){
		try{
			objectAsosiates[i].paint()
		}catch(e){}
	}
  };
  this.updaterow=function(){  	  
  	try{  		
		for (var i =1;i< this.fieldscount();i++)
		{			
			for (var n in objectAsosiates){			
					if(objectAsosiates[n].name==this.fields()(i).name)
					{						
						this.fields()(i).value=objectAsosiates[n].getvalue()
					}
			}
		}
		this.updateAsociates3()		
	}catch(e){alert (e.description)}
	this.edit();			
  };  
  
  this.showAsociates=function(){var stri="";for (var i in objectAsosiates){stri+=objectAsosiates[i].objectname+"\r\n"}alert (stri);};
  this.setposition=function(ppostion){if (this.isedit())return;adoRs.AbsolutePosition=ppostion;this.updateAsociates2()};
  this.getrow=function(){return adoRs.AbsolutePosition};
  this.deleterow=function(){try{adoRs.Delete()}catch(e){alert (e.description)};this.movefirst();this.updateAsociates()}
  this.cancel=function() {this.deleterow()}
  this.init();
}

//codigo incrustado control_grid.asp
/**************************************
*
*
*
***************************************/
function addpro(provalue,proname){return ((provalue)?proname+"='"+provalue+"'":"")};
function addprocss(provalue,proname){return ((provalue)?proname+":"+provalue:"")};
function gridControl (parg)
{
	this.container=parg.container
	var customValue
	this.ds=parg.datasource;
	this.classname="grid"
	this.evalheader="";
	this.evalrowdata="";
	this.widthLength="";
	this.lastselectrow=null;
	this.columnclick=null
	this.name=parg.name
	this.objectclick=null
	
	this.setclickedcolumn=function(pobj,pcolumn)
	{
		this.columnclick =pcolumn
		this.objectclick=pobj
	}
	
	this.getclickedcolumn=function()
	{
		return this.columnclick+0+1
	}
	this.getclickedobject=function()
	{
		return this.objectclick
	}
	
	this.header=function (){
		return this.evalheader	
	};
	
	
	this.setposition=function(pobj,pposition){
		if (this.ds.isedit())return;
		if (this.lastselectrow)this.lastselectrow.className="";		
		pobj.className="selectrow";
		this.lastselectrow=pobj;
		parg.datasource.setposition(pposition);
		if (this.click) this.click();
	}
	this.selectrow = function (){
	/*
		if (this.ds.isedit())return;
		if (this.lastselectrow)this.lastselectrow.className="";		
		pobj.className="selectrow";
		this.lastselectrow=pobj;
	*/					
	}
	this.rowdata=null;
	this.dbclick=null;	
	this.click=null;
	this.custom1=null
	this.custom2=null
	this.custom3=null
	this.custom4=null
	this.custom5=null
	this.custom6=null
	this.custom7=null
	this.custom8=null
	this.custom9=null
	this.custom10=null
	
	if (parg.click) this.click=parg.click;
	if (parg.dbclick) this.dbclick=parg.dbclick;
	if (parg.custom1) this.custom1=parg.custom1;
	if (parg.custom2) this.custom2=parg.custom2;
	if (parg.custom3) this.custom3=parg.custom3;
	if (parg.custom4) this.custom4=parg.custom4;
	if (parg.custom5) this.custom5=parg.custom5;
	if (parg.custom6) this.custom6=parg.custom6;
	if (parg.custom7) this.custom7=parg.custom7;
	if (parg.custom8) this.custom8=parg.custom8;
	if (parg.custom9) this.custom9=parg.custom9;
	if (parg.custom10) this.custom10=parg.custom10;
		
	var fieldList=parg.fields,stroption="",strrow="",widthLength=0;
	for (var i in fieldList){
		this.evalheader+="<th class='headertable' style='border-right: 1px solid #C0C0C0;border-bottom: 1px solid #C0C0C0;' ><div onclick='this.blur(); return "+parg.name+".setsort(this,\""+fieldList[i].name+"\");' style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"px'>"+fieldList[i].title+"</div></th>";	
	if (fieldList[i].custom)
	{
		customValue=parg.name+"."+fieldList[i].custom+"()"
		strrow+="<td value=\"+pfield(\""+fieldList[i].name+"\")+\" "+addpro(fieldList[i].onclick,"onclick")+" style='border-right: 1px solid #C0C0C0;' "+addpro(fieldList[i].align,"align")+"><div onclick='"+this.name+".setclickedcolumn(this,"+(i)+")'   style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"'>\"+"+customValue+"+\"</div></td>"		   		
	}	
	else
	{
	if (!fieldList[i].list)	
	{
		   strrow+="<td value=\"+pfield(\""+fieldList[i].name+"\")+\" "+addpro(fieldList[i].onclick,"onclick")+" style='border-right: 1px solid #C0C0C0;' "+addpro(fieldList[i].align,"align")+"><div onclick='"+this.name+".setclickedcolumn(this,"+(i)+")'  style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"'>\"+pfield(\""+fieldList[i].name+"\")+\"</div></td>"   		   
	}	   
	else{
			var rsobjectlist = fieldList[i].list.dataobject
			var vcode = fieldList[i].list.code
			var vview = fieldList[i].list.view
			rsobjectlist.movefirst()
			stroption=""
			while (!rsobjectlist.eof())
			{
				 stroption+="(pfield(\""+fieldList[i].name+"\")=='"+rsobjectlist.field(vcode)+"')?\""+rsobjectlist.field(vview)+"\":"				
				 rsobjectlist.movenext()
			}			
			strrow+="<td value=\"+pfield(\""+fieldList[i].name+"\")+\" "+addpro(fieldList[i].onclick,"onclick")+" style='border-right: 1px solid #C0C0C0;'"+addpro(fieldList[i].align,"align")+"><div onclick='"+this.name+".setclickedcolumn("+(i)+")'   style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"'>\"+("+stroption+"\"\")+\"</div></td>"				
	}
	}	
	widthLength+=parseInt(fieldList[i].width)
	}	

	this.evalheader+="<th  class='headertable' style='border-right: 1px solid #C0C0C0;border-bottom: 1px solid #C0C0C0;' ><div onclick='this.blur(); return ;' style='overflow:hidden;margin:3px;width:30px'>&nbsp</div></th>";	
	var rowdatawidth=(widthLength+(6*fieldList.length)+fieldList.length)+16		
	
	this.evalrowdata=strrow	
	
	this.paint=function (){
		
		var strHtml="<table class='tablegrid' cellpadding=0px cellspacing=0px>";		
		parg.datasource.movefirst();	
		while (!parg.datasource.eof())
		{
			strHtml+="<tr "+((this.dbclick)?"ondblclick=\""+parg.name+".dbclick();return 1\"":"")+" onclick=\"javascript:"+parg.name+".setposition(this,"+parg.datasource.getrow()+")\">"+this.rowdata(parg.datasource.fields())+"</tr>";			
			parg.datasource.movenext();
		}
		
		strHtml+="</table>"	
		document.all.item("div_"+parg.name).innerHTML =strHtml	
		parg.datasource.movefirst();
	}
	this.setsort=function(pobj,pname){
		if (!pobj.getAttribute("lastcolumnsort")){
			pobj.setAttribute("lastcolumnsort","1")
		}else{
			pobj.setAttribute("lastcolumnsort",!pobj.getAttribute("lastcolumnsort"))
		}
		parg.datasource.sort(pname +(!pobj.getAttribute("lastcolumnsort")?" DESC":"") )
	}
	this.init=function (){
		var vdata="<"+"script"+">"+parg.name+".rowdata=function (pfield){return (\""+this.evalrowdata+"\")};</"+"script"+">";
		vdata+="<div style=\"border:1px solid #c0c0c0;overflow:hidden;width:"+(rowdatawidth+2)+"px;height:"+(parg.height+6)+"px\">";
		vdata+= "<table  class='tablegrid' cellpadding=0px cellspacing=0px>";
		vdata+= this.header();
		vdata+="</table>";
		vdata+="<div id=div_"+parg.name+" style=\"overflow:scroll;width:"+rowdatawidth+"px;height:"+parg.height+"px\">";		
		vdata+="</div></div>";		
		document.write (vdata);
		parg.datasource.addAsociates(this);
	}
	this.gotourl =function (params){
		var squery = "?"+params
		var qstring = squery	
		if (qstring.search("_portletid_")==-1 && qstring.search("_portletid_")==-1)qstring+="&_portletid_="+this.container._portletid_.value 
		if (qstring.search("_page_")==-1 && qstring.search("_page_")==-1)qstring+="&_page_="+this.container._page_.value	
		window.location.href=qstring
	}
}

//codigo incrustado control_field.asp
/**************************************
*
*
*
***************************************/
function nvoInput(odata,parg){
  this.classname="input";
  this.datasource =odata.datasource  
  this.name=parg.name; 
  this.validmessage=parg.validmessage
  this.required=parg.required
  this.label=parg.label
  this.container=odata.container
  this.styletype=parg.styletype  
  
  this.value=function (){
	return this.element.value  
  }  
  this.getvalue=function (){
	return this.element.value
  } 
  this.paint=function (){  
  	this.element.value=this.datasource.field(this.objectname);
  	this.value=this.element.value
	if (this.datasource.isedit()==false)  	
	{		
		this.element.setAttribute("disabled","disabled",false)
			
	}else
	{
		this.element.removeAttribute("disabled")
		
	}
  } 
  this.objectname=parg.name; 
  if (odata.datasource) {
	this.datasource.addAsociates(this); 
  }
  
  				    str =""	
  				    if (parg.styletype=="edit"){
  						str +="<input type=text"  						
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            

     	     			str +=(parg.name)?" name="+parg.name:""   
     	     			str +=(parg.size)?" size="+parg.size:""     	     		
     	     			str +=" onblur=\""
     	     			str +=(parg.casetype=="upper")?"this.value=this.value.toUpperCase();":""  	     		
     	     			str +=(parg.casetype=="lower")?"this.value=this.value.toLowerCase();":""     	     		
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||this.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""     	     		
     	     			str +="\""     	     		  	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""
     	     			str +=(parg.displayonly)?" readonly":""
     	     			str +=(parg.displayonly && odata.displayonlybackgroundcolor)?" style=\"background-color:"+odata.displayonlybackgroundcolor+"\"":""
	   	     			str +=(parg.required)?" required":""
     	     			str +=(parg.initialvalue)?" value=\""+parg.initialvalue+"\"":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""  	     		
						str +=">"						
					}

  				    if (parg.styletype=="numericint"){
  						str +="<input type=text"
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
  						
     	     			str +=(parg.name)?" name="+parg.name:""   
     	     			str +=(parg.size)?" size="+parg.size:""     	     		
     	     			str +=" onblur=\""
     	     			str +=(parg.casetype=="upper")?"this.value=this.value.toUpperCase();":""  	     		
     	     			str +=(parg.casetype=="lower")?"this.value=this.value.toLowerCase();":""     	     		
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||this.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""     	     		
     	     			str +="\""     	     		  	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""
     	     			str +=" onkeydown=\"javascript:switch(event.keyCode){case 8: case 9: case 48: case 49: case 50: case 51: case 52: case 53: case 54: case 55: case 56: case 57: case 96: case 97: case 98: case 99: case 100: case 101: case 102: case 103: case 104: case 105:  {return;};default:event.returnValue = false;break;}\""
     	     			str +=(parg.displayonly)?" readonly":""
     	     			str +=(parg.displayonly && odata.displayonlybackgroundcolor)?" style=\"background-color:"+odata.displayonlybackgroundcolor+"\"":""
	   	     			str +=(parg.required)?" required":""
     	     			str +=(parg.initialvalue)?" value=\""+parg.initialvalue+"\"":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""  	     		
						str +=">"						
					}		
					
					if (parg.styletype=="file"){
  						str +="<input type=file"
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
  						
     	     			str +=(parg.name)?" name="+parg.name:""   
     	     			str +=(parg.size)?" size="+parg.size:""     	     		
     	     			//str +=" onblur=\""
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||this.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""     	     		
     	     			//str +="\""     	     		  	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""     	     			     	     			
	   	     			str +=(parg.required)?" required":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""  	     		
						str +=">"	
					}						
					if(parg.styletype=="date")	{
     	     			str +="<input type=text"
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.name)?" name="+parg.name:""     	     			
     	     			str +=" readonly"
     	     			str +=" size=12"
     	     			str +=" style=\"background-color:"+odata.displayonlybackgroundcolor+"\""
	   	     			str +=(parg.required)?" required":""
     	     			//str +=(parg.initialvalue)?" value=\""+parg.initialvalue+"\"":""
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">&nbsp;<img src=\"http://www.x-client.com/v/6.5/isomorphic/skins/TreeFrog/images/controls/date_control.gif\" onclick=\"calendario ("+parg.name+")\">"     	     		     	     			     	     			
     	     		}	
     	     		if(parg.styletype=="text")
     	     		{
     	     			str +="<textarea "
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.name)?" name="+parg.name:""
     	     			str +=(parg.cols)?" cols="+parg.cols:"30"
     	     			str +=(parg.rows)?" rows="+parg.rows:"1"
     	     			str +=(parg.limit)?" onkeyup=\"if(this.value.length>"+parg.limit+"){this.value=this.value.substring(0,"+parg.limit+" )}\"":""
     	     			str +=(parg.casetype=="upper")?" onblur=\"this.value=this.value.toUpperCase();":""     	     		
     	     			str +=(parg.casetype=="lower")?" onblur=\"this.value=this.value.toLowerCase();":""
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||parg.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""
     	     			str +=(parg.casetype)?"\"":""     	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""
     	     			str +=(parg.displayonly)?" readonly":""
     	     			str +=(parg.displayonly && odata.displayonlybackgroundcolor)?" style=\"background-color:"+odata.displayonlybackgroundcolor+"\"":""
	   	     			//str +=(parg.required)?" required":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">"
     	     			//str +=(parg.initialvalue)?parg.initialvalue:""
     	     			str +="</textarea>"
     	     		}         	     					
     	     	   if(parg.styletype=="dropdownds"){
     	     			str +="<select name="+parg.name+" "
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.size)?" size="+parg.size:"1"     	     		
     	     			//str +=(parg.required)?" onblur=\"if(!this.value){alert('"+parg.validmessage+"');this.focus()}\"":"" 
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">"     	     		
    	     			for (var il=0;il<parg.list.length;il++){
			     			str +="<option value=\""+parg.list[il][0]+"\"" 
			     			if (item.initialvalue==parg.list[il][0]) 
			     			{
			     				str+=" SELECTED "
			     			}
			     			str +=">" + parg.list[il][1]+"</option>"			     		
			     		}
     	     			str +="</select>"  
     	     		}	
     	     		
					if(parg.styletype=="button"){
     	     			str +="<input type=button"
     	     			str +=(parg.name)?" name="+parg.name:""     	     			
     	     			str +=(parg.value)?" value=\""+parg.value+"\"":""
     	     			//str +=(parg.onclick)?" onclick=\""+parg.onclick+"\"":""
     	     			str +=">"
     	     		}     	     		
					if(parg.styletype=="dropdown"){
     	     			str +="<select name="+parg.name+" "
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.size)?" size="+parg.size:" size=1 "     	     		
     	     			///str +=(parg.required)?" onblur=\"if(!this.value){alert('"+parg.validmessage+"');this.focus()}\"":"" 
     	     			///str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">"  
     	     			var objds = parg.list.dataobject     	     			     	     			  	     		     	     			
     	     			objds.movefirst();
						while (!objds.eof())
						{							
							str +="<option value=\""+objds.field(parg.list.code)+"\"" 
			     			if (parg.initialvalue==objds.field(parg.list.code)) 
			     			{
			     				str+=" SELECTED "
			     			}
			     			str +=">" + objds.field(parg.list.view)+"</option>"								
							objds.movenext();
						}												
     	     			str +="</select>"  
     	     		}	
					if(parg.styletype=="multicheck"){
     	     			str +="<table cellpadding=3 cellspacing=0 border=0>"  	     			     	     			
     	     			var objds = parg.list.dataobject    
     	     			var objdschk = parg.list.dataobjectcheck
     	     			var strchk="" 	     			
     	     			objds.movefirst();     	     			
						while (!objds.eof())
						{							
							var rodd = ((objds.getrow())%(parg.list.columnsAcross ))-1							
							if (parg.list.columnsAcross==1 ) rodd=0
							if (rodd==0  )
     						{     						
	     						str +="<tr "+(((((objds.getrow())%2)))?"style=\"background-color:"+odata.oddbackgroundcolor+"\"":"")+">"	     						
     						}	
     						str +="<td align=left valign=top><input onclick=updatefield(this,"+odata.container+"."+parg.name+") type=checkbox name="+parg.name+"_chk"+objds.getrow()+" "     						
     						objdschk.movefirst();  
     						while (!objdschk.eof()){     							
     							if (objds.field(parg.list.code)+""==objdschk.field(parg.list.code)+"") {
     								str+=" CHECKED ";
     								strchk+=objds.field(parg.list.code)+","
     								break;
     							}
     							objdschk.movenext();
     						}     							     						
     						str+="value="+objds.field(parg.list.code)+"></td><td>"+objds.field(parg.list.view)+"</td>"
							objds.movenext();
						}												
     	     			str +="</table><input type=hidden name="+parg.name+" value=\""+strchk+"\">"      	     			
     	     		}	     	     		     	     		     	     		      	
  document.write (str)  
  this.element=odata.container.item (this.objectname)  
  if (parg.onclick)	this.element.attachEvent("onclick",parg.onclick)		
  if (parg.onkeyup)	this.element.attachEvent("onkeyup",parg.onkeyup)  
}
/**************************************
*
*
*
***************************************/
function nvoInputCompute(parg){
  this.classname="input";
  this.paint=function (){
  	this.element.innerHTML=eval(parg.evaluate);
  } 
  this.objectname=parg.name;
  if (parg.datasource) 
  {
  	parg.datasource.addAsociates(this);
  	document.write ("<span  id="+parg.name+" ></span>")
  }else{
  	document.write ("<span  id="+parg.name+" ></span>")
  }
  this.element=document.all.item(this.objectname);
  if (parg.onclick)	{     	     		
		this.element.attachEvent("onclick",parg.onclick)
  }
}


//codigo incrustado controlex_form.asp

function enviar(obj)
{
	validForm(obj)
}

function validFields(obj)
{
var ss="";

for (var i=0;i<obj.length;i++)
{

	var item = obj[i].container.item(obj[i].name)
	if (item.tagName=="INPUT" ||item.tagName=="SELECT")
	{				
		if (item.getAttribute("REQUIRED")!=null && item.value=="")
		{			
			ss+="Debe "+((item.tagName=="INPUT")?"registrar un valor en el":"seleccionar un valor del")+" item\""+item.getAttribute("LABEL")+"\"\r\n"
		}
	}
}
if (ss!="") alert (ss)
return (ss)
}
/**************************************
*
*
*
***************************************/
function showobjectdwlist(obj,objgrid){
  objgrid.style.display= (objgrid.style.display=="")?"none":""
}
/**************************************
*
*
*
***************************************/
function listObject(pname,pfields,pdata){
  this.name=pname;
  this.editmode=false;
  this.fieldsSource=pfields;
  this.blankfields = new Array()
  try{  
	var adoRs = new ActiveXObject("adodb.recordset");
  }catch (e){alert(e.description)}
  
  var objectAsosiates=new Array();
  this.init=function(){for (var i in pfields){this.blankfields[i]="";adoRs.Fields.append (pfields[i],200,8000);}adoRs.CursorLocation=3;adoRs.CursorType=3;adoRs.LockType=4;adoRs.open();for (var i in pdata ){adoRs.AddNew(pfields,pdata[i]);}adoRs.MoveFirst()};
  this.edit=function(){this.editmode=!this.editmode;this.updateAsociates2()}  
  this.isedit=function(){return this.editmode}  
  this.close=function(){adoRs.close()};
  this.movenext=function(){adoRs.MoveNext();this.updateAsociates2()};
  this.movefirst=function(){adoRs.MoveFirst();this.updateAsociates2()};
  this.movelast=function(){adoRs.MoveLast();this.updateAsociates2()}
  this.movepreview=function(){adoRs.MovePreview();this.updateAsociates2()};
  this.sort=function(pcriterial){adoRs.sort=(pcriterial);this.updateAsociates()};
  this.filter=function(pcriterial){adoRs.filter=(pcriterial);this.movefirst();this.updateAsociates()};
  this.fields=function(){return adoRs.fields};
  this.fieldscount=function(){return adoRs.fields.count};
  this.field=function(pfield){return adoRs.fields(pfield)};  
  this.insertrow=function(pdata){adoRs.addNew (this.fieldsSource,pdata);this.updateAsociates()};
  this.addrow=function(pdata){adoRs.MoveLast();adoRs.addNew (this.fieldsSource,this.blankfields);adoRs.MoveLast();this.edit();};
  this.count=function(){return (adoRs.RecordCount)};
  this.eof=function(){return adoRs.EOF};  
  this.addAsociates=function (pobject){objectAsosiates[objectAsosiates.length] = pobject};  
  this.updateAsociates=function(){for (var i in objectAsosiates){if(objectAsosiates[i].classname=="grid")objectAsosiates[i].paint()/*; else objectAsosiates[i].selectrow();*/}};
  this.updateAsociates2=function(){  
	for (var i in objectAsosiates){
		try{
			if(objectAsosiates[i].classname!="grid")objectAsosiates[i].paint() /*; else objectAsosiates[i].selectrow();*/
		}catch(e){}
	}
  };
  this.updateAsociates3=function(){  
	for (var i in objectAsosiates){
		try{
			objectAsosiates[i].paint()
		}catch(e){}
	}
  };
  this.updaterow=function(){  	  
  	try{  		
		for (var i =1;i< this.fieldscount();i++)
		{			
			for (var n in objectAsosiates){			
					if(objectAsosiates[n].name==this.fields()(i).name)
					{						
						this.fields()(i).value=objectAsosiates[n].getvalue()
					}
			}
		}
		this.updateAsociates3()		
	}catch(e){alert (e.description)}
	this.edit();			
  };  
  
  this.showAsociates=function(){var stri="";for (var i in objectAsosiates){stri+=objectAsosiates[i].objectname+"\r\n"}alert (stri);};
  this.setposition=function(ppostion){if (this.isedit())return;adoRs.AbsolutePosition=ppostion;this.updateAsociates2()};
  this.getrow=function(){return adoRs.AbsolutePosition};
  this.deleterow=function(){try{adoRs.Delete()}catch(e){alert (e.description)};this.movefirst();this.updateAsociates()}
  this.cancel=function() {this.deleterow()}
  this.init();
}
/**************************************
*
*
*
***************************************/
function addpro(provalue,proname){return ((provalue)?proname+"='"+provalue+"'":"")};
function addprocss(provalue,proname){return ((provalue)?proname+":"+provalue:"")};
function gridControl (parg)
{
	this.container=parg.container
	var customValue
	this.ds=parg.datasource;
	this.classname="grid"
	this.evalheader="";
	this.evalrowdata="";
	this.widthLength="";
	this.lastselectrow=null;
	this.columnclick=null
	this.name=parg.name
	this.objectclick=null
	
	this.setclickedcolumn=function(pobj,pcolumn)
	{
		this.columnclick =pcolumn
		this.objectclick=pobj
	}
	
	this.getclickedcolumn=function()
	{
		return this.columnclick+0+1
	}
	this.getclickedobject=function()
	{
		return this.objectclick
	}
	
	this.header=function (){
		return this.evalheader	
	};
	
	
	this.setposition=function(pobj,pposition){
		if (this.ds.isedit())return;
		if (this.lastselectrow)this.lastselectrow.className="";		
		pobj.className="selectrow";
		this.lastselectrow=pobj;
		parg.datasource.setposition(pposition);
		if (this.click) this.click();
	}
	this.selectrow = function (){
	/*
		if (this.ds.isedit())return;
		if (this.lastselectrow)this.lastselectrow.className="";		
		pobj.className="selectrow";
		this.lastselectrow=pobj;
	*/					
	}
	this.rowdata=null;
	this.dbclick=null;	
	this.click=null;
	this.custom1=null
	this.custom2=null
	this.custom3=null
	this.custom4=null
	this.custom5=null
	this.custom6=null
	this.custom7=null
	this.custom8=null
	this.custom9=null
	this.custom10=null
	
	if (parg.click) this.click=parg.click;
	if (parg.dbclick) this.dbclick=parg.dbclick;
	if (parg.custom1) this.custom1=parg.custom1;
	if (parg.custom2) this.custom2=parg.custom2;
	if (parg.custom3) this.custom3=parg.custom3;
	if (parg.custom4) this.custom4=parg.custom4;
	if (parg.custom5) this.custom5=parg.custom5;
	if (parg.custom6) this.custom6=parg.custom6;
	if (parg.custom7) this.custom7=parg.custom7;
	if (parg.custom8) this.custom8=parg.custom8;
	if (parg.custom9) this.custom9=parg.custom9;
	if (parg.custom10) this.custom10=parg.custom10;
		
	var fieldList=parg.fields,stroption="",strrow="",widthLength=0;
	for (var i in fieldList){
		this.evalheader+="<th class='headertable' style='border-right: 1px solid #C0C0C0;border-bottom: 1px solid #C0C0C0;' ><div onclick='this.blur(); return "+parg.name+".setsort(this,\""+fieldList[i].name+"\");' style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"px'>"+fieldList[i].title+"</div></th>";	
	if (fieldList[i].custom)
	{
		customValue=parg.name+"."+fieldList[i].custom+"()"
		strrow+="<td value=\"+pfield(\""+fieldList[i].name+"\")+\" "+addpro(fieldList[i].onclick,"onclick")+" style='border-right: 1px solid #C0C0C0;' "+addpro(fieldList[i].align,"align")+"><div onclick='"+this.name+".setclickedcolumn(this,"+(i)+")'   style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"'>\"+"+customValue+"+\"</div></td>"		   		
	}	
	else
	{
	if (!fieldList[i].list)	
	{
		   strrow+="<td value=\"+pfield(\""+fieldList[i].name+"\")+\" "+addpro(fieldList[i].onclick,"onclick")+" style='border-right: 1px solid #C0C0C0;' "+addpro(fieldList[i].align,"align")+"><div onclick='"+this.name+".setclickedcolumn(this,"+(i)+")'  style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"'>\"+pfield(\""+fieldList[i].name+"\")+\"</div></td>"   		   
	}	   
	else{
			var rsobjectlist = fieldList[i].list.dataobject
			var vcode = fieldList[i].list.code
			var vview = fieldList[i].list.view
			rsobjectlist.movefirst()
			stroption=""
			while (!rsobjectlist.eof())
			{
				 stroption+="(pfield(\""+fieldList[i].name+"\")=='"+rsobjectlist.field(vcode)+"')?\""+rsobjectlist.field(vview)+"\":"				
				 rsobjectlist.movenext()
			}			
			strrow+="<td value=\"+pfield(\""+fieldList[i].name+"\")+\" "+addpro(fieldList[i].onclick,"onclick")+" style='border-right: 1px solid #C0C0C0;'"+addpro(fieldList[i].align,"align")+"><div onclick='"+this.name+".setclickedcolumn("+(i)+")'   style='overflow:hidden;margin:3px;"+addprocss(fieldList[i].width,"width")+"'>\"+("+stroption+"\"\")+\"</div></td>"				
	}
	}	
	widthLength+=parseInt(fieldList[i].width)
	}	

	this.evalheader+="<th  class='headertable' style='border-right: 1px solid #C0C0C0;border-bottom: 1px solid #C0C0C0;' ><div onclick='this.blur(); return ;' style='overflow:hidden;margin:3px;width:30px'>&nbsp</div></th>";	
	var rowdatawidth=(widthLength+(6*fieldList.length)+fieldList.length)+16		
	
	this.evalrowdata=strrow	
	
	this.paint=function (){
		
		var strHtml="<table class='tablegrid' cellpadding=0px cellspacing=0px>";		
		parg.datasource.movefirst();	
		while (!parg.datasource.eof())
		{
			strHtml+="<tr "+((this.dbclick)?"ondblclick=\""+parg.name+".dbclick();return 1\"":"")+" onclick=\"javascript:"+parg.name+".setposition(this,"+parg.datasource.getrow()+")\">"+this.rowdata(parg.datasource.fields())+"</tr>";			
			parg.datasource.movenext();
		}
		
		strHtml+="</table>"	
		document.all.item("div_"+parg.name).innerHTML =strHtml	
		parg.datasource.movefirst();
	}
	this.setsort=function(pobj,pname){
		if (!pobj.getAttribute("lastcolumnsort")){
			pobj.setAttribute("lastcolumnsort","1")
		}else{
			pobj.setAttribute("lastcolumnsort",!pobj.getAttribute("lastcolumnsort"))
		}
		parg.datasource.sort(pname +(!pobj.getAttribute("lastcolumnsort")?" DESC":"") )
	}
	this.init=function (){
		var vdata="<"+"script"+">"+parg.name+".rowdata=function (pfield){return (\""+this.evalrowdata+"\")};</"+"script"+">";
		vdata+="<div style=\"border:1px solid #c0c0c0;overflow:hidden;width:"+(rowdatawidth+2)+"px;height:"+(parg.height+6)+"px\">";
		vdata+= "<table  class='tablegrid' cellpadding=0px cellspacing=0px>";
		vdata+= this.header();
		vdata+="</table>";
		vdata+="<div id=div_"+parg.name+" style=\"overflow:scroll;width:"+rowdatawidth+"px;height:"+parg.height+"px\">";		
		vdata+="</div></div>";		
		document.write (vdata);
		parg.datasource.addAsociates(this);
	}
	this.gotourl =function (params){
		var squery = "?"+params
		var qstring = squery	
		if (qstring.search("_portletid_")==-1 && qstring.search("_portletid_")==-1)qstring+="&_portletid_="+this.container._portletid_.value 
		if (qstring.search("_page_")==-1 && qstring.search("_page_")==-1)qstring+="&_page_="+this.container._page_.value	
		window.location.href=qstring
	}
}

/**************************************
*
*
*
***************************************/
function updatefield(objsource,objtarget){
if (objsource.checked)
{
 objtarget.value+=objsource.value+","
 return
}
objtarget.value=objtarget.value.replace(objsource.value+",","")

}
/**************************************
*
*
*
***************************************/
/**************************************
*
*
*
***************************************/
function nvoInput(odata,parg){
  this.classname="input";
  this.datasource =odata.datasource  
  this.name=parg.name; 
  this.validmessage=parg.validmessage
  this.required=parg.required
  this.label=parg.label
  this.container=odata.container
  this.styletype=parg.styletype  
  
  this.value=function (){
	return this.element.value  
  }  
  this.getvalue=function (){
	return this.element.value
  } 
  this.paint=function (){  
  	this.element.value=this.datasource.field(this.objectname);
  	this.value=this.element.value
	if (this.datasource.isedit()==false)  	
	{		
		this.element.setAttribute("disabled","disabled",false)
			
	}else
	{
		this.element.removeAttribute("disabled")
		
	}
  } 
  this.objectname=parg.name; 
  if (odata.datasource) {
	this.datasource.addAsociates(this); 
  }
  
  				    str =""	
  				    if (parg.styletype=="edit"){
  						str +="<input type=text"  						
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            

     	     			str +=(parg.name)?" name="+parg.name:""   
     	     			str +=(parg.size)?" size="+parg.size:""     	     		
     	     			str +=" onblur=\""
     	     			str +=(parg.casetype=="upper")?"this.value=this.value.toUpperCase();":""  	     		
     	     			str +=(parg.casetype=="lower")?"this.value=this.value.toLowerCase();":""     	     		
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||this.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""     	     		
     	     			str +="\""     	     		  	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""
     	     			str +=(parg.displayonly)?" readonly":""
     	     			str +=(parg.displayonly && odata.displayonlybackgroundcolor)?" style=\"background-color:"+odata.displayonlybackgroundcolor+"\"":""
	   	     			str +=(parg.required)?" required":""
     	     			str +=(parg.initialvalue)?" value=\""+parg.initialvalue+"\"":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""  	     		
						str +=">"						
					}

  				    if (parg.styletype=="numericint"){
  						str +="<input type=text"
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
  						
     	     			str +=(parg.name)?" name="+parg.name:""   
     	     			str +=(parg.size)?" size="+parg.size:""     	     		
     	     			str +=" onblur=\""
     	     			str +=(parg.casetype=="upper")?"this.value=this.value.toUpperCase();":""  	     		
     	     			str +=(parg.casetype=="lower")?"this.value=this.value.toLowerCase();":""     	     		
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||this.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""     	     		
     	     			str +="\""     	     		  	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""
     	     			str +=" onkeydown=\"javascript:switch(event.keyCode){case 8: case 9: case 48: case 49: case 50: case 51: case 52: case 53: case 54: case 55: case 56: case 57: case 96: case 97: case 98: case 99: case 100: case 101: case 102: case 103: case 104: case 105:  {return;};default:event.returnValue = false;break;}\""
     	     			str +=(parg.displayonly)?" readonly":""
     	     			str +=(parg.displayonly && odata.displayonlybackgroundcolor)?" style=\"background-color:"+odata.displayonlybackgroundcolor+"\"":""
	   	     			str +=(parg.required)?" required":""
     	     			str +=(parg.initialvalue)?" value=\""+parg.initialvalue+"\"":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""  	     		
						str +=">"						
					}		
					
					if (parg.styletype=="file"){
  						str +="<input type=file"
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
  						
     	     			str +=(parg.name)?" name="+parg.name:""   
     	     			str +=(parg.size)?" size="+parg.size:""     	     		
     	     			//str +=" onblur=\""
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||this.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""     	     		
     	     			//str +="\""     	     		  	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""     	     			     	     			
	   	     			str +=(parg.required)?" required":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""  	     		
						str +=">"	
					}						
					if(parg.styletype=="date")	{
     	     			str +="<input type=text"
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.name)?" name="+parg.name:""     	     			
     	     			str +=" readonly"
     	     			str +=" size=12"
     	     			str +=" style=\"background-color:"+odata.displayonlybackgroundcolor+"\""
	   	     			str +=(parg.required)?" required":""
     	     			//str +=(parg.initialvalue)?" value=\""+parg.initialvalue+"\"":""
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">&nbsp;<img src=\"http://www.x-client.com/v/6.5/isomorphic/skins/TreeFrog/images/controls/date_control.gif\" onclick=\"calendario ("+parg.name+")\">"     	     		     	     			     	     			
     	     		}	
     	     		if(parg.styletype=="text")
     	     		{
     	     			str +="<textarea "
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.name)?" name="+parg.name:""
     	     			str +=(parg.cols)?" cols="+parg.cols:"30"
     	     			str +=(parg.rows)?" rows="+parg.rows:"1"
     	     			str +=(parg.limit)?" onkeyup=\"if(this.value.length>"+parg.limit+"){this.value=this.value.substring(0,"+parg.limit+" )}\"":""
     	     			str +=(parg.casetype=="upper")?" onblur=\"this.value=this.value.toUpperCase();":""     	     		
     	     			str +=(parg.casetype=="lower")?" onblur=\"this.value=this.value.toLowerCase();":""
     	     			//str +=(parg.validmessage)?"if(!this.value "+((parg.minlimit)?"||parg.value.length<="+parg.minlimit:"")+"){alert('"+parg.validmessage+"');this.focus()}":""
     	     			str +=(parg.casetype)?"\"":""     	     		     	     		
     	     			str +=(parg.autoselect)?" onfocus=\"this.select()\"":""
     	     			str +=(parg.displayonly)?" readonly":""
     	     			str +=(parg.displayonly && odata.displayonlybackgroundcolor)?" style=\"background-color:"+odata.displayonlybackgroundcolor+"\"":""
	   	     			//str +=(parg.required)?" required":""
	   	     			str +=(parg.limit)?" maxlength=\""+parg.limit+"\"":""
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">"
     	     			//str +=(parg.initialvalue)?parg.initialvalue:""
     	     			str +="</textarea>"
     	     		}         	     					
     	     	   if(parg.styletype=="dropdownds"){
     	     			str +="<select name="+parg.name+" "
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.size)?" size="+parg.size:"1"     	     		
     	     			//str +=(parg.required)?" onblur=\"if(!this.value){alert('"+parg.validmessage+"');this.focus()}\"":"" 
     	     			//str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">"     	     		
    	     			for (var il=0;il<parg.list.length;il++){
			     			str +="<option value=\""+parg.list[il][0]+"\"" 
			     			if (item.initialvalue==parg.list[il][0]) 
			     			{
			     				str+=" SELECTED "
			     			}
			     			str +=">" + parg.list[il][1]+"</option>"			     		
			     		}
     	     			str +="</select>"  
     	     		}	
     	     		
					if(parg.styletype=="button"){
     	     			str +="<input type=button"
     	     			str +=(parg.name)?" name="+parg.name:""     	     			
     	     			str +=(parg.value)?" value=\""+parg.value+"\"":""
     	     			//str +=(parg.onclick)?" onclick=\""+parg.onclick+"\"":""
     	     			str +=">"
     	     		}     	     		
					if(parg.styletype=="dropdown"){
     	     			str +="<select name="+parg.name+" "
  						str +=(parg.label)?" label=\""+parg.label+"\"":""
  						str +=(parg.whenisnull)?" whenisnull=\""+parg.whenisnull+"\"":""
  						str +=(parg.minsize)?" minsize=\""+parg.minsize+"\"":""            
     	     			
     	     			str +=(parg.size)?" size="+parg.size:" size=1 "     	     		
     	     			///str +=(parg.required)?" onblur=\"if(!this.value){alert('"+parg.validmessage+"');this.focus()}\"":"" 
     	     			///str +=(parg.validmessage)?" validmessage=\""+parg.validmessage+"\"":""
     	     			str +=">"  
     	     			var objds = parg.list.dataobject     	     			     	     			  	     		     	     			
     	     			objds.movefirst();
						while (!objds.eof())
						{							
							str +="<option value=\""+objds.field(parg.list.code)+"\"" 
			     			if (parg.initialvalue==objds.field(parg.list.code)) 
			     			{
			     				str+=" SELECTED "
			     			}
			     			str +=">" + objds.field(parg.list.view)+"</option>"								
							objds.movenext();
						}												
     	     			str +="</select>"  
     	     		}	
					if(parg.styletype=="multicheck"){
     	     			str +="<table cellpadding=3 cellspacing=0 border=0>"  	     			     	     			
     	     			var objds = parg.list.dataobject    
     	     			var objdschk = parg.list.dataobjectcheck
     	     			var strchk="" 	     			
     	     			objds.movefirst();     	     			
						while (!objds.eof())
						{							
							var rodd = ((objds.getrow())%(parg.list.columnsAcross ))-1							
							if (parg.list.columnsAcross==1 ) rodd=0
							if (rodd==0  )
     						{     						
	     						str +="<tr "+(((((objds.getrow())%2)))?"style=\"background-color:"+odata.oddbackgroundcolor+"\"":"")+">"	     						
     						}	
     						str +="<td align=left valign=top><input onclick=updatefield(this,"+odata.container+"."+parg.name+") type=checkbox name="+parg.name+"_chk"+objds.getrow()+" "     						
     						objdschk.movefirst();  
     						while (!objdschk.eof()){     							
     							if (objds.field(parg.list.code)+""==objdschk.field(parg.list.code)+"") {
     								str+=" CHECKED ";
     								strchk+=objds.field(parg.list.code)+","
     								break;
     							}
     							objdschk.movenext();
     						}     							     						
     						str+="value="+objds.field(parg.list.code)+"></td><td>"+objds.field(parg.list.view)+"</td>"
							objds.movenext();
						}												
     	     			str +="</table><input type=hidden name="+parg.name+" value=\""+strchk+"\">"      	     			
     	     		}	     	     		     	     		     	     		      	
  document.write (str)  
  this.element=odata.container.item (this.objectname)  
  if (parg.onclick)	this.element.attachEvent("onclick",parg.onclick)		
  if (parg.onkeyup)	this.element.attachEvent("onkeyup",parg.onkeyup)  
}
/**************************************
*
*
*
***************************************/
function nvoInputCompute(parg){
  this.classname="input";
  this.paint=function (){
  	this.element.innerHTML=eval(parg.evaluate);
  } 
  this.objectname=parg.name;
  if (parg.datasource) 
  {
  	parg.datasource.addAsociates(this);
  	document.write ("<span  id="+parg.name+" ></span>")
  }else{
  	document.write ("<span  id="+parg.name+" ></span>")
  }
  this.element=document.all.item(this.objectname);
  if (parg.onclick)	{     	     		
		this.element.attachEvent("onclick",parg.onclick)
  }
}


/**************************************
*
*
*
***************************************/
	
function processForm (odata)
{
this.container=odata.container;
this.columnsAcross=odata.columnsAcross;
this.border=odata.border;
this.padding=odata.padding;
this.spacing=odata.spacing;
this.showcomment=odata.showcomment;
this.width=odata.width;
this.odd=odata.odd;
this.oddbackgroundcolor=odata.oddbackgroundcolor;
this.datasource=odata.datasource;
this.objects = new Array();

 var irow=1;
 var nFields="";
 var nSize="";	
 /*id="+odata.container+" */
  var str ="<div  "+((odata.containeralign)?" align=\""+odata.containeralign+"\"":"")+" " + ((odata.width)?" width="+odata.width:"")+ "><table "
     str +=((odata.backgroundcolor)?" style=\"background-color:"+odata.backgroundcolor+"\"":"")
     str +=(odata.border)?" border="+odata.border:""
     str +=(odata.width)?" width="+odata.width:""
     str +=(odata.padding)?" cellpadding="+odata.padding:""
     str +=(odata.spacing)?" cellspacing="+odata.spacing:""
     str +=" class=tablegrid >"     
	 document.write (str);str="";
     for (var i in odata.fields)	
     {
     	var item = odata.fields[i]
     	var rodd = (i%odata.columnsAcross)//((i%odata.columnsAcross)==(odata.columnsAcross -1))?0:1
    	if (rodd==0)
     	{
	     	str +="<tr"
	     	str +=(odata.odd && ((irow%2)))?" style=\"background-color:"+odata.oddbackgroundcolor+"\"":""
	     	str +=">"
     	}
     	     	str +="<td valign=top nowrap "
     	     	str +=(odata.labelwidth &&item.label )?"style=\"width:"+odata.labelwidth+"\"":""     	     	
     	     	str +=" align=left>"
     	     	str +=(item.required)?"(*)":""
     	     	str +=item.label + "&nbsp;"
     	     	if (odata.showcomment=="label")	str +=(item.comment)?"<br>"+item.comment:""    
     	     	if (odata.showcomment!="under") 	     		     	     			     	     	
     	     	{
     	     	str +="<td valign=top align=left>"
     	     	}else {
     	     	str +="<br>"
     	     	}
     	     	if (odata.showcomment=="top")	str +=(item.comment)?item.comment+"<br>":""  
     	     	document.write (str);str="";
     	     	//objdata[objdata.length]=new nvoInput(odata,item)
     	     	
     	     	this.objects[this.objects.length]=new nvoInput(odata,item)
     	     	
    	     	if (odata.showcomment=="down"||odata.showcomment=="under")	str +=(item.comment)?"<br>"+item.comment:"&nbsp;"  
     	     	str +="</td>"  
     	     	if (odata.showcomment=="third")	str +="<td align=left valign=top>"+((item.comment)?item.comment:"&nbsp;")+"</td>"     	     		     	     			
			if (odata.columnsAcross>1)
			{
				if (rodd==(odata.columnsAcross -1))
				{
		  			str +="</tr>"     	
		  			irow++
				}
			}
			else
			{
		  		str +="</tr>"     	
		  		irow++			
			} 
			nFields+=item.label
			nSize+=parseInt(item.labelwidth)
			if (i < odata.fields.length-1) {nFields+=",";nSize+=",";}
			document.write (str);str="";
     }    
    str +="</table></div>"
    
    document.write (str);str="";
    
//return str;
}

/**************************************
*
*
*
***************************************/
function enviar(obj)
{
	validForm(obj)
}
/**************************************
*
*
*
***************************************/
function validFields(obj)
{
var ss="";

for (var i=0;i<obj.length;i++)
{

	var item = obj[i].container.item(obj[i].name)
	if (item.tagName=="INPUT" ||item.tagName=="SELECT")
	{				
		if (item.getAttribute("REQUIRED")!=null && item.value=="")
		{			
			ss+="Debe "+((item.tagName=="INPUT")?"registrar un valor en el":"seleccionar un valor del")+" item\""+item.getAttribute("LABEL")+"\"\r\n"
		}
	}
}
if (ss!="") alert (ss)
return (ss)
}
/**************************************
*
*
*
***************************************/
function updatefield(objsource,objtarget){
if (objsource.checked)
{
 objtarget.value+=objsource.value+","
 return
}
objtarget.value=objtarget.value.replace(objsource.value+",","")
}