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

o ACBrConsultaCNPJ usa a mesma URL para todos os estados... O Erro realmente parece ser a falta de todas as DLLs do OpenSSL, na mesma pasta da aplicação

Olá @cristianocruzzz, Analisando a modificação, notei que ela é compatível apenas com PayGoWeb.. o que pode causar uma certa confusão, em quem usa o TEF por troca de Arquivos, ou SiTef, pois essa classe estaria sempre vazia... As informações que você está salvando nessa classe, podem ser obtidas no termino da Transação TEF.. veja um exemplo: Ok := ACBrTEFAPI1.EfetuarPagamento( IntToStr(Venda.NumOperacao), AValor, Modalidade, CartoesAceitos, tefmfAVista ); Ok := Ok and ACBrTEFAPI1.UltimaRespostaTEF.Sucesso and ACBrTEFAPI1.UltimaRespostaTEF.TransacaoAprovada; // -- Exemplo de como capturar os Erros retornados pela API do TEF PayGoWeb -- // if not OK then begin if (ACBrTEFAPI1.TEF is TACBrTEFAPIClassPayGoWeb) then begin CodErro := ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(PWINFO_RET).AsInteger; MsgErro := ACBrTEFAPI1.UltimaRespostaTEF.LeInformacao(PWINFO_RESULTMSG).AsBinary; ShowMessage('Erro: '+IntToStr(CodErro)+' - '+Trim(MsgErro)); end; end;

@DSilva, enviei para o SVN, com alguns pequenos ajustes... Commit [r24050]

SiM.. roda cartões de alimentação .. Você pode falar com o Time de TEF do ACBr, sobre isso.. @José Tamizou Jr, pode apoiar nesse caso ?

Rode o Demo do ACBrETQ, e veja no combo de Portas se ela aparece listada... O ACBr não usa DLLs...

Parce que faltou Compilar as DLLs base sa Classe de alto-nivel do ACBr em C#... Por favor Compile o Demo em WinForms antes

Observe que tem vários exemplos em WinForms, que são úteis para lhe mostrar como a classe de alto nível do ACBr, opera... http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/C%23/ Também existe um exemplo básico, de como usar a versão Multi Thread em API http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/C%23/ACBr.API/