راهي بهتر براي گزارش سازي!!!!

[K.Mohammadreza]

با سلام
هدف از ايجاد اين تاپيک اين بود که يک ابزار بسيار کارآمد براي گزارش سازي را معرفي کنم اين ابزار بسيار راحت کم حجم و بسيار کاربردي مي باشد و قابليتي به برنامه شما مي دهد که باورتان نمي شود بدون نياز به تبحر و دانش در طراحي گزارش و بدون نياز به کد نويسي زياد و گيج کننده قادر خواهيد بود که گزارشات خود را بسازيد واز آنها استفاده کنيد. شيوه گزارش سازي اين ابزار به اين صورت است که گزارش خود را در برنامه Microsoft Office Word مي سازيد و سپس آن را با فرمت Rtf ذخيره مي کنيد و سپس ان را در برنامه استفاده مي کنيد. بعنوان نمونه من برنامه اي که با اين شيوه کاتر مي کند را گذاشته ام که مي توانيد ببينيد همچنين در مورد عملکرد اين برنامه بايد توضيح دهم که مربوط به مسئله زير مي شود از همهگان در خواست راهنمايي و کمک دارم . قبل از اجراي برنامه ضميمه از نصب بودن مايکروسافت ورد روي کامپيوتر خود مطمئن شويد.


بنام خدا
برنامه اي بنويسيد که وامي را به شخصي بدهد و کارهاي زير را نيز انجام دهد:
1- سررسيد قسط هاي آن را محاسبه کند 2- سود هر قسط را حساب کند 3- جمع سود وام را حساب کند 4- سود شش ماهه اول و دوم هر سال را حساب کند (مشکل اينجاست) 5-وام قابليت پرداخت اقساط با فاصله زماني چند ماه يکبار را داشته باشد (مشکل اينجاست اما خوشبختانه فاصله زماني طوري تعيين مي شود که حاصل تقسيم تعداد اقساط بر فاصله زماني بينن اقساط هميشه صفر مي شود. مثلا اگر تعدا اقساط 60 باشد فاصله زماني يکي از مقسوم عليه هاي 60 است مثلا 1و 2و 3و 4 و 5 و 6 و ... ولي 7و 9و 8 نمي تواند باشد).

فرمول محاسبه سود = مبلغ کل وام * نرخ * فاصله اقساط / 1200 براي هر قسط، که در محاسبه سود قسط بعدي بايد اصل قسط از مبلغ کل وام کسر گردد و به اين ترتيب سود قسط آخر کمترين سود و سود قسط اول بيشترين سود خواهد بود.

مسکل اينجاست بايد جمع سودهاي يک سال را بدست بياوريم به تفکيک شش ماه اول و دوم يعني تا تاريخ 31/6/xx و 30/12/xx سپس اختلاف روز را نيز بدست آوريم و اولين سود قسط در نيمسال بعد را نيز بدست آوريم و آن سود در اختلاف روز ضرب کنيم و بر تعداد روزهاي آخر هر نيمسال تقسيم کنيم. سپس عدد بدست آمده را به سود نيمسال قبلي اضافه کنيم. براي اينکه بيشتر متوجه شويد دو مثال ميزنم.

مبلغ وام 60.000.000 ريال
نرخ وام 13 درصد
سررسيد اولين قسط 12/3/88
تعداد اقساط 10 ماه
فاصله بين اقساط 1

نتيجه محاسبات به اين شرح مي شود
وام = 60,000,000
اصل قسط 1 = 6,000,000
سود قسط 1 = 650,000
تاريخ پرداخت قسط = 1388/3/12

وام = 54,000,000
اصل قسط 2 = 6,000,000
سود قسط 2 = 585,000
تاريخ پرداخت قسط = 1388/4/12

وام = 48,000,000
اصل قسط 3 = 6,000,000
سود قسط 3 = 520,000
تاريخ پرداخت قسط = 1388/5/12

وام = 42,000,000
اصل قسط 4 = 6,000,000
سود قسط 4 = 455,000
تاريخ پرداخت قسط = 1388/6/12

وام = 36,000,000
اصل قسط 5 = 6,000,000
سود قسط 5 = 390,000
تاريخ پرداخت قسط = 1388/7/12

وام = 30,000,000
اصل قسط 6 = 6,000,000
سود قسط 6 = 325,000
تاريخ پرداخت قسط = 1388/8/12

وام = 24,000,000
اصل قسط 7 = 6,000,000
سود قسط 7 = 260,000
تاريخ پرداخت قسط = 1388/9/12

وام = 18,000,000
اصل قسط 8 = 6,000,000
سود قسط 8 = 195,000
تاريخ پرداخت قسط = 1388/10/12

وام = 12,000,000
اصل قسط 9 = 6,000,000
سود قسط 9 = 130,000
تاريخ پرداخت قسط = 1388/11/12

وام = 6,000,000
اصل قسط 10 = 6,000,000
سود قسط 10 = 65,000
تاريخ پرداخت قسط = 1388/12/12

===============================
جمع کل سود خالص = 3,575,000
مبلغ وام با سود = 63,575,000

و سود شش ماهه وام به شرح زير مي شود
سود شش ماهه اول1388 = 2,210,000
سود شش ماهه دوم1388 = 1,365,000

جمع سود = 3,575,000

حالا مشکل اينجاست که سود شش ماهه اول بايد به اندازه 18 روز از سود 12/07/88 (قسط شماره 5) اضافه گردد و همچنين به اندازه 18 روز از سود قسط 12/07/88 (قسط شماره 5)کسر گردد. يعني


سود 18 روز= 390.000*18/31


سود 18 روز + سود شش ماهه اول = سود خالص شش ماهه اول سال 88


سود 18 روز – سود قسط 5 = سود قسط 5

در اين صورت بايد سود هاي شش ماهه اول و دوم سال 88 به شرح زير باشند
سود شش ماهه اول1388 = 2.436.451
سود شش ماهه دوم1388 = 1.138.549

جمع سود = 3,575,000

اين مشکل هم قابل حل است در صورتي که فاصله بين اقساط فقط يک باشد و در صورتي که بيشتر باشد ...... مثلا

مبلغ وام 60.000.000 ريال
نرخ وام 13 درصد
سررسيد اولين قسط 12/3/88
تعداد اقساط 60 ماه
فاصله بين اقساط 10

نتيجه محاسبات به شرح زير مي شود:
وام = 60,000,000
اصل قسط 1 = 10,000,000
سود قسط 1 = 6,500,000
تاريخ پرداخت قسط = 1388/12/12

وام = 50,000,000
اصل قسط 2 = 10,000,000
سود قسط 2 = 5,416,667
تاريخ پرداخت قسط = 1389/10/12

وام = 40,000,000
اصل قسط 3 = 10,000,000
سود قسط 3 = 4,333,333
تاريخ پرداخت قسط = 1390/8/12

وام = 30,000,000
اصل قسط 4 = 10,000,000
سود قسط 4 = 3,250,000
تاريخ پرداخت قسط = 1391/6/12

وام = 20,000,000
اصل قسط 5 = 10,000,000
سود قسط 5 = 2,166,667
تاريخ پرداخت قسط = 1392/4/12

وام = 10,000,000
اصل قسط 6 = 10,000,000
سود قسط 6 = 1,083,333
تاريخ پرداخت قسط = 1393/2/12

===============================
جمع کل سود خالص = 22,750,000
مبلغ وام با سود = 82,750,000


و سود شش ماهه وام به شرح زير مي شود
سود شش ماهه دوم1388 = 6,500,000
سود شش ماهه دوم1389 = 5,416,667
سود شش ماهه دوم1390 = 4,333,333
سود شش ماهه اول1391 = 3,250,000
سود شش ماهه اول1392 = 2,166,667
سود شش ماهه اول1393 = 1,083,333

جمع سود = 22,750,000

حالا چگونه سود شش ماهه اول سال 89 يا 90 و يا شش ماهه دوم سال 91 يا 91 و ... را دقيقا حساب کنم؟

قدرت برنامه نويسي و طراحي الگوريتم خود را بسنجيد و راه حلي ارائه کنيد چون واقعاً سردر گم شدم و تا همين جا هم که نوشتم بنظر خودم خيلي هم شده!!!!!!!

[K.Mohammadreza]

واقعا هيچ کس هيچ راهي به ذهنش نمي رسد که بتواند به من کمک کند.
اين بود سايت مرجع برنامه نويسان.
پس کجايند کاربراني که به به فکر بقيه هم باشند؟
پس کجايند برنامه نويسان که دست ضعيف ترها را بگيرند و به انها کمک کنند؟

اي کاش سايت گفتمان بسته نشده بود. لااقل يک آقا ماني بود و يا آقاي موسوي فر که جواب درست و حسابي بدهد.

واقعا براي خودم متاسفم. اميدوارم که چيزي ياد بگيرم و روزي آن را در اختيار شما قرار دهم و اينگونه نباشم. هر چند توقعي هم نيست شما که خدمتگذار من نيسنيد و اگر هم کمکي بکنيد لطف و کرم خودتان را مي رساند. بهرحال در اين مورد خيلي ......:ناراحت:

[Hsimple11]

پستهای بقیه رو ببینید. تمامی سوالها توی این سایت کوتاه و مختصرند. شاید علت اینکه کسی به سوال شما جواب نداده زیادی موضوع و مطلبه.

سوالتون رو خلاصه کنید و فقط همون جایی که واقعا مشکل دارید بفرمایید.

این سایت داره به افراد زیادی پاسخ میده. اینقدر کم لطف نباشید.

[Felony]

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

[khoshblagh]

با سلام خدمت دوستان
کسی متوجه شده از چه برنامه گزارش سازی استفاده شده است ؟

[Felony]

برنامه گزارش سازی استفاده نشده ، احتمالا طبق توضیحات یک جدول با Word کشیده شده و به صورت Resource داخل برنامه قرار گرفته و با زدن گزارش گیری اطلاعات درون جدول نوشته میشه و فایل کنار برنامه کپی میشه .

[K.Mohammadreza]

برنامه گزارش سازی استفاده نشده ، احتمالا طبق توضیحات یک جدول با Word کشیده شده و به صورت Resource داخل برنامه قرار گرفته و با زدن گزارش گیری اطلاعات درون جدول نوشته میشه و فایل کنار برنامه کپی میشه .

دوست عزير اتفاقا از برنامه گزارش سازي استفاده شده و و يک کامپوننت بسيار کم حجم هم هست که بسيار جالب و کاربرديه اگر مثالهاي خود کامپوننت را ببيند شايد باورتان نشود که چنين ابزاري بوده و شما تا کنون نمي دانستيد يا مي دانستيد و استفاده نمي کرديد!!!!!
اين ابزاز در تمامي نسخه هاي دلفي قايل نصب و کار کردن است و خود کامپوننت چيزي در حدود 400 کيلو بايت حجمش است و در مثالهاي آن از دلفي 4 تا 2009 هست که مي توانيد استفاده کنيد. با اين ابزار ديگر نيازي نه به کوئيک ريپورت، نه فست ريپورت، نه ريپورت منيجرو نه ... است. و در مورد اينکه گفته بوديد گزارش درون فايل اجرايي است. درست گفته ايد چون زماني که آن را طراحي و ذخيره کردم چيزي در حدود 20 کيلو بايت بيشتر نبود اما زمان گزارش گيري ممکن است که حجم آن به 10 مگابايت هم برسد اگر ميخواهيد فايل اصلي گزارش را ببينيد بعد از اجراي برنامه وارد پوشه temp بشويد و فايل Report.rtf را اجرا کنيد تا سورس گزارش را هم ببينيد
در ضمن من کم لطفي نکردم و فقط انتظار دارم به سوال من هم جواب دهيد و دليل اينکه اينقدر طولاني نوشتم اين است که در پست قبلي خيلي هاي نوشته بودن ما منظور شما را درک نميکنيم!!!!!!!!:اشتباه:

[Felony]

دوست عزير اتفاقا از برنامه گزارش سازي استفاده شده و و يک کامپوننت بسيار کم حجم هم هست که بسيار جالب و کاربرديه اگر مثالهاي خود کامپوننت را ببيند شايد باورتان نشود که چنين ابزاري بوده و شما تا کنون نمي دانستيد يا مي دانستيد و استفاده نمي کرديد!!!!!
اين ابزاز در تمامي نسخه هاي دلفي قايل نصب و کار کردن است و خود کامپوننت چيزي در حدود 400 کيلو بايت حجمش است و در مثالهاي آن از دلفي 4 تا 2009 هست که مي توانيد استفاده کنيد. با اين ابزار ديگر نيازي نه به کوئيک ريپورت، نه فست ريپورت، نه ريپورت منيجرو نه ... است. و در مورد اينکه گفته بوديد گزارش درون فايل اجرايي است. درست گفته ايد چون زماني که آن را طراحي و ذخيره کردم چيزي در حدود 20 کيلو بايت بيشتر نبود اما زمان گزارش گيري ممکن است که حجم آن به 10 مگابايت هم برسد اگر ميخواهيد فايل اصلي گزارش را ببينيد بعد از اجراي برنامه وارد پوشه temp بشويد و فايل Report.rtf را اجرا کنيد تا سورس گزارش را هم ببينيد
اسم کامپوننت چی هست ؟


در ضمن من کم لطفي نکردم و فقط انتظار دارم به سوال من هم جواب دهيد و دليل اينکه اينقدر طولاني نوشتم اين است که در پست قبلي خيلي هاي نوشته بودن ما منظور شما را درک نميکنيم!!!!!!!!
تا وقتی سورس برنامه رو نزارین کسی نمیتونه کمکتون کنه .

[K.Mohammadreza]

دوست گرامي سلام و خسته نباشيد. خدا را شکر که حداقل شما بخاطر دونستن اسم کامپوننت هم که شده پست مرا خوانديد. من يک پست ديگه نوشتم فکر کنم عنوانش " مشکل استفاده از تاريخ در دلفي!!!" يا همين چيزها بايد باشه البته در يکي دو صفحه قبل تر ميتونيد پيداش کنيد و در اون پست سورس برنامه را گذاشتم.

اگر کمکم کنيد هم کامپوننت و هم سورسش را ميدم و يا هر برنامه اي که خواستيد منظورم پروژه است در هر زمينه اي از حسابداري انبار داري تا مشاور املاک و سيستم هتل داري و ... با سورس مطمئن باشيد که مي صرفه. اگر هم مي بينيد در اين مورد دچار مشکل شدم بخاط اينه که نمي تونم فاصله بين اقساط را در برنامه درک کنم و برنامه را بنويسم البته برنامه جديدي که نوشتم تا فاصله اقساط شش ماه را به درستي حساب مي کنه و لي ميخوام هر تعداد که فاصله بين اقساط بود را حساب کنه. که باز هم موفق شدم تا فاصله 11 ماه را بنويسم و درست هم کار مي کنه. و فکر نکنيد که ميليونها خط کد نوشتم. تنها با 52 خط کد تونستم اينکار را انجام دهم.
حالا در صورتي که نياز به سورس برنامه داشتيد البته نسخه قديمي سورس، مي توانيد به پستي که گفتم نگاهي ببيندازيد. و در صورتي که کمک مناسبي کرديد نياز نيست که جواب را در سايت قرار دهيد کافي است که جواب را (فايل اجرايي بدون سورس) به همراه درخواست خود را برايم ايميل کنيد و در صورت که مورد قبول بود درخواست شما را در بررسي و بعد از انجام خواسته شما، سورس برنامه را برايم بفرستيد.
ايميل من هم : Mk.FriendMail@GMail.Com
با تشکر

[K.Mohammadreza]

هيچ کس نيست که بتونه کمک کنه!!!!!!!!!!!! تاسف برانگيزه:ناراحت::عصبانی::لب� �ندساده::افسرده::متعجب::متفک� �:

[tdkhakpur]

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

[mehdimdp]

خب شما هربار كه قسط وام رو دريافت مي كنيد . چك كنيد كه اين قسط در شش ماهه اوله يا دوم
بعد در يك(يا چند) متغير سراسري (كه مقدار قبليش ميتونه در يك فايل و يا يك ركورد در ديتابيس باشه) مقدار سود فعلي رو با مقدار قبلي متغير جمع بزنيد.

[mehdimdp]

البته يه سوال فني
اين روش شما براي محاسبه ي سود هر قسط اشتباه نيست ؟
شما هر بار كه قسط دريافت مي كنيد ، مبلغ كل وام رو كاهش ميديد كه فكر مي كنم اين روش اشتباه باشه
چون سود وام در تمام اقساط بايد يك جور باشه . (يعني مثلا سود وامي ميشه 1500 تومان و تعداد اقساط باشه 10تا ، بايد هرقسط 150 تومان سود داشته باشد.)
البته اين موضوع ربطي به سوالتون نداشت.
يه سوالي بود كه تو ذهنم پيش اومد.

[K.Mohammadreza]

دوستان عزيز با تشکر از جوابهايتان ولي
اولا من بايد با توجه به قسط بعدي بايد بررسي کنم. ثانيا اگر فاصله بين اقساط طوري باشه که هر چند قسط در يک نيمسال باشند چکار کنم.
مشکل اينجاست که اگر قسط اول در نيمسال اول سال 88 و قسط بعد در نيمسال اول سال 89 بود و يا قسط اگر قسط اول در نيمسال اول سال 88 بود و قسط بعد در نيمسال دوم سال 89 بود چکار بايد بکنم.
برنامه بايد سود شش ماهه اول سال 88 و سپس سود نيمسال دوم سال 88 و دوباره سود نيمسال اول سال 89 و در آخر سود نيمسال دوم سال 89 را حساب کند و جمع سود اين جهار نيمسال بايد با حاصل فرمول زير مساوي باشد:
فرمول محاسبه سود کل وام : مبلغ کل وام * نرخ * (تعدا اقساط + فاصله بين اقساط) / 2400
و در واقع مشکل همين جاست که حاصل جمع سود هاي شش ماهه برابر عدد فرمول بالا نمي شود و مبلغ قابل توجهي کم مي آيد که نمي دانم کجا مي رود و يا عدد قابل توجهي زياد مي آيد که باز نمي دانم از کجا آمده است.

خواهشا يک فکري بحال من بکنيد چون نياز بسيار مبرم به دانستن راه حل اين موضوع دارم
با تشکر فراوان از همه دوستان

[K.Mohammadreza]

اسم کامپوننت استفاده شده براي گزارش سازي ekrtf است که مي توانيد با يک جستجوي ساده در اينترنت آن را پيدا کنيد انهم هديه به همه دوستان که نگويند بي معرفته اما بعضي از دوستان فايل اجرايي را با برنامه ASpack Die دي پک کردند و فکر کردند شاخ غول شکستن!!!!!!!!!!!
آدرس اينترنتي جهت دريافت کامپوننت هم
http://ekrtf.code.net.ru/
اما براي اون دوستاني هم تا پيام ميديم شماره ميدن که پول بده تا کامپوننت بديم بايد عرض کنم که بيخيال همه چيز پول نيست اگر سورس کامپوننت را هم ميخواين پيام بدين. فقط تشکر يادتون نره:متفکر:

[Felony]

اسم کامپوننت استفاده شده براي گزارش سازي ekrtf است که مي توانيد با يک جستجوي ساده در اينترنت آن را پيدا کنيد انهم هديه به همه دوستان که نگويند بي معرفته اما بعضي از دوستان فايل اجرايي را با برنامه ASpack Die دي پک کردند و فکر کردند شاخ غول شکستن!!!!!!!!!!!
آدرس اينترنتي جهت دريافت کامپوننت هم
http://ekrtf.code.net.ru/
اما براي اون دوستاني هم تا پيام ميديم شماره ميدن که پول بده تا کامپوننت بديم بايد عرض کنم که بيخيال همه چيز پول نيست اگر سورس کامپوننت را هم ميخواين پيام بدين. فقط تشکر يادتون نره:متفکر:

روی دلفی 7 نصب میشه ولی برای دلفی 2009 نیاز به سورس هست .

[K.Mohammadreza]

ميدونم بخاطر همين سورسشه که ميخوام معامله کنم حالا که کسي نميتونه جواب سوال منو بده طوري نيست من سورسشو ميذارم ولي تشکر يادتون نره

[koruir]

اما بعضي از دوستان فايل اجرايي را با برنامه ASpack Die دي پک کردند و فکر کردند شاخ غول شکستن!!!!!!!!!!!

جناب خواستم بدونین محض اطلاع.
من از ASPack Die استفاده نکردم. حتی Unpack دستی هم نکردم.
شما توی فایل ریپورت که بهت میده؛ به مسیر زیر برو:

ّFile|Propeties|Summary

[khoshblagh]

روی دلفی 7 نصب میشه .
میشه روش نصب اونو توضیح بدید. متشکرم.

[Felony]

میشه روش نصب اونو توضیح بدید. متشکرم.

از منوی Componenet گزینه ی Install Pakages رو انتخاب کنید و سپس دکمه ی Add رو بزنید و فایل های ecomp.bpl و edsn.bpl رو باز کنید .