Ir para conteúdo
  • Cadastre-se

Daniel Braghini

Membros
  • Total de ítens

    30
  • Registro em

  • Última visita

Posts postados por Daniel Braghini

  1. 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.

    image.png.383766b4f9b1b54ff4965d2eed2064a5.png

    • Curtir 1
  2. 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.

     

  3. 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.

    • Curtir 1
  4. 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?

  5. 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?

  6. 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.

  7. 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.

  8. 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

  9. 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".

  10. 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;
    
  11. 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
    • Curtir 1
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...