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