cefantacini

Apaguei a pasta do ACBr inteira, baixei novamente, recompilei e resolveu....
Obrigado!

Finalizei os testes aqui, está emitindo em produção normalmente.
Somente não consegui emitir em homologação.
Se puder por favor alterar a cidade de Batatais/SP no componnte para o PadraoNacional.
Se quiser podde fechar o tópico.

Entendido, obrigado!

Era o horário de verão mesmo, não tinha me atentantado a esse detalhe.
Obrigado, se quiser pode fechar o tópico.

Consegui fazer a emissão com  base em informações deste tópico.
Se quiser pode fechar o tópico atual.

Era isso mesmo, peguei o WSDL novo, importei e resolveu.
Se quiser pode fechar o tópico.
Obrigado!

Eu consegui resolver reinstalando a package frce.
Se quiser pode fechar o tópico...

Era isso mesmo, o cliente tinha alterado o código de ativação na tela de configurações.
Problema resolvido
Se quiser pode fechar o tópico

Consegui resolver, estava fazendo confusão com o preenchimento dos campos toma3 e toma4.
Vi o manual e esse tópico:
e consegui corrigir a forma de preencher o XML.
Se quiser pode fechar o tópico.

Consegui resolver
Eu extrai as chaves raiz e intermediária do PFX seguindo este passo a passo:
https://learn.microsoft.com/pt-br/azure/application-gateway/mutual-authentication-certificate-management
Enviei para o portal do banco, depois que o banco aceitou, eu anexei o PFX no ACBrPIX e o problema foi resolvido.
Se quiser pode fechar o tópico.

Eu consegui resolver, eu tinha um código no Delphi 7 que estava gerando o erro no Delphi 11.
Se quiser pode fechar o tópico...
 
unit...;
.
.
type TEvents = Class
  protected
    procedure DefaultApplicationMessage( var Msg: tagMSG; var Handled: Boolean );
  end;
.
.
procedure...
begin
  Events := TEvents.Create;
  Application.OnMessage := Events.DefaultApplicationMessage;
  Events.Free;
end;
.
.
procedure TEvents.DefaultApplicationMessage( var Msg: tagMSG; var Handled: Boolean );
var i : SmallInt;
begin
   if Msg.Message = WM_MouseWheel
   then
     begin
       Msg.Message := WM_KeyDown;
       Msg.lParam := 0;
       i := HiWord( Msg.wParam );
       if i > 0
       then
         Msg.wParam := VK_Up
       else
         Msg.wParam := VK_Down;
       Handled := False;
     end;
end;
 
 

Boa tarde, consegui resolver, o problema era com a TAG
<ExigibilidadeISS>1</ExigibilidadeISS>
Eu estava preenchendo com 2 e o valor correto seria o 1
O problema é que a mensagem de erro não indicava onde realmente estava o problema.
Se quiser pode fechar o tópico

Entendido, vou adaptar a loja para o padrão do provedor.
Se quiser pode fechar o tópico.

Entendido, obrigado!

Eu que agradeço por todos os esclarecimentos.
Já finalizei as rotinas de migração.
Se quiser pode fechar o tópico.

Eu consegui resolver, estava faltando preencher a propriedade 
Configuracoes.Geral.CodigoMunicipio := ...
E chamar o método
Configuracoes.Geral.SetConfigMunicipio;
Antes de imprimir.
Se quiser pode fechar o tópico;

Consegui resolver, o problema era relacionado com permissão de pasta de usuário do windows na pasta em que eu salvei a instalação do fortes.
Se quiser pode fechar o tópico.
Obrigado!

Consegui resolver, o problema era relacionado com permissão de pasta de usuário do windows na pasta em que eu salvei a instalação do fortes.
Se quiser pode fechar o tópico.
Obrigado!

Oi, Italo.
Realmente estava fazendo confusão sim.
Eu consegui resolver, deu um pouco de trabalho, eu emiti um CTe em homologação, usando o certificado digital do emitente.
Depois executei o evento de desacordo para esse CTe usando o certificado digital do tomador.
No final deu tudo certo.
Se quiser pode fechar o tópico.

Eu consegui resolver, da seguinte forma:
Selecionei todos os controles (Edit, ComboBox, BitBtn, etc) da tela (Shift pressionado + clique do mouse sobre o controle).
Com todos marcados apertei Ctrl+X, ou seja, removi eles da tela.
Compilei o programa que deu erro pq o código fazia referência aos controles.
Voltei ao Form, apertei Ctrl+V e colei de volta, aí, o lázatus já cola nos mesmos locais.
Pedi para o próprio lázarus fazer o alinhamento do TabOrder e o problema foi resolvido.
Fechei, abri o projeto, testei, tudo ok.
Se quiser pode fechar o tópico.

Acabei resolvendo aqui, não achei muita lógica, já tinha removido e inserido vários componente e não tinha resolvido, aí joguei tudo fora, deixei só o form e fiz de novo e deu certo.
Leva a crer que era alguma coisa com o RLReport mesmo...

Eu consegui resolver, usando a dica enviada por um amigo aqui do fórum num outro tópico, mais agora não encontro o tópico para dar os créditos da dica, mais de toda forma, vamos lá:
 
Talvez possa ajudar, dependendo de como foi configurada a segurança da conta google/gmail , por exemplo se usada "em duas etapas", so consegui enviar via gmail usando a configuração do Regis. Porem tive q acessar minha conta google e criar uma SENHA DE APP: e através dessa senha ele autentica o envio do email.
1 - https://myaccount.google.com/ (acessar a conta google)
2 - Clicar em COMO FAZER LOGIN NO GOOGLE.
3 - SENHAS DE APP  (lado direito)
4 - Selecionar APP  no caso "EMAIL"
5 - Selecionar DISPOSITIVO no meu caso COMPUTADOR / WINDOWS
6 - Clicar em GERAR.. 
Ai através daquela senha gerada de 16 dígitos, eu inseri como SENHA / Password no componente
ACBrMail1.Password:= ert3f4ai67x8xagh "exemplo"
E ai finalmente o Gmail liberou o envio.
 
Caso queira pode fechar o tópico...

Resolvi, apaguei a pasta i386 que o lazarus cria e aí compilou...

Valeu Daniel, era isso  mesmo, tinha uma rotina o evento DrawColumnCell, assim:
begin
  //inverte a cor quando selecionado
  if gdSelected in State
  then
    begin
      TDBGrid( Sender ).Canvas.Brush.Color := clHighlight;
      TDBGrid( Sender ).Canvas.Font.Color  := clHighlightText;
      TDBGrid( Sender ).Canvas.Pen.Color := Brush.Color;
    end
  else
    begin
      if DMBDComum.IbQrPesquisaPRO_DESATIVADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clRed;
      if DMBDComum.IbQrPesquisaPRO_SELECIONADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clBlue;
    end;
  TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
end;
a última linha, TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );, estava no lugar errado, tem que ser antes do end, assim:
begin
  //inverte a cor quando selecionado
  if gdSelected in State
  then
    begin
      TDBGrid( Sender ).Canvas.Brush.Color := clHighlight;
      TDBGrid( Sender ).Canvas.Font.Color  := clHighlightText;
      TDBGrid( Sender ).Canvas.Pen.Color := Brush.Color;
    end
  else
    begin
      if DMBDComum.IbQrPesquisaPRO_DESATIVADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clRed;
      if DMBDComum.IbQrPesquisaPRO_SELECIONADO.AsString = '1'
      then
        TDBGrid( Sender ).Canvas.Font.Color := clBlue;
      TDBGrid( Sender ).DefaultDrawColumnCell( Rect, DataCol, Column, State );
    end;
end;

Já deu certo, as propriedades eram as que eu setei mesmo, nem precisei usar o RLDraftFilter.
O problema é que eu estava definindo as propriedades em tempo de projeto e em tempo de execução eu setava o tamanho da página como a4 novamente.