Daniel Braghini

Olá pessoal! Alguma novidade sobre este caso?

Show de bola! Agora foi!

Sincronizei os fontes do ACBr hoje, 07/06/18 as 10:36 e instalei pelo instalador do ACBr sem problemas. Porém, quando tento compilar meu código ocorre o erro Undeclared identifier: 'IncluirQRCodXMLNFCe', conforme imagem abaixo. Vi em outros posts que esta propriedade não deveria existir, mas está sendo citada no fonte e impede a compilação. Favor verificar se deveria ter sido removida desta unit e corrigir nos fontes oficiais para que na próxima sincronia esteja OK. A unit é ACBrNFeConfiguracoes e comentando as linhas problemáticas compila normalmente.

Como ficou esta situação? Conseguiu resolver? Estou utilizando a Bemafi32.ini com Windows 10 e Delphi XE6, com as dlls da Bematech versão 7, que prevê o novo ECF MP-4200 TH FI do novo convênio 09/09 de Santa Catariana e não importa o comando que eu execute, a dll sempre retorna -1, isto é, não encontrou a Bemafi32.ini, porém já coloquei ela no diretório do aplicativo, do windows, do system, system32 e sysWOW64 e continua dando o mesmo problema. Depois testes com um EXE compilado no Delphi XE em uma máquina com Windows XP e o comando funcionou, por isso me parece algo relacionado ou a versão do Delphi, ou a versão do windows. Se alguém já achou solução para o caso, poderia compartilhar? Hoje mandei e-mail para o suporte ao desenvolvedor da Bematech e estou no aguardo de algum retorno.

Hoje, em 25/08/15 sincronizei o trunk2 e não encontrei o TpcnFinalidadeNFe. Foi mudado o nome da classe? Como devo proceder para obter a Finalidade da NF-e? Isto é, Como saber se é uma NF-e de Devolução ou Normal? Já descobri, agora a classe está na unit pcnConversaoNFe em vez da pcnConversao.

Alguém do ACBr poderia validar a solução do Augusto e colocar nos fontes do ACBr? Porque aqui está funcionando. Grato

Opa! Estamos com o mesmo problema e a princípio o arquivo do Augusto resolve o problema. Se alguém do ACBr puder validar e colocar nos fontes principais seria bom.

Boa tarde, seria possível liberar a alteração que o Augusto Fontana fez já nos fontes do ACBr? Valeu!

Na verdade no QuickReport ainda está mostrando CEDENTE no lugar de BENEFICIÁRIO e SACADO no lugar do PAGADOR. Se falta isso, deve faltar outras adaptações.

Caro Jacinto, quanto ao Fortes você tem razão, mas no QuickReport ainda não há tratamento para o endereço nem para o CNPJ. O pessoal do ACBr tem a intenção de ajustar o relatório do QuickReport também?

O endereço eu vi junto com o nome do beneficiário, mas onde está o CNPJ do BENEFICIÁRIO, só vi do do Pagador. Ver pag. 11 do documento da CEF

Pessoal, os boletos do ACBr continuam fora do padrão Febraban, conforme comentário inicial deste tópico. Hoje estou tentando homologar novos boletos na CEF e estão implicando com a ausência do endereço e cnpj do BENEFICIÁRIO Segue link da documentação do boleto da CEF. VER A PARTIR DA PÁGINA 7 onde mostra o layout dos boletos. http://downloads.caixa.gov.br/_arquivos/cobranca_caixa_sigcb/manuais/CODIGO_BARRAS_SIGCB.PDF Eu uso quickreport, mas verifiquei na versão do boleto para o fortes e está inadequada também. Será que alguém pode providenciar as alterações? Ou devo fazer no quickreport e enviar? Penso que talvez as alterações devessem ser feitas em todos os modelos de impressão Alguém por favor pode dar uma auxílio?

Olá Augusto Fontana, Testamos com as suas alterações no Delphi e resolveu. Valeu! Será que alguém do ACBr poderia oficializar as alterações do Augusto Fontana colocando no controle de versão?

Alguma solução pra este caso? Estamos com o mesmo problema mencionado pelo Augusto Fontana.

A solução proposta pelo Augusto funcionou em nossa empresa. Será que poderia ser feito nos fontes originais do ACBr?

Será que alguém do ACBr pode fazer as modificações no boleto do Quickreport?

Já tentou salvar o boleto em pdf e abri-lo? Porque este código estava gerando um pdf corrompido no Quickreport. As linhas comentadas no seu código geram um PDF Válido e com metade do tamanho, porém no arquivo estava faltando adicionar a unit QRPDFFilt no uses. Quanto as units RLFilters e RLPDFFilter, pode remover do arquivo sem problemas, já pedi para removerem elas em outra postagem.

Olá novamente! Estou usando o código que passei acima sem problemas, porém este não é o código que está no ACBr, pois alguém comentou as alterações que sugeri. O problema com o o TQRPAbstractExportFilter é a ausência da unit QRPDFFilt na uses, basta colocá-la que já reconhece o componente. Quando fui sincronizar os fontes do ACBr novamente o arquivo ACBrBoletoFCQuickFr.Pas veio com as linhas comentadas e por conta disso, agora não salva mais em PDF com o Quickreport. Quanto as units RLFilters, RLPDFFilter, fiz o mesmo teste do comentário acima e de fato não utilizava tais units e penso que já podem ser removidas. Peço por gentileza que descomentem as linhas e adicionem a unit que QRPDFFilt, além de remover as units mencionadas acima.

Estamos com o mesmo problema em nossa empresa, alguém tem alguma solução?

Acabo de sincronizar os fontes e constatei que as alterações ainda não foram feitas para o boleto do QuickReport. Deletei o arquivo e sincronizei novamente para ter certeza e continua como Cedente e Sacado.

Hoje o Boleto do ACBr não está em conformidade com a Circular Bacen 3.598 conforme pode ser conferido no documento abaixo publicado pela FEBRABAN: http://www.febraban.org.br/LerArquivo.asp?Tabela=Home_Arquivos&codigo=id_arquivo&campo1=arquivo&campo2=QtdeAcessos&id_codigo=2999&campo3=arquivos/ o qual também anexo a este tópico. As principais mudanças são: a. O boleto de pagamento, que a partir de agora passa a ter dois tipos: o boleto de cobrança e o boleto de proposta, com funcionalidades e regras de emissão específicas e distintas uma da outra; b. Altera as nomenclaturas de cedente e sacado, que passam a ser chamadas como beneficiário e pagador, respectivamente; c. Extingue os conceitos de data de vencimento “a vista” ou “contra apresentação”, estabelecendo que todos os boletos tenham como informação obrigatória a “data de vencimento” e o seu respectivo “valor”; d. Obriga que todos os boletos de pagamento contenham o CPF ou CNPJ, endereço e nome do beneficiário; e. Obriga que os boletos de valor igual ou maior que o VR (valor de referência) – Boleto, hoje em R$ 250 mil, sejam liquidados por meio do Sistema de Transferência de Reservas do Bacen – STR entre as instituições recebedora e beneficiária. Tais alterações já estão em vigor e por isto gostaria de saber se alguém já fez ou está fazendo tais alterações no ACBr, se for possível agilizar pelo menos as alterações de nomenclatura já seria bom. Grato desde já, Daniel Braghini da Silva NOVO BOLETO BANCÁRIO.rar

Também estou com esta situação e confirmo que o da CEF é preciso alterar para "Espécie Moeda" para ficar de acordo com as especificações da CEF em http://downloads.caixa.gov.br/_arquivos/cobranca_caixa_sigcb/manuais/CODIGO_BARRAS_SIGCB.PDF. Quanto ao Bradesco não encontrei nada oficial, mas de acordo com o link a seguir é possível ver que na imagem do boleto do Bradesco, no próprio site do Bradesco, está como "Espécie Moeda" também: http://www.bradesco.com.br/html/classic/produtos-servicos/outros/2-via-de-boleto.shtm Pesquisei os demais bancos e não encontrei nada que desse esta orientação. Sendo assim, penso que os boletos da CEF e Brasdesco devem ser ajustados para "Espécie Moeda".

Quando deixo o campo convênio em branco, o texto da exceção gerada fica como abaixo: "Banco do Brasil requer que a Convênio do Cedente seja informado." quando na verdade deveria ser "o Convênio" Ou estou equivocado? Se eu estiver certo, a alteração precisa ser feita no método CalcularTamMaximoNossoNumero do arquivo ACBrBancoBrasil, logo no início do método.

Eu postaria, mas tive que fazer outras alterações pra usar outra tela no lugar do preview padrão e isto daria problema para os demais usuários então vou passar só o método alterado. Fiz melhorias que para que o PDF fique com metade do tamanho que estava e para evitar um vazamento de memória. Segue o código: procedure TACBrBoletoFCQuick.Imprimir; var frACBrBoletoQuick : TACBRBoletoFCQuickFr; RLLayout: TQuickRep; FiltroExportacao: TQRPAbstractExportFilter; begin inherited Imprimir; // Executa verificações padroes frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self); try with frACBrBoletoQuick do begin case LayOut of lCarne : RLLayout:= BoletoCarne; lPadraoEntrega : RLLayout:= LayoutPadraoEntrega; else RLLayout := LayoutBoleto; end; RLLayout.PrinterSettings.Copies := NumCopias ; case Filtro of fiPDF : begin FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; RLLayout.ExportToFilter(FiltroExportacao); FiltroExportacao.Free; end ; fiHTML : begin (* Codigo abaixo comentado pois não funciona... HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo ); try RLLayout.ExportToFilter( HTMLFilter ); finally HTMLFilter.Free ; end ; *) raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ; end ; else begin if MostrarPreview then RLLayout.PreviewModal else begin if MostrarSetup then RLLayout.PrinterSetup ; if (RLLayout.Tag = 0) then RLLayout.Print; end ; end end ; end ; finally frACBrBoletoQuick.Free ; end; end;

No arquivo ACBrBoletoFCQuickFr, no método Imprimir substituí o código abaixo: MultiExport := TQRMultiExport.Create(self); try MultiExport.Report := RLLayout ; MultiExport.ExportFormat := qrxPDF ; MultiExport.FileName := NomeArquivo ; MultiExport.ShowDialog := MostrarSetup ; MultiExport.DPI := 300 ; MultiExport.DoExport ; finally MultiExport.Free ; end ; POR: RLLayout.ExportToFilter(TQRPDFDocumentFilter.Create(NomeArquivo + '.pdf')); Então consegui salvar o arquivo corretamente, sem corrupção