Error al actualizar tabla
ZPrv =ALLTRIM(Thisform.cboproveedor.displayvalue)
zGpo =ALLTRIM(thisform.cbogrupo.displayvalue)
cmd1 ="UPDATE Productos INNER JOIN Precios ON Productos.CODPROD =
Precios.CODPROD AND Productos.EMP_NIT = Precios.EMP_NIT SET
Precios.PRECIO = costoa*?zfact WHERE Productos.CODMARCA=?zprv AND
Productos.CODCLAUNO=?zgpo"
STORE SQLEXEc(ENLACE,cmd1) TO RESULTADO
=SQLCOMMIT(ENLACE)
IF resultado <> 0
=MESSAGEBOX("Actualizacion de Datos","Proceso terminado")
ELSE
= MESSAGEBOX("No se actualizaron los datos","Proceso incompleto")
Endif
zGpo =ALLTRIM(thisform.cbogrupo.displayvalue)
cmd1 ="UPDATE Productos INNER JOIN Precios ON Productos.CODPROD =
Precios.CODPROD AND Productos.EMP_NIT = Precios.EMP_NIT SET
Precios.PRECIO = costoa*?zfact WHERE Productos.CODMARCA=?zprv AND
Productos.CODCLAUNO=?zgpo"
STORE SQLEXEc(ENLACE,cmd1) TO RESULTADO
=SQLCOMMIT(ENLACE)
IF resultado <> 0
=MESSAGEBOX("Actualizacion de Datos","Proceso terminado")
ELSE
= MESSAGEBOX("No se actualizaron los datos","Proceso incompleto")
Endif
1 respuesta
Respuesta de softigal