Crear factura electrónica de ARCA en Visual Basic 6
Con pocas líneas de código
Si es tu primera vez conectándote con la facturación electrónica de ARCA, te recomiendo leer esta guía básica sobre su funcionamiento general.
Conectar tu sistema con la facturación electrónica de ARCA
Guía paso a paso
El primer paso para crear una factura electrónica de ARCA en Visual Basic 6 es obtener el Código de Autorización Electrónico o CAE.
Esto lo vamos a hacer utilizando Afip SDK que nos permite conectarnos a los web services de ARCA sin complicarnos con el uso de SOAP y la autenticación.
Obtener la autorización
Lo primero que tenemos hacer es obtener el “Token authorization”, que seria la autorización en ARCA.
Para usar los web services de ARCA, se requiere un certificado digital, con Afip SDK puedes integrarte en modo desarrollo usando el CUIT 20409378472 sin necesidad de obtener un certificado, para poder integrarte lo más rápido posible.
Te dejo este enlace por si luego quieres usar tu propio certificado para desarrollo.
Debemos ejecutar una solicitud POST al endpoint
https://app.afipsdk.com/api/v1/afip/auth
Private Sub GetAuthorization()
Dim objHttp As Object
Dim strResponse As String
Dim strAuthUrl As String
Dim strAuthData As String
' Crear objeto XMLHTTP
Set objHttp = CreateObject("MSXML2.XMLHTTP")
strAuthUrl = "https://app.afipsdk.com/api/v1/afip/auth"
strAuthData = "{" & _
"""environment"": ""dev""," & _
"""tax_id"": ""20409378472""," & _
"""wsid"": ""wsfe""" & _
"}"
With objHttp
.Open "POST", strAuthUrl, False
.setRequestHeader "Content-Type", "application/json"
.Send strAuthData
If .Status <> 200 Then
MsgBox "Error en la autorización: " & .Status
Exit Sub
End If
strResponse = .responseText
End With
' Parsear respuesta JSON (requiere función auxiliar ParseJson)
Dim objJson As Object
Set objJson = ParseJson(strResponse)
' Guardar token y sign
gstrToken = objJson("token")
gstrSign = objJson("sign")
Debug.Print "Token: " & gstrToken
Debug.Print "Sign: " & gstrSign
End Sub
Ahora tenemos token y sign que nos dio ARCA para usar el web service. No es necesario que lo guardemos, Afip SDK se encarga de esto por nosotros, debemos solicitarlo antes de cada llamada a los métodos del web service.
Crear la factura
Vamos a crear una Factura B por un importe de $121. En nuestro código, añadimos la siguiente función:
Debemos ejecutar una solicitud POST al endpoint
https://app.afipsdk.com/api/v1/afip/requests
Private Sub CreateInvoice()
Dim objHttp As Object
Dim strResponse As String
Dim strInvoiceUrl As String
Dim strInvoiceData As String
Set objHttp = CreateObject("MSXML2.XMLHTTP")
strInvoiceUrl = "https://app.afipsdk.com/api/v1/afip/requests"
strInvoiceData = "{" & _
"""environment"": ""dev""," & _
"""method"": ""FECAESolicitar""," & _
"""wsid"": ""wsfe""," & _
"""params"": {" & _
"""Auth"": {" & _
"""Token"": """ & gstrToken & """," & _
"""Sign"": """ & gstrSign & """," & _
"""Cuit"": ""20409378472""" & _
"}," & _
"""FeCAEReq"": {" & _
"""FeCabReq"": {" & _
"""CantReg"": 1," & _
"""PtoVta"": 1," & _
"""CbteTipo"": 6" & _
"}," & _
"""FeDetReq"": {" & _
"""FECAEDetRequest"": {" & _
"""Concepto"": 1," & _
"""DocTipo"": 99," & _
"""DocNro"": 0," & _
"""CbteDesde"": 1," & _
"""CbteHasta"": 1," & _
"""CbteFch"": """ & Format(Date, "yyyymmdd") & """," & _
"""ImpTotal"": 121," & _
"""ImpTotConc"": 0," & _
"""ImpNeto"": 100," & _
"""ImpOpEx"": 0," & _
"""ImpIVA"": 21," & _
"""ImpTrib"": 0," & _
"""MonId"": ""PES""," & _
"""MonCotiz"": 1," & _
"""CondicionIVAReceptorId"": 5," & _
"""Iva"": [{" & _
"""Id"": 5," & _
"""BaseImp"": 100," & _
"""Importe"": 21" & _
"}]" & _
"}" & _
"}" & _
"}" & _
"}" & _
"}"
With objHttp
.Open "POST", strInvoiceUrl, False
.setRequestHeader "Content-Type", "application/json"
.Send strInvoiceData
If .Status <> 200 Then
MsgBox "Error al crear la factura: " & .Status
Exit Sub
End If
strResponse = .responseText
End With
' Parsear respuesta JSON
Dim objJson As Object
Set objJson = ParseJson(strResponse)
Debug.Print "CAE: " & objJson("CAE")
Debug.Print "Vencimiento CAE: " & objJson("CAEFchVto")
End Sub
En la respuesta tenemos el CAE y vencimiento correspondientes a la factura que acabamos de crear.
{
...
"CAE": "12345678987654",
"CAEFchVto": "20240327"
...
}
Ejemplos de otros tipos de comprobantes
Problemas comunes
Si estás teniendo el error (10016) El número o fecha del comprobante no se corresponde con el próximo a autorizar te recomiendo leer este artículo.
Error (10016) El numero o fecha del comprobante no se corresponde con el proximo a autorizar
Pasos para resolver este error
Si estás teniendo el error (10242) El campo Condición IVA receptor es obligatorio. Consultar método FEParamGetCondicionIvaReceptor te recomiendo leer este artículo.
Error (10242) El campo Condicion IVA receptor no es un valor valido/es obligatorio
Pasos para resolver este error
Con la autorización creada ya podemos proceder a crear el PDF para presentarle a nuestro cliente. Puedes usar como base esta factura o ticket de ejemplo.
Luego, lo único que nos queda es pasar a modo producción, para más información de cómo hacerlo pueden dirigirse a la documentación de la librería https://docs.afipsdk.com/
Ante cualquier duda o pregunta al respecto, pueden resolverla rápidamente dentro de la Comunidad Afip SDK. Además, puedes unirte para estar al tanto de las novedades y problemas técnicos al usar los servicios de ARCA.
