Problemas con tableupdate
Publicado por Martín Ferreyra (6 intervenciones) el 13/09/2007 19:17:09
Hola a todos les molesto para consultarles, el caso es de una cancelación de reservas en entorno multiusuario les cuento
en el init del formulario coloque
CURSORSETPROP("Buffering",5,"reservas")
luego en el boton de cancelar reserva(guarda los cambios) coloque
SELECT reservas
xestado="consumada"
replace estado WITH xestado FOR COD_RESERV=Thisform.TEXt1.Value IN reservas
replace HR_REAL WITH XHORAFINREAL FOR COD_RESERV=Thisform.TEXt1.Value IN reservas
xok=Tableupdate(2,.F.,"reservas")
If xok THEN
=Messagebox("LA ACTUALIZACION SE HA REALIZADO CON EXITO",0,"OPERACION EXITOSA")
Else
=Messagebox("OTRO USUARIO HA REALIZADO MODIFICACIONES EN LOS DATOS DE ESTA RESERVA"+Chr(13)+"SE REINICIARA APLICACION",0,"RESERVA MODIFICADA POR OTRO USUARIO EN LA RED")
=Tablerevert("RESERVAS")
Thisform.Release
Close Tables
Do Form actualizarreserva
Endif
EL PROBLEMA ES QUE GUARDA LOS CAMBIOS PERO... SI OTRO USUARIO LOS CAMBIO POR LA RED LOS CAMBIA LO MISMO COMO SI NO EXISTIERA ES DECIR QUE LA XOK ME DA .T. SIEMPRE PROBE MIRANDO CON OLDVAL Y CURVAL Y NINGUNO DE LOS CAMBIA CUANDO UN USUARIO DE LA RED MODIFICA LA TABLA
DESDE YA MUCHAS GRACIAS.
PD: ES SOLO UN REGISTRO EL QUE SE MODIFICA POR ESO NO ME FIJO SI ALGUN REGISTRO SE MODIFICO CON CICLO REPETITIVO, DE TODAS LO PROBE CON GETFLDSTATE Y NADA
en el init del formulario coloque
CURSORSETPROP("Buffering",5,"reservas")
luego en el boton de cancelar reserva(guarda los cambios) coloque
SELECT reservas
xestado="consumada"
replace estado WITH xestado FOR COD_RESERV=Thisform.TEXt1.Value IN reservas
replace HR_REAL WITH XHORAFINREAL FOR COD_RESERV=Thisform.TEXt1.Value IN reservas
xok=Tableupdate(2,.F.,"reservas")
If xok THEN
=Messagebox("LA ACTUALIZACION SE HA REALIZADO CON EXITO",0,"OPERACION EXITOSA")
Else
=Messagebox("OTRO USUARIO HA REALIZADO MODIFICACIONES EN LOS DATOS DE ESTA RESERVA"+Chr(13)+"SE REINICIARA APLICACION",0,"RESERVA MODIFICADA POR OTRO USUARIO EN LA RED")
=Tablerevert("RESERVAS")
Thisform.Release
Close Tables
Do Form actualizarreserva
Endif
EL PROBLEMA ES QUE GUARDA LOS CAMBIOS PERO... SI OTRO USUARIO LOS CAMBIO POR LA RED LOS CAMBIA LO MISMO COMO SI NO EXISTIERA ES DECIR QUE LA XOK ME DA .T. SIEMPRE PROBE MIRANDO CON OLDVAL Y CURVAL Y NINGUNO DE LOS CAMBIA CUANDO UN USUARIO DE LA RED MODIFICA LA TABLA
DESDE YA MUCHAS GRACIAS.
PD: ES SOLO UN REGISTRO EL QUE SE MODIFICA POR ESO NO ME FIJO SI ALGUN REGISTRO SE MODIFICO CON CICLO REPETITIVO, DE TODAS LO PROBE CON GETFLDSTATE Y NADA
Valora esta pregunta


0