رقم فاتورة تلقائي ( رقم + السنة )

[مبرمج مبتدأ]

السلام عليكم و رحمة الله و بركاته
ما هي الطريقة الصحيحة لعمل رقم فاتورة تلقائي يكون كالتالي
n° f 0001/2014
حيث 2014 تمثل السنة و كلما تغيرت السنة يتغير ترقيم الفاتورة و السنة.
مثال: في سنة 2013 كانت آخر فاتورة هي : N° f 0951/2013
ففي بداية 2014 من المفروض يكون : n° f 0001/2014
و جزاكم الله خيرا ...
[color=red]

[مبرمج مبتدأ]

للحصول على هذه الصيغة n° f 0001/2014

كود :

procedure TForm3.Timer2Timer(Sender: TObject); var Year : String ; begin Year := FormatDateTime ('yyyy',now) ; edit5.Text := 'N° F '+ Format ('%0.6d/',[Adotable1.RecordCount+1])+ year ; end;

بقيت طريقة إرجاع رقم الفاتورة للـ 1 في السنة الجديدة

[مبرمج مبتدأ]

مع الانتباه أنه يجب وضع Timer و كتابة الكود فيه

[makhlouf]

مع الانتباه أنه يجب وضع timer و كتابة الكود فيه

السلام عليكم و رحمة الله تعالى و بركاته
أخي لماذا التايمر؟
ما هي و ظيفة التايمر هنا؟

بالتوفيق

[S.FATEH]

timer مهلك للنظام يجب تفادي استعماله الى في الحالات المخصصة له

[h-farid]

و عليكم السلام و رحمة الله و بركاته
لماذا لا تستعمل استعلام sql للسنة الحالية و يكون عدد السجلات الحاصل هو رقم الفاتورة للسنة الحالية و ذلك لتفادي أن تعيد الترقيم إلى الصفر كل سنة ؟
هذا بخصوص الرقم, و أما السنة فقد أشار الأخ المبتدأ إلى قطعة كود تفي بالغرض.
و الله أعلم.

[makhlouf]

رقم الفاتورة يجب أن يعود إلى الواحد في بداية كل سنة
بالتوفيق

[مبرمج مبتدأ]

جزاكم الله خيرا إخواني، بخصوص التايمر فأنا أراه سهل علي و ان كان احد الاخوة لديه طريقة أخرى فهذا أفضل.
أما بخصوص الـSql فأنا لا احسن استخدامها

[Anter2010]

السلام عليكم و رحمة الله تعالى و بركاته
اخي ارجاع رقم الفاتورة الى رقم واحد يستحسن في نهاية السنة و ذالك بعد غلق النشاط

[Bachirsoft]

طرح رائع
ولاكن الاجابات والردود لم تكن في مستوى السؤال