ایجاد و ویرایش کردن گزارش

[frahimi]

با سلام خدمت تمامی دوستان و همکاران عزیز

چگونه میتوان در فایل exe گزارش ایجاد و یا ویرایش کرد. برای چاپ بر روی چک میخواهم طوری که فرمت چاپ مطابق چک باشد و کاربر بتواند با اندکی آموزش آنرا انجام دهد.
توضیح اینکه وقتی ویرایش و یا گزارش جدید را در از درون فرم فراخوان میکنم انجام میشود ولیکن وقتی از روی فایل exe شده فراخوان میکنم هیچ عملی اتفاق نمی افتد.
با تشکر

[abdorreza]

سلام
به نظر من بهتر است شما اندازه های مختلف چک را در برنامه تعریف کنید تا کاربر بتواند از داخل برنامه چک مورد نظر را که مطابق اندازه ها و موقعیت چک خودش است انتخاب کند و درگیر کارهای دیگر نشود.

[gh_khajehzade]

فايل گزارشت رو تو exe قرار نده .هم ميتوني مستقيم تو پوشه برنامت بذاري هم تو يك فيلد يكي از جداولت قرار بدي .

[frahimi]

در مورد اینکه اندازه های مختلف چک را در برنامه تعریف کنیم با توجه به اینکه هرروز ممکن است دسته چکهای جدید از راه برسه امکان پذیر نیست
فایل گزارش را هم در exe قرار ندادم ولیکن وقتی با دستور modify report در فایل exe گزارش را میخواهم ویرایش کنم سیستم هیچ عکس العملی نشان نمیدهد و گزارش را باز نمیکند

[gh_khajehzade]

دوست عزيز من با فاكس 9 وبا xp تست كردم مشكلي نداشت و گزارش رو تغيير داد.

[Esikhoob]

به عنوان نمونه کار :
http://www.universalthread.com/ViewPageNewDownload.aspx?ID=37479

[mostafa_zamani]

با سلام
نمونه کار بالا باز نشد!
من می خواهم یک چک چاپ درست کنم
از دوستان خواهش می کنم کمک کنید
با تشکر

[سعید20]

این فایلها را قبلا من درست کرده بودم و ظاهرا باید یه مقدار تغییر کنند ببین بدردتون میخورند

[mostafa_zamani]

با سلام و تشکر از شما
سایز کاغذ را آ4 و بصورت landsacape در نظر گرفته بودید ....
چک را داخل پرینت لیزری قرار دهیم روی ان چاپ می کند ؟ دقیق است ؟
لطفا توابع و فایل dbf را برایم بفرستید تا راحتتر بتونم تست کنم .
با تشکر و سپاس

[EBRAHIM_BANIHOSEINI]

اگه سوالت رو درست فهمیده باشم:
اگر فایل گزارش رو قبل از چاپ میخواهی دستکاری کنی باید موقع ایجاد Exe تو قسمت report روی گزارش فوق کلیک راست کنی و اون رو Exclude کنی.

[سعید20]

سورس توابع برای چاپ

[سعید20]

FUNCTION mablaghchek
PARAMETER fi_chek_x
fi_rial_x = fi_chek_x
fi_tooman_x = fi_chek_x/10
rial_x = ROUND((fi_tooman_x - INT(fi_tooman_x)) * 10,0)

DO case
CASE rial_x = 0
RETURN numtochr(fi_rial_x ) + ' ر يال معادل ' + numtochr(fi_tooman_x ) + ' تومان '
CASE rial_x > 0
RETURN numtochr(fi_rial_x ) + ' ر يال معادل ' + numtochr(fi_tooman_x )+ ' تومان و ' + numtochr(rial_x )+ ' ريال '
ENDCASE

FUNCTION NUMTOCHR
PARAMETER Num
***
PUBLIC ArrayDigit (36)
ArrayDigit (01) = " يك "
ArrayDigit (02) = " دو "
ArrayDigit (03) = " سه "
ArrayDigit (04) = " چهار "
ArrayDigit (05) = " پنج "
ArrayDigit (06) = " شش "
ArrayDigit (07) = " هفت "
ArrayDigit (08) = " هشت "
ArrayDigit (09) = " نه "
ArrayDigit (10) = " ده "
ArrayDigit (11) = " يازده "
ArrayDigit (12) = " دوازده "
ArrayDigit (13) = " سيزده "
ArrayDigit (14) = " چهارده "
ArrayDigit (15) = " پانزده "
ArrayDigit (16) = " شانزده "
ArrayDigit (17) = " هفده "
ArrayDigit (18) = " هيجده "
ArrayDigit (19) = " نوزده "
ArrayDigit (20) = " بيست "
ArrayDigit (21) = " سي "
ArrayDigit (22) = " چهل "
ArrayDigit (23) = " پنجاه "
ArrayDigit (24) = " شصت "
ArrayDigit (25) = " هفتاد "
ArrayDigit (26) = " هشتاد "
ArrayDigit (27) = " نود "
ArrayDigit (28) = " صد "
ArrayDigit (29) = " دويست "
ArrayDigit (30) = " سيصد "
ArrayDigit (31) = " چهارصد "
ArrayDigit (32) = " پانصد "
ArrayDigit (33) = " ششصد "
ArrayDigit (34) = " هفتصد "
ArrayDigit (35) = " هشتصد "
ArrayDigit (36) = " نهصد "
DO CASE
CASE Num >= 1000000000000000
RETURN NumToChr (Num / 1000000000000000) + "تريليارد " + IIF (Num % 1000000000000000 < 1, '', "و") + NumToChr (Num % 1000000000000000)
CASE Num >= 1000000000000
RETURN NumToChr (Num / 1000000000000) + "تريليون " + IIF (Num % 1000000000000 < 1, '', "و") + NumToChr (Num % 1000000000000)
CASE Num >= 1000000000
RETURN NumToChr (Num / 1000000000) + "ميليارد " + IIF (Num % 1000000000 < 1, '', "و") + NumToChr (Num % 1000000000)
CASE Num >= 1000000
RETURN NumToChr (Num / 1000000) + "ميليون " + IIF (Num % 1000000 < 1, '', "و") + NumToChr (Num % 1000000)
CASE Num >= 1000
RETURN NumToChr (Num / 1000) + "هزار " + IIF (Num % 1000 < 1, '', "و") + NumToChr (Num % 1000)
CASE Num >= 100
RETURN ArrayDigit (27 + Num / 100) + IIF(Num % 100 < 1, '', "و") + NumToChr (Num % 100)
CASE Num >= 20
RETURN ArrayDigit (18 + Num / 10) + IIF (Num % 10 < 1, '', "و") + NumToChr (Num % 10)
CASE Num >= 1
RETURN ArrayDigit (Num)
ENDCASE
RETURN ''