47 lines
1.8 KiB
Plaintext
47 lines
1.8 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION requisiciones()
|
|
|
|
DEFINE arr_autoriza_desp DYNAMIC ARRAY OF RECORD
|
|
num_oc INT,
|
|
cotizacion_no INT,
|
|
fecha CHAR(10),
|
|
tipo_cliente SMALLINT,
|
|
sec_cliente INT,
|
|
sec_vend INT,
|
|
area SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad_ord1 DEC(12,4),
|
|
cantidad_ord DEC(12,4),
|
|
cantidad_1 DEC(12,4),
|
|
cantidad DEC(12,4),
|
|
num_req INT ,
|
|
codid INT
|
|
END RECORD,
|
|
idx SMALLINT
|
|
|
|
DECLARE busca_autoriza CURSOR FOR
|
|
|
|
SELECT DISTINCT a.num_oc,a.cotizacion_no,CAST (d.fecha AS CHAR(10)) AS FECHA,
|
|
b.tipo_cliente,b.sec_cliente,d.sec_vend,a.area,a.cod_n,a.cod_grupo,a.cod_tipo,a.cod_sec,
|
|
a.cantidad_ord1,a.cantidad_ord,a.cantidad_1,cantidad,a.num_req,e.codid
|
|
FROM cctb00026 a,vetb00004 b,prtb00012 c,cctb00025 d,iptb00002 e
|
|
WHERE c.tipo_cliente = b.tipo_cliente AND
|
|
c.sec_cliente = b.sec_cliente AND
|
|
a.num_oc = c.num_oc AND
|
|
a.cotizacion_no = c.cotizacion_no AND
|
|
c.cerrada = 'N' AND
|
|
A.num_req = d.num_req AND
|
|
d.estado in ('AUTORIZADA') AND d.estado_despacho IN ('DESPACHO PARCIAL','NO DESPACHADA') AND
|
|
a.cod_n = e.cod_n AND a.cod_grupo = e.cod_grupo AND a.cod_tipo = e.cod_tipo AND a.cod_sec = e.cod_sec AND
|
|
c.status_t is null and a.status_t IS NULL
|
|
|
|
LET idx = 1
|
|
FOREACH busca_autoriza INTO arr_autoriza_desp[idx].*
|
|
LET idx = idx + 1
|
|
END FOREACH
|
|
RETURN util.JSON.stringify(arr_autoriza_desp)
|
|
END FUNCTION |