الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج مبيعات يشمل فواتير البيع والشراء والموردين والعملاء

رائج
بدأه njd في 6 أغسطس 2007 · 92 رد · 69,941 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#26
الطاهر يوسف ابراهيم كتب:
مشكور الاخ على هذا البرنامج الرائع ... و على شرح طريقة الربط باستخدام ال config ... اتمنى لو كان عندك كتاب و او مقال جيد عن المزيد من المعلومات بشأن ملفات الxml .... مشكور اخي على هذا الجهد

الاخ الطاهر يوسف اولاً اشكرك على التعقيب وثانياً وللأسف لا أملك آى مقالات او كتب عن XML مع اسفى الشديد

كل من فى الوجود يطلب صيداً :::: غير ان الشباك مختلفات

#27

هذا الملف يعطي خطا عند فك ضغطه , هل من الممكن وضعه بدون ظهور راسلة خطا عند فك ضغطه

ووممكن نشوف قاعدة البيانات لاظار الجداول وكيف الطريقة لو سمحت او قم باظهارها ووضعها لنا

ولك جزيل الشكر

نسيت ان اضع الملف وهو Stock_Log.rar ( 575.35k )

وشكرا جزيلا

#28

الى الاخوة الكرام

1- هل من الممكن وضع قاعدة البيانات مرة اخرى لان الجزء الخاص ب Stock_Log.rar لا يعمل عند فك ضغطه

2- هل من الممكن رؤيتة قاعدة البيانات وما تحتويه من جداول وعلاقات او شرح الطريقة لرؤيتها.

ارجو منكم الرد باسرع رد ممكن

ولكم جزيل الشكر

#29

الأخ العنكبوت لك وللأخوة اللى معرفوش يعملوا Attach للداتابيز

هذا البرنامج كامل بالداتابيز

ما عليك الا فك الضغط والتشغيل

دعواتى بالتوفيق

TyrCompany.rar

كل من فى الوجود يطلب صيداً :::: غير ان الشباك مختلفات

#30

بارك الله فيك

برنامج فعلا مفيد جدا

بس مفتاح الحفظ فى الداتا جريد يتم تفعيلة بالضغط على مفتاح Enter وليس ESC

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

#31

شكرا جزيلا لك على هذا المجهود الرائع ولكن انا حاب افهم المشروع وحاولت اظهار الجداول مع العلاقات وعجزت

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

ولك مني الشكر والتقدير

#32

شكرا على البرنامج وجزاك الله كل خير

#33

أريد معرفة العلاقات بين الجداول لفهم المشروع

أرجو من اصحاب الخبرة الرد

سلام

#34
العنكبوتj كتب:
شكرا جزيلا لك على هذا المجهود الرائع ولكن انا حاب افهم المشروع وحاولت اظهار الجداول مع العلاقات وعجزت

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

ولك مني الشكر والتقدير

طالما ان البرنامج اشتغل عندك هتلاقى قاعدة البيانات موجودة فى ال Server Explorer واسمها Stock

وتقدر تشوف الجداول زى ما انت عاوز و أيضاً ال Stored Procedures

كل من فى الوجود يطلب صيداً :::: غير ان الشباك مختلفات

#35

بارك الله فيكم على هذا المجهود الرائع , قمت بالاطلاع على قاعدة البيانات ولم تظهر العلاقات معي , فلو سمحتوا سوف اقوم بارفاق قاعدة البيانات والمطلوب منكم عمل العلاقة مع الجداول وشرح موجز عن كيفية عمل العلاقات مع الجداول اذا امكن

والله انا حاب اتعلم برمجة بس المشكلة انا ضعيف في التحليل وعجني كثير البرنامج وحاب اتعلم منوا كثير

معلش انا تعبتكم معاي بس شو بدنا نعمل يا اعضاء هذا المنتدى الرائع انتم لنا في حل المشاكل

وشكرا جزيلا لكم

kkk.rar

#36

في جدول الاصناف ؟؟؟

ما المقصود بحد الطلب والسعر الافتتاحي والرصيد الحالي!!!!!!!!!!!!!!!

وفي جدول العملاء ما المقصود ب السقف المحدد ؟؟؟؟؟؟؟؟؟؟

وبالنسبة لاضافة كميات الاصناف اين تتم اضافتها...

شكرا

#37
العنكبوتj كتب:
في جدول الاصناف ؟؟؟

ما المقصود بحد الطلب والسعر الافتتاحي والرصيد الحالي!!!!!!!!!!!!!!!

وفي جدول العملاء ما المقصود ب السقف المحدد ؟؟؟؟؟؟؟؟؟؟

وبالنسبة لاضافة كميات الاصناف اين تتم اضافتها...

شكرا

المقصود بحد الطلب

هى الكمية من صنف معين يجب الا يقل رصيده فى المخزن عنها يعنى اذا كان حد الطلب من الصنف (س) 20 وحده وانخفض الرصيد من هذا الصنف عن 20 وحده نتيجة البيع لبد من زيادة هذا الصنف بالشراء او آى وسيله حتى لا يكون رصيد المخزن من هذا الصنف يقل عن 20 وحده

الرصيد الأفتتاحى هو رصيد الصنف الناتج من الجرد عند نهاية فترة

الرصيد الحالى معروف من اسمه هو الكمية الحالية المتواجده فى المخزن من الصنف نتيجة عملية البيع والشراء

والمعادلة

الرصيد الحالى = رصيد الصنف الأفتتاحى + المشتريات من الصنف - المبيعات من الصنف

بفرض عدم وجود توالف أو هالك

السقف المحدد للعملاء هى القيمة التى يجب ان تكون حد أقصى لمسحوبات العميل الأجله

فرضاً السقف المحدد للعميل (زيد) هو 2000 ريال فلا يمكن ان يسحب العميل يضاعه على الحساب تتعدى هذه القيمة

الأصناف تتم أضافتها فى جدول الأصناف !!!!!!!!

كل من فى الوجود يطلب صيداً :::: غير ان الشباك مختلفات

#38

شكرا لك اخي الكريم وبارك الله فيك وتعبان معنا

أنا الان ادرس المشروع خطوة خطوة واذا في اي شيء مو واضح

نسئلك وانت ان شاء الله ما بتقصر

ابغى استفيد بس ما ابغى ازعجك

شكرا

#39

اخي الكريم صاحب المشروع الرائع

أولا : أود ان أشكرك عل هذا المجهود الرائع ,بالفل انا استفدت منه أشياء كثيرة كانت ليست واضحة بالنسبة لي

ثانيا : قمت بدراسة المشروع وأود طرح بعض الاسئلة في فواتير البيع والشراء

بالنسبة لفاتورة الشراء : انت قمت بتعريف متغير اسمه Cash في الموديل الخاص بالفواتير , السؤال على اي اساس يتم تحديدل الفاتورة آجلة او الفاتورة نقدي ...وعندما تكون الفاتورة نقدي لماذا اظهار اسم المورد فقط وعندما تكون آجل يظهر رقم المورد واسمه....

...عند تنفيذ نموذج فاتورة الشراء يعتبر الفاتورة آجلة على اساس ان قيمة المتغير cash=false

وكذلك بالنسبة لحقل Deleted في جدول الفاتورة انت معرفوا رقم وفي الكود بتتعامل معه على اساس نص

مثال:

Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
		Dgrd.Rows.Clear()
		Dim T As Boolean = True, WWTOTAL, WWQ, WWP As Double
		Dim InvoiceNo As Integer
		Dgrd.Enabled = True

		InvDataset.Clear()
		If Cash = True Then
			Flt = "select* from INVHEADIN  where inv_no = " & Val(ListBox1.SelectedItem) & "and TYPE_CASH ='" & T & "'"
		Else
			Flt = "select* from INVHEADIN  where inv_no = " & Val(ListBox1.SelectedItem) & "and TYPE_Crdt ='" & T & "'"
		End If
		InvDataset = GeneralDataManager.InquireData(InvDataset, Flt, "INVHEADIN")
		If Me.BindingContext(InvDataset, "INVHEADIN").Count = 0 Then Exit Sub

		TextBox1.Text = InvDataset.Tables("INVHEADIN").Rows(0).Item("INV_NO")
		Mtextbox1.Text = InvDataset.Tables("INVHEADIN").Rows(0).Item("INV_DATE")
		TextBox2.Text = InvDataset.Tables("INVHEADIN").Rows(0).Item("value_txt")
		TextBox3.Text = InvDataset.Tables("INVHEADIN").Rows(0).Item("cust_name")
		InvoiceNo = InvDataset.Tables("INVHEADIN").Rows(0).Item("INV_NO")
		If Cash = False Then
			TextBox10.Text = InvDataset.Tables("INVHEADIN").Rows(0).Item("cust_no")
		Else
			TextBox10.Text = ""
		End If
		If InvDataset.Tables("INVHEADIN").Rows(0).Item("deleted") = T Then
			TextBox9.Text = "ملغاه"
		Else
			TextBox9.Text = "مسجلة"
		End If
		TextBox7.Text = InvDataset.Tables("INVHEADIN").Rows(0).Item("inv_total")

		' display body
		BinvDataset.Clear()
		Flt = "select* from BINVOICE  where inv_no like " & InvoiceNo & " "
		BinvDataset = GeneralDataManager.InquireData(BinvDataset, Flt, "BINVOICE")
		For I As Integer = 0 To BinvDataset.Tables("BINVOICE").Rows.Count - 1
			WWQ = BinvDataset.Tables("BINVOICE").Rows(I).Item("IT_QU")
			WWP = BinvDataset.Tables("BINVOICE").Rows(I).Item("IT_PRICE_IN")
			WWTOTAL = WWQ * WWP
			Dim ROW As String() = {BinvDataset.Tables("BINVOICE").Rows(I).Item("IT_COD"), _
					  BinvDataset.Tables("BINVOICE").Rows(I).Item("IT_NAME"), _
					  BinvDataset.Tables("BINVOICE").Rows(I).Item("IT_UNIT"), _
					  BinvDataset.Tables("BINVOICE").Rows(I).Item("IT_PRICE_IN"), _
					  BinvDataset.Tables("BINVOICE").Rows(I).Item("IT_QU"), WWTOTAL, _
					  BinvDataset.Tables("BINVOICE").Rows(I).Item("part_no")}
			Dgrd.Rows.Add(ROW)
		Next
		TextBox1.Text = BinvDataset.Tables("BINVOICE").Rows(0).Item("INV_NO")

	End Sub

وقمت بتخزين قيمة النتغير t وهو boolean في حقل رقمي

باختصار اود معرفة ما يلي:

1-كيفية تحديد طبيعة الفاتورة هل هي آجلة او نقدي(وانت واضعها تلقائيا آجلة)

2- لما تكون نقدي بظهر اسم المورد ويكون زر الموردين منشط ما الهدف من هذه العملية ومن اين اجيب اسم المورد ولما تكون آجل بظهر رقم واسم المورد ...... ايش الفرق

3- بالنسبو للمتغير Deleted بعطي عليه خطا اعجزت معاه.

وشكرا لك على سعة صدرك يا اخي الكريم

#40

وبالنسبة لجدول الاصناف المقصود بالحقول التالية هي:

حد الطلب IT_REORD

INITIAL_BALANCEالرصيد الافتتاحي

IT_BALANCEالرصيد الحالي

ما المقصود بالحقول التالية:

IT_IN

IT_OUT

BALANCE_IN

BALANCE_OUT

وبالنسبة لجدول الزبائن ما المقصود بالحقول التالية :

CUST_STAT

CUST_WITHDROW

#41

بسم الله الرحمن الرحيم

الاخ الكريم njd السلام عليكم ورحمه الله وبركاته 0

اود من سيادتكم ان تقوم بعمل دوره تدريبيه على هذا المشروع حتى يستطيع المبتدئين مثلى من الاستفاده من تلك الدوره

بارك الله فيك ونفعنا بك وجعله فى ميزان حسناتك

الخير هنا ربى اغفر لى ولوالدى وللمؤمنين يوم يقوم الحساب000 امين

#42

شكراً

#43

جزاك الله كل خير ومشكور

لا اله الا الله وحده لا شريك له

#44

برنامج فوق الممتاز

وانا استفد منه كثيراً

مشكوووووووووووووووووووووووووووور يا اخي على المجهود الرائع

بس ممكن أطلب منك طلب كبير جدا ( شرح هذا البرنامج علشان فيه حاجات كتير انا منش فاهمها)

تم تعديل هذه المشاركة بواسطة البحر77 في 10 يوليو 2008 في 06:58

#45

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

#46

مشكور على المشروع...

بارك الله فيك...

#47

شكرا لك برنامج فعلا جميل ومفيد جدا بارك الله فيك

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

#48

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــه

أشكر كل الأخوة لأهتمامهم بالبرنامج

بالنسبة لطلب الأخ Abo_shroook والأخ البحر 77 أنا أسف لتأخرى على الرد ولكنى بعيد عن الأنترنت لظروف خاصة وعن قريب ان شاء الله سوف أقوم بشرح البرنامج أو أجزائه المهمه .

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

كل من فى الوجود يطلب صيداً :::: غير ان الشباك مختلفات

#49

كثر الله من امثالك..

ولك الاجر فى الاستفاده من هذا المثال....

وشكراً...

#50

الأخ الكريم njd ياليت لو تشرح لنا مثال مبسط لكيفية عمل الفواتير غير هذا البرنامج

ليكون مثالا مبسطا يستفيد منه الجميع

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…