33 lines
1.1 KiB
Plaintext
33 lines
1.1 KiB
Plaintext
|
|
FUNCTION existencia(pcodn,pcodgrupo,pcodtipo,pcodsec,cantidad,xbodega)
|
|
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,pid,xbodega SMALLINT,
|
|
pexistencia,pexistencia1,cantidad DEC(12,5),
|
|
verdad BOOLEAN
|
|
|
|
LET verdad = FALSE
|
|
DISPLAY pcodn,pcodgrupo,pcodtipo,pcodsec,cantidad,pid,xbodega
|
|
SELECT SUM(a.cantidad_2) INTO pexistencia
|
|
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.bodega = xbodega)
|
|
AND (a.status_t IS NULL)
|
|
|
|
IF pexistencia IS NULL THEN
|
|
LET pexistencia = 0
|
|
END IF
|
|
IF pexistencia1 IS NULL THEN
|
|
LET pexistencia1 = 0
|
|
END IF
|
|
IF pexistencia < 0 THEN
|
|
RETURN TRUE,pexistencia
|
|
END IF
|
|
IF cantidad > pexistencia THEN
|
|
RETURN TRUE,pexistencia
|
|
END IF
|
|
|
|
RETURN verdad,pexistencia
|
|
END FUNCTION
|