Problemas con TABLEUPDATE

Estimado amigo tengo el siguiente problema cuando después de ingresar un producto al sistema y salir y volver a entrar a este mismo formulario me sale este mensaje: El Buffer de las Tablas para el Alias Stk_Stk contiene cambios no confirmados
En mi botón PECOSA esta es código:
SET MULTILOCKS ON  && Debe estar en on para almacenar tablas en búfer.
= SQLEXEC(CnxStk,"SELECT * FROM Tmp_Alm","Tmp_Stk")
= SQLEXEC(CnxStk,"SELECT * FROM Stk_Alm","Stk_Stk")
= SQLEXEC(CnxStk,"SELECT * FROM Kar_Alm","Kar_Stk")
= SQLEXEC(CnxStk,"SELECT * FROM Prv_Alm","Prv_Stk")
= SQLEXEC(CnxStk,"SELECT * FROM Ofi_Alm","Ofi_Stk")
= SQLEXEC(CnxStk,"SELECT * FROM Sal_Alm","Sal_Stk")
= TABLEUPDATE(.T.)
Do Form Sal_Stk --- aqui carga el formulario para ingresar y grabar los datos en el servidor
ahora en mi boton grabar de este formulario grabo asi:
     Xcnx9="Insert Into Kar_Alm(Genera, Fec_Kar, Cpt_Prd, Mar_Prd, Umd_Prd, Par_Prd, Cod_Prd,;
     Sal_Kar, Sld_Kar, Pun_Prd, Imp_Sal, Imp_Sld);   
     Values ('"+Allt(Kar_Stk.Genera)+"','"+Allt(Kar_Stk.Fec_Kar)+"','"+Allt(Kar_Stk.Cpt_Prd)+"',;
     '"+Allt(Kar_Stk.Mar_Prd)+"','"+Allt(Kar_Stk.Umd_Prd)+"','"+Allt(Kar_Stk.Par_Prd)+"','"+Allt(Kar_Stk.Cod_Prd)+"',;
     '"+Allt(Kar_Stk.Sal_Kar)+"','"+Allt(Kar_Stk.Sld_Kar)+"','"+Allt(Kar_Stk.Pun_Prd)+"','"+Allt(Kar_Stk.Imp_Sal)+"','"+Allt  (Kar_Stk.Imp_Sld)+"')"
   If SqlExec(CnxStk,Xcnx9)>0
     Else
      a=Aerror(Mat)
      Messagebox(Mat(2),55,'Error al Grabar')
     EndIf
QUE esta mal Amigo ayuda por favor
Te adjunto la imagen que capture del error.
Atentamente,
             Jechu

1 Respuesta

Respuesta
1
Lo que pasa es que para los buffers en la siguiente ejecución debes cerrar lo temporales que se crearon osea los cursores
Así
sele tmp_skp
Use
O directamente
Close databases
O poner un
Tableupdate(.t.)
Antes de volver a generar los cursores
Yo creo que es más fácil cerrar todo al terminar de grabar.
Bendiciones

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas