اضافة سطر جديد - نسخة قابلة للطباعة

كود :

 '============ ادراج الاصناف المتعددة في شاشة المشتريات =================

        If DataGridView1(0, DataGridView1.CurrentRow.Index).Selected = True Then

            For I = 0 To BUYBILL.DataGridView1.Rows.Count - 1

                If BUYBILL.DataGridView1.Rows(I).Cells(0).Value = DataGridView1.CurrentRow.Cells(1).Value Then

                    BUYBILL.DataGridView1.Rows(I).Cells(4).Value += 1

                    ' MessageBox.Show("تم إدراج الصناف مسبقا", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

                    BUYBILL.CALC()

                    Exit Sub



                End If



            Next

            Dim CODE_ As Integer

            CODE_ = BUYBILL.DataGridView1.Rows.Count - 1



            '==== الاضافة =====

            BUYBILL.DataGridView1.Rows.Add()



            BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(0).Value = DataGridView1.CurrentRow.Cells(1).Value

            BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(1).Value = DataGridView1.CurrentRow.Cells(2).Value

            BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(2).Value = DataGridView1.CurrentRow.Cells(4).Value

            BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(3).Value = DataGridView1.CurrentRow.Cells(5).Value

            BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(7).Value = DataGridView1.CurrentRow.Cells(6).Value



            BUYBILL.DataGridView1.Rows(BUYBILL.DataGridView1.Rows.Count - 1).Cells(4).Value = 1

            BUYBILL.CALC()

        End If

كود :

'====الادخال قيود

        If IMPORTERNAME.SelectedIndex < 0 Then

            MessageBox.Show("يرجي ادخال اسم المورد", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

            IMPORTERNAME.Select()

            Exit Sub

        End If

        If BUYTYPE.SelectedIndex < 0 Then

            MessageBox.Show("يرجي اختيار نوع الفاتورة", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

            BUYTYPE.Select()

            Exit Sub

        End If

        If DataGridView1.Rows.Count = 0 Then

            MessageBox.Show("لاتوجد اصناف لحفظها", "رسالة تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Error)

            Exit Sub

        End If

        '====================حفظ راس فاتورة=============== 

        Dim DT As New DataTable

        Dim DA As New SqlDataAdapter("select *from buybill where buycode='" & BUYCODE.Text & "'", sqlcon)

        DA.Fill(DT)

        If DT.Rows.Count > 0 Then

            BUYCODE.Text = CODE_GENE("BUYBILL", "ID") + 1

        Else

            Dim DR = DT.NewRow

            DR!buycode = BUYCODE.Text

            DR!buytype = BUYTYPE.Text

            DR!importername = IMPORTERNAME.Text

            DR!notes = NOTES.Text

            DR!buydate = BUYDATE.Value

            DR!total = Convert.ToDecimal(TOTAL.Text)

            DR!discound = Convert.ToDecimal(DISCOUND.Text)

            DR!totalarabic = TOTALARABIC.Text

            DR!totalqty = Val(TOTALQTY.Text)

            DR!buyuser = BUYUSER.Text

            DT.Rows.Add(DR)

            Dim SAVE As New SqlCommandBuilder(DA)

            DA.Update(DT)

            MessageBox.Show("تم حفظ عملية حفظ فاتورة المشتريات بنجاح", "رسالة تاكيد", MessageBoxButtons.OK, MessageBoxIcon.Information)





        End If