المشاركات : 462
المواضيع 60
الإنتساب : Feb 2021
السمعة :
46
الشكر: 856
تم شكره 692 مرات في 350 مشاركات
وعليكم السلام
نصيحة : اترك عنك اللهجة المحلية التي تتكلم بها .
واكتب سؤالك باللغة العربية الفصحى حتى يفهمك كل الأعضاء بمختلف جنسياتهم !
المشاركات : 111
المواضيع 34
الإنتساب : Dec 2021
السمعة :
0
الشكر: 1
تم شكره 25 مرات في 16 مشاركات
المعذرة اخوي
لدي داتا جرد فيو
عندما تظهر رسالة الخطأ هذه بسبب فاصلة (،) في سعر المنتج
أو أي مشكلة تظهر عند إدخال البيانات
عند تعديل الخطأ والطباعة
تظهر المنتجات بشكل متكرر في الجدول
أريد كود عند ظهور أي مشكلة يتوقف مثل Exit Sub
ويحدد له سبب المشكلة
المشاركات : 111
المواضيع 34
الإنتساب : Dec 2021
السمعة :
0
الشكر: 1
تم شكره 25 مرات في 16 مشاركات
13-09-23, 01:26 PM
(آخر تعديل لهذه المشاركة : 13-09-23, 01:34 PM {2} بواسطة 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