Arsip: Error Terbilang di Fastreport

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
more 17 years ago
bagussb
bro.. bisa lebih diperjelas ngga ?
Memo22 itu apa.. Component TMemo ?
trus Terbilang itu deklarasi fungsinya bagaimana ?
:mrgreen:

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

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

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

more 17 years ago
mas_kofa
aku setuju ama @saysansay
kalo di lihat dr permasalahan
tapi muncul pesan undeclared memo22jelas 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
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
more 17 years ago
delphi1st
Dear ALL,
Untuk lebih jelasnya sy kirimkan gbr reportnya, yang mau dibuatkan terbilangnya adalah angka dibelakang Total:
Berikut Gbrnya



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
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- PID (Proportional-Integral-Derivative)
by zeal_of in Enginering more 17 years ago - tip and trik develop aplikasi three tier
by ipaseti in Tip n Trik Pemrograman more 18 years ago - Soal Sql Server 2005
by juan81 in Hal umum tentang Pascal Indonesia more 17 years ago - Guys, help me ^^
by iammcrayeps in Hal umum tentang Pascal Indonesia more 15 years ago - tipikal programmer indonesia
by simba in OOT more 19 years ago - flash di Delphi & Audio di Delphi
by thund in Multimedia & Graphic Enhancement more 17 years ago - penjumlahan dua array tidak sama
by yadi in Hal umum tentang Pascal Indonesia more 17 years ago - Efisien Coding (menampilkan 2 gambar)
by zones in Multimedia & Graphic Enhancement more 16 years ago - Analisa Sistem
by Joseph in Enginering more 16 years ago - tanya soal quick report
by Computer(Insane) in Tip n Trik Pemrograman more 18 years ago