Menghilangkan Simbol (Dr) dan (Cr) pada Report General Ledger Detail

Jika kita membuka report General Ledger Detail, pada kolom  Balance, kita menemukan saldo-saldonya ditampilkan dengan simbol (Dr) dan (Cr) yang menandakan posisi Debit atau Kredit akunnya.

Untuk menghilangkan simbol Dr dan Cr pada Report General Ledger Detail tsb maka langkah yang harus dilakukan adalah:

1. Dari tampilan report, klik icon Designer.
2. Pilih ke tab “Code”
3. Cari dan perhatikan tulisan dengan awalan baris Procedure Column7OnBeforePrint… sampai baris end; end. Jika kesulitan dalam mencari silahkan gunakan hotkey Ctrl + F
4. Silahkan di select, kemudian ganti semuanya menjadi:

procedure Column7OnBeforePrint(Sender: TfrxComponent);
begin
if (TfrxIBXQuery(ReportMasterData.DataSet).FieldByName('COLUMNVALUE_5').AsVariant <> null) then
  Report.variables['VarValue1'] := Report.variables['VarValue1'] + TfrxIBXQuery(ReportMasterData.DataSet).FieldByName('COLUMNVALUE_5').AsVariant - TfrxIBXQuery(ReportMasterData.DataSet).FieldByName('COLUMNVALUE_6').AsVariant; 
if (Report.variables['VarValue1'] < 0) then
  TfrxMemoView(Sender).memo.text := FormatFloat(Report.Variables['CurrFormat'],Report.variables['VarValue1']/Report.Variables['NumDivider'])
else TfrxMemoView(Sender).memo.text := FormatFloat(Report.Variables['CurrFormat'],Report.variables['VarValue1']/Report.Variables['NumDivider']);
TfrxMemoView(Sender).HAlign := haRight;
if Pos('MODULEDRILL', TfrxView(Sender).TagStr) > 0 then begin
  TfrxMemoView(Sender).Cursor := 213;
end else if Pos('REPORTDRILL', TfrxView(Sender).TagStr) > 0 then begin
  TfrxMemoView(Sender).Cursor := 214;
end else begin
  TfrxMemoView(Sender).Cursor := crDefault;
end;
end;

5. Kalau sudah, silahkan di close kemudian save report dengan format FR3.

(Available For V4 & V5)