CotLinker es una dll diseñada para conectarse al web service de ARBA y poder otener el Código de Autorización de Traslado (COT). El mismo se distribuye con ejemplos en distintos lenguajes de programación.
Características técnicas
- Compatible con una amplia gama de lenguajes de programación como Visual Basic 6, Excel, Access, .NET, Delphi, Acucobol, Clarion, Power Builder, ect.
- No requiere de frameworks ni librerias externas. Esto simplifica su uso y garantiza la compatibilidad en múltiples versiones de Windows.
Licencia y soporte
- Soporte hasta la primera puesta en producción garantizando que no tendrá que realizar gastos imprevistos durante todo el proceso de la primera implementación. El mismo no solo cubre las consultas técnicas sino además las consultas relativas a la implementación, habilitación de los servicios en AFIP, administración de certificados y puntos de venta, etc.
Otras opciones de integración
Contamos además con servicios y herramientas diseñadas para conectarse directamente a los servidores y obtener el COT automáticamente. Solo se necesita un archivo de texto generado para ser procesado automáticamente.
Descargue el paquete con los proyectos de demostración en distintos lenguajes.
Clave de transporte
Para probar la demo necesita generar la clave de transporte. La misma puede ser gestionada desde los enlaces detallados. Se necesita tener acceso a informacion tributaria para obtenerla.
Entorno de pruebas: https://sso.test.arba.gov.ar/Registracion/transporteBienes.do
Entorno de producción: https://sso.arba.gov.ar/Registracion/transporteBienes.do
Códigos de ejemplo
Dim cliente As CotLinker.ClienteRE
Dim cab As CotLinker.Remito
Dim det As Producto
Dim Resultado As Resultado
Set cliente = New CotLinker.ClienteRE
cliente.CUIT = 20939802593#
cliente.Password = "111111"
cliente.NroPlanta = 0
cliente.NroPuerta = 1
cliente.Fecha = Format(Now, "yyyymmdd")
cliente.NroSecuencial = 10
cliente.Inicializar
Set cab = New CotLinker.Remito
cab.CU_PREFIJO = 0
cab.CU_NUMERO = 1
cab.FECHA_SALIDA_TRANSPORTE = Format(Now, "yyyymmdd")
cab.SUJETO_GENERADOR = "E"
cab.DESTINATARIO_CONSUMIDOR_FINAL = 0
cab.DESTINATARIO_TENEDOR = 1
cab.DESTINATARIO_CUIT = 20939802593#
cab.DESTINATARIO_RAZON_SOCIAL = "Razon Social"
cab.DESTINO_DOMICILIO_CALLE = "calle"
cab.DESTINO_DOMICILIO_NUMERO = 1234
cab.DESTINO_DOMICILIO_CODIGO_POSTAL = "1234"
cab.DESTINO_DOMICILIO_LOCALIDAD = "Capital Federal"
cab.DESTINO_DOMICILIO_PROVINCIA = "B"
cab.ORIGEN_CUIT = "20939802593"
cab.ORIGEN_RAZON_SOCIAL = "razon social"
cab.ORIGEN_DOMICILIO_CALLE = "calle"
cab.ORIGEN_DOMICILIO_NUMERO = 1234
cab.ORIGEN_DOMICILIO_CODIGO_POSTAL = "1234"
cab.ORIGEN_DOMICILIO_LOCALIDAD = "Avellaneda"
cab.ORIGEN_DOMICILIO_PROVINCIA = "B"
cab.ENTREGA_DOMICILIO_ORIGEN = "SI"
cab.TRANSPORTISTA_CUIT = 20939802593#
cab.PATENTE_VEHICULO = "AAA111"
cab.IMPORTE = "1000"
cliente.AgregaRemito cab
Set det = New CotLinker.Producto
det.CODIGO_UNICO_PRODUCTO = "492120"
det.RENTAS_CODIGO_UNIDAD_MEDIDA = 1
det.CANTIDAD = 1000
det.PROPIO_CODIGO_PRODUCTO = "prod1"
det.PROPIO_DESCRIPCION_PRODUCTO = "producto 1"
det.PROPIO_DESCRIPCION_UNIDAD_MEDIDA = "UNIDAD"
det.CANTIDAD_AJUSTADA = 1000
cliente.AgregaProducto det
cliente.Enviar
Set Resultado = New CotLinker.Resultado
cliente.ObtenerResultado Resultado
If Resultado.TransactionOk Then
MsgBox Resultado.COT
Else
MsgBox Resultado.Errores
End If