[Atualização Da Unit Banestes]

Vou gerar um boleto aqui com a versão antiga da unit e com essa nova e ver a diferença no valor do código de barras.

[Atualização Da Unit Banestes]

O cliente está verificando, mais provavelmente sim, pois em anos isso nunca aconteceu.

[Atualização Da Unit Banestes]

Pessoal, a unit do Banestes está com problema, liberei um atualização do sistema com a unit nova e os boletos que foram pagos o valor não foi creditado no cliente.

 

Alguém tem o manual do banestes ?

 

A mudança na rotina CalcularCampoASBACE  alterou a forma como o código de barra é gerado.....

[Atualização Da Unit Banestes]

Boa noite pessoal, tudo bem?

 

Recentemente atualizei todo o ACBr por conta da Nfe 3.0, depois dessa atualização é gerada uma exception na hora de visualizar o boleto do Banco Banestes,

o problema está na function TACBrBanestes.CalcularCampoASBACE ...

 

Antes era:

  { Banestes não usa digitos verificadores para agência e conta }   
  cLivreAsbace := copy(ACBrTitulo.NossoNumero,2,8)+
                  padR(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta)+
                       trim(ACBrTitulo.ACBrBoleto.Cedente.ContaDigito),11,'0')+
                  '4'+
                  IntToStrZero(fpNumero,3);
  cIndice      := '21212121212121212121212';
  nResult      := 0;

Na versão nova ficou:

  { Banestes não usa digitos verificadores para agência e conta }
  cLivreAsbace := copy(ACBrTitulo.NossoNumero,2,8)+
                  copy(trim(ACBrTitulo.ACBrBoleto.Cedente.Conta), 2, 10)+
                            ACBrtitulo.ACBrBoleto.Cedente.ContaDigito+
                  '4'+
                  IntToStrZero(fpNumero,3);
  cIndice      := '21212121212121212121212';
  nResult      := 0;

O problema é que na versão nova, cLivreAsbace recebe uma string com 22 caracteres, e logo em seguida tem um for que começa da posição 23.

 

A remoção do padR gerou o problema.

 

Uma dúvida, no comentário diz que banestes não usa o dígito verificador, entretanto no código tem o dígito concatenado com a conta.

[Sugestão De Alteração]

Prezados, boa tarde,

 

Seria interessante embutir as fontes ao gerar o PDF do boleto, muitas vezes o PDF quando enviado a um computador que não tem a fonte específica fica ilegível.

 

Como consequência o arquivo fica maior, outra opção seria criar uma propriedade no ACBrBoletoFCFR para que se possa escolher embutir a fonte ou não.

 

O que acham?

 

 

frxPDFExport.EmbeddedFonts := True;

ACBrBoletoFCFR.pas

procedure TACBrBoletoFCFR.Imprimir;
var
  DmBoleto: TdmACBrBoletoFCFR;
begin
  inherited Imprimir; // Verifica se a lista de boletos está vazia

  DmBoleto := TdmACBrBoletoFCFR.Create(Self);
  try
    with DmBoleto do
    begin
       cdsBanco.EmptyDataSet;
       cdsCedente.EmptyDataSet;
       cdsTitulo.EmptyDataSet;

       if PrepareReport(DmBoleto) then
       begin
          frxReport.PrintOptions.ShowDialog := MostrarSetup;

          case Filtro of
            fiNenhum:
            begin
               if MostrarPreview then
                  frxReport.ShowReport(False)
               else
                  frxReport.Print;
            end;
            fiPDF:
            begin
               frxPDFExport.EmbeddedFonts := True; //DRD SISTEMAS em 30/04/2014
               frxPDFExport.Author := SoftwareHouse; //DRD SISTEMAS em 12/11/2012
               frxPDFExport.ShowDialog := MostrarSetup; //DRD SISTEMAS em 12/11/2012
               frxPDFExport.FileName := NomeArquivo;
               frxReport.Export(DmBoleto.frxPDFExport);
            end;
            fiHTML:
            begin
               frxHTMLExport.ShowDialog := MostrarSetup; //DRD SISTEMAS em 12/11/2012
               frxHTMLExport.FileName := NomeArquivo;
               frxReport.Export(DmBoleto.frxHTMLExport);
            end;


          else
            exit;
          end;
       end;
    end;
  finally
    DmBoleto.Free;
  end;
end;

[Tem Como Pegar O Retorno Dos Bancos De Forma Automatica?]

Até hoje eu só vi um sistema do antigo banco real fazer isso, nele os boletos eram cadastrados, e o envio da remessa e recebimento do retorno era diretamente pelo software,

fora isso, acredito que nenhum banco vai liberar acesso a outro software.

[Mesclar Alteração Ao Código]

Olá Isaque, solução perfeita, funcionou certinho.

 

Eu realmente não tinha pensado nos outros Bancos, atualmente só uso Banestes.

 

Obrigado.

[Mesclar Alteração Ao Código]

Boa tarde pessoal,

 

Utilizo o AcbrBoleto, para o Banco Banestes / ES, e ele não usa Dígito verificador da conta/agência, sugiro a alteração abaixo:

 

Unit ACBrBoleto.pas, linha 1975

 

procedure TACBrBoleto.ChecarDadosObrigatorios;

begin

   if (Cedente.Nome= '') or (cedente.Conta = '') or {(Cedente.ContaDigito ='') or } //Banestes não usa Digito verificador

      (Cedente.Agencia = '') {or (Cedente.AgenciaDigito = '')} then

     raise Exception.Create(ACBrStr('Informações do Cedente incompletas'));

end;

 

 

Obrigado.

[Alterações Quando O Contribuinte É Pessoa Física]

Obrigado Italo e parabéns pelo excelente trabalho.

[Alterações Quando O Contribuinte É Pessoa Física]

Boa tarde Italo, tudo bem?

 

Fiz algumas pequenas mudanças nos fontes para quando o emissor da NFS-e é pessoa física.

Seguem os anexos para análise e incorporação.

ACBrNFSeWebServices.pas

alterações.txt

pnfsNFSeG.pas

pnfsNFSeR.pas

[NFSe: Impressão de RPS]

Olá pessoal, será que existe alguma restrição legal em imprimir o RPS em impressora não fiscal?

[Nfse De Vitória/es]

Olá cspimenta, pode disponibilizar os fontes aqui também?