سعر شراء الصنف لا يظهر في فاتورة المشتريات

[ابو عبد الرحمن اشرف]

اخواني الاعزاء الفضلاء واساتذتي الكرام 

الفكرة هي 

عند وجود اصناف جديدة يتم اضافتها في نموذج اضافة الاصناف (items)ومن ضمن الحقول حقل اخر سعر شراء 

اتمني ان يظهر هذا السعر في فاتورة الشراء (purchase_header)او فاتورة مردود المشتريات (purchase_header_credit_memo)

ولكم مني وافر التحية والتقدير 

وطبعا الملف المرفق

 

Database2.rar

[دروب مبرمج]

تفضل 

الصق هذه الشفرة في سجل الأكواد Module1

Public Function Get_Last_PRICE(ITEM_CODE As String) As Double
On Error Resume Next
Get_Last_PRICE = Nz(DLast("PURSHASED_PRICE", "ITEMS", "[ITEM_CODE] Like '" & ITEM_CODE & "'"), 0)
End Function

و في صفحة المبيعات و صفحة المشتريات في حدث عند التغيير ضع الكود التالي

[ITEM_PRICE] = Get_Last_PRICE([ITEM_CODE])

وهذه هي النتيجة 

لم استطع ارفاق التعديل بسبب كبر حجم الملف

[ابو عبد الرحمن اشرف]

منذ ساعه, دروب مبرمج said:

تفضل 

الصق هذه الشفرة في سجل الأكواد Module1

Public Function Get_Last_PRICE(ITEM_CODE As String) As Double
On Error Resume Next
Get_Last_PRICE = Nz(DLast("PURSHASED_PRICE", "ITEMS", "[ITEM_CODE] Like '" & ITEM_CODE & "'"), 0)
End Function

و في صفحة المبيعات و صفحة المشتريات في حدث عند التغيير ضع الكود التالي

[ITEM_PRICE] = Get_Last_PRICE([ITEM_CODE])

وهذه هي النتيجة 

لم استطع ارفاق التعديل بسبب كبر حجم الملف

اخي الفاضل الكريم 

اشكر لك تقديم العون لي ولقد قمت باجراء ما تفضلت به ولكن بلا جدوي اخي 

لو امكن ارفاق ملف اكن لك من الشاكرين

[ابو عبد الرحمن اشرف]

21 ساعات مضت, ابو عبد الرحمن اشرف said:

اخي الفاضل الكريم 

اشكر لك تقديم العون لي ولقد قمت باجراء ما تفضلت به ولكن بلا جدوي اخي 

لو امكن ارفاق ملف اكن لك من الشاكرين

@دروب مبرمج

اخي الفاضل في انتظار المرفق

واخواني الاعزاء الافاضل الكرماء 

@ابوخليل

@Moosak

@kkhalifa1960

@محمد ايمن

@Eng.Qassim

 

@

 

[محمد ايمن]

اخي الكريم @ابو عبد الرحمن اشرف

عند طلب مساعدة ارفع مرفق مصغر يحتوي البيانات المطلوب التعديل عليه

[ابو عبد الرحمن اشرف]

اخي الحبيب   @محمد ايمن الملف حجمة 2 ميجا فقط اراه ليس بالكثير 

تم تعديل مايو 29, 2023 بواسطه ابو عبد الرحمن اشرف

[ابو عبد الرحمن اشرف]

في 27‏/5‏/2023 at 23:40, دروب مبرمج said:

تفضل 

الصق هذه الشفرة في سجل الأكواد Module1

Public Function Get_Last_PRICE(ITEM_CODE As String) As Double
On Error Resume Next
Get_Last_PRICE = Nz(DLast("PURSHASED_PRICE", "ITEMS", "[ITEM_CODE] Like '" & ITEM_CODE & "'"), 0)
End Function

و في صفحة المبيعات و صفحة المشتريات في حدث عند التغيير ضع الكود التالي

[ITEM_PRICE] = Get_Last_PRICE([ITEM_CODE])

وهذه هي النتيجة 

لم استطع ارفاق التعديل بسبب كبر حجم الملف

@دروب مبرمج

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

 

[د.كاف يار]

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

تم تطبيق كود اخي @دروب مبرمج على صفحة مردود المبيعات

 

Database2.rar

[ابو عبد الرحمن اشرف]

في 28‏/5‏/2023 at 23:21, محمد ايمن said:

اخي الكريم @ابو عبد الرحمن اشرف

عند طلب مساعدة ارفع مرفق مصغر يحتوي البيانات المطلوب التعديل عليه

ابشر اخي ومنكم نتعلم دائما اخي 

تفضل اخي المرفق 

‏‏Database2 - نسخة.rar

2 دقائق مضت, د.كاف يار said:

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

تم تطبيق كود اخي @دروب مبرمج على صفحة مردود المبيعات

 

Database2.rar 2.21 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

بارك الله فيك اخي 

تم ارفاق ملف مصغر حالا 

وتم تطبيق ما تفضل به اخي الكريم ولكن ظهرت رسائل خطأ

[د.كاف يار]

للأسف الملف المضغوط لم يفتح معي

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

تم تعديل يونيو 1, 2023 بواسطه د.كاف يار

[ابو عبد الرحمن اشرف]

23 دقائق مضت, د.كاف يار said:

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

تم تطبيق كود اخي @دروب مبرمج على صفحة مردود المبيعات

 

Database2.rar 2.21 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

بارك الله فيك اخي الفاضل تم الامر بنجاح 

في حدث بعد التحديث وليس حدث عند التغيير 

والامر هو كما قال اخي @دروب مبرمجمع ازالة [ ]

فمشكور جدا اخي الفاضل ولكن الملف المضغوط يفتح عندي بدون مشاكل 

[ابو عبد الرحمن اشرف]

1 ساعه مضت, د.كاف يار said:

للأسف الملف المضغوط لم يفتح معي

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

اخي الفاضل الكريم 

في حقل سعر البيع في مردود المبيعات يظهر السعر وعلامات عشرية 2 وهذا هو المطلوب اما في مردود المشتريات فلا تظهر العلامات العشرية يظهر عدد صحيح فقط