Xailer & OZ Software

HOLA A TODOS

HACIA BUEN TIEMPO SIN UN ATORON. EL SIGUIENTE CODIGO NO PERMITE EL REALIZAR EL UPDATE:

WITH OBJECT ::oCostosl
:GoTop(
IF :Locate("Clave = '"+Vloca+"'")
DO WHILE :Clave == Vloca
Vloca2 := :Claveco
WITH OBJECT ::oPase2x
:GoTop()
IF :Locate("Nucuenta = '"+Vloca2+"'")
Vcuni2 := :Costoant
ELSE
Vcuni2 := 0
ENDIF
END
vCanti := :Cantidad
vPieza := :Piezas
DO CASE
CASE vPieza = 0
:FastEdit()
:Costo := Vcuni2
:Importe := ROUND(vCanti*Vcuni2,5)
:FastUpdate()
CASE vPieza <> 0
:FastEdit()
:Costo := Vcuni2
:Importe := ROUND((vCanti*vCuni2)/vPieza,5)
:FastUpdate()
ENDCASE
VCALMER += :Importe
VCOST += :Importe
:Skip()
ENDDO
END

Buenos días,

Corrija la sentencia SQL que está provocando el error.

Saludos

Gracias Ignacio

Saludos