Imports System.Data.Odbc
Public Class Retur
    Private Sub Retur_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call koneksi()
        Call panggilPelanggan()
        Call faktur()
        Ttanggalretur.Text = Format(Today, "yyyy-MM-dd")
        Tnamacustomer.Text = Format(Today, "yyyy-MM-dd")
        Tnamacustomer.Clear()
    End Sub

    Sub bersihkan()
        Tnomorfaktur.Clear()
        Ttanggalbeli.Clear()
        Tnamacustomer.Clear()
        Ttotalbarang.Clear()
        ComboBox1.Text = ""
        DGV.Rows.Clear()
    End Sub

    Sub panggilPelanggan()
        Call koneksi()
        cmd = New OdbcCommand("select * from customer", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read()
            ComboBox1.Items.Add(dr.Item(0))
        Loop
    End Sub
    Sub faktur()
        Call koneksi()
        cmd = New OdbcCommand("select nomor_retur from retur order by nomor_retur desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            Tnomorretur.Text = Format(Today, "yyMMdd") + "001"
        Else
            If Microsoft.VisualBasic.Left(dr(0), 6) = Format(Today, "yyMMdd") Then
                Tnomorretur.Text = dr(0) + 1
            Else
                Tnomorretur.Text = Format(Today, "yyMMdd") + "001"
            End If
        End If

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Call koneksi()
        cmd = New OdbcCommand("select * from customer where id_customer='" & ComboBox1.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows Then
            Tnamacustomer.Text = dr!nama_customer
        End If
    End Sub

    Private Sub Tnomorfaktur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Tnomorfaktur.KeyPress
        Tnomorretur.MaxLength = 5
        If e.KeyChar = Chr(13) Then
            Ttanggalbeli.Focus()

            Call koneksi()
            cmd = New OdbcCommand("select * from transaksi_penjualan where nomor_faktur_jual='" & Tnomorfaktur.Text & "'", conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows Then
                On Error Resume Next
                Ttanggalbeli.Text = dr.Item(1)
                ComboBox1.Text = dr.Item(2)
            End If
        End If
    End Sub

    Private Sub DGV_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV.CellEndEdit

        'untuk memanggil dan menampilkan data yg ada di tabel barang
        'dan di eksekusi di dalam data grid view

        If e.ColumnIndex = 0 Then
            '======================== prevent code yang sama
            For ba As Integer = 0 To DGV.RowCount - 1
                For bb As Integer = ba + 1 To DGV.RowCount - 1
                    If DGV.Rows(bb).Cells(0).Value = DGV.Rows(ba).Cells(0).Value Then
                        DGV.Rows(ba).Cells(3).Value = DGV.Rows(ba).Cells(3).Value + 1

                        Call hitungitem()
                        DGV.Rows.RemoveAt(bb)
                        'SendKeys.Send("{down}")
                        Exit Sub
                    End If
                Next
            Next
            Call koneksi()
            cmd = New OdbcCommand("select * from barang where id_barang='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If dr.HasRows Then
                DGV.Rows(e.RowIndex).Cells(1).Value = dr("nama_barang")
                DGV.Rows(e.RowIndex).Cells(2).Value = dr("harga_jual")
                DGV.Rows(e.RowIndex).Cells(3).Value = 1
            Else
                MsgBox("Kode barang tidak terdaftar")
                DGV.Rows.Remove(DGV.CurrentRow)
                SendKeys.Send("{down}")
                DGV.Rows(e.RowIndex).Cells(0).Value = ""
            End If
        End If
        '===================================
        If e.ColumnIndex = 3 Then 'jumlah
            '=================== jumlah jual <= stok
            Call koneksi()
            cmd = New OdbcCommand("select * from barang where id_barang='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If DGV.Rows(e.RowIndex).Cells(3).Value > dr("stok") Then
                MsgBox("Stok hanya ada " & dr("stok") & "")
                DGV.Rows(e.RowIndex).Cells(3).Value = dr("stok")
                Exit Sub
            End If
        End If
        If e.ColumnIndex = 4 Then 'jumlah
            '=================== jumlah jual <= stok
            Call koneksi()
            cmd = New OdbcCommand("select * from detail_retur where kode_barang='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
            dr = cmd.ExecuteReader
            dr.Read()
            If DGV.Rows(e.RowIndex).Cells(4).Value > DGV.Rows(e.RowIndex).Cells(3).Value Then
                MsgBox("jumlah Retur lebih dari Jumlah Beli")
                DGV.Rows(e.RowIndex).Cells(3).Value = DGV.Rows(e.RowIndex).Cells(3).Value
                DGV.Rows(e.RowIndex).Cells(4).Value = ""
                Exit Sub
                Call hitungitem()
                Exit Sub
            End If
            '=============================
            Try 'jika benar
            Catch ex As Exception
                MsgBox("Harus angka")
                SendKeys.Send("{up}")
                DGV.Rows(e.RowIndex).Cells(3).Value = 1
            End Try
        End If
        Call hitungitem()
    End Sub
    Sub hitungitem()
        'hitung berapa jumlah semua item yg di beli
        Dim x As Double
        For baris As Integer = 0 To DGV.RowCount - 1
            '0=0+30000
            '30000=30000+20000
            x = x + DGV.Rows(baris).Cells(4).Value
        Next
        Ttotalbarang.Text = x
        '50000
    End Sub

    Private Sub DGV_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DGV.KeyDown
        On Error Resume Next
        If e.KeyCode = Keys.Delete Or e.KeyCode = Keys.Escape Then
            DGV.Rows.Remove(DGV.CurrentRow)
            Call hitungitem()
        End If
        If e.KeyCode = Keys.Enter Then
            Tnomorretur.Clear()
            Tnomorretur.Focus()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "" Or Tnomorfaktur.Text = "" Or Tnomorretur.Text = "" Then
            MsgBox("Transaksi belum lengkap")
            Exit Sub
        End If

        '2 simpan ke tabel penjualan
        Call koneksi()
        Dim simpan As String = "insert into retur values ('" & Tnomorretur.Text & "','" & Format(DateValue(Ttanggalretur.Text), "yy-MM-dd") & "','" & Tnomorfaktur.Text & "', '" & Format(DateValue(Ttanggalbeli.Text), "yy-MM-dd") & "', '" & ComboBox1.Text & "','" & Ttotalbarang.Text & "')"
        cmd = New OdbcCommand(simpan, conn)
        cmd.ExecuteNonQuery()

        '3 Simpan ketabel detailjual
        For baris As Integer = 0 To DGV.RowCount - 2
            Dim simpandetail As String = "insert into detail_retur values ('" & Tnomorretur.Text & "','" & DGV.Rows(baris).Cells(0).Value & "','" & DGV.Rows(baris).Cells(1).Value & "', '" & DGV.Rows(baris).Cells(2).Value & "', '" & DGV.Rows(baris).Cells(3).Value & "','" & DGV.Rows(baris).Cells(4).Value & "','" & DGV.Rows(baris).Cells(5).Value & "')"
            cmd = New OdbcCommand(simpandetail, conn)
            cmd.ExecuteNonQuery()
            MsgBox("Berhasil")

        Next

        Call faktur()
        Call bersihkan()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call bersihkan()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class