Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Proyecto SIF/Veri*Factu/Ley Antifraude > Envío de registros y sus respuestas
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 30-07-2025
Decanato Decanato is offline
Miembro
 
Registrado: abr 2025
Posts: 98
Poder: 2
Decanato Va por buen camino
Buenas. Alguien que me pueda orientar de cómo leer el XML de respuesta de AEAT para sacar la relación de RF devueltos??? Y si alguien tiene el proceso para VB Net ya sería estupendo. Gracias!!
Responder Con Cita
  #2  
Antiguo 30-07-2025
emailesc emailesc is offline
Miembro
 
Registrado: jul 2023
Posts: 281
Poder: 3
emailesc Va por buen camino
Cita:
Empezado por Decanato Ver Mensaje
Buenas. Alguien que me pueda orientar de cómo leer el XML de respuesta de AEAT para sacar la relación de RF devueltos??? Y si alguien tiene el proceso para VB Net ya sería estupendo. Gracias!!
Yo lo hago así, en el caso de los envíos de altas y sus respuestas.... tienes que tener generadas las clases a partir de los esquemas xsd:
Cita:
Dim serializer As New XmlSerializer(GetType(RespuestaSuministro.RespuestaRegFactuSistemaFacturacionType))
Dim objRespuesta As RespuestaSuministro.RespuestaRegFactuSistemaFacturacionType
Using reader As New StringReader(bodyNode.InnerXml)
objRespuesta = CType(serializer.Deserialize(reader), RespuestaSuministro.RespuestaRegFactuSistemaFacturacionType)
End Using
' '
' Validar número de respuestas vs número de envíos (modificación importante)
If objRespuesta.RespuestaLinea.Length <> countEnvios Then
Return "ERR|15|Desajuste entre registros enviados y respuesta recibida."
End If
'
For i As Integer = 0 To countEnvios - 1
Dim Estado As String = objRespuesta.RespuestaLinea(i).EstadoRegistro.ToString
Dim codigoF As String = objRespuesta.RespuestaLinea(i).IDFactura.NumSerieFactura.ToString
Dim RefExterna As Integer = CInt(objRespuesta.RespuestaLinea(i).RefExterna.ToString)
Dim SerieR As String = codigoF.Split("/")(0)
Dim Centro As String = My.Settings.IdCentro
Etc...
Responder Con Cita
  #3  
Antiguo 30-07-2025
Decanato Decanato is offline
Miembro
 
Registrado: abr 2025
Posts: 98
Poder: 2
Decanato Va por buen camino
Cita:
Empezado por emailesc Ver Mensaje
Yo lo hago así, en el caso de los envíos de altas y sus respuestas.... tienes que tener generadas las clases a partir de los esquemas xsd:
Gracias emailesc , me da que se me viene encima una gran batalla con esto
Responder Con Cita
  #4  
Antiguo 30-07-2025
emailesc emailesc is offline
Miembro
 
Registrado: jul 2023
Posts: 281
Poder: 3
emailesc Va por buen camino
Cita:
Empezado por Decanato Ver Mensaje
Gracias emailesc , me da que se me viene encima una gran batalla con esto
ChatGPT o similar, por 18 o 20 euritos al mes es una ayuda invaluable. Se le va la olla de vez en cuando pero ¿a quien no?
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Entorno pruebas AEAT _Io Envío de registros y sus respuestas 8 02-04-2025 14:56:55
Homologación del software en Aeat ermendalenda General/Noticias 39 08-01-2025 11:24:27
Error 403 de la AEAT mqm Envío de registros y sus respuestas 22 29-11-2024 10:52:51
Calculo Retenciones AEAT keys Internet 2 14-05-2024 08:21:13
SII AEAT España jahlxx Internet 1 09-03-2017 17:40:36


La franja horaria es GMT +2. Ahora son las 15:49:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi