المطلوب هو تقسيم الكميه المنصرفه من الكميه الوارده (عنوان معدل)

[aly elhedewy]

السلام عليكم ورحمه الله وبركاته

اساتذتى ومعلمى الافاضل 

تعلمت على ايديكم الكثير والكثير زادكم الله علماً وتقدماً وجزاكم الله خيراً على ما تقدمونه من علم ينتفع به طلابكم 

لقد كان هذا المنتدى دائما عوناً لى فى أى مشكله او استفسار - والحقيقه اننى دائمت كنت اجد اجابه جميع اسئلتى بدون ان اسأل 

فالبحث فى منتداكم عن المشكله دائما كنت اجد اكثر من حل واكثر من طريقه للحل فشكرا لكم

وسؤالى هو عن تطبيق سياسه fifo فى الاكسس بالاكواد وبالاستعلامات 

لقد بحثت كثيرا جدا فى هذا المنتدى وفى غيره ولقد تعبت جدا من البحث ومن ايجاد الحل ولم اجد اى من الحلول 

فطلبى هو من اساتذتى الكرام او من رواد المنتدى من عنده تطبيق لهذه السياسه فليقم بتنزيل الملف وشرحه لكى يستفيد من الكثيرين

اخيرا وليس اخرا

اشكركم على سعه صدركم 

والسلام عليكم ورحمه الله وبركاته

 

[أحمد فوزى]

معادلة الوارد أولا يضرف أولا على شيت أكسل   .. أرجو أن تكون مفيدة لك

171. معادلة اكسل للصرف من المخازن بطريقة الوارد اولا يصرف اولا Inventory Model FIFO Calculation.xlsx

[محمد أبوعبدالله]

وعليكم السلام ورحمة الله وبركاته

تفضل هذا مثال لما تريد

FifoStock.rar

وبعد اذن ادارة المنتدى هذا رابط للشرح

http://arabteam2000-forum.com/index.php?/topic/248965-حساب-الارصدة-بطريقة-الوارد-أولا-يخرج-أولا-fifo/#comment-1232088

تحياتي

[aly elhedewy]

يوجد بالملف جدولين Q_IN و Q_OUT - الجدول الاول هو المدخلات والاخر المخرجات وكل ما اريده هو استعلام او كود يقوم بتطبيق سياسه الوارد اولا يصرف اولا على سبيل المثال - صنف 1 وارد منه كميتين الكميه الاولى 10 بسعر 15 يوم 01-01 والكميه الثانيه 50 بسعر 18 و تم صرف يوم 02-01 كميه وقدرها 30 من الصنف 1 والمطلوب هو تقسيم الكميه المنصرفه وهى 30 كالتالى كميه 10 بسعر 15 وباقى الكميه 20 بسعر 18 ويتبقى لنا من الكميه الوارده 30 بسعر 18 ج يتم صرفهم من الاذن التالى وهكذا تطبيقا على كل الاصناف وشكرا لسعه صدركم

Aly

 

Database151.accdb

[ابو البشر]

ربما مطلوبك هنا ....

في ٣‏/٤‏/٢٠١٢ at 12:25, ابوخليل said:

السلام عليكم

ليس لي سابق خبرة في هذه المسألة

ولكني وجدت لك مثالا فآمل ان يكون فيه شيئا مما تبحث عنه

FifoStock.rar

 

[qassim-t]

راجع هذا الموضوع فأنه يفيدك كثيرا..واعلمنا بالنتائج

 

[aly elhedewy]

UP

[aly elhedewy]

يوجد بالملف جدولين Q_IN و Q_OUT - الجدول الاول هو المدخلات والاخر المخرجات وكل ما اريده هو استعلام او كود يقوم بالاتى على سبيل المثال - صنف 1 وارد منه كميتين الكميه الاولى 10 بسعر 15 يوم 01-01 والكميه الثانيه 50 بسعر 18 و تم صرف يوم 02-01 كميه وقدرها 30 من الصنف 1 والمطلوب هو تقسيم الكميه المنصرفه وهى 30 كالتالى كميه 10 بسعر 15 وباقى الكميه 20 بسعر 18 ويتبقى لنا من الكميه الوارده 30 بسعر 18 ج يتم صرفهم من الاذن التالى وهكذا تطبيقا على كل الاصناف وشكرا لسعه صدركم

Database151.accdb

[ابو البشر]

في ٢٤‏/٤‏/٢٠١٩ at 12:35, aly elhedewy said:

السلام عليكم ورحمه الله وبركاته

اساتذتى ومعلمى الافاضل 

تعلمت على ايديكم الكثير والكثير زادكم الله علماً وتقدماً وجزاكم الله خيراً على ما تقدمونه من علم ينتفع به طلابكم 

لقد كان هذا المنتدى دائما عوناً لى فى أى مشكله او استفسار - والحقيقه اننى دائمت كنت اجد اجابه جميع اسئلتى بدون ان اسأل 

فالبحث فى منتداكم عن المشكله دائما كنت اجد اكثر من حل واكثر من طريقه للحل فشكرا لكم

وسؤالى هو عن تطبيق سياسه fifo فى الاكسس بالاكواد وبالاستعلامات 

لقد بحثت كثيرا جدا فى هذا المنتدى وفى غيره ولقد تعبت جدا من البحث ومن ايجاد الحل ولم اجد اى من الحلول 

فطلبى هو من اساتذتى الكرام او من رواد المنتدى من عنده تطبيق لهذه السياسه فليقم بتنزيل الملف وشرحه لكى يستفيد من الكثيرين

اخيرا وليس اخرا

اشكركم على سعه صدركم 

والسلام عليكم ورحمه الله وبركاته

 

 

[aly elhedewy]

شكرا اخى الكريم ابو البشر على تعديل عنوان الموضوع وكما لاحظت سيادتكم اننى قد عرضت هذا الموضوع من قبل ولم اجد اى استجابه من اساتذتى الافاضل - اتمنى من كل قلبى ان يقوم بمساعدتى اساتذتى الافاضل فى هذا الموضوع للاهميه القصوى واشكر هذا المنتدى العظيم على ما يقدمه من معلوات قيمه فلقد تعلمت على ايديكم الكثير والكثير واطمع فى الاكثر وشكر

 

[ابو عارف]

اخي جرب التعديل

قيم الموجودة في جدول مشتريات

نموذج مبيعات

لاحظ كمية 10 بسعر 15 =150 +كمية 10 بسعر 18= 180 المبلغ = 330

عودة الى جدول مشتريات 

انظر الكمية ب 15 قد نفد و الكمية ب 18 خصم منها 10 فقط

علما بان السعر تكتب أليا بعد تحديث الكمية

اتمنى التعديل يكون على حسب مطلوب

Database151.accdb

و الكود:

On Error Resume Next
Dim DB As DAO.Database
Dim rst As Recordset
Dim Thisv As Integer
Dim Total As Integer
Dim ThisAdad As Integer
Dim sail As Long
Thisv = 0
ThisAdad = Co
Set DB = CurrentDb

Set rst = DB.OpenRecordset("select * from Q_IN where code=" & Nm.Column(1) & " ORDER BY dt")
rst.MoveLast
rst.MoveFirst

Total = DSum("[Item_Count]", "Q_IN", "[code]=" & Nm.Column(1))

If ThisAdad > Total Then MsgBox "عفواً الكمية بهذالقدر غير متوفرة": Undo: Exit Sub
Do While ThisAdad > rst!Item_count
ThisAdad = (ThisAdad - rst!Item_count)

Thisv = Nz(Thisv) + (rst!Item_count * rst!Price)
rst.Edit
rst!Item_count = 0
rst.Update
rst.MoveNext
Loop
If ThisAdad > 0 And Not rst.EOF Then
Thisv = Thisv + (ThisAdad * rst!Price)
rst.Edit
rst!Item_count = rst!Item_count - ThisAdad
rst.Update
End If
Price = Thisv


Set DB = Nothing
Set rst = Nothing

 

تم تعديل يوليو 25, 2019 بواسطه ابو عارف

[aly elhedewy]

برجاء المساعده من الاساتذه الافاضل

 

[ابو عارف]

انظر موضوعك الجديدة

 

[aly elhedewy]

سيدى الفاضل ابو عارف لك جزيل الشكر والامتنان على تجاوبك معى

ولكن ليس هذا ما اريده كل ما اريده عدم المساس بالكميات الموجوده فى فى جدول Q_IN 

من الممكن ان نقوم بعمل جدول مؤقت يتم تصدير البيانات فيه تفصيلياً

بمعنى انه اذا بعنا من الصنف 1 عدد 20 اريد ان يظهر بالتفصيل 10 بسعر 15 = 150

و 10 بسعر 18 = 180

وهكذا مع بقيه الاصناف هذا لتحديد التكلفه وبالتالى يوجد رصيد بالمتبقى بالتكلفه بمعنى انه يتبقى من الصنف 1 عدد 40 بسعر 18 = 720 ج وهكذا مع بقيه الاصناف 

وشكرا لتعاونكم معى

 

[kha9009lid]

هل هذا المطلوب

مع ملاحضة انك استخدمت لنوع الحقول الكمية الواردة والصادرة نوع عملة ولم تستخدم حقول رقمية ?!

[aly elhedewy]

شكرا سيدى الفاضل على مجهودك معى 

مرفق لسيادتكم الملف به جدول cost لادراج الكميات المنصرفه مفصله بالتسعير وجدول stoc للكميات المتبقيه بعد الصرف كل ما اريده بهذا الشكل فى شكل كود او استعلام

وشكرا

Database151.accdb

[aly elhedewy]

Up

[aly elhedewy]

up

 

[ابو عارف]

السلام عليكم

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

ملاحظة : قبل فتح استعلام اخرج التركيز من سجل الجديد رغم الكود مزود بأمر حفظ السجل ولكن من اجل تاكيد

 Database151.accdb

[aly elhedewy]

السلام عليكم أخى فى الله أ / عارف

جزاك الله خيراً على مساعدتك لى 

تمت تجربه ما ارسلته سيادتكم والنتيجه ممتازه جدا ولكن

جربت ان اطبق هذا الكود على الملف عندى مع عمل بعض التعديلات ولكن يظهر معى اخطاء وفى الحقيقه منذ 3 ايام وانا احاول ولكن محاولاتى باءت بالفشل ولا اعرف اين الخطأ

مرفق لسيادتكم قاعده البيانات واتمنى ان تعرفنى الخطأ الذى وقعت فيه

وشكرا لسيادتكم جزيل الشكر والامتنان

اخيك فى الله على الخطيب

 

تجربه مخازن.rar

[aly elhedewy]

Up

[ابو ياسين المشولي]

حملت الملف وما فهمت اي حاجه

هههههههههه

والمثل يقول فهم السوال نصف الاجابة

[aly elhedewy]

لو حضرتك تابعت الموضوع من اوله اعتقد انك ممكن تفهم ولكم جزيل الشكر . واتمنى ان اسمع ضحكتك دائما

 

[ابو عارف]

اخي الكريم  الخطاء في اكثر من مكان تغير اسماء حقول ، علاقات جداول و الاستعلامات ، مصادر حقول ...

استعلامين  Qr1 و Qr3 لا تغير فيهما شيئ  حذف او اضافة حقول الا تغير اسماء حقول في حالة تغير حقل المصدر

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

Stor.accdb