64 lines
1.9 KiB
Plaintext
64 lines
1.9 KiB
Plaintext
IMPORT util
|
|
|
|
FUNCTION tipos(data)
|
|
DEFINE ptipos DYNAMIC ARRAY OF RECORD
|
|
cod_tipo SMALLINT,
|
|
descripcion VARCHAR(60)
|
|
END RECORD,
|
|
i SMALLINT
|
|
DEFINE credenciales RECORD
|
|
usuario,clave VARCHAR(50),
|
|
clase,grupo SMALLINT
|
|
|
|
END RECORD,
|
|
data STRING
|
|
|
|
DEFINE mensajes RECORD
|
|
cod_msg INT,
|
|
mensaje_out STRING
|
|
END RECORD
|
|
|
|
|
|
CALL util.JSON.parse(data,credenciales)
|
|
IF credenciales.usuario IS NULL THEN
|
|
LET mensajes.cod_msg=3
|
|
LET mensajes.mensaje_out='USUARIO ESTA EN BLANCO'
|
|
RETURN util.JSON.stringify(mensajes)
|
|
END IF
|
|
|
|
CONNECT TO "smarmotech" USER credenciales.usuario USING credenciales.clave
|
|
IF STATUS < 0 THEN
|
|
LET mensajes.cod_msg = 422
|
|
LET mensajes.mensaje_out="ERROR EN CONEXION ",sqlca.sqlerrm
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(mensajes)
|
|
END IF
|
|
IF credenciales.clase IS NULL THEN
|
|
LET mensajes.cod_msg = 423
|
|
LET mensajes.mensaje_out="ERROR, DEBES ENVIAR LA CLASE DEL PRODUCTO "
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(mensajes)
|
|
END IF
|
|
IF credenciales.grupo IS NULL THEN
|
|
LET mensajes.cod_msg = 423
|
|
LET mensajes.mensaje_out="ERROR, DEBES ENVIAR EL GRUPO DEL PRODUCTO "
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(mensajes)
|
|
END IF
|
|
|
|
DECLARE c1 CURSOR FOR
|
|
SELECT DISTINCT a.cod_tipo,a.descripcion FROM iptb00024 a
|
|
INNER JOIN iptb00002 b ON b.cod_n = credenciales.clase AND
|
|
b.cod_grupo = credenciales.grupo AND b.status_t IS NULL
|
|
WHERE a.status_t IS NULL AND (a.descripcion IS NOT NULL AND a.descripcion NOT LIKE 'NO TIENE%')
|
|
|
|
|
|
LET i = 1
|
|
FOREACH c1 INTO ptipos[i].*
|
|
LET i = i + 1
|
|
END FOREACH
|
|
|
|
DISCONNECT CURRENT
|
|
RETURN util.JSON.stringify(ptipos)
|
|
END FUNCTION
|