AJUDA NO EVENTO DE CANCELAMENTO NFE
Bom Dia,
Galera eu to com um probleminha para validar a XML de Evento de Cancelamento.
Eu não to conseguindo validar, alguém poderia me ajudar ?
Se possÃvel me mandarem só a função de validar serie ótimo
Serei Muito Grato
Agradeço desde já !
Galera eu to com um probleminha para validar a XML de Evento de Cancelamento.
Eu não to conseguindo validar, alguém poderia me ajudar ?
Se possÃvel me mandarem só a função de validar serie ótimo
Serei Muito Grato
Agradeço desde já !
Qual a função que está usando para validação do xml de cancelamento?
Public Function ValidarXML(ByVal documento As XmlDocument, ByVal SchemaNf As String) As String
Dim xmlSaida As Stream = New MemoryStream()
documento.Save(xmlSaida)
xmlSaida.Flush()
xmlSaida.Position = 0
Dim retorno As String = [Ô][Ô]
[ô]COMPARA XML COM ESQUEMA SELECIONADO
Dim cStreamReader As New StreamReader(xmlSaida)
Dim cXmlTextReader As New XmlTextReader(cStreamReader)
Dim reader As New XmlValidatingReader(cXmlTextReader)
Dim schemaCollection As New XmlSchemaCollection()
schemaCollection.Add([Ô]http://www.portalfiscal.inf.br/nfe[Ô], SchemaNf)
reader.Schemas.Add(schemaCollection)
AddHandler reader.ValidationEventHandler, AddressOf reader_ValidationEventHandler
Erro = [Ô][Ô]
Try
While reader.Read()
End While
Catch ex As Exception
Erro = ex.Message
End Try
reader.Close()
If Erro <> [Ô][Ô] Then
retorno = [Ô]Resultado da validação [Ô] & vbCr & vbLf & vbCr & vbLf
retorno += Erro
retorno += vbCr & vbLf & [Ô]...Fim da validação[Ô]
End If
retorno = [Ô]Documento XML inválido ou arquivo do Schema não foi encontrado.[Ô]
Return retorno
End Function
A Função aparente estar certa, mais gera um monte de erro, que não está na XML
Dim xmlSaida As Stream = New MemoryStream()
documento.Save(xmlSaida)
xmlSaida.Flush()
xmlSaida.Position = 0
Dim retorno As String = [Ô][Ô]
[ô]COMPARA XML COM ESQUEMA SELECIONADO
Dim cStreamReader As New StreamReader(xmlSaida)
Dim cXmlTextReader As New XmlTextReader(cStreamReader)
Dim reader As New XmlValidatingReader(cXmlTextReader)
Dim schemaCollection As New XmlSchemaCollection()
schemaCollection.Add([Ô]http://www.portalfiscal.inf.br/nfe[Ô], SchemaNf)
reader.Schemas.Add(schemaCollection)
AddHandler reader.ValidationEventHandler, AddressOf reader_ValidationEventHandler
Erro = [Ô][Ô]
Try
While reader.Read()
End While
Catch ex As Exception
Erro = ex.Message
End Try
reader.Close()
If Erro <> [Ô][Ô] Then
retorno = [Ô]Resultado da validação [Ô] & vbCr & vbLf & vbCr & vbLf
retorno += Erro
retorno += vbCr & vbLf & [Ô]...Fim da validação[Ô]
End If
retorno = [Ô]Documento XML inválido ou arquivo do Schema não foi encontrado.[Ô]
Return retorno
End Function
A Função aparente estar certa, mais gera um monte de erro, que não está na XML
Qual erro está gerando?
Coloca a mensagem completa.
Coloca a mensagem completa.
Erros:
1º elemento [ô]http://www.portalfiscal.inf.br/nfe:retenvevento[ô] nao foi declarado.
2º nao foi possivel encontrar informaçoes sobre o esquema para o atributo [ô]versao[ô].
3º elemento [ô]http://www.portalfiscal.inf.br/nfe:idlote[ô] nao foi declarado.
Vou te Mandar aqui a XML assinada que eu to querendo validar
1º elemento [ô]http://www.portalfiscal.inf.br/nfe:retenvevento[ô] nao foi declarado.
2º nao foi possivel encontrar informaçoes sobre o esquema para o atributo [ô]versao[ô].
3º elemento [ô]http://www.portalfiscal.inf.br/nfe:idlote[ô] nao foi declarado.
Vou te Mandar aqui a XML assinada que eu to querendo validar
SABE ME DIZER QUAL O ERRO ?
Tópico encerrado , respostas não são mais permitidas