IMPORT util
IMPORT security

FUNCTION requisiciones_compra_d(pdata)
  DEFINE i SMALLINT,
  pdata STRING
  
  DEFINE generales RECORD
       usuario     VARCHAR(50),
       clave       VARCHAR(50)
     END RECORD
    DEFINE data RECORD 
     req_master DYNAMIC ARRAY OF RECORD
       num_req  INT,
       uso      STRING,
       fecha    DATE
     END RECORD,     
    
       r_out RECORD
         mensaje_out STRING,
         cod_msg INT
     END RECORD
  END RECORD,
 idx INT  
 DISPLAY "requi compras d"
 # LOCATE data.archivos.imagen IN MEMORY
    CALL util.JSON.parse(pdata,generales)
  #  WHENEVER ERROR CONTINUE
  
    CONNECT TO "smarmotech" USER generales.usuario USING generales.clave
    IF STATUS < 0 THEN
       LET data.r_out.cod_msg = STATUS
       LET data.r_out.mensaje_out = 'ERROR EN USUARIO CONECTANDOSE A LA BASE DE DATOS'
       DISCONNECT CURRENT    
       RETURN util.JSON.stringify(data)
    END IF
    
    DECLARE busca_master CURSOR FOR
       select a.num_req,a.uso,a.fech_req,b.nom_dpto
       from cotb00006 a,adtb00001 b where a.fech_req > '10/01/2019' AND
                                          a.departamento = b.departamento  
    LET i = 1   
    FOREACH busca_master INTO data.req_master[i].*
       LET i = i + 1
    END FOREACH
    
    DISCONNECT CURRENT
    RETURN util.JSON.stringify(data)
END FUNCTION