LOCAL loHttp, loUrl, loData, loResponse

* Deben cambiar los datos de "params" por los que correspondan. 
* Esta request de ejemplo incluye todos posibles valores para 
* llamar al metodo FECAESolicitar, puede que algun valor sea opcional.
LOCAL loDataObject
loDataObject = CREATEOBJECT("JSONObject")
    loDataObject.set("environment", "dev")
    loDataObject.set("method", "FECAESolicitar")
    loDataObject.set("wsid", "wsfe")
    LOCAL params
    params = CREATEOBJECT("JSONObject")
    loDataObject.set("params", params)
        LOCAL Auth
        Auth = CREATEOBJECT("JSONObject")
        params.set("Auth", Auth)
            Auth.set("Token", "{{token}}")
            Auth.set("Sign", "{{sign}}")
            Auth.set("Cuit", "{{cuit}}")
        LOCAL FeCAEReq
        FeCAEReq = CREATEOBJECT("JSONObject")
        params.set("FeCAEReq", FeCAEReq)
            LOCAL FeCabReq
            FeCabReq = CREATEOBJECT("JSONObject")
            FeCAEReq.set("FeCabReq", FeCabReq)
                FeCabReq.set("CantReg", 1)
                FeCabReq.set("PtoVta", 1)
                FeCabReq.set("CbteTipo", 213)
            LOCAL FeDetReq
            FeDetReq = CREATEOBJECT("JSONObject")
            FeCAEReq.set("FeDetReq", FeDetReq)
                LOCAL FECAEDetRequest
                FECAEDetRequest = CREATEOBJECT("JSONObject")
                FeDetReq.set("FECAEDetRequest", FECAEDetRequest)
                    FECAEDetRequest.set("Concepto", 1)
                    FECAEDetRequest.set("DocTipo", 80)
                    FECAEDetRequest.set("DocNro", 33693450239)
                    FECAEDetRequest.set("CbteDesde", 9)
                    FECAEDetRequest.set("CbteHasta", 9)
                    FECAEDetRequest.set("CbteFch", 20240314)
                    FECAEDetRequest.set("FchServDesde", .NULL.)
                    FECAEDetRequest.set("FchServHasta", .NULL.)
                    FECAEDetRequest.set("FchVtoPago", .NULL.)
                    FECAEDetRequest.set("ImpTotal", 100)
                    FECAEDetRequest.set("ImpTotConc", 0)
                    FECAEDetRequest.set("ImpNeto", 100)
                    FECAEDetRequest.set("ImpOpEx", 0)
                    FECAEDetRequest.set("ImpIVA", 0)
                    FECAEDetRequest.set("ImpTrib", 0)
                    FECAEDetRequest.set("MonId", "PES")
                    FECAEDetRequest.set("MonCotiz", 1)
                    FECAEDetRequest.set("CondicionIVAReceptorId", 6)
                    LOCAL CbtesAsoc
                    CbtesAsoc = CREATEOBJECT("JSONObject")
                    FECAEDetRequest.set("CbtesAsoc", CbtesAsoc)
                        LOCAL CbteAsoc
                        CbteAsoc = CREATEOBJECT("JSONArray")
                        CbtesAsoc.set("CbteAsoc", CbteAsoc)
                            LOCAL CbteAsoc0
                            CbteAsoc0 = CREATEOBJECT("JSONObject")
                            CbteAsoc.add(CbteAsoc0)
                                CbteAsoc0.set("Tipo", 11)
                                CbteAsoc0.set("PtoVta", 1)
                                CbteAsoc0.set("Nro", 1)

* 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/afip/requests"

* 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
    ? STR(loHttp.responseText)
    RETURN
ENDIF

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

* Mostramos la respuesta por pantalla
? loHttp.responseText