61 lines
1.5 KiB
Plaintext
61 lines
1.5 KiB
Plaintext
IMPORT util
|
|
IMPORT com
|
|
|
|
TYPE t_sync_cmd RECORD
|
|
oper STRING,
|
|
data STRING
|
|
END RECORD
|
|
|
|
DEFINE r_cmd t_sync_cmd -- el comando recibido por el server
|
|
|
|
MAIN
|
|
DEFINE req com.HTTPServiceRequest,
|
|
s1,s2,s,url,ret,res STRING
|
|
LET url = 'https://ws.marmotech.com.do/gas/ws/r/restserver'
|
|
LET r_cmd.oper='rnc'
|
|
LET r_cmd.data = '{\"usuario\":\"crm_user\",\"clave\":\"XMarmotech2019\",\"rnc\":\"130337391\"}"}'
|
|
CALL sync_send_command(url, s) RETURNING ret, res
|
|
LET s1= req.getRequestHeader("Access-Control-Allow-Origin")
|
|
END MAIN
|
|
FUNCTION read_request(req)
|
|
|
|
DEFINE req com.HTTPServiceRequest
|
|
DEFINE cmd STRING,
|
|
p RECORD
|
|
oper STRING,
|
|
data RECORD
|
|
usuario STRING,
|
|
clave STRING,
|
|
codigo STRING
|
|
END RECORD
|
|
END RECORD
|
|
INITIALIZE r_cmd.* TO NULL
|
|
|
|
TRY
|
|
CALL req.readTextRequest() RETURNING cmd
|
|
|
|
CATCH
|
|
|
|
CALL show_err(SFMT("Unexpected HTTP request read exception: %1", STATUS))
|
|
RETURN FALSE
|
|
END TRY
|
|
#LET cmd='{"oper": "productos_display","data": { "usuario": "CRM_user", "clave": "XMarmotech2019", "codigo": "196681781079"}}'
|
|
IF LENGTH(cmd) == 0 THEN
|
|
-- la operacion va a estar vacia y va dar error por invalida
|
|
RETURN TRUE
|
|
END IF
|
|
#DISPLAY "EL CMD ",cmd
|
|
TRY
|
|
|
|
CALL util.JSON.parse(cmd, r_cmd)
|
|
|
|
CATCH
|
|
|
|
CALL show_err(SFMT("JSON parse error: %1", STATUS))
|
|
RETURN FALSE
|
|
END TRY
|
|
|
|
RETURN TRUE
|
|
|
|
END FUNCTION
|