Fórum RAP do Report Builder Enterprise Edition 9.01 para usuários finais #407328

With DMConsultas Do
              Begin
                ppDADOS.Close;
                ppDesigner1.Close;
                ppReport1.CloseDataPipelines;
                ppReport1.Cancel;
                ppReport1.Template.New;

                DMConsultas.ppReportExplorer1.Designer:=ppDesigner1;
                ppReportExplorer1.ItemPipeline:=ppDADOS;
                ppReportExplorer1.FolderPipeline:=ppDADOS;

                ppDesigner1.Report:=ppReport1;
                ppDesigner1.RAPInterface

                ppDADOS.DataSource:=FrmSQLRelatorios.DSConsulta;
                ppReport1.DataPipeline:=ppDADOS;
                ppReport1.Template.DatabaseSettings.DataPipeline:=ppDADOS;
                
                If BtnExecutar.Tag = 1 Then
                Begin
                  ppReport1.Template.FileName:=DMConsultas.RELATORIOS.FieldByName('Rel_NomeOriginal').AsString;
                  ppReport1.TextFileName:=DMConsultas.RELATORIOS.FieldByName('Rel_NomeOriginal').AsString;
                  ppReport1.Template.LoadFromFile;
                End;

                ppDesigner1.ShowModal;
              End;

RAPInterface:
riDialog = True
riNotebookTab = True

RAPOptions:
roViewVariables = True
roEditVariables = True
roViewEvents = True
roEditEvents = True
roViewGlobals = True
roEditGlobals = True