//Verifica Data
	function VerData(d1){
		for (i=0; i<frm.length ; i++){
			if(d1==frm[i].name){
				pos1=i
			}
		}

		data1=frm[pos1].value
		if (data1.length>0){
			if (IsDate(data1)==false){
				alert("Data Inválida, digite no formato (dd/mm/aaaa)!")
				frm[pos1].value=""
				frm[pos1].focus()
			}
		}
	}
	
	
//Verifica Numero Válido
	function VerNum(n1){
		var pos1
		for (i=0; i<frm.length ; i++){
			if(n1==frm[i].name){
				pos1=i
			}
		}
		num1=frm[pos1].value
		num1=num1.replace(".","")
		num1=num1.replace(",",".")
		if (VerLetra(num1)==true && num1.length>0){
			alert("Numero Inválido!")
			frm[pos1].value=""
			frm[pos1].focus()
		}
		if (num1.length<1){
			frm[pos1].value="0"
		}
	}
//Verifica diferença de numero (num1 tem q ser < num2)
	function NumDif(n1,n2){
		var pos1,pos2
		for (i=0; i<frm.length ; i++){
			if(n1==frm[i].name){
				pos1=i
			}
			if(n2==frm[i].name){
				pos2=i
			}
		}

		num1=frm[pos1].value
		num1=num1.replace(".","")
		num1=num1.replace(",",".")
		//num1=parseFloat(num1)

		num2=frm[pos2].value
		num2=num2.replace(".","")
		num2=num2.replace(",",".")
		//num2=parseFloat(num2)

		if (num1.length>0 && num2.length>0){
			if (VerLetra(num1)==true || VerLetra(num2)==true){
				alert("1º Numero ou 2º Numero Inválido!")
				frm[pos1].value=""
				frm[pos2].value=""
				frm[pos1].focus()
			}else{
				if (parseFloat(num1)>=parseFloat(num2) && (num1!="0" || num2!="0")){
					alert("O 1º Numero digitado deve ser menor que o 2º Numero!")
					frm[pos1].value=""
					frm[pos2].value=""
					frm[pos1].focus()
					frm[pos1].select()
				}
			}
		}
		if (num1.length<1){
			frm[pos1].value="0"
		}
		if (num2.length<1){
			frm[pos2].value="0"
		}

	}


//Verifica diferença de data (data1 tem q ser < data2)
	function DataDif(d1,d2){
		for (i=0; i<frm.length ; i++){
			if(d1==frm[i].name){
				pos1=i
			}
			if(d2==frm[i].name){
				pos2=i
			}
		}

		data1=frm[pos1].value
		data2=frm[pos2].value
		if (data1.length>0 && data2.length>0){
			if (IsDate(data1)==false || IsDate(data2)==false){
				alert("1ª Data ou 2ª Data Inválida, digite no formato (dd/mm/aaaa)!")
				frm[pos1].value=""
				frm[pos2].value=""
				frm[pos1].focus()
			}else{
				if (fCvData(data1,1,3)>=fCvData(data2,1,3)){
					alert("A 1ª Data digitada deve ser menor que 2ª Data!")
					frm[pos1].value=""
					frm[pos2].value=""
					frm[pos1].focus()
					frm[pos1].select()
				}
			}
		}
	}
	

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// 
// IsNumeric(num)
// IsDate(data) -- valida datas no formato (dd/mm/aaaa)
// Mid(string,start,length)
// Left(string,length)
// Right(string,length)
// UCase(string)
// LCase(string)
// LTrim(string)
// RTrim(string)
// Trim(string)
//
// fCvData(pData,De,Para)
//		Esta função converte uma data (De / Para) cfe
//		numeração abaixo:
//		1 - (DD/MM/AAAA)
//		2 - (MM/DD/AAAA)
//		3 - (AAAAMMDD)
//									by SuperPro
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

function isNumeric(pNum){
// http://www.superpro.com.br
	if (pNum==''){
		return false;
	}
	for (var i = 0; i < pNum.length; i++){
		var ch = pNum.substring(i, i + 1);
		if (ch < '0' || '9' < ch){
			return false;
		}
	}
	return true;
}

function IsDate(pData){
// http://www.superpro.com.br
	if(pData.length<10 || pData.length>10){
		//alert('Data inválida\nInforme a data no formato (dd/mm/aaaa)');
		return false;
	}
	var ano = '' + pData.substring(6,10);
	var mes = '' + pData.substring(3,5);
	var dia = '' + pData.substring(0,2);
				
	if(dia>'31'){
		//alert('Data inválida');
		return false;
	}
				
	if(mes>'12'){
		//alert('Data inválida');
		return false;
	}

	if(mes=='02'){
		if(ano%4!=0 && dia>'28'){
			//alert('Data Inválida');
			return false;
		}
		else{
			if(dia>'29'){
				//alert('Data Inválida');
				return false;
			}
		}
	}
	
	if(mes<='07'){
		if(mes%2==0 && dia>'30'){
			//alert('Data inválida');
			return false;
		}
	}
	else{
		if(mes>'09'){
			if(mes%2!=0 && dia>'30'){
				//alert('Data inválida');
				return false;
			}
		}
	}
				
	return true
}

function Mid(campo,x,y){
// http://www.superpro.com.br
	var res;
	if(x>0)
		x = x-1;
	if(x+y > campo.length)
		y = campo.length
	else
		y = x + y;
	res = campo.substring(x,y);
	return res;
}
	
function Left(campo,x){
// http://www.superpro.com.br
	var res;
	if(x > campo.length)
		x = campo.length;
	res = campo.substring(0,x);
	return res;
}
	
function Right(campo,x){
// http://www.superpro.com.br
	var res;
	if(x > campo.length){
		res = campo;
		return res;
	}
	res = campo.substring(campo.length-x,campo.length);
	return res;
}
	
function UCase(campo){
// http://www.superpro.com.br
	return campo.toUpperCase()
}
	
function LCase(campo){
// http://www.superpro.com.br
	return campo.toLowerCase()
}
	
function RTrim(campo){
// http://www.superpro.com.br
	y=true;
	while(y==true){
		x = campo.length;
		if(Right(campo,1)==' '){
			campo = Left(campo,x-1);
			y=true;
		}
		else{
			y=false
		}
	}
	return campo;
}
	
function LTrim(campo){
// http://www.superpro.com.br
	y=true;
	while(y==true){
		x = campo.length-1;
		if(Left(campo,1)==' '){
			campo = Right(campo,x);
			y=true;
		}
		else{
			y=false;
		}
	}
	return campo;
}
	
function Trim(campo){
// http://www.superpro.com.br
	return RTrim(LTrim(campo));
}

function fCvData(pData,De,Para){
// 1 - (DD/MM/AAAA)
// 2 - (MM/DD/AAAA)
// 3 - (AAAAMMDD)

// http://www.superpro.com.br
	switch(De){
		case 1:{
			var ano = '' + pData.substring(6,10);
			var mes = '' + pData.substring(3,5);
			var dia = '' + pData.substring(0,2);
			break;
		}
		case 2:{
			var ano = '' + pData.substring(6,10);
			var mes = '' + pData.substring(0,2);
			var dia = '' + pData.substring(3,5);
			break;
		}
		case 3:{
			var ano = '' + pData.substring(0,4);
			var mes = '' + pData.substring(4,6);
			var dia = '' + pData.substring(6,8);
			break;
		}
	}

	if(IsDate(dia+'/'+mes+'/'+ano)!=true){
		//alert('Data inválida');
		return null;
	}

	switch(Para){
		case 1:{
			var datafinal = dia+'/'+mes+'/'+ano;
			break;
		}
		case 2:{
			var datafinal = mes+'/'+dia+'/'+ano;
			break;
		}
		case 3:{
			var datafinal = ano+mes+dia;
			break;
		}
	}
	return datafinal
}

function VerLetra(px){
	x=px
	for (i=0; i<x.length; i++){
		if (x.substring(i,i+1)!='0' && x.substring(i,i+1)!='1' && x.substring(i,i+1)!='2' && x.substring(i,i+1)!='3' && x.substring(i,i+1)!='4' && x.substring(i,i+1)!='5' && x.substring(i,i+1)!='6' && x.substring(i,i+1)!='7' && x.substring(i,i+1)!='8' && x.substring(i,i+1)!='9' && x.substring(i,i+1)!=',' && x.substring(i,i+1)!='.'){
			return true
			i=x.length+2
		}
	}
	return false
}