Estoy tratando (en modo Test) de implementar tema Retenciones de ARBA y si bien gracias al apoyo de buena gente de este foro pude avanzar bastante me freno en un error que no puedo darme cuenta cómo solucionarlo
Me aparece la leyenda:
'org.springframework.http.converter.HttpMessageNotReadableExcepcion'
(al intentar ejecutar una de las ultimas instrucciones de mi desarrollo)
Agradezco la posibilidad de una ayuda si es posible
If Mio.iniciar(vCuitAgente, "") Then
Mio.tls = 1
Mio.archivolicencia = vRutaLicencia
Mio.ArchivoXMLEnviado = vArchivoXMLEnviado
Mio.ArchivoXMLRecibido = vArchivoXMLRecibido
For mg.i = 1 To LV.ListItems.Count
If Val(vNroProvisorio) > 0 Then
vResultado = Mio.apiCargarPropiedad("LIMPIAR", "", 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.ticket", vToken, 0, 0)
If vResultado Then
vTicket = Mio.apiLeerPropiedad("ARBA2025", "obtenerticket.ticketvigente", "", 0, 0)
If vTicket = "SI" Then
vResultado = Mio.apiCargarPropiedad("LIMPIAR", "", 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.URLMETODO", vURLComprobante, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.TIPOMETODO", "POST", 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.idDj", LblIdDDJJ.Caption, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.nTransaccionAgente", vNroProvisorio, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.cuitContribuyente", vCuit, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.cuitAgente", vCuitAgente, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.sucursal", vSucursal, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.alicuota", Format(vAlicuota, "###0.00"), 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.baseImponible", Format(vBase, "###0.00"), 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.importeRetencion", Format(vImpoRet, "###0.00"), 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.razonSocialContribuyente", vRazonSocial, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.fechaOperacion", vFechaStr, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion", "", 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion.calle", vDireccion, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion.numero", "1", 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion.piso", "", 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion.departamento", "", 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion.codigoPostal", vCodPostal, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion.localidad", vLocalidad, 0, 0)
vResultado = vResultado And Mio.apiCargarPropiedad("ARBA2025.DATOSJSON.diccionario.direccion.provincia", vProvincia, 0, 0)
60 If vResultado Then
If Mio.apiEjecutar("ARBA2025") Then
'HASTA ACA SE EJECUTA CORRECTAMENTE
'LUEGO, AL INTENTAR EJECUTAR LA PROXIMA INSTRUCCION FALLA
' Y DEVUELVE LA LEYENDA QUE LES INDICABA AL PRINCIPIO:
'org.springframework.http.converter.HttpMessageNotReadableExcepcion'
'POR LO QUE DE ACA EN MAS NO SIGUE LA EJECUCION!!
vMensaje = Mio.apiLeerPropiedad("ARBA2025", "diccionario.error", "", 0, 0)
If vMensaje = "" Then
vId = Mio.apiLeerPropiedad("ARBA2025", "
diccionario.id", "", 0, 0)
Else
MsgBox "Error " & vMensaje, vbInformation
End If
Else
MsgBox "Error: " & Mio.UltimoMensajeError, vbInformation
End If
Else
MsgBox "Error: " & Mio.UltimoMensajeError, vbInformation
End If
Else
MsgBox "Ticket vencido", vbInformation
End If
Else
MsgBox "Error: " & Mio.UltimoMensajeError, vbInformation
End If
Else
MsgBox "Registro " & mg.i & " IMPOSIBLE DE PROCESAR! (no posee Nro.Provisorio de Certificado)"
End If
Next
End if