FONTE NFE VB.NET

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

FONTE NFE VB.NET

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#477077 - 10/10/2017 09:25:38

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Citação:
:
Bom dia Pessoal!!..Preciso tirar uma duvida com vocês ou até mesmo se alguém tem alguma coisa já feita...
Tenho um relatório que meu contábil solta, com todas as chaves de NFE que foi feita a entrada no sistema.
Com esse relatório eu entro no site da Receita e consulto nota fiscal por nota fiscal com a Chave da NFE, para ver se as notas estão ok ou canceladas ou não existem na base da Receita.
Existe a possibilidade de criar uma consulta no VB.net onde eu listo as chaves no DataGridView na primeira coluna, e na segunda coluna ele vai jogando o Status dessas consultas pela chave na base da receita, Exemplo:

Primeira Coluna Chave                                                     Coluna Status
3517100240159800168550010000104811000104820      Nota OK
4217100242259800168550010000104811000104822      Nota OK
3517100242559800168550010000104811000104825      Cancelada
3517100865744999010055000000023856100023860      Não Encontrado
4117100242859800168550010000104811000104801      Cancelada
3517100242851800168550010000104811000104802      Nota OK
3517100242857800168550010000104811000104818      Nota OK




Claro, e só você consultar a Nota pela Chave, usando o Certificado Digital do Emitente, e pegar o Status na Nota
faça isso em um Laço o sistema vai consultar chave por chave

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

#477079 - 10/10/2017 10:15:57

MORCELI
SAO JOSE DO RIO PRETO
Cadast. em:Outubro/2011


Obrigado pela resposta MFlavio...

MFlavio você não tem pelo menos um exemplo que conecta ou algum material que mostra como fazer essa consulta, depois eu estudo oque tiver em mãos e monto o laço para consultar chave por chave. Eu nunca precisei fazer nada como consultas com certificados e WebService. Eu precisava mesmo só um exemplo basico de consulta mesmo sem muitas frescuras até mesmo para mim estudar e se aprofundar no assunto. Eu até olhei uns exemplos na internet mas tá muito confuso para mim ainda...

Obs: Eu uso o VB.Net como programação..



#477106 - 11/10/2017 14:38:54

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



Boa Tarde a todos,

Gente, preciso de ajuda..


já instanciei a WebService.

Preciso entender para listar as chave das NF-e, com certificado









já tenho o código para selecionar o certificado e listar as chaves das NF-e no datagridview.

por favor, apenas o caminhos das pedras...


Public Sub SelecionarCertificado(ByRef CCertificado As String, ByRef cSerialCertificado As String)

        Try

            'Representa um certificado x509
            Dim ObjCertificadox509 As New X509Certificate2

            'Representa o local onde o certificado estão armazenados
            Dim getCertificadosx509 As New X509Store("My", StoreLocation.CurrentUser)
            getCertificadosx509.Open(OpenFlags.ReadOnly Or OpenFlags.OpenExistingOnly)

            'Representa uma colecao de objetos x509Certicate2
            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)

            If objColecaoCertificadosX509.Count = 0 Then
                MessageBox.Show("Nenhum certificado digital foi selecionado ou o certificado está com problemas.", "AVISO", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Else
                CCertificado = objColecaoCertificadosX509.Item(0).ToString
                cSerialCertificado = objColecaoCertificadosX509.Item(0).SerialNumber.ToString
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "AVISO")
        End Try

    End Sub


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

        Dim NFe_Rc = New WS_SefazNfe.NfeDownloadNFSoapClient

        Try

        conteúdo -  'DtGr 'DtGridView

        Catch ex As Exception
            MessageBox.Show(ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.[Error])
        End Try

        

    End Sub


Eu não nasci, fui Compilado

#477122 - 12/10/2017 14:10:28

CESAR007
RIO DE JANEIRO
Cadast. em:Julho/2013


Bom dia Pessoal

Sou novo em vb.net e gostaria de saber se o fonte do programa atualizado é o que está no link da primeira página.
Já baixei e abri o sistema que está naquele link. Quando abro no vb.net só tem uma página inicial e não tem onde digitar os produtos por exemplo. Também não vi onde guardar a chave da Nfe na tela principal.
O link atualizado é o que está na primeira página mesmo ? Não tem outros campos no projeto ?
Se não for aquele link alguém poderia me ajudar falando onde está o link atualizado ?


123123

#477132 - 13/10/2017 14:33:28

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


Pela versão mostrada no link ser a 3.0 é atualizada sim, essa é a ultima versão, pelo que me lembro não tem onde lançar itens mesmo, não é um projeto completo funcionando, são comandos básicos para vc entender como funciona a comunicação com os web services da sefaz, como assinar os documentos, faz anos que não vejo esse projeto exemplo, pelo menos era assim antes.



#477142 - 14/10/2017 09:18:11

CESAR007
RIO DE JANEIRO
Cadast. em:Julho/2013


Obrigado pela ajuda NILSONTRES
Eu tenho um sistema de Nfe funcionando em vb antigo que usa a dll da flex docs para fazer essa comunicação, o sistema faz tudo e na hora da comunicação usa a dll.
Mas também tenho um sistema de folha de pagamento e vou precisar fazer assinatura digital dos arquivos e para isso não vai ter dll disponível pois o mercado de folha de pagamento não é amplo como o de NFe. No e-social (nova obrigação que entrará em vigor em janeiro e julho de 2018) onde os dados serão informados a partir dos dados da folha de pagamento é usado para gerar o código hash a função de message digest: SHA-256.(http://www.w3.org/2001/04/xmlenc#sha256) ) e para a assinatura com o algoritmo RSA a Função criptográfica assimétrica: RSA (http://www.w3.org/2001/04/xmldsigmore#rsa-sha256). Na assinatura da NFe e usado SHA1, você saberia como alterar isso no código para assinar da forma escrita acima ?



123123

#477181 - 16/10/2017 18:56:03

TABPRS
GOIANIA
Cadast. em:Dezembro/2003


 Anexos estao visíveis somente para usuários registrados

Pessoal,

Alguém já conseguiu consumir o webservice da NFe 4.0 de goiás, não consigo, está dando o seguinte erro:

Ocorreu um erro ao baixar 'https://homolog.sefaz.go.gov.br/nfe/services/NFeAutorizacao4?wsdl/$metadata'.
A solicitação foi anulada: Não foi possível criar um canal seguro para SSL/TLS.

Jesus te Ama !
Pedro r. Sousa

#477200 - 17/10/2017 15:07:58

MFLAVIO
CAMPINAS
Cadast. em:Maio/2009


Os de SP também estão dando erro
e nem existe os de produção ainda

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

#477201 - 17/10/2017 15:31:47

FUTURA
.
Cadast. em:Maio/2004


pelo jeito esse projeto vai atrasar.....

edson

#477276 - 20/10/2017 12:24:14

FOXMAN
BARRETOS
Cadast. em:Janeiro/2001


Membro da equipe
Citação:
:
pelo jeito esse projeto vai atrasar.....

TOMARA.....DEUS TE OUÇA......


Grupo DotNet.Br no FaceBook



 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