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

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


aly elhedewy

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

FifoStock.rar

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

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

تحياتي

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

  • 1 month later...
يوجد بالملف جدولين 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

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

  • 3 weeks later...
  • 2 weeks later...

يوجد بالملف جدولين 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 فى الاكسس بالاكواد وبالاستعلامات 

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

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

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

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

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

 

 

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

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

 

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

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

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

image.png.8ff241fa18017f6c816a0e2548d66b88.png

نموذج مبيعات

image.png.6cbb4852ea76025416154682a6e90645.png

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

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

image.png.c1b01ca9b14aa5ed418173316d1829af.png

انظر الكمية ب 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

 

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

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

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

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

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

و 10 بسعر 18 = 180

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

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

 

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

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

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

وشكرا

Database151.accdb

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

السلام عليكم

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

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

 Database151.accdb

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

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

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

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

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

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

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

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

 

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

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

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

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

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

Stor.accdb

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

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