you're reading...
Uncategorized

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;

solcen

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

(Available For V4 & V5)

Advertisements

Discussion

Comments are closed.

%d bloggers like this: