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 tampilan 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;

 

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

  1. Kalau sudah, silahkan di close kemudian save report dengan format FR3.
By | 2017-08-09T19:24:28+00:00 Agustus 9th, 2017|Tutorial Accurate|0 Comments

About the Author:

Anak muda dari planet Bekasi

Leave A Comment