/*
function AlertaControl(vrCadena){
function Esta_Campo_Vacio(vrCampo){

function Comprobar_Formato(vrCampo,vrExpresion){

function HoyDMY(){
function HoyYMD(){
	 
function Formato_Especial(vrFormatoCampo,vrValorCampo,vrVariables){
function Formato_Decimal(vrNumero,vrNumeroDecimales){
function Formato_Hora(vrHora){ 
function Formato_Fecha(vrFecha){ 
function Formato_Fecha_DMY(vrFecha){ 
function Formato_Fecha_YMD(vrFecha){ 

function Comprobar_Formato_Texto(vrTexto){
function Comprobar_Formato_Dia(vrDia){
function Comprobar_Formato_Mes(vrMes){
function Comprobar_Formato_Hora(vrHora){
function Comprobar_Formato_Hora_HMS(vrHora){
function Comprobar_Formato_Numero_Natural(vrNumero){
function Comprobar_Formato_Numero_Entero(vrNumero){
function Comprobar_Formato_Numero_Decimal(vrNumero){
function Comprobar_Formato_Fecha_DM(vrFecha){
function Comprobar_Formato_Fecha_DMY(vrFecha){
function Comprobar_Formato_CorreoElectronico(vrCorreoElectronico){
function Comprobar_Formato_DNI(vrDNI){
function Comprobar_Formato_CIF(vrCIF){ 
function Comprobar_Formato_CP(vrCP){ 
function Comprobar_Formato_NumeroTelefono(vrNumeroTelefono){ 
function Comprobar_Formato_Fax(vrFax){ 
function Comprobar_Formato_URL(vrURL){
function Comprobar_Formato_CuentaBancaria(vrEntidad,vrOficina,vrDC,vrNumeroCuenta){ 
function DigitoDeControlEn_CuentaBancaria(vrValor){
function Comprobar_Formato_SMS(vrSMS){
	
function Validar_Fecha_DMY(vrFecha){
function Validar_Fecha_YMD(vrFecha){
function Validar_Fecha(vrDia,vrMes,vrAnio){
function Validar_Ano_Bisiesto(vrAnio){
function Validar_HoraA_Igual_HoraB(vrHoraA,vrHoraB){
function Validar_HoraA_Mayor_HoraB(vrHoraA,vrHoraB){
function Validar_FechaA_Igual_FechaB(vrFechaA,vrFechaB){
function Validar_FechaA_Mayor_FechaB(vrFechaA,vrFechaB){
	
function AjustarFormatoHora(Objeto)      
	//Funcion que te devuelve la hora en formato HH:MM cuando la mandas como HH.MM o HH-MM o HH,MM
	//Hay que mandar el objeto completo: Ej:    --  onBlur='AjustarFormatoHora(this)'
*/

function Get_DiaDeLaSemana(vrFecha){

	var x = new Array("V", "S", "D", "L", "M", "X", "J");
	vrDia = "";
/*	var d = new Date(vrFecha); //YYYY/MM/DD
	day = d.getUTCDay();
	vrDias = x[day];
*/
return vrDia;
	
}
////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function AlertaControl(vrCadena){
	alert('PUNTO DE CONTROL: ' + vrCadena);
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function HoyDMY(){

var vrHoy = new Date(); //YYYY/MM/DD

var vrMes = vrHoy.getMonth() + 1;
var vrDia = vrHoy.getDate();
var vrAnio = vrHoy.getFullYear();

vrHoy =  parseFloat(vrDia) + "/" +  parseFloat(vrMes) + "/" +  parseFloat(vrAnio);

return vrHoy
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function HoyYMD(){

var vrHoy = new Date(); //YYYY/MM/DD

var vrMes = vrHoy.getMonth() + 1;
var vrDia = vrHoy.getDate();
var vrAnio = vrHoy.getFullYear();

vrHoy =  parseFloat(vrAnio) + "/" +  parseFloat(vrMes) + "/" +  parseFloat(vrDia);

return vrHoy
}


////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Esta_Campo_Vacio(vrCampo){ 
	
	if (!vrCampo || vrCampo == ""){
		return true;
	}
	
return false;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Formato_Especial(vrFormatoCampo,vrValorCampo,vrVariables){ 

	vrNuevoFromato = vrValorCampo;

	if (vrFormatoCampo==""){
		return vrNuevoFromato;
	}
	
	arVariables = vrVariables.split('|');
	
	switch(vrFormatoCampo){
		case "especial": 
			//Definifir acciones para el formato especial
	}

return vrNuevoFormato;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Formato_Decimal(vrNumero,vrNumeroDecimales){ 

	vrNuevoFormato = vrNumero;
	
	vrNumAux1 = vrNumero.replace(/\,/, ".");
	vrNumAux2  = new Number(vrNumAux1);	

	vrNuevoFormato = vrNumAux2.toFixed(vrNumeroDecimales);

return vrNuevoFormato;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Formato_Hora(vrHora){ 

	vrHoraAux = vrHora.replace(/\./, ":");
	
	vrNuevoFormato = vrHoraAux;

return vrNuevoFormato;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Formato_Fecha(vrFecha){ 

	vrNuevoFormato = vrFecha;
	
	vrNuevoFormato = vrNuevoFormato.replace(/\./g, "/");
	vrNuevoFormato = vrNuevoFormato.replace(/\-/g, "/");

return vrNuevoFormato;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Formato_Fecha_YMD(vrFecha){ 

	vrFechaAux = Formato_Fecha(vrFecha);
		
	arFecha=vrFechaAux.split('/');
	
	vrDia  = arFecha[0];
	vrMes  = arFecha[1];
	vrAnio = arFecha[2];

	vrNuevoFormato = vrAnio + '/' + vrMes + '/' + vrDia;

return vrNuevoFormato;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Formato_Fecha_DMY(vrFecha){ 

	vrFechaAux = Formato_Fecha(vrFecha);
	
	arFecha=vrFechaAux.split('/');
	
	vrDia  = arFecha[2];
	vrMes  = arFecha[1];
	vrAnio = arFecha[0];

	vrNuevoFormato = vrDia + '/' + vrMes + '/' + vrAnio;

return vrNuevoFormato;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato(vrCampo,vrExpresion){ 

	if (vrExpresion!=''){
		if (!(vrExpresion.test(vrCampo))){
			return false;
		}
	}
			
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Texto(vrTexto){ 
				
	vrExpresion="";

	if(!Comprobar_Formato(vrTexto,vrExpresion)){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Dia(vrDia){ 
				
	vrExpresion=/^([1-9]|0[1-9]|1[0-9]|2[0-9]|3[0-1])$/;

	if(!Comprobar_Formato(vrDia,vrExpresion)){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Mes(vrMes){ 
				
	vrExpresion=/^([1-9]|0[1-9]|1[0-2])$/;
	
	if(!Comprobar_Formato(vrMes,vrExpresion)){
		return false;
	}
		
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Hora(vrHora){ 
	
	vrExpresion=/^[0-9]{1,2}\:[0-9]{2,2}$/;
	
	vrHora = Formato_Hora(vrHora);
	
	arHora=vrHora.split(':');

	if(!Comprobar_Formato(vrHora,vrExpresion)){
		return false;
	}
	
	if (parseFloat(arHora[0])==0 && parseFloat(arHora[1])==0){
		return false;
	}

	if (parseFloat(arHora[0])<0 || parseFloat(arHora[0])>=24){
		return false;
	}

	if(parseFloat(arHora[1])<0 || parseFloat(arHora[1])>=60){
		return false;		
	}

return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Hora_HMS(vrHora){ 
	
	vrExpresion=/^[0-9]{1,2}\:[0-9]{2,2}\:[0-9]{2,2}$/;
	
	vrHora = Formato_Hora(vrHora);
	
	arHora=vrHora.split(':');

	if(!Comprobar_Formato(vrHora,vrExpresion)){
		return false;
	}

	if (parseFloat(arHora[0])==0 && parseFloat(arHora[1])==0){
		return false;
	}

	if (parseFloat(arHora[0])<0 || parseFloat(arHora[0])>=24){
		return false;
	}

	if(parseFloat(arHora[1])<0 || parseFloat(arHora[1])>=60){
		return false;		
	}
	
	if(parseFloat(arHora[2])<0 || parseFloat(arHora[2])>=60){
		return false;		
	}

return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Numero_Natural(vrNumero){ 
	
	vrExpresion=/^\d+$/;
	
	if(!Comprobar_Formato(vrNumero,vrExpresion)){
		return false;
	}

return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Numero_Entero(vrNumero){ 
	
	vrExpresion=/^(-)?\d+$/;
	
	if(!Comprobar_Formato(vrNumero,vrExpresion)){
		return false;
	}

return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Numero_Decimal(vrDecimal){ 
	
	vrExpresion=/^(-)?\d+(\.\d+)?$/;
	
	vrDecimal = Formato_Decimal(vrDecimal,2);
		
	if(!Comprobar_Formato(vrDecimal,vrExpresion)){
		return false;
	}

return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Fecha_DMY(vrFecha){ 
	
	vrExpresion=/^\d{1,2}\/\d{1,2}\/\d{2,4}$/;// Para formato (dd/mm/yyyy)

	vrFecha = Formato_Fecha(vrFecha);

	if(!Comprobar_Formato(vrFecha,vrExpresion)){
		return false;
	}
	
	if (!Validar_Fecha_DMY(vrFecha)){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Fecha_DM(vrFecha){ 
	
	vrExpresion=/^\d{1,2}\/\d{1,2}$/;// Para formato (dd/mm)

	if(!Comprobar_Formato(vrFecha,vrExpresion)){
		return false;
	}
	
	if (!Validar_Fecha_DMY(vrFecha + '/2001')){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_CorreoElectronico(vrCorreoElectronico){ 
	
	vrExpresion=/[\w-\.]{2,}@([\w-]{1,}\.)*([\w-]{1,}\.)[\w-]{2,4}/;

	if(!Comprobar_Formato(vrCorreoElectronico,vrExpresion)){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
/*function Comprobar_Formato_DNI(vrDNI){ 
	
	vrExpresion=/^\d{8}$/;

	if(!Comprobar_Formato(vrDNI,vrExpresion)){
		return false;
	}
	
return true;
}*/
function Comprobar_Formato_DNI(vrDNI) 
{
  numero = vrDNI.substr(0,vrDNI.length-1);
  let = vrDNI.substr(vrDNI.length-1,1);
  let = let.toUpperCase()
  numero = numero % 23;
  letra='TRWAGMYFPDXBNJZSQVHLCKET';
  letra=letra.substring(numero,numero+1);
  if (letra!=let) 
    return false;
  else
  	return true;
}


////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_CIF(vrCIF){ 
	
	vrExpresion=/^[ABCDEFGHKLMNPQS]\d\d\d\d\d\d\d[0-9,A-J]$/;

	if(!Comprobar_Formato(vrCIF,vrExpresion)){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_CP(vrCP){ 
	
	vrExpresion=/^\d\d\d\d\d$/;

	if(!Comprobar_Formato(vrCP,vrExpresion)){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_NumeroTelefono(vrNumeroTelefono){ 
	
	vrExpresion=/^\d{9,11}$/;

	if(!Comprobar_Formato(vrNumeroTelefono,vrExpresion)){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_Fax(vrFax){ 
	
	vrExpresion=/^\d{9,11}$/;

	if(!Comprobar_Formato(vrFax,vrExpresion)){
		return false;
	}
	
return true;
}


////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_URL(vrURL){ 
	
	vrExpresion=/^(http|ftp)(s)?:\/\/\w+(\.\w+)*(-\w+)?\.([a-z]{2,3})(:\d{2,5})?(\/)?((\/).+)?$/;

	if(!Comprobar_Formato(vrURL,vrExpresion)){
		return false;
	}
	
return true;
}

//////////////////////////////////////////////////////////////////////////////////////////////////////////
function Comprobar_Formato_CuentaBancaria(vrEntidad,vrOficina,vrDC,vrNumeroCuenta){ 
	
	
	if (vrEntidad.length != 4 || vrOficina.length != 4 || vrDC.length != 2 || vrNumeroCuenta.length != 10)
	{
		return false
	}	

	if (!Comprobar_Formato_Numero_Natural(vrEntidad) || !Comprobar_Formato_Numero_Natural(vrOficina) || !Comprobar_Formato_Numero_Natural(vrDC) || !Comprobar_Formato_Numero_Natural(vrNumeroCuenta))
	{
		return false
	}	

	if (!(DigitoDeControlEn_CuentaBancaria("00" + vrEntidad + vrOficina) == parseFloat(vrDC.charAt(0))) || !(DigitoDeControlEn_CuentaBancaria(vrNumeroCuenta) == parseFloat(vrDC.charAt(1))))
	{
		return false
	}	

return true;
}

function DigitoDeControlEn_CuentaBancaria(vrValor)
{
	arValores = new Array(1, 2, 4, 8, 5, 10, 9, 7, 3, 6);

	vrControl = 0;
	
	for (i=0; i<=9; i++)
		vrControl  += parseFloat(vrValor.charAt(i)) * arValores[i];
	
	vrControl  = 11 - (vrControl  % 11);
	
	if (vrControl  == 11)
		vrControl  = 0;
	else if (vrControl  == 10) 
		vrControl  = 1;
	
	return vrControl ;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Comprobar_Formato_SMS(vrSMS){
	
	alert("Comprobar_Formato_SMS")

return false;
}


////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_Fecha_DMY(vrFecha){

	arFecha=vrFecha.split('/');
	
	vrDia  =  parseFloat(arFecha[0]);
	vrMes  =  parseFloat(arFecha[1]);
	vrAnio =  parseFloat(arFecha[2]);

	if(!Validar_Fecha(vrDia,vrMes,vrAnio)){
		return false;		
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_Fecha_YMD(vrFecha){

	arFecha=vrFecha.split('/');
	
	vrDia  =  parseFloat(arFecha[2]);
	vrMes  =  parseFloat(arFecha[1]);
	vrAnio =  parseFloat(arFecha[0]);
	
	if(!Validar_Fecha(vrDia,vrMes,vrAnio)){
		return false;		
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_Fecha(vrDia,vrMes,vrAnio){
	
	vrMaxDiasMes=0;
	
	switch(vrMes){
		case 1: case 3: case 5:	case 7:	case 8: case 10: case 12:
			vrMaxDiasMes=31;
			break;
        case 4: case 6: case 9: case 11:
            vrMaxDiasMes=30;
            break;
        case 2:
            if (Validar_Ano_Bisiesto(vrAnio)){
				vrMaxDiasMes=29 
			}else{ 
				vrMaxDiasMes=28
			}
            break;
        default:
            return false;
	}
	
	if (vrDia>vrMaxDiasMes || vrDia==0){
		return false;
	}
	
return true;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_FechaA_Mayor_FechaB(vrFechaA,vrFechaB){

	vrFechaAuxA = new Date(vrFechaA);
	vrFechaAuxB = new Date(vrFechaB);
	
	if (vrFechaAuxA > vrFechaAuxB) {
		return true;
	}

return false;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_FechaA_Igual_FechaB(vrFechaA,vrFechaB){
	
	vrFechaAuxA = new Date(vrFechaA);
	vrFechaAuxB = new Date(vrFechaB);
	
	if (vrFechaAuxA == vrFechaAuxB) {
		return true;
	}


return false;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_HoraA_Mayor_HoraB(vrHoraA,vrHoraB){
	
	arHoraA = vrHoraA.split(':');
	arHoraB = vrHoraB.split(':');
	
	if (arHoraA[0]<arHoraB[0] || (arHoraA[0]==arHoraB[0] && arHoraA[1]<arHoraB[1])){
		//No hacer nada
	}
	else if (arHoraA[0]>arHoraB[0] || (arHoraA[0]==arHoraB[0] && arHoraA[1]>arHoraB[1])){
		return true;
	}
	
return false;
}

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_HoraA_Igual_HoraB(vrHoraA,vrHoraB){
	
	arHoraA = vrHoraA.split(':');
	arHoraB = vrHoraB.split(':');

	if (arHoraA[0]==arHoraB[0] && arHoraA[1]==arHoraB[1]){
		return true;
	}
	
return false;
}
	

////////////////////////////////////////////////////////////////////////////////////////////////////////// 
function Validar_Ano_Bisiesto(vrAnio){
	
	if (( vrAnio % 100 != 0) && ((vrAnio % 4 == 0) || (vrAnio % 400 == 0))) {
		return true;
	}
	else {
		return false;
	}
	
}

function AjustarFormatoHora(objeto)
{
	hora=objeto.value
	horafinal='';
	for(i=0;i<hora.length;i++)
	{
		if(i==2)
		{
			if(hora.substring(i,i+1)==":")
				horafinal=horafinal + hora.substring(i,i+1)
			else if(hora.substring(i,i+1)=="." || hora.substring(i,i+1)=="_" || hora.substring(i,i+1)==";" || hora.substring(i,i+1)=="," || hora.substring(i,i+1)=="-")
			{
				horafinal=horafinal + ":"
			}
			else
			{
				horafinal=horafinal + ":"
				horafinal=horafinal + hora.substring(i,i+1)
			}
		}
		else
		{
			horafinal=horafinal + hora.substring(i,i+1)
		}
	}
	objeto.value=horafinal
}