Flavio Macedo

Obrigado.

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

Não Juliomar. Tudo atualizado e não funciona nem mesmo com o exemplo. Apaguei tudo e reinstalei antes de recompilar.

Mesmo problema.

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

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

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;

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)

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

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

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

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

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?

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.

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.