68 lines
2.2 KiB
Plaintext
68 lines
2.2 KiB
Plaintext
FUNCTION control_cotizacion(parea,pcodn,pcodgrupo,pcodtipo,pcodsec,xcantidad,kcotizacion)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,parea SMALLINT,
|
|
kcotizacion INT,
|
|
pcantidad,kcantidad,xcantidad,xcantidad_cotizacion,devolucion DEC(12,5)
|
|
|
|
SET CONNECTION "IFMX"
|
|
|
|
LET devolucion = 0
|
|
SELECT SUM(a.cantidad_2) INTO devolucion
|
|
FROM iptb00006 a
|
|
WHERE ( a.cod_n = pcodn AND
|
|
a.cod_Grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_Sec = pcodsec AND
|
|
a.num_oc = kcotizacion AND
|
|
a.cod_mov IN (12,13)) AND
|
|
a.status_t IS NULL
|
|
|
|
|
|
LET xcantidad_cotizacion = 0
|
|
SELECT SUM(a.cantidad) INTO xcantidad_cotizacion
|
|
FROM prtb00013 a
|
|
WHERE (a.num_oc = kcotizacion AND
|
|
|
|
a.cod_n = pcodn AND
|
|
a.cod_Grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_Sec = pcodsec ) AND
|
|
a.status_t IS NULL
|
|
|
|
IF xcantidad_cotizacion IS NULL THEN
|
|
LET xcantidad_cotizacion=0
|
|
END IF
|
|
LET kcantidad =0
|
|
SELECT SUM(a.cantidad) INTO kcantidad
|
|
FROM vetb00003 a,vetb00002 b
|
|
WHERE( a.factura = b.factura) AND
|
|
|
|
( a.cod_n = pcodn AND
|
|
a.cod_Grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_Sec = pcodsec) AND
|
|
(b.orden = kcotizacion) AND
|
|
b.status_t IS NULL
|
|
|
|
IF devolucion IS NULL THEN
|
|
LET devolucion =0
|
|
END IF
|
|
IF kcantidad IS NULL THEN
|
|
LET kcantidad =0
|
|
END IF
|
|
IF xcantidad IS NULL THEN
|
|
LET xcantidad=0
|
|
END IF
|
|
|
|
LET pcantidad = (kcantidad + xcantidad)-devolucion
|
|
SET CONNECTION "MSSQL"
|
|
# DISPLAY "cantidad or ",xcantidad_cotizacion," cantidad fact ",kcantidad, " cantidad a f ", xcantidad, "devolucion ", devolucion, " pendiente ",pcantidad
|
|
IF pcantidad > 0 THEN
|
|
IF pcantidad > xcantidad_cotizacion THEN
|
|
RETURN true,xcantidad_cotizacion,pcantidad,kcantidad
|
|
ELSE
|
|
RETURN false,xcantidad_cotizacion,pcantidad ,kcantidad
|
|
END IF
|
|
ELSE
|
|
RETURN false,xcantidad_cotizacion,pcantidad,kcantidad
|
|
END IF
|
|
END FUNCTION |