اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

صباح الخير،

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

الأول:

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

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

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

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

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

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

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

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

 

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

رابط هذا التعليق
شارك

  • mahmoud nasr alhasany changed the title to خصم كمية البيع بأولوية تاريخ الانتهاء
 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 فى المخزون الخاص بالمستودع او المخزن

ماالخطاء فى هذا الكود

تم تعديل بواسطه 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))

تم حل خصم الكمية

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

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

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

 

تم تعديل بواسطه mahmoud nasr alhasany
رابط هذا التعليق
شارك

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

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

 

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

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

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

بمعنى

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

تم تعديل بواسطه 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

ارجو قد وفقت فى إيضاح طلبى

 

Compress_٢٠٢٤٠٥١٧_٠٩٣٦٤٠_0073.jpg

Compress_٢٠٢٤٠٥١٧_٠٩٢٤٢١_1397(2).jpg

تم تعديل بواسطه mahmoud nasr alhasany
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information