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