DetalladaItems

M.O.A. - Declaración

Items de una Declaracion Detallada

M.O.A. - Declaración

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 DetalladaItems, puede que algun valor sea opcional.
Dim dictData As Dictionary
Set dictData = New Dictionary
    dictData.Add "environment", "dev"
    dictData.Add "method", "DetalladaItems"
    dictData.Add "wsid", "wconsdeclaracion"
    Dim params As Dictionary
    Set params = New Dictionary
    dictData.Add "params", params
        Dim argWSAutenticacionEmpresa As Dictionary
        Set argWSAutenticacionEmpresa = New Dictionary
        params.Add "argWSAutenticacionEmpresa", argWSAutenticacionEmpresa
            argWSAutenticacionEmpresa.Add "Token", "string"
            argWSAutenticacionEmpresa.Add "Sign", "string"
            argWSAutenticacionEmpresa.Add "CuitEmpresaConectada", 1
            argWSAutenticacionEmpresa.Add "TipoAgente", "string"
            argWSAutenticacionEmpresa.Add "Rol", "string"
        params.Add "argIdentificadorDestinacion", "string"

' 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

{
    "DetalladaItemsResult": {
        "ListaErrores": {
            "DetalleError": [
                {
                    "Codigo": "integer",
                    "Descripcion": "string",
                    "DescripcionDetallada": "string",
                    "TextoAclaratorio": "string",
                    "DescripcionAdicional": "string",
                    "Parametros": {
                        "string": [
                            "string"
                        ]
                    }
                }
            ]
        },
        "Server": "string",
        "TimeStamp": "datetime",
        "Items": {
            "Item": [
                {
                    "IdentificadorItem": "string",
                    "PosicionArancelariaSIM": "string",
                    "CodigoPaisOrigen": "string",
                    "CodigoPaisProcedencia": "string",
                    "EstadoUsoMercaderia": "string",
                    "CodigoAcuerdo": "string",
                    "CodigoUnidadDeclarada": "string",
                    "CantidadUnidadDeclarada": "string",
                    "CodigoUnidadEstadistica": "string",
                    "CantidadEstadistica": "string",
                    "MontoUnitario": "string",
                    "MontoFobDivisa": "string",
                    "MontoAjusteIncluirDolar": "string",
                    "MontoAjusteDeducirDolar": "string",
                    "MontoInsumosImportacionTemporal": "string",
                    "MontoInsumosImportacionAConsumo": "string",
                    "MontoDerechoEspecifico": "decimal",
                    "CantidadDerechoEspecifico": "decimal",
                    "MontoFobDolares": "decimal",
                    "PesoNetoKilos": "decimal",
                    "IndicadorSubItem": "string",
                    "Coeficiente": "decimal",
                    "CodigoTipoItem": "string",
                    "MontoFleteDivisa": "decimal",
                    "MontoSeguroDivisa": "decimal",
                    "MontoBaseImponibleDolares": "decimal",
                    "MontoBaseImponibleDivisa": "decimal",
                    "FechaMomentoImponible": "datetime"
                }
            ]
        }
    }
}

Metodos