none
Error ao Validar XML RRS feed

  • Pergunta

  • eai galera, alguem que já mecheu com nota fiscal, pode me ajudar?

    quando eu executo o codigo(abaixo) da ese error ake:

    Nao foi possivel encontrar informaçoes sobre o schema para o elemento 'http://portalfiscal.inf.br/nfe:NEf

    Codigo ...............................................

    Imports System.Xml                       'Para XmlTextReader e XmlValidatingReader
    Imports System.Xml.Schema                'Para XmlSchemaCollection (usado mais tarde)

    Public Class Form1
        'Se ocorrer um erro de validação,
        'Você vai definir esse sinalizador para False
        'No manipulador de eventos de validação.

        Private isValid As Boolean = True
        Public Function teste()

            'Na sub-rotina principal, crie um objeto XmlTextReader para ler um documento XML de um arquivo de texto
            'XmlValidatingReader para validar dados XML
            Dim r As New XmlTextReader("C:\Users\Carlos\Desktop\32131227494152000144550010000002051001110251-nfe.xml")

            'O objeto XmlValidatingReader tem uma propriedade ValidationType , que indica o tipo de validação necessária (DTD, XDR ou esquema)
            Dim v As XmlValidatingReader = New XmlValidatingReader(r)
            v.ValidationType = ValidationType.Schema

            'o evento addhandler funciona assim, Se ocorrerem erros de validação, o leitor validar gera um evento de validação.
            AddHandler v.ValidationEventHandler, AddressOf MyValidationEventHandler

            While v.Read()
                'Poderia adicionar o código aqui para processar o conteúdo.
            End While
            v.Close()

            ' Verifique se o documento é válido ou inválido.
            If isValid Then
                MessageBox.Show("Document is valid")
            Else
               MessageBox.Show("Document is invalid")
            End If



            Dim cache As New XmlSchemaCollection()
            cache.Add("leiauteNFe_v3.10.xsd", "C:\Users\Carlos\Downloads\PL_008a\PL_008a\leiauteNFe_v3.10.xsd")
            v.Schemas.Add(cache)



        End Function
        Public Sub MyValidationEventHandler(ByVal sender As Object, _
                                        ByVal args As ValidationEventArgs)
            isValid = False
            MessageBox.Show("Validation event" & vbCrLf & args.Message)
        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            teste()
        End Sub

    terça-feira, 10 de dezembro de 2013 15:40

Todas as Respostas

  • Carlos em que linha acontece o Erro?

    Se tem alguma exemplo desse arquivo?

    Precisamos de mais informação, por isso, que ninguém responde!


    Fulvio Cezar Canducci Dias

    sexta-feira, 13 de dezembro de 2013 21:01