تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد يكون رقم الوارد او الصادر بناء على السنة
#1
عندي مثال اخذته من المنتدى وحولت اعدل عليه لبناء برنامج اتصالات ادارية بس وجهة مشكلة وهي الترقيم بحيث يبداء من الرقم واحد كل سنة هجرية جديدة


الملفات المرفقة
.rar   BroMy.rar (الحجم : 1.83 م ب / التحميلات : 33)
الرد
تم الشكر بواسطة:
#2
هل من مساعدة ياخوان
الرد
تم الشكر بواسطة:
#3
معليش بس عندي سؤال .
اذا كل سنة يبدا الترقيم كده حيتكرر الرقم 1 اكثر من مرة على حسب عدد السنوات التي مرت على البرنامج .
الرد
تم الشكر بواسطة:
#4
(22-12-19, 11:33 PM)asemshahen5 كتب : معليش بس عندي سؤال .
اذا كل سنة يبدا الترقيم كده حيتكرر الرقم 1 اكثر من مرة على حسب عدد السنوات التي مرت على البرنامج .

هي الفكرة ان كل سنه هجري يبداء الترقيم من الرقم 1
الرد
تم الشكر بواسطة:
#5
السلام عليكم ورحمه الله وبركاته 

استاذ على الكعبى

هشرح لحضرتك الفكرة بصورة مختصره 

لكى يكون الترقيم يبدا من مسلسل (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  سجل نوع الحركة بالجدول

حاولت التعديل على مثالك ولكن انا لا فاهم طبيعة الجداول لديك 
وادركت مثال صغير لتوصيل الفكرة لك 

تحياتى للجميع


.rar   WindowsApplication1.rar (الحجم : 75.18 ك ب / التحميلات : 21)

(22-12-19, 11:33 PM)asemshahen5 كتب : معليش بس عندي سؤال .
اذا كل سنة يبدا الترقيم كده حيتكرر الرقم 1 اكثر من مرة على حسب عدد السنوات التي مرت على البرنامج .

السلام عليكم 

فى شركات كتير بتفضل ابتداء كل سنة بمسلسل جديد لكل انوع المستندات 

وده بيساعد حفظ وارشفة المستندات Save documents - Filling

وكمان بيكون السنة جزء من مسلسل المستند مثل 2019-001

بحيث يعرف السنة ورقم المستند 

تحياتى لحضرتك
الرد
تم الشكر بواسطة: asemshahen5
#6
PHP كود :
       Dim StrSQL As String "Select IIF(Count(ID) Is NULL,1,Count(ID)+1)As ID From TableName"
 
       Dim cn As New SqlClient.SqlConnection("Server =(local);database=ALASEM0;integrated security=true")
 
       Dim da As New SqlClient.SqlDataAdapter(StrSQLcn)
 
       Dim dt As New DataTable
        da
.Fill(dt)
 
       Txt_ID.Text Today.Year "-" dt.Rows(0)("ID").ToString() 
الرد
تم الشكر بواسطة:
#7
"
(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
\r\n
(22-12-19, 11:33 PM)asemshahen5 كتب : \r\n\u0645\u0639\u0644\u064a\u0634 \u0628\u0633 \u0639\u0646\u062f\u064a \u0633\u0624\u0627\u0644 .\r\n\u0627\u0630\u0627 \u0643\u0644 \u0633\u0646\u0629 \u064a\u0628\u062f\u0627 \u0627\u0644\u062a\u0631\u0642\u064a\u0645 \u0643\u062f\u0647 \u062d\u064a\u062a\u0643\u0631\u0631 \u0627\u0644\u0631\u0642\u0645 1 \u0627\u0643\u062b\u0631 \u0645\u0646 \u0645\u0631\u0629 \u0639\u0644\u0649 \u062d\u0633\u0628 \u0639\u062f\u062f \u0627\u0644\u0633\u0646\u0648\u0627\u062a \u0627\u0644\u062a\u064a \u0645\u0631\u062a \u0639\u0644\u0649 \u0627\u0644\u0628\u0631\u0646\u0627\u0645\u062c .\r\n[\/quote]\r\n\r\n\u0627\u0644\u0633\u0644\u0627\u0645 \u0639\u0644\u064a\u0643\u0645\u00a0\r\n\r\n\u0641\u0649 \u0634\u0631\u0643\u0627\u062a \u0643\u062a\u064a\u0631 \u0628\u062a\u0641\u0636\u0644 \u0627\u0628\u062a\u062f\u0627\u0621 \u0643\u0644 \u0633\u0646\u0629 \u0628\u0645\u0633\u0644\u0633\u0644 \u062c\u062f\u064a\u062f \u0644\u0643\u0644 \u0627\u0646\u0648\u0639 \u0627\u0644\u0645\u0633\u062a\u0646\u062f\u0627\u062a\u00a0\r\n\r\n\u0648\u062f\u0647 \u0628\u064a\u0633\u0627\u0639\u062f \u062d\u0641\u0638 \u0648\u0627\u0631\u0634\u0641\u0629 \u0627\u0644\u0645\u0633\u062a\u0646\u062f\u0627\u062a\u00a0Save documents - Filling\r\n\r\n\u0648\u0643\u0645\u0627\u0646 \u0628\u064a\u0643\u0648\u0646 \u0627\u0644\u0633\u0646\u0629 \u062c\u0632\u0621 \u0645\u0646 \u0645\u0633\u0644\u0633\u0644 \u0627\u0644\u0645\u0633\u062a\u0646\u062f \u0645\u062b\u0644 2019-001\r\n\r\n\u0628\u062d\u064a\u062b \u064a\u0639\u0631\u0641 \u0627\u0644\u0633\u0646\u0629 \u0648\u0631\u0642\u0645 \u0627\u0644\u0645\u0633\u062a\u0646\u062f\u00a0\r\n\r\n\u062a\u062d\u064a\u0627\u062a\u0649 \u0644\u062d\u0636\u0631\u062a\u0643\r\n[\/quote]\r\n\u0627\u0633\u062a\u0627\u0630\u064a \u0647\u0644 \u064a\u0645\u0643\u0646 \u062a\u062d\u0648\u064a\u0644 \u0627\u0644\u0645\u062b\u0627\u0644 \u0644\u0644\u0639\u0645\u0644 \u0639\u0644\u0649 \u0641\u064a\u062c\u064a\u0648\u0627\u0644 \u0628\u064a\u0633\u0643 2010 \u0644\u0627\u0646\u0647 \u0647\u0648 \u0627\u0644\u0646\u0638\u0627\u0645 \u0627\u0644\u0645\u0648\u062c\u0648\u062f \u0644\u062f\u064a"
وليش مايكون عند الضغط على امر الحفظ يعطيني الرقم وليس عند الاختيار من الكمبوبوكس حتى يتسنى عند التراجع عدم الحفظ

[quote='mmali127' pid='153992' dateline='1577081910']
السلام عليكم ورحمه الله وبركاته 

استاذ على الكعبى

هشرح لحضرتك الفكرة بصورة مختصره 

لكى يكون الترقيم يبدا من مسلسل (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  سجل نوع الحركة بالجدول

حاولت التعديل على مثالك ولكن انا لا فاهم طبيعة الجداول لديك 
وادركت مثال صغير لتوصيل الفكرة لك 

تحياتى للجميع



[quote='asemshahen5' pid='153976' dateline='1577043205']
معليش بس عندي سؤال .
اذا كل سنة يبدا الترقيم كده حيتكرر الرقم 1 اكثر من مرة على حسب عدد السنوات التي مرت على البرنامج .

السلام عليكم 

فى شركات كتير بتفضل ابتداء كل سنة بمسلسل جديد لكل انوع المستندات 

وده بيساعد حفظ وارشفة المستندات Save documents - Filling

وكمان بيكون السنة جزء من مسلسل المستند مثل 2019-001

بحيث يعرف السنة ورقم المستند 

تحياتى لحضرتك

طيب ليش مايكون الكود في امر الحفظ وليس في كامبو بوكس لانه يمكن المستخدم يتراجع عن عملية التوريد
الرد
تم الشكر بواسطة:
#8
مافيه اجابة على سوالي
الرد
تم الشكر بواسطة:
#9
(24-12-19, 09:40 PM)علي كعبي كتب : مافيه اجابة على سوالي


انا جوبت على سؤال حضرتك
وقولت الطريقة 


لازم تعدل الجدول وتضيف حقل للسنة وتضيف حقل لنوع الواد

و بعدها تقدر تستعلم باخر سند حسب حقل السنة  ونوع الحقل
الرد
تم الشكر بواسطة:
#10
(25-12-19, 10:25 AM)mmali127 كتب :
(24-12-19, 09:40 PM)علي كعبي كتب : مافيه اجابة على سوالي


انا جوبت على سؤال حضرتك
وقولت الطريقة 


لازم تعدل الجدول وتضيف حقل للسنة وتضيف حقل لنوع الواد

و بعدها تقدر تستعلم باخر سند حسب حقل السنة  ونوع الحقل

طيب ياستاذي انت ماقصرت 
بس انا قصدي يكون الكود في مفتاح الحفظ بحيث اذ اعطيت امر حفظ يظهر لي الرقم حسب السنه سواء رقم الوارد او رقم الصادر لانه في احتمال المستخدم يتراجع عن توريد او تصدير المعاملة
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد كود لطباعة Report viewer تلقائيا مجرد م اقوم بفتح النافذه يتم وضع الكود بال Load mohamedgadain61 14 432 منذ 3 ساعة مضت
آخر رد: mohamedgadain61
  اريد كود فتح صندوق الكاشير المحاسبي تلقائيا مجرد الضغط على Button mohamedgadain61 13 381 26-03-20, 06:29 PM
آخر رد: mohamedgadain61
  [VB.NET] اريد كود لسحب رابط من موقع لكن السورس مشفر MoSami 0 56 20-03-20, 06:02 PM
آخر رد: MoSami
  تمييز السنة الكبيسة واضافة عدد الايام المناسبة للشهر Mohammed Nafa 1 83 04-03-20, 12:05 AM
آخر رد: Mohammed Nafa
Lightbulb [سؤال] اريد المساعدة فى عمل برنامج Mina Botros 0 76 22-02-20, 09:44 PM
آخر رد: Mina Botros
  اريد لعبة الأوراق أمجد وضاح 4 285 21-02-20, 08:32 PM
آخر رد: أمجد وضاح
Lightbulb [سؤال] اريد المساعدة فى عمل برنامج Mina Botros 0 89 21-02-20, 03:13 PM
آخر رد: Mina Botros
  كيف اعرف ان المؤشر في المكان المراد ان يكون من الداتاجريد فيو بسام محمدغانم 1 150 11-02-20, 05:19 AM
آخر رد: alsalamoni
  اريد امثلة على استخدام repeater control لو سمحتم nowiglah 2 178 08-02-20, 11:12 PM
آخر رد: alsalamoni
  شباب اريد طريقة عمل اداة لعمل اشارة فى الانساجرام Mina Botros 0 119 24-01-20, 03:59 PM
آخر رد: Mina Botros

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم