-
Total de ítens
12 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por Eduardo Silva Dos Santos
-
-
O cliente está verificando, mais provavelmente sim, pois em anos isso nunca aconteceu.
-
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.....
-
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.
-
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;
-
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.
-
Olá Isaque, solução perfeita, funcionou certinho.
Eu realmente não tinha pensado nos outros Bancos, atualmente só uso Banestes.
Obrigado.
- 1
-
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;beginif (Cedente.Nome= '') or (cedente.Conta = '') or {(Cedente.ContaDigito ='') or } //Banestes não usa Digito verificador(Cedente.Agencia = '') {or (Cedente.AgenciaDigito = '')} thenraise Exception.Create(ACBrStr('Informações do Cedente incompletas'));end;Obrigado. -
Obrigado Italo e parabéns pelo excelente trabalho.
-
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.
-
Olá pessoal, será que existe alguma restrição legal em imprimir o RPS em impressora não fiscal?
-
Olá cspimenta, pode disponibilizar os fontes aqui também?
Atualização Da Unit Banestes
em ACBrBoleto
Postado
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.