AcbrNFE e ShowModal

[williampeters]

Bom dia.

Estou passando por um problema que não consigo entender o porque de ocorrer.

Após passar por todos procedimentos de preenchimento, validação e envio da nota no ACBRNfe, funções basicas como o MessageDlg, Showmessage e até mesmo abrir um form em Modal, não funcionam.

Gostaria de saber se alguem passou por este tipo de problema.

Estou usando o Delphi XE5 e ja migrei para o Trunk2

 

Eis o Codigo:

function TDmPadroes.TransmitirNFE(Lote: Integer): Boolean;   
begin
   Result := False;
   try
     if ACBrNFeMulti.Enviar(Lote,True)
     then Result := True;
   except
      TrataErros('Erro ao Transmitir Nota Fiscal Eletronica!', Exception(ExceptObject));     
   end; //*)
end;

 

procedure TrataErros(Msg: String; E: Exception);
begin
    //(*
    if not Assigned(ForTrata)
    then Application.CreateForm(TForTrata, TForm(ForTrata));
    with ForTrata do
    begin
        Memo1.Lines.Clear;
        Memo1.Lines.Add( Msg );
        Memo1.Lines.Add( E.Message );
        FormStyle           := fsNormal;
        Visible             := False;
        WindowState         := wsNormal;
        Position            := poDesktopCenter;
        BringToFront;
        ShowModal; --- > Aqui neste ponto por exemplo, ele passa batido e nao exibe o form
    end; //*)
    FreeAndNil(ForTrata);
end;