function numeralsOnly (currv, evt, decimal)
{
	evt = (evt) ? evt : event;
	var charCode = (evt.charCode) ? evt.charCode : ((evt.keyCode) ? evt.keyCode : ((evt.which) ? evt.which : 0));
	if (charCode > 31 && (charCode < 48 || charCode > 57) && charCode != 46)
	{
		return false;
	}
	if (charCode == 46)
	{
		if (decimal == 0)
		{
			return false;
		}
		else
		{
			if (currv.indexOf(".") != -1)
			{
				return false;
			}
		}
	}
	else if (currv.indexOf(".") != -1)
	{
		var s = currv.substring(currv.indexOf("."));
		if (s.length > decimal)
		{
			return false;
		}
	}
	return true;
}
function validar(form)
{
	if (form.pedido.value == "")
	{
		alert("Debe suministrar el numero de su pedido.");
		return (false);
	}
	var stripped1 = form.pedido.value.replace(/[\(\)\.\-\ ]/g, '');
	if (isNaN(parseInt(stripped1)))
	{
		alert("El numero de su pedido contiene caracteres no validos.");
		return (false);
	}
	if (form.email.value == "")
	{
		alert("Debe suministrar el email utilizado al momento de realizar el pedido.");
		return (false);
	}
	var email = form.email.value.toLowerCase()
	var domain = email.substr(email.indexOf('@') + 1,email.length)

	if (domain == "cantv.net")
	{
		alert("Debe suministrar otro email que no sea una cuenta de CANTV.NET");
		return (false);
	}
	if (domain == "mipunto.com")
	{
		alert("Debe suministrar otro email que no sea una cuenta de MIPUNTO.COM");
		return (false);
	}
	if (domain == "pdvsa.com")
	{
		alert("Debe suministrar otro email que no sea una cuenta de PDVSA.COM");
		return (false);
	}
	var checkTLD=1;
	var knownDomsPat=/^(com|net|org|edu|int|mil|gov|gob|arpa|biz|aero|name|coop|info|pro|museum)$/;
	var emailPat=/^(.+)@(.+)$/;
	var specialChars="\\(\\)><@,;:\\\\\\\"\\'\\.\\[\\]";
	var validChars="\[^\\s" + specialChars + "\]";
	var quotedUser="(\"[^\"]*\")";
	var ipDomainPat=/^\[(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})\]$/;
	var atom=validChars + '+';
	var word="(" + atom + "|" + quotedUser + ")";
	var userPat=new RegExp("^" + word + "(\\." + word + ")*$");
	var domainPat=new RegExp("^" + atom + "(\\." + atom +")*$");
	var matchArray=email.match(emailPat);
	if (matchArray==null)
	{
		alert("Debe escribir una direccion de correo valida.");
		return false;
	}
	var user=matchArray[1];
	var domain=matchArray[2];
	for (i=0; i<user.length; i++)
	{
		if (user.charCodeAt(i)>127)
		{
			alert("La direccion de correo contiene caracteres no validos en el usuario.");
			return false;
		}
	}
	for (i=0; i<domain.length; i++)
	{
		if (domain.charCodeAt(i)>127)
		{
			alert("La direccion de correo contiene caracteres no validos en el dominio.");
			return false;
		}
	}
	if (user.match(userPat)==null)
	{
		alert("Debe escribir un nombre de usuario valido en el email.");
		return false;
	}
	var IPArray=domain.match(ipDomainPat);
	if (IPArray!=null)
	{
		for (var i=1;i<=4;i++)
		{
			if (IPArray[i]>255)
			{
				alert("La direccion IP de destino del email es invalida.");
				return false;
			}
		}
		return true;
	}
	var atomPat=new RegExp("^" + atom + "$");
	var domArr=domain.split(".");
	var len=domArr.length;
	for (i=0;i<len;i++)
	{
		if (domArr[i].search(atomPat)==-1)
		{
			alert("Debe escribir un dominio valido en el email.");
			return false;
		}
	}
	if (checkTLD && domArr[domArr.length-1].length!=2 && domArr[domArr.length-1].search(knownDomsPat)==-1)
	{
		alert("El email debe terminar en un dominio conocido o en un subdominio de " + "pais.");
		return false;
	}
	if (len<2)
	{
		alert("Esta direccion de correo no representa un nombre de dominio.");
		return false;
	}
	if (form.operacion.selectedIndex=="0")
	{
		alert("Debe seleccionar la forma de pago utilizada.");
		return (false);
	}
	if (form.banco.selectedIndex=="0")
	{
		alert("Debe seleccionar el banco donde realizo el pago.");
		return (false);
	}
	if (form.numero.value == "")
	{
		alert("Debe suministrar el numero del bauche o de referencia de su pago.");
		return (false);
	}
	var stripped2 = form.numero.value.replace(/[\(\)\.\-\ ]/g, '');
	if (isNaN(parseInt(stripped2)))
	{
		alert("El numero del bauche o de referencia contiene caracteres no validos.");
		return (false);
	}
	if (stripped2.length < "9")
	{
		alert("El numero del bauche o de referencia debe constar de al menos 9 digitos. Complete con 0 a la izquierda de ser necesario.");
		return (false);
	}
	if (form.fecha.value == "")
	{
		alert("Debe suministrar la fecha en que realizo el pago.");
		return (false);
	}
}