Jump to content

Destroy TuniFrame


herculanojs

Recommended Posts

He experimented using TuniFrame to use some reports that have visual interaction screen with the user.
However, I have some difficulties when there is a failure to prepare the report.
 
In Tuniframe, there is a method that will prepare the report, and if so, preview the file and successively destroy the frame. This works perfectly
 
However, when the preparation method fails, the frame is not being destroyed.
If an attempt is made to run the report again, we received an error that the frame already exists.
 
 
How should we proceed in such a situation?
 
 
procedure TfrmFinanceiro_Associado.UniSpeedButton3Click(Sender: TObject);
var FrC : TUniFrameClass;
    Fr : TUniFrame;
begin
     if qrydados.IsEmpty then
        exit;
 
     FrC := TUniFrameClass(FindClass('TFrameEmissaoBoleto'));
     if frc <> nil then
     begin
          fr := TUniFrameClass(FindClass('TFrameEmissaoBoleto')).Create(self);
          if fr <> nil then
          begin
               datamodel.link.Util.PassaObject(fr,'SelectedFields',qryDados.Fields);
               if not datamodel.link.util.ExecutaMetodo(fr,'prepara') then
                  FreeAndNil(fr);         
          end;
     end;
end;

 

Link to comment
Share on other sites

  • 1 year later...

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...