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