14-01-19, 10:07 AM
اليك الخطوات قبل ان يتم ادراج السجل الى جدول فاتورة المبيعات
عند الضغط على الايتم من من خلال المنيو فسيكون هناك جملة استعلام تقوم بما يلي :
هل الصنف الذي تم اختياره له حد ادنى من السعر ؟
له كميات ؟
هل هو بالوزن ام بالكمية ؟
يخضع للضريبة ام لا و ما نسبة القيمة المضافة ؟
ما رصيده الحالي ؟
كان رصيده قد وصل الى حد الطلب بالفعل ام لا ؟
و و و ...
هذه امور و غيرها يجب ان تأخذها بعين الاعتبار قبل ان يتم ادراج الصنف الى الفاتورة
السلام عليكم ورحمة الله وبركاته ,,,
استاذا عامر لابأس كان مثال جميل جدا ً جداً وارجوا ن يستفيد جميع الاخوة منه لانه مهم
انا بالحقيقة اعمل على برنامج وقمت باضافة المنتج عن طريق البحث بادخال الباركود ثم يظره لي معلومات المنتج مع السعر والكمية
هل استطيع ادخال كود اضافة المنتج الى قائمة listview بنفس الكود التالي
وانشالله سوف اقوم بارسال نسخة لك عندما انتهي منه قريبا انشالله
وبالنسبة لموضوع اخفاء الازرار التي ليس لها قيمة فهذه كانت رائعة وهذا كان ماريده بالضبط
بارك الله بك.... وجعلها في ميزان حسناتك
عند الضغط على الايتم من من خلال المنيو فسيكون هناك جملة استعلام تقوم بما يلي :
هل الصنف الذي تم اختياره له حد ادنى من السعر ؟
له كميات ؟
هل هو بالوزن ام بالكمية ؟
يخضع للضريبة ام لا و ما نسبة القيمة المضافة ؟
ما رصيده الحالي ؟
كان رصيده قد وصل الى حد الطلب بالفعل ام لا ؟
و و و ...
هذه امور و غيرها يجب ان تأخذها بعين الاعتبار قبل ان يتم ادراج الصنف الى الفاتورة
السلام عليكم ورحمة الله وبركاته ,,,
استاذا عامر لابأس كان مثال جميل جدا ً جداً وارجوا ن يستفيد جميع الاخوة منه لانه مهم
انا بالحقيقة اعمل على برنامج وقمت باضافة المنتج عن طريق البحث بادخال الباركود ثم يظره لي معلومات المنتج مع السعر والكمية
هل استطيع ادخال كود اضافة المنتج الى قائمة listview بنفس الكود التالي
كود :
ListView2.ListItems.Add , , Text5.Text
ListView2.ListItems(ListView2.ListItems.Count).SubItems(1) = Text1.Text
ListView2.ListItems(ListView2.ListItems.Count).SubItems(2) = Text2.Text
ListView2.ListItems(ListView2.ListItems.Count).SubItems(3) = Text3.Text
ListView2.ListItems(ListView2.ListItems.Count).SubItems(4) = Format(Text4.Text, "###,###,###.00")
ListView2.ListItems(ListView2.ListItems.Count).SubItems(5) = Val(Text5.Text) * Val(Text6.Text)
ListView2.ListItems(ListView2.ListItems.Count).SubItems(6) = Text9.Text
ListView2.ListItems(ListView2.ListItems.Count).SubItems(7) = ""
كود :
subtotal = ListView2.ListItems(ListView2.ListItems.Count).SubItems(5)
Label10.Caption = Val(Label10.Caption) + Val(subtotal)
وانشالله سوف اقوم بارسال نسخة لك عندما انتهي منه قريبا انشالله
وبالنسبة لموضوع اخفاء الازرار التي ليس لها قيمة فهذه كانت رائعة وهذا كان ماريده بالضبط
بارك الله بك.... وجعلها في ميزان حسناتك