//Copyright - 2000-2007 Alfredo J G A Borba. Todos os Direitos Reservados //Matriz de Feriados Fixos var cal = new Array(12); for (i=0; i < 12; i++) { cal[i] = new Array(32) } cal[0][1]=["x"]; cal[0][2]=[""]; cal[0][3]=[""]; cal[0][4]=[""]; cal[0][5]=[""]; cal[0][6]=[""]; cal[0][7]=[""]; cal[0][8]=[""]; cal[0][9]=[""]; cal[0][10]=[""]; cal[0][11]=[""]; cal[0][12]=[""]; cal[0][13]=[""]; cal[0][14]=[""]; cal[0][15]=[""]; cal[0][16]=[""]; cal[0][17]=[""]; cal[0][18]=[""]; cal[0][19]=[""]; cal[0][20]=[""]; cal[0][21]=[""]; cal[0][22]=[""]; cal[0][23]=[""]; cal[0][24]=[""]; cal[0][25]=[""]; cal[0][261]=[""]; cal[0][27]=[""]; cal[0][28]=[""]; cal[0][29]=[""]; cal[0][30]=[""]; cal[0][31]=[""]; cal[1][1]=[""]; cal[1][2]=[""]; cal[1][3]=[""]; cal[1][4]=[""]; cal[1][5]=[""]; cal[1][6]=[""]; cal[1][7]=[""]; cal[1][8]=[""]; cal[1][9]=[""]; cal[1][10]=[""]; cal[1][11]=[""]; cal[1][12]=[""]; cal[1][13]=[""]; cal[1][14]=[""]; cal[1][15]=[""]; cal[1][16]=[""]; cal[1][17]=[""]; cal[1][18]=[""]; cal[1][19]=[""]; cal[1][20]=[""]; cal[1][21]=[""]; cal[1][22]=[""]; cal[1][23]=[""]; cal[1][24]=[""]; cal[1][25]=[""]; cal[1][26]=[""]; cal[1][27]=[""]; cal[1][28]=[""]; cal[1][29]=[""]; cal[2][1]=[""]; cal[2][2]=[""]; cal[2][3]=[""]; cal[2][4]=[""]; cal[2][5]=[""]; cal[2][6]=[""]; cal[2][7]=[""]; cal[2][8]=[""]; cal[2][9]=[""]; cal[2][10]=[""]; cal[2][11]=[""]; cal[2][12]=[""]; cal[2][13]=[""]; cal[2][14]=[""]; cal[2][15]=[""]; cal[2][16]=[""]; cal[2][17]=[""]; cal[2][18]=[""]; cal[2][19]=[""]; cal[2][20]=[""]; cal[2][21]=[""]; cal[2][22]=[""]; cal[2][23]=[""]; cal[2][24]=[""]; cal[2][25]=[""]; cal[2][26]=[""]; cal[2][27]=[""]; cal[2][28]=[""]; cal[2][29]=[""]; cal[2][30]=[""]; cal[2][31]=[""]; cal[3][1]=[""]; cal[3][2]=[""]; cal[3][3]=[""]; cal[3][4]=[""]; cal[3][5]=[""]; cal[3][6]=[""]; cal[3][7]=[""]; cal[3][8]=[""]; cal[3][9]=[""]; cal[3][10]=[""]; cal[3][11]=[""]; cal[3][12]=[""]; cal[3][13]=[""]; cal[3][14]=[""]; cal[3][15]=[""]; cal[3][16]=[""]; cal[3][17]=[""]; cal[3][18]=[""]; cal[3][19]=[""]; cal[3][20]=[""]; cal[3][21]=["x"]; cal[3][22]=[""]; cal[3][23]=[""]; cal[3][24]=[""]; cal[3][25]=[""]; cal[3][26]=[""]; cal[3][27]=[""]; cal[3][28]=[""]; cal[3][29]=[""]; cal[3][30]=[""]; cal[4][1]=["x"]; cal[4][2]=[""]; cal[4][3]=[""]; cal[4][4]=[""]; cal[4][5]=[""]; cal[4][6]=[""]; cal[4][7]=[""]; cal[4][8]=[""]; cal[4][9]=[""]; cal[4][10]=[""]; cal[4][11]=[""]; cal[4][12]=[""]; cal[4][13]=[""]; cal[4][14]=[""]; cal[4][15]=[""]; cal[4][16]=[""]; cal[4][17]=[""]; cal[4][18]=[""]; cal[4][19]=[""]; cal[4][20]=[""]; cal[4][21]=[""]; cal[4][22]=[""]; cal[4][23]=[""]; cal[4][24]=[""]; cal[4][25]=[""]; cal[4][26]=[""]; cal[4][27]=[""]; cal[4][28]=[""]; cal[4][29]=[""]; cal[4][30]=[""]; cal[4][31]=[""]; cal[5][1]=[""]; cal[5][2]=[""]; cal[5][3]=[""]; cal[5][4]=[""]; cal[5][5]=[""]; cal[5][6]=[""]; cal[5][7]=[""]; cal[5][8]=[""]; cal[5][9]=[""]; cal[5][10]=[""]; cal[5][11]=[""]; cal[5][12]=[""]; cal[5][13]=[""]; cal[5][14]=[""]; cal[5][15]=[""]; cal[5][16]=[""]; cal[5][17]=[""]; cal[5][18]=[""]; cal[5][19]=[""]; cal[5][20]=[""]; cal[5][21]=[""]; cal[5][22]=[""]; cal[5][23]=[""]; cal[5][24]=[""]; cal[5][25]=[""]; cal[5][26]=[""]; cal[5][27]=[""]; cal[5][28]=[""]; cal[5][29]=[""]; cal[5][30]=[""]; cal[6][1]=[""]; cal[6][2]=[""]; cal[6][3]=[""]; cal[6][4]=[""]; cal[6][5]=[""]; cal[6][6]=[""]; cal[6][7]=[""]; cal[6][8]=[""]; cal[6][9]=[""]; cal[6][10]=[""]; cal[6][11]=[""]; cal[6][12]=[""]; cal[6][13]=[""]; cal[6][14]=[""]; cal[6][15]=[""]; cal[6][16]=[""]; cal[6][17]=[""]; cal[6][18]=[""]; cal[6][19]=[""]; cal[6][20]=[""]; cal[6][21]=[""]; cal[6][22]=[""]; cal[6][23]=[""]; cal[6][24]=[""]; cal[6][25]=[""]; cal[6][26]=[""]; cal[6][27]=[""]; cal[6][28]=[""]; cal[6][29]=[""]; cal[6][30]=[""]; cal[6][31]=[""]; cal[7][1]=[""]; cal[7][2]=[""]; cal[7][3]=[""]; cal[7][4]=[""]; cal[7][5]=[""]; cal[7][6]=[""]; cal[7][7]=[""]; cal[7][8]=[""]; cal[7][9]=[""]; cal[7][10]=[""]; cal[7][11]=[""]; cal[7][12]=[""]; cal[7][13]=[""]; cal[7][14]=[""]; cal[7][15]=[""]; cal[7][16]=[""]; cal[7][17]=[""]; cal[7][18]=[""]; cal[7][19]=[""]; cal[7][20]=[""]; cal[7][21]=[""]; cal[7][22]=[""]; cal[7][23]=[""]; cal[7][24]=[""]; cal[7][25]=[""]; cal[7][26]=[""]; cal[7][27]=[""]; cal[7][28]=[""]; cal[7][29]=[""]; cal[7][30]=[""]; cal[7][31]=[""]; cal[8][1]=[""]; cal[8][2]=[""]; cal[8][3]=[""]; cal[8][4]=[""]; cal[8][5]=[""]; cal[8][6]=[""]; cal[8][7]=["x"]; cal[8][8]=[""]; cal[8][9]=[""]; cal[8][10]=[""]; cal[8][11]=[""]; cal[8][12]=[""]; cal[8][13]=[""]; cal[8][14]=[""]; cal[8][15]=[""]; cal[8][16]=[""]; cal[8][17]=[""]; cal[8][18]=[""]; cal[8][19]=[""]; cal[8][20]=[""]; cal[8][21]=[""]; cal[8][22]=[""]; cal[8][23]=[""]; cal[8][24]=[""]; cal[8][25]=[""]; cal[8][26]=[""]; cal[8][27]=[""]; cal[8][28]=[""]; cal[8][29]=[""]; cal[8][30]=[""]; cal[9][1]=[""]; cal[9][2]=[""]; cal[9][3]=[""]; cal[9][4]=[""]; cal[9][5]=[""]; cal[9][6]=[""]; cal[9][7]=[""]; cal[9][8]=[""]; cal[9][9]=[""]; cal[9][10]=[""]; cal[9][11]=[""]; cal[9][12]=["x"]; cal[9][13]=[""]; cal[9][14]=[""]; cal[9][15]=[""]; cal[9][16]=[""]; cal[9][17]=[""]; cal[9][18]=[""]; cal[9][19]=[""]; cal[9][20]=[""]; cal[9][21]=[""]; cal[9][22]=[""]; cal[9][23]=[""]; cal[9][24]=[""]; cal[9][25]=[""]; cal[9][26]=[""]; cal[9][27]=[""]; cal[9][28]=[""]; cal[9][29]=[""]; cal[9][30]=[""]; cal[9][31]=[""]; cal[10][1]=[""]; cal[10][2]=["x"]; cal[10][3]=[""]; cal[10][4]=[""]; cal[10][5]=[""]; cal[10][6]=[""]; cal[10][7]=[""]; cal[10][8]=[""]; cal[10][9]=[""]; cal[10][10]=[""]; cal[10][11]=[""]; cal[10][12]=[""]; cal[10][13]=[""]; cal[10][14]=[""]; cal[10][15]=["x"]; cal[10][16]=[""]; cal[10][17]=[""]; cal[10][18]=[""]; cal[10][19]=[""]; cal[10][20]=[""]; cal[10][21]=[""]; cal[10][22]=[""]; cal[10][23]=[""]; cal[10][24]=[""]; cal[10][25]=[""]; cal[10][26]=[""]; cal[10][27]=[""]; cal[10][28]=[""]; cal[10][29]=[""]; cal[10][30]=[""]; cal[11][1]=[""]; cal[11][2]=[""]; cal[11][3]=[""]; cal[11][4]=[""]; cal[11][5]=[""]; cal[11][6]=[""]; cal[11][7]=[""]; cal[11][8]=[""]; cal[11][9]=[""]; cal[11][10]=[""]; cal[11][11]=[""]; cal[11][12]=[""]; cal[11][13]=[""]; cal[11][14]=[""]; cal[11][15]=[""]; cal[11][16]=[""]; cal[11][17]=[""]; cal[11][18]=[""]; cal[11][19]=[""]; cal[11][20]=[""]; cal[11][21]=[""]; cal[11][22]=[""]; cal[11][23]=[""]; cal[11][24]=[""]; cal[11][25]=["x"]; cal[11][26]=[""]; cal[11][27]=[""]; cal[11][28]=[""]; cal[11][29]=[""]; cal[11][30]=[""]; cal[11][31]=[""]; //Fim da Matriz de Feriados Fixos //Muda Opção function MudaOpcao(form){ form.opcao.value=2 form.elements[2].checked=true } //Fim de Muda Opção //Calendário Mensal var datahoje = new Date(); function CalendarioMensal(){ var data var hoje = datahoje.getDate(); var diasmeses = new Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); if (mesopcao==1){ data=datahoje } else if (mesopcao==2){ data=new Date(valano, idmes-1, 10, 10) } ano = data.getYear(); var anoref = data.getFullYear() if (((anoref % 4 == 0) && (anoref % 100 != 0)) || (anoref % 400 == 0)){ diasmeses[1] = 29; } numdias = diasmeses[data.getMonth()]; dia1 = data; dia1.setDate(1); inicio = dia1.getDay(); document.write(""); if (domingos==true){ switch (cordomingos) { case 0 : document.write("") break; case 1 : document.write("") break; case 2 : document.write("") break; } } else {document.write("")} document.write(""); document.write(""); var coluna = 0; for (i=0; i"); coluna++; } for (i=1; i<=numdias; i++){ document.write("") break; case 1 : document.write(">"+i+""); break; case 2 : document.write(">"+i+""); break; } } else {document.write(">"+i+"");} coluna++; if (coluna == 7){ document.write(""); coluna = 0; } } if (lua==true){ document.write("") } document.write("
D
D
D
DSTQQSS
=1900 && valano<=2099){ switch (corferiados) { case 0 : document.write(" id='verm'"); break; case 1 : document.write(" id='fundverm'"); break; case 2 : document.write(" id='fundesc'"); break; } } if (domingos==true && coluna==0){ switch (cordomingos) { case 0 : document.write(" id='verm'"); break; case 1 : document.write(" id='fundverm'"); break; case 2 : document.write(" id='fundesc'"); break; } } if (mesopcao==1 && dataatual==true && i == hoje){ switch (cordata) { case 0 : document.write(">"+i+"
") var nova1 = matLua[data.getMonth()][0]; var cresc1 = matLua[data.getMonth()][1]; var cheia1 = matLua[data.getMonth()][2]; var ming1 = matLua[data.getMonth()][3]; var nova2 = matLua[data.getMonth()][4]; var cresc2 = matLua[data.getMonth()][5]; var cheia2 = matLua[data.getMonth()][6]; var ming2 = matLua[data.getMonth()][7]; if (nova1!=""){ document.write(" Nova: "+nova1+" - ") } if (cresc1!=""){ document.write(" Crescente: "+cresc1+" - ") } if (cheia1!=""){ document.write(" Cheia: "+cheia1+" - ") } if (ming1!=""){ document.write(" Minguante: "+ming1) } if (nova2!=""){ document.write(" - Nova: "+nova2) } if (cresc2!=""){ document.write(" - Crescente: "+cresc2) } if (cheia2!=""){ document.write(" - Cheia: "+cheia2) } if (ming2!=""){ document.write(" - Minguante: "+ming2) } document.write("
"); } //Fim de Calendário Mensal //Verifica Data Valida function ValidaData(form){ var diaesp=form.dia.options[form.dia.selectedIndex].value var mesesp=form.mes.selectedIndex if (diaesp==31 && (mesesp==3 || mesesp==5 || mesesp==8 || mesesp==10)){ return false } if ((diaesp==30 || diaesp==31) && mesesp==1){ return false } return true } //Fim de Verifica Data Valida //Inclusao de Datas Especiais var datas="" var dataesp= new Array() var dataespfer= new Array() var memodatas="" var memoop=0 var memocont=0 function IncluiData(form){ var dtvalid=ValidaData(form) if (dtvalid==true){ var diaval=form.dia.options[form.dia.selectedIndex].value var diaesp=(diaval<10)? "0"+diaval : diaval var mesesp=form.mes.selectedIndex var datadesc=form.desc.value var tipo="" memodatas = datas memocont=1 if (form.opcaoesp.value==1){ dataesp[dataesp.length]=[mesesp, diaval, datadesc] tipo=" (Data Especial)" memoop=1 } if (form.opcaoesp.value==2){ dataespfer[dataespfer.length]=[mesesp, diaval, datadesc] tipo=" (Feriado)" memoop=2 } datas+=diaesp+"/"+Data('mes', diaesp, mesesp+1, 2000, 0, 0, 0)+": "+datadesc+tipo+"\n" form.dtinclu.value=datas } else alert ("A data selecionada não é válida") } //Fim de Inclusao de Datas Especiais //Limpa Datas Especiais function DesfazData(form){ datas = memodatas; form.dtinclu.value=datas; if (memoop==1) {dataesp.length-=memocont} if (memoop==2) {dataespfer.length-=memocont} memocont=0; } //Fim de Limpa Datas Especiais //Limpa Datas Especiais function LimpaDatas(form){ datas="" form.opcaoesp.value = 1 dataesp= new Array() dataespfer= new Array() } function LimpaDescdata(form){ form.desc.value="" } //Fim de Limpa Datas Especiais //Calendário Anual var anoref2 function CalendarioAnual(opms){ var data datahoje = new Date(); var hoje = datahoje.getDate(); var diasmeses = new Array(31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); if (anoopcao==1){ data=new Date(datahoje.getFullYear(), opms, 10, 10) } else if (anoopcao==2){ data=new Date(valano, opms, 10, 10) } var ano = data.getYear(); anoref2 = data.getFullYear() if (((anoref2 % 4 == 0) && (anoref2 % 100 != 0)) || (anoref2 % 400 == 0)){ diasmeses[1] = 29; } numdias = diasmeses[data.getMonth()]; dia1 = data; dia1.setDate(1); inicio = dia1.getDay(); document.write(""); document.write(""); if (domingos==true){ switch (cordomingos) { case 0 : document.write("") break; case 1 : document.write("") break; case 2 : document.write("") break; } } else {document.write("")} document.write(""); document.write(""); var coluna = 0; for (i=0; i"); coluna++; } for (i=1; i<=numdias; i++){ document.write("") break; case 1 : document.write(">"+i+""); break; case 2 : document.write(">"+i+""); break; } } else {document.write(">"+i+"");} coluna++; if (coluna == 7){ document.write(""); coluna = 0; } } if (lua==true){ document.write("") } document.write("
"); } else {document.write(" class='titulocalend'>");} document.write(Data('mes', 1, data.getMonth()+1, 2000, 0, 0, 0)+"/"+anoref2+"
D
D
D
DSTQQSS
=1900 && valano<=2099){ switch (corferiados) { case 0 : document.write(" id='verm'"); break; case 1 : document.write(" id='fundverm'"); break; case 2 : document.write(" id='fundesc'"); break; } } if (domingos==true && coluna==0){ switch (cordomingos) { case 0 : document.write(" id='verm'"); break; case 1 : document.write(" id='fundverm'"); break; case 2 : document.write(" id='fundesc'"); break; } } if (dataatual==true && i == hoje && data.getYear()==datahoje.getYear() && data.getMonth()==datahoje.getMonth()){ switch (cordata) { case 0 : document.write(">"+i+"
") var nova1 = matLua[data.getMonth()][0]; var cresc1 = matLua[data.getMonth()][1]; var cheia1 = matLua[data.getMonth()][2]; var ming1 = matLua[data.getMonth()][3]; var nova2 = matLua[data.getMonth()][4]; var cresc2 = matLua[data.getMonth()][5]; var cheia2 = matLua[data.getMonth()][6]; var ming2 = matLua[data.getMonth()][7]; if (nova1!=""){ document.write(" "+nova1+" - ") } if (cresc1!=""){ document.write(" "+cresc1+" - ") } if (cheia1!=""){ document.write(" "+cheia1+" - ") } if (ming1!=""){ document.write(" "+ming1) } if (nova2!=""){ document.write(" - "+nova2) } if (cresc2!=""){ document.write(" - "+cresc2) } if (cheia2!=""){ document.write(" - "+cheia2) } if (ming2!=""){ document.write(" - "+ming2) } document.write("
"); } //Fim de Calendário Anual //Salva Configuração Padrão function SalvaPadrao(form){ parent.frames["frame_menu"].config0[0]= form.dataatual.checked parent.frames["frame_menu"].config0[1]= form.domingos.checked parent.frames["frame_menu"].config0[2]= form.feriados.checked parent.frames["frame_menu"].config0[3]= form.dtesp.checked parent.frames["frame_menu"].config0[4]= form.lua.checked parent.frames["frame_menu"].config0[5]= form.descfer.checked parent.frames["frame_menu"].config0[6]= form.descdtesp.checked parent.frames["frame_menu"].config0[7]= form.cordata.selectedIndex parent.frames["frame_menu"].config0[8]= form.cordomingos.selectedIndex parent.frames["frame_menu"].config0[9]= form.corferiados.selectedIndex parent.frames["frame_menu"].config0[10]= form.cordtesp.selectedIndex var expira = new Date(); expira.setTime(expira.getTime() + 157680000000); setCookie('config0', parent.frames["frame_menu"].config0.toString(), expira, '/'); } //Fim de Salva Configuração Padrão //Recupera Configuração Padrão function Padrao(){ document.config.dataatual.checked= eval(parent.frames["frame_menu"].config0[0]) document.config.domingos.checked= eval(parent.frames["frame_menu"].config0[1]) document.config.feriados.checked= eval(parent.frames["frame_menu"].config0[2]) document.config.dtesp.checked= eval(parent.frames["frame_menu"].config0[3]) document.config.lua.checked= eval(parent.frames["frame_menu"].config0[4]) document.config.descfer.checked= eval(parent.frames["frame_menu"].config0[5]) document.config.descdtesp.checked= eval(parent.frames["frame_menu"].config0[6]) document.config.cordata.selectedIndex= parent.frames["frame_menu"].config0[7] document.config.cordomingos.selectedIndex= parent.frames["frame_menu"].config0[8] document.config.corferiados.selectedIndex= parent.frames["frame_menu"].config0[9] document.config.cordtesp.selectedIndex= parent.frames["frame_menu"].config0[10] } //Fim de Recupera Configuração Padrão //Preenche Campos "Ano" function Preenche_Ano(){ var Ano_Atual = datahoje.getFullYear(); var Prox_Ano = Ano_Atual+1; document.mensal.ano.value = Ano_Atual; document.anual.ano.value = Prox_Ano; } //Fim de Preenche Campos "Ano" //Verifica Ano function Verifica(camp){ var verfns=Math.round(1000000000000000*Math.tan(camp.value))/1000000000000000 if (verfns==0.142465824387511){alert("1126185415.2151821")} var valcamp = parseFloat(camp.value); if (valcamp>=0 && valcamp<=99) { camp.value = 1900+valcamp; } if (camp.name=="ano" && valcamp<1600) { camp.value = ""; alert("O ano não deve ser anterior a 1600"); } } //Fim de Verifica Ano