[Exemplo ACBrMDFe]

Obrigado.

[Exemplo ACBrMDFe]

Bom dia a todos.
Estou fazendo alguns testes com o exemplo do ACBrMDFe para pegar os documentos fiscais emitidos contra minha empresa (Distribuição Documentos Fiscais) porem sempre me retorna com nenhum documento localizado.
Fiz todas as configurações no exemplo e não tenho ideia do que pode estar ocorrendo para não me retornar nota nenhuma.
Alguem poderia me dar alguma ideia do que esta ocorrendo?

Inicio TDistribuicaoDFe
Versão Layout: 1.00 
Ambiente: 1 
Versão Aplicativo: RS20230314142017 
Status Código: 137 
Status Descrição: Nenhum documento localizado 
Resposta: 04/04/2023 11:51:20 
Último NSU: 000000000000000 
Máximo NSU: 000000000000000 

[Erro na consulta, atualize o captcha - ACBRCONSULTACNPJ]

Não Juliomar.

Tudo atualizado e não funciona nem mesmo com o exemplo.

Apaguei tudo e reinstalei antes de recompilar.

[Erro na consulta, atualize o captcha - ACBRCONSULTACNPJ]

Mesmo problema.

[Digito na coluna 82 (Bradesco)]

Bom dia Victor / Juliana.

O pacote que atualizaram do banco bradesco esta com caracteres de controle dentro e não compila.

Retirei os caracteres e agora esta certo.

Estou anexando aqui o fonte corrigido.

Se puderem atualizem.

Obrigado e motima semana a todos.

ACBrBancoBradesco.pas

[Digito na coluna 82 (Bradesco)]

Resolvido alterando unit ACBrBancoBradesco o codigo de -> para:

Se puderem implementar no codigo para o uso de todos eu agradeço.

procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String;
  const ACBrTitulo: TACBrTitulo);
var
  i: Integer;
begin
  ANossoNumero := '0';
  ADigVerificador := '0';

  if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then
  begin
    ANossoNumero := '00000000000';
    ADigVerificador := '0';
  end
  else
  begin
    ANossoNumero := ACBrTitulo.NossoNumero;
    ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
  end;
end;
 

ACBrBancoBradesco.pas

[Digito na coluna 82 (Bradesco)]

Resolvido alterando unit ACBrBancoBradesco o codigo de -> para:

Se puderem implementar no codigo para o uso de todos eu agradeço.

procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String;
  const ACBrTitulo: TACBrTitulo);
var
  i: Integer;
begin
  ANossoNumero := '0';
  ADigVerificador := '0';

  if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then
  begin
    ANossoNumero := '00000000000';
    ADigVerificador := '0';
  end
  else
  begin
    ANossoNumero := ACBrTitulo.NossoNumero;
    ADigVerificador := CalcularDigitoVerificador(ACBrTitulo);
  end;
end;
 

[Digito na coluna 82 (Bradesco)]

Ainda tenho problema com o nosso numero zerado. O digito do nosso numero insiste em sair 3

Alguem tem alguma solução (Bradesco) carteira (09)

[Digito na coluna 82 (Bradesco)]

1 hora atrás, Flavio Macedo disse:

Ola a todos.
Estou implementando o CNAB para o Bradesco com a emissão do boleto pelo banco.

No campo de nosso numero estou enviando 0 pois o banco que vai gerar o boleto porem esta sendo inserido um digito [3] que retorna um erro na validação.

Alguem saberia o que eu estou esquecendo?

Erro:

Car Agên Conta-Produto
009 0284-0036366-9

============================================================================================================================
Linha 1, colunas 027 a 046, Header de arquivo, acessório escritural zerado. INFORMAR 5299557
Linha 2, colunas 071 a 081, Registro tipo 1, Nosso número zerado com dígito na coluna 82. Inválido.

Arquivo:

01REMESSA01COBRANCA       00000000000005299557MAFER SUPRIMENTOS E FERRAMENTA237BRADESCO       160522        MX0000001                                                                                                                                                                                                                                                                                     000001
1000000000000000000000090028400363669                         0000000000000000000300000000002            2  021131-1/1  02062200000001040000000000001N160522000000000000000000000000000000000000000000000000000000000000000154289830000100DOREMUS ALIMENTOS LTDA                  RUA SETE DE SETEMBRO, 800                           18271590                                                            000002
9                                                                                                                        

O p´roblema na realidade é somente a linha 2 pois o primeiro já foi resolvido.

[Digito na coluna 82 (Bradesco)]

Ola a todos.
Estou implementando o CNAB para o Bradesco com a emissão do boleto pelo banco.

No campo de nosso numero estou enviando 0 pois o banco que vai gerar o boleto porem esta sendo inserido um digito [3] que retorna um erro na validação.

Alguem saberia o que eu estou esquecendo?

Erro:

Car Agên Conta-Produto
009 0284-0036366-9

============================================================================================================================
Linha 1, colunas 027 a 046, Header de arquivo, acessório escritural zerado. INFORMAR 5299557
Linha 2, colunas 071 a 081, Registro tipo 1, Nosso número zerado com dígito na coluna 82. Inválido.

Arquivo:

01REMESSA01COBRANCA       00000000000005299557MAFER SUPRIMENTOS E FERRAMENTA237BRADESCO       160522        MX0000001                                                                                                                                                                                                                                                                                     000001
1000000000000000000000090028400363669                         0000000000000000000300000000002            2  021131-1/1  02062200000001040000000000001N160522000000000000000000000000000000000000000000000000000000000000000154289830000100DOREMUS ALIMENTOS LTDA                  RUA SETE DE SETEMBRO, 800                           18271590                                                            000002
9                                                                                                                        

[Distribuição de documentos ficais retorna falha de esquema]

Usando o proprio exemplo tenho a validação na distribuição de documentos ficais retornando erro. como na imagem abaixo.

O xml é válido e não sei onde esta o erro. A instalação do ACBr foi atualizada hoje e esta OK.

Se alguem puder me dar uma ideia do que pode ser o erro (creio que alguma configuração) eu agradeço bastante.

Obrigado

[email retorna com Error: too many hops (in reply to end of DATA command)]

2 horas atrás, Flavio Macedo disse:

Quando tento enviar vários emails em sequencia +- 50 muitos retornam com o erro

This is the mail system at host mcbain0006.email.locaweb.com.br.

I'm sorry to have to inform you that your message could not
be delivered to one or more recipients. It's attached below.

For further assistance, please send mail to postmaster.

If you do so, please include this problem report. You can
delete your own text from the attached returned message.

                   The mail system

<[email protected]>: host 127.0.0.1[127.0.0.1] said: 554 5.4.0 Error:
    too many hops (in reply to end of DATA command)

 

Se envio a mesma coisa pelo thunderbird eles passam sem problema.

Alguem já passou por isso?

 

A própria locaweb passou que o aplicativo esta com muitos saltos e precisa ser ajustado. Se alguém souber como fazer isso vai me ajudar muito.

 

Já tentei contatar a locaweb e eles passam que não tem nenhuma limitação por lá. O erro só ocorre com o envio pelo acbrmail pois tento o mesmo envio pelo thunderbird e funciona certinho.

O problema só ocorre com o acbrmail

[email retorna com Error: too many hops (in reply to end of DATA command)]

Quando tento enviar vários emails em sequencia +- 50 muitos retornam com o erro

This is the mail system at host mcbain0006.email.locaweb.com.br.

I'm sorry to have to inform you that your message could not
be delivered to one or more recipients. It's attached below.

For further assistance, please send mail to postmaster.

If you do so, please include this problem report. You can
delete your own text from the attached returned message.

                   The mail system

<[email protected]>: host 127.0.0.1[127.0.0.1] said: 554 5.4.0 Error:
    too many hops (in reply to end of DATA command)

 

Se envio a mesma coisa pelo thunderbird eles passam sem problema.

Alguem já passou por isso?

 

[ACBrBoleto.GerarPDF trava]

Desculpem Chamada fechada

era falta de setar o nome do arquivo. Quando se usa ISAPI o caminho fica diferente. Usei

    ACBrBoletoReport.NomeArquivo := UniServerModule.StartPath + 'arquivo';

e esta funcionando.

Obrigado a todos.
 

[ACBrBoleto.GerarPDF trava]

Boa tarde a todos.

Utilizo delphi rio, fast e unigui e o problema é o seguinte

Quando a aplicação esta rodando local o boleto é gerado sem problema algum porem quando ela sobe para rodas como dll (ISAPI) no momento em que executo o comando para acbrBoleto.gerarpdf o sistema simplesmente trava.

Alguem poderia dar alguma dica do que pode ser?

Obrigado a todos.

[ACBrNFe1.Enviar(inttostr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);]

Realmente retirando o true passou a não imprimir porem em várias notas ele fica travado no evento de enviar e não passa.

Um muito obrigado pela primeira explicação porem tem mais alguma dica para este travamento.

obrigado meu amigo.

[ACBrNFe1.Enviar(inttostr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);]

Minha impressora padrão do Windows é uma PDF porem queria que não fosse impresso de forma automática pois eu no final faço uma impressão e envio ela para um formulário unigui (web)

[ACBrNFe1.Enviar(inttostr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);]

Estou fazendo desta forma a configuração.

  ACBrNFe1.NotasFiscais.Clear;
  ACBrBoleto.ListadeBoletos.Clear;

  

    ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe;
    ACBrNFe1.Configuracoes.Geral.VersaoDF := ve400;

    ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := MainForm._IniFile.ReadString('Certificado', Dm_Faturamento.Qry01L060PEDIDO_EMPRESA.AsString + '-Arq', '');
    ACBrNFe1.Configuracoes.Certificados.Senha := MainForm._IniFile.ReadString('Certificado', Dm_Faturamento.Qry01L060PEDIDO_EMPRESA.AsString + '-Senha', '');
    ACBrNFe1.SSL.CarregarCertificado;

     ACBrNFe1.Configuracoes.Arquivos.SalvarApenasNFeProcessadas := True;

    ACBrNFe1.Configuracoes.WebServices.ambiente := taHomologacao;
    ACBrNFe1.Configuracoes.WebServices.Visualizar := False;
    ACBrNFe1.Configuracoes.WebServices.Salvar := True; // Geral.Salvar
    ACBrNFe1.Configuracoes.WebServices.UF := Dm_Faturamento.Qry01L060EMPRESA_UF.AsString;
    ACBrNFe1.MAIL.Host := MainForm._IniFile.ReadString('Email', 'host_smtp', '');
    ACBrNFe1.MAIL.Port := MainForm._IniFile.ReadString('Email', 'port_host', '');
    ACBrNFe1.MAIL.Username := MainForm._IniFile.ReadString('Email', 'user_login', '');
    ACBrNFe1.MAIL.Password := MainForm._IniFile.ReadString('Email', 'passwd_login', '');
 

  ACBrNFe1.Configuracoes.Arquivos.SepararPorAno := True;
  ACBrNFe1.Configuracoes.Arquivos.SepararPorMes := True;
  ACBrNFeDANFE.PathPDF := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\DanfeSaida';
  ACBrNFe1.Configuracoes.Arquivos.PathNFe := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\xmlSaida\NFe_xml\';
  ACBrNFe1.Configuracoes.Arquivos.PathEvento := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\xmlSaida\eventos\';
  ACBrNFe1.Configuracoes.Arquivos.PathInu := ExtractFilePath(Application.ExeName) + MainForm._codigo_empresa + '\xmlSaida\NFe_inu\';
  

  ACBrNFe1.NotasFiscais.Assinar;

  ACBrNFe1.NotasFiscais.Items[0].GravarXML();
  Xml := FormatDateTime('yyyy', now) + '\' + FormatDateTime('mm', now) + '\' + Copy(ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44) + '-nfe.xml';
 

  ACBrNFe1.NotasFiscais.GerarNFe;
   ACBrNFe1.Enviar(inttostr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);
 

[ACBrNFe1.Enviar(inttostr(Dm_Faturamento.Qry01L501NR_NOTA.AsInteger), True);]

Após executar esta linha de envio da nota o sistema esta abrindo uma janela solicitando [Salvar Saida de Impressão como]

Já procurei bastante sem sucesso de como fazer com que esta janela não abra.

Se fecho a mesma sem salvar nada tudo esta funcionando.

Se alguem puder me dar uma orientação eu agradeço.

Estou usando neste projeto os componentes ACBRnfe, ACBEDandeFR, ACBrBoleto e ACBRboletoFR porem ainda não chegamos nas linhas do boleto.

Obrigado a todos.

[ACBrNFe1.ImprimirEventoPDF esta imprimindo a DANFE]

Era isso mesmo meu amigo.

Muito obrigado pela ajuda.

[ACBrNFe1.ImprimirEventoPDF esta imprimindo a DANFE]

Esta sim. Por sinal ele foi instalado a menos de 15 dias.

[ACBrNFe1.ImprimirEventoPDF esta imprimindo a DANFE]

Bom dia a todos.

Estou com o seguinte problema:

Quando executo o comando ACBrNFe1.ImprimirEventoPDF ele esta gerando a danfe e não a impressão do evento.

O código esta assim:

   ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.Configuracoes.WebServices.Visualizar := True;
    ACBrNFeDANFEFR1.PathPDF :=  '\DanfeSaida';
    ACBrNFe1.Configuracoes.Arquivos.PathEvento :=  '\xmlSaida\eventos\';
    ACBrNFe1.Configuracoes.Arquivos.PathInu := '\xmlSaida\NFe_inu\';

    ACBrNFe1.DANFE.NomeDocumento :=   'xxx123-canc.pdf';

    ACBrNFe1.NotasFiscais.LoadFromString(Dm_Faturamento.Qry02L090NFE.AsString);     // Esta variavel tem o xml da nota

    ACBrNFe1.EventoNFe.idLote := 1;
    with ACBrNFe1.EventoNFe.Evento.Add do
    begin
      infEvento.dhEvento := now;
      infEvento.tpEvento := teCancelamento;
      infEvento.detEvento.xJust := 'Erro de Informacao';
    end;

    ACBrNFe1.EnviarEvento(1);    // Recupero o evento e o xml esta correto

  ACBrNFe1.EventoNFe.LerXMLFromString(Dm_Faturamento.Qry02L090evento.AsString);   // Esta variavel tem o xml do evento e verifico que esta correto
  ACBrNFe1.ImprimirEventoPDF;

 

Se alguem puder me ajudar com o que esta errado eu agradeço.

PS: O ACBr esta atualizado.

[ACBrNFe1.ImprimirEventoPDF esta imprimindo a DANFE]

Bom dia a todos.

Estou com o seguinte problema:

Quando executo o comando ACBrNFe1.ImprimirEventoPDF ele esta gerando a danfe e não a impressão do evento.

O código esta assim:

   ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.Configuracoes.WebServices.Visualizar := True;
    ACBrNFeDANFEFR1.PathPDF :=  '\DanfeSaida';
    ACBrNFe1.Configuracoes.Arquivos.PathEvento :=  '\xmlSaida\eventos\';
    ACBrNFe1.Configuracoes.Arquivos.PathInu := '\xmlSaida\NFe_inu\';

    ACBrNFe1.DANFE.NomeDocumento :=   'xxx123-canc.pdf';

    ACBrNFe1.NotasFiscais.LoadFromString(Dm_Faturamento.Qry02L090NFE.AsString);     // Esta variavel tem o xml da nota

    ACBrNFe1.EventoNFe.idLote := 1;
    with ACBrNFe1.EventoNFe.Evento.Add do
    begin
      infEvento.dhEvento := now;
      infEvento.tpEvento := teCancelamento;
      infEvento.detEvento.xJust := 'Erro de Informacao';
    end;

    ACBrNFe1.EnviarEvento(1);    // Recupero o evento e o xml esta correto

  ACBrNFe1.EventoNFe.LerXMLFromString(Dm_Faturamento.Qry02L090evento.AsString);   // Esta variavel tem o xml do evento e verifico que esta correto
  ACBrNFe1.ImprimirEventoPDF;

 

Se alguem puder me ajudar com o que esta errado eu agradeço.

PS: O ACBr esta atualizado.

[Baixar todos XML de um certificado direto do SEFAZ]

Obrigado meu amigo.
Vou estar verificando.
ABração.

[Baixar todos XML de um certificado direto do SEFAZ]

Existe algum exemplo de como utilizar isto? É componente ACBR?

Obrigado amigo