"
response.Write "
"
response.Write "
Seg
"
response.Write "
Ter
"
response.Write "
Qua
"
response.Write "
Qui
"
response.Write "
Sex
"
response.Write "
Sab
"
response.Write "
Dom
"
'divs pretos ate data
backCell=2
if WeekDay(data)<>2 then
do while backCell <> WeekDay(data)
response.Write "
"
'backCell = backCell + 1
if backCell=7 then backCell=1 else backCell=backCell+1 end if
loop
End if
for diaData=1 to diasMes(Month(data),year(data))
if WeekDay(data) = 1 or WeekDay(data) = 7 Then
response.Write "
"&day(data)&"
"
if WeekDay(data) = 1 Then response.Write "
"
else
response.Write "
"&day(data)&""
sSql = "SELECT * FROM USERS WHERE COLABORADOR=TRUE AND ACT='1' "
if request.Form("WorkerLocal")<>"" then sSql=sSql&" AND CONCESSAO='"&request.Form("WorkerLocal")&"' " else sSql=sSql&" AND CONCESSAO='Escritorio' "
if request.Form("WorkerFunction")<>"" then sSql=sSql&" AND FUNCAO='"&request.Form("WorkerFunction")&"' " 'else sSql=sSql&" AND FUNCAO='Administrativo' "
Set rs = Conn.Execute(sSql)
CountUserDay=1
while not rs.eof
workerName=rs("NAME")
sSql = "SELECT * FROM FERIAS WHERE COLABORADOR='"&rs("USERNAME")&"' AND DATA_FERIAS=#"&month(data)&"-"&day(data)&"-"&year(data)&"#"
Set rs1 = Conn.Execute(sSql)
if rs1.EOF and rs1.BOF then
else
if CountUserDay<6 then
if rs1("PERIODO")="Dia" then period="" else period=left(rs1("PERIODO"),1) end if
if data>=date then
if rs1("ESTADO")=FALSE and rs1("DATA_ESTADO")<>"" then
'BEFOR TODAY RED
response.Write "
"
response.Write ""
response.Write ""&period&" "
response.Write "
"
else
'BEFOR TODAY GREEN
'response.Write "
"
response.Write "
"
response.Write ""
response.Write ""&period&" "
response.Write "
"
end if
else
'AFTER TODAY
response.Write "
"
response.Write ""
response.Write ""&period&" "
response.Write "
"
end if
CountUserDay=CountUserDay+1
'exit while
end if
end if
rs.movenext
wend
response.Write "
"
end if
data = data + 1
next
response.Write "
"
response.Write "
"
response.Write "
"
response.Write "
![]()
"
response.Write "
"
response.Write"
Dia "&day(dateMonth)&"
"
response.Write"
"
response.Write "
"
response.Write "
NOME
"
response.Write "
MARCAÇÃO
"
response.Write "
PERIODO
"
response.Write "
"
while not rs.eof
response.Write "
"
sSql = "SELECT NAME FROM USERS WHERE USERNAME='"&rs("COLABORADOR")&"'"
Set rs1 = Conn.Execute(sSql)
response.Write "
"&rs1("NAME")&"
"
response.Write "
"& left(rs("DATA_MARCACAO"),10)&"
"
response.Write "
"&rs("PERIODO")&"
"
response.Write "
"
response.Write "
"
rs.movenext
wend
response.Write"
<%=VacationInformationList()%>
