FONTE NFE VB.NET

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

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#475376 - 24/07/2017 17:05:52

SANKARVA
SAO PAULO
Cadast. em:Abril/2010


Entrei no portal nacional da nfe, e somente Mato Grosso tem os webservices da versão 4.0



#475406 - 25/07/2017 20:34:18

GEORGENES
SAO PAULO
Cadast. em:Julho/2012


Última edição em 25/07/2017 21:09:28 por GEORGENES

Boa noite galera.
Alguém poderia ajudar com uma dica como eu faço para incluir a sub tag obsCont "TAG de grupo do campo de uso livre do contribuinte" dentro do XML da danfe.
Abaixo tenho a situação ipotetica.

-<infAdic>
     <infCpl>-A VISTA 43 V65008 MEGA USADOS Vlr.tot.Aprox.Trib.Fed.Est.Mun.: R$ 6963,85 (32,39 %) - FONTE: IBPT. 5oi7eW Veiculo Vendido
              sem Reserva de Dominio e sem Alienacao Fiduciaria Vlr.tot.Aprox.Trib.Fed.Est.Mun.: R$ 6963,85 (32,39 %) - FONTE: IBPT. 5oi7eW BASE
              DE CALCULO REDUZIDO EMITIDO NOS TERMOS DO ARTIGO 53. ITEM 16 TABELA I ANEXO II DO DEC.33118/91 DO RICMS
    </infCpl>
   -<obsCont xCampo="destEmail">
        <xTexto>email@automoveis.com.br</xTexto>
   </obsCont>
   -<obsCont xCampo="tipoVei">
        <xTexto>U</xTexto>
   </obsCont>
   -<obsCont xCampo="RENAVAM">
       <xTexto>0591907143</xTexto>
   </obsCont>
</infAdic>

Agradeço a ajuda.





#475530 - 31/07/2017 09:41:53

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Pessoal uma pergunta em alguns casos eu gero NF-e a partir de  cupom Fiscal de ECF. até ai tudo bem tudo funcionando

uso da seguinte forma
                          Dim NFre As NFref
                        NFre = New NFref
                        Dim refEcf As refECF
                        refEcf = New refECF
                        NFre.refECF.[mod] = "2B"
                        NFre.refECF.nECF = "326"
                        NFre.refECF.nCOO = "1220"
                        Vnfe.infNFE.Ide.finNFe = "1" 'emito apartir de Cupom Fiscal
                        Vnfe.infNFE.Ide.NFRef.Add(NFre)

a questão e que agora mudamos o ECF para SAT o que devo alterar ? só u numero serial do ecf que devo mudar para o numero serial do SAT?

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

#475531 - 31/07/2017 10:05:51

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


O SAT ainda não esta integrado com a NFE. Inclusive se tiver que fazer uma Nfe de devolução, caso ultrapasse os 30 minutos para o cancelamento de um sat, vc deve fazer no cfop de outras entradas, porque se for cfop  de devolução a nfe ira exigir a chave e não vai reconhecer a de sat.




#475550 - 01/08/2017 08:55:51

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
O SAT ainda não esta integrado com a NFE. Inclusive se tiver que fazer uma Nfe de devolução, caso ultrapasse os 30 minutos para o cancelamento de um sat, vc deve fazer no cfop de outras entradas, porque se for cfop  de devolução a nfe ira exigir a chave e não vai reconhecer a de sat.


que coisa, e por isso que pagamos os impostos mais caros do mundo.

Aproveitando o TOPIC. alguém já esta atualizando a NFe 4.0?

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

#475585 - 02/08/2017 10:29:00

ANGELOSCARPIN
SAO PAULO
Cadast. em:Março/2010


Ola pessoal, eu baixe esta funcao aqui no vbmania neste mesmo topico.
Funciona muito bem, gostaria de saber para o envio com o novo layout, o que muda nesta funcao.

Pois agora temos que usar o protocolo tsl no lugar do soap e nao precisa mais do cabecalho.

Nao sei se ja tem alguem trabalhando para modificar este projeto do 3.10 para o 4.

Mas isto ajudou demais, sendo que não sou um expert em VB.net como a maioria aqui.

Obrigado.

  Public Function EnviaLote310(ByVal cArquivoEnviar_xml_texto As String, Optional ByVal cSerieCertificado As String = "", Optional ByRef lSucesso As Boolean = False) As RetEnvio


        'System.Net.ServicePointManager.SecurityProtocol = System.Net.SecurityProtocolType.Tls12 ' .Tls11 ' | System.Net.SecurityProtocolType.Tls12;

        'var req = (HttpWebRequest)WebRequest.Create(url);
        'req.Method = "GET";
        '...
        'Agora você verá TLS 1.2 no Fiddler.

        'Resposta na Web do TLS 1.2

        'NOTA:   é bom incluir TLS 1.0 juntamente com TLS1.1 e TLS1.2 em muitos casos, uma vez que o cliente irá negociar com o servidor e receber o protocolo mais alto que o servidor fornece. Enquanto o servidor fornecer TLS 1.1 ou TLS 1.2, o cliente usará o TLS 1.1 ou 1.2.



        Dim strRetorno As XmlElement
        Dim XMLDocumentoEnviarReceita = New XmlDocument()


        XMLDocumentoEnviarReceita.Load(cArquivoEnviar_xml_texto) 'Carrega o arquivo XML.

        Dim CERT As X509Certificate2
        CERT = SelecionarCertificado(cSerieCertificado)

        Try

            Dim wsMsg As New AutorizacaoNFe.NfeAutorizacao(S_Url.UrlNFeAutorizacao310)
            Dim cab As New AutorizacaoNFe.nfeCabecMsg

            'UF E VERSÃO DO CABEÇALHO
            cab.cUF = S_Url.CodigoUF
            cab.versaoDados = VersaoAtualNfe

            Dim Notas As String
            'CABEÇALHO USADA PARA ENVIO DE LOTE
            'wsMsg = New NFeAutorizacao.NfeAutorizacao(S_Url.UrlNFeAutorizacao310)

            wsMsg.nfeCabecMsgValue = cab

            wsMsg.Timeout = 100000
            wsMsg.ClientCertificates.Add(CERT)

            wsMsg.SoapVersion = SoapProtocolVersion.Soap12

            'wsMsg.SoapVersion =  SoapProtocolVersion.Default
            'wsMsg.SoapVersion = SoapProtocolVersion.Default


            Notas = XMLDocumentoEnviarReceita.OuterXml

            'RETORNO DA SEFAZ
            strRetorno = wsMsg.nfeAutorizacaoLote(XMLDocumentoEnviarReceita)

            'DESMEMBRA RETORNO XML
            Dim StrRetNota As RetEnvio = Nothing
            Dim XmlText As XmlDocument = New XmlDocument

            For Each outerNode As XmlNode In strRetorno

                For Each InnerNode As XmlNode In outerNode.ChildNodes

                    If (InnerNode.Name = "verAplic" Or outerNode.Name = "verAplic") Then
                        StrRetNota.verAplic = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "tMed" Or outerNode.Name = "tMed") Then
                        StrRetNota.tMed = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "cStat" Or outerNode.Name = "cStat") Then
                        StrRetNota.cStat = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "xMotivo" Or outerNode.Name = "xMotivo") Then
                        StrRetNota.xMotivo = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "cUF" Or outerNode.Name = "cUF") Then
                        StrRetNota.cUF = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "nRec" Or outerNode.Name = "nRec") Then
                        StrRetNota.nRec = InnerNode.InnerText
                    End If
                    If (InnerNode.Name = "dhRecbto" Or outerNode.Name = "dhRecbto") Then
                        StrRetNota.dhRecbto = InnerNode.InnerText
                    End If
                    'If (InnerNode.Name = "tMed" Or outerNode.Name = "tMed") Then
                    'StrRetNota.tMed = InnerNode.InnerText
                    'End If
                    '    Dim verAplic As String
                    '    Dim cStat As String
                    '    Dim xMotivo As String
                    '    Dim cUF As String
                    '    Dim nRec As String
                    '    Dim dhRecbto As String
                    '    Dim tMed As String
                    '    Dim XmlRecibo As String

                    lSucesso = True

                Next

            Next

            Return StrRetNota

        Catch ex As Exception

            MsgBox(ex.Message, MsgBoxStyle.Information, "")
            lSucesso = False
            Return Nothing

        End Try

    End Function



#475599 - 03/08/2017 13:20:57

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Angelo eu também vou começar a 4.0 e tenho muitas duvidas, o manual do Sefaz como sempre deixa mais em Duvida ainda

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

#475641 - 07/08/2017 12:24:36

ANGELOSCARPIN
SAO PAULO
Cadast. em:Março/2010


Citação:
:
Angelo eu também vou começar a 4.0 e tenho muitas duvidas, o manual do Sefaz como sempre deixa mais em Duvida ainda


vou começas aqui e o que for conseguindo vou postar aqui então, pois usei no passado um exemplo postado aqui, e foi o que me salvou.







#475649 - 07/08/2017 16:33:40

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
:
Angelo eu também vou começar a 4.0 e tenho muitas duvidas, o manual do Sefaz como sempre deixa mais em Duvida ainda

vou começas aqui e o que for conseguindo vou postar aqui então, pois usei no passado um exemplo postado aqui, e foi o que me salvou.




Muito bom
assim vamos ajudando uns aos outros

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

#475720 - 09/08/2017 19:49:48

GEORGENES
SAO PAULO
Cadast. em:Julho/2012


ANGELOSCARPIN

voce conseguiu testar este seu exemplo e ficou correto com o novo formato 4.0 ?





 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