198 lines
5.5 KiB
Plaintext
198 lines
5.5 KiB
Plaintext
IMPORT util
|
|
IMPORT com
|
|
IMPORT os
|
|
|
|
TYPE t_sync_cmd RECORD
|
|
oper STRING,
|
|
data STRING
|
|
END RECORD
|
|
|
|
MAIN
|
|
DEFINE k,kurl,kbodega STRING,
|
|
ktrue BOOLEAN
|
|
DEFINE ku RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(20),
|
|
sesion VARCHAR(10)
|
|
END RECORD
|
|
LET ku.usuario = 'jsoto'
|
|
LET ku.clave = 'lmmjvsd2014'
|
|
LET ku.sesion = 'ABRIR'
|
|
|
|
LET kurl = "https://ws.marmotech.com.do/gas320/ws/r/restserver"
|
|
CALL chequea_req(kurl)
|
|
|
|
END MAIN
|
|
|
|
FUNCTION chequea_req(xurl)
|
|
DEFINE xurl STRING
|
|
DEFINE data RECORD
|
|
xnum_oc INT,
|
|
xtipo_cliente SMALLINT,
|
|
xsec_cliente INT,
|
|
xcondpago SMALLINT,
|
|
xmonto DEC(12,2),
|
|
xfecha_oc DATE,
|
|
xsec_vend INT,
|
|
mensaje VARCHAR(200),
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50)
|
|
END RECORD,
|
|
requisi RECORD
|
|
numero_doc INT,
|
|
estado STRING,
|
|
cod_msg SMALLINT,
|
|
monto DEC(12,2)
|
|
END RECORD
|
|
DEFINE r_cmd t_sync_cmd
|
|
|
|
DEFINE cmd, res, msg,url STRING,
|
|
ret INT
|
|
DEFINE r RECORD
|
|
perror STRING,
|
|
pbodega SMALLINT
|
|
END RECORD
|
|
LET data.xnum_oc = 137199
|
|
LET data.xtipo_cliente = 15
|
|
LET data.xsec_cliente =9729
|
|
LET data.xcondpago =4
|
|
LET data.xmonto =30170.25
|
|
LET data.xfecha_oc ='2019-08-22'
|
|
LET data.xsec_vend =3707
|
|
LET data.usuario ='jsoto'
|
|
LET data.clave ='lmmjvsd2014'
|
|
LET data.mensaje = 'MENSAJE DE PRUEBA PARA LA PARTE WEB DE LA ORDEN 137184'
|
|
LET r_cmd.oper = "requisicion"
|
|
LET r_cmd.data = util.JSON.stringify(data) -- aca se convierte a string los datos de la operacion
|
|
LET cmd = util.JSON.stringify(r_cmd)
|
|
CALL sync_send_command(xurl, cmd) RETURNING ret, res
|
|
|
|
IF ret == 0 THEN
|
|
CALL util.JSON.parse(res,requisi)
|
|
DISPLAY "res ", cmd
|
|
DISPLAY "datos ",res
|
|
ELSE
|
|
LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n",url
|
|
CALL show_sync_err(msg)
|
|
|
|
END IF
|
|
|
|
END FUNCTION
|
|
FUNCTION valida_usuario(u,url)
|
|
DEFINE u RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(20),
|
|
sesion VARCHAR(10)
|
|
END RECORD
|
|
DEFINE r_cmd t_sync_cmd
|
|
|
|
DEFINE cmd, res, msg,url STRING,
|
|
ret INT
|
|
DEFINE r RECORD
|
|
perror STRING,
|
|
pbodega SMALLINT
|
|
END RECORD
|
|
LET r_cmd.oper = "v_usuarios"
|
|
LET r_cmd.data = util.JSON.stringify(u) -- aca se convierte a string los datos de la operacion
|
|
|
|
LET cmd = util.JSON.stringify(r_cmd) -- aca se convierte a string el comando/operacion a enviar al server
|
|
|
|
CALL sync_send_command(url, cmd) RETURNING ret, res
|
|
|
|
IF ret == 0 THEN
|
|
CALL util.JSON.parse(res,r)
|
|
|
|
IF r.perror = "VALIDO" THEN
|
|
RETURN TRUE,r.pbodega
|
|
ELSE
|
|
LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n",url,"\n",res
|
|
CALL show_sync_err(msg)
|
|
RETURN FALSE,r.pbodega
|
|
END IF
|
|
ELSE
|
|
LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n",url,"\n",res
|
|
CALL show_sync_err(msg)
|
|
RETURN FALSE,r.pbodega
|
|
END IF
|
|
END FUNCTION
|
|
FUNCTION chequea_rnc(url)
|
|
DEFINE r_cmd t_sync_cmd
|
|
DEFINE u CHAR(11),
|
|
url,cmd,res,msg STRING,
|
|
ret INT
|
|
DEFINE r RECORD
|
|
perror STRING,
|
|
pbodega SMALLINT
|
|
END RECORD
|
|
DEFINE prnc RECORD
|
|
nombre_cliente STRING,
|
|
direccion STRING,
|
|
existe INT
|
|
END RECORD
|
|
LET u ='130337391'
|
|
LET r_cmd.oper = "rnc"
|
|
LET r_cmd.data = util.JSON.stringify(u) -- aca se convierte a string los datos de la operacion
|
|
LET cmd = util.JSON.stringify(r_cmd)
|
|
CALL sync_send_command(url, cmd) RETURNING ret, res
|
|
DISPLAY "ret ",ret
|
|
IF ret == 0 THEN
|
|
CALL util.JSON.parse(res,prnc)
|
|
DISPLAY "datos ",prnc.nombre_cliente
|
|
IF r.perror = "VALIDO" THEN
|
|
RETURN TRUE,r.pbodega
|
|
ELSE
|
|
LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n",url,"\n",res
|
|
CALL show_sync_err(msg)
|
|
RETURN FALSE,r.pbodega
|
|
END IF
|
|
ELSE
|
|
LET msg=SFMT(%"Connection '%1' failed",r_cmd.oper),"\n",url,"\n",res
|
|
CALL show_sync_err(msg)
|
|
RETURN FALSE,r.pbodega
|
|
END IF
|
|
END FUNCTION
|
|
|
|
|
|
#
|
|
## Communications library using com (http or https)
|
|
#
|
|
|
|
FUNCTION sync_send_command(url, cmd)
|
|
|
|
DEFINE url, cmd STRING
|
|
DEFINE result, tmp STRING
|
|
DEFINE http_req com.HTTPRequest
|
|
DEFINE http_resp com.HTTPResponse
|
|
|
|
|
|
TRY
|
|
LET http_req = com.HTTPRequest.Create(url)
|
|
CALL http_req.setConnectionTimeout(40)
|
|
CALL http_req.setTimeout(40)
|
|
CALL http_req.setMethod("POST")
|
|
CALL http_req.setCharset("UTF-8")
|
|
CALL http_req.setHeader("DBSync-Client","mbs")
|
|
CALL http_req.setHeader("Content-Type","dbsync/json")
|
|
CALL http_req.doTextRequest(cmd)
|
|
LET http_resp=http_req.getResponse()
|
|
IF http_resp.getStatusCode() != 200 THEN
|
|
RETURN http_resp.getStatusCode(), http_resp.getStatusDescription()
|
|
END IF
|
|
LET tmp = http_resp.getStatusDescription()
|
|
IF (tmp == "OK" || tmp == "no error" ) THEN
|
|
RETURN -1, SFMT("HTTP request status description: %1 ",tmp)
|
|
END IF
|
|
LET result = http_resp.getTextResponse()
|
|
CATCH
|
|
RETURN -2, SFMT("HTTP request error: STATUS=%1 (%2)",STATUS,SQLCA.SQLERRM)
|
|
END TRY
|
|
|
|
RETURN 0, result
|
|
|
|
END FUNCTION
|
|
|
|
FUNCTION show_sync_err(msg)
|
|
DEFINE msg STRING
|
|
CALL fgl_winmessage(%"ERROR", msg, "exclamation")
|
|
END FUNCTION
|