Ejemplo Consulta AEAT

[emailesc]

Empezado por Decanato

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:

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...