توزيع الخصم العام على الاصناف في الفاتورة

[ابوآمنة]

ما هو الطريقة الصحيحة لتوزيع الخصم العام على الأصناف دخال الفاتورة دون الزيادة على قيمة الصنف .

على سبيل المثال :

لدينا فاتورة بقيمة 100 

تم الحسم العام على الفاتورة 11 

فيها أصناف متعدده كالتالي:

جبن بقيمة 7  الكمية 1 المجموعة = 7

قشطة بقيمة 3  الكمية 1 المجموع = 3

جبن حلوم بقيمة 10 الكمية 9  المجموع =90

المطلوب توزيع الخصم على الأصناف داخل الفاتورة بشرط عدم تجاوز قيمة الصنف وينتقل الفائضة من الصنف إلى الصنف الذي يليه وهكذا .😁

[ابوآمنة]

المثال بالمرفق

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

test1.accdb

[ابوآمنة]

للرفع تكرماً ،،،

[qassim-t]

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

جرب المرفق بعد التعديل

test1(1).accdb

[ابوآمنة]

53 دقائق مضت, qassim-t said:

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

جرب المرفق بعد التعديل

test1(1).accdb 864 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download

بصراحة أبهرتني بالحل والكود الجميل

 

Dim rst As DAO.Recordset
Dim RC As Integer
Dim i As Integer
    Set rst = Me.InvoiceHelperTab.Form.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To rst.RecordCount
    
        rst.Edit
            rst!Descount = rst!QtyOut * rst!Price * (1 - (Me.percentDescount / Me.Text64))
            
        rst.Update
        
        rst.MoveNext
    Next i
    rst.Close: Set rst = Nothing
    
    DoCmd.RunCommand acCmdSaveRecord

 

ممتاز جداً الحل 

لكن هل نستطيع أن نعمل ذلك في الاستعلام Q1 كما في المرفق .

لأني أفكر عندي ديون بيع كيف يتأثر أيضا سداد الدين على الفاتورة والصنف بالأخص .

هل هناك معادلة يتم وضعها في الاستعلام وتقوم بتوزيع الدين أو  الخصم من رأس الفاتورة إلى أطرافها .

اتمنى الفكرة وصلت 

test1(2).accdb

تم تعديل يونيو 15, 2019 بواسطه saleh204

[qassim-t]

4 hours ago, saleh204 said:

بصراحة أبهرتني بالحل والكود الجميل

هذا ماتعلمته من هذا الموقع الجميل وشكرا على اطراءك..

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

[ابوآمنة]

بالنسبة لآلية الديون سأجعلها كما تفضلت

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

وشكرا لكم

[ابوآمنة]

هل يمكن تحويل الكود ليعمل في الاستعلام لكي لا اضطر إلى إنشاء عدة حقول في جدول أطراف الفاتورة "InvoiceHelperTab" والهدف من تحويل الكود للاستعلام لعمل كشف مشتريات للعميل

Dim rst As DAO.Recordset
Dim RC As Integer
Dim i As Integer
    Set rst = Me.InvoiceHelperTab.Form.RecordsetClone
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    
    For i = 1 To rst.RecordCount
    
        rst.Edit
            rst!Descount = rst!QtyOut * rst!Price * (1 - (Me.percentDescount / Me.Text64))
            
        rst.Update
        
        rst.MoveNext
    Next i
    rst.Close: Set rst = Nothing
    
    DoCmd.RunCommand acCmdSaveRecord

وهذا المطلوب ويكون في استعلام 

في ١٤‏/٦‏/٢٠١٩ at 01:46, saleh204 said:

ما هو الطريقة الصحيحة لتوزيع الخصم العام على الأصناف دخال الفاتورة دون الزيادة على قيمة الصنف .

على سبيل المثال :

لدينا فاتورة بقيمة 100 

تم الحسم العام على الفاتورة 11 

فيها أصناف متعدده كالتالي:

جبن بقيمة 7  الكمية 1 المجموعة = 7

قشطة بقيمة 3  الكمية 1 المجموع = 3

جبن حلوم بقيمة 10 الكمية 9  المجموع =90

المطلوب توزيع الخصم على الأصناف داخل الفاتورة بشرط عدم تجاوز قيمة الصنف وينتقل الفائضة من الصنف إلى الصنف الذي يليه وهكذا .😁

وهذا المرفق فيه الاستعلام (Q1 )  المطلوب توزيع الخصم من رأس الفاتورة  إلى أطرافها آلياً من خلال الاستعلام  .

في ١٥‏/٦‏/٢٠١٩ at 16:24, saleh204 said:

test1(2).accdb 544 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 4 downloads

 

[رمهان]

@ابوآمنة

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

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

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

بالتوفيق

test1(1).accdb

[ابوآمنة]

10 ساعات مضت, رمهان said:

@ابوآمنة

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

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

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

بالتوفيق

test1(1).accdb 512 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 2 downloads

اعجبتي الفكرة ما شاء الله كما يعجبني تفكيرك في اختصار الأكواد والاكتفاء بالأهم منها فشكراً جزيلاً لك 

هل يمكن تساعدني في تطبيق الفكرة على الاستعلام حيث سيكون هناك عدة فواتير وكل واحدة منها لها خصم وعدة أصناف ما إلى ذلك .

test3.accdbبالمرفق تجربتي المتواضعة لكن لم تفلح

10 ساعات مضت, رمهان said:

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

هذه العبارة ستفتح لي أفق كبيرة وسأصحح على ضوئها أخطاء ، فشكراً لك 

[رمهان]

@ابوآمنة

الصق هذه الجملة في استعلام جديد

SELECT InvoiceHelperTab.InvoiceNo, InvoiceHelperTab.InvoiceType, InvoiceTab.percentDescount, InvoiceHelperTab.QtyOut, InvoiceHelperTab.Price, (1-([percentDescount]/DSum("[qtyout]*price","invoicehelpertab","invoiceno='" & [InvoiceHelperTab]![InvoiceNo] & "'")))*[price]*[qtyout] AS Expr1
FROM InvoiceTab INNER JOIN InvoiceHelperTab ON InvoiceTab.InvoiceNo = InvoiceHelperTab.InvoiceNo;

بالتوفيق

[ابوآمنة]

20 دقائق مضت, رمهان said:

@ابوآمنة

الصق هذه الجملة في استعلام جديد

SELECT InvoiceHelperTab.InvoiceNo, InvoiceHelperTab.InvoiceType, InvoiceTab.percentDescount, InvoiceHelperTab.QtyOut, InvoiceHelperTab.Price, (1-([percentDescount]/DSum("[qtyout]*price","invoicehelpertab","invoiceno='" & [InvoiceHelperTab]![InvoiceNo] & "'")))*[price]*[qtyout] AS Expr1
FROM InvoiceTab INNER JOIN InvoiceHelperTab ON InvoiceTab.InvoiceNo = InvoiceHelperTab.InvoiceNo;

 بالتوفيق

شكراً أستاذي @رمهان

في خطأ في جملة الاستعلام حسب الرسالة التالية :

[ابوآمنة]

شكراً تم حل المشكلة 

هناك خطأ في الحرف الأول من الكمية حيث أن الحرف الأول كبير 

QtyOut

SELECT InvoiceHelperTab.InvoiceNo, InvoiceHelperTab.InvoiceType, InvoiceTab.percentDescount, InvoiceHelperTab.QtyOut, InvoiceHelperTab.Price, (1-([percentDescount]/DSum("[Qtyout]*price","invoicehelpertab","invoiceno='" & [InvoiceHelperTab]![InvoiceNo] & "'")))*[price]*[qtyout] AS Expr1
FROM InvoiceTab INNER JOIN InvoiceHelperTab ON InvoiceTab.InvoiceNo = InvoiceHelperTab.InvoiceNo;