FONTE NFE VB.NET

Citação:

:
beleza gente troquei a versão para 3.10, o XML passa pela validação e faço o envio, recebo a mensagem de lote recebido, mas quando consulto, recebo a mensagem de 225 Rejeicao: Falha no Schema XML do lote de NFe.
Importei no emissor da receita e importa sem erros, testei também pelo validador do RS https://www.sefaz.rs.gov.br/NFE/NFE-VAL.aspx e tbm não acusa erros.
estou anexando o XML, se alguém poder analisar e ver onde estou errando.

desde já agradeço

            
                Detalhamento.Imposto.Ipi = New IPI
                Detalhamento.Imposto.Ipi.cEnq = [Ô]999[Ô]
                Detalhamento.Imposto.Ipi.IpiTrib = New IPITrib()
                Detalhamento.Imposto.Ipi.IpiTrib.CST = [Ô]00[Ô]
                Detalhamento.Imposto.Ipi.IpiTrib.vBC = Trim(DR([Ô]valor_t[Ô]).ToString)
                Detalhamento.Imposto.Ipi.IpiTrib.pIPI = Trim(DR([Ô]aliq_ipi[Ô]).ToString)
                Detalhamento.Imposto.Ipi.IpiTrib.vIPI = CalculaPercentual(Detalhamento.Imposto.Ipi.IpiTrib.pIPI, Trim(DR([Ô]valor_t[Ô]).ToString))
 

 - <IPI>
  <cEnq>999</cEnq> 
- <IPITrib>
  <CST>00</CST> 
  <vBC>2.50</vBC> 
  <qUnid>0.00</qUnid> [ô]este não devia aparecer
  <vUnid>0.00</vUnid> [ô]este não devia aparecer
  <pIPI>5.00</pIPI> 
  <vIPI>0.13</vIPI> 
  </IPITrib>
  </IPI>
- <PIS>
  

Citação:

Alguém tem um exemplo de XML enviada com sucesso ?

  
Imports System.Web.Services
Imports System.Diagnostics
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Xml.Serialization
Namespace NFeRetAutorizacao


    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Web.Services[Ô], [Ô]4.0.30319.1[Ô])> _
    <System.Diagnostics.DebuggerStepThroughAttribute()> _
    <System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
    <System.Web.Services.WebServiceBindingAttribute(Name:=[Ô]NfeRetAutorizacaoSoap12[Ô], [Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> _
    Partial Public Class NfeRetAutorizacao
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

        Private nfeCabecMsgValueField As nfeCabecMsg

        Private nfeRetAutorizacaoLoteOperationCompleted As System.Threading.SendOrPostCallback

        Private useDefaultCredentialsSetExplicitly As Boolean

        [ô][ô][ô] <remarks/>
        Public Sub New(urlRef As String)
            Me.SoapVersion = System.Web.Services.Protocols.SoapProtocolVersion.Soap12
            Me.Url = urlRef
            If (Me.IsLocalFileSystemWebService(Me.Url) = True) Then
                Me.UseDefaultCredentials = True
                Me.useDefaultCredentialsSetExplicitly = False
            Else
                Me.useDefaultCredentialsSetExplicitly = True
            End If
        End Sub

        Public Property nfeCabecMsgValue() As nfeCabecMsg
            Get
                Return Me.nfeCabecMsgValueField
            End Get
            Set(value As nfeCabecMsg)
                Me.nfeCabecMsgValueField = value
            End Set
        End Property

        Public Shadows Property Url() As String
            Get
                Return MyBase.Url
            End Get
            Set(value As String)
                If (((Me.IsLocalFileSystemWebService(MyBase.Url) = True) AndAlso (Me.useDefaultCredentialsSetExplicitly = False)) AndAlso (Me.IsLocalFileSystemWebService(value) = False)) Then
                    MyBase.UseDefaultCredentials = False
                End If
                MyBase.Url = value
            End Set
        End Property

        Public Shadows Property UseDefaultCredentials() As Boolean
            Get
                Return MyBase.UseDefaultCredentials
            End Get
            Set(value As Boolean)
                MyBase.UseDefaultCredentials = value
                Me.useDefaultCredentialsSetExplicitly = True
            End Set
        End Property

        [ô][ô][ô] <remarks/>
        Public Event nfeRetAutorizacaoLoteCompleted As nfeRetAutorizacaoLoteCompletedEventHandler

        [ô][ô][ô] <remarks/>
        <System.Web.Services.Protocols.SoapHeaderAttribute([Ô]nfeCabecMsgValue[Ô], Direction:=System.Web.Services.Protocols.SoapHeaderDirection.InOut)> _
        <System.Web.Services.Protocols.SoapDocumentMethodAttribute([Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao/nfeRetAutorizacaoLote[Ô], Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)> _
        Public Function nfeRetAutorizacaoLote(<System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> System.Xml.XmlNode
            Dim results As Object() = Me.Invoke([Ô]nfeRetAutorizacaoLote[Ô], New Object() {nfeDadosMsg})
            Return DirectCast(results(0), System.Xml.XmlNode)
        End Function

        [ô][ô][ô] <remarks/>
        Public Sub nfeRetAutorizacaoLoteAsync(nfeDadosMsg As System.Xml.XmlNode)
            Me.nfeRetAutorizacaoLoteAsync(nfeDadosMsg, Nothing)
        End Sub

        [ô][ô][ô] <remarks/>
        Public Sub nfeRetAutorizacaoLoteAsync(nfeDadosMsg As System.Xml.XmlNode, userState As Object)
            If (Me.nfeRetAutorizacaoLoteOperationCompleted Is Nothing) Then
                Me.nfeRetAutorizacaoLoteOperationCompleted = New System.Threading.SendOrPostCallback(AddressOf Me.OnnfeRetAutorizacaoLoteOperationCompleted)
            End If
            Me.InvokeAsync([Ô]nfeRetAutorizacaoLote[Ô], New Object() {nfeDadosMsg}, Me.nfeRetAutorizacaoLoteOperationCompleted, userState)
        End Sub

        Private Sub OnnfeRetAutorizacaoLoteOperationCompleted(arg As Object)
            If (arg IsNot Nothing) Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = DirectCast(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
                [ô]Me.nfeRetAutorizacaoLoteCompleted(Me, New nfeRetAutorizacaoLoteCompletedEventArgs(invokeArgs.Results, invokeArgs.[Error], invokeArgs.Cancelled, invokeArgs.UserState))
            End If
        End Sub

        [ô][ô][ô] <remarks/>
        Public Shadows Sub CancelAsync(userState As Object)
            MyBase.CancelAsync(userState)
        End Sub

        Private Function IsLocalFileSystemWebService(url As String) As Boolean
            If ((url Is Nothing) OrElse (url = String.Empty)) Then
                Return False
            End If
            Dim wsUri As New System.Uri(url)
            If ((wsUri.Port >= 1024) AndAlso (String.Compare(wsUri.Host, [Ô]localHost[Ô], System.StringComparison.OrdinalIgnoreCase) = 0)) Then
                Return True
            End If
            Return False
        End Function
    End Class

    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Xml[Ô], [Ô]4.0.30319.1[Ô])> _
    <System.SerializableAttribute()> _
    <System.Diagnostics.DebuggerStepThroughAttribute()> _
    <System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
    <System.Xml.Serialization.XmlTypeAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô])> _
    <System.Xml.Serialization.XmlRootAttribute([Namespace]:=[Ô]http://www.portalfiscal.inf.br/nfe/wsdl/NfeRetAutorizacao[Ô], IsNullable:=False)> _
    Partial Public Class nfeCabecMsg
        Inherits System.Web.Services.Protocols.SoapHeader

        Private cUFField As String

        Private versaoDadosField As String

        Private anyAttrField As System.Xml.XmlAttribute()

        [ô][ô][ô] <remarks/>
        Public Property cUF() As String
            Get
                Return Me.cUFField
            End Get
            Set(value As String)
                Me.cUFField = value
            End Set
        End Property

        [ô][ô][ô] <remarks/>
        Public Property versaoDados() As String
            Get
                Return Me.versaoDadosField
            End Get
            Set(value As String)
                Me.versaoDadosField = value
            End Set
        End Property

        [ô][ô][ô] <remarks/>
        <System.Xml.Serialization.XmlAnyAttributeAttribute()> _
        Public Property AnyAttr() As System.Xml.XmlAttribute()
            Get
                Return Me.anyAttrField
            End Get
            Set(value As System.Xml.XmlAttribute())
                Me.anyAttrField = value
            End Set
        End Property
    End Class

    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Web.Services[Ô], [Ô]4.0.30319.1[Ô])> _
    Public Delegate Sub nfeRetAutorizacaoLoteCompletedEventHandler(sender As Object, e As nfeRetAutorizacaoLoteCompletedEventArgs)

    [ô][ô][ô] <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute([Ô]System.Web.Services[Ô], [Ô]4.0.30319.1[Ô])> _
    <System.Diagnostics.DebuggerStepThroughAttribute()> _
    <System.ComponentModel.DesignerCategoryAttribute([Ô]code[Ô])> _
    Partial Public Class nfeRetAutorizacaoLoteCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs

        Private results As Object()

        Friend Sub New(results As Object(), exception As System.Exception, cancelled As Boolean, userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub

        [ô][ô][ô] <remarks/>
        Public ReadOnly Property Result() As System.Xml.XmlNode
            Get
                Me.RaiseExceptionIfNecessary()
                Return DirectCast(Me.results(0), System.Xml.XmlNode)
            End Get
        End Property
    End Class
End Namespace