frxReport SaveToFile

LeandroLeandro
edited 6:32PM in FastReport VCL 5
NEW

<TfrxReport Version="5.5" DotMatrixReport="False" IniFile="/Software/Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Padr??o" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40137,4756620949" ReportOptions.Description.Text="" ReportOptions.LastChange="42521,5861578704" ScriptLanguage="PascalScript" ScriptText.Text="var;;numrelacao: integer;;;;;procedure Child2OnBeforePrint(Sender: TfrxComponent);;;begin;; Child2.Visible := ;frxDBRelatorio3.;observped;; ;; '';;;end;;;;;procedure Child6OnBeforePrint(Sender: TfrxComponent);;;begin;; Child6.Visible := ((;DadosRelatorio.;observped;; ;; '') or (;DadosRelatorio.;obscredped;; ;; ''));;;end;;;;;procedure GroupHeader14OnBeforePrint(Sender: TfrxComponent);;;begin;; numrelacao:=;frxDBRelatorio7.;numeroren;;;;;end;;;;;procedure GroupHeader20OnBeforePrint(Sender: TfrxComponent);;;begin;; if ;frxDBRelatorio8.;numeroren;; ;; numrelacao then;; begin;; GroupHeader20.Visible:=False;;; GroupHeader19.Visible:=False;;; MasterData8.Visible:=False;;; GroupHeader17.Visible:=False;;; GroupHeader16.Visible:=False;;; Memo335.Visible:=False;;; end;; else;; begin;; GroupHeader20.Visible:=True;;; GroupHeader19.Visible:=True;;; MasterData8.Visible:=True;;; GroupHeader17.Visible:=True;;; GroupHeader16.Visible:=True;;; Memo335.Visible:=True;;; end;;;end;;;;;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);;;begin;;if ;DadosRelatorio.;natopeitp;; = '6910' then;; Memo348.color := Clyellow;; else;; Memo348.color :=clnone;;;if (;DadosRelatorio.;preuniitp;;-;DadosRelatorio.;vlrfreteunitp;;); ;DadosRelatorio.;precotbp;; then;; Memo358.color := Cllime;; else;; Memo358.color := clnone;;;end;;;;;;;procedure MasterData9OnBeforePrint(Sender: TfrxComponent);;;begin;; if ;frxDBRelatorio9.;numeroren;; = ;frxDBRelatorio4.;numeroren;; then;; MasterData9.Visible:=True;; else;; MasterData9.Visible:=False;;;;;end;;;;;;;procedure Memo40OnBeforePrint(Sender: TfrxComponent);;;begin;; if ;DadosRelatorio.;vlrdesctoped;; ; 0 then;; Memo40.Visible:=True;; else;; Memo40.Visible:=False;;;end;;;;;begin;; Page1.Visible:= ;frxDBRelatorio2.;tiporel;; in [1];;; Page2.Visible:= ;frxDBRelatorio2.;tiporel;; in [2];;; Page3.Visible:= ;frxDBRelatorio2.;tiporel;; in [3];;; Page4.Visible:= ;frxDBRelatorio2.;tiporel;; in [4];;; Page5.Visible:= ;frxDBRelatorio2.;tiporel;; in [5];;; Page6.Visible:= ;frxDBRelatorio2.;tiporel;; in [6];;; Page7.Visible:= ;frxDBRelatorio2.;tiporel;; in [6];;;end.">


OLD
<TfrxReport Version="5.5" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Padr??o" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40137,4756620949" ReportOptions.Description.Text="" ReportOptions.LastChange="42521,5861578704" ScriptLanguage="PascalScript" ScriptText.Text="var
numrelacao: integer;

procedure Child2OnBeforePrint(Sender: TfrxComponent);
begin
Child2.Visible := <frxDBRelatorio3."observped"> <> '';
end;

procedure Child6OnBeforePrint(Sender: TfrxComponent);
begin
Child6.Visible := ((<DadosRelatorio."observped"> <> '') or (<DadosRelatorio."obscredped"> <> ''));
end;

procedure GroupHeader14OnBeforePrint(Sender: TfrxComponent);
begin
numrelacao:=<frxDBRelatorio7."numeroren">;
end;

procedure GroupHeader20OnBeforePrint(Sender: TfrxComponent);
begin
if <frxDBRelatorio8."numeroren"> <> numrelacao then
begin
GroupHeader20.Visible:=False;
GroupHeader19.Visible:=False;
MasterData8.Visible:=False;
GroupHeader17.Visible:=False;
GroupHeader16.Visible:=False;
Memo335.Visible:=False;
end
else
begin
GroupHeader20.Visible:=True;
GroupHeader19.Visible:=True;
MasterData8.Visible:=True;
GroupHeader17.Visible:=True;
GroupHeader16.Visible:=True;
Memo335.Visible:=True;
end;
end;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
if <DadosRelatorio."natopeitp"> = '6910' then
Memo348.color := Clyellow
else
Memo348.color :=clnone;
if (<DadosRelatorio."preuniitp">-<DadosRelatorio."vlrfreteunitp">)> <DadosRelatorio."precotbp"> then
Memo358.color := Cllime
else
Memo358.color := clnone;
end;


procedure MasterData9OnBeforePrint(Sender: TfrxComponent);
begin
if <frxDBRelatorio9."numeroren"> = <frxDBRelatorio4."numeroren"> then
MasterData9.Visible:=True
else
MasterData9.Visible:=False;

end;


procedure Memo40OnBeforePrint(Sender: TfrxComponent);
begin
if <DadosRelatorio."vlrdesctoped"> > 0 then
Memo40.Visible:=True
else
Memo40.Visible:=False;
end;

begin
Page1.Visible:= <frxDBRelatorio2."tiporel"> in [1];
Page2.Visible:= <frxDBRelatorio2."tiporel"> in [2];
Page3.Visible:= <frxDBRelatorio2."tiporel"> in [3];
Page4.Visible:= <frxDBRelatorio2."tiporel"> in [4];
Page5.Visible:= <frxDBRelatorio2."tiporel"> in [5];
Page6.Visible:= <frxDBRelatorio2."tiporel"> in [6];
Page7.Visible:= <frxDBRelatorio2."tiporel"> in [6];
end.">


lXml := TStringList.Create;
frxReport1.SaveToFile('temp.fr3');
lXml.LoadFromFile('temp.fr3');





Comments

  • LeandroLeandro
    edited 6:32PM
    Leandro wrote: »
    NEW

    <TfrxReport Version="5.5" DotMatrixReport="False" IniFile="/Software/Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Padr??o" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40137,4756620949" ReportOptions.Description.Text="" ReportOptions.LastChange="42521,5861578704" ScriptLanguage="PascalScript" ScriptText.Text="var;;numrelacao: integer;;;;;procedure Child2OnBeforePrint(Sender: TfrxComponent);;;begin;; Child2.Visible := ;frxDBRelatorio3.;observped;; ;; '';;;end;;;;;procedure Child6OnBeforePrint(Sender: TfrxComponent);;;begin;; Child6.Visible := ((;DadosRelatorio.;observped;; ;; '') or (;DadosRelatorio.;obscredped;; ;; ''));;;end;;;;;procedure GroupHeader14OnBeforePrint(Sender: TfrxComponent);;;begin;; numrelacao:=;frxDBRelatorio7.;numeroren;;;;;end;;;;;procedure GroupHeader20OnBeforePrint(Sender: TfrxComponent);;;begin;; if ;frxDBRelatorio8.;numeroren;; ;; numrelacao then;; begin;; GroupHeader20.Visible:=False;;; GroupHeader19.Visible:=False;;; MasterData8.Visible:=False;;; GroupHeader17.Visible:=False;;; GroupHeader16.Visible:=False;;; Memo335.Visible:=False;;; end;; else;; begin;; GroupHeader20.Visible:=True;;; GroupHeader19.Visible:=True;;; MasterData8.Visible:=True;;; GroupHeader17.Visible:=True;;; GroupHeader16.Visible:=True;;; Memo335.Visible:=True;;; end;;;end;;;;;procedure MasterData1OnBeforePrint(Sender: TfrxComponent);;;begin;;if ;DadosRelatorio.;natopeitp;; = '6910' then;; Memo348.color := Clyellow;; else;; Memo348.color :=clnone;;;if (;DadosRelatorio.;preuniitp;;-;DadosRelatorio.;vlrfreteunitp;;); ;DadosRelatorio.;precotbp;; then;; Memo358.color := Cllime;; else;; Memo358.color := clnone;;;end;;;;;;;procedure MasterData9OnBeforePrint(Sender: TfrxComponent);;;begin;; if ;frxDBRelatorio9.;numeroren;; = ;frxDBRelatorio4.;numeroren;; then;; MasterData9.Visible:=True;; else;; MasterData9.Visible:=False;;;;;end;;;;;;;procedure Memo40OnBeforePrint(Sender: TfrxComponent);;;begin;; if ;DadosRelatorio.;vlrdesctoped;; ; 0 then;; Memo40.Visible:=True;; else;; Memo40.Visible:=False;;;end;;;;;begin;; Page1.Visible:= ;frxDBRelatorio2.;tiporel;; in [1];;; Page2.Visible:= ;frxDBRelatorio2.;tiporel;; in [2];;; Page3.Visible:= ;frxDBRelatorio2.;tiporel;; in [3];;; Page4.Visible:= ;frxDBRelatorio2.;tiporel;; in [4];;; Page5.Visible:= ;frxDBRelatorio2.;tiporel;; in [5];;; Page6.Visible:= ;frxDBRelatorio2.;tiporel;; in [6];;; Page7.Visible:= ;frxDBRelatorio2.;tiporel;; in [6];;;end.">


    OLD
    <TfrxReport Version="5.5" DotMatrixReport="False" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="4095" PreviewOptions.Zoom="1" PrintOptions.Printer="Padr??o" PrintOptions.PrintOnSheet="0" ReportOptions.CreateDate="40137,4756620949" ReportOptions.Description.Text="" ReportOptions.LastChange="42521,5861578704" ScriptLanguage="PascalScript" ScriptText.Text="var
    numrelacao: integer;

    procedure Child2OnBeforePrint(Sender: TfrxComponent);
    begin
    Child2.Visible := <frxDBRelatorio3."observped"> <> '';
    end;

    procedure Child6OnBeforePrint(Sender: TfrxComponent);
    begin
    Child6.Visible := ((<DadosRelatorio."observped"> <> '') or (<DadosRelatorio."obscredped"> <> ''));
    end;

    procedure GroupHeader14OnBeforePrint(Sender: TfrxComponent);
    begin
    numrelacao:=<frxDBRelatorio7."numeroren">;
    end;

    procedure GroupHeader20OnBeforePrint(Sender: TfrxComponent);
    begin
    if <frxDBRelatorio8."numeroren"> <> numrelacao then
    begin
    GroupHeader20.Visible:=False;
    GroupHeader19.Visible:=False;
    MasterData8.Visible:=False;
    GroupHeader17.Visible:=False;
    GroupHeader16.Visible:=False;
    Memo335.Visible:=False;
    end
    else
    begin
    GroupHeader20.Visible:=True;
    GroupHeader19.Visible:=True;
    MasterData8.Visible:=True;
    GroupHeader17.Visible:=True;
    GroupHeader16.Visible:=True;
    Memo335.Visible:=True;
    end;
    end;

    procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
    begin
    if <DadosRelatorio."natopeitp"> = '6910' then
    Memo348.color := Clyellow
    else
    Memo348.color :=clnone;
    if (<DadosRelatorio."preuniitp">-<DadosRelatorio."vlrfreteunitp">)> <DadosRelatorio."precotbp"> then
    Memo358.color := Cllime
    else
    Memo358.color := clnone;
    end;


    procedure MasterData9OnBeforePrint(Sender: TfrxComponent);
    begin
    if <frxDBRelatorio9."numeroren"> = <frxDBRelatorio4."numeroren"> then
    MasterData9.Visible:=True
    else
    MasterData9.Visible:=False;

    end;


    procedure Memo40OnBeforePrint(Sender: TfrxComponent);
    begin
    if <DadosRelatorio."vlrdesctoped"> > 0 then
    Memo40.Visible:=True
    else
    Memo40.Visible:=False;
    end;

    begin
    Page1.Visible:= <frxDBRelatorio2."tiporel"> in [1];
    Page2.Visible:= <frxDBRelatorio2."tiporel"> in [2];
    Page3.Visible:= <frxDBRelatorio2."tiporel"> in [3];
    Page4.Visible:= <frxDBRelatorio2."tiporel"> in [4];
    Page5.Visible:= <frxDBRelatorio2."tiporel"> in [5];
    Page6.Visible:= <frxDBRelatorio2."tiporel"> in [6];
    Page7.Visible:= <frxDBRelatorio2."tiporel"> in [6];
    end.">


    lXml := TStringList.Create;
    frxReport1.SaveToFile('temp.fr3');
    lXml.LoadFromFile('temp.fr3');


    The error was not the fast , was to save the file xml. Thank you

Leave a Comment


Home • FastReport VCL 5Comment As ...

© Vanilla Keystone Theme 2025