ابو عبد الرحمن اشرف قام بنشر مايو 27, 2023 مشاركة قام بنشر مايو 27, 2023 اخواني الاعزاء الفضلاء واساتذتي الكرام الفكرة هي عند وجود اصناف جديدة يتم اضافتها في نموذج اضافة الاصناف (items)ومن ضمن الحقول حقل اخر سعر شراء اتمني ان يظهر هذا السعر في فاتورة الشراء (purchase_header)او فاتورة مردود المشتريات (purchase_header_credit_memo) ولكم مني وافر التحية والتقدير وطبعا الملف المرفق Database2.rar رابط هذا التعليق شارك More sharing options...
دروب مبرمج قام بنشر مايو 27, 2023 مشاركة قام بنشر مايو 27, 2023 تفضل الصق هذه الشفرة في سجل الأكواد 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]) وهذه هي النتيجة لم استطع ارفاق التعديل بسبب كبر حجم الملف 1 رابط هذا التعليق شارك More sharing options...
ابو عبد الرحمن اشرف قام بنشر مايو 27, 2023 الكاتب مشاركة قام بنشر مايو 27, 2023 منذ ساعه, دروب مبرمج 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]) وهذه هي النتيجة لم استطع ارفاق التعديل بسبب كبر حجم الملف اخي الفاضل الكريم اشكر لك تقديم العون لي ولقد قمت باجراء ما تفضلت به ولكن بلا جدوي اخي لو امكن ارفاق ملف اكن لك من الشاكرين رابط هذا التعليق شارك More sharing options...
ابو عبد الرحمن اشرف قام بنشر مايو 28, 2023 الكاتب مشاركة قام بنشر مايو 28, 2023 21 ساعات مضت, ابو عبد الرحمن اشرف said: اخي الفاضل الكريم اشكر لك تقديم العون لي ولقد قمت باجراء ما تفضلت به ولكن بلا جدوي اخي لو امكن ارفاق ملف اكن لك من الشاكرين @دروب مبرمج اخي الفاضل في انتظار المرفق واخواني الاعزاء الافاضل الكرماء @ابوخليل @Moosak @kkhalifa1960 @محمد ايمن @Eng.Qassim @ رابط هذا التعليق شارك More sharing options...
محمد ايمن قام بنشر مايو 28, 2023 مشاركة قام بنشر مايو 28, 2023 اخي الكريم @ابو عبد الرحمن اشرف عند طلب مساعدة ارفع مرفق مصغر يحتوي البيانات المطلوب التعديل عليه 1 رابط هذا التعليق شارك More sharing options...
ابو عبد الرحمن اشرف قام بنشر مايو 29, 2023 الكاتب مشاركة قام بنشر مايو 29, 2023 (معدل) اخي الحبيب @محمد ايمن الملف حجمة 2 ميجا فقط اراه ليس بالكثير تم تعديل مايو 29, 2023 بواسطه ابو عبد الرحمن اشرف رابط هذا التعليق شارك More sharing options...
ابو عبد الرحمن اشرف قام بنشر يونيو 1, 2023 الكاتب مشاركة قام بنشر يونيو 1, 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]) وهذه هي النتيجة لم استطع ارفاق التعديل بسبب كبر حجم الملف @دروب مبرمج اخي الفاضل الكريم عند تنفيذ ما تفضلت به حضرتك ممكن اكون في البداية قمت بتنفيذه بطريقة خطأ اما الان فقمت بالامر كما قلت اخي ومع ذلك اعطاني تلك الرسالة فهل من حل رابط هذا التعليق شارك More sharing options...
أفضل إجابة د.كاف يار قام بنشر يونيو 1, 2023 أفضل إجابة مشاركة قام بنشر يونيو 1, 2023 حاول اخي الكريم في المرات القادمة ان ترفق مثال مصغر لكي يسهل التعامل معه تم تطبيق كود اخي @دروب مبرمج على صفحة مردود المبيعات Database2.rar رابط هذا التعليق شارك More sharing options...
ابو عبد الرحمن اشرف قام بنشر يونيو 1, 2023 الكاتب مشاركة قام بنشر يونيو 1, 2023 في 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 بارك الله فيك اخي تم ارفاق ملف مصغر حالا وتم تطبيق ما تفضل به اخي الكريم ولكن ظهرت رسائل خطأ رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر يونيو 1, 2023 مشاركة قام بنشر يونيو 1, 2023 (معدل) للأسف الملف المضغوط لم يفتح معي لكن تم تطبيق الكود على الملف في ردي السابق تم تعديل يونيو 1, 2023 بواسطه د.كاف يار 1 رابط هذا التعليق شارك More sharing options...
ابو عبد الرحمن اشرف قام بنشر يونيو 1, 2023 الكاتب مشاركة قام بنشر يونيو 1, 2023 23 دقائق مضت, د.كاف يار said: حاول اخي الكريم في المرات القادمة ان ترفق مثال مصغر لكي يسهل التعامل معه تم تطبيق كود اخي @دروب مبرمج على صفحة مردود المبيعات Database2.rar 2.21 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads بارك الله فيك اخي الفاضل تم الامر بنجاح في حدث بعد التحديث وليس حدث عند التغيير والامر هو كما قال اخي @دروب مبرمجمع ازالة [ ] فمشكور جدا اخي الفاضل ولكن الملف المضغوط يفتح عندي بدون مشاكل رابط هذا التعليق شارك More sharing options...
ابو عبد الرحمن اشرف قام بنشر يونيو 1, 2023 الكاتب مشاركة قام بنشر يونيو 1, 2023 1 ساعه مضت, د.كاف يار said: للأسف الملف المضغوط لم يفتح معي لكن تم تطبيق الكود على الملف في ردي السابق اخي الفاضل الكريم في حقل سعر البيع في مردود المبيعات يظهر السعر وعلامات عشرية 2 وهذا هو المطلوب اما في مردود المشتريات فلا تظهر العلامات العشرية يظهر عدد صحيح فقط رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.