Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3550 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Boa tarde...

Pessoal, sou novo usando o componente ACBR NFE e tenho algumas duvidas

1) Rotinas para enviar uma NFe: quais passos realmente preciso para emitir uma DANFE. seguindo o exemplo de voces nao descobri qual a maneira correta de usar:

  //PEGANDO OS DADOS DAS TABELAS E JOGANDO NO COMPONENTE
  GeraNota;

  // GERAR O ARQUIVO XML
  try
    ACBrNFe1.NotasFiscais.GerarNFe;
  except
    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);
  end;

  // ASSINAR
  ACBrNFe1.NotasFiscais.Assinar;

  // VALIDAR O ARQUIVO
  try
    ACBrNFe1.NotasFiscais.Valida;
  except
    if ACBrNFe1.NotasFiscais.Items[0].Alertas <> '' then
      ShowMessage(ACBrNFe1.NotasFiscais.Items[0].Alertas);

    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);

    ABORT;
  end;

  sChave:= Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44);

  // ENVIAR
  try
    ACBrNFe1.Enviar(StrToint(edtNf.Text),True);
  except
    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);
  end;

  if IntToStr(ACBrNFe1.WebServices.Retorno.cStat) = '100' then
  begin
    // Chama Impressao - Preview
    //ACBrNFe1.NotasFiscais.Imprimir;

    //salvar o arquivo -PRocNFE.xml
    NomeArq := ACBrNFe1.NotasFiscais.Items[0].NomeArq;
    if pos(UpperCase('-nfe.xml'),UpperCase(NomeArq)) > 0 then
       NomeArq := StringReplace(NomeArq,'-nfe.xml','-procNfe.xml',[rfIgnoreCase]);
    ACBrNFe1.NotasFiscais.Items[0].SaveToFile(NomeArq);

    ACBrNFe1.NotasFiscais.ImprimirPDF;

    naoautorizada:=0;
  end
  else
  begin
    Showmessage('Erro na NFe. Status: '+IntToStr(ACBrNFe1.WebServices.Retorno.cStat)+' Motivo: '+(ACBrNFe1.WebServices.Retorno.xMotivo));
    naoautorizada:=1;
  end;

2) Impressão do Danfe: trabalho com o Delphi 7 e tenho instalado QuickReport 5.02.2, o Fast Report 4.12 e o Rave.

 a) O quickReport não consegui instalar, deve ser por causa da Versão, qual a versao do QuickReport para a Instalação do componente?
  B) A impressão do danfe com o DANFERAVECB1 achei esteticamente muito feia
 c) pelo fastReport da um erro FRXPDFExport.DataOnly: property dataOnly does not exist.
 d) tive que utilizar o RAVE... consegui imprimir, mas a borda da direita não sai impressa.

procurei por solução no forum ref. ao erro no fastreport e sobre a borda do RAVE e não obtive uma solução;

preciso que a impressao do RAVE saia corretamente para atualizar meus clientes

3) qual a principal finalidade do acbrMonitor? é uma maneira mais simples de se emitir uma NFe?

4) Consigo configurar o componente para que seja salvo apenas os XMLs processados e os xml dos eventos sem gerar aquele monte de arquivos xmls de envio, status servico...?? tentei deixar true apenas SALVARAPENASNFEPROCESSADAS = TRUE mas nao gerou o arquivo desejado. Fiz isso usando a rotina acima (item 1)

no aguardo galera...

att
Alexandre

  • Consultores
Postado

Bom dia Alexandre,

 

Vamos resumir:

 

//PEGANDO OS DADOS DAS TABELAS E JOGANDO NO COMPONENTE

  GeraNota;

 

// ENVIAR

  try

    ACBrNFe1.Enviar(StrToint(edtNf.Text), True);

  except

    (..) Mostrar para o usuário o motivo do erro

  end;

 

if IntToStr(ACBrNFe1.WebServices.Retorno.cStat) = '100' then

  begin

   (...) Atualizar o banco de dados

    naoautorizada:=0;

  end

  else

  begin

    Showmessage('Erro na NFe. Status: '+IntToStr(ACBrNFe1.WebServices.Retorno.cStat)+' Motivo: '+(ACBrNFe1.WebServices.Retorno.xMotivo));

    naoautorizada:=1;

  end;

 

1. o método Enviar, se encarrega de Gerar o XML, Assinar, Validar, enviar e protocolar o XML caso a SEFAZ retorne como autorizado.

2. o se você atribuir o valor True ao segundo parâmetro do método Enviar a impressão do DANFE será realizada automaticamente.

3. esta faltando incluir a rotina de envio de e-mail, o método EnviarEmail possui um parâmetro que gera automaticamente o PDF do DANFE e o anexa para que seja enviado junto com o XML.

 

Com relação ao componente do DANFE, eu também utilizo o Delphi 7 com o Quick Report 5.02 sem nenhum problema.

 

Qual foi o problema que você teve ao instalar o componente de DANFE em Quick Report?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

Italo.. bom dia.

 

funcionou... ficou show de bola...

 

outra mudança que preciso fazer é a seguinte: Consigo configurar o componente para que seja salvo apenas os XMLs processados e os xml dos eventos sem gerar aquele monte de arquivos xmls de envio, status servico...??

tentei deixar true apenas SALVARAPENASNFEPROCESSADAS = TRUE mas nao gerou o arquivo desejado.

as Propriedades PathNFe estão todas preenchidas e as Opcoes SALVAR e SALVARPROCESSADAS estao TRUE

 

qual a principal finalidade do acbrMonitor? é uma maneira mais simples de se emitir uma NFe?

 

estou com erro na instalacao do pacote do QuickReport NFe... deixei a pergunta ontem no forum.

 

att

Alexandre

  • Consultores
Postado

Alexandre,

 

Dentro da pasta ...\Doctos\Manuais temos um manual do componente ACBrNFe.

 

Nele consta a lista completa das configurações do mesmo.

 

No que diz respeito ao salvar arquivos o componente possui 3 propriedades:

 

Configuracoes.Geral.Salvar - se o valor for true salva os arquivos de envio e de retorno da SEFAZ.

 

Configuracoes.Arquivos.Salvar - se o valor for true salva os arquivos considerados documentos, tais como, o xml da NF-e, o xml de processamento de evento da NF-e e o de inutilização de numeração.

 

Configuracoes.WebServices.Salvar - se o valor for true salva os arquivos de envio e de retorno da SEFAZ também, mas com as TAGs de envelope.

 

Exite o ACBrMonitor e o ACBrNFeMonitor, o primeiro não tem nada haver com a NF-e, já o segundo é destinado a desenvolvedores que não programam em Delphi.

 

Com relação ao Quick Report, qual é o problema?

 

Você não esta conseguindo instalar o Quick Report no Delphi ou o problema é o pacote ACBrNFeDANFEQR?

 

Se o problema for o pacote do ACBrNFeDANFEQR qual é o erro?

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

blz Italo...

 

como tratar o erro 105-lote em processamento?? o comando ACBrNFe1.Enviar consulta a NFe 5x mas se o erro persistir, como trata-lo?

Se enviar o comando ACBrNFe1.Enviar  novamente, ira dar o erro de DUPLICIDADE de NFE?

 

Quanto ao erro no QuickReport tenho um outro Topico pra tentar resolve-lo.... não consegui ainda.

Por causa deste erro estou emitindo o DANFE pelo RAVE, so que a impressão do RAVE sai sem a MARGEM da Direita impressa.

preciso resolver isso o qto antes pra poder atualizar meus clientes. 

 

att

Alexandre

  • Consultores
Postado

Boa tarde Alexandre,

 

Se o lote esta em processamento, tem que aguardar, não se deve enviar novamente.

 

A mensagem é clara o lote foi recebido e esta sendo processado, portanto devemos aguardar.

 

Se depois de 5 consultas ainda continuar retornando lote em processamento devemos aguardar e tentar novamente uma nova consulta.

 

Qual é o problema sobre o Quick Report? 

 

Você disse que usa o Delphi 7 com o Quick Report 5.02, pois bem esse também é o meu ambiente de desenvolvimento e não tenho nenhum problema.

 

Se você não informar de forma clara o que esta ocorrendo, ou seja, qual é o erro e quando ele ocorre não tenho condições de lhe ajudar.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

voce disse: "Se depois de 5 consultas ainda continuar retornando lote em processamento devemos aguardar e tentar novamente uma nova consulta."

 

qdo ocorrer isso, executo o comando ACBrNFe1.Enviar novamente?? isso seria o comando correto?

 

qto ao QuickReporte: não consigo instalar o pacote da NFe pro QuickReport.  da o seguinte erro:

 

Build
  [Error] ACBrNFeDanfeQRpkg.dpk(81): 'END' expected but identifier 'QR5RunD2005' found
  [Error] ACBrNFeDanfeQRpkg.dpk(81): Invalid compiler directive: '$ENDIF'
 

segue imagem abaixo.

 

ou acertar o erro na impressao do rave... que nao sai a margem direita impressa.

 

att

Alexandre..

Imagem(ns) anexada(s)

post-5908-0-21465700-1426870047_thumb.jp

  • Consultores
Postado

Alexandre,

 

ACBrNFe1.Enviar é o comando para enviar.

 

ACBrNFe1.Consultar é o comando para consultar.

 

Por favor, dentro da pasta ...\Doctos\Manuais temos o manual do ACBrNFe, neste manual consta todas as propriedades de configuração, bem como todos os métodos com uma breve explicação de sua função e de seus eventuais parâmetros.

 

Quanto ao erro conforme a imagem acredito que o seu arquivo de pacote esta alterado.

 

Sugiro que exclua esse arquivo do HD e baixe novamente usando o Tortoise.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / Araraquara-SP

Araraquara - A era dos Trólebus

Postado

me desulpe juliomar... mas citei acima que meu outro problema estava em outro post... é que o Italo pediu pra  especificar o problema e postei aqui tb....

 

é que tenho muita urgencia pra finalizar a NFe... falta apenas a impressao correta do danfe.

 

obrigado pela resposta Italo.

  • Curtir 1
  • Administradores
  • Solution
Postado

Boa noite.

 

Tópico será fechado, favor continuar em 

 

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...