Creación de VEPs para entidades externas (WSCREATEVEP)
findMyVEPByTransactionId
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"
}
}
}