Ver Mensaje Individual
  #4 (permalink)  
Antiguo 23/12/2002, 03:12
jordan
 
Fecha de Ingreso: noviembre-2002
Mensajes: 249
Antigüedad: 22 años, 5 meses
Puntos: 0
Hola, he probado lo que me decias, y no me funciona. Igualmente, siempre trabajaba con la fecha de session, (la fecha que grabo, la de comparar, ...) para no tener este tipo de problemas.

Si es lo de la fecha, es que al recuperarla de la BD, me la cambia. En la BD (access), el campo es de fecha corta (DD/MM/YYYY).

He hecho esta prueba, Le he quitadi la fecha al select, y luego paso la fecha de la tabla al DD/MM/YYYY y hago la comparación y tampoco funciona.



For p = 1 to conta

If Request.form ("cantidad"&p) <> "" then ref = request.form ("referencia"&p)
SQL2 = "SELECT * FROM per_ped where codigo=" & session ("cli") & " and referencia='" & ref & "'"
RS2.Open SQL2, BD, 2, 3, 1


Hasta aquí igual que antes, excepto que he quitado la fecha del where.

Luego si es final de fichero, creo un registro nuevo.

if RS2.eof then
RS2.AddNew
RS2.Fields("codigo") = Session ("cli")
RS2.Fields("Referencia") = Request.Form ("Referencia"&p)
RS2.Fields("Cantidad") = Request.Form ("Cantidad"&p)
RS2.Fields("Precio") = Request.Form ("Precio"&p)
RS2.Fields("Fecha") = Session("Fecha")
RS2.Fields("descripcion") = Request.Form ("descripcion"&p)
else


Si no, paso a "fecha" la fecha del campo.

fecha = Day(RS2.Fields("fecha")) & "/" & Month(RS2.Fields("fecha")) & "/" & Year(RS2.Fields("fecha"))

Si la fecha es igual a la fecha de session, sumo la cantidad.

if fecha = Session("fecha") then
wcantidad = RS2.Fields("cantidad")
RS2.Fields("cantidad") = wcantidad + request.form ("cantidad"&p)
else


Si la fecha no es igual, añado otro registro.

RS2.AddNew
RS2.Fields("codigo") = Session ("cli")
RS2.Fields("Referencia") = Request.Form ("Referencia"&p)
RS2.Fields("Cantidad") = Request.Form ("Cantidad"&p)
RS2.Fields("Precio") = Request.Form ("Precio"&p)
RS2.Fields("Fecha") = Session("Fecha")
RS2.Fields("descripcion") = Request.Form ("descripcion"&p)
end if
End if


Grabo y continuo.

RS2.update
RS2.close
End If
next


Ahora la fecha de session, está así:


fecha=now()
Session ("fecha") = Day(fecha) & "/" & Month(fecha) & "/" & Year(fecha)


Ahora mismo. ya no se por donde mirar, le he dado mil vueltas y he cambiado el codigo otras mil, agradecería cualquier ayuda.

Creo que está bien, pero algo se me está escapando.