Baixando disponibilidade entre datas

[lmatteo 0]

Bom dia gurus do fórum. Se alguém puder me ajudar nesta dúvida.

Nunca fiz nada parecido.

Eu estou fazendo um sistema de reservas, e preciso dar baixa na disponibilidade no período selecionado.

E tenho uma tabela com os meses do ano. Dentro da tavela os registros, mes, ano, data, vagas.

Se eu tiver uma reserva entre os dias 25/10 a 05/11 eu preciso dar baixa no campo vagas em -1 nos dias 25,26,27,28,29,30,31(10),1,2,3,4(11), ou seja baixar as vagas em 11 campos em 2 registros diferentes da mesma tabela.

Eu sei de leve que devo trabalhar com algum tipo de loop ou condicional, até imagino como, mas agora precisava de uma orientação prática de como seria este código.

 

Alguém pode ajudar?

 

Abraços,

 

Lucas

[Vinicius Ianni 189]

Acho que a grosso modo, voce criaria um select usando between para pegar o intervalo de datas, cria o loop e dentro desse loop subtrai a quantidade de vagas necessárias e faz o update.

[retrolink 0]

Isso seria feito via SQL, por isso sugiro que faça um tópico lá na seção mysql o pessoal vai poder te mostrar a solução mais viável para esse caso.

[lmatteo 0]

Eu consegui puxar os registros entre as datas, pegando os campos que eu quero atualizar. Agora sópreciso colocar o update dentro do loop. Alguém pode dar um exemplo? Vou colocar o code abaixo:

 

<%
qualdata=Cdate((listadata.Fields.Item("entrada").Value))
numerodias=(listadata.Fields.Item("diarias").Value)+1

%>
<%
my_num=1
dv=(DatePart("d",dvq))
dvq=qualdata
Do While my_num <numerodias

dv=dv

Dim listadispo__MMColParam
listadispo__MMColParam = (listadata.Fields.Item("hotel").Value)
If (listadata.Fields.Item("hotel").Value) <> "" Then 
 listadispo__MMColParam = (listadata.Fields.Item("hotel").Value)
End If
%>
<%
Dim listadispo__MMColParam2
listadispo__MMColParam2 = "1"
If (qualdata <> "") Then 
 listadispo__MMColParam2 = qualdata
End If
%>
<%
Dim listadispo
Dim listadispo_cmd
Dim listadispo_numRows

Set listadispo_cmd = Server.CreateObject ("ADODB.Command")
listadispo_cmd.ActiveConnection = MM_conncr2912_STRING
listadispo_cmd.CommandText = "SELECT * FROM tarifario WHERE codhotel = ? and "&"'"&dv&"dv'=?" 
listadispo_cmd.Prepared = true
listadispo_cmd.Parameters.Append listadispo_cmd.CreateParameter("param1", 200, 1, 50, listadispo__MMColParam) ' adVarChar
listadispo_cmd.Parameters.Append listadispo_cmd.CreateParameter("param2", 135, 1, -1, listadispo__MMColParam2) ' adDBTimeStamp

Set listadispo = listadispo_cmd.Execute
listadispo_numRows = 0

my_num = my_num +1 
dvq=Cdate(dvq)+1
dv=dv+1
mostra=dv
mostra=mostra
Loop 

%>

 

Abraços

[xanburzum 169]

tem uma aplicação no fórum de tipo de calendario com agenda de eventos, pode te ajudar, até mesmo a implementar sua aplicação, faça uma busca,p