Daniel Simoes

Esse outro Pull Request, parece resolver o problema de geração do PDF desconfigurado, quando a resolução das Fontes do Monitor é diferente da padrão https://github.com/fortesinformatica/fortesreport-ce/pull/297

Olá.. segue mais algum material de apoio... Curso Gratuito, de Introdução, sobre a ACBrLib: https://acbr.nutror.com/curso/e4f38b5c7398e4ccca8731c2d305952d389ac693

O Instalador do ACBr, que está no Raiz do Trunk, após baixado pelo SVN, é compatível com D7... Veja nos vídeos dessa página, como é simples instalar e atualizar o ACBr: https://projetoacbr.com.br/fontes/

O ACBrMonitor não faz qualquer verificação desse tipo

Isso não é uma exigência do ACBr, mas pode ser uma exigência de algumas SEFAZ

Para visitantes (sem login) eu realmente deixei desabilitado... mas faltava permissão para os Membros, nessa área...

Hum.. pode ser configuração na área de Base de Conhecimentos.. verificando..

O Instalador do ACBr não é compatível com essa versão do Delphi Veja esse tópico:

Se possível, por favor anexe o Log do ACBRTEFD... Porque não usa o ACBrTEFAPI e PayGoWeb?

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Este tópico lhe ajudará na resolução desse problema... Se após atualizar o ACBr, você está tendo problemas de exibição das Mensagens do Operador/Cliente, isso se deve devido a uma mudança na API, que agora tem um parâmetro novo, com a indicação que a Mensagem deve ser exibida em Todas as telas... Para ajustar os seus fontes, é bem simples, basta adicionar uma condição para Terminal = tmTodas Exemplo para aplicações que usam o componente ACBrTEFD procedure TFormPrincipal.PayGoWebExibeMensagem(Mensagem: String; Terminal: TACBrTEFPGWebAPITerminalMensagem; MilissegundosExibicao: Integer); var FormExibeMensagem: TFormExibeMensagem; begin if (Mensagem = '') then begin if (Terminal in [tmCliente, tmTodas]) then // <--------- AQUI ---------- MensagemTEF('',' ') ; if (Terminal in [tmOperador, tmTodas]) then MensagemTEF(' ','') ; end else if MilissegundosExibicao >= 0 then begin FormExibeMensagem := TFormExibeMensagem.Create(Self); try FormExibeMensagem.Mensagem := Mensagem; FormExibeMensagem.TempoEspera := MilissegundosExibicao; FormExibeMensagem.ShowModal; finally FormExibeMensagem.Free; end; end else begin if (Terminal in [tmCliente, tmTodas]) then // <--------- AQUI ---------- MensagemTEF('',Mensagem) ; if (Terminal in [tmOperador, tmTodas]) then MensagemTEF(Mensagem,'') ; end; end; Exemplo para aplicações que usam o componente ACBrTEFAPI procedure TFormPrincipal.ACBrTEFAPI1QuandoExibirMensagem( const Mensagem: String; Terminal: TACBrTEFAPITela; MilissegundosExibicao: Integer); var FormExibeMensagem: TFormExibeMensagem; begin if (Mensagem = '') then begin if (Terminal in [telaCliente, telaTodas]) then // <--------- AQUI ----------- MensagemTEF('',' '); if (Terminal in [telaOperador, telaTodas]) then MensagemTEF(' ',''); end else if (MilissegundosExibicao >= 0) then begin FormExibeMensagem := TFormExibeMensagem.Create(Self); try FormExibeMensagem.Mensagem := Mensagem; FormExibeMensagem.TempoEspera := MilissegundosExibicao; FormExibeMensagem.ShowModal; finally FormExibeMensagem.Free; end; end else begin if (Terminal in [telaCliente, telaTodas]) then // <--------- AQUI ----------- MensagemTEF('',Mensagem); if (Terminal in [telaOperador, telaTodas]) then MensagemTEF(Mensagem,''); end; end;

https://projetoacbr.com.br/tef/#integracao