FONTE NFE VB.NET

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

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#481983 - 29/05/2018 01:03:58

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Citação:
  Esse erro é protocolo, alias a falta do TLS.  a sefaz SP passou a exigir TLS inclusive para a versão 3.10 no ambiente de homologação. SSL apenas 3.10 em produção ( até 2/7).  





#481996 - 29/05/2018 15:14:47

BIODIESEL
ARARAS
Cadast. em:Maio/2009


Estou tentando adaptar a classe de Inutilização 4.00, mas não estou conseguindo. Alguém já fez ou sabe como fazer? Sei que pode ser gerado automaticamente também, mas não sei como.

Abraço.

Ricardo



#482027 - 31/05/2018 12:48:23

BIODIESEL
ARARAS
Cadast. em:Maio/2009


Segue a classe de Inutilização já atualizada para NF-e 4.00:

Option Strict Off
Option Explicit On

Imports System
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
Namespace Inutilizacao
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")>
    <System.Diagnostics.DebuggerStepThroughAttribute()>
    <System.ComponentModel.DesignerCategoryAttribute("code")>
     <System.Web.Services.WebServiceBindingAttribute(Name:="nfeInutilizacao4ServiceBinding", [Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeInutilizacao4")>
    Partial Public Class Inutilizacao
        Inherits System.Web.Services.Protocols.SoapHttpClientProtocol
        Private InutilizacaoOperationCompleted As System.Threading.SendOrPostCallback
        Private useDefaultCredentialsSetExplicitly As Boolean
        Public Structure NumRecibo
            Dim tpAmb As String
            Dim verAplic As String
            Dim cStat As String
            Dim xMotivo As String
            Dim cUF As String
            Dim nProt As String
            Dim dhRecbto As String
            Dim [mod] As String
            Dim CNPJ As String
            Dim ano As String
            Dim Serie As String
            Dim nNFIni As String
            Dim nNFFin As String
        End Structure
        Public Sub New(ByVal 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 Shadows Property Url() As String
            Get
                Return MyBase.Url
            End Get
            Set(ByVal 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(ByVal value As Boolean)
                MyBase.UseDefaultCredentials = value
                Me.useDefaultCredentialsSetExplicitly = True
            End Set
        End Property
        ''' <remarks/> tratar como lote
        Public Event InutilizacaoCompleted As InutilizacaoCompletedEventHandler

        <System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://www.portalfiscal.inf.br/nfe/wsdl/NFeInutilizacao4/nfeInutilizacao", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Bare)>
        Public Function nfeInutilizacao(<System.Xml.Serialization.XmlElementAttribute([Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeInutilizacao4")> ByVal nfeDadosMsg As System.Xml.XmlNode) As <System.Xml.Serialization.XmlElementAttribute("nfeResultMsg", [Namespace]:="http://www.portalfiscal.inf.br/nfe/wsdl/NFeInutilizacao4")> System.Xml.XmlNode
            Dim results As Object() = Me.Invoke("nfeInutilizacao", New Object() {nfeDadosMsg})
            Return DirectCast(results(0), System.Xml.XmlNode)
        End Function
        Public Sub nfeInutilizacaoAsync(ByVal nfeDadosMsg As System.Xml.XmlNode)
            Me.nfeInutilizacaoAsync(nfeDadosMsg)
        End Sub
        Private Sub OnnfeInutilizacaoLoteOperationCompleted(ByVal arg As Object)
            If arg IsNot Nothing Then
                Dim invokeArgs As System.Web.Services.Protocols.InvokeCompletedEventArgs = DirectCast(arg, System.Web.Services.Protocols.InvokeCompletedEventArgs)
            End If
        End Sub
        Public Shadows Sub CancelAsync(ByVal userState As Object)
            MyBase.CancelAsync(userState)
        End Sub
        Private Function IsLocalFileSystemWebService(ByVal 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
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")> _
    Public Delegate Sub InutilizacaoCompletedEventHandler(ByVal sender As Object, ByVal e As InutilizacaoCompletedEventArgs)

    ''' <remarks/>
    <System.CodeDom.Compiler.GeneratedCodeAttribute("System.Web.Services", "4.0.30319.1")> _
    <System.Diagnostics.DebuggerStepThroughAttribute()> _
    <System.ComponentModel.DesignerCategoryAttribute("code")> _
    Partial Public Class InutilizacaoCompletedEventArgs
        Inherits System.ComponentModel.AsyncCompletedEventArgs

        Private results As Object()
        Friend Sub New(ByVal results As Object(), ByVal exception As System.Exception, ByVal cancelled As Boolean, ByVal userState As Object)
            MyBase.New(exception, cancelled, userState)
            Me.results = results
        End Sub
        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




#482101 - 05/06/2018 11:01:49

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Ola Pessoal
gente já li vários manuais na Internet(cada um fala de um jeito) mais estou mais perdido que cego em tiroteio como que eu faço para calcular o CFP? e encima do valor do Produto ou em cima do ICMS desse item?

Deus e o maior dos Programadores, ele criou tudo em liguagem visual
                                           .... e viu Deus que era bom


#482116 - 05/06/2018 16:27:27

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Última edição em 05/06/2018 16:30:00 por NILSONTRES

Citação:
  gente já li vários manuais na Internet(cada um fala de um jeito) mais estou mais perdido que cego em tiroteio como que eu faço para calcular o CFP? e encima do valor do Produto ou em cima do ICMS desse item?

Mas me parece que essa parte não sofreu alteração em relação a 3.10 né.
Eu faço assim:
calculoCombate = (_BaseCalc * percentualCombate) / 100
Licms.Item(i).ICMSUFDest_vFCPUFDest = calculoCombate




#482118 - 05/06/2018 17:00:05

FUTURA
.
Cadast. em:Maio/2004


Este cálculo do FCP, é para vendas fora do estado, cujo destinatário da nfe ( cliente), seja consumidor final, e não seja contribuinte de icms certo ?, o que me deixou em dúvida pelo que li, são produtos específicos apenas... meio confuso..



#482119 - 05/06/2018 17:10:57

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Última edição em 05/06/2018 17:31:40 por NILSONTRES

Citação:
  são produtos específicos apenas... meio confuso..

Nunca identifiquei por produtos, mas pode ser que é assim mesmo, que saco.
Mas é isso ai:
Citação:
  é para vendas fora do estado, cujo destinatário da nfe ( cliente), seja consumidor final, e não seja contribuinte de icms certo

Tem que ter um enorme hem !
A Nota Técnica descreve que para os produtos não sujeitos à sua incidência não devem ser preenchidos os campos relativos ao FC, até agora não validava por isso não tive problemas, vamos la atras dessa tabela e programar tudo, sinceramente, quase largando NFE e ficando só com varejo. Uma pena que de vez em quando até esses precisam emitir.
A Sefaz publicou uma tabela informando qual o percentual de FCP pode ser informado nas notas por UF.

Acre – estado com alíquota máxima de 2.00%, por padrão
Alagoas – estado com até 3 alíquotas possíveis com valores fixos em 1.00% e 2.00%
Amapá – estado não possui FCP
Amazonas – estado com até 3 alíquotas possíveis com valores fixos em 1.60%, 1.90% e 2.00%
Bahia – estado com alíquota única de 2.00%
Ceará – estado com alíquota única de 2.00%
Distrito Federal – estado com alíquota única de 2.00%
Espírito Santo – estado com alíquota única de 2.00%
Goiás – estado com alíquota máxima de 2.00%, por padrão
Maranhão – estado com alíquota única de 2.00%
Mato Grosso – estado com alíquota única de 2.00%
Mato Grosso do Sul – estado com alíquota única de 2.00%
Minas Gerais – estado com alíquota única de 2.00%
Pará – estado não possui FCP
Paraíba – estado com alíquota única de 2.00%
Paraná – estado com alíquota única de 2.00%
Pernambuco – estado com alíquota única de 2.00%
Piauí – estado com até 3 alíquotas possíveis com valores fixos em 1.00% e 2.00%
Rio de Janeiro – estado com alíquota máxima de 4.00%
Rio Grande do Norte – estado com alíquota única de 2.00%
Rio Grande do Sul – estado com alíquota única de 2.00%
Rondônia – estado com alíquota única de 2.00%
Roraima – estado com alíquota máxima de 2.00%, por padrão
Santa Catarina – estado não possui FCP
São Paulo – estado com alíquota única de 2.00%
Sergipe – estado com alíquota única de 2.00%
Tocantins – estado com alíquota única de 2.00%
A Sefaz adicionou ainda novas regras de validação para identificar campos zerados que deveriam ter o percentual, mas não foram informados. A Nota Técnica descreve que para os produtos não sujeitos à sua incidência não devem ser preenchidos os campos relativos ao FCP.





#482121 - 05/06/2018 17:32:13

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Tabela de produtos incidentes não encontrei.



#482123 - 05/06/2018 17:58:03

NILSONTRES
SAO PAULO
Cadast. em:Março/2012


Isso mostra o quanto a situação do Brasileiro é complicada, mais ainda a nossa classe, olha só, curso para entender a FCP.
Aqui



#482138 - 06/06/2018 14:14:26

TABPRS
GOIANIA
Cadast. em:Dezembro/2003


Citação:
:
Isso mostra o quanto a situação do Brasileiro é complicada, mais ainda a nossa classe, olha só, curso para entender a FCP.
Aqui

Falando nisso, estou com dúvidas em quais CST devo destacar o FCP, alguém pode me dar uma luz

Jesus te Ama !
Pedro r. Sousa

 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