65 lines
1.4 KiB
Plaintext
65 lines
1.4 KiB
Plaintext
IMPORT com
|
|
IMPORT util
|
|
|
|
TYPE t_sync_cmd RECORD
|
|
oper STRING,
|
|
data STRING
|
|
END RECORD
|
|
|
|
|
|
DEFINE envio,ts,krnc STRING
|
|
|
|
MAIN
|
|
LET ts='
|
|
{"oper": "productos_display","data": { "usuario": "CRM_user", "clave": "XMarmotech2019", "codigo": "196681781079"}}'
|
|
#LET ts=
|
|
#'{ "cust_num":2735, "cust_name":"McCarlson",
|
|
# "orderids":[234,3456,24656,34561] }'
|
|
|
|
CALL enviajson() RETURNING envio
|
|
DISPLAY "envio ",envio
|
|
#CALL testjson()
|
|
|
|
END MAIN
|
|
FUNCTION enviajson()
|
|
DEFINE prnc RECORD
|
|
nombre_cliente STRING,
|
|
direccion STRING,
|
|
cod_msg SMALLINT,
|
|
mensaje_out STRING
|
|
END RECORD,
|
|
selec STRING,
|
|
xrnc STRING
|
|
|
|
DEFINE data RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50),
|
|
rnc VARCHAR(11)
|
|
END RECORD
|
|
LET prnc.nombre_cliente='JUAN SOTO'
|
|
LET prnc.direccion='CALLE PRIMERA RESIDENCIAL SOL CRECIENTE'
|
|
LET prnc.mensaje_out = 'busqueda exitosa'
|
|
|
|
CALL util.JSON.parse(xrnc,data)
|
|
RETURN util.JSON.stringify(prnc)
|
|
|
|
END FUNCTION
|
|
FUNCTION testjson()
|
|
DEFINE s STRING,
|
|
r_cmd t_sync_cmd
|
|
DEFINE p RECORD
|
|
oper VARCHAR(100),
|
|
data RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50),
|
|
codigo VARCHAR(11)
|
|
END RECORD
|
|
END RECORD,
|
|
ret INTEGER,
|
|
res STRING
|
|
CALL util.JSON.parse(ts,p)
|
|
DISPLAY "ts- ",ts
|
|
DISPLAY "s-",p.data.*," ",p.oper
|
|
|
|
END FUNCTION
|