// JavaScript Document
<!-- //
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function openWindow(theURL,winName,features) {
            var w = window.open(theURL,winName,features);
}

function alCargar(){
var f = window.document.form1;
	f.DEPTO.focus();
	//f.FECHA.focus();
	//f.FECHA.select();
	
}

function laprovincia(){
	var f = window.document.form1;
	if (isNaN(f.CPDES.value)){f.Provincia.value = "Solo Números";}
	else 
	{
	
 if(f.CPDES.value.length == 5)
	{
		//verificar codigo postal
		var codpos = f.CPDES.value.substr(0,2);
		switch (codpos){
			case "46":f.Provincia.value = "VALENCIA";break;
			case "08":f.Provincia.value = "BARCELONA";break;
			case "33":f.Provincia.value = "ASTURIAS";break;
			case "01":f.Provincia.value = "ALAVA";break;
			case "02":f.Provincia.value = "ALBACETE";break;
			case "03":f.Provincia.value = "ALICANTE";break;
			case "14":f.Provincia.value = "CORDOBA";break;
			case "04":f.Provincia.value = "ALMERIA";break;
			case "20":f.Provincia.value = "GUIPUZCOA";break;
			case "05":f.Provincia.value = "AVILA";break;
			case "24":f.Provincia.value = "LEON";break;
			case "26":f.Provincia.value = "LA RIOJA";break;
			case "06":f.Provincia.value = "BADAJOZ";break;
			case "48":f.Provincia.value = "VIZCAYA";break;
			case "10":f.Provincia.value = "CACERES";break;
			case "07":f.Provincia.value = "ISLAS BALEARES";break;
			case "13":f.Provincia.value = "CIUDAD REAL";break;
			case "44":f.Provincia.value = "TERUEL";break;
			case "15":f.Provincia.value = "CORUÑA";break;
			case "16":f.Provincia.value = "CUENCA";break;
			case "09":f.Provincia.value = "BURGOS";break;
			case "19":f.Provincia.value = "GUADALAJARA";break;
			case "21":f.Provincia.value = "HUELVA";break;
			case "22":f.Provincia.value = "HUESCA";break;
			case "23":f.Provincia.value = "JAEN";break;
			case "25":f.Provincia.value = "LERIDA";break;
			case "27":f.Provincia.value = "LUGO";break;
			case "28":f.Provincia.value = "MADRID";break;
			case "29":f.Provincia.value = "MALAGA";break;
			case "30":f.Provincia.value = "MURCIA";break;
			case "31":f.Provincia.value = "NAVARRA";break;
			case "32":f.Provincia.value = "ORENSE";break;
			case "34":f.Provincia.value = "PALENCIA";break;
			case "35":f.Provincia.value = "LAS PALMAS";break;
			case "36":f.Provincia.value = "PONTEVEDRA";break;
			case "38":f.Provincia.value = "SANTA CRUZ TENERIFE";break;
			case "51":f.Provincia.value = "CEUTA";break;
			case "12":f.Provincia.value = "CASTELLON";break;
			case "17":f.Provincia.value = "GERONA";break;
			case "18":f.Provincia.value = "GRANADA";break;
			case "37":f.Provincia.value = "SALAMANCA";break;
			case "39":f.Provincia.value = "CANTABRIA";break;
			case "40":f.Provincia.value = "SEGOVIA";break;
			case "41":f.Provincia.value = "SEVILLA";break;
			case "42":f.Provincia.value = "SORIA";break;
			case "43":f.Provincia.value = "TARRAGONA";break;
			case "45":f.Provincia.value = "TOLEDO";break;
			case "47":f.Provincia.value = "VALLADOLID";break;
			case "49":f.Provincia.value = "ZAMORA";break;
			case "50":f.Provincia.value = "ZARAGOZA";break;
			case "11":f.Provincia.value = "CADIZ";break;
			case "52":f.Provincia.value = "MELILLA";break;
	
			case "99":f.Provincia.value = "ANDORRA";break;
			default:f.Provincia.value = "Sin Provincia";fbgc(f.CPDES,1);break;
		} //switch
			
	  }// segundo if
	  	else if(f.CPDES.value.length == 4){
			var codpos = f.CPDES.value.substr(0,1);
			f.Provincia.value = "PORTUGAL";
				}
	} // primer if
} //de la funcion



function laFecha(){ 
	var f = window.document.form1;
	var m = window.document.form1.FechaEr;
	var Cadena = f.FECHA.value;

     var Fecha= new String(Cadena); //Crea un string  
	 
	 //-------------------FECHA REAL DEL SERVIDOR
	 	var RealFecha = f.rFECHA.value;
		var rDia = f.rFECHA.value.substr(0,2);
		var rMes = f.rFECHA.value.substr(3,2);
		var rAno = f.rFECHA.value.substr(6,2);
		
/*     var RealFecha = new Date(); //Para sacar la fecha de hoy 
	 var rDia = RealFecha.getDate();
	 var rMes = RealFecha.getMonth()+1;
	 var rAno = RealFecha.getYear();  */ 
	 
     //Cadena Año  
     var Ano= new String(Fecha.substring(Fecha.lastIndexOf("/")+1,Fecha.length));
	 	 Ano = parseFloat(Ano);
     //Cadena Mes  
     var Mes= new String(Fecha.substring(Fecha.indexOf("/")+1,Fecha.lastIndexOf("/")));
	 	 Mes = parseFloat(Mes);
     //Cadena Día  
     var Dia= new String(Fecha.substring(0,Fecha.indexOf("/")));
	 	 Dia = parseInt(Dia, 10);
	 
	 //Ano = 2000 + Ano;
	 //alert(" AñoReal: " + rAno + " Ano: " +  Ano + "\n MesReal: " + rMes + " Mes: " + Mes + "\n DiaReal: " + rDia + " Dia: "+ Dia);

	 //Valido el año  
     if (isNaN(Ano) || Ano.length < 2 || Ano != rAno) 	{m.value = "Año inválido"; fbgc(f.FECHA,1); return false;}  
     //Valido el Mes  
     if (isNaN(Mes) || Mes < 1 		  || Mes != rMes) 	{m.value = "Mes inválido"; fbgc(f.FECHA,1); return false;}  
     //Valido el Dia  
     if (isNaN(Dia) || Dia < rDia 	  || Dia > 31	|| Dia > rDia+5) 	{m.value = "Día inválido"; fbgc(f.FECHA,1); return false;}  
	 
     if (Mes==4 || Mes==6 || Mes==9 || Mes==11 || Mes==2) {  
         if (Mes==2 && Dia > 28 || Dia>30) {  
             //alert('Día inválido'); 
			 m.value = "Día inválido";
             return false;
         }  
     }  
   //para que envie los datos, quitar las  2 lineas siguientes  
    m.value = "Correcta"; 
	fbgc(f.FECHA,2)
   return false    
 }   

// - limpiar los caracteres

function kill_chr(e){
//var strReplaceAll = e.value.replace( new RegExp( "[']|[<]|[>]|[^]|[/]", "gi" ), " " );
	var e2 = e.value;//.replace( "'", " " );
	while (e2.indexOf("\"") != -1) {e2 = e2.replace( "\"", "");} 
	while (e2.indexOf("'") 	!= -1) {e2 = e2.replace( "'", "" );}
	while (e2.indexOf("<") 	!= -1) {e2 = e2.replace( "<", "" );}
	while (e2.indexOf(">") 	!= -1) {e2 = e2.replace( ">", "" );}
	while (e2.indexOf("^") 	!= -1) {e2 = e2.replace( "^", "" );}
	while (e2.indexOf("/") 	!= -1) {e2 = e2.replace( "/", "" );}
	while (e2.indexOf("\\") != -1) {e2 = e2.replace( "\\", "");}
	while (e2.indexOf("*") 	!= -1) {e2 = e2.replace( "*", "");}
	while (e2.indexOf("+") 	!= -1) {e2 = e2.replace( "+", "");}
	while (e2.indexOf("[") 	!= -1) {e2 = e2.replace( "[", "");}
    while (e2.indexOf("]") 	!= -1) {e2 = e2.replace( "]", "");}
	while (e2.indexOf("{") 	!= -1) {e2 = e2.replace( "{", "");}
	while (e2.indexOf("º") 	!= -1) {e2 = e2.replace( "º", "");}
	while (e2.indexOf("ª") 	!= -1) {e2 = e2.replace( "ª", "");}
	while (e2.indexOf("}") 	!= -1) {e2 = e2.replace( "}", "");}
	
	e.value = e2;
}
//---------------------------------------------------------------------------------------------

function validafecha(){
	var f = window.document.form1;
	var patronFechaSP = '^([0-9]|[0,1,2][0-9]|3[0,1])/([\d]|1[0,1,2])/\d{2}$';
	//var xf = f.FECHA.match("^([0-9]|[0,1,2][0-9]|3[0,1])/([\d]|1[0,1,2])/\d{2}$");
	var xf = f.FECHA.value.match(patronFechaSP);
	alert(xf);alert(f.FECHA.value.length);
	if (xf != null && f.FECHA.value.length == 8 ){
		
/*		
	if (xf != null)	{
*/		var fHoy = f.FECHA.value;
		var fDia = f.FECHA.value.substr(0,2);
		var fMes = f.FECHA.value.substr(3,2);
		var fAno = f.FECHA.value.substr(6,2);
		
		var fHoy = f.rFECHA.value;
		var fDia = f.rFECHA.value.substr(0,2);
		var fMes = f.rFECHA.value.substr(3,2);
		var fAno = f.rFECHA.value.substr(6,2);
	
	//ValidateForm();
	f.FechaEr.value = ".";
	} else {
		f.FECHA.focus();
		f.FECHA.select();
		f.FechaEr.value = "Fecha Error";
		}

}

function ValidateForm(){
	var f = window.document.form1.FECHA;
	//if (isDate(f.value)==false){
	
	//mm/dd/yyyy
	var fDia = f.FECHA.value.substr(0,2);
	var fMes = f.FECHA.value.substr(3,2);
	var fAno = f.FECHA.value.substr(6,2);
	var fHoy = fMes +"/"+fDia+"/20"+fAno;
	
	if (isDate(fHoy)==false){
		f.focus()
		return false
	}
    return true
 }

//habilita y deshabilita el submit
function ab(p){
 var f = window.document.form1.Submit;
 if (p == 1){f.disabled = true; f.value = "";}
 if (p != 1){f.disabled = false; f.value = "Grabar";}
}


function nxt(i,e,s){
	var f = window.document.form1;
	if (e.keyCode == 13){
		f.elements[buscaid(i.name)+s].focus();
		f.elements[buscaid(i.name)+s].select();
	}
}


function buscaid(e){
    var elLength = document.form1.elements.length;

    for (i=0; i<elLength; i++)
    {
        var nombre = form1.elements[i].name;
		if(e == nombre){
			//alert(nombre+" id: "+ i);
			return i;}
    }
}


function frmv(obj){
	var f = window.document.form1;
	kill_chr(obj);
	losbultos();

var cdps = parseInt( f.CPDES.value.substr(0,2));

if (obj.name == "FECHA" && f.FECHA.value == ""){fbgc(obj,1)} 	else if (obj.name == "FECHA" && f.FECHA.value != ""){fbgc(obj,2)}

if (obj.name == "NOMDES" && f.NOMDES.value == ""){fbgc(obj,1)} 	else if (obj.name == "NOMDES" && f.NOMDES.value != ""){fbgc(obj,2)}
if (obj.name == "SUREF" && f.SUREF.value == ""){fbgc(obj,1)} 	else if (obj.name == "SUREF" && f.SUREF.value != ""){fbgc(obj,2)}
if (obj.name == "POBDES" && f.POBDES.value == ""){fbgc(obj,1)} 	else if (obj.name == "POBDES" && f.POBDES.value != ""){fbgc(obj,2)}
if (obj.name == "DIRDES" && f.DIRDES.value == ""){fbgc(obj,1)} 	else if (obj.name == "DIRDES" && f.DIRDES.value != ""){fbgc(obj,2)}
//
if (obj.name == "CPDES" && (f.CPDES.value == "" || f.CPDES.value < 1000	|| isNaN(f.CPDES.value) || f.CPDES.value.length < 4) ){fbgc(obj,1)} 
else if (obj.name == "CPDES" && (f.CPDES.value != "" 	|| !isNaN(f.CPDES.value) || f.CPDES.value.length >= 4  )){fbgc(obj,2)}
//
if (obj.name == "ALTO" && 	(f.ALTO.value == ""  	|| isNaN(f.ALTO.value)))	{fbgc(obj,1)} else if (obj.name == "ALTO" && 	(f.ALTO.value != ""  	|| !isNaN(f.ALTO.value)))	{fbgc(obj,3)}
if (obj.name == "ANCHO" && 	(f.ANCHO.value == "" 	|| isNaN(f.ANCHO.value)))	{fbgc(obj,1)} else if (obj.name == "ANCHO" && 	(f.ANCHO.value != "" 	|| !isNaN(f.ANCHO.value)))	{fbgc(obj,3)}
if (obj.name == "LARGO" && 	(f.LARGO.value == "" 	|| isNaN(f.LARGO.value)))	{fbgc(obj,1)} else if (obj.name == "LARGO" && 	(f.LARGO.value != "" 	|| !isNaN(f.LARGO.value)))	{fbgc(obj,3)}
//                                                                                           //
if (obj.name == "PESO" && 	(f.PESO.value == ""  || f.PESO.value < 1	|| isNaN(f.PESO.value)))	{fbgc(obj,1)} else if (obj.name == "PESO" && 	(f.PESO.value != ""  	|| !isNaN(f.PESO.value)))	{fbgc(obj,2)}
//
if (obj.name == "DOC" && 	(f.DOC.value == ""	|| f.BULTOS.value == 0	|| isNaN(f.DOC.value)))		{fbgc(obj,1)} else if (obj.name == "DOC" && 	(f.DOC.value != ""		|| !isNaN(f.DOC.value)))	{fbgc(obj,2)}
if (obj.name == "PAQ" && 	(f.PAQ.value == ""	|| f.BULTOS.value == 0    || isNaN(f.PAQ.value)))		{fbgc(obj,1)} else if (obj.name == "PAQ" && 	(f.PAQ.value != ""		|| !isNaN(f.PAQ.value)))	{fbgc(obj,2)}
if ((f.PAQ.value == 0 && f.PAQ.value == 0 && f.BULTOS.value == 0) || (isNaN(f.BULTOS.value))){fbgc(f.BULTOS,1)} else {fbgc(f.BULTOS,3);fbgc(f.PAQ,2);fbgc(f.DOC,2);}
//if (obj.name == "BULTOS" && (f.BULTOS.value == "" 	|| f.BULTOS.value == "0" 	||isNaN(f.BULTOS.value)))	{fbgc(obj,1)} else if (obj.name == "BULTOS" && (f.BULTOS.value != "0" 	||f.BULTOS.value != "" 	|| !isNaN(f.BULTOS.value)))	{fbgc(obj,1)}
//                                                                                           //
if (obj.name == "REEMB" && 	(f.REEMB.value == "" 	|| isNaN(f.REEMB.value)))	{fbgc(obj,1)} else if (obj.name == "REEMB" && 	(f.REEMB.value != "" 	|| !isNaN(f.REEMB.value)))	{fbgc(obj,3)}
if (obj.name == "VALOR" && 	(f.VALOR.value == "" 	|| isNaN(f.VALOR.value)))	{fbgc(obj,1)} else if (obj.name == "VALOR" && 	(f.VALOR.value != "" 	|| !isNaN(f.VALOR.value)))	{fbgc(obj,3)}

if (f.CPDES.value != "" && f.NOMDES.value != "" && f.DIRDES.value != "" && f.codagen.value != "" && f.BULTOS.value != "0" && f.BULTOS.value != "" && f.Provincia.value != "Sin Provincia" && f.Provincia.value != "5 Números" && f.Provincia.value != "Solo Números"){
	BuscaRojo();
	} else {ab(1);}

//if (f.BULTOS.value == "" || f.BULTOS.value == "0" || isNaN(f.BULTOS.value))	{fbgc(obj,1);} else {fbgc(obj,3);}
//if (f.BULTOS.value != "0"|| f.BULTOS.value != ""  || !isNaN(f.BULTOS.value))	{fbgc(obj,1)}



}

function fbgc(n,c){
	switch (c){
			case 1:	n.style.backgroundColor = "red";break;
			case 2: n.style.backgroundColor = "#DED0C7";break;
			case 3: n.style.backgroundColor = "white";break;
			default:n.style.backgroundColor = "#CCCDDD";break;
		}
}

function BuscaRojo(e){
    var elLength = document.form1.elements.length;
	var ok = true;
    
	for (i=0; i<elLength; i++)
    {
        var c = form1.elements[i].style.backgroundColor;
		//alert(c);
		if (c == "red"){ok = false;}
    }
	
	if (ok == true){ab(0)}
}

function losbultos(){
	var f = window.document.form1;
	f.BULTOS.value = parseInt(f.DOC.value) + parseInt(f.PAQ.value);
}


/*function numeros(e){
	if (isNaN(e.value)){
	e.style.backgroundColor = "red";
	} else {e.style.backgroundColor = "white";}
}



function elpeso(){
	var f = window.document.form1.PESO;
	//var bg = f.style.backgroundColor;
	//f.value = parseInt(f.value) + 0;
	
	if (isNaN(f.value)){
	   //alert("Tienen que ser Números enteros");
	   f.style.backgroundColor = "red";
	} else {
	   f.style.backgroundColor = "#DED0C7";
	}
}
*/

function laProvinciayCodigo(){
	var f = window.document.form1;
	var ln = window.document.form1.PRO2.length;
	
	
	i = 0;
	pr = "";

	for (i = 0; i < ln; i++) {
		if (f.PRO2[i].selected) {
		pr = f.PRO2[i].value;
		}
	}
f.PRO.value = pr;

cp = f.CP.value.substr(0,2);
//alert(xcp);
//if (cp != pr){f.CP.style.backgroundColor = "red"; ab(1);}
//if (cp == pr){f.CP.style.backgroundColor = "#DED0C7";ab(0);}

}
// -->