[Taha Okla]

وعليكم السلام ورحمة الله وبركاته :
اذا كان السعر مفروض من قبل هيئة للتسعير .. فـ بيكون الخطأ أساساً من الرقم المخزن في النظام : الرقم قبل الضريبة.
حيث أنه 7 ريال شامل ضريبة قيمة مضافة(15%) تعني : 

• قيمة المنتج تقريباً     :  6.0869565
  
• القيمة المضافة تقريباً :  0.9130435
  

لا بد من وجود خطأ بالفواصل عند حساب الضريبة على الأرقام الصغيرة .. ويتحملها بالعادة البائع، (شو يعني الفرق يكون ريال على كل 10 آلاف ريال)
وليس بالضرورة أن يكون على صاحب العمل، أحياناً يكون المجموع أقل من الرقم فيعطي الرقم نفسه مجبوراً، فيكون الكسر برقم يجبره جبر رقم آخر.

---

من أجل تجاوز ها الخطأ الظاهري عليه أن يقوم بتخزين الأرقام في النظام بعد الضريبة وليس قبلها..
وشاشة المبيعات هي من تقوم بإستخلاص الضريبة وعرضها للمستخدم..
ولعرض نتيجة تقريبية مرضية عليه عرض اربع خانات على الأقل كما فعلت في شاشة مبيعاتك.
وعليه استخدام الكود التالي ضمن حدث التغير لمربع التسعيرة ليحسب السعر قبل الضريبة والضريبة عليه مع التقريب لأربع خانات بعد الفاصلة :

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
   TextBox2.Text = Strings.Format(Val(TextBox1.Text) / 1.15, "0.0000")
   TextBox3.Text = Strings.Format(Val(TextBox1.Text) / 1.15 * 0.15, "0.0000")
End Sub