// JavaScript Document var ca; function Servico(compet,janela) { if(compet==0) { alert('Informe a competência ou a data de emissão'); document.fdemo.compet.focus(); return; } window.open('aliq.php?anocomp='+compet+'&janela='+janela,'_serv','toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,height=450,width=550,left=30,top=80'); } function geraVen(campo) { //return; if(campo.value=="") {return false;} var comp = campo.value.split("/"); var vant = document.fdemo.venctoreal.value; dcompet = (comp[0]=='03')?'11':'10'; //dcompet = '10'; //if(comp[0]=='12') { comp[0]=1; comp[1]=parseFloat(comp[1])+1; } //else comp[0] = parseFloat(comp[0])+1; mcompet = parseFloat(comp[0]); acompet = parseFloat(comp[1]); if(document.fdemo.natureza.value=="Soc. Simples Prof. Lib." && (_anoComp < 2004 || document.fdemo.rectri.checked)) { if((mcompet)%3 != 0) { alert('Para Sociedade Simples de Profissional Liberal anterior ao ano de 2004 ou em virtude de Liminar Judicial o recolhimento é tirmestral, sendo válido apenas para as competências de Março, Junho, Setembro e Dezembro'); campo.value=""; document.fdemo.venctoreal.value=""; campo.focus(); return false; } else { //document.fdemo.aliq.readOnly = false; document.fdemo.rect.readOnly = true; document.fdemo.imposto.readOnly=false; document.fdemo.rect.value=0.00; document.fdemo.aliq.value=0.00; } if(mcompet==12) { acompet++; mcompet=1; } else { mcompet++; } var compet = new Date('0'+ a_month[mcompet]+' '+acompet); cmes = pad(compet.getMonth()+1,2,'0'); //canoc = compet.getYear(); canoc = acompet; } else {//else aki if(document.fdemo.transp.checked) { if(document.fdemo.quinzena.value==1) { var compet = new Date('20'+ a_month[mcompet]+' '+acompet); cmes = parseInt(compet.getMonth()); //canoc = parseInt(compet.getYear()); canoc = acompet; if(cmes==12) { cmes=1; canoc++; } else { cmes++; } cmes = pad(cmes,2,'0'); } else { //Segunda Quinzena if(mcompet==12) { acompet++; mcompet=1; } else { mcompet++; } var compet = new Date('05'+ a_month[mcompet]+' '+acompet); cmes = parseInt(compet.getMonth()); //canoc = parseInt(compet.getYear()); canoc = acompet; if(cmes==12) { cmes=1; canoc++; } else { cmes++; } cmes = pad(cmes,2,'0'); } } else { if(mcompet==12) { acompet++; mcompet=1; } else { mcompet++; } var compet = new Date(dcompet+' '+ a_month[mcompet]+' '+acompet); cmes = parseInt(compet.getMonth()); //canoc = parseInt(compet.getYear()); canoc = acompet; if(cmes==12) { cmes=1; canoc++; } else { cmes++; } cmes = pad(cmes,2,'0'); } } cdia = pad(compet.getDate(),2,'0'); //if (campo.value == "06/2005"){cdia = "11";} //*** Alteração para vencimento diferente do dia 10 if (campo.value == "08/2005"){cdia = "12";} //*** Alteração para vencimento diferente do dia 10 if(canoc < 100) { canoc = parseInt("19"+canoc); } var ccalc = parseInt(canoc +""+ cmes +""+ cdia); document.fdemo.venctoreal.value = cdia+"/"+cmes+"/"+canoc; if(vant != "" && document.fdemo.venctoreal.value != vant) { document.getElementById("destvcto").style.visibility="visible" tm = setTimeout('document.getElementById("destvcto").style.visibility="hidden"', 8000); } } function SomaT() { var frm=document.fdemo; if(frm.vencto.value=="") { return; } if(frm.rect.value) { var rec = frm.rect.value.replace(".",""); rec = rec.replace(".",""); rec = rec.replace(".",""); rec = parseFloat(rec.replace(",",".")); } else { var rec = 0.00; } if(frm.aliq.value) { var ali = frm.aliq.value.replace(".",""); ali = parseFloat(ali.replace(",",".")); } else { var ali = 0.00; } if(frm.vindice.value) { var ind = frm.vindice.value.replace(".",""); ind = parseFloat(ind.replace(",",".")); } else { var ind = 0.00; } if(frm.vmulta.value) { var mul = frm.vmulta.value.replace(".",""); mul = parseFloat(mul.replace(",",".")); } else { var mul = 0.00; } if(frm.vmora.value) { var mor =frm.vmora.value.replace(".",""); mor = parseFloat(mor.replace(",",".")); } else { var mor = 0.00; } if (frm.natureza.value=="Soc. Simples Prof. Lib." && (_anoComp < 2004 || frm.rectri.checked)) { if(frm.vmora.value) { var imp = frm.imposto.value.replace(".",""); imp = parseFloat(imp.replace(",",".")); } else { var imp = 0.00; } } //else { if(frm.natureza.value=="Acréscimos Legais" || frm.natureza.value=="Retido na Fonte" || frm.natureza.value=="Substituição Tributária"){ var imp = frm.imposto.value.replace(".",""); imp = parseFloat(imp.replace(",",".")); var mindice = ind; } if (frm.natureza.value!="Acréscimos Legais") { if (!(frm.natureza.value=="Soc. Simples Prof. Lib." && (_anoComp < 2004 || frm.rectri.checked)) && frm.natureza.value!="Retido na Fonte" && frm.natureza.value!="Substituição Tributária") { var imp = parseFloat(rec * ali / 100); frm.imposto.value = imp.toFixed(2).replace(".",","); } if(ndias < 1) { vmul = 0.00 } else if(ndias > 0 && ndias <31) { vmul = 0.05 } else if(ndias > 30 && ndias <61) { vmul = 0.10 } else if(ndias > 60) { vmul = 0.15 } vmor = Math.ceil(ndias/30); ind = imp*cormonet; mul = (ind) * vmul; mor = (ind) * (vmor/100); mor = parseInt(mor*100); mor = parseFloat(mor/100); mul = parseInt(mul*100); mul = parseFloat(mul/100); ind = parseInt(ind*100); ind = parseFloat(ind/100); var mindice = ind-imp; if(mindice <0) mindice=0; } var vtot = parseFloat(imp.toFixed(2)) + parseFloat(mul.toFixed(2)) + parseFloat(mindice.toFixed(2)) + parseFloat(mor.toFixed(2)); //var vtot = imp + mul + mindice + mor; //alert(vtot +"="+ imp.toFixed(2) +"+"+ mul.toFixed(2) +"+"+ mindice.toFixed(2) +"+"+ mor.toFixed(2)); if(frm.natureza.value!="Acréscimos Legais") { frm.aindice.value = cormonet.toFixed(4).replace(".",","); frm.vindice.value = mindice.toFixed(2).replace(".",","); frm.amulta.value = (vmul*100).toFixed(1).replace(".",","); frm.amora.value = vmor.toFixed(1).replace(".",","); frm.vmulta.value = mul.toFixed(2).replace(".",","); frm.vmora.value = mor.toFixed(2).replace(".",","); } frm.total.value = vtot.toFixed(2).replace(".",","); } function modulo11(numero) { var soma = 0; var fator = 2; for(var i=numero.length-1;i>=0;i--) { soma += parseInt(numero.substr(i,1)) * fator; fator++; if(fator==10) { fator=2; } } soma = 11 - (soma % 11); if(soma >= 10) soma = 0; return soma; } function verInscM(campo) { //alert(inscricao) var inscricao = campo.value; if(inscricao=="") { return; } aux = campo.value.length; if (aux != 9) { alert("A Inscrição do Responsável deve conter 9 dígitos"); campo.value=""; campo.focus(); return; } var retorno = modulo11(inscricao.substr(0,8)); if((inscricao.substr(8,1) != retorno) || (inscricao=="000000000")) { alert("Inscrição inválida"); campo.value="" campo.focus() return; } return; } function AcLegais(campo){ var frm=document.fdemo; var natureza = campo.value; if(natureza=="Acréscimos Legais"){ frm.aindice.value=1; frm.amulta.value=1; frm.amora.value=1; } else if (frm.movimento.value==0) { frm.aindice.value =""; frm.amulta.value =""; frm.amora.value =""; } }