اذهب الي المحتوي
أوفيسنا

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

قام بنشر
صباح الخير،

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

الأول:

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

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

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

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

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

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

أريد: إشعار على فاتورة المبيعات لأي صنف على وشك الانتهاء خلال 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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information