61 lines
1.5 KiB
Plaintext
61 lines
1.5 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION ip_bodegas(pdata)
|
|
DEFINE pdata STRING
|
|
|
|
DEFINE p RECORD
|
|
credenciales RECORD
|
|
usuario,clave VARCHAR(50)
|
|
END RECORD,
|
|
pbodegas DYNAMIC ARRAY OF RECORD
|
|
bodega SMALLINT,
|
|
descripcion VARCHAR(60)
|
|
END RECORD,
|
|
usuarios_bodegas DYNAMIC ARRAY OF RECORD
|
|
bodega SMALLINT,
|
|
usuario VARCHAR(50)
|
|
END RECORD,
|
|
mensajes RECORD
|
|
cod_msg INT,
|
|
descripcion STRING
|
|
END RECORD
|
|
END RECORD,
|
|
i SMALLINT
|
|
|
|
#WHENEVER ERROR CONTINUE
|
|
|
|
CALL util.JSON.parse(pdata,p)
|
|
IF STATUS < 0 THEN
|
|
LET p.mensajes.cod_msg=STATUS
|
|
LET p.mensajes.descripcion='ERROR JSON ',SQLCA.sqlerrm
|
|
RETURN util.JSON.stringify(p)
|
|
END IF
|
|
DISPLAY "USUARIO ",p.credenciales.usuario," clave ",p.credenciales.clave
|
|
CONNECT TO "smarmotech" USER p.credenciales.usuario USING p.credenciales.clave
|
|
IF STATUS < 0 THEN
|
|
LET p.mensajes.cod_msg=STATUS
|
|
LET p.mensajes.descripcion='ERROR CONEXION ',SQLCA.sqlerrm
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(p)
|
|
END IF
|
|
DECLARE c1 CURSOR FOR
|
|
SELECT a.cod_bodega,a.descripcion FROM intb00009 a WHERE a.dispositivo_movil='SI'
|
|
|
|
LET i = 1
|
|
FOREACH c1 INTO p.pbodegas[i].*
|
|
|
|
LET i = i + 1
|
|
END FOREACH
|
|
DECLARE c2 CURSOR FOR
|
|
SELECT a.bodega,a.usuario FROM iptb00048 a,intb00009 b WHERE a.bodega = b.cod_bodega AND b.dispositivo_movil='SI'
|
|
|
|
LET i=1
|
|
FOREACH c2 INTO p.usuarios_bodegas[i].*
|
|
|
|
LET i = i +1
|
|
END FOREACH
|
|
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(p)
|
|
END FUNCTION
|