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;