function abrir_listado(cual){
    var valida=0;	

	switch (cual){ 
		
     case 'movproter'://TER_MVTOTERC.rpt
	    var usr = document.getElementById('p_usuario').value;
		//var del = document.getElementById('p_coddel_act').value;
		//var del = 200;
		//la fecha debe quedar como un Date(2009,06,22) la recibo como 22/06/2009
		var fechades = document.getElementById('p_fecdes').value;
		var fechahas = document.getElementById('p_fechas').value;
		
		//var nroins = document.getElementById('p_nroins').value;   //aqui no lo indico, va en 0		
		var producto = document.getElementById('p_producto').value;	
		var anoelab  = document.getElementById('p_anoelab').value;	
		
		var nrocuit_ter = document.getElementById('p_nrocuit_ter').value;
		var codvar1 = document.getElementById('p_codvar1').value;	
		var codvar2 = document.getElementById('p_codvar2').value;	
		var codvar3 = document.getElementById('p_codvar3').value;	
		var tipoanal = document.getElementById('p_tipoanal').value;	
		var nroana = document.getElementById('p_nroana').value;			
		
		/*
		var proce_elab  = document.getElementById('p_proce_elab').value;	
		var tipodg   = document.getElementById('p_tipodg').value;	
		*/
		//if (del=='' || fechades=='' || fechahas=='' || dipdocp == '' || tipdoc_ter=='' || nrocuit_ter==''){
		if (del=='' || fechades=='' || fechahas=='' ){
			alert("Por favor verifique que todos los datos obligatorios(*) estén cargados!!!");
  			valida=1;
  			
		}else{

			var arr_fecdes= fechades.split("/");
			var fecdes_lista = "Date("+arr_fecdes[2]+","+arr_fecdes[1]+","+arr_fecdes[0]+")"
			
			var arr_fechas= fechahas.split("/");
			var fechas_lista = "Date("+arr_fechas[2]+","+arr_fechas[1]+","+arr_fechas[0]+")"
			
			if (anoelab == ''){
				anoelab =0;
			}	
				
		    alert ("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=339491&apsuser=administrator&apspassword=BO2009&apsauthtype=secEnterprise&&promptex-p_coddel_act=200&promptex-p_fecdes="+fecdes_lista+"&promptex-p_fechas="+fechas_lista+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_producto="+producto+"&promptex-p_anoelab="+anoelab+"&promptex-p_nroins=&promptex-p_nroana=&promptex-p_tipoanal=0&promptex-p_codvar1=0&promptex-p_codvar2=0&promptex-p_codvar3=0&promptex-p_usuario="+usr+"&PromptOnRefresh=0&init=actx") ; 
// prueba fija: window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?promptex-p_nrocuit_ter=30-63130272-2&promptex-p_usuario=flavia_videla&init=actx&promptex-p_producto=0&promptex-p_codvar2=0&apspassword=BO2009&promptex-p_anoelab=0&apsuser=administrator&id=339491&promptex-p_codvar3=0&promptex-p_fechas=Date%282010%2c05%2c03%29&promptex-p_nroins=&promptex-p_nroana=&promptex-p_coddel_act=0&PromptOnRefresh=0&promptex-p_tipoanal=0&wid=9721a30cf6a02b0e&promptex-p_fecdes=Date%282010%2c04%2c01%29&apsauthtype=secEnterprise&promptex-p_codvar1=0", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ;		
        if (nroana != ''){
        	
		  	window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=339491&apsuser=administrator&apspassword=BO2009&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fecdes="+fecdes_lista+"&promptex-p_fechas="+fechas_lista+"&promptex-p_nroins=&promptex-p_producto="+producto+"&promptex-p_anoelab="+anoelab+"&promptex-p_tipoanal="+tipoanal+"&promptex-p_nroana="+nroana+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ;		
        }
        
        if (nroana == ''){
          //window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=339491&apsuser=administrator&apspassword=BO2009&apsauthtype=secEnterprise&&promptex-p_coddel_act="+del+"&promptex-p_fecdes="+fecdes_lista+"&promptex-p_fechas="+fechas_lista+"&promptex-p_nroins="+nroins+"&promptex-p_producto="+producto+"&promptex-p_anoelab="+anoelab+"&promptex-p_tipoanal="+tipoanal+"&promptex-p_nroana="+''+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
			window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=339491&apsuser=administrator&apspassword=BO2009&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fecdes="+fecdes_lista+"&promptex-p_fechas="+fechas_lista+"&promptex-p_nroins=&promptex-p_producto="+producto+"&promptex-p_anoelab="+anoelab+"&promptex-p_tipoanal="+tipoanal+"&promptex-p_nroana="+''+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ;		
        }

		
			document.forms.consulta.action = "acceso_ext_listados.php?que=movproter";
			document.forms.consulta.submit();
			
		}
		  break;	
		  
     case 'mvtogruter':
	    var usr = document.getElementById('p_usuario').value;
		var del = document.getElementById('p_coddel_act').value;
		//var del = 200;
		//la fecha debe quedar como un Date(2009,06,22) la recibo como 22/06/2009
		var fechades = document.getElementById('p_fecdes').value;
		var fechahas = document.getElementById('p_fechas').value;
		
		//var nroins = document.getElementById('p_nroins').value;   //aqui no lo indico, va en 0		
		var grupo  = document.getElementById('p_grupo').value;	
		var anoelab  = document.getElementById('p_anoelab').value;	
		
		var nrocuit_ter = document.getElementById('p_nrocuit_ter').value;
		var codvar1 = document.getElementById('p_codvar1').value;	
		var codvar2 = document.getElementById('p_codvar2').value;	
		var codvar3 = document.getElementById('p_codvar3').value;	
		var tipoanal = document.getElementById('p_tipoanal').value;	
		var nroana = document.getElementById('p_nroana').value;			
		
		/*
		var proce_elab  = document.getElementById('p_proce_elab').value;	
		var tipodg   = document.getElementById('p_tipodg').value;	
		*/
		//if (del=='' || fechades=='' || fechahas=='' || dipdocp == '' || tipdoc_ter=='' || nrocuit_ter==''){
		if (del=='' || fechades=='' || fechahas=='' ){
			alert("Por favor verifique que todos los datos obligatorios(*) estén cargados!!!");
  			valida=1;
  			
		}else{

			var arr_fecdes= fechades.split("/");
			var fecdes_lista = "Date("+arr_fecdes[2]+","+arr_fecdes[1]+","+arr_fecdes[0]+")"
			
			var arr_fechas= fechahas.split("/");
			var fechas_lista = "Date("+arr_fechas[2]+","+arr_fechas[1]+","+arr_fechas[0]+")"
			
			if (anoelab == ''){
				anoelab =0;
			}	
				
        if (nroana != ''){
		  	window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=351760&apsuser=administrator&apspassword=BO2009&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fecdes="+fecdes_lista+"&promptex-p_fechas="+fechas_lista+"&promptex-p_nroins=&promptex-p_grupo="+grupo+"&promptex-p_anoelab="+anoelab+"&promptex-p_tipoanal="+tipoanal+"&promptex-p_nroana="+nroana+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
        }
        
        if (nroana == ''){
		window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=351760&apsuser=administrator&apspassword=BO2009&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fecdes="+fecdes_lista+"&promptex-p_fechas="+fechas_lista+"&promptex-p_nroins=&promptex-p_grupo="+grupo+"&promptex-p_anoelab="+anoelab+"&promptex-p_tipoanal="+tipoanal+"&promptex-p_nroana="+''+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
        }

		
			document.forms.consulta.action = "acceso_ext_listados.php?que=mvtogruter";
			document.forms.consulta.submit();
			
		}
		  break;		

		  
		case 'sdoproducto'://TER_SDOPRODUCTO.rpt
		    var usr = document.getElementById('p_usuario').value;
			var del = document.getElementById('p_coddel_act').value;
			var fechahas = document.getElementById('p_fechas').value;		
			
			//var tipdoc_ter = document.getElementById('p_tipdoc_ter').value; 
			var nrocuit_ter = document.getElementById('p_nrocuit_ter').value;
			var producto  = document.getElementById('p_producto').value;	
			var codvar1 = document.getElementById('p_codvar1').value;	
			var codvar2 = document.getElementById('p_codvar2').value;	
			var codvar3 = document.getElementById('p_codvar3').value;
			//var nroins = document.getElementById('p_nroins').value;
					
			//if (del=='' || fechahas=='' || nrocuit_ter==''){
			if (del=='' || fechahas=='' ){
				alert("Por favor verifique que todos los datos obligatorios(*) estén cargados!!!");
	  			valida=1;
	  			
			}else{			
			var arr_fechas= fechahas.split("/");
			var fechas_lista = "Date("+arr_fechas[2]+","+arr_fechas[1]+","+arr_fechas[0]+")"
			
				if (anoelab == ''){
					anoelab =0;
				}		
 // OK window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168838&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fechas=Date%282010%2c04%2c30%29&promptex-p_tipdoc_ter=6&promptex-p_nrocuit_ter=30-63130272-2&promptex-p_producto=0&promptex-p_codvar1=0&promptex-p_codvar2=0&promptex-p_codvar3=0&promptex-p_nroins=&promptex-p_usuario=flavia_videla&init=actx&PromptOnRefresh=0&wid=e8a39e5321124a41", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
			  
			//  alert ("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168838&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act="+del+"&promptex-p_fechas=Date%282010%2c04%2c30%29&promptex-p_tipdoc_ter=6&promptex-p_nrocuit_ter=30-63130272-2&promptex-p_producto=0&promptex-p_codvar1=0&promptex-p_codvar2=0&promptex-p_codvar3=0&promptex-p_nroins=&promptex-p_usuario=flavia_videla&init=actx&PromptOnRefresh=0&wid=e8a39e5321124a41");
			  
		//  window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168838&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act="+del+"&promptex-p_fechas=Date%282010%2c04%2c30%29&promptex-p_tipdoc_ter=6&promptex-p_nrocuit_ter=30-63130272-2&promptex-p_producto=0&promptex-p_codvar1=0&promptex-p_codvar2=0&promptex-p_codvar3=0&promptex-p_nroins=&promptex-p_usuario=flavia_videla&init=actx&PromptOnRefresh=0&wid=e8a39e5321124a41", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 			  
			  window.open("http://lambrusco.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=2407&apsuser=crystalreports&apspassword=lambrus30&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fechas="+fechas_lista+"&promptex-p_tipdoc_ter=6&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_producto="+producto+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_nroins=&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
			
			document.forms.consulta.action = "acceso_ext_listados.php?que=sdoproducto";
			document.forms.consulta.submit();
			}
			  break;	

	     case 'sdogrupo'://TER_SDOGRUPO.rpt
		    var usr = document.getElementById('p_usuario').value;
			var del = document.getElementById('p_coddel_act').value;
			//la fecha debe quedar como un Date(2009,06,22) la recibo como 22/06/2009
			var fechahas = document.getElementById('p_fechas').value;
			//var tipdoc_ter = document.getElementById('p_tipdoc_terc').value; 
			var nrocuit_ter = document.getElementById('p_nrocuit_ter').value;
			var grupo = document.getElementById('p_grupo').value;	
			var codvar1 = document.getElementById('p_codvar1').value;	
			var codvar2 = document.getElementById('p_codvar2').value;	
			var codvar3 = document.getElementById('p_codvar3').value;
			
			if (del=='' || fechahas=='' ){
				alert("Por favor verifique que todos los datos obligatorios(*) estén cargados!!!");
	  			valida=1;
	  			
			}else{
			
			var arr_fechas= fechahas.split("/");
			var fechas_lista = "Date("+arr_fechas[2]+","+arr_fechas[1]+","+arr_fechas[0]+")"
			
				if (anoelab == ''){
					anoelab =0;
				}		
				
				//alert ("entro");
				//alert ("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168925&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fechas="+fechas_lista+"&promptex-p_tipdoc_terc="+tipdoc_ter+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_grupo="+grupo+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx");
	//http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?promptex-p_nrocuit_ter=30-63130272-2&promptex-p_usuario=flavia_videla&init=actx&promptex-p_codvar2=0&apspassword=123INV321&promptex-p_tipdoc_terc=6&apsuser=reportescrystal&id=168925&promptex-p_fechas=Date%282010%2c04%2c30%29&promptex-p_codvar3=0&promptex-p_grupo=0&promptex-p_coddel_act=0&PromptOnRefresh=0&wid=27f062316e0141a6&apsauthtype=secEnterprise&promptex-p_codvar1=0
			 // 	window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168925&apsuser=administrator&apspassword=BO2009&apsauthtype=secEnterprise&&promptex-p_coddel_act="+del+"&promptex-p_fechas="+fechas_lista+"&promptex-p_tipdoc_terc="+tipdoc_ter+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_grupo="+grupo+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
		//	 window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168925&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fechas="+fechas_lista+"&promptex-p_tipdoc_terc="+tipdoc_ter+"&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_grupo="+grupo+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
			 
		//ok	 window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?promptex-p_nrocuit_ter=30-63130272-2&promptex-p_usuario=flavia_videla&init=actx&promptex-p_codvar2=0&apspassword=123INV321&promptex-p_tipdoc_terc=6&apsuser=reportescrystal&id=168925&promptex-p_fechas=Date%282010%2c04%2c30%29&promptex-p_codvar3=0&promptex-p_grupo=0&promptex-p_coddel_act=0&PromptOnRefresh=0&wid=27f062316e0141a6&apsauthtype=secEnterprise&promptex-p_codvar1=0", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 

		//	 window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168925&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fechas=Date%282010%2c04%2c30%29&promptex-p_tipdoc_terc=6&promptex-p_nrocuit_ter=30-63130272-2&promptex-p_grupo=0&promptex-p_codvar1=0&promptex-p_codvar2=0&promptex-p_codvar3=0&promptex-p_usuario=flavia_videla&PromptOnRefresh=0&init=actx&wid=27f062316e0141a6", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
		//		 window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168925&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fechas="+fechas_lista+"&promptex-p_tipdoc_terc=6&promptex-p_nrocuit_ter=30-63130272-2&promptex-p_grupo=0&promptex-p_codvar1=0&promptex-p_codvar2=0&promptex-p_codvar3=0&promptex-p_usuario=flavia_videla&PromptOnRefresh=0&init=actx&wid=27f062316e0141a6", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 		
		 window.open("http://chardonnay.inv.gov.ar:6405//CrystalReports/viewrpt.cwr?id=168925&apsuser=reportescrystal&apspassword=123INV321&apsauthtype=secEnterprise&&promptex-p_coddel_act=0&promptex-p_fechas="+fechas_lista+"&promptex-p_tipdoc_terc=6&promptex-p_nrocuit_ter="+nrocuit_ter+"&promptex-p_grupo="+grupo+"&promptex-p_codvar1="+codvar1+"&promptex-p_codvar2="+codvar2+"&promptex-p_codvar3="+codvar3+"&promptex-p_usuario="+usr+"&PromptOnRefresh=0"+"&init=actx", "ventana1", "status=0,menubar=0,toolbar=0,location=0,resizable=1,height=600,width=800") ; 
			  	
			  	
			document.forms.consulta.action = "acceso_ext_listados.php?que=sdogrupo";
			document.forms.consulta.submit();
		}
			  break;			      
		  
	}	

}


function muestro_grupo(){ //para el grupo
	var codgru = document.all.txtgru.value;
	var longru = document.all.p_grupo.options.length;
	var encontro = 0;
	
	for (i=0; i < longru; i++)	{
			codcbo = document.all.p_grupo(i).value;

			if (parseInt(codcbo) == parseInt(codgru)){				
				document.all.p_grupo.options(i).selected = true;				
				encontro = 1;
				break;
			}
		}
		if (encontro == 0)		{
			if (codgru !=""){
				alert("Grupo inexistente");
				document.all.txtgru.value = "";
				document.all.txtgru.focus();

				return;
			}
	}
	return;	
}


function regresar(){
			document.forms.consulta.action = "acceso_ext.php";
			document.forms.consulta.submit();
}
	
function regresar2(){
			document.forms.cbio_clave.action = "acceso_ext.php";
			document.forms.cbio_clave.submit();
}

function muestro_listado(){
	var dir = window.document.getElementById("dir_listado").value;
    //alert (dir);		

	document.forms.form_list.target = "_self";
	document.forms.form_list.action = dir;
	document.forms.form_list.submit();	
}	

function muestro_prod(){
	
	var codprod = window.document.getElementById("txtprod").value;
	var lonprod = window.document.getElementById("p_producto").length;
	var encontro = 0;
		
	//alert (lonprod);
	
			for (i=0; i < lonprod; i++)	{
					codcbo = window.document.getElementById("p_producto")(i).value;
					
		           // alert(codcbo+" - "+codprod);
		            
					if (parseInt(codcbo) == parseInt(codprod)){				
						window.document.getElementById("p_producto").options(i).selected = true;				
						encontro = 1;
						break;
					}
			}
			if (encontro == 0){
					if (codprod !=""){
						alert("Producto inexistente");
						window.document.getElementById("txtprod").value = "";
						window.document.getElementById("txtprod").focus();		
						return;
					}
			}
			return;
}	

//carga la primera variedad
function Variedad1(){
	var codvar1 = document.all.txtvar1.value;
	var lonvar1 = document.all.p_codvar1.options.length;
	var encontro = 0;
	
		for (i=0; i < lonvar1; i++)	{
			codcbo = document.all.p_codvar1(i).value;
			
			if (codvar1==0){			
				document.all.p_codvar1.options(0).selected = true;				
				encontro = 1;
				break;
			}

			if (parseInt(codcbo) == parseInt(codvar1)){				
				document.all.p_codvar1.options(i).selected = true;				
				encontro = 1;
				break;
			}
		}
		if (encontro == 0)		{
			if (codvar1 !=""){
				alert("Variedad inexistente");
				document.all.txtvar1.value = "";
				document.all.txtvar1.focus();

				return;
			}
	}
	return;	
}


function cargavar1(codvar1){
	document.all.txtvar1.value=codvar1
}

//carga la segunda variedad
function Variedad2(){
	var codvar2 = document.all.txtvar2.value;
	var lonvar2 = document.all.p_codvar2.options.length;
	var encontro = 0;
	
	for (i=0; i < lonvar2; i++)	{
			codcbo = document.all.p_codvar2(i).value;
			
			if (codvar2==0){			
				//document.all.txtvar2.value=0	;
				document.all.p_codvar2.options(0).selected = true;				
				encontro = 1;
				break;
			}

			if (parseInt(codcbo) == parseInt(codvar2)){				
				document.all.p_codvar2.options(i).selected = true;				
				encontro = 1;
				break;
			}
		}
		if (encontro == 0)		{
			if (codvar2 !=""){
				alert("Variedad inexistente");
				document.all.txtvar2.value = "";
				document.all.txtvar2.focus();

				return;
			}
	}
	return;	
}

function cargavar2(codvar2){
	document.all.txtvar2.value=codvar2
}

//carga la tercera variedad
function Variedad3(){
	var codvar3 = document.all.txtvar3.value;
	var lonvar3 = document.all.p_codvar3.options.length;
	var encontro = 0;
	
	for (i=0; i < lonvar3; i++)	{
			codcbo = document.all.p_codvar3(i).value;
			
			if (codvar3==0){	
				//document.all.txtvar3.value=0	;			
				document.all.p_codvar3.options(0).selected = true;				
				encontro = 1;
				break;
			}

			if (parseInt(codcbo) == parseInt(codvar3)){				
				document.all.p_codvar3.options(i).selected = true;				
				encontro = 1;
				break;
			}
		}
		if (encontro == 0)		{
			if (codvar3 !=""){
				alert("Variedad inexistente");
				document.all.txtvar3.value = "";
				document.all.txtvar3.focus();

				return;
			}
	}
	return;	
}

function cargavar3(codvar3){
	document.all.txtvar3.value=codvar3
}

function Evaluar2(){ //para el grupo
	var codgru = document.all.txtgru.value;
	var longru = document.all.p_grupo.options.length;
	var encontro = 0;
	
	for (i=0; i < longru; i++)	{
			codcbo = document.all.p_grupo(i).value;

			if (parseInt(codcbo) == parseInt(codgru)){				
				document.all.p_grupo.options(i).selected = true;				
				encontro = 1;
				break;
			}
		}
		if (encontro == 0)		{
			if (codgru !=""){
				alert("Grupo inexistente");
				document.all.txtgru.value = "";
				document.all.txtgru.focus();

				return;
			}
	}
	return;	
}

function modificar_clave(){
	document.forms.form_clave.action = "acceso_ext_cbioclave.php";
	document.forms.form_clave.submit();
}