mahmoud nasr alhasany قام بنشر مايو 14 قام بنشر مايو 14 صباح الخير، أرجو من أهل الخبرة مساعدتي في هذه المشكلة في برنامج مخازن وهو مقسم إلى قسمين: الأول: الاصناف الواردة لها تاريخ انتهاء صلاحية مختلف في كل فاتورة واردة نفس السلعة التي لها أكثر من تاريخ انتهاء صلاحية موجودة في المستودع أريد أن يتم خصم كل فاتورة مبيعات من أقرب تاريخ لانتهاء الصلاحية يظهر في المستودع إجمالي رقم الصنف والباقي من تاريخ انتهاء الصلاحية القديم وأرقام تاريخ انتهاء الصلاحية الجديدة. على أن لا يتم خصم أي كميات من الصلاحية الجديدة إلا بعد انتهاء لكميات الصلاحية القديمة. الجزء الثاني: أريد: إشعار على فاتورة المبيعات لأي صنف على وشك الانتهاء خلال 6 أشهر أو أقل، أن يظهر باللون الأحمر والرقم المتبقي وتاريخ الانتهاء، بحيث يكون أمام من يكتب فاتورة المبيعات كل الوقت حتى تنتهي صلاحية هذا العنصر ويختفي من هذا البيان. وجزاكم الله خيرا البيع بأولوية تاريخ الانتاج.xlsm
mahmoud nasr alhasany قام بنشر مايو 16 الكاتب قام بنشر مايو 16 (معدل) Dim dat, dat_bon As Date Dim X As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 4)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 4)) ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 4)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 4)) End If End If Next J Next i الرجاء مساعدتى اريد عند خصم كمية منتج لمستودع معين حسب التاريخ الاقدم وبمجرد ان يصفر كمية هذا المنتج لهذا المستودع يتحول الى الكمية التالية على حسب التاريخ الاقدم او التالى لان فاتورة الشراء لهذا المنتجات بتختلف على حسب انتهاء الصلاحية الكود لايقوم بخصم الكمية المطروحة فى الليست بوكس كمثال رقم 3 او 4 او اى كمية اخصمها من المستودع على حسب التاريخ الاقدم ولاكن يقوم بنقص تلقائى مع كل عملية رقم 1 فى المخزون الخاص بالمستودع او المخزن ماالخطاء فى هذا الكود تم تعديل مايو 16 بواسطه mahmoud nasr alhasany
mahmoud nasr alhasany قام بنشر مايو 16 الكاتب قام بنشر مايو 16 (معدل) Dim dat, dat_bon As Date Dim X As Integer Dim v As Integer Dim Uf As Integer Dim i As Long Dim J As Long Set fa = Sheets("Stock") With Feuil1 Uf = fa.Range("A" & Rows.Count).End(xlUp).Row For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 Then If Me.OptionButton1 = True Or Me.OptionButton2 = True Then dat_bon = .Cells(J, 9) If dat_bon < dat Then dat_bon = dat End If End If End If Next J Next i For i = 0 To ListBox1.ListCount - 1 For J = 2 To Uf If .Cells(J, 1) = Val(ListBox1.List(i, 0)) And .Cells(J, 5) = ComboBox1 And .Cells(J, 9) = dat_bon Then If Me.OptionButton1 = True Then .Cells(J, 4) = .Cells(J, 4) + Val(ListBox1.List(i, 3)) .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 3)) ElseIf Me.OptionButton2 = True Then .Cells(J, 4) = .Cells(J, 4) - Val(ListBox1.List(i, 3)) .Cells(J, 7) = .Cells(J, 7) + Val(ListBox1.List(i, 3)) End If End If Next J Next i عقوا .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 3)) بدل .Cells(J, 6) = .Cells(J, 6) - Val(ListBox1.List(i, 4)) تم حل خصم الكمية رجاء مساعدتى فى السؤال التالى اريد عند خصم كمية منتج لمستودع معين حسب التاريخ الاقدم وبمجرد ان يصفر كمية هذا المنتج لهذا المستودع يتحول الى الكمية التالية على حسب التاريخ الاقدم او التالى لان فاتورة الشراء لهذا المنتجات بتختلف على حسب انتهاء الصلاحية لو وجد أن قيمة المخزون اريد عليها تعديل بحيث يظهر الرصيد الآخر بناء على الصلاحية الاقدم تم تعديل مايو 16 بواسطه mahmoud nasr alhasany
mahmoud nasr alhasany قام بنشر مايو 17 الكاتب قام بنشر مايو 17 (معدل) انى عالق الرجاء المساعدة رجاء مساعدتى فى السؤال التالى اريد عند خصم كمية منتج لمستودع معين حسب التاريخ الاقدم وبمجرد ان يصفر كمية هذا المنتج لهذا المستودع يتحول الى الكمية التالية على حسب التاريخ الاقدم او التالى لان فاتورة الشراء لهذا المنتجات بتختلف على حسب انتهاء الصلاحية لو وجد أن قيمة المخزون اريد عليها تعديل بحيث يظهر الرصيد الآخر بناء على الصلاحية الاقدم بمعنى أريد عند اختيار الكود 100 في هذا المنتج، يتم عرض أقدم تاريخ مخزون، وعندما يكون الحد الأدنى للمخزون صفر، فإنه ينتقل إلى التاريخ التالي بكمية المخزون الأخيرة لهذا العنصر. تم تعديل مايو 17 بواسطه mahmoud nasr alhasany
mahmoud nasr alhasany قام بنشر مايو 19 الكاتب قام بنشر مايو 19 (معدل) الرجاء مساعدتى انى عالق فى هذا الموضوع وشكرا عندما أقوم باختيار اسم المخزن وكود المنتج، أريد أن تصل رصيد المخزن التابع لها إلى أدنى تاريخ نظرا لان التواريخ مختلفة A= CB_Pièce ( 100 ) E= ComboBox1 ( magasin ) D= STOCKER ( 149 & 10 ) i = Textbox1 date (01/01/2024 & 01/05/2024 ) يجب أن يتحقق الشرط الحد الأدنى للتاريخ والمخزون للمنتج والمخزن هكذا A= CB_Pièce ( 100 ) E= ComboBox1 ( magasin ) D= STOCKER ( 10 ) i = Textbox1 date (01/01/2024 ) شرط ان اختار كود المنتج واسم المخزن CB_Pièce ( 100 ,101,102,103...... ComboBox1 ( magasin ,magasin1,magasin2,magasin,..... عندما يصل حد الطلب إلى الصفر، فإنه ينتقل إلى الكمية الثانية ويكون التاريخ التالي 01/05/2024 ارجو قد وفقت فى إيضاح طلبى تم تعديل مايو 19 بواسطه mahmoud nasr alhasany
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.