47 lines
1.4 KiB
Plaintext
47 lines
1.4 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION ip_movimientos(pdata)
|
|
DEFINE pdata STRING
|
|
DEFINE credenciales RECORD
|
|
usuario,clave VARCHAR(50)
|
|
END RECORD
|
|
DEFINE p RECORD
|
|
pmovimientos DYNAMIC ARRAY OF RECORD
|
|
cod_mov SMALLINT,
|
|
descripcion VARCHAR(60),
|
|
status_mov CHAR(2),
|
|
control_cliente,control_despacho,control_devolucion,
|
|
control_transferencia,control_departamento,aplicacion_movi_inv,aplicacion_movil_doc CHAR(10)
|
|
END RECORD,
|
|
r_out RECORD
|
|
cod_msg INT,
|
|
mensaje_out VARCHAR(100)
|
|
END RECORD
|
|
END RECORD,
|
|
i SMALLINT
|
|
CALL util.JSON.parse(pdata,credenciales)
|
|
DISPLAY "USUARIO ",credenciales.usuario," clave ",credenciales.clave
|
|
CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
|
|
IF STATUS < 0 THEN
|
|
LET p.r_out.cod_msg=-10
|
|
LET p.r_out.mensaje_out='USUARIO NO VALIDO'
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(P)
|
|
END IF
|
|
|
|
|
|
DECLARE c1 CURSOR FOR
|
|
SELECT a.cod_mov,a.descrip_mov,a.status_mov,a.control_clientes,a.control_despacho,
|
|
a.control_devolucion,a.control_transferencia,a.control_departamento,
|
|
a.aplicacion_movil_inv,a.aplicacion_movil_doc
|
|
FROM iptb00005 a
|
|
WHERE a.status_t IS NULL
|
|
|
|
LET i = 1
|
|
FOREACH c1 INTO p.pmovimientos[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(P)
|
|
END FUNCTION
|