function ver_senha(formulario){if((formulario.senha.value||formulario.l_senha.value)==""){alert("É necessário informar senha nos dois campos !");formulario.senha.focus();}else{if(formulario.senha.value!=formulario.l_senha.value){alert("Caro usuário, a senha digitada não confere.\n\n Por favor tente novamente.");formulario.l_senha.value='';formulario.senha.value='';formulario.senha.focus();}else{formulario.senha.value=hex_md5(formulario.senha.value);formulario.submit();}}}
function valida_mail(formulario){if((formulario.F_CC_EMAIL.value||formulario.F_CC_EMAIL_LOCAL.value)==""){alert("É necessário informar seu e-mail nos dois campos !");formulario.F_CC_EMAIL.focus();}else{if(formulario.F_CC_EMAIL.value!=formulario.F_CC_EMAIL_LOCAL.value){alert("Os E-Mails digitados não conferem.\n Por favor insira novamente.");formulario.F_CC_EMAIL_LOCAL.value='Digite novamente !';formulario.F_CC_EMAIL_LOCAL.focus();formulario.F_CC_EMAIL_LOCAL.select();formulario.F_CC_EMAIL.value='';}}}
function ver_cadastro(formulario){var arr_str_campos=new Array(formulario.razao_social.value,formulario.nome_fantasia.value,formulario.responsavel.value,formulario.cnpj.value,formulario.telefone.value,formulario.endereco.value,formulario.bairro.value,formulario.cep.value,formulario.cidade.value,formulario.estado.value);for(var i in arr_str_campos){if(arr_str_campos[i]==''){status=0;}else{status=1;}}
if(status==0){alert("É necessário preencher todos os campos deste formulário !");}else{formulario.submit();}}
function ver_cadastro_devedor(formulario){var arr_str_campos=new Array(formulario.nome.value,formulario.rg.value,formulario.cpf.value,formulario.telefone.value,formulario.endereco.value,formulario.bairro.value,formulario.cep.value,formulario.cidade.value,formulario.estado.value);for(var i in arr_str_campos){if(arr_str_campos[i]==''){status=0;}else{status=1;}}
if(status==0){alert("É necessário preencher todos os campos !");}else{formulario.submit();}}
function editar_cadastro_devedor(formulario,tipo){if(tipo=='excluir'){if(confirm("Deseja Realmente excluir este cadastro ?\n\nLocadora Responsável: "+formulario.l_user_nome_fantasia.value+"\nCódigo de Cadastro: "+formulario.id_pub_devedor.value+"\nNome: "+formulario.nome.value)==true){formulario.submit();}}
if(tipo=='salvar'){formulario.submit();}}
function tamanho_fonte(formulario){for(i=0;i<formulario.elements.length;i++){if(!(formulario.elements[i].type=="hidden"||formulario.elements[i].type=="button")){formulario.elements[i].value=formulario.elements[i].value.toUpperCase();}}
formulario.submit();}
function campo_numerico(){if(event.keyCode<45||event.keyCode>57)event.returnValue=false;}
function cnpj_cpf(campo,documento,f,formi){form=formi;for(Count=0;Count<2;Count++){if(form.rad[Count].checked)
break;}
if(Count==0){mascara_cnpj(campo,documento,f);}
else{mascara_cpf(campo,documento,f);}}
function mascara_cnpj(campo,documento,f){var mydata='';mydata=mydata+documento;if(mydata.length==2){mydata=mydata+'.';ct_campo=eval("document."+f+"."+campo+".value = mydata");ct_campo;}
if(mydata.length==6){mydata=mydata+'.';ct_campo=eval("document."+f+"."+campo+".value = mydata");ct_campo;}
if(mydata.length==10){mydata=mydata+'/';ct_campo1=eval("document."+f+"."+campo+".value = mydata");ct_campo1;}
if(mydata.length==15){mydata=mydata+'-';ct_campo1=eval("document."+f+"."+campo+".value = mydata");ct_campo1;}
if(mydata.length==18){valida_cnpj(f,campo);}}
function mascara_cpf(campo,documento,f){var mydata='';mydata=mydata+documento;if(mydata.length==3){mydata=mydata+'.';ct_campo=eval("document."+f+"."+campo+".value = mydata");ct_campo;}
if(mydata.length==7){mydata=mydata+'.';ct_campo=eval("document."+f+"."+campo+".value = mydata");ct_campo;}
if(mydata.length==11){mydata=mydata+'-';ct_campo1=eval("document."+f+"."+campo+".value = mydata");ct_campo1;}
if(mydata.length==14){valida_cpf(f,campo);}}
function valida_cnpj(f,campo){pri=eval("document."+f+"."+campo+".value.substring(0,2)");seg=eval("document."+f+"."+campo+".value.substring(3,6)");ter=eval("document."+f+"."+campo+".value.substring(7,10)");qua=eval("document."+f+"."+campo+".value.substring(11,15)");qui=eval("document."+f+"."+campo+".value.substring(16,18)");var i;var numero;var situacao='';numero=(pri+seg+ter+qua+qui);s=numero;c=s.substr(0,12);var dv=s.substr(12,2);var d1=0;for(i=0;i<12;i++){d1+=c.charAt(11-i)*(2+(i%8));}
if(d1==0){var result="falso";}
d1=11-(d1%11);if(d1>9)d1=0;if(dv.charAt(0)!=d1){var result="falso";}
d1*=2;for(i=0;i<12;i++){d1+=c.charAt(11-i)*(2+((i+1)%8));}
d1=11-(d1%11);if(d1>9)d1=0;if(dv.charAt(1)!=d1){var result="falso";}
if(result=="falso"){alert("CNPJ inválido!");aux1=eval("document."+f+"."+campo+".focus");aux2=eval("document."+f+"."+campo+".value = ''");}}
function valida_cpf(f,campo){pri=eval("document."+f+"."+campo+".value.substring(0,3)");seg=eval("document."+f+"."+campo+".value.substring(4,7)");ter=eval("document."+f+"."+campo+".value.substring(8,11)");qua=eval("document."+f+"."+campo+".value.substring(12,14)");var i;var numero;numero=(pri+seg+ter+qua);s=numero;c=s.substr(0,9);var dv=s.substr(9,2);var d1=0;for(i=0;i<9;i++){d1+=c.charAt(i)*(10-i);}
if(d1==0){var result="falso";}
d1=11-(d1%11);if(d1>9)d1=0;if(dv.charAt(0)!=d1){var result="falso";}
d1*=2;for(i=0;i<9;i++){d1+=c.charAt(i)*(11-i);}
d1=11-(d1%11);if(d1>9)d1=0;if(dv.charAt(1)!=d1){var result="falso";}
if(result=="falso"){alert("CPF inválido!");aux1=eval("document."+f+"."+campo+".focus");aux2=eval("document."+f+"."+campo+".value = ''");}}
function ver_mail(nform){if(nform.F_CC_EMAIL.value==""){alert("Informe seu e-mail.");nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}else{prim=nform.F_CC_EMAIL.value.indexOf("@")
if(prim<2){alert("O e-mail informado parece não estar correto.");nform.F_CC_EMAIL.value="Digite Novamente";nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}
if(nform.F_CC_EMAIL.value.indexOf("@",prim+1)!=-1){alert("O e-mail informado parece não estar correto.");nform.F_CC_EMAIL.value="Digite Novamente";nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}
if(nform.F_CC_EMAIL.value.indexOf(".")<1){alert("O e-mail informado parece não estar correto.");nform.F_CC_EMAIL.value="Digite Novamente";nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}
if(nform.F_CC_EMAIL.value.indexOf(" ")!=-1){alert("O e-mail informado parece não estar correto.");nform.F_CC_EMAIL.value="Digite Novamente";nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}
if(nform.F_CC_EMAIL.value.indexOf(".@")>0){alert("O e-mail informado parece não estar correto.");nform.F_CC_EMAIL.value="Digite Novamente";nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}
if(nform.F_CC_EMAIL.value.indexOf("@.")>0){alert("O e-mail informado parece não estar correto.");nform.F_CC_EMAIL.value="Digite Novamente";nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}
if(nform.F_CC_EMAIL.value.indexOf("..")>0){alert("O e-mail informado parece não estar correto.");nform.F_CC_EMAIL.value="Digite Novamente";nform.F_CC_EMAIL.focus();nform.F_CC_EMAIL.select();return false;}}
return true;}