اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

منع التعديل على المبلغ المقبوض من العميل


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

السلام عليكم

يا ريت تفيدوني بهاي المسألة للضرورة

صممت برنامج محاسبة يختص بنظام الاقساط

الثغرة الموجودة فيه

انه بعد ما يقبض المحاسب من العميل مبلغ ويطبع سند قبض ,  يستطيع المحاسب ان يغير قيمة المبلغ المقبوض 
بدلا من 50 دينار مثلا يجعلها 20 دينار ويختلس الفرق 
هل هناك حل انه يتم منع المحاسب من التعديل عبى الدفعه ؟؟

جزاكم الله خيرا

Screenshot_101517_121910_PM.jpg

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

18 دقائق مضت, salloum68 said:

انه بعد ما يقبض المحاسب من العميل مبلغ ويطبع سند قبض ,  يستطيع المحاسب ان يغير قيمة المبلغ المقبوض 
بدلا من 50 دينار مثلا يجعلها 20 دينار ويختلس الفرق

تقدر تعطي كود بعد طبع او بعد تكتب المبلغ اي يكون المبلغ اكبر من صفر حينئذ يعمل قفل الحقل
 

IF Me.MablaxNumber > 0 then Me.MablaxNumber.Locked = true else Me.MablaxNumber.Locked = False

Me.MablaxNumber ھو اسم الحقل اللی تکتب فیھا المبلغ

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

السلام عليكم 

مشاركة مع اخي شفان

اجعل خصيصة النموذج  لادخال البيانات = نعم

وعند امر الطباعة يتم تحديث النموذج ReQuery  ستختفي البيانات

 

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

صديقي @Shivan Rekanyمش عارف وين اضع الكود 

شوف الصورة المرفقة

انا بدي في حالة تغير الامر من (لم يتم الدفع ) الى (تم الدفع ) هنا لا يستطيع المحاسب تعديل المبلغ بعد اعطاء امر تم الدفع

 

اين اضع الكود ؟؟

005.png

تظهر رسالة خطأ

006.png

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

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True Else Me.HaleAlDefia.Locked = False

2 :
 

IF Me.HaleAlDefia = "تم الدفع" Then Me.Mablax.Locked = True Else Me.Mablax.Locked = False

1 - 2 :
 

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True : Me.Mablax.Lucked = True Else Me.HaleAlDefia.Locked = False : Me.Mablax.Lucked = False

HaleAlDefia ھو اسم الحقل اللی تکتب فیھا تم الدفع او لم یتم الدفع
Mablax ھو حقل اللي تكتب فيها المبلغ
وسيتم وضع الكود في حدث بعد تحديث للحقل HaleAlDefia
والا ارفق القاعدة لكي نعمل عليها التعديل المطلوب
وهناك طريقة اخري تفضل به استاذنا ابوخليل
تقبل تحياتي

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

59 دقائق مضت, ابوخليل said:

السلام عليكم 

مشاركة مع اخي شفان

اجعل خصيصة النموذج  لادخال البيانات = نعم

وعند امر الطباعة يتم تحديث النموذج ReQuery  ستختفي البيانات

 

اخي ابو خليل
اذا جعلت خصيصة النموذج لادخال البيانات يصبح فارع

وانا عامل تنزيل الاقساط اوتو من خلال مايكرو

الصورة المرفقة مبلغ القسط وحالة الدفع تنزل مباشرة مجرد اني اكبس على ايقونة تسجيل الاقساط

فاذا غيرت الخصوصية تصبح فارغة والايقونة لا تستجيب

 

005.png

منذ ساعه, ابوخليل said:

السلام عليكم 

مشاركة مع اخي شفان

اجعل خصيصة النموذج  لادخال البيانات = نعم

وعند امر الطباعة يتم تحديث النموذج ReQuery  ستختفي البيانات

 

انا عامل الحاق 

Screenshot_101517_025702_PM.jpg

44 دقائق مضت, Shivan Rekany said:

IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True Else Me.HaleAlDefia.Locked = False

2 :
 


IF Me.HaleAlDefia = "تم الدفع" Then Me.Mablax.Locked = True Else Me.Mablax.Locked = False

1 - 2 :
 


IF Me.HaleAlDefia = "تم الدفع" Then Me.HaleAlDefia.Locked = True : Me.Mablax.Lucked = True Else Me.HaleAlDefia.Locked = False : Me.Mablax.Lucked = False

HaleAlDefia ھو اسم الحقل اللی تکتب فیھا تم الدفع او لم یتم الدفع
Mablax ھو حقل اللي تكتب فيها المبلغ
وسيتم وضع الكود في حدث بعد تحديث للحقل HaleAlDefia
والا ارفق القاعدة لكي نعمل عليها التعديل المطلوب
وهناك طريقة اخري تفضل به استاذنا ابوخليل
تقبل تحياتي

جربت الموضوع ولم يفلح

يمكن لاني عامل استعلام الحاق 

Screenshot_101517_025702_PM.jpg

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

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.

×
×
  • اضف...

Important Information