[h2551996]

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

---

Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click
If Val(TxtPaid.Text) > Val(LblTotal.Text) Then
MessageBox.Show("عفوا قيمة المدفوع لا يمكن ان يكون اكبر من قيمة الفاتورة", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End If
If TxtCustomerName.Text = vbNullString Or TxtPhone.Text = vbNullString Or LblTax.Text = vbNullString Or TxtDiscount.Text = vbNullString Then
MessageBox.Show("عفواً ، قم بتعبئة كل الحقول ( الضريبة او الخصم او اسم العميل او رقم العميل", "تنبيه ", MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.RightAlign)
Exit Sub
End If
Dim Field1 As String = ""
Field1 = convertTohex("01", _CompanyName)
Dim Field2 As String = ""
Field2 = convertTohex("02", _vat_No)
Dim Field3 As String = ""
Dim myDate As String = DateTime.Now.ToString("yyyy-MM-ddTHH:mm:00Z")
Field3 = convertTohex("03", myDate)
Dim Field4 As String = ""
Field4 = convertTohex("04", LblTotal.Text)
Dim Field5 As String = ""
Field5 = convertTohex("05", LblTax.Text)
Dim All_Field As String = Field1 & Field2 & Field3 & Field4 & Field5
txtHexToBase64.Text = HexToBase64(All_Field)
Dim _Result = Base64ToHex_Quick(txtHexToBase64.Text)
Get_QrCode_quick()
'***************************************************
Insert_Sale()
LogFunc(Str_User, "تم اضافة فاتورة مبيعات رقم " & TxtOrder_ID.Text)
MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
If MessageBox.Show("هل تريد طباعة السند قبل الخروج؟", "الطباعة", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2) = Windows.Forms.DialogResult.No Then
ClearSale()
Else
If My.Settings.SalePrint = "A4" Then
PrintInvoice()
ElseIf My.Settings.SalePrint = "8Cm" Then
PrintInvoice_8CM()
End If
ClearSale()
End If
End Sub