Es posible hacer esto en SQL, como?
Publicado por Oscar Meza (10 intervenciones) el 10/12/2007 16:06:30
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
SCAN ALL
xArticulo=ALLTRIM(Codprod)
xSalida=Cantidad
SELECT COSTOS
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
xRestante=0
SELECT crsDetafac
SCAN ALL
xArticulo=ALLTRIM(Codprod)
xSalida=Cantidad
SELECT COSTOS
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
Valora esta pregunta


0