Foros del web

RucarMaN · 02-jul-2009, 17:46

recojo estos datos:
IDCliente = Request.Form("IDCliente")
Placa = Request.Form("Placa")
FechaIncio = Request.Form("FechaInicio")
FechaSalida = Request.form("FechaSalida")
Linea = Request.form("Linea")
Puesto = Request.form("Puesto")

donde: FechaInicio seria la fecha de incio y FechaSalida seria la fecha de salida.
bien..
Lleno el Formulario y escojo la fecha de inicio (01/07/2009) y fecha de salida (07/07/2009) seria 7 dias...
como puedo insertar este registro asi:

IDCliente, placa, 01/07/2009, linea, puesto
IDCliente, placa, 02/07/2009, linea, puesto
IDCliente, placa, 03/07/2009, linea, puesto
IDCliente, placa, 04/07/2009, linea, puesto
-----------
IDCliente, placa, 07/07/2009, linea, puesto

hasta la fecha de salida..

osea realizar la cantida de registro segun los dias...

JuanRAPerez · 02-jul-2009, 21:08

saca la diferencia en dias (datediff) y luego insertas de uno en uno sumandole un dia a la fecha de inicio y asi de uno en uno hasta llegar a la fecha fin

suerte

RucarMaN · 03-jul-2009, 14:15

TENGO ESTO PERO NO FUNCIONA......

FechaInicio = Split(FechaInicio,",")

For i = 0 to UBound(FechaInicio)
Response.Write(FechaInicio(i)&"<br />")
Next

pero necesito esto
01/06/2009, 02/06/2009, 03/06/2009
una corrida desde la fecha de inicio hasta la fecha de salida.

Adler · 03-jul-2009, 14:30

Hola

El número de días que te de con la función DateDiff, JuanRa

, lo usas en el ciclo. Después solo has de coger la fecha de inicio y con DateAdd añadirle un día a cada vuelta del ciclo

Suerte

RucarMaN · 03-jul-2009, 17:20

sera algo asi:
For i = 0 to Diferencia
SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DateAdd(DiaCupo), Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DiaCupo &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
Conn.Execute(SQL)
Response.write (SQL)
Next

Adler · 04-jul-2009, 07:03

Hola

Algo como esto

Código asp:

Ver originalCopiarFechaIncio = Request.Form("FechaInicio")
FechaSalida = Request.form("FechaSalida")
 
dias = DateDiff(d, FechaInciom, FechaSalida)
 
For i = 0 to UBound(dias)-1
SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DateAdd("d", i, FechaIncio), Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DiaCupo &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
Conn.Execute(SQL)
Response.write (SQL)
Next

Suerte

RucarMaN · 04-jul-2009, 11:51

ya lo habia realizado asi pero me arroja este rror:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Ubound'

y segun esto:
Comentarios

La función UBound se usa con la función LBound para determinar el tamaño de una matriz. Use la función LBound para buscar el límite inferior de una dimensión de una matriz.

pruebo este ejemplo

Código asp:

Ver originalCopiar< &#37;FechaIncio = "01/01/2009"
FechaSalida = "05/02/2009"
dias = DateDiff("d", FechaIncio, FechaSalida)
For i = 0 to Ubound(dias)-1
SQL = "DateAdd("d", i, FechaIncio)"
Response.write (SQL)
Next% >

Adler · 04-jul-2009, 13:31

Hola

Sí, tienes razón. Traté la variable dias como un arreglo. Solo has de quitarle el ubound y dejarlo así

For i = 0 to dias

Suerte

RucarMaN · 06-jul-2009, 14:45

Estimado...

Código asp:

Ver originalCopiardim fechainicio, dias
FechaInicio = "01/01/2009"
FechaSalida = "03/01/2009"
dias = DateDiff("d", FechaInicio, FechaSalida)
For i = 0 to dias
SQL = "DateAdd("d", i, "& FechaInicio &")"
Response.write (SQL)
Next

y me arroja este error en "d":
SQL = "DateAdd("d", i, "& FechaInicio &")"
---------------^
y le quito las comillas y me arroja esto:
DateAdd(d, i, 01/01/2009)DateAdd(d, i, 01/01/2009)DateAdd(d, i, 01/01/2009)
me imagino que deberia de poner uno debajo del otro y incrementar la fecha
---+---
Nota: para un calendario en ASP y MySQL

Adler · 06-jul-2009, 15:11

Hola

Prueba así. Fijate en las diferencias con como lo hacías

Código asp:

Ver originalCopiarSQL = ""
dim fechainicio, dias
FechaInicio = "01/01/2009"
FechaSalida = "03/01/2009"
dias = DateDiff("d", FechaInicio, FechaSalida)
For i = 0 to dias
SQL = SQL & DateAdd("d", i, FechaInicio) & "<br/>"
Next  
Response.write (SQL)

Suerte

RucarMaN · 07-jul-2009, 11:11

Hermano logre hacer la sentecia...

la tengo asi:

Código asp:

Ver originalCopiarFechaInicio = Request.Form("FechaInicio")
FechaSalida = Request.Form("FechaSalida")
dias = DateDiff("d", FechaInicio, FechaSalida)
 
dia = day(FechaInicio)
mes = month(FechaInicio)
anio = year(FechaInicio)
FechaInicio = anio & "-" & mes & "-" & dia
 
dia = day(FechaSalida)
mes = month(FechaSalida)
anio = year(FechaSalida)
FechaSalida = anio & "-" & mes & "-" & dia
 
For i = 0 to dias
SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DateAdd("d", i, FechaInicio) &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
'Conn.Execute(SQL)
Response.Write SQL
Next

pero estoy usando ASP y MySQL y me da error en la fecha:

Código asp:

Ver originalCopiarINSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','07/07/2009','1','1','Pemo','2009-7-7')INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','08/07/2009','1','1','Pemo','2009-7-7')INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','09/07/2009','1','1','Pemo','2009-7-7')INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','10/07/2009','1','1','Pemo','2009-7-7')

y tengo una varible para modificarlar 2009-07-06 pero en la sentencia entra asi: 06/07/2009...........

Adler · 07-jul-2009, 15:09

Hola

Un poco de lectura

Suerte

RucarMaN · 08-jul-2009, 07:43

Estimado Adler Gracias muchas Gracias... logre resolver.
el campo DiaCupo en la BD MySQL lo deje como Varchar,12 y cuando llamo este registro lo combierto el fecha con CDATE(DiaCupo) para la busqueda de fecha...

pero me faltaria algo?
Que el primer dia en un campo me lo registre 1 y los demas en 0
Ej: si escojo 01/01/2009 hasta 10/01/2009 que el pirmer dia 01/01/2009 introdusca una data de 1 y los demas dias 0 (02/01/2009 >>>10/01/2009)

Adler · 08-jul-2009, 07:56

Hola

Entre el ciclo y el insert hace una condicional

Código asp:

Ver originalCopiarif i <> 0 then valor = 0 else valor = 1

Suerte

RucarMaN · 08-jul-2009, 19:34

Gracias estimado... toda va saliendo bien... faltan algunas cositas pero... voy a descansarun poco... Saludos y pendiente

02-jul-2009, 17:46	#1 (permalink)
RucarMaN 126 Mensajes Ubicación: Caripito Edo Monagas	No se como...? recojo estos datos: IDCliente = Request.Form("IDCliente") Placa = Request.Form("Placa") FechaIncio = Request.Form("FechaInicio") FechaSalida = Request.form("FechaSalida") Linea = Request.form("Linea") Puesto = Request.form("Puesto") donde: FechaInicio seria la fecha de incio y FechaSalida seria la fecha de salida. bien.. Lleno el Formulario y escojo la fecha de inicio (01/07/2009) y fecha de salida (07/07/2009) seria 7 dias... como puedo insertar este registro asi: IDCliente, placa, 01/07/2009, linea, puesto IDCliente, placa, 02/07/2009, linea, puesto IDCliente, placa, 03/07/2009, linea, puesto IDCliente, placa, 04/07/2009, linea, puesto ----------- IDCliente, placa, 07/07/2009, linea, puesto hasta la fecha de salida.. osea realizar la cantida de registro segun los dias... __________________ Con la ayuda de todos seremos mejores... Última edición por RucarMaN; 02-jul-2009 a las 17:55

02-jul-2009, 21:08	#2 (permalink)
JuanRAPerez Colaborador 2.324 Mensajes	Respuesta: No se como...? saca la diferencia en dias (datediff) y luego insertas de uno en uno sumandole un dia a la fecha de inicio y asi de uno en uno hasta llegar a la fecha fin suerte __________________ JuanRa Pérez San Salvador, El Salvador

03-jul-2009, 14:15	#3 (permalink)
RucarMaN 126 Mensajes Ubicación: Caripito Edo Monagas	Respuesta: No se como...? TENGO ESTO PERO NO FUNCIONA...... FechaInicio = Split(FechaInicio,",") For i = 0 to UBound(FechaInicio) Response.Write(FechaInicio(i)&"<br />") Next pero necesito esto 01/06/2009, 02/06/2009, 03/06/2009 una corrida desde la fecha de inicio hasta la fecha de salida. __________________ Con la ayuda de todos seremos mejores...

03-jul-2009, 14:30	#4 (permalink)
Adler Colaborador 2.583 Mensajes	Respuesta: No se como...? Hola El número de días que te de con la función DateDiff, JuanRa, lo usas en el ciclo. Después solo has de coger la fecha de inicio y con DateAdd añadirle un día a cada vuelta del ciclo Suerte __________________ El odio es un sentimiento demasiado escaso e importante como para malgastarlo

03-jul-2009, 17:20	#5 (permalink)
RucarMaN 126 Mensajes Ubicación: Caripito Edo Monagas	Respuesta: No se como...? sera algo asi: For i = 0 to Diferencia SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DateAdd(DiaCupo), Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DiaCupo &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')" Conn.Execute(SQL) Response.write (SQL) Next __________________ Con la ayuda de todos seremos mejores...

04-jul-2009, 11:51	#7 (permalink)
RucarMaN 126 Mensajes Ubicación: Caripito Edo Monagas	Respuesta: No se como...? ya lo habia realizado asi pero me arroja este rror: Microsoft VBScript runtime error '800a000d' Type mismatch: 'Ubound' y segun esto: Comentarios La función UBound se usa con la función LBound para determinar el tamaño de una matriz. Use la función LBound para buscar el límite inferior de una dimensión de una matriz. pruebo este ejemplo Código asp: Ver original Copiar < %FechaIncio = "01/01/2009" FechaSalida = "05/02/2009" dias = DateDiff("d", FechaIncio, FechaSalida) For i = 0 to Ubound(dias)-1 SQL = "DateAdd("d", i, FechaIncio)" Response.write (SQL) Next% > __________________ Con la ayuda de todos seremos mejores... Última edición por RucarMaN; 09-jul-2009 a las 20:30

04-jul-2009, 13:31	#8 (permalink)
Adler Colaborador 2.583 Mensajes	Respuesta: No se como...? Hola Sí, tienes razón. Traté la variable dias como un arreglo. Solo has de quitarle el ubound y dejarlo así For i = 0 to dias Suerte __________________ El odio es un sentimiento demasiado escaso e importante como para malgastarlo

06-jul-2009, 14:45	#9 (permalink)
RucarMaN 126 Mensajes Ubicación: Caripito Edo Monagas	Respuesta: No se como...? Estimado... Código asp: Ver original Copiar dim fechainicio, dias FechaInicio = "01/01/2009" FechaSalida = "03/01/2009" dias = DateDiff("d", FechaInicio, FechaSalida) For i = 0 to dias SQL = "DateAdd("d", i, "& FechaInicio &")" Response.write (SQL) Next y me arroja este error en "d": SQL = "DateAdd("d", i, "& FechaInicio &")" ---------------^ y le quito las comillas y me arroja esto: DateAdd(d, i, 01/01/2009)DateAdd(d, i, 01/01/2009)DateAdd(d, i, 01/01/2009) me imagino que deberia de poner uno debajo del otro y incrementar la fecha ---+--- Nota: para un calendario en ASP y MySQL __________________ Con la ayuda de todos seremos mejores... Última edición por RucarMaN; 09-jul-2009 a las 20:31

06-jul-2009, 15:11	#10 (permalink)
Adler Colaborador 2.583 Mensajes	Respuesta: No se como...? Hola Prueba así. Fijate en las diferencias con como lo hacías Código asp: Ver original Copiar SQL = "" dim fechainicio, dias FechaInicio = "01/01/2009" FechaSalida = "03/01/2009" dias = DateDiff("d", FechaInicio, FechaSalida) For i = 0 to dias SQL = SQL & DateAdd("d", i, FechaInicio) & "<br/>" Next Response.write (SQL) Suerte __________________ El odio es un sentimiento demasiado escaso e importante como para malgastarlo

07-jul-2009, 15:09	#12 (permalink)
Adler Colaborador 2.583 Mensajes	Respuesta: No se como...? Hola Un poco de lectura Suerte __________________ El odio es un sentimiento demasiado escaso e importante como para malgastarlo

08-jul-2009, 07:43	#13 (permalink)
RucarMaN 126 Mensajes Ubicación: Caripito Edo Monagas	Respuesta: No se como...? Estimado Adler Gracias muchas Gracias... logre resolver. el campo DiaCupo en la BD MySQL lo deje como Varchar,12 y cuando llamo este registro lo combierto el fecha con CDATE(DiaCupo) para la busqueda de fecha... pero me faltaria algo? Que el primer dia en un campo me lo registre 1 y los demas en 0 Ej: si escojo 01/01/2009 hasta 10/01/2009 que el pirmer dia 01/01/2009 introdusca una data de 1 y los demas dias 0 (02/01/2009 >>>10/01/2009) __________________ Con la ayuda de todos seremos mejores...

08-jul-2009, 07:56	#14 (permalink)
Adler Colaborador 2.583 Mensajes	Respuesta: No se como...? Hola Entre el ciclo y el insert hace una condicional Código asp: Ver original Copiar if i <> 0 then valor = 0 else valor = 1 Suerte __________________ El odio es un sentimiento demasiado escaso e importante como para malgastarlo

08-jul-2009, 19:34	#15 (permalink)
RucarMaN 126 Mensajes Ubicación: Caripito Edo Monagas	Respuesta: No se como...? Gracias estimado... toda va saliendo bien... faltan algunas cositas pero... voy a descansarun poco... Saludos y pendiente __________________ Con la ayuda de todos seremos mejores...

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Modo lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado