تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
من فظلكم كود حذف فاتورة
#1
السلام عليكم وجدت مشروع على النت وانا بصدد التعديل عليه لكني توقفت عند هذه النقطة وهي كيفية حذف فاتورة مبيعات بعد الحفظ يعني بعدما نقصت الكمية من المخزون ياريت تساعدوني بارك الله فيكم 
كود الحفظ هو كالتالي :
كود :
Private Sub BtnSave_Click(sender As System.Object, e As System.EventArgs) Handles BtnSave.Click
       Total.Text = Val(Total.Text) + Val(DiscountTotal.Text)
       Insert_Sale_Tbl(Sale_ID.Text, Sale_Date.Value, Inv_Type.Text, SalesMan.Text, Cus_ID.Text, Item_Count.Text, Total.Text, TaxValue.Text, TaxTotal.Text, DiscountValue.Text, DiscountTotal.Text, FinalTotal.Text, Paid.Text, UnPaid.Text)
       Insert_Sale_Details_Tbl()
       UpdateStore()
       Update_Cus_Balance()
       Insert_Cus_Move_Tbl(Sale_Date.Value, Cus_ID.Text, "فاتورة مبيعات", FinalTotal.Text, Paid.Text, UnPaid.Text, SalesMan.Text)
   End Sub
كود :
Public Sub Insert_Sale_Details_Tbl()
       For i As Integer = 0 To dgvSale.Rows.Count - 1

           Dim SaleID As Integer = Integer.Parse(Sale_ID.Text)
           Dim Prd_ID As Integer = Integer.Parse(dgvSale.Rows(i).Cells(0).Value)
           Dim SalePrice As Decimal = Decimal.Parse(dgvSale.Rows(i).Cells(4).Value)
           Dim Qty As Integer = Integer.Parse(dgvSale.Rows(i).Cells(5).Value)
           Dim TotalAmount As Decimal = Decimal.Parse(dgvSale.Rows(i).Cells(6).Value)

           Dim Cmd As New SqlCommand
           With Cmd
               .Connection = Con
               .CommandType = CommandType.Text
               .CommandText = "Insert Into sale_Details_Tbl ( Sale_ID,Prd_ID,SalePrice,Qty,TotalAmount)values(@Sale_ID,@Prd_ID,@SalePrice,@Qty,@TotalAmount)"
               .Parameters.Clear()
               .Parameters.AddWithValue("@Sale_ID", SqlDbType.Int).Value = SaleID
               .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = Prd_ID
               .Parameters.AddWithValue("@SalePrice", SqlDbType.Decimal).Value = SalePrice
               .Parameters.AddWithValue("@Qty", SqlDbType.Int).Value = Qty
               .Parameters.AddWithValue("@TotalAmount", SqlDbType.Decimal).Value = TotalAmount
           End With
           If Con.State = 1 Then Con.Close()
           Con.Open()
           Cmd.ExecuteNonQuery()
           Con.Close()

           Cmd = Nothing

       Next
       MsgBox("تم إضافة فاتورة المبيعات بنجاح ", MsgBoxStyle.Information, "حفظ")
   End Sub
كود :
Public Sub UpdateStore()
       For i As Integer = 0 To dgvSale.Rows.Count - 1
           Dim cmd1 As New SqlCommand("select * from Store_Tbl where Prd_ID =@Prd_ID ", Con)
           cmd1.Parameters.Clear()
           cmd1.Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = dgvSale.Rows(i).Cells(0).Value
           Dim dt As New DataTable
           Dim adp As New SqlDataAdapter(cmd1)
           adp.Fill(dt)
           If dt.Rows.Count > 0 Then
               Dim Cmd2 As New SqlCommand
               With Cmd2
                   .Connection = Con
                   .CommandType = CommandType.Text
                   .CommandText = "Update Store_Tbl Set Qty = Qty - " & dgvSale.Rows(i).Cells(5).Value & " Where Prd_ID = @Prd_ID"
                   .Parameters.Clear()
                   .Parameters.AddWithValue("@Prd_ID", SqlDbType.Int).Value = dgvSale.Rows(i).Cells(0).Value
               End With
               If Con.State = 1 Then Con.Close()
               Con.Open()
               Cmd2.ExecuteNonQuery()
               Con.Close()
               Cmd2 = Nothing

           End If
       Next
       MsgBox("تم تعديل الكميات  في المستودع بنجاح", MsgBoxStyle.Information, "تعديل")
   End Sub
كود :
Public Sub Update_Cus_Balance()

       Dim Cmd2 As New SqlCommand
       With Cmd2
           .Connection = Con
           .CommandType = CommandType.Text
           .CommandText = "Update Customer_Tbl Set Onhim = Onhim + " & UnPaid.Text & " Where Cus_ID = @Cus_ID"
           .Parameters.Clear()
           .Parameters.AddWithValue("@Cus_ID", SqlDbType.Int).Value = Cus_ID.Text
       End With
       If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd2.ExecuteNonQuery()
       Con.Close()
       Cmd2 = Nothing

       'MsgBox(".......", MsgBoxStyle.Information, "حفظ")
   End Sub
------------------------
منكم أتعلم
------------------------

الرد
تم الشكر بواسطة:
#2
وضح سؤالك تاني من فضك

(كيفية حذف فاتورة مبيعات بعد الحفظ يعني بعدما نقصت الكمية من المخزون!!؟)
الرد
تم الشكر بواسطة: sofiane-phy , sofiane-phy
#3
كود :
If MsgBox(" هل تريد بالفعل حذف السجل المحدد ؟" & "" & vbCrLf & vbCrLf & "", vbExclamation + vbYesNo, tit) = vbNo Then
                       Exit Sub
                   Else
Con.Open()
   Dim SavInto As New SqlCommand
                               SavInto.Connection = Con
                               SavInto.CommandType = CommandType.Text
                               SavInto.CommandText = "dalete from tap_name WHERE id=" & Val(DataGridView1.Rows(DataGridView1.CurrentRow.Index).Cells(0).Value) & " "
                               SavInto.ExecuteNonQuery()
     Con.Close()
End If
الرد
تم الشكر بواسطة: sofiane-phy , عبد العزيز البسكري


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارجو المساعدة في كود حذف فاتورة بيع sofiane-phy 1 135 11-10-20, 12:12 AM
آخر رد: محمد كريّم
  مساعدة من فظلكم خطأ عند الحفظ sofiane-phy 2 144 01-10-20, 06:06 PM
آخر رد: sofiane-phy
  مساعدة من فظلكم خطأ عند الحفظ sofiane-phy 0 107 01-10-20, 05:28 PM
آخر رد: sofiane-phy
  من فظلكم رابط تحميل مباشر لبرنامج visual studio 2017 sofiane-phy 13 1,000 08-08-20, 12:43 PM
آخر رد: sofiane-phy
  [VB.NET] طباعة فاتورة كريستال محمد القطيبي 0 215 01-05-20, 01:59 AM
آخر رد: محمد القطيبي
  سؤال سريع : كيف يمكن اضافة كمية ( +1 ) الى صنف موجود مسبقا في فاتورة AwsEsam 9 542 30-04-20, 02:25 AM
آخر رد: aljzazy
  [VB.NET] كيفية تحديث الكمية المخزنة عند حفظ فاتورة جديدة باستخدام ACCESS AwsEsam 2 325 29-04-20, 12:41 AM
آخر رد: atefkhalf2004
  فاتورة المبيعات الفورية عبد العزيز البسكري 7 460 10-04-20, 10:28 PM
آخر رد: aljzazy
  [VB.NET] طباعة فاتورة مبيعات علاء الكبابي 0 372 08-02-20, 04:06 PM
آخر رد: علاء الكبابي
  محتاج كود اخفاء واظهار الزر من فظلكم sofiane-phy 5 752 15-01-20, 01:29 PM
آخر رد: mohammed drem

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم