39 lines
1017 B
Plaintext
39 lines
1017 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION existencia()
|
|
DEFINE i,
|
|
cantidad_orden,pcantidadConduce,transito,existencia,reservado DEC(12,5),
|
|
pfecha DATE
|
|
|
|
|
|
DEFINE existencias DYNAMIC ARRAY OF RECORD
|
|
num_doc INT,
|
|
codid INT,
|
|
cod_mov SMALLINT,
|
|
cantidad DEC(12,5),
|
|
fecha DATE
|
|
|
|
END RECORD
|
|
|
|
DECLARE u27 CURSOR FOR
|
|
SELECT '1',
|
|
b.codid ,
|
|
'99' ,
|
|
SUM(a.cantidad_2)
|
|
FROM iptb00006 a,iptb00002 b
|
|
WHERE a.cod_n=b.cod_n AND a.cod_grupo=b.cod_grupo AND
|
|
a.cod_tipo=b.cod_tipo AND
|
|
a.cod_sec = b.cod_Sec AND a.status_t IS NULL
|
|
GROUP BY b.codid
|
|
HAVING SUM(a.cantidad_2) >0
|
|
LET pfecha = TODAY
|
|
LET i=1
|
|
FOREACH u27 INTO existencias[i].*
|
|
LET i=i+1
|
|
|
|
|
|
END FOREACH; FREE u27
|
|
|
|
RETURN util.JSON.stringify(existencias)
|
|
END FUNCTION
|