/*
Description: limita o tamanho de um campo. Se for determinado um valor
para strMsg será executado um alerta com o mesmo e se for detrminado um
valor para strFocus o mesmo receberá o foco do form.
ex: this.form.Nome_do_campo
Imput: objThis=objeto que será validado em "onkeyup" por exemplo. ex: this - não permite nulo;
	   intSize=inteiro com o tamanho máximo do campo - não permite nulo;
	   strMsg=string com a mensagem de alerta - permite nulo;
	   strFocus=objéto que receberá o foco depois da execução da função - permite nulo;
author: Alexandre Zarich <a_zarich@hotmail.com>
last update: Alexandre Zarich 13/04/02
*/
function verifySize(objThis,intSize,strMsg,strFocus) {
	strError=''; strIntSize=intSize+'';
	if(objThis!="[object]")strError='- objThis não é um objéto válido\n';
	if(!verifyInt(intSize,'')|| intSize=='')strError=strError+'- intSize não é um tamanho válido\n';
	if(strFocus!='' && strFocus!="[object]")strError=strError+'- strFocus não é um objéto válido\n';
	if(strError==''){
		if(objThis.value.length>intSize-1){
			if(strMsg.length>0)alert(strMsg);
			if(strFocus.value.length>0)strFocus.focus();
			objThis.value=objThis.value.substr(0,intSize-1);
		}
	}else{
		alert('DEBUG ERROR\nForam encontrados os seguintes erros\nna execução da função verifySize():\n'+strError)
	}
}

/*
Description: retorna false se o vntVar não for um número inteiro e apresenta
menssagem de erro caso strMsg não for nulo, caso contrário retorna true. 
Obs: caso o valor nulo retorna true.
Imput: vntVar=variante - permite nulo;
	   strMsg=string com a mensagem de alerta - permite nulo;
author: Alexandre Zarich <a_zarich@hotmail.com>
last update: Alexandre Zarich 13/04/02
*/
function verifyInt(vntVar,strMsg) {
	strVntVar=vntVar+''
	if(isNaN(vntVar) || strVntVar.indexOf(' ')>=0 || strVntVar.indexOf('.')>=0){
		if(strMsg.length>0)alert(strMsg);
		return false
	}else{
		return true
	}
}