IMPORT util
IMPORT com
IMPORT os

MAIN
  DEFINE k,kurl,kbodega STRING,
         ktrue BOOLEAN
   DEFINE ku RECORD
    usuario VARCHAR(50),
    clave   VARCHAR(20),
    sesion  VARCHAR(10)
  END RECORD       
  
 # LET kurl = "https://ws.marmotech.com.do/gas/ws/r/restserverdev"
 #LET kurl = "https://ws.marmotech.com.do/gas/ws/r/restserver"
  LET kurl = "http://192.168.40.9/gas/ws/r/restserver"
 # LET kurl = "http://192.168.40.4/gas/ws/r/restserver"
 # LET kurl = "http://192.168.40.4/gas/ws/r/restserverdev"
 #
 # CALL valida_usuario(ku.*,kurl) RETURNING KTRUE,kbodega
 CALL reporte(kurl)
 
  
END MAIN


#
## Communications library using com (http or https)
#

FUNCTION sync_send_command(url, cmd)

    DEFINE url, cmd STRING
    DEFINE result, tmp STRING
    DEFINE http_req com.HTTPRequest
    DEFINE http_resp com.HTTPResponse
   
    
    TRY
       LET http_req = com.HTTPRequest.Create(url)
       CALL http_req.setConnectionTimeout(40)
       CALL http_req.setTimeout(40)
       CALL http_req.setMethod("POST")
       CALL http_req.setCharset("UTF-8")
       CALL http_req.setHeader("DBSync-Client","mbs")
       CALL http_req.setHeader("Content-Type","dbsync/json")
           DISPLAY "request ",cmd
       CALL http_req.doTextRequest(cmd)
       LET http_resp=http_req.getResponse()
       IF http_resp.getStatusCode() != 200 THEN
         RETURN http_resp.getStatusCode(), http_resp.getStatusDescription()
       END IF
       LET tmp = http_resp.getStatusDescription()
       IF (tmp == "OK" || tmp == "no error" ) THEN
          RETURN -1, SFMT("HTTP request status description: %1 ",tmp)
       END IF
       LET result = http_resp.getTextResponse()
    CATCH
       RETURN -2, SFMT("HTTP request error: STATUS=%1 (%2)",STATUS,SQLCA.SQLERRM)
    END TRY
       
    RETURN 0, result

END FUNCTION

FUNCTION show_sync_err(msg)
    DEFINE msg STRING
    CALL fgl_winmessage(%"ERROR", msg, "exclamation")
END FUNCTION