Creación de VEPs para entidades externas (WSCREATEVEP)


Solicitud
Dim objHttp As Object
Dim strResponse As String
Dim strUrl As String
Dim strData As String
    
' Deben cambiar los datos de "params" por los que correspondan. 
' Esta request de ejemplo incluye todos posibles valores para 
' llamar al metodo findMyVEPByTransactionId, puede que algun valor sea opcional.
Dim dictData As Dictionary
Set dictData = New Dictionary
    dictData.Add "environment", "prod"
    dictData.Add "method", "findMyVEPByTransactionId"
    dictData.Add "wsid", "setipagob2b_createvep"
    Dim params As Dictionary
    Set params = New Dictionary
    dictData.Add "params", params
        params.Add "token", "string"
        params.Add "sign", "string"
        params.Add "owner", 1
        params.Add "ownerTransactionId", 1

' Convertimos el objeto en JSON
strData = JsonConverter.ConvertToJson(dictData, Whitespace:=2)

' Creamos un cliente HTTP para llamar a la API
Set objHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
strUrl = "https://app.afipsdk.com/api/v1/afip/requests"

' Reemplazar con tu access_token obtenido de https://app.afipsdk.com
Dim accessToken As String
accessToken = "TU_TOKEN_AQUI"
objHttp.AddRequestHeader("Authorization", "Bearer " + accessToken)

' Realizamos la llamada a la API
With objHttp
    .Open "POST", strUrl, False
    .setRequestHeader "Content-Type", "application/json"
    .Send strData
    ' En caso de error lo mostramos por pantalla
    If .Status <> 200 Then
        MsgBox .responseText
        Exit Sub
    End If

    strResponse = .responseText
End With

' Convertimos la respuesta en un objeto
Set objJson = JsonConverter.ParseJson(strResponse)

' Mostramos la respuesta por pantalla
Debug.Print JsonConverter.ConvertToJson(objJson, Whitespace:=2)
Respuesta
{
    "findMyVEPByTransactionIdReturn": {
        "VEP": {
            "nroVEP": "long",
            "fechaHoraCreacion": "string",
            "fechaExpiracion": "string",
            "fechaVencimiento": "string",
            "nroFormulario": "integer",
            "orgRecaudDesc": "string",
            "codTipoPago": "integer",
            "pagoDesc": "string",
            "pagoDescExtracto": "string",
            "usuarioCUIT": "long",
            "autorizanteCUIT": "long",
            "contribuyenteCUIT": "long",
            "establecimiento": "integer",
            "concepto": "integer",
            "conceptoDesc": "string",
            "subConcepto": "integer",
            "subConceptoDesc": "string",
            "periodoFiscal": "integer",
            "anticipoCuota": "integer",
            "importe": "decimal",
            "ownerCuit": "long",
            "ownerTransactionId": "long",
            "Detalles": {
                "Detalle": [
                    {
                        "campo": "integer",
                        "campoTipo": "string",
                        "campoDesc": "string",
                        "contenido": "string",
                        "contenidoDesc": "string"
                    }
                ]
            },
            "Obligaciones": {
                "Obligacion": [
                    {
                        "impuesto": "integer",
                        "impuestoDesc": "string",
                        "importe": "decimal"
                    }
                ]
            }
        },
        "CP": {
            "cpId": "long",
            "nroVEP": "long",
            "contribuyenteCUIT": "long",
            "importe": "decimal",
            "sucursal": "integer",
            "tipoSucursal": "integer",
            "terminal": "string",
            "operador": "string",
            "formaPago": "integer",
            "moneda": "integer",
            "bancoPagador": "integer",
            "entidadDePago": "integer",
            "codControl": "string",
            "nroTransaccion": "long",
            "nroTarjeta": "decimal",
            "posEstablecimiento": "long",
            "posNombre": "string",
            "cbu": "decimal",
            "codTipoPago": "integer",
            "codRechazoDebDir": "integer",
            "fechaHoraPago": "string",
            "fechaAnulacion": "string",
            "fechaPosting": "string"
        }
    }
}