ورود

View Full Version : تبدیل عدد به حروف در fastReport


nightHunter
چهارشنبه 15 اسفند 1386, 09:40 صبح
سلام .

من برای تبدیل اعداد به حروف توی دلفی مشکلی ندارم . فقط میخوام اعدادی رو که در ستون بدهکار و بستانکار در نرم افزارم ( در گزارش FastReport ) دارم رو به حروف تبدیل کنم .

ستون بدهکار و بستانکار رو در PageFooter جمع میبندم ( با استفاده از خود FastReport ) و لازمه که برای دفتر روزنامه در انتهای هر صفحه به حروف هم بدهکار و بستانکار رو بنویسم . چطور میتونم اعداد رو در FastReport به حروف تبدیل کنم ؟

راهنمایی بفرمایید ممنون میشم .
mehdi_moosavi
چهارشنبه 15 اسفند 1386, 14:36 عصر
از FastReport ورژن چند استفاده می کنید؟
nightHunter
چهارشنبه 15 اسفند 1386, 18:12 عصر
سلام

از ورژن 3.x استفاده میکنم . اون x رو دقیقا خاطرم نیست الان هم محل کارم نیستم . کلا شما ورژن 3 رو در نظر بگیر .

متشکرم .
dkhatibi
چهارشنبه 15 اسفند 1386, 18:48 عصر
همون کدی که در دلفی به کار می برید به کار برید.
اما رویدادی وجود دارد برای فیلد متناظر با مبلغ کل شما در fr به نام OnAfterData. در این رویداد کد مربوطه را برای یک مموی دیگر که گداشته اید بنویسید.
mehdi_moosavi
چهارشنبه 15 اسفند 1386, 21:00 عصر
این رو هم چک کنید:
در رویداد OnBeginBand ریپورت کد زیر رو بنویسید:



procedure TForm1.frReport1BeginBand(Band: TfrBand);
begin
if Band.Name = 'MasterData1' then begin
frReport1.FindObject('memo1').Memo.Text := HOROOF(FloatToStr(s));
s := s + Table1AMOUNT.AsFloat;
end;
end;
nightHunter
پنج شنبه 16 اسفند 1386, 19:19 عصر
همون کدی که در دلفی به کار می برید به کار برید.
اما رویدادی وجود دارد برای فیلد متناظر با مبلغ کل شما در fr به نام OnAfterData. در این رویداد کد مربوطه را برای یک مموی دیگر که گداشته اید بنویسید.

سلام

با تشکر از راهنمایی شما . این روش رو تست کرده بودم ولی متاسفانه جواب نمیده ، پیغام میده متن اون memo در FastReport رو نمیتونه به Integer تبدیل کنه . در حقیقت عددی وجود نداره در این رویداد ، مقدار موجود در memo در این رویداد همون فرمان Sum ی هست که قراره جمع کل رو محاسبه کنه .

باز هم از کلیه دوستان تشکر میکنم .
dkhatibi
جمعه 17 اسفند 1386, 10:48 صبح
برای اینکه کارتون راه بیفته فعلا از کوئری برای جمع زدن استفاده نمایید.
و فیلد اونو نسبت بدین تا بعدا راهی بهتر پیدا کنید.
Mahdi-563
یک شنبه 19 اسفند 1386, 07:11 صبح
بیبین این به دردت می‌خوره :


procedure MemoXXXXXOnBeforePrint(Sender: TfrxComponent);
begin
MemoXXXXX.Text := HOROOF(MemoYYYYYY.Text);
end;