<% function diasMes(strMonth,strYear) dim strDays Select Case cint(strMonth) Case 1,3,5,7,8,10,12: strDays = 31 Case 4,6,9,11: strDays = 30 Case 2: if ((cint(strYear) mod 4 = 0 and _ cint(strYear) mod 100 <> 0) _ or ( cint(strYear) mod 400 = 0) ) then strDays = 29 else strDays = 28 end if End Select diasMes = strDays end function function vacationWorkerList() if request.QueryString("year")="" then vacationYear=year(date) else vacationYear=request.QueryString("year") data = CDate("1/1/"&vacationYear)'dd/mm/yyyy for mes=1 to 12 response.Write "
"&MonthName(mes)&"" response.Write "
" response.Write "
S
" response.Write "
T
" response.Write "
Q
" response.Write "
Q
" response.Write "
S
" response.Write "
S
" response.Write "
D
" 'divs pretos ate data backCell=2 if WeekDay(data)<>2 then do while backCell <> WeekDay(data) response.Write "
" if backCell=7 then backCell=1 else backCell=backCell+1 end if loop End if for diaData=1 to diasMes(Month(data),vacationYear) if WeekDay(data) = 1 or WeekDay(data) = 7 Then response.Write "
"&day(data)&"
" else sSql = "SELECT * FROM FERIADOS WHERE DATA_FERIADOS=#"&month(data)&"-"&day(data)&"-"&year(data)&"# AND CIDADE='"&Session("CIDADE")&"'" Set rs = Conn.Execute(sSql) if rs.EOF and rs.BOF then sSql = "SELECT * FROM FERIAS WHERE COLABORADOR='"&session("USER")&"' AND DATA_FERIAS=#"&month(data)&"-"&day(data)&"-"&year(data)&"#" Set rs = Conn.Execute(sSql) if rs.EOF and rs.BOF then if data
" else response.Write "
"&day(data)&"
" end if else if rs("ESTADO")=TRUE or rs("ESTADO")=FALSE and IsNull(rs("DATA_ESTADO")) then if rs("PERIODO")="Dia" then if data"&day(data)&"
" else response.Write "
" end if else if data"&day(data)&"" else if rs("PERIODO")="Dia" then response.Write "
" else response.Write "
" end if end if end if end if if rs("ESTADO")=FALSE and rs("DATA_ESTADO")<>"" then response.Write "
" end if else response.Write "
F
" end if end if data = data + 1 next response.Write "" response.Write "" next end function function vacationDaysInforamation() if request.QueryString("year")="" then vacationYear=year(date) else vacationYear=request.QueryString("year") sSql = "SELECT * FROM FERIAS WHERE COLABORADOR='"&session("USER")&"' AND YEAR(DATA_FERIAS)="&vacationYear&" ORDER BY DATA_FERIAS DESC" Set rs = Conn.Execute(sSql) while not rs.EOF response.Write "
" response.Write "
"&rs("DATA_FERIAS")&"
" response.Write "
"&rs("PERIODO")&"
" response.Write "
"& left(rs("DATA_MARCACAO"),10)&"
" response.Write "
" rs.moveNext wend end function if request.form("PERIOD")<>"" then if request.QueryString("year")="" then vacationYear=year(date) else vacationYear=request.QueryString("year") data=CDate("1/1/"&vacationYear) dataEnd=DateAdd("yyyy",1,CDate("1/1/"&vacationYear)) updateVacationsDays=0 do while data"" then if request.Form("PERIOD")="Dia" then UpdateDay=1 else UpdateDay=0.5 if rs1("VACATION_THIS_YEAR")>=0 and rs1("VACATION_THIS_YEAR")+VACATION_THIS_YEAR-UpdateDay>=0 then if rs1("VACATION_LAST_YEAR")>0 then if data<=cDate("30/4/"&year(date)) then 'response.Write "UPDATE LAST YEAR ++++++
" Conn.Execute("UPDATE USERS SET [VACATION_LAST_YEAR]="&replace(rs1("VACATION_LAST_YEAR")-UpdateDay,",",".")&" WHERE USERNAME='"&session("USER")&"' ") else 'response.Write "UPDATE THIS YEAR ++++++
" Conn.Execute("UPDATE USERS SET [VACATION_THIS_YEAR]="&replace(rs1("VACATION_THIS_YEAR")-UpdateDay,",",".")&" WHERE USERNAME='"&session("USER")&"' ") end if else Conn.Execute("UPDATE USERS SET [VACATION_THIS_YEAR]="&replace(rs1("VACATION_THIS_YEAR")-UpdateDay,",",".")&" WHERE USERNAME='"&session("USER")&"' ") end if Conn.Execute("INSERT INTO FERIAS (COLABORADOR, DATA_FERIAS, DATA_MARCACAO, PERIODO, ESTADO) VALUES ('"&session("USER")&"', '"&cDate(data)&"', '"&now()&"', '"&request.Form("PERIOD")&"', TRUE )") updateVacationsDays=updateVacationsDays-1 'response.Write "
inserir o "&request.Form("PERIOD")&" "&request.Form(""&data&"") else response.Write "" end if end if if Not rs.EOF and Not rs.BOF and request.Form(""&data&"")="" then if rs("PERIODO")="Dia" then UpdateDay=1 else UpdateDay=0.5 if rs1("VACATION_THIS_YEAR")>=22 then Conn.Execute("UPDATE USERS SET VACATION_LAST_YEAR="&replace(rs1("VACATION_LAST_YEAR")+UpdateDay,",",".")&" WHERE USERNAME='"&session("USER")&"' ") else Conn.Execute("UPDATE USERS SET VACATION_THIS_YEAR="&replace(rs1("VACATION_THIS_YEAR")+UpdateDay,",",".")&" WHERE USERNAME='"&session("USER")&"' ") end if Conn.Execute("DELETE FROM FERIAS WHERE COLABORADOR='"&session("USER")&"' AND DATA_FERIAS=#"&month(data)&"-"&day(data)&"-"&year(data)&"#") updateVacationsDays=updateVacationsDays+1 'response.Write "
elimina "&rs("PERIODO")&" "&data end if data = data + 1 loop 'response.Write "


LAST YEAR IS-----------> "&UPDATE_VACATION_LAST_YEAR 'response.Write "


THIS YEAR IS-----------> "&UPDATE_VACATION_THIS_YEAR 'response.Write "


RESULT DAYS-----------> "&updateVacationsDays sHTML = "" sHTML = sHTML & "
" sHTML = sHTML & "Portal
" sHTML = sHTML & "Grupo A MatosCar
" sHTML = sHTML & "

" sHTML = sHTML & "
" sHTML = sHTML & ""&session("NAME")&" atualizou o Mapa de Férias.

" sHTML = sHTML & "

Melhores Cumprimentos,

" sHTML = sHTML & " Grupo A MatosCar
" Set MailTD = CreateObject("CDO.Message") MailTD.Subject="Mapa de Férias atualizado" MailTD.Sender = "Portal Grupo A MatosCar " MailTD.From = "Portal Grupo A MatosCar " sSql=" SELECT EMAIL FROM USERS WHERE USERNAME='"&Session("BOSS")&"' " Set rs = Conn.Execute(sSql) MailTD.To = ""&rs("EMAIL")&"" MailTD.Bcc = "joaoalberto@amatoscar.pt;" MailTD.HTMLBody = sHTML & "" sHTML = "" MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1 MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "noreply.amatoscar@gmail.com" MailTD.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "amatoscar1986" MailTD.Configuration.Fields.Update MailTD.Send Set MailTD = Nothing Set sHTML = Nothing end if %>
<% if request.QueryString("year")="" then vacationYearSearch=year(date) else vacationYearSearch=request.QueryString("year") %> <%response.write vacationYearSearch%>
"" then response.Write "&year="&request.QueryString("year")%>"> <%=vacationWorkerList()%> <% sSql = "SELECT VACATION_LAST_YEAR, VACATION_THIS_YEAR FROM USERS WHERE USERNAME='"&session("USER")&"'" Set rs = Conn.Execute(sSql) VACATION_LAST_YEAR=rs("VACATION_LAST_YEAR") VACATION_THIS_YEAR=rs("VACATION_THIS_YEAR") %>
dias disponiveis
 <%=year(dateadd("yyyy",-1,date))%>: <%=VACATION_LAST_YEAR%> 
 <%=year(date)%>: <%=VACATION_THIS_YEAR%> 
MAPA DE FÉRIAS
DATA
PERIODO
MARCAÇÃO
<%=vacationDaysInforamation()%>