32 lines
795 B
Plaintext
32 lines
795 B
Plaintext
IMPORT util
|
|
|
|
FUNCTION v_usuario(d)
|
|
DEFINE pusuarios RECORD
|
|
usuario,clave VARCHAR(50),
|
|
sesion VARCHAR(10)
|
|
END RECORD,
|
|
R RECORD
|
|
pERROR STRING,
|
|
pbodega SMALLINT
|
|
END RECORD,d STRING
|
|
|
|
TRY
|
|
CALL util.JSON.parse(d, pusuarios)
|
|
|
|
CATCH
|
|
LET r.pERROR = "FGL ERROR: ", err_get(status)
|
|
DISPLAY "fallo ",d
|
|
RETURN util.JSON.stringify(r.perror)
|
|
END TRY
|
|
CONNECT TO "smarmotech" USER pusuarios.usuario USING pusuarios.clave
|
|
IF STATUS < 0 THEN
|
|
LET r.perror = "USUARIO NO VALIDO"
|
|
ELSE
|
|
SELECT a.bodega INTO r.pbodega FROM seg0001 a WHERE a.usuario = pusuarios.usuario
|
|
LET r.perror = 'VALIDO'
|
|
END IF
|
|
|
|
DISCONNECT CURRENT
|
|
|
|
RETURN util.JSON.stringify(r)
|
|
END FUNCTION |