function INI_VAL()
{	
	
	var OBJS = document.getElementsByTagName('input');
	var elements = new Array();
	
	for (var x = 0; x < OBJS.length; x++) 
	{
		if (OBJS[x].type == "text") 
		{
			OBJS[x].onkeypress = function(){return VAL(this);};
		}
	}	
	
	OBJS = document.getElementsByTagName('textarea');
	elements = new Array();	
	for (x = 0; x < OBJS.length; x++) 
	{
			OBJS[x].onkeypress = function(){return VAL(this);};
	}	
}

function VAL(OBJ)
{
	
	var EXP;
	var DECIMALES;
	var TMP_NUM = new String();
	var TMP_DEC = new String();	
	if (typeof(OBJ.TIPO) != "undefined")
	{
		switch (OBJ.TIPO)
		{	
			case 'A': 
				EXP = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz ";
				RESPUESTA = VAL_(OBJ,EXP)
				break
			case '9':
				EXP = "0123456789";
				RESPUESTA = VAL_(OBJ,EXP)
				if ((typeof(OBJ.DECIMALES) != "undefined") && (typeof(OBJ.CAR_DECIMAL) != "undefined"))
				{	
					DECIMALES  = OBJ.DECIMALE;
					if (RESPUESTA)
					{
							
						TMP_NUM = OBJ.value;
						if (TMP_NUM.indexOf(OBJ.CAR_DECIMAL) != -1)
						{
							var TECLA = window.event.keyCode; 
							var CARACTER = String.fromCharCode(TECLA);
							if (CARACTER == OBJ.CAR_DECIMAL)
							{
								RESPUESTA = false;
							}else{
								TMP_DEC = TMP_NUM.substring(TMP_NUM.indexOf(OBJ.CAR_DECIMAL)+1,TMP_NUM.length);
								if (TMP_DEC.length >= OBJ.DECIMALES)
									RESPUESTA = false;
							}
						}
						
						
					}
				}
				
				
				
				break
			case 'A9':
				EXP = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZabcdefghijklmnñopqrstuvwxyz0123456789 ";
				RESPUESTA = VAL_(OBJ,EXP)
				break
			default:
				EXP = "'" + '"' ;
				RESPUESTA = VAL_BASURA(OBJ,EXP)
				break
		}
	}else{
		return;	
	}
	event.returnValue = RESPUESTA;

}

function VAL_(OBJ,EXP_)
{
	var TXT 		= new String();
	var TXT_ESP 	= new String();
	var EXP 		= EXP_;
	
	if (typeof(OBJ.CARACTER) != "undefined")
		EXP += OBJ.CARACTER;

	var TECLA = window.event.keyCode; 
	TXT = String.fromCharCode(TECLA);
	
	if (EXP.indexOf(TXT) == -1 )
		return false;	

		return true
}

function VAL_BASURA(OBJ,EXP_)
{
	var TXT 		= new String();
	var TXT_ESP 	= new String();
	var EXP 		= EXP_

	var TECLA = window.event.keyCode; 
	TXT = String.fromCharCode(TECLA);
	
	if (EXP.indexOf(TXT) >= 0 )
		return false;	

		return true
}