Olá gente, sou nova por aqui e estou com esse erro para realizar a comparação entre os esquemas
Tenho minha função de validação:
Public Function ValidarXML(ByVal documento As XmlDocument, ByVal SchemaNf As String) As String
Dim retorno As String = ""
If documento IsNot Nothing AndAlso File.Exists(SchemaNf) Then
Try
Dim settings As New XmlReaderSettings()
settings.ValidationType = ValidationType.Schema
' Adiciona o schema
Dim schemas As New XmlSchemaSet()
schemas.Add("http://www.sped.fazenda.gov.br/nfse", SchemaNf)
settings.Schemas = schemas
' Configura o evento de validação
AddHandler settings.ValidationEventHandler, AddressOf reader_ValidationEventHandler
' Converte o XmlDocument para string e cria um XmlReader a partir disso
Dim xmlString As String = documento.OuterXml
Using stringReader As New StringReader(xmlString)
Using reader As XmlReader = XmlReader.Create(stringReader, settings)
While reader.Read()
' Apenas lê para acionar a validação
End While
End Using
End Using
If Erro <> "" Then
retorno = "Resultado da validação:" & vbCrLf & vbCrLf & Erro & vbCrLf & "...Fim da validação"
End If
Catch ex As Exception
retorno = "Erro ao validar XML: " & ex.Message
End Try
Else
retorno = "Documento XML inválido ou arquivo do Schema não foi encontrado."
End If
Return retorno
End Function
Nela, envio o esquema DPS_v1.00.xsd
Não, estou realizando a validação e todo o programa em VB .Net