FONTE NFE VB.NET

Citação:

Pessoal alguem tem algum exemplo de envio de nfe em contingencia?

Citação:

:
Pessoal alguem tem algum exemplo de envio de nfe em contingencia?
Se eu te falar que meu primeiro sistema de nfe já deve ter uns 8 anos e eu até hoje não consegui entender esse processo da contingencia, graças a Deus nunca precisou.

Citação:

Se eu te falar que meu primeiro sistema de nfe já deve ter uns 8 anos e eu até hoje não consegui entender esse processo da contingencia, graças a Deus nunca precisou.

Citação:

Pois é Nilson também não estou entendo nada no manual
e MG esta em contingencia ate o mes 10
to perdidinho

Citação:

:
Se eu te falar que meu primeiro sistema de nfe já deve ter uns 8 anos e eu até hoje não consegui entender esse processo da contingencia, graças a Deus nunca precisou.

Pois é Nilson também não estou entendo nada no manual
e MG esta em contingencia ate o mes 10
to perdidinho

Nobres colegas NILSONTRES e MFLAVIO, o processo de contingência é bem simples basta alterar as seguintes tags:

NFe.infNFe.ide.tpEmis
NFe.infNFe.ide.dhCont
NFe.infNFe.ide.xJust

Tipos de Emissão:
1=Emissão normal (não em contingência);
2=Contingência FS-IA, com impressão do DANFE em formulário de segurança;
3=Contingência SCAN (Sistema de Contingência do Ambiente Nacional);
4=Contingência DPEC (Declaração Prévia da Emissão em Contingência);
5=Contingência FS-DA, com impressão do DANFE em formulário de segurança;
6=Contingência SVC-AN (SEFAZ Virtual de Contingência do AN);
7=Contingência SVC-RS (SEFAZ Virtual de Contingência do RS);
9=Contingência off-line da NFC-e;

E alterar a Url para a Url de contingência da devida UF que você esta emitindo NFe. No meu caso faço o seguinte tenho uma tabela parametrização e nela pego o tpEmis, quando vou enviar para o Sefaz verifico esse campo e pego a a url do devido serviço baseado neste
campo e na UF.

               Public Function EnviaLote2(ByVal EndArquivoXml As String) As RetEnvio
        Dim strRetorno As XmlElement
        Dim xmldoc = New XmlDocument()
        S_Url = UrlAcesso

        Try
            xmldoc.Load(EndArquivoXml) [ô]Carrega o arquivo XML 
            Dim CERT As X509Certificate2
            CERT = SelecionarCertificado([Ô][Ô])

            Dim wsMsg As NFEAutorizacao.NfeAutorizacao
            Dim cab As New NFEAutorizacao.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.UrlNfeAutorizacao)
            wsMsg.nfeCabecMsgValue = cab

            wsMsg.Timeout = 100000
            wsMsg.ClientCertificates.Add(CERT)
            wsMsg.SoapVersion = SoapProtocolVersion.Soap12
            Notas = xmldoc.OuterXml

            [ô]RETORNO DA SEFAZ
            strRetorno = wsMsg.nfeAutorizacaoLote(xmldoc) [ô]erro acontece aqui

            [ô]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 = [Ô]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
                        STRRetornoX = 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
                Next
            Next
            Return StrRetNota
        Catch ex As Exception
            If Err.Number = 5 Then
                Srua = ex.Message
            End If
            Return Nothing
        End Try
    End Function
 

Citação:

Mais e depois que volta ?

Citação:

alguma dica?

Citação:

:
Nilson
Mais e depois que volta ?
Quem determina a contingencia é o seu Sefaz, depois que volta a normalidade e o seu Sefaz desativa a contingência ai você tem que voltar para o modo de envio normal no caso [Ô]1[Ô], basta colocar uma parametrização no seu Sistema para o pessoal mudar e pronto ira funcionar normalmente no modo de envio normal.

No caso a NFe que é enviada para o Webservice de contingência o proprio Webservice de contingência manda para o seu Sefaz o seu Sefaz internamente.

MFLAVIO
alguma dica?
Qual a url que você tá usando no webservice de contigência de MG ?

Relação de Serviços Web
Autorizadores em contingência:
- UF que utilizam a SVC-AN - Sefaz Virtual de Contingência Ambiente Nacional: AC, AL, AP, DF, ES, MG, PB, RJ, RN, RO, RR, RS, SC, SE, SP, TO

Sefaz Virtual de Contingência Ambiente Nacional - (SVC-AN)
Serviço Versão URL
RecepcaoEvento 1.00 https://www.svc.fazenda.gov.br/RecepcaoEvento/RecepcaoEvento.asmx
NfeConsultaProtocolo 3.10 https://www.svc.fazenda.gov.br/NfeConsulta2/NfeConsulta2.asmx
NfeStatusServico 3.10 https://www.svc.fazenda.gov.br/NfeStatusServico2/NfeStatusServico2.asmx
NFeAutorizacao 3.10 https://www.svc.fazenda.gov.br/NfeAutorizacao/NfeAutorizacao.asmx
NFeRetAutorizacao 3.10 https://www.svc.fazenda.gov.br/NfeRetAutorizacao/NfeRetAutorizacao.asmx

                  Pnome = LeArquivoINI(nome_arquivo_ini, [Ô]Nota[Ô], [Ô]hambiente[Ô], [Ô]Configure[Ô])
                Select Case Pnome
                    Case [Ô]PRODUCAO[Ô]
                        Vnfe.infNFE.Ide.tpEmis = [Ô]1[Ô] [ô]1=normal 2= contigencia scan
                        Vnfe.infNFE.Ide.tpAmb = 1 [ô]1=produção

                    Case [Ô]HOMOLOGAÇÃO[Ô]
                        Vnfe.infNFE.Ide.tpEmis = [Ô]1[Ô] [ô]1=normal 2= contigencia scan
                        Vnfe.infNFE.Ide.tpAmb = 2 [ô]homologação

                    Case [Ô]CONTINGENCIA.P[Ô] [ô]estou enviando por este
                        Vnfe.infNFE.Ide.tpEmis = [Ô]2[Ô] [ô]1=normal 2= contigencia scan
                        Vnfe.infNFE.Ide.tpAmb = 1 [ô]1=produção

                    Case [Ô]CONTINGENCIA.H[Ô]
                        Vnfe.infNFE.Ide.tpEmis = [Ô]2[Ô] [ô]1=normal 2= contigencia scan
                        Vnfe.infNFE.Ide.tpAmb = 2 [ô]1=produção

                End Select
 

Citação:

:
MFLAVIO
Debuga e veja qual o ambiente que esta vindo no retorno, pode ser que você esteja passando a url de um ambiente no outro.

  <?xml version=[Ô]1.0[Ô] encoding=[Ô]utf-8[Ô]?>
<NFe xmlns=[Ô]http://www.portalfiscal.inf.br/nfe[Ô]>
  <infNFe versao=[Ô]3.10[Ô] Id=[Ô]NFe35170716849871000114550010000002826000002824[Ô]>
    <ide>
      <cUF>35</cUF>
      <cNF>00000282</cNF>
      <natOp>VENDAVENDAST</natOp>
      <indPag>2</indPag>
      <mod>55</mod>
      <serie>1</serie>
      <nNF>282</nNF>
      <dhEmi>2017-07-04T11:10:29-03:00</dhEmi>
      <dhcont>2017-07-04T11:10:29-03:00</dhcont>
      <dhSaiEnt>2017-07-04T11:10:29-03:00</dhSaiEnt>
      <tpNF>1</tpNF>
      <idDest>1</idDest>
      <cMunFG>3509502</cMunFG>
      <tpImp>1</tpImp>
      <tpEmis>6</tpEmis>
      <xJust>Ambiente Normal Off-Line</xJust>
      <cDV>4</cDV>
      <tpAmb>2</tpAmb>
      <finNFe>1</finNFe>
      <indFinal>1</indFinal>
      <indPres>9</indPres>
      <procEmi>0</procEmi>
      <verProc>Mab-corp 2.5.4.8</verProc>
    </ide>
    <emit>
      <CNPJ>16844871000111</CNPJ>
      <xNome>Mabinformatica ME</xNome>
      <xFant>MabInformatica</xFant>
      <enderEmit>
        <xLgr>RUA CONSELHEIRO ANTONIO CARLOS</xLgr>
        <nro>311</nro>
        <xBairro>JARDIM CAMPOS ELISEOS</xBairro>
        <cMun>3509502</cMun>
        <xMun>CAMPINAS</xMun>
        <UF>SP</UF>
        <CEP>13060024</CEP>
        <cPais>1058</cPais>
        <xPais>BRASIL</xPais>
        <fone>1932960978</fone>
      </enderEmit>
      <IE>755298122117</IE>
      <CRT>1</CRT>
    </emit>
    <dest>
      <CNPJ>99999999000191</CNPJ>
      <xNome>NF-E EMITIDA EM AMBIENTE DE HOMOLOGACAO - SEM VALOR FISCAL</xNome>
      <enderDest>
        <xLgr>RUA EDGARD SEGAGLIO</xLgr>
        <nro>47</nro>
        <xBairro>PARQUE SAO QUIRINO</xBairro>
        <cMun>3509502</cMun>
        <xMun>CAMPINAS</xMun>
        <UF>SP</UF>
        <CEP>13088100</CEP>
        <cPais>1058</cPais>
      </enderDest>
      <indIEDest>9</indIEDest>
    </dest>
    <det nItem=[Ô]1[Ô]>
      <prod>
        <cProd>7896197418352</cProd>
        <cEAN />
        <xProd>BALAO POA VERM/BCO BALLONTECH</xProd>
        <NCM>39241000</NCM>
        <CFOP>5102</CFOP>
        <uCom>UN</uCom>
        <qCom>50.0000</qCom>
        <vUnCom>13.3000</vUnCom>
        <vProd>665.00</vProd>
        <cEANTrib />
        <uTrib>UN</uTrib>
        <qTrib>50.0000</qTrib>
        <vUnTrib>13.3000</vUnTrib>
        <indTot>1</indTot>
      </prod>
      <imposto>
        <vTotTrib>225.30</vTotTrib>
        <ICMS>
          <ICMSSN102>
            <orig>0</orig>
            <CSOSN>102</CSOSN>
          </ICMSSN102>
        </ICMS>
        <PIS>
          <PISNT>
            <CST>07</CST>
          </PISNT>
        </PIS>
        <COFINS>
          <COFINSNT>
            <CST>07</CST>
          </COFINSNT>
        </COFINS>
      </imposto>
      <infAdProd>Imposto Aproximado:R$ 225,30 |</infAdProd>
    </det>
    <total>
      <ICMSTot>
        <vBC>0.00</vBC>
        <vICMS>0.00</vICMS>
        <vICMSDeson>0.00</vICMSDeson>
        <vFCPUFDest>0.00</vFCPUFDest>
        <vICMSUFDest>0.00</vICMSUFDest>
        <vICMSUFRemet>0.00</vICMSUFRemet>
        <vBCST>0.00</vBCST>
        <vST>0.00</vST>
        <vProd>665.00</vProd>
        <vFrete>0.00</vFrete>
        <vSeg>0.00</vSeg>
        <vDesc>0.00</vDesc>
        <vII>0.00</vII>
        <vIPI>0.00</vIPI>
        <vPIS>0.00</vPIS>
        <vCOFINS>0.00</vCOFINS>
        <vOutro>0.00</vOutro>
        <vNF>665.00</vNF>
        <vTotTrib>225.30</vTotTrib>
      </ICMSTot>
    </total>
    <transp>
      <modFrete>1</modFrete>
      <transporta>
        <xNome>Cliente Retira</xNome>
      </transporta>
      <vol>
        <qVol>1</qVol>
        <pesoL>0.001</pesoL>
        <pesoB>0.001</pesoB>
      </vol>
    </transp>
    <cobr />
    <infAdic>
      <infCpl>DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL ESTABELECIMENTO IMPEDIDO DE RECOLHER O ICMS/ISS PELO SIMPLES NACIONAL, NOS TERMOS DO § 1  DO ART. 20 DA LC 123/2008 NAO GERA DIREITO A CREDITO FISCAL DE IPI | Total Aproximado dos Impostos Federais R$119,7,Municipais R$0 Fonte IBPT</infCpl>
    </infAdic>
  </infNFe>
</NFe>