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.

Untuk lebih lanjut bisa menghubungi saya :

Doni Irvan
0812-1967-0101 (WA/SMS)
doni@myabcshop.com

PENAWARAN
By | 2017-08-09T19:25:48+00:00 Agustus 9th, 2017|Tutorial|0 Comments

About the Author:

Expert di bidang IT. Anak muda yang penuh semangat, optimis dan bermotivasi tinggi. Selalu berkomitmen pada pekerjaan.

Leave A Comment

%d blogger menyukai ini: