50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
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
|