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
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 de ingesoft
1