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