var
TextFilter : String;
Debit, Credit : Currency;

procedure MasterData1OnBeforePrint(Sender: TfrxComponent);
begin
MasterData1.Visible := <Account Payable."DETAILNOINDEX"> <> <Account Payable."MASTERNOINDEX">;
mNoJurnal.Tag := <Account Payable."DETAILNOINDEX">;

Credit := 0;
Debit := 0;

if <Account Payable."DETAILAMOUNT"> < 0 then
Credit := - <Account Payable."DETAILAMOUNT"> * <Account Payable."MASTERCURRENCYRATE">
else
Debit := <Account Payable."DETAILAMOUNT"> * <Account Payable."MASTERCURRENCYRATE"> ;
end;

procedure GroupHeader2OnBeforePrint(Sender: TfrxComponent);
begin
mMasterDebit.Text := '[0]' ;
mMasterCredit.Text := '[0]';
mNoJurnalMaster.Tag :=<Account Payable."MASTERNOINDEX">;
if <Account Payable."DETAILAMOUNT"> > 0 then
mMasterDebit.Text := '[<Account Payable."DETAILAMOUNT"> * <Account Payable."MASTERCURRENCYRATE">]'
else
mMasterCredit.Text := '[-<Account Payable."DETAILAMOUNT"> * <Account Payable."MASTERCURRENCYRATE">]';
end;


begin
FilterAccountStatement(8000, // Account Payable With Detail = 8000
TextFilter,
'MASTERNAMECODE, MASTERREFERENCENO, DETAILNOINDEX',// Column Oder
True // Is Display Detail
);
Memo15.Text := TextFilter;
end.