خصم كمية البيع بأولوية تاريخ الانتهاء

[mahmoud nasr alhasany]

صباح الخير،

أرجو من أهل الخبرة مساعدتي في هذه المشكلة في برنامج مخازن وهو مقسم إلى قسمين:

الأول:

الاصناف الواردة لها تاريخ انتهاء صلاحية مختلف في كل فاتورة واردة

نفس السلعة التي لها أكثر من تاريخ انتهاء صلاحية موجودة في المستودع

أريد أن يتم خصم كل فاتورة مبيعات من أقرب تاريخ لانتهاء الصلاحية

يظهر في المستودع إجمالي رقم الصنف والباقي من تاريخ انتهاء الصلاحية القديم وأرقام تاريخ انتهاء الصلاحية الجديدة.

على أن لا يتم خصم أي كميات من الصلاحية الجديدة إلا بعد انتهاء لكميات الصلاحية القديمة.

الجزء الثاني:

أريد: إشعار على فاتورة المبيعات لأي صنف على وشك الانتهاء خلال 6 أشهر أو أقل، أن يظهر باللون الأحمر والرقم المتبقي وتاريخ الانتهاء، بحيث يكون أمام من يكتب فاتورة المبيعات كل الوقت حتى تنتهي صلاحية هذا العنصر ويختفي من هذا البيان.

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

 

البيع بأولوية تاريخ الانتاج.xlsm

[mahmoud nasr alhasany]

 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]

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]

انى عالق الرجاء المساعدة

رجاء مساعدتى فى السؤال التالى

 

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

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

لو وجد أن قيمة المخزون اريد عليها تعديل بحيث يظهر الرصيد الآخر بناء على الصلاحية الاقدم

بمعنى

أريد عند اختيار الكود 100 في هذا المنتج، يتم عرض أقدم تاريخ مخزون، وعندما يكون الحد الأدنى للمخزون صفر، فإنه ينتقل إلى التاريخ التالي بكمية المخزون الأخيرة لهذا العنصر.

تم تعديل مايو 17 بواسطه mahmoud nasr alhasany

[mahmoud nasr alhasany]

الرجاء مساعدتى

انى عالق فى  هذا الموضوع وشكرا

عندما أقوم باختيار اسم المخزن وكود المنتج، أريد أن تصل رصيد المخزن التابع لها إلى أدنى تاريخ نظرا لان التواريخ مختلفة
 

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