Listar puntos de venta

LOCAL loHttp, loUrl, loData, loResponse
DECLARE Sleep IN kernel32 INTEGER

* Aqui deben cambiar los datos de params por los que correspondan. 
* Esta request de ejemplo incluye todos posibles 
* valores para ejecutar la automatizacion list-sales-points, 
* puede que algun valor sea opcional.
LOCAL loDataObject
loDataObject = CREATEOBJECT("JSONObject")
    loDataObject.set("automation", "list-sales-points")
    LOCAL params
    params = CREATEOBJECT("JSONObject")
    loDataObject.set("params", params)
        params.set("cuit", "20111111112")
        params.set("username", "20111111112")
        params.set("password", "contraseña#segura?")

* Convertimos el objeto en JSON
loData = json_encode(loDataObject)

* Creamos un cliente HTTP para llamar a la API
loHttp = CREATEOBJECT("Msxml2.XMLHTTP")
loUrl = "https://app.afipsdk.com/api/v1/automations"

* Realizamos la llamada a la API
loHttp.Open("POST", loUrl, .F.)
loHttp.setRequestHeader("Content-Type", "application/json")

* Reemplazar con tu access_token obtenido de https://app.afipsdk.com
LOCAL accessToken
accessToken = "TU_TOKEN_AQUI"
loHttp.setRequestHeader("Authorization", "Bearer " + accessToken)

loHttp.Send(loData)

* En caso de error lo mostramos por pantalla
IF loHttp.Status <> 200
    ? loHttp.responseText
    RETURN
ENDIF

* Convertimos la respuesta en un objeto
loResponse = json_decode(loHttp.responseText)

* Mostramos la respuesta por pantalla
? loHttp.responseText

* Expera maxima de 120 segundos (5 segundos * 24)
lnRetries = 24

DO WHILE lnRetries >= 0
    lnRetries = lnRetries - 1

    * Creamos un cliente HTTP para llamar a la API
    loHttp = CREATEOBJECT("Msxml2.XMLHTTP")
    loUrl = "https://app.afipsdk.com/api/v1/automations/" + loResponse.get("id")

    * Realizamos la llamada a la API
    loHttp.Open("GET", loUrl, .F.)
    loHttp.setRequestHeader("Content-Type", "application/json")
    loHttp.setRequestHeader("Authorization", "Bearer " + accessToken)
    loHttp.Send()

    * En caso de error lo mostramos por pantalla
    IF loHttp.Status <> 200
        ? loHttp.responseText
        RETURN
    ENDIF

    * Convertimos la respuesta en un objeto
    loResponse = json_decode(loHttp.responseText)

    * Checkeamos si se ya finalizo
    IF loResponse.get("status") == "complete"
        * Mostramos la respuesta por pantalla
        ? loHttp.responseText

        EXIT
    ENDIF

    * Esperamos 5 segundos antes de volver a pedir los detalles
    Sleep(5000)
ENDDO