FONTE NFE VB.NET

 Tópico anterior Próximo tópico Novo tópico

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#338570 - 05/04/2010 11:02:24

PDIAS
CAMPINAS
Cadast. em:Dezembro/2003


Ola , alguem conseguiu fazer consulta de Cadastro?

Paulo
msn : pcesardi@hotmail.com
skype : pcesardi
Tenho DLL -NFe e CCe

#338810 - 07/04/2010 17:32:43

KILLER
JM
Cadast. em:Março/2010


Quando tento validar o xml:

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 = ""

        If (documento IsNot Nothing) AndAlso (File.Exists(SchemaNf)) Then

            '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
        Else
            retorno = "Documento XML inválido ou arquivo do Schema não foi encontrado."
        End If

        Return retorno
    End Function

na linha em negrito da essa msg de erro:

"Tipo 'http://www.portalfiscal.inf.br/nfe:String' é não declarado ou não é um tipo simples."

já quebrei a cabeça, mais anida não consegui uma solução, alguém pode me ajudar?

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein

#338811 - 07/04/2010 17:35:42

KILLER
JM
Cadast. em:Março/2010


já ia esquecendo:

documento = XmlAssinado
SchemaNF = nfe_v2.00.xsd

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein

#338823 - 07/04/2010 21:45:37

OTAVIOFAVERO
SP
Cadast. em:Novembro/2009


Public Sub ValidarXML(ByVal cRotaArqXML As String, ByVal cRotaArqSchema As String)
        Dim lArqXML As Boolean = File.Exists(cRotaArqXML)
        Dim lArqXSD As Boolean = File.Exists((Me.PastaSchema & "\") + cRotaArqSchema)

        If lArqXML AndAlso lArqXSD Then
            Dim cStreamReader As New StreamReader(cRotaArqXML)
            Dim cXmlTextReader As New XmlTextReader(cStreamReader)
            Dim reader As New XmlValidatingReader(cXmlTextReader)

            ' Criar um coleção de schema, adicionar o XSD para ela
            Dim schemaCollection As New XmlSchemaCollection()
            schemaCollection.Add("http://www.portalfiscal.inf.br/nfe", (Me.PastaSchema & "\") + cRotaArqSchema)

            ' Adicionar a coleção de schema para o XmlValidatingReader
            reader.Schemas.Add(schemaCollection)

            ' Wire up the call back.  The ValidationEvent is fired when the
            ' XmlValidatingReader hits an issue validating a section of the xml
            AddHandler reader.ValidationEventHandler, AddressOf reader_ValidationEventHandler

            ' Iterate through the xml document
            Me.cErro = ""
            Try
                While reader.Read()
                End While
            Catch ex As Exception
                Me.cErro = ex.Message
            End Try

            reader.Close()

            Me.Retorno = 0
            Me.RetornoString = ""
            If cErro <> "" Then
                Me.Retorno = 1
                Me.RetornoString = "Início da validação..." & vbCr & vbLf & vbCr & vbLf
                Me.RetornoString += "Arquivo XML: " & cRotaArqXML & vbCr & vbLf
                Me.RetornoString += ("Arquivo SCHEMA: " & Me.PastaSchema & "\") + cRotaArqSchema & vbCr & vbLf & vbCr & vbLf
                Me.RetornoString += Me.cErro
                Me.RetornoString += vbCr & vbLf & "...Final da validação"
            End If
        Else
            If lArqXML = False Then
                Me.Retorno = 2
                Me.RetornoString = "Arquivo XML não foi encontrato"
            ElseIf lArqXSD = False Then
                Me.Retorno = 3
                Me.RetornoString = "Arquivo XSD (schema) não foi encontrato"
            End If
        End If
    End Sub

    Private Sub reader_ValidationEventHandler(ByVal sender As Object, ByVal e As ValidationEventArgs)
        Me.cErro = (("Linha: " & e.Exception.LineNumber & " Coluna: ") + e.Exception.LinePosition & " Erro: ") + e.Exception.Message & vbCr & vbLf
    End Sub

Nada e tão Rui que não possa ser Piorado........
OnePass http://www.OnePass.com.br/
Otavio Favero

#338835 - 08/04/2010 08:18:49

KILLER
JM
Cadast. em:Março/2010


otavio não deu certo não, aconteceu o mesmo erro, obrigado pela atenção

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein

#338837 - 08/04/2010 08:41:04

KILLER
JM
Cadast. em:Março/2010


fazendo alguns testes aqui vi que com os schemas 1.10 funciona,
mais com os schemas 2.00 não funciona.

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein

#338840 - 08/04/2010 08:53:05

KILLER
JM
Cadast. em:Março/2010


pessoal consegui aqui era problema nos schemas, baixei eles do site oficial
e funcionou direitinho

vlw

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein

#338841 - 08/04/2010 08:55:44

DANIELCPAETE
PORTO ALEGRE
Cadast. em:Dezembro/2003


KILLER poderia mandar um exemplo de um de seus XML feitos na versão 2.0 aqui para o site?

Um abraço

Status MSN(danielcpaete@hotmail.com)


#338849 - 08/04/2010 10:17:36

KILLER
JM
Cadast. em:Março/2010


 Anexos estao visíveis somente para usuários registrados

esta ficando assim, mais ainda contém alguns erros

A mente que se abre a uma nova idéia jamais voltará ao seu tamanho original. Albert Einstein

#338890 - 08/04/2010 17:11:34



Cadast. em:


Última edição em 08/04/2010 17:18:46 por CHAAPOLINN

Pessoal acho que vou entrar nessa!

Onde eu posso baixar o fonte mais atualizado?

e quem está controlando as versões?



 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário