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", "prod")
    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", 206)
            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", 30679928879)
                    FECAEDetRequest.set("CbteDesde", 3)
                    FECAEDetRequest.set("CbteHasta", 3)
                    FECAEDetRequest.set("CbteFch", 20240314)
                    FECAEDetRequest.set("FchServDesde", .NULL.)
                    FECAEDetRequest.set("FchServHasta", .NULL.)
                    FECAEDetRequest.set("FchVtoPago", 20240314)
                    FECAEDetRequest.set("ImpTotal", 121000)
                    FECAEDetRequest.set("ImpTotConc", 0)
                    FECAEDetRequest.set("ImpNeto", 100000)
                    FECAEDetRequest.set("ImpOpEx", 0)
                    FECAEDetRequest.set("ImpIVA", 21000)
                    FECAEDetRequest.set("ImpTrib", 0)
                    FECAEDetRequest.set("MonId", "PES")
                    FECAEDetRequest.set("MonCotiz", 1)
                    FECAEDetRequest.set("CondicionIVAReceptorId", 5)
                    LOCAL Iva
                    Iva = CREATEOBJECT("JSONObject")
                    FECAEDetRequest.set("Iva", Iva)
                        LOCAL AlicIva
                        AlicIva = CREATEOBJECT("JSONArray")
                        Iva.set("AlicIva", AlicIva)
                            LOCAL AlicIva0
                            AlicIva0 = CREATEOBJECT("JSONObject")
                            AlicIva.add(AlicIva0)
                                AlicIva0.set("Id", 5)
                                AlicIva0.set("BaseImp", 100000)
                                AlicIva0.set("Importe", 21000)
                    LOCAL Opcionales
                    Opcionales = CREATEOBJECT("JSONObject")
                    FECAEDetRequest.set("Opcionales", Opcionales)
                        LOCAL Opcional
                        Opcional = CREATEOBJECT("JSONArray")
                        Opcionales.set("Opcional", Opcional)
                            LOCAL Opcional0
                            Opcional0 = CREATEOBJECT("JSONObject")
                            Opcional.add(Opcional0)
                                Opcional0.set("Id", 2101)
                                Opcional0.set("Valor", "1234567890123456789012")
                            LOCAL Opcional1
                            Opcional1 = CREATEOBJECT("JSONObject")
                            Opcional.add(Opcional1)
                                Opcional1.set("Id", 27)
                                Opcional1.set("Valor", "ADC")

* 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