AYUDA RESPECTO A IMPLEMENTACION CON A122R DE ARBA!!

18 views
Skip to first unread message

Juan Pablo Prieto

unread,
May 15, 2026, 5:12:46 PM (12 days ago) May 15
to Factura electronica y otros servicios Argentina WSAFIPFE
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
    
Reply all
Reply to author
Forward
0 new messages