<%if session("USER")<>"joaoalberto@pc" and session("USER")<>"pedromatos@AM098" and session("FUNCTION")<>"RH" then response.Redirect("main.asp")%> <% 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 if request.Form("worker")="" then VacationInformationWorker=session("USER") else VacationInformationWorker=request.form("worker") if request.form("date")="" then vacationYear=year(date) else vacationYear=request.form("date") function vacationInformationWorkerList() data = CDate("1/1/"&vacationYear)'dd/mm/yyyy for mes=1 to 12 response.Write "

"&MonthName(mes)&"" response.Write "

" response.Write "

" '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 FERIAS WHERE COLABORADOR='"&VacationInformationWorker&"' AND DATA_FERIAS=#"&month(data)&"-"&day(data)&"-"&year(data)&"#" Set rs = Conn.Execute(sSql) if rs.EOF and rs.BOF then response.Write "

"&day(data)&"

" else if rs("ESTADO")=TRUE or rs("ESTADO")=FALSE and IsNull(rs("DATA_ESTADO")) then if rs("PERIODO")="Dia" then response.Write "

"&day(data)&"

" else if rs("PERIODO")="Dia" then response.Write "

"&day(data)&"

" else response.Write "

"&day(data)&"

" end if end if end if if rs("ESTADO")=FALSE and rs("DATA_ESTADO")<>"" then response.Write "

"&day(data)&"

" end if end if data = data + 1 next response.Write "

" response.Write "

" next end function function vacationInformationWorkerDays() sSql = "SELECT * FROM FERIAS WHERE COLABORADOR='"&VacationInformationWorker&"' 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.form("date")="" then vacationYear=year(date) else vacationYear=request.form("date") 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='"&VacationInformationWorker&"' ") 'response.Write "UPDATE USERS SET VACATION_LAST_YEAR="&replace(rs1("VACATION_LAST_YEAR")-UpdateDay,",",".")&" WHERE USERNAME='"&VacationInformationWorker&"' " else 'response.Write "UPDATE THIS YEAR --
" Conn.Execute("UPDATE USERS SET VACATION_THIS_YEAR="&replace(rs1("VACATION_THIS_YEAR")-UpdateDay,",",".")&" WHERE USERNAME='"&VacationInformationWorker&"' ") end if else Conn.Execute("UPDATE USERS SET VACATION_THIS_YEAR="&replace(rs1("VACATION_THIS_YEAR")-UpdateDay,",",".")&" WHERE USERNAME='"&VacationInformationWorker&"' ") end if Conn.Execute("INSERT INTO FERIAS (COLABORADOR, DATA_FERIAS, DATA_MARCACAO, PERIODO, ESTADO) VALUES ('"&VacationInformationWorker&"', '"&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='"&VacationInformationWorker&"' ") 'response.Write "UPDATE LAST YEAR +
" else Conn.Execute("UPDATE USERS SET VACATION_THIS_YEAR="&replace(rs1("VACATION_THIS_YEAR")+UpdateDay,",",".")&" WHERE USERNAME='"&VacationInformationWorker&"' ") 'response.Write "UPDATE THIS YEAR +" end if Conn.Execute("DELETE FROM FERIAS WHERE COLABORADOR='"&VacationInformationWorker&"' 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 "

DAYS RESULT----------> "&updateVacationsDays 'if updateVacationsDays<>0 then 'if VACATION_LAST_YEAR>0 then 'ainda tenho dias do ano passado 'updateVacationsDays=VACATION_LAST_YEAR+updateVacationsDays 'if updateVacationsDays<=0 then 'se for <0 tenho atualiza a bd com 0 'UPDATE_VACATION_LAST_YEAR=0 'UPDATE_VACATION_THIS_YEAR=VACATION_THIS_YEAR+updateVacationsDays 'else 'UPDATE_VACATION_LAST_YEAR=VACATION_LAST_YEAR-updateVacationsDays 'end if 'else 'UPDATE_VACATION_THIS_YEAR=VACATION_THIS_YEAR+updateVacationsDays 'end if 'response.Write "

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

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

RESULT DAYS-----------> "&updateVacationsDays 'end if end if %>

"" then response.Write "&year="&request.QueryString("year")%>"> <%=vacationInformationWorkerList()%> <% sSql = "SELECT VACATION_LAST_YEAR, VACATION_THIS_YEAR FROM USERS WHERE USERNAME='"&VacationInformationWorker&"'" 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%>

Dia

Tarde

Manhã

" /> " />

INFORMAÇÃO DE FÉRIAS

DATA

PERIODO

MACAÇÃO

<%=vacationInformationWorkerDays()%>