21-12-19, 11:34 PM
عندي مثال اخذته من المنتدى وحولت اعدل عليه لبناء برنامج اتصالات ادارية بس وجهة مشكلة وهي الترقيم بحيث يبداء من الرقم واحد كل سنة هجرية جديدة
اريد يكون رقم الوارد او الصادر بناء على السنة
|
21-12-19, 11:34 PM
عندي مثال اخذته من المنتدى وحولت اعدل عليه لبناء برنامج اتصالات ادارية بس وجهة مشكلة وهي الترقيم بحيث يبداء من الرقم واحد كل سنة هجرية جديدة
22-12-19, 07:15 PM
هل من مساعدة ياخوان
22-12-19, 11:33 PM
(آخر تعديل لهذه المشاركة : 22-12-19, 11:48 PM {2} بواسطة asemshahen5.)
معليش بس عندي سؤال .
اذا كل سنة يبدا الترقيم كده حيتكرر الرقم 1 اكثر من مرة على حسب عدد السنوات التي مرت على البرنامج . سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
23-12-19, 12:08 AM
السلام عليكم ورحمه الله وبركاته
استاذ على الكعبى هشرح لحضرتك الفكرة بصورة مختصره لكى يكون الترقيم يبدا من مسلسل (1) لكل سنة يجب اتباع التالى 1 - انشاء كود لتحويل التاريخ المدخل الى سنة وتسجيل الناتج (السنة ) فى تكست اخر وده الكود المخصص لذلك ("txtmy_year.Text = Format(CDate(aa3.Text), "yyyy 2- استدعاء نوع الوارد (كما هو فى مثالك) فى تكست اخر (وانا ارى انه كان افضل ان يكون جدول منفصل يتم ملىء الكومبو بكس منه ) وده الكود If aa4.SelectedIndex = 0 Then txtaa4.Text = 0 ElseIf aa4.SelectedIndex = 1 Then txtaa4.Text = 1 End If ------------------- هنا لدينا ناتج السنة الظاهر من ادخال التاريخ txtmy_year ولدينا كود نوع الحركة txtaa4 وعن طريق عمل استعلام لاستدعاء اخر رقم مسجل بقاعدة البيانات للسنة txtmy_year و نوع الحركة txtaa4 يكون الناتج التى تريده "select top 1 (NoteID) from tblname where MyYear= " & txtmy_year .Text & " and NoteType = " & txtaa4 .Text حيث ان NoteID سجل رقم الوارد بالجدول MyYear سجل السنة بالجدول NoteType سجل نوع الحركة بالجدول حاولت التعديل على مثالك ولكن انا لا فاهم طبيعة الجداول لديك وادركت مثال صغير لتوصيل الفكرة لك تحياتى للجميع [attachment=23743] (22-12-19, 11:33 PM)asemshahen5 كتب : معليش بس عندي سؤال . السلام عليكم فى شركات كتير بتفضل ابتداء كل سنة بمسلسل جديد لكل انوع المستندات وده بيساعد حفظ وارشفة المستندات Save documents - Filling وكمان بيكون السنة جزء من مسلسل المستند مثل 2019-001 بحيث يعرف السنة ورقم المستند تحياتى لحضرتك تم الشكر بواسطة: asemshahen5
23-12-19, 11:34 AM
PHP كود : Dim StrSQL As String = "Select IIF(Count(ID) Is NULL,1,Count(ID)+1)As ID From TableName" سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
"
(23-12-19, 10:18 AM)mmali127 كتب : \r\n\u0627\u0644\u0633\u0644\u0627\u0645 \u0639\u0644\u064a\u0643\u0645 \u0648\u0631\u062d\u0645\u0647 \u0627\u0644\u0644\u0647 \u0648\u0628\u0631\u0643\u0627\u062a\u0647\u00a0\r\n\r\n\u0627\u0633\u062a\u0627\u0630 \u0639\u0644\u0649 \u0627\u0644\u0643\u0639\u0628\u0649\r\n\r\n\u0647\u0634\u0631\u062d \u0644\u062d\u0636\u0631\u062a\u0643 \u0627\u0644\u0641\u0643\u0631\u0629 \u0628\u0635\u0648\u0631\u0629 \u0645\u062e\u062a\u0635\u0631\u0647\u00a0\r\n\r\n\u0644\u0643\u0649 \u064a\u0643\u0648\u0646 \u0627\u0644\u062a\u0631\u0642\u064a\u0645 \u064a\u0628\u062f\u0627 \u0645\u0646 \u0645\u0633\u0644\u0633\u0644 (1) \u0644\u0643\u0644 \u0633\u0646\u0629 \u064a\u062c\u0628 \u0627\u062a\u0628\u0627\u0639 \u0627\u0644\u062a\u0627\u0644\u0649\u00a0\r\n\r\n1 - \u0627\u0646\u0634\u0627\u0621 \u0643\u0648\u062f \u0644\u062a\u062d\u0648\u064a\u0644 \u0627\u0644\u062a\u0627\u0631\u064a\u062e \u0627\u0644\u0645\u062f\u062e\u0644 \u0627\u0644\u0649 \u0633\u0646\u0629 \u0648\u062a\u0633\u062c\u064a\u0644 \u0627\u0644\u0646\u0627\u062a\u062c (\u0627\u0644\u0633\u0646\u0629 ) \u0641\u0649 \u062a\u0643\u0633\u062a \u0627\u062e\u0631\r\n\u0648\u062f\u0647 \u0627\u0644\u0643\u0648\u062f \u0627\u0644\u0645\u062e\u0635\u0635 \u0644\u0630\u0644\u0643\u00a0\r\n\u00a0(\"txtmy_year.Text = Format(CDate(aa3.Text), \"yyyy\r\n\r\n2-\u00a0 \u0627\u0633\u062a\u062f\u0639\u0627\u0621 \u0646\u0648\u0639 \u0627\u0644\u0648\u0627\u0631\u062f (\u0643\u0645\u0627 \u0647\u0648 \u0641\u0649 \u0645\u062b\u0627\u0644\u0643) \u0641\u0649 \u062a\u0643\u0633\u062a \u0627\u062e\u0631 (\u0648\u0627\u0646\u0627 \u0627\u0631\u0649 \u0627\u0646\u0647 \u0643\u0627\u0646 \u0627\u0641\u0636\u0644 \u0627\u0646 \u064a\u0643\u0648\u0646 \u062c\u062f\u0648\u0644 \u0645\u0646\u0641\u0635\u0644 \u064a\u062a\u0645 \u0645\u0644\u0649\u0621 \u0627\u0644\u0643\u0648\u0645\u0628\u0648 \u0628\u0643\u0633 \u0645\u0646\u0647\u00a0 )\r\n\u0648\u062f\u0647 \u0627\u0644\u0643\u0648\u062f\u00a0\r\n\u00a0If aa4.SelectedIndex = 0 Then\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 txtaa4.Text = 0\r\n\u00a0 \u00a0 \u00a0 \u00a0 ElseIf aa4.SelectedIndex = 1 Then\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 txtaa4.Text = 1\r\n\u00a0 \u00a0 \u00a0 \u00a0 End If\r\n\r\n-------------------\r\n\u0647\u0646\u0627 \u0644\u062f\u064a\u0646\u0627 \u0646\u0627\u062a\u062c \u0627\u0644\u0633\u0646\u0629 \u0627\u0644\u0638\u0627\u0647\u0631 \u0645\u0646 \u0627\u062f\u062e\u0627\u0644 \u0627\u0644\u062a\u0627\u0631\u064a\u062e txtmy_year\u00a0\r\n\u0648\u0644\u062f\u064a\u0646\u0627 \u0643\u0648\u062f \u0646\u0648\u0639 \u0627\u0644\u062d\u0631\u0643\u0629\u00a0 txtaa4\r\n\r\n\u0648\u0639\u0646 \u0637\u0631\u064a\u0642 \u0639\u0645\u0644 \u0627\u0633\u062a\u0639\u0644\u0627\u0645 \u0644\u0627\u0633\u062a\u062f\u0639\u0627\u0621 \u0627\u062e\u0631 \u0631\u0642\u0645 \u0645\u0633\u062c\u0644 \u0628\u0642\u0627\u0639\u062f\u0629 \u0627\u0644\u0628\u064a\u0627\u0646\u0627\u062a \u0644\u0644\u0633\u0646\u0629 txtmy_year\u00a0 \u0648 \u0646\u0648\u0639 \u0627\u0644\u062d\u0631\u0643\u0629 txtaa4\u00a0 \u00a0\r\n\u064a\u0643\u0648\u0646 \u0627\u0644\u0646\u0627\u062a\u062c \u0627\u0644\u062a\u0649 \u062a\u0631\u064a\u062f\u0647\u00a0\r\n\r\n\"select top 1 (NoteID) from tblname where MyYear= \" & txtmy_year .Text & \"\u00a0 and NoteType = \" & txtaa4 .Text\r\n\r\n\u062d\u064a\u062b \u0627\u0646 NoteID \u0633\u062c\u0644 \u0631\u0642\u0645 \u0627\u0644\u0648\u0627\u0631\u062f \u0628\u0627\u0644\u062c\u062f\u0648\u0644\r\n\r\nMyYear \u0633\u062c\u0644 \u0627\u0644\u0633\u0646\u0629 \u0628\u0627\u0644\u062c\u062f\u0648\u0644\r\nNoteType\u00a0 \u0633\u062c\u0644 \u0646\u0648\u0639 \u0627\u0644\u062d\u0631\u0643\u0629 \u0628\u0627\u0644\u062c\u062f\u0648\u0644\r\n\r\n\u062d\u0627\u0648\u0644\u062a \u0627\u0644\u062a\u0639\u062f\u064a\u0644 \u0639\u0644\u0649 \u0645\u062b\u0627\u0644\u0643 \u0648\u0644\u0643\u0646 \u0627\u0646\u0627 \u0644\u0627 \u0641\u0627\u0647\u0645 \u0637\u0628\u064a\u0639\u0629 \u0627\u0644\u062c\u062f\u0627\u0648\u0644 \u0644\u062f\u064a\u0643\u00a0\r\n\u0648\u0627\u062f\u0631\u0643\u062a \u0645\u062b\u0627\u0644 \u0635\u063a\u064a\u0631 \u0644\u062a\u0648\u0635\u064a\u0644 \u0627\u0644\u0641\u0643\u0631\u0629 \u0644\u0643\u00a0\r\n\r\n\u062a\u062d\u064a\u0627\u062a\u0649 \u0644\u0644\u062c\u0645\u064a\u0639\r\n\r\n\r\n طيب ليش مايكون الكود في امر الحفظ وليس في كامبو بوكس لانه يمكن المستخدم يتراجع عن عملية التوريد
24-12-19, 09:40 PM
مافيه اجابة على سوالي
25-12-19, 10:25 AM
25-12-19, 06:50 PM
(25-12-19, 10:25 AM)mmali127 كتب :(24-12-19, 09:40 PM)علي كعبي كتب : مافيه اجابة على سوالي طيب ياستاذي انت ماقصرت بس انا قصدي يكون الكود في مفتاح الحفظ بحيث اذ اعطيت امر حفظ يظهر لي الرقم حسب السنه سواء رقم الوارد او رقم الصادر لانه في احتمال المستخدم يتراجع عن توريد او تصدير المعاملة |
|