Este es un ejemplo teórico de como obtener COT de ARBA desde la interfaz usando el instalador 100.50 o superior para este ejemplo sería necesario previamente obtener usuario/contraseña en ARBA (en el modo prueba o real). Al pie figura adjunto el archivo txt que el ejemplo generaría.
Dim fe As New WSAFIPFE.Factura
Dim bresultado As Boolean
If fe.iniciar(0, "usuario ARBA", "contraseña", "") Then
bresultado = fe.forzarCertificadoSSL(True)
fe.ArchivoXMLEnviado = "d:\enviadoarba.xml"
fe.ArchivoXMLRecibido = "d:\recibidoarba.xml"
bresultado = fe.rtCargarPropiedad("LIMPIAR", "", 0, 0)
bresultado = fe.rtCargarPropiedad("cabecera.ItemCantidad", "1", 0, 0)
bresultado = fe.rtCargarPropiedad("cabecera.planta", "000", 0, 0)
bresultado = fe.rtCargarPropiedad("cabecera.puerta", "000", 0, 0)
bresultado = fe.rtCargarPropiedad("cabecera.version", "000001", 0, 0)
bresultado = fe.rtCargarPropiedad("cabecera.CUIT_EMPRESA", "cuit con el que se creo usuario/contraseña y para el que se generó el archivo de licencia si es en el modo real", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.FECHA_EMISION", "20171013", 0, 0)
REM ANTES DEL 03/06/2019 bresultado = fe.rtCargarPropiedad("remito.CODIGO_UNICO", "91 R999900068152", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.CODIGO_UNICO", "0919999900068152", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.FECHA_SALIDA_TRANSPORTE", "20171013", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.HORA_SALIDA_TRANSPORTE", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.SUJETO_GENERADOR", "E", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINATARIO_CONSUMIDOR_FINAL", "0", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINATARIO_TIPO_DOCUMENTO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINATARIO_DOCUMENTO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINATARIO_CUIT", "30682115722", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINATARIO_RAZON_SOCIAL", "COMPUMUNDO S.A", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINATARIO_TENEDOR", "0", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_CALLE", "Ruta Prov ", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_NUMERO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_COMPLE", "S/N", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_PISO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_DTO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_BARRIO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_CODIGOPOSTAL", "2400", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_LOCALIDAD", "PUERTO ESCOBOAR", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.DESTINO_DOMICILIO_PROVINCIA", "B", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.PROPIO_DESTINO_DOMICILIO_CODIGO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ENTREGA_DOMICILIO_ORIGEN", "NO", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_CUIT", "30629388776", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_RAZON_SOCIAL", "BALDO HECTOR", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.EMISOR_TENEDOR", "0", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_CALLE", "ZONA RURAL", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_NUMERO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_COMPLE", "S/N", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_PISO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_DTO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_BARRIO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_CODIGOPOSTAL", "2400", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_LOCALIDAD", "PUERTO ESCOBAR", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.ORIGEN_DOMICILIO_PROVINCIA", "B", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.TRANSPORTISTA_CUIT", "cuit", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.TIPO_RECORRIDO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.RECORRIDO_LOCALIDAD", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.RECORRIDO_CALLE", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.RECORRIDO_RUTA", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.PATENTE_VEHICULO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.PATENTE_ACOPLADO", "", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.PRODUCTO_NO_TERM_DEV", "0", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.IMPORTE", "1234", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.ItemCantidad", "2", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.CODIGO_UNICO_PRODUCTO", "847150", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.RENTAS_CODIGO_UNIDAD_MEDIDA", "3", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.CANTIDAD", "100", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.PROPIO_CODIGO_PRODUCTO", "23891", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.PROPIO_DESCRIPCION_PRODUCTO", "COMP. SP-3960 VP", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.PROPIO_DESCRIPCION_UNIDAD_MEDIDA", "UNIDAD", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.CANTIDAD_AJUSTADA", "100", 0, 0)
bresultado = fe.rtCargarPropiedad("remito.item.CODIGO_UNICO_PRODUCTO", "847150", 0, 1)
bresultado = fe.rtCargarPropiedad("remito.item.RENTAS_CODIGO_UNIDAD_MEDIDA", "3", 0, 1)
bresultado = fe.rtCargarPropiedad("remito.item.CANTIDAD", "200", 0, 1)
bresultado = fe.rtCargarPropiedad("remito.item.PROPIO_CODIGO_PRODUCTO", "23891", 0, 1)
bresultado = fe.rtCargarPropiedad("remito.item.PROPIO_DESCRIPCION_PRODUCTO", "COMP. SP-3960 VPP", 0, 1)
bresultado = fe.rtCargarPropiedad("remito.item.PROPIO_DESCRIPCION_UNIDAD_MEDIDA", "UNIDAD", 0, 1)
bresultado = fe.rtCargarPropiedad("remito.item.CANTIDAD_AJUSTADA", "200", 0, 1)
If bresultado Then
bresultado = fe.rtPresentar("d:\micarpeta\")
MsgBox ("error general " + fe.UltimoMensajeError)
MsgBox ("error arba " + fe.rtErrorCodigo1 + " " + fe.rtErrorDescripcion1)
MsgBox ("proceado " + fe.rtProcesado1)
MsgBox ("COT " + fe.rtCOT + " integridad " + fe.rtCodigoIntegridad)
Else
MsgBox ("error carga datos " + fe.UltimoMensajeError)
End If
Else
MsgBox ("error iniciar " + fe.UltimoMensajeError)
End If