Agenda Semanal

paulojorge3l · Fevereiro 9, 2009

Olá pessoal to fazendo uma agenda semanal e gostária de receber uma ajuda para começar.

Quero saber se alguem tem ideia de como pegar os dias da semana corrente

para que dai eu possa pesquisar no banco os dados relacionado aos dias da semana.

Alguem tem ideia de como pegar os dias da semana para que eu possa começar pq procurei na net só tem calendário mensal.

Obrigado pela atenção e ajuda

filipescoob · Fevereiro 9, 2009

Ja procurou no laboratorio de scripts ?

Verifica no de javascript tambem tem umas coisas desta!

paulojorge3l · Fevereiro 9, 2009

Olá Filipe busquei lá tmbm mas não achei

Achei o seguinte códiogo na net ele cria uma lista com os dias da semana só que você tem que passar o ultimo dia da semana

Agora tinha que ver um geito de passar esse ultimo dia da semana dinamico e colocar as consultas do banco de dados dentro dos loop

Quem puder ajudar será bem util isso para todos abraços.

<ul>
<%
	
	'//: POR BRUNO MORAIS ALISTE
	'//: MB_MORAIS@HOTMAIL.COM 	

	
	Dim DataInicio, DataFim, DataAtual
	'Mês/Dia/Ano
	
	DataInicio = #02/14/2009# ' A DATA DE INÍCIO	
	  DataAtual = Date() -1
	DataFim = DataInicio
	Do	 
	   DataAtual = DataAtual + 1 
	 Response.write "<li>" & DataAtual & "</li>"
	Loop Until DataAtual = DataFim
%>
</ul>

Ted k' · Fevereiro 9, 2009

Nesse script que criei eu pego a data e faço passo a passo de um calendário!

http://forum.imasters.com.br/index.php?showtopic=247172

xanburzum · Fevereiro 9, 2009

dá uma procurada no forum, que postei uma parte de um calendario, para você ver apenas a semana, os eventos da mesma e fazer um busca no bd apartir disso, tenho um calendario com visualizações por dia, semana,mes, ano , o qual disponibilizei apenas a parte interessada noi forum, vê ae, qualquer coisa retorna...

paulojorge3l · Fevereiro 9, 2009

Olá Xanburzum Bom dia, Nossa procurei aqui no forum e não achei será que poderia me passar o link d topico ou quem sabe me mandar esse codigo para que eu possa ver como funciona para montar o calendario semanal com os eventos do banco de dados... ficaria muito grato. abraços...

Ted k' · Fevereiro 9, 2009

viu o que passei?

paulojorge3l · Fevereiro 9, 2009

Oi Ted K vi sim mas não dei conta de entender a logica por isso queria ver esse do xanburzum pq assim ver os dias da semana corrente deu certo só preciso agora passar o ultimo dia da semana para rodar o script e ver como pego os registro do banco dentro dos response.write pois quero montar a agenda assim

quero rodar a pesquisa na base de acordo com os dias da semana

xanburzum · Fevereiro 10, 2009

este é o trceho do código onde recupero apenas os eventos da semana

'****************************************************************************
*****
'******** Draw Week View *********************************************************
'****************************************************************************
*****

Sub DrawWeekView

  %>
  <script LANGUAGE=JAVASCRIPT>
  function goDeleteEvent(CurrentLink){
	  if (confirm('Tem certeza de que deseja apagar o evento selecionado? ATENÇÃO! Isso não pode ser desfeita!') == true){
		window.location.reload(CurrentLink);
	  }else{
		return false;
	  }
  } 
  </SCRIPT>
  <%

  WeekDayTitleName = Weekday(WorkingDate, 1)
  WorkingDate = DateAdd("w", 1-WeekDayTitleName, WorkingDate)

  response.write "<TABLE WIDTH='100%' CELLPADDING=5 CELLSPACING=0 BORDER=0 STYLE='font-family:" & MainFontFace & ";'>"
  response.write "<TR>"
  response.write "<TD VALIGN=TOP>"
  TitleToWrite = "Eventos entre: <font color=yellow>" & FormatDateTime(WorkingDate,1) & "</font> and <font color=yellow>" & FormatDateTime(DateAdd("d",6,WorkingDate),1) & "</font>"
  Call DrawTitle("100%","24",TitleToWrite,"11pt")
  Call DrawHLine(2)

  For I = 1 to 7
	If I > 1 then
	  WorkingDate = DateAdd("d",1,WorkingDate)
	End If
	TitleToWrite = "Events for: <font color=yellow>" & FormatDateTime(WorkingDate,1) & "</font>"
	Call DrawSmallTitle("100%","18",TitleToWrite,"9pt")


	If Session("CalendarFilter") > 0 then
	  SQL = "SELECT * FROM Cal_Events WHERE Cal_EventCalendarID = "& Session("CalendarFilter") &" AND Cal_EventDate = #" & WorkingDate & "# ORDER BY Cal_EventStartTime"
	Else
	  SQL = "SELECT * FROM Cal_Events WHERE Cal_EventDate = #" & WorkingDate & "# ORDER BY Cal_EventStartTime"
	End If
	Set RS=dbc.execute(SQL)
	If RS.EOF then

	  response.write "<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td width=30></td><td>"

	  response.write "<font style='font-family:" & MainFontFace & ";font-size:8pt;'>" 
	  response.write "Não existem eventos nesta data."
	  response.write "</font>"
		  response.write "</td></tr></table>"
	  '------------------------------------------------------------------------------------------------
	End If
	Do While NOT RS.EOF

	  response.write "<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td width=30></td><td>"
	  
	  response.write "<table width='100%' cellpadding=3 cellspacing=0 border=0 style='border:1px solid " & LightLineColor & ";'>"
	  response.write "<tr class='EventTitleBar'>"
	  response.write "<td colspan=2>"
	  response.write RS("Cal_EventTitle")
	  response.write "</td>"
	  response.write "</tr>"
	  response.write "<tr>"
	
	  If RS("Cal_EventImage") <> "" then
		  response.write "<td width=48 valign=top>"
		response.write "<img src='" & ImageFolder & "48/" & RS("Cal_EventImage") & "' BORDER=0>"
		response.write "</td>"
	  Else
		  response.write "<td width=48 valign=top>"
		response.write "<img src='" & ImageFolder & "blank.gif' BORDER=0>"
		response.write "</td>"
	  End If
	
	  response.write "<td valign=top style='font-family:" & MainFontFace & ";font-size:8pt;'>"
	
	  response.write "<table width='100%' cellpadding=2 cellspacing=0 border=1 bordercolor=white style='border-collapse:collapse;'>"
	  response.write "<tr><td valign=top class='EventLeftTD'>Data:</td><td valign=top class='EventRightTD'>" & FormatDateTime(RS("Cal_EventDate"),1) & "</td></tr>"
	  response.write "<tr><td valign=top class='EventLeftTD'>Titulo:</td><td valign=top class='EventRightTD'>" & RS("Cal_EventTitle") & "</td></tr>"
	  response.write "<tr><td valign=top class='EventLeftTD'>Descrição:</td><td valign=top class='EventRightTD'>" & RS("Cal_EventBody") & "</td></tr>"
	  If RS("Cal_EventAllDay") = "YES" then
		response.write "<tr><td valign=top class='EventLeftTD'>Hora:</td><td valign=top class='EventRightTD'>ALL DAY EVENT</td></tr>"
	  Else
		response.write "<tr><td valign=top class='EventLeftTD'>Hora:</td><td valign=top class='EventRightTD'>" & FormatTime(RS("Cal_EventStartTime")) & " - " & FormatTime(RS("Cal_EventEndTime")) & "</td></tr>"
	  End If
	  If Session("Cal_UserID") = 1 then
		response.write "<tr><td valign=top class='EventLeftTD'>ADMIN:</td><td valign=top class='EventRightTD'>"
		response.write "<A HREF='calendar.asp?action=editevent&eventID=" & RS("Cal_EventID") & "' onclick=""NewWindow(this.href,'aspWebCalendarADDEVENT','500','540','no');return false;"">EDIT</a> | "
		response.write "<A HREF='calendar.asp?action=deleteevent&eventID=" & RS("Cal_EventID") & "&prevaction=" & request.querystring("action") & "&date=" & request.querystring("date") & "' onclick='goDeleteEvent(this.href);return false;'>DELETE</A>"
		response.write "</td></tr>"
	  End If
	  'If RS("Cal_EventLink") <> "" then
	  '  response.write "<tr><td valign=top class='EventLeftTD'>Link:</td><td valign=top class='EventRightTD'>" & RS("Cal_EventLink") & "</td></tr>"
	  'Else
	  '  response.write "<tr><td valign=top class='EventLeftTD'>Link:</td><td valign=top class='EventRightTD'>NONE</td></tr>"
	  'End If
	  response.write "</table>"
	
	  response.write "</td>"
	  response.write "</tr>"
	
	  response.write "</table><font style='font-size:6pt;'><br></font>"
	 	  response.write "</td></tr></table>"
	  '---------------------------------------------------------------------------------------------------
	  RS.MoveNext
	Loop
	RS.Close
	Set RS=Nothing
  
  Next
  

  
  response.write "</TD>"
  
  response.write "<TD WIDTH='" & MiniCalendarWidth & "' ALIGN=RIGHT VALIGN=TOP>"
  PreviousMonth = DateAdd("m",-1,WorkingDate)
  NextMonth = DateAdd("m",1,WorkingDate)
  Call DrawMiniCalendar(PreviousMonth)
  Call DrawMiniCalendar(WorkingDate)
  Call DrawMiniCalendar(NextMonth)
  response.write "</TD>"
  
  response.write "</TR>"
  response.write "</TABLE>"

End Sub

dá uma olhada no que te mandei...

Arquivado

Agenda Semanal

Recommended Posts

paulojorge3l 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

filipescoob 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

paulojorge3l 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

paulojorge3l 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Ted k' 126

Compartilhar este post

Link para o post

Compartilhar em outros sites

paulojorge3l 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante