34 lines
1005 B
Plaintext
34 lines
1005 B
Plaintext
FUNCTION control_cotizacion(pcodn,pcodgrupo,pcodtipo,pcodsec,xcantidad,kcotizacion)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec SMALLINT,
|
|
kcotizacion INT,
|
|
kcantidad,xcantidad,xcantidad_cotizacion DEC(12,5)
|
|
|
|
LET xcantidad_cotizacion = 0
|
|
SELECT SUM(a.cantidad) INTO xcantidad_cotizacion
|
|
FROM vetb00051 a
|
|
WHERE a.cotizacion_no = kcotizacion AND
|
|
a.cod_n = pcodn AND
|
|
a.cod_Grupo = pcodgrupo AND
|
|
a.cod_tipo = pcodtipo AND
|
|
a.cod_Sec = pcodsec
|
|
|
|
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.conduce = kcotizacion AND
|
|
b.status_t IS NULL
|
|
|
|
LET kcantidad = kcantidad + xcantidad
|
|
|
|
IF kcantidad > xcantidad_cotizacion THEN
|
|
RETURN true
|
|
ELSE
|
|
RETURN false
|
|
END IF
|
|
|
|
END FUNCTION |