/*
*****************************************************************************************************************
* Data Início	     :	Goiânia, quarta-feira, 10 de maio de 2000 às 15:02 hs                                   *
* Data Fim	     :	Goiânia, quarta-feira, 10 de maio de 2000 às 16:00 hs                                   *
* Data de Atualização:	                                                                                        *
* Autor		     :	Marcelo de Oliveira Assis                                                               *
* Objetivo	     :	Validar entrada de caracteres em locais que só permite números                          *
*		     	Exemplo : 01/12/2000                                                                    *
* Nome		     :	Function BarraCaracteres( )                                                             *
* Padrões	     :	. Cabeçalho em toda função, com as informações acima                                    *
*			. Nome da função sempre intuitiva, com iniciais maiúsculas, sem espaços, sem sublinha   *
*			. Variáveis sempre declaradas, com a seguinte nomenclatura :                            *
*				- V - Variáveis - Início de todo nome de variável                               *
*				- P - Parâmetro - Variável de parâmetro                                         *
*				- Nome - Sempre intuitivo, com as iniciais maiúsculas, sem espaços, sem sublinha*
*				- VNomeRazaoSocial - nome ou razão social de um contribuinte                    *
*			. Marcar todo inicío e final de bloco com a seguinte nomenclatura :                     *
*				- F01 - início e final da primeira função, 02 para a segunda, etc . . .         *
*				- I01 - início e final do primeiro if, 02 para o segundo, etc . . .             *
*****************************************************************************************************************													. Nome da função sempre intuitiva, com iniciais maiúsculas, sem espaços, sem sublinha
*/
/* ----------------------------------------------------------------------------------------------------------------- INÍCIO DA FUNÇÃO */
function BarraCaracteres(VPParametro, VPMensagem)
{ // F01

	/* ----------------------------------------------------------------------------------------------------- Declaração de Variáveis */
	var VParametro = VPParametro; // Número a ser validado, recebe o valor como parâmetro
	var VMensagem = VPMensagem; // Nome do campo a ser validado
	var VTamanho = VParametro.length; // Tamanho do número a ser validado
	var VCaracter; // Recebe cada caracter do o número a ser validado
	var VNumeros; // Caracteres aceitos, ou seja, caracteres que podem ser digitados
	var VValor; // Recebe um valor "0" ou "-1"

	/* ------------------------------------------------------------------ Laço de validação de cada caracter digitado */	
	for (X = 0; X < VTamanho; X++)
	{ // Fo01
		VNumeros = "0123456789" // Atribuição dos caracteres validos
		VCaracter = VParametro.charAt(X);
		VValor = VNumeros.indexOf(VCaracter.toUpperCase());

		/* -------------------------------------------------------------- Início da validação de cada caracter digitado */
		if (VValor == "-1")
		{ // I01
			alert('Digite apenas números no campo ' + VMensagem + '. Exclua "pontos", "virgulas", "traços" e "espaço"')
			return false;
		} // I01

	} // Fo01

	return true;
} // F01