post favorito comentários

ACBrNFe - Componente OpenSource para Nota Fiscal Eletrônica - NFe - Parte 2

O componente ACBrNFe é um projeto para gerar, validar, transmitir, receber as respostas dos WebServices da Receita e imprimir o DANFe. Este componente faz parte do Projeto ACBr e também é gratuíto. Veja neste artigo os principais métodos do componente ACBrNFe

Gostei (10)

(0)

[fechar]

Você não gostou da qualidade deste conteúdo?

(opcional) Você gostaria de comentar o que não lhe agradou?

Após instalar o componente conforme as instruções do artigo anterior vamos conhecer os principais comandos do ACBrNFe.

Consultar Status do Serviço

Para consultar o Status do Serviço dos WebServices da Receita, use o comando abaixo:

ACBrNFe1.WebServices.StatusServico.Executar; - Este comando, retorna True quando o serviço está em operação.

Após este comando, é possível acessar a propriedade ACBrNFe1.WebServices.StatusServico.Msg para ver a mensagem de retorno do WebService.

Exemplo de uso:

ACBrNFe1.WebServices.StatusServico.Executar;
ShowMessage(ACBrNFe1.WebServices.StatusServico.Msg);

Criar uma Nota Fiscal Eletrônica

Para criar uma Nota Fiscal Eletrônica, utilize o comando ACBrNFe1.NotasFiscais.Add e preencha todas as informações referente a NFe.

Exemplo de Uso:

ACBrNFe1.NotasFiscais.Clear; // Limpas as Notas Fiscais que possam estar na memória do componente

with ACBrNFe1.NotasFiscais.Add do
begin
    Identificacao.NaturezaOperacao := 'VENDA PRODUCAO DO ESTAB.';
    Identificacao.Codigo            := 1;
    Identificacao.Numero          := 1;
    Identificacao.Serie              := 1;
    Identificacao.DataEmissao  := Date;
    Identificacao.DataSaida       := Date;
    Identificacao.Tipo                := tSaida;
    Identificacao.FormaPagamento   := pgAVista;

    Emitente.CNPJ                      := '00000000000000';
    Emitente.IE                         := '123456789012';
    Emitente.Nome.RazaoSocial := 'Razao Social Emitente';
    Emitente.Nome.Fantasia       := 'Nome Fantasia Emitente';
    Emitente.Endereco.Fone       := '(15) 3259XXXX';
    Emitente.Endereco.CEP         := '18270000';
    Emitente.Endereco.Logradouro      := 'Rua Onze de Agosto';
    Emitente.Endereco.Numero           := '3202';
    Emitente.Endereco.Complemento := '';
    Emitente.Endereco.Bairro              := 'Centro';
    Emitente.Endereco.Cidade.Codigo   := 3554003;
    Emitente.Endereco.Cidade.Descricao := 'Tatui';
    Emitente.Endereco.UF                  := 'SP';

    Destinatario.CNPJCPF                   := '00000000000137';
    Destinatario.Endereco.CEP           := '18270410';
    Destinatario.Endereco.Logradouro      := 'Praça Anita Costa';
    Destinatario.Endereco.Numero           := '0034';
    Destinatario.Endereco.Complemento := '';
    Destinatario.Endereco.Bairro              := 'Centro';
    Destinatario.Endereco.Cidade.Codigo  := 3554003;
    Destinatario.Endereco.Cidade.Descricao := 'Tatuí';
    Destinatario.Endereco.UF               := 'SP';
    Destinatario.Endereco.Fone            := '1532599600';
    Destinatario.IE                              := '000000000000';
    Destinatario.NomeRazao                := 'D.J. COM. E LOCAÇÃO DE SOFTWARES LTDA - ME';

    with DadosProdutos.Add do
    begin
      CFOP          := 5101;
      Codigo        := '67';
      Descricao     := 'ALHO 400 G';
      Quantidade    := 100;
      Unidade       := 'KG';
      ValorTotal    := 100;
      ValorUnitario := 10;
      with Tributos do
      begin
        with ICMS do
        begin
          CST := '00';
          ICMS00.Aliquota := 18;
          ICMS00.Valor     := 180;
          ICMS00.ValorBase := 1000;
        end;

end;
end;

    ValoresTotais.BaseICMS     := 1000;
    ValoresTotais.ValorICMS    := 180;
    ValoresTotais.ValorNota    := 1000;
    ValoresTotais.ValorProduto := 1000;
end;

Com o exemplo acima, criamos uma nota Fiscal em Memória, é possível adicionar várias notas usando o comando ACBrNFe1.NotasFiscais.Add várias vezes, para que depois possamos gerar um lote de envio.

Se você já possui o XML gerado, e não deseja adicionar as notas usando as propriedades do componente, é possível carregar um XML, para isso use o seguinte comando:

ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(cPathArquivo);

Com o comando LoadFromFile, o arquivo será adicionado a memória do componente ACBrNFe, e será possível transmitir essa NFe.

Veremos abaixo como Salvar o XML ou Enviar a NFe.

Salvar o XML da NFe

Após incluirmos uma NFe usando o exemplo acima, podemos salvar o XML que será enviado para a Receita.

Exemplo:

ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.NotasFiscais.Items[0].XML.SaveToFile(ExtractFileDir(application.ExeName)+ACBrNFe1.NotasFiscais.Items[0].XML.NFeChave+'-NFe.xml');

Com o comando acima, iremos salvar a primeira Nota Fiscal na pasta do programa, com o nome que começará pela chave da NFe e terminará com -NFe.xml. Caso tenha adicionado mais de uma nota fiscal, repita o comando ACBrNFe1.NotasFiscais.Items[0].XML.SaveToFile mudando o número do item(Items[0], Items[1], Items[2], etc.)

Enviar uma ou mais NFe

Para enviar uma NFe, temos dois métodos disponíveis. O método ACBrNFe1.Enviar(NumLote); irá gerar o(s) XML da(s) NFe(s), assiná-la(s), validá-la(s), enviá-la(s) e por fim imprimí-la(s) (se forem autorizadas) de forma automática.

Caso não queira que o DANFe seja impresso automaticamente, use a sequência de comandos abaixo:

ACBrNFe1.NotasFiscais.GerarNFe;
ACBrNFe1.NotasFiscais.Assinar;
ACBrNFe1.NotasFiscais.Valida;
ACBrNFe1.WebServices.Envia(NumLote);

Depois para imprimir use o comando ACBrNFe1.NotasFiscais.Items[i].XML.Imprimir;

Consultar uma NFe

Para consultar uma NFe, é possível consultar baseado na Chave da NFe ou carregando o XML da NFe já autorizada.

Exemplo usando a chave da NFe:

ACBrNFe1.WebServices.Consulta.NFeChave := self.NotasFiscais.Items[0].XML.NFeChave;
ACBrNFe1.WebServices.Consulta.Executar;

Exemplo carregando um XML:

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(cPathArquivo);
ACBrNFe1.Consultar;

Cancelar uma NFe

Para cancelar uma NFe, e necessário informar a Chave da NFe, número do protocolo de autorização e uma justificativa para o cancelamento. O cancelamento também é possível ser realizado carregando um XML de uma NFe ou informando os campos citados acima.

Exemplo usando a Chave e Protocolo da NFe:

ACBrNFe1.WebServices.Cancelamento.NFeChave := chNFe;
ACBrNFe1.WebServices.Cancelamento.Protocolo := Protocolo;
ACBrNFe1.WebServices.Cancelamento.Justificativa := AJustificativa;

Exemplo carregando um XML

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(cPathArquivo);
if not(InputQuery('WebServices Cancelamento', 'Justificativa', vAux)) then
exit;
ACBrNFe1.Cancelamento(vAux);

Imprimir uma NFe baseado no XML

Para imprimir uma NFe baseado num XML, basta usar os comandos abaixo:

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(cPathArquivo);
ACBrNFe1.NotasFiscais.Imprimir;

Validar uma NFe

Para validar o XML de uma NFe use os comandos abaixo:

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.Add.XML.LoadFromFile(cPathArquivo);
ACBrNFe1.NotasFiscais.Valida;

Caso exista algum erro no arquivo, será criada uma exception mostrando a mensagem de erro.

Inutilizar uma faixa de numeração

Para inutilizar uma faixa de numeração da NFe, use o comando abaixo:

ACBrNFe1.WebServices.Inutiliza(CNPJ. Justificativa, Ano, Modelo, Serie, NumeroInicial, NumeroFinal);

André Ferreira De Moraes.
Formado em Sistemas de Informação Faculdade Santa Bárbara - FAESB - Tatuí; Técnico em Processamento de Dados - Instituto Adventista Paranaense - IAP; Para dúvidas sobre o Projeto ACBr utilize - http://www.djsystem.com.br/acbr/forum Blog - http://anfm.blogspot.com/

O que você achou deste post?

Gostei (10)

(0)

6 COMENTÁRIOS

[Fechar]

Este post é fechado - você precisa ter acesso ao post para incluir um comentário.

Helder Silva/

Usei o componente acbrnfe2, porém está gerando xml na versão 1.0, alguem sabe como gerar o xml na versão 2.0 com este componente?

[há +1 ano] - Responder

[autor] André Ferreira De Moraes.

O componente da pasta ACBrNFe2 só gera o XML da versão 2.0.

Use o fórum oficial do componente para tirar dúvidas - http://www.djsystem.com.br/acbr/forum/

[há +1 ano] - Responder

Francesco Coutinho

Olá.

Quando faço um teste de status do serviço usando ACBrNFe1.WebServices.StatusServico.Executar, retorna a seguinte mensagem:

WebService Consulta Status Serviço:

- Inativo ou Inoperante tente novamente
- Forbiden (403) - https://homologacao.nfe.sefazvirtual.rs ... rvico.asmx

Estou deixando host, pass, port e user em branco, uf=rj, taHomologacao.

Uso Delphi 2006. O que eu poderia estar acontecendo?

Att.

[há +1 ano] - Responder

Devmedia - Equipe De Moderacao

Francesco, já entramos em contato com o autor e em breve ele responderá sua dúvida.

Atenciosamente,

Equipe Devmedia.

[há +1 ano] - Responder

[autor] André Ferreira De Moraes.

Como já falado acima, utilize o fórum oficial do ACBr para dúvidas sobre o componente - http://djsystem.com.br/acbr/forum/

Provavelmente seu certificado não é válido ou está vencido.

[há +1 ano] - Responder

Guilherme Wiethaus

Existe alguma maneira de se conseguir um certificado digital para pessoa física, pois sou programador independente? como se conseguir e onde se conseguir?

[há +1 ano] - Responder

Cursos relacionados

Curso online - Aplicações Client/Server com dbExpress e Firebird

Curso Online - Sistema SysCash

Curso Online - Criando uma Aplicação multi-camadas Completa com Delphi

Aplicações client/server com Windows Forms no Delphi 2006

Administração do Firebird/InterBase

[Ver todos]

+Delphi

Serviços