PENJUALAN,LISTBOX,DGV

Imports System.Data.OleDb

Public Class Penjualan

    Sub HitungBarang()
        Dim Hitung As Integer = 0
        For Baris As Integer = 0 To DGV.RowCount - 1
            Hitung = Hitung + DGV.Rows(Baris).Cells(3).Value
        Next
        LBLTotalBarang.Text = Hitung
    End Sub

    Sub HitungHarga()
        Dim Hitung As Integer = 0
        For Baris As Integer = 0 To DGV.RowCount - 1
            Hitung = Hitung + DGV.Rows(Baris).Cells(4).Value
        Next
        LBLTotalHarga.Text = Hitung
    End Sub

    Sub Bersihkan()
        ComboBox1.Text = ""
        LBLNamaCustomer.Text = ""
        LBLTotalBarang.Text = 0
        LBLTotalHarga.Text = 0
        TXTDibayar.Text = 0
        LBLKembali.Text = 0
        DGV.Rows.Clear()
        ComboBox1.Focus()
    End Sub

    Sub FakturOtomatis()
        cmd = New OleDbCommand("Select Faktur from tbl_penjualan order by Faktur desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            LBLFaktur.Text = Format(Today, "yyMMdd") + "0001"
        Else
            If Microsoft.VisualBasic.Left(dr.Item("Faktur"), 6) = Format(Today, "yyMMdd") Then
                LBLFaktur.Text = dr.Item("Faktur") + 1
            Else
                LBLFaktur.Text = Format(Today, "yyMMdd") + "0001"
            End If
        End If
    End Sub

    Private Sub Penjualan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call FakturOtomatis()
        LBLTanggal.Text = Format(Today, "dd-MMM-yyyy")
        Call Bersihkan()
        cmd = New OleDbCommand("Select Kode_Customer from tbl_customer", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            ComboBox1.Items.Add(dr.Item("Kode_Customer"))
        Loop

        cmd = New OleDbCommand("Select * from tbl_barang", conn)
        dr = cmd.ExecuteReader
        Do While dr.Read
            ListBox1.Items.Add(dr.Item(0) & Space(2) & dr(1))
        Loop

        da = New OleDbDataAdapter("Select * from tbl_barang", conn)
        ds = New DataSet
        da.Fill(ds)
        DGVBarang.DataSource = ds.Tables(0)
        DGVBarang.ReadOnly = True
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
        cmd = New OleDbCommand("Select * from tbl_customer where Kode_Customer='" & ComboBox1.Text & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows Then
            LBLNamaCustomer.Text = dr.Item("Nama_Customer")
        End If
    End Sub

    Private Sub BTNTutup_Click(sender As Object, e As EventArgs) Handles BTNTutup.Click
        Me.Close()
    End Sub

    Private Sub BTNBatal_Click(sender As Object, e As EventArgs) Handles BTNBatal.Click
        Call Bersihkan()
    End Sub

    Private Sub DGV_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DGV.CellEndEdit

        If e.ColumnIndex = 0 Then

            For BarisAtas As Integer = 0 To DGV.RowCount - 1
                For BarisBawah As Integer = BarisAtas + 1 To DGV.RowCount - 1

                    If DGV.Rows(BarisBawah).Cells(0).Value = DGV.Rows(BarisAtas).Cells(0).Value Then
                        'MsgBox("Kode Ini Sudah Dientri")
                        DGV.Rows(BarisAtas).Cells(3).Value = DGV.Rows(BarisAtas).Cells(3).Value + 1
                        DGV.Rows(BarisAtas).Cells(4).Value = DGV.Rows(BarisAtas).Cells(2).Value * DGV.Rows(BarisAtas).Cells(3).Value
                        Call HitungBarang()
                        Call HitungHarga()
                        SendKeys.Send("{UP}")
                        DGV.Rows(BarisBawah).Cells(0).Value = ""
                        Exit Sub
                    End If

                Next
            Next
            cmd = New OleDbCommand("Select * from tbl_barang where Kode_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.Item("Nama_Barang")
                DGV.Rows(e.RowIndex).Cells(2).Value = dr.Item("Harga_Jual")
                DGV.Rows(e.RowIndex).Cells(3).Value = 1
                DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
            Else
                MsgBox("Kode Tidak Terdaftar")
                SendKeys.Send("{down}")
                DGV.Rows(e.RowIndex).Cells(0).Value = ""
                DGV.Rows.Remove(DGV.CurrentRow)
            End If
        End If

        If e.ColumnIndex = 3 Then
            Try
                cmd = New OleDbCommand("Select * from tbl_barang where Kode_Barang='" & DGV.Rows(e.RowIndex).Cells(0).Value & "'", conn)
                dr = cmd.ExecuteReader
                dr.Read()
                If DGV.Rows(e.RowIndex).Cells(3).Value > dr.Item("Stok") Then
                    MsgBox("Stok Hanya Ada " & dr.Item("Stok") & "")
                    SendKeys.Send("{UP}")
                    DGV.Rows(e.RowIndex).Cells(3).Value = dr.Item("Stok")
                    DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
                Else
                    DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
                End If
            Catch ex As Exception
                MsgBox("Harus Angka")
                SendKeys.Send("{UP}")
                DGV.Rows(e.RowIndex).Cells(3).Value = 1
                DGV.Rows(e.RowIndex).Cells(4).Value = DGV.Rows(e.RowIndex).Cells(2).Value * DGV.Rows(e.RowIndex).Cells(3).Value
            End Try
        End If

        DGV.Columns(2).DefaultCellStyle.Format = "###,###,###"
        DGV.Columns(3).DefaultCellStyle.Format = "###,###,###"
        DGV.Columns(4).DefaultCellStyle.Format = "###,###,###"

        DGV.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        DGV.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
        DGV.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight

        Call HitungBarang()
        Call HitungHarga()
    End Sub

    Private Sub DGV_KeyPress(sender As Object, e As KeyPressEventArgs) Handles DGV.KeyPress
        On Error Resume Next
        If e.KeyChar = Chr(27) Then
            DGV.Rows.Remove(DGV.CurrentRow)
            Call HitungBarang()
            Call HitungHarga()
        End If

        If e.KeyChar = Chr(13) Then
            TXTDibayar.Focus()
        End If
    End Sub

    Private Sub TXTDibayar_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TXTDibayar.KeyPress

        If e.KeyChar = Chr(13) Then
            If Val(TXTDibayar.Text) < Val(LBLTotalHarga.Text) Then
                MsgBox("Pembayaran Kurang")
                TXTDibayar.Focus()
                Exit Sub
            ElseIf Val(TXTDibayar.Text) >= Val(LBLTotalHarga.Text) Then
                LBLKembali.Text = Val(TXTDibayar.Text) - Val(LBLTotalHarga.Text)
                BTNSimpan.Focus()
            End If
        End If

        If Not (e.KeyChar >= "0" And e.KeyChar <= "9" Or e.KeyChar = vbBack) Then
            e.Handled = True
        End If
    End Sub

    Private Sub BTNSimpan_Click(sender As Object, e As EventArgs) Handles BTNSimpan.Click

        If ComboBox1.Text = "" Or TXTDibayar.Text = 0 Then
            MsgBox("Transaksi Belum Lengkap")
            Exit Sub
        End If

        Dim SimpanPenjualan As String = "insert into tbl_penjualan values('" & LBLFaktur.Text & "','" & LBLTanggal.Text & "','" & ComboBox1.Text & "','" & LBLTotalBarang.Text & "','" & LBLTotalHarga.Text & "','" & TXTDibayar.Text & "','" & LBLKembali.Text & "','User')"
        cmd = New OleDbCommand(SimpanPenjualan, conn)
        cmd.ExecuteNonQuery()

        For Baris As Integer = 0 To DGV.RowCount - 2
            Dim SimpanDetail As String = "insert into tbl_detailjual values('" & LBLFaktur.Text & "','" & DGV.Rows(Baris).Cells(0).Value & "','" & DGV.Rows(Baris).Cells(2).Value & "','" & DGV.Rows(Baris).Cells(3).Value & "','" & DGV.Rows(Baris).Cells(4).Value & "')"
            cmd = New OleDbCommand(SimpanDetail, conn)
            cmd.ExecuteNonQuery()

            cmd = New OleDbCommand("Select * from tbl_barang where Kode_Barang ='" & DGV.Rows(Baris).Cells(0).Value & "'", conn)
            dr = cmd.ExecuteReader
            dr.Read()

            If dr.HasRows Then
                Dim KurangiStok As String = "update tbl_barang set Stok='" & dr.Item("Stok") - DGV.Rows(Baris).Cells(3).Value & "' where Kode_Barang='" & DGV.Rows(Baris).Cells(0).Value & "'"
                cmd = New OleDbCommand(KurangiStok, conn)
                cmd.ExecuteNonQuery()
            End If
        Next

        Call Bersihkan()
        Call FakturOtomatis()

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
        Dim Baris As Integer = DGV.RowCount - 1
        DGV.Rows.Add(Microsoft.VisualBasic.Left(ListBox1.Text, 5))

        For barisatas As Integer = 0 To DGV.RowCount - 1
            For barisbawah As Integer = barisatas + 1 To DGV.RowCount - 1
                If DGV.Rows(barisbawah).Cells(0).Value = DGV.Rows(barisatas).Cells(0).Value Then
                    DGV.Rows(barisatas).Cells(3).Value = DGV.Rows(barisatas).Cells(3).Value + 1
                    DGV.Rows(barisatas).Cells(4).Value = DGV.Rows(barisatas).Cells(2).Value * DGV.Rows(barisatas).Cells(3).Value
                    Call HitungBarang()
                    Call HitungHarga()
                    DGV.Rows.RemoveAt(barisbawah)
                    Exit Sub
                End If
            Next
        Next

        cmd = New OleDbCommand("Select * from tbl_barang where Kode_Barang='" & DGV.Rows(Baris).Cells(0).Value & "'", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If dr.HasRows Then
            DGV.Rows(Baris).Cells(1).Value = dr.Item("Nama_Barang")
            DGV.Rows(Baris).Cells(2).Value = dr.Item("Harga_Jual")
            DGV.Rows(Baris).Cells(3).Value = 1
            DGV.Rows(Baris).Cells(4).Value = DGV.Rows(Baris).Cells(2).Value * DGV.Rows(Baris).Cells(3).Value
        End If
    End Sub

    Private Sub DGVBarang_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles DGVBarang.CellMouseClick
        Dim Baris As Integer = DGV.RowCount - 1

        DGV.Rows.Add(DGVBarang.Rows(e.RowIndex).Cells(0).Value, DGVBarang.Rows(e.RowIndex).Cells(1).Value, DGVBarang.Rows(e.RowIndex).Cells(4).Value, 1)
        DGV.Rows(Baris).Cells(4).Value = DGV.Rows(Baris).Cells(2).Value * DGV.Rows(Baris).Cells(3).Value

        For barisatas As Integer = 0 To DGV.RowCount - 1
            For barisbawah As Integer = barisatas + 1 To DGV.RowCount - 1
                If DGV.Rows(barisbawah).Cells(0).Value = DGV.Rows(barisatas).Cells(0).Value Then
                    DGV.Rows(barisatas).Cells(3).Value = DGV.Rows(barisatas).Cells(3).Value + 1
                    DGV.Rows(barisatas).Cells(4).Value = DGV.Rows(barisatas).Cells(2).Value * DGV.Rows(barisatas).Cells(3).Value
                    Call HitungBarang()
                    Call HitungHarga()
                    DGV.Rows.RemoveAt(barisbawah)
                    Exit Sub
                End If
            Next
        Next
    End Sub
End Class