46 lines
1.2 KiB
Plaintext
46 lines
1.2 KiB
Plaintext
|
|
IMPORT util
|
|
IMPORT os
|
|
IMPORT com
|
|
|
|
TYPE t_sync_cmd RECORD
|
|
oper STRING,
|
|
data STRING
|
|
END RECORD
|
|
FUNCTION reporte(url)
|
|
DEFINE url STRING
|
|
DEFINE credenciales RECORD
|
|
usuario VARCHAR(50),
|
|
clave VARCHAR(50),
|
|
cotizacion INT,
|
|
cliente STRING,
|
|
respuesta SMALLINT,
|
|
comentario STRING,
|
|
dispositivo STRING
|
|
END RECORD,
|
|
menajes RECORD
|
|
cod_msg INT,
|
|
descripcion STRING
|
|
END RECORD
|
|
|
|
,
|
|
r_cmd t_sync_cmd,
|
|
s STRING,
|
|
ret,res STRING
|
|
|
|
LET credenciales.usuario = 'jsoto'
|
|
LET credenciales.clave = 'lmmjvsd2014'
|
|
LET credenciales.cotizacion = 205882
|
|
LET credenciales.dispositivo='GOOGLECHROME'
|
|
LET credenciales.respuesta = 3
|
|
LET credenciales.cliente='CENTRO ODONTOLOGICO ORTHOBRIGHT DRA YAJAIRA SRL'
|
|
LET credenciales.comentario = 'ESTO ES UNA PRUEBA'
|
|
LET r_cmd.oper = 'respuesta_clientes'
|
|
LET r_cmd.data = util.JSON.stringify(credenciales)
|
|
LET s = util.JSON.stringify(r_cmd)
|
|
|
|
CALL sync_send_command(url, s) RETURNING ret, res
|
|
|
|
DISPLAY "RESPUESTA: ",res
|
|
END FUNCTION
|