Arsip: Error Terbilang di Fastreport

 
user image
more 17 years ago

delphi1st

Dear All, Saya ingin membuat terbilang difastreport dimana yang mau dibuatkan terbilang adalah nilai yang ada di komponent memo22 di fastreport. Memo22 ini adalah hasil penjumlahan total barang saya pake skrip ini pada event ongetvalue :

  if varName 'TERBILANG' then
  varValue := Terbilang(memo22);
tapi muncul pesan undeclared memo22 mungkin rekan2 ada yang bisa membantu Thnx All
user image
more 17 years ago

bagussb

bro.. bisa lebih diperjelas ngga ? Memo22 itu apa.. Component TMemo ? trus Terbilang itu deklarasi fungsinya bagaimana ? :mrgreen:
user image
more 17 years ago

saysansay

Atuh om @delphi1st ya nga akan bisa atuh...Masalahnya Dikau Mengakses Dari Luar:D, Coba Dikau Bermain Di EventBefore Printnya Memo

procedure Memo1OnBeforePrint(Sender: TfrxComponent);
begin
//Masukan Function Terbilangnya Ya
end;
Mudah2han Membantu
user image
more 17 years ago

delphi1st

@bagussb: bro.. bisa lebih diperjelas ngga ? Memo22 itu apa.. Component TMemo ? trus Terbilang itu deklarasi fungsinya bagaimana ? :mrgreen:
Memo22 itu adalah name componen yang dipakai untuk munculkan total jumlah barang di fastreport, Terbilang itu sy deklarasikan fungsinya di datamodule, nantinya di fasreport sy ingin membuat terbilang dari angka yang muncul di memo22(fastreport).. yang mau dibuatkan terbilang ada beberapa dalam satu report karena dia berada dalam grouping berdasarkan nomor faktur
user image
more 17 years ago

saysansay

Om @Delphi1st Di Fastreport Support Pascal Script Klu Hanya Function terbilang dikau Bisa Deklariskan Di Publicnya Fastreport,Mungkin Ada rekan2 yang lain yang pernah Memanggil Function yang di deklarasikan di luar Modul Fastreport,Menurut sepengetahuanku, Biasanya Function akan diidentifikasi apa bila dalam satu rootnya fast report
user image
more 17 years ago

maulaku

mungkin masalah karna konfersinya saja kalo boleh fungsi terbilangnya kaya apa?
user image
more 17 years ago

mas_kofa

aku setuju ama @saysansay kalo di lihat dr permasalahan
tapi muncul pesan undeclared memo22
jelas sekali bahwa memo22 yang ada fastreport tdk dikenali oleh aplikasi............ mungkin kasusnya sama kalo kita mengakses edit dari form lain tdk akan bisa bila nama formnya tdk diikutsertakan....

edit1.Text := FormLain.Edit1.Text;
mungkin benar pertanyaan dr @bagussb.....
Memo22 itu apa.. Component TMemo ? trus Terbilang itu deklarasi fungsinya bagaimana ?
apakah dia punya parent ???............jk punya sebutlah nama parentnya.....

    varValue := terbilang(Parent.memo22);
S'moga penjelasan dari saya berguna
user image
more 17 years ago

zieborg

@delphi1st : gunakan fasilitas fastscript untuk menambah custom function, caranya bikin satu unit (atau pake yg sudah ada), kemudian tambahkan unit ini dalam uses di form yg akan menggunakan fungsi ini, contohnya

unit Unit1;
interface
implementation
uses SysUtils, Classes, fs_iinterpreter; // ....semua yg diperlukan
type
  TFunctions = class(TfsRTTIModule)
    private
      function CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; var Params: Variant): Variant;
    public
    constructor Create(AScript: TfsScript); override;
  end;

function Terbilang(Angka:currency):string;
begin
  //kode kamu...	
end;
constructor TFunctions.Create;
begin
  inherited Create(AScript);
  with AScript do
  begin
     AddMethod('function Terbilang(Angka:currency):string;', CallMethod, 'Terbilang', ' Konversi angka ke huruf');
  end;
end;
function TFunctions.CallMethod(Instance: TObject; ClassType: TClass; const MethodName: String; var Params: Variant): Variant;
begin
  if MethodName = 'TERBILANG' then
    result := Terbilang(Params[0]);
  end;
initialization
  fsRTTIModules.Add(TFunctions);
end.
penggunaanya di fastreport designer sama dengan memanggil fungsi2 lain yang ada di fastreport, misal :

[Terbilang(1000000)]
atau
))]
bila kurang jelas, baca dulu manualnya fastreport, terutama di bagian custom function good luck
user image
more 17 years ago

delphi1st

Dear ALL, Untuk lebih jelasnya sy kirimkan gbr reportnya, yang mau dibuatkan terbilangnya adalah angka dibelakang Total: Berikut Gbrnya
user image
more 17 years ago

zieborg

@delphi1st, pertanyaan kamu sudah terjawab di atas, masalah gambar report saya rasa tidak perlu. jadi bingung nih mau jawab apa lagi, catatan saja, fastscrip hanaya disupport fastreport 3.0 ke atas
more ...
  • Pages:
  • 1
  • 2
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com