Alguien sabes como pasar a SQL?
Publicado por Oscar Meza (78 intervenciones) el 10/12/2007 16:10:53
Necesito la ayuda de alguien del foro en el siguiente codigo que necesito pasar a sql y no tengo ni idea como hacerlo, podrian ayudarme?
xRestante=0
SELECT crsDetafac && cursor local
SCAN ALL
xArticulo=ALLTRIM(Codprod)
xSalida=Cantidad
SELECT COSTOS && tabla de SQL
SCAN ALL FOR ARTICULO=xArticulo
xRestante=CANTIDAD_RESTANTE
IF xRestante>xSalida
REPLACE CANTIDAD_RESTANTE WITH xRestante-xSalida
xSalida=0
ELSE
xSalida=xSalida-xRestante
REPLACE CANTIDAD_RESTANTE WITH 0
ENDIF
IF xSalida=0
EXIT
ENDIF
ENDSCAN
SELECT crsDetafac
ENDSCAN
Tiene q ser la actualizacion de la tabla en SQL mediante codigo de SQL, pues ni con un ca se deja modificar.
xRestante=0
SELECT crsDetafac && cursor local
SCAN ALL
xArticulo=ALLTRIM(Codprod)
xSalida=Cantidad
SELECT COSTOS && tabla de SQL
SCAN ALL FOR ARTICULO=xArticulo
xRestante=CANTIDAD_RESTANTE
IF xRestante>xSalida
REPLACE CANTIDAD_RESTANTE WITH xRestante-xSalida
xSalida=0
ELSE
xSalida=xSalida-xRestante
REPLACE CANTIDAD_RESTANTE WITH 0
ENDIF
IF xSalida=0
EXIT
ENDIF
ENDSCAN
SELECT crsDetafac
ENDSCAN
Tiene q ser la actualizacion de la tabla en SQL mediante codigo de SQL, pues ni con un ca se deja modificar.
Valora esta pregunta


0