Page 1 of 1

FastEdit() y FastUpdate()

Posted: Thu Jan 31, 2019 5:43 pm
by Daniel Pechir
HOLA A TODOS

HACIA BUEN TIEMPO SIN UN ATORON.
MySQL.jpg
MySQL.jpg (60.07 KiB) Viewed 588 times

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

Re: FastEdit() y FastUpdate()

Posted: Fri Feb 01, 2019 12:08 pm
by ignacio
Buenos días,

Corrija la sentencia SQL que está provocando el error.

Saludos

Re: FastEdit() y FastUpdate()

Posted: Fri Feb 01, 2019 7:10 pm
by Daniel Pechir
Gracias Ignacio

Saludos