IMPORTAR AS CHAVES NF-e

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

IMPORTAR AS CHAVES NF-e

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#477112 - 12/10/2017 02:07:17

MOREIRA
SAO LUIS - TURU
Cadast. em:Agosto/2004


Última edição em 12/10/2017 02:22:19 por MOREIRA

Bom dia, amigos,

já pesquisei em alguns exemplos aqui, inclusive nos fonte C# e VB.NET.

não conseguir chegar a um resultado.

Private Sub btn_PesqChave_Click(sender As Object, e As EventArgs) Handles btn_PesqChave.Click

        ' Dim ObjCertificadoNumSerie As String
        Try
            'Representa um certificado x509
            Dim objCertificadoX509 As New X509Certificate2

            'Representa o local onde os certificados estão armazenados
            Dim getCertificadosX509 As New X509Store("MY", StoreLocation.CurrentUser)
            getCertificadosX509.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)

            ''Recupera uma coleção de objetos  X509Certificate2
            Dim objColecaoCertificadosX509 As New X509Certificate2Collection

            'Para selecionar o certificado de uma lista
            objColecaoCertificadosX509 = X509Certificate2UI.SelectFromCollection(getCertificadosX509.Certificates, "Certificado(s) Digital(is)", "Selecione o certificado digital para uso no aplicativo", X509SelectionFlag.SingleSelection)

            'Verifica se exisite certificado selecionado
            If objColecaoCertificadosX509.Count = 0 Then
                MessageBox.Show("Nenhum certificado digital foi selecionado ou o certificado está com problemas.", "Atenção!", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Else
                Cert.ObjCertificadoNumSerie = objColecaoCertificadosX509.Item(0).SerialNumber.ToString()
            End If

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Atenção")
        End Try




        ''  // ------------------------------------------------- //
        Dim WS = New WS_ServicosNFeDfe.NFeDistribuicaoDFeSoapClient()


        Dim Dist = <nfeDistDFeInteresse xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeDistribuicaoDFe">
                       <nfeDadosMsg>
                           <distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">
                               <tpAmb>1</tpAmb>
                               <cUFAutor>21</cUFAutor>
                               <CNPJ>222222222222222</CNPJ>
                               <distNSU>
                                   <ultNSU>000000000000001</ultNSU>
                               </distNSU>
                           </distDFeInt>
                       </nfeDadosMsg>
                   </nfeDistDFeInteresse>

    End Sub


Pós bem, só preciso de orientações.

no código acima já instanciei a WebService. "Desculpa se estiver errado"

preciso importar as chaves da NF-e, CNPJ "Emitente" e popular em uma DataGriView.

Esse XML de retorno irão vim  compactados ou XML puro ?







Obrigado desde já.






Eu não nasci, fui Compilado

#477119 - 12/10/2017 11:41:39

MOREIRA
SAO LUIS - TURU
Cadast. em:Agosto/2004



Bom dia, achei esse código aqui, antes de copiar e colar estou estudando o funcionamento tando no "NT" quando no código.

preciso de ajuda com a sintaxe de C# para VB.NET.


  private void btnEventoManfDest_Click(object sender, EventArgs e)
        {
            string chaveNFe = "35170613495487000172550010013993481072979732";
            string cnpjEmpresa = "07583017000168";

            retEnvEvento retEventoNFe = null;
            configServico = configServico = ConfigServWeb.ConfigServico("SP", "55", TipoServico.RecepcaoEvento);
            X509Certificate2 certDig = cmbCertificado.SelectedItem as X509Certificate2;

            NFeRecepcaoEvento nfeRecepcaoEvento = new NFeRecepcaoEvento();
            nfeRecepcaoEvento.CertDigital = certDig;
            nfeRecepcaoEvento.ConfigServico = configServico;
            nfeRecepcaoEvento.ManifDest("1", chaveNFe, cnpjEmpresa, TipoEvento.CienciaOperacao, "Ciencia da Operacao");

            frmProc = new frmProcess();
            frmProc.lblTituloFrm.Text = "Processo Envio Sefaz";
            frmProc.Shown += (args, events) =>
            {
                frmProc.Refresh();
                nfeRecepcaoEvento.EnviarSefaz();
                retEnvEvento retSefaz = nfeRecepcaoEvento.RetornoSefaz;
                frmProc.btnSair.Enabled = true;
                frmProc.lblTituloFrm.Image = null;
                if (retSefaz != null)
                {
                    if (retSefaz.retEvento.Count > 0)
                    {
                        //cStat = 135  - Evento Registrado e Vinculado a NF-e
                        if (retSefaz.retEvento[0].infEvento.cStat == "135")
                        {
                            frmProc.listBoxMsg.Items.Add("Chave NFe..:" + retSefaz.retEvento[0].infEvento.chNFe);
                            frmProc.listBoxMsg.Items.Add("Protocolo..:" + retSefaz.retEvento[0].infEvento.nProt);
                            frmProc.listBoxMsg.Items.Add("Seq Evento.:" + retSefaz.retEvento[0].infEvento.nSeqEvento);
                            frmProc.listBoxMsg.Items.Add("Tipo Evento:" + retSefaz.retEvento[0].infEvento.tpEvento);
                            frmProc.listBoxMsg.Items.Add("Motivo.....:" + retSefaz.retEvento[0].infEvento.xMotivo);
                            frmProc.listBoxMsg.Items.Add("Evento.....:" + retSefaz.retEvento[0].infEvento.xEvento);
                            frmProc.listBoxMsg.Items.Add("Status.....:" + retSefaz.cStat);
                        }
                        else
                        {
                            frmProc.listBoxMsg.Items.Add("Motivo.....:" + retSefaz.retEvento[0].infEvento.xMotivo);
                            frmProc.listBoxMsg.Items.Add("Status.....:" + retSefaz.cStat);
                        }
                    }
                    else
                    {
                        frmProc.listBoxMsg.Items.Add("Motivo.....:" + retSefaz.xMotivo);
                        frmProc.listBoxMsg.Items.Add("Status.....:" + retSefaz.cStat);
                    }
                }
                else
                {
                    frmProc.listBoxMsg.Items.Add(nfeRecepcaoEvento.GetErros);
                }
            };
            frmProc.ShowDialog();


Eu não nasci, fui Compilado

#477120 - 12/10/2017 11:48:50

MOREIRA
SAO LUIS - TURU
Cadast. em:Agosto/2004



Tem outro código do ELUCIMAR.

Com a com essa referencia  --  > "NfeDownloadNF"

e Estou usando essa aqui  --- > NFeDistribuicaoDFeSoapClient

se não estiver errado da no mesmo.


string chaveNFe = "SuaChaveNFe";
            string cnpjEmpresa = "CnpjEmpresa";

            X509Certificate2 certDig = cmbCertificado.SelectedItem as X509Certificate2;
            configServico = ConfigServWeb.ConfigServico("AN", "55", TipoServico.NfeDownloadNF);

            NFeDownloadNF nfeDownloadNF = new NFeDownloadNF(chaveNFe, cnpjEmpresa);
            nfeDownloadNF.CertDigital = certDig;
            nfeDownloadNF.ConfigServico = configServico;
            nfeDownloadNF.EnviarSefaz();

            XmlDocument xmlProc = null;
            procNFe nfeProc = null;

            // cStat = 140 - Pedido de Download processado com Sucesso"
            if (nfeDownloadNF != null)
            {
                if (nfeDownloadNF.RetornoSefaz.retNFe[0].cStat == "140")
                {
                    // Retorno em Formato Xml
                    string strReplace = @"xmlns(:\w+)?=""([^""]+)""|xsi(:\w+)?=""([^""]+)""";
                    XmlDocument xmRetDownloadNFe = new XmlDocument();
                    xmRetDownloadNFe.LoadXml(Regex.Replace(nfeDownloadNF.XmlRetornoSefaz.OuterXml, strReplace, ""));
                    xmlProc = new XmlDocument();
                    xmlProc.LoadXml(xmRetDownloadNFe.SelectSingleNode("/retDownloadNFe/retNFe/procNFe/nfeProc").OuterXml);

                    // Retorno Classe deserializada
                    nfeProc = nfeDownloadNF.RetornoSefaz.retNFe[0].procNFe[0];
                }
            }  


Eu não nasci, fui Compilado

#477133 - 13/10/2017 15:41:15

MOREIRA
SAO LUIS - TURU
Cadast. em:Agosto/2004



Boa tarde, nem uma ajuda aí ?

Eu não nasci, fui Compilado

 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