Visual Basic .NET

1. Instalar Librería Newtonsoft.Json

Asegúrate de que Newtonsoft.Json esté instalada en tu proyecto. Puedes instalarla a través de NuGet Package Manager ejecutando:

Install-Package Newtonsoft.Json

1. Agregar los imports necesarios

Imports System.Net.Http
Imports System.Text
Imports System.Threading.Tasks
Imports System.Collections.Generic
Imports Newtonsoft.Json

1. Crear una Función para Hacer la Solicitud POST En esta función, enviamos el token Bearer en el encabezado de autorización y enviamos los datos en formato JSON.

Public Async Function SendApiSunat(ByVal url As String, ByVal data As Dictionary(Of String, Object), ByVal bearerToken As String) As Task(Of String)
    Using client As New HttpClient()
        Try
            ' Agregar el token Bearer al encabezado de autorización
            client.DefaultRequestHeaders.Authorization = New Headers.AuthenticationHeaderValue("Bearer", bearerToken)

            ' Convertir el diccionario a JSON
            Dim jsonData As String = JsonConvert.SerializeObject(data)

            ' Configurar el contenido de la solicitud como JSON
            Dim content As New StringContent(jsonData, Encoding.UTF8, "application/json")

            ' Enviar solicitud POST a la API
            Dim response As HttpResponseMessage = Await client.PostAsync(url, content)

            ' Verificar que la respuesta fue exitosa
            response.EnsureSuccessStatusCode()

            ' Leer el contenido de la respuesta
            Dim responseData As String = Await response.Content.ReadAsStringAsync()

            ' Devolver los datos como cadena
            Return responseData
        Catch ex As Exception
            ' Manejar errores
            Console.WriteLine("Error al consumir la API: " & ex.Message)
            Return Nothing
        End Try
    End Using
End Function

1. El siguiente método nos permitirá emitir una Factura

Public Async Sub EmitirFactura()
    
    Dim url As String = "https://api.lucode.pe/api/test/documents"
    ' Reemplazar tu token aqui
    Dim bearerToken As String = "tu_token_bearer"
    
    ' Generar el diccionario de datos para la FACTURA
    Dim data As New Dictionary(Of String, Object) From {
        {"documento", "factura"},
        {"serie", "F001"},
        {"numero", 1},
        {"fecha_de_emision", DateTime.Now.ToString("yyyy-MM-dd")},
        {"fecha_de_vencimiento", DateTime.Now.ToString("yyyy-MM-dd")},
        {"moneda", "PEN"},
        {"orden_compra_servicio", "123456789"},
        {"tipo_operacion", "0101"},
        {"cliente_tipo_de_documento", "6"},
        {"cliente_numero_de_documento", "20123456789"},
        {"cliente_denominacion", "EMPRESA DE SERVICIOS S.A.C"},
        {"cliente_direccion", "AV. SAN MARTIN - LIMA"},
        {"items", New List(Of Dictionary(Of String, Object)) From {
            New Dictionary(Of String, Object) From {
                {"unidad_de_medida", "NIU"},
                {"descripcion", "Nombre del producto"},
                {"cantidad", "1"},
                {"valor_unitario", "234"},
                {"porcentaje_igv", "18"},
                {"precio_unitario", "276.12"},
                {"codigo_tipo_afectacion_igv", "10"},
                {"descuento", "0"}
            }
        }},
        {"total_igv", "42.12"},
        {"total_gravada", "234"},
        {"total", "276.12"}
    }
    
    Dim result As String = Await SendApiSunat(url, data, bearerToken)
    
    If result IsNot Nothing Then
        Console.WriteLine("Respuesta de API SUNAT:")
        Console.WriteLine(result)
    Else
        Console.WriteLine("No se recibió respuesta de la API.")
    End If
End Sub