Public Class LATIHAN 037_46109056

    Dim ASYH As New DataTable
    Dim ODC As New OleDb.OleDbCommand
    Dim ERRY As New ByIskandar.CariKeDataBaseByIskandar
    Dim DAT As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ERRY")
    Private Sub LATIHAN037_46109056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim DIA As New OleDb.OleDbDataAdapter
        DIA = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & NOTRANS_056.Text & "'", DAT)
        ASYH.Rows.Clear()
        DIA.Fill(ASYH)
        DIA.Dispose()

        Dim dc(1) As DataColumn
        dc(0) = ASYH.Columns("kodebarang")
        ASYH.PrimaryKey = dc

        DGV_056.DataSource = ASYH
    End Sub

    Private Sub ERr()
        Dim ERr1 As Integer = 0
        For Each ERr2 As DataRow In ASYH.Rows
            ERr1 += ERr2("JUMLAH")
        Next
        NOTOT_056.Text = ERr1
    End Sub

    Private Sub NOUN_056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOUN_056.TextChanged
        NOJUM_056.Text = Val(NOUN_056.Text) * Val(NOHR_056.Text)
    End Sub

    Private Sub NOKB_056_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles NOKB_056.Leave
        If NOKB_056.Text.Length = 0 Then
            Exit Sub
        End If
        ERRY.AturPencarianDataBase("barang", "kodebarang", NOKB_056.Text, 1, DAT)
        If ERRY.JumlanBaris > 0 Then
            NOKB_056.Text = ERRY.DataTablenya.Rows(0).Item("KODEBARANG")
            NONB_056.Text = ERRY.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang itu tidak ada..")
            Exit Sub
        End If
    End Sub

    Private Sub NOKB_056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOKB_056.TextChanged
        NONB_056.Text = ""
        NOUN_056.Text = ""
        NOHR_056.Text = ""
    End Sub

    Private Sub TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH.Click
        If NOKB_056.Text.Length = 0 Then
            MsgBox("Isi rong itu Kode Barang na..")
            Exit Sub
        End If

        If Val(NOUN_056.Text) = 0 Then
            MsgBox("Isi rong itu Unit na..")
            Exit Sub
        End If

        If Val(NOHR_056.Text) = 0 Then
            MsgBox("Isi rong itu Harga na..")
            Exit Sub
        End If

        Dim dr As DataRow
        dr = ASYH.Rows.Find(NOKB_056.Text)
        If dr Is Nothing Then
            dr = ASYH.NewRow
            dr("KODEBARANG") = NOKB_056.Text
            dr("NAMABARANG") = NONB_056.Text
            dr("UNIT") = Val(NOUN_056.Text)
            dr("HARGA") = Val(NOHR_056.Text)
            dr("JUMLAH") = Val(NOJUM_056.Text)

            ASYH.Rows.Add(dr)

            NOKB_056.Text = ""
            NOUN_056.Text = ""
            NOHR_056.Text = ""

        Else
            MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
        End If
        ERr()
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        If NOTRANS_056.Text.Length = 0 Then
            MsgBox("Isi rong No Transaksi na..")
            Exit Sub
        End If

        If NOJT_056.Text.Length = 0 Then
            MsgBox("isi rong Jenis Transaksi na..")
            Exit Sub
        End If

        If ASYH.Rows.Count = 0 Then
            MsgBox("MNOTRANS_056f..Isi rong itu datatable na..")
            Exit Sub
        End If

        ERRY.AturPencarianDataBase("mastertransaksi", "notrans", NOTRANS_056.Text, 1, DAT)
        If ERRY.JumlanBaris > 0 Then
            MsgBox("Adami no trans seperti itu...")
            Exit Sub
        End If

        ODC = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanNOHR_056altransaksi, jenistransaksi) values ('" & NOTRANS_056.Text & "',#" & DTP_056.Value.Month & "/" & DTP_056.Value.Day & "/" & DTP_056.Value.Year & "#,'" & NOJT_056.Text & "')", DAT)
        DAT.Open()
        ODC.ExecuteNonQuery()
        DAT.Close()

        For Each x As DataRow In ASYH.Rows
            ODC = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NOTRANS_056.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", DAT)
            DAT.Open()
            ODC.ExecuteNonQuery()
            DAT.Close()
        Next
        ODC.Dispose()

        NOTRANS_056.Text = ""
        NOJT_056.Text = ""

        ASYH.Rows.Clear()
        ERr()
    End Sub
End Class



Public Class LATIHAN 038_46109056

    Dim ERRY As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet oledb:database Password=ERRY")
    Dim ASYH As New DataTable
    Dim DATA As DataRow
    Private Sub LATIHAN038_46109056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ADAP As New OleDb.OleDbDataAdapter
        ADAP = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NOTRANS_056.Text & "'", ERRY)
        ADAP.Fill(ASYH)
        ADAP.Dispose()

        Dim dataPrimary(1) As DataColumn
        dataPrimary(0) = ASYH.Columns("KODEBARANG")
        ASYH.PrimaryKey = dataPrimary
        DGV1_056.DataSource = ASYH

    End Sub

    Private Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each Z As DataRow In ASYH.Rows
            TOT = TOT + Z("JUMLAH")
        Next
        NOTOT_056.Text = TOT

    End Sub

    Private Sub NOKB_056_LEAVE(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOKB_056.Leave

        If NOKB_056.Text.Length = 0 Then
            Exit Sub
        End If

        Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
        Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", NOKB_056.Text, 1, ERRY)
        If Pencari.JumlanBaris > 0 Then
            NOKB_056.Text = Pencari.DataTablenya.Rows(0).Item("KODEBARANG")
            NONB_056.Text = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
        Else
            MsgBox("Kode barang tersebut tidak ada")
            If LATIHAN383940_46109056.ShowDialog = Windows.Forms.DialogResult.OK Then
                NOKB_056.Text = Latihan383940_46109056.DGV1_056.CurrentRow.Cells("KodeBarang").Value
                NONB_056.Text = Latihan383940_46109056.DGV1_056.CurrentRow.Cells("NamaBarang").Value
            Else
                NOKB_056.Text = ""
            End If
        End If
    End Sub

    Private Sub NOKB_056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOKB_056.TextChanged
        NONB_056.Text = ""
        NOUN_056.Text = ""
        NOHR_056.Text = ""
    End Sub

    Private Sub NOUN_056_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NOUN_056.TextChanged
        NOJM_056.Text = Val(NOUN_056.Text) * Val(NOHR_056.Text)
    End Sub
    Private Sub TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH.Click

        If NOKB_056.Text.Length = 0 Then
            MsgBox("Kode barang sudah ada")
            Exit Sub
        End If

        If NONB_056.Text.Length = 0 Then
            MsgBox("Nama barang sudah ada")
        End If

        If Val(NOUN_056.Text) = 0 Then
            MsgBox("Masukkan unit barang")
            Exit Sub
        End If

        If Val(NOHR_056.Text) = 0 Then
            MsgBox("Masukkan harga barang barang")
            Exit Sub
        End If

        DATA = ASYH.Rows.Find(NOKB_056.Text)

        If DATA Is Nothing Then
            DATA = ASYH.NewRow
            DATA("KODEBARANG") = NOKB_056.Text
        Else
            MsgBox("Maaf kodebarang sudah ada")
            Exit Sub
        End If


        DATA = ASYH.NewRow
        DATA("KODEBARANG") = NOKB_056.Text
        DATA("NAMABARANG") = NONB_056.Text
        DATA("UNIT") = NOUN_056.Text
        DATA("HARGA") = NOHR_056.Text
        DATA("JUMLAH") = NOJM_056.Text

        ASYH.Rows.Add(DATA)

        NOKB_056.Text = ""
        NONB_056.Text = ""
        NOUN_056.Text = ""
        NOHR_056.Text = ""

        TOTALJUMLAH()
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click

        If NOTRANS_056.Text.Length = 0 Then
            MsgBox("No. transaksi sudah ada")
            Exit Sub
        End If

        If NOJT_056.Text.Length = 0 Then
            MsgBox("Jenis transaksi sudah ada")
            Exit Sub
        End If


        If ASYH.Rows.Count = 0 Then
            MsgBox("Jumlah baris tidak terisi")
            Exit Sub
        End If


        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NOTRANS_056.Text, 1, ERRY)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data tersebut sudah ada")
            Exit Sub
        End If


        Dim ODC As New OleDb.OleDbCommand
        ODC = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NOTRANS_056.Text & "', #" & NOTGL_056.Value.Month & "/" & NOTGL_056.Value.Day & "/" & NOTGL_056.Value.Year & "#, '" & NOJT_056.Text & "')", ERRY)
        ERRY.Open()
        ODC.ExecuteNonQuery()
        ERRY.Close()


        For Each Z As DataRow In ASYH.Rows
            ODC = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NOTRANS_056.Text & "','" & Z("KODEBARANG") & "'," & Z("UNIT") & ", " & Z("HARGA") & ")", ERRY)
            ERRY.Open()
            ODC.ExecuteNonQuery()
            ERRY.Close()
            ODC.Dispose()
        Next

        NOTRANS_056.Text = ""
        NOJT_056.Text = ""
        NOJM_056.Text = ""

        ASYH.Rows.Clear()

        TOTALJUMLAH()

    End Sub

End Class




Public Class LATIHAN 039_46109056

    Dim ERRY As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;jet oledb:database Password=ERRY")

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        If NOTRANS_056.Text.Length = 0 Then
            MsgBox("No. transaksi sudah ada nah!!! GANTIQI....")
            Exit Sub
        End If

        If NOJTR_056.Text.Length = 0 Then
            MsgBox("Jenis Transtaksi itu sudah ada nah !!! GANTIQI....")
            Exit Sub
        End If

        If DGV1_056.Rows.Count = 0 Then
            MsgBox("Jumlah baris tidak terisi")
            Exit Sub
        End If

        Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
        pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NOTRANS_056.Text, 1, ERRY)
        If pencari.JumlanBaris > 0 Then
            MsgBox("data itu sudah ada nah !!! GANTIQI....")
            Exit Sub
        End If

        Dim ODC As New OleDb.OleDbCommand
        ODC = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NOTRANS_056.Text & "', #" & NOTGL_056.Value.Month & "/" & NOTGL_056.Value.Day & "/" & NOTGL_056.Value.Year & "#, '" & NOJTR_056.Text & "')", ERRY)
        ERRY.Open()
        ODC.ExecuteNonQuery()
        ERRY.Close()

        For Each X As DataRow In DGV1_056.Rows
            ODC = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NOTRANS_056.Text & "','" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", ERRY)
            ERRY.Open()
            ODC.ExecuteNonQuery()
            ERRY.Close()
            ODC.Dispose()
        Next

        NOTRANS_056.Text = ""
        NOJTR_056.Text = ""

        DGV1_056.Rows.Clear()

    End Sub
End Class



Public Class LATIHAN 040A_46109056

    Dim ERRY As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=ERRY")
    Dim ASYH As New DataTable
    Dim ASYH1 As New DataTable
    Dim DATA As New DataSet
    Dim ODC1 As New BindingSource
    Dim ODC2 As New BindingSource
    Public Sub ERRYaa()

        ASYH1.Rows.Clear()
        ASYH.Rows.Clear()

        Dim dt1 As New OleDb.OleDbDataAdapter
        dt1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", ERRY)
        dt1.Fill(ASYH)

        dt1 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", ERRY)
        dt1.Fill(ASYH1)

        dt1.Dispose()
    End Sub
    Private Sub LATIHAN040A_46109056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ERRYaa()


        DATA.Tables.Add(ASYH)
        DATA.Tables.Add(ASYH1)


        ASYH.TableName = "T01"
        ASYH1.TableName = "T02"


        DATA.Relations.Add(New DataRelation("X", DATA.Tables("T01").Columns("NOTRANS"), DATA.Tables("T02").Columns("NOTRANS")))


        ODC1.DataSource = DATA
        ODC1.DataMember = "T01"
        ODC2.DataSource = ODC1
        ODC2.DataMember = "X"


        DGV1_056.DataSource = ODC1
        DGV2_056.DataSource = ODC2

    End Sub
    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click

        If LATIHAN_040B_46109056.Visible = False Then
            LATIHAN_040B_46109056.Show()
        Else
            LATIHAN_040B_46109056.Activate()
        End If

        LATIHAN_040B_46109056.StatusStrip1.Text = DGV1_056.CurrentRow.Cells("NOTRANS").Value
        LATIHAN_040B_46109056.NOTRANS_056.Text = DGV1_056.CurrentRow.Cells("NOTRANS").Value
        LATIHAN_040B_46109056.NOJT_056.Text = DGV1_056.CurrentRow.Cells("JENISTRANSAKSI").Value

        LATIHAN_040B_46109056.MANIS()
        LATIHAN_040B_46109056.TOTALJUMLAH()
    End Sub

    Private Sub TAMBAH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH.Click
        If LATIHAN_040B_46109056.Visible = False Then
            LATIHAN_040B_46109056.Show()
        Else
            LATIHAN_040B_46109056.Activate()
        End If

        LATIHAN_040B_46109056.StatusStrip1.Text = "-"
        LATIHAN_040B_46109056.NOTRANS_056.Text = ""
        LATIHAN_040B_46109056.NOJT_056.Text = ""

        LATIHAN_040B_46109056.MANIS()
        LATIHAN_040B_46109056.TOTALJUMLAH()

    End Sub

    Private Sub HAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS.Click
        Dim T As New OleDb.OleDbCommand
        T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DGV1_056.CurrentRow.Cells("NOTRANS").Value & "'", ERRY)
        ERRY.Open()
        T.ExecuteNonQuery()
        ERRY.Close()

        T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DGV1_056.CurrentRow.Cells("NOTRANS").Value & "'", ERRY)
        ERRY.Open()
        T.ExecuteNonQuery()
        ERRY.Close()

        T.Dispose()

        ERRYaa()
    End Sub

End Class



Public Class LATIHAN_040B_46109056

    Dim ERRY As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=ERRY")
    Dim DATA As New DataTable

    Public Sub MANIS()
        Dim X As New OleDb.OleDbDataAdapter
        X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NOTRANS_056.Text & "'", ERRY)
        DATA.Rows.Clear()
        X.Fill(DATA)
    End Sub

    Private Sub LATIHAN_040B_46109056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dataPrimary(1) As DataColumn
        dataPrimary(0) = DATA.Columns("NOTRANS")
        DATA.PrimaryKey = dataPrimary

        DGV_056.DataSource = DATA

        TOTALJUMLAH()
    End Sub
    Public Sub TOTALJUMLAH()
        Dim TOT As Double = 0
        For Each x As DataRow In DATA.Rows
            TOT = TOT + x("JUMLAH")
        Next
        NOTOT_056.Text = TOT
    End Sub
    Private Sub DGV_056_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_056.CellContentClick

        If DGV_056.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
            DGV_056.CurrentRow.Cells("NAMABARANG").Value = ""
            DGV_056.CurrentRow.Cells("UNIT").Value = 0
            DGV_056.CurrentRow.Cells("HARGA").Value = 0
            DGV_056.CurrentRow.Cells("JUMLAH").Value = 0

            Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
            Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DGV_056.CurrentRow.Cells("KODEBARANG").Value, 1, ERRY)

            If Pencari.JumlanBaris > 0 Then
                DGV_056.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
            Else
                DGV_056.CurrentRow.Cells("KODEBARANG").Value = ""
                If Latihan383940_46109056.ShowDialog = Windows.Forms.DialogResult.OK Then
                    DGV_056.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109056.DGV1_056.CurrentRow.Cells("KODEBARANG").Value
                    DGV_056.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109056.DGV1_056.CurrentRow.Cells("NAMABARANG").Value
                End If
            End If

        ElseIf DGV_056.Columns(e.ColumnIndex).Name = "UNIT" Or DGV_056.Columns(e.ColumnIndex).Name = "HARGA" Then

            DGV_056.CurrentRow.Cells("JUMLAH").Value = DGV_056.CurrentRow.Cells("UNIT").Value * DGV_056.CurrentRow.Cells("HARGA").Value
        End If

        TOTALJUMLAH()
    End Sub

    Private Sub Button1_Button2()
        If NOTRANS_056.Text.Length = 0 Then
            MsgBox("Maaf, Nomor transaksi harus diisi dulu")
            Exit Sub
        End If

        If NOJT_056.Text.Length = 0 Then
            MsgBox("Maaf, Jenis transaksi harus diisi dulu")
            Exit Sub
        End If

        If Data.Rows.Count() = 0 Then
            MsgBox("Maaf, Proses tidak dapat dilanjutkan")
            Exit Sub
        End If

        If StatusStrip1.Text <> NOTRANS_056.Text Then
            Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
            pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NOTRANS_056.Text, 1, ERRY)
            If pencari.JumlanBaris > 0 Then
                MsgBox("Nomor transaksi sudah ada")
                Exit Sub
            End If
        End If

        Dim T As New OleDb.OleDbCommand
        T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NOTRANS_056.Text & "', #" & NOTGL_056.Value.Month & "/" & NOTGL_056.Value.Day & "/" & NOTGL_056.Value.Year & "#, '" & NOJT_056.Text & "')", ERRY)

        ERRY.Open()

        T.ExecuteNonQuery()

        ERRY.Close()


        For Each X As DataRow In DATA.Rows

            T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NOTRANS_056.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", ERRY)
            ERRY.Open()
            T.ExecuteNonQuery()
            ERRY.Close()
            T.Dispose()
        Next

        StatusStrip1.Text = "-"
        NOTRANS_056.Text = ""
        NOJT_056.Text = ""

        DATA.Rows.Clear()

        TOTALJUMLAH()

        LATIHAN040A_46109056.ERRYaa()

    End Sub

    Private Sub EDIT_46109056()
        If NOTRANS_056.Text.Length = 0 Then
            MsgBox("Maaf, Nomor transaksi harus diisi dulu nah !!!")
            Exit Sub
        End If

        If NOJT_056.Text.Length = 0 Then
            MsgBox("Maaf, Jenis transaksi harus diisi dulu nah !!!")
            Exit Sub
        End If

        If DATA.Rows.Count() = 0 Then
            MsgBox("Maaf, Proses tidak dapat dilanjutkan gang....")
            Exit Sub
        End If

        If StatusStrip1.Text <> NOTRANS_056.Text Then
            Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
            pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NOTRANS_056.Text, 1, ERRY)
            If pencari.JumlanBaris > 0 Then
                MsgBox("Nomor transaksi sudah ada")
                Exit Sub
            End If
        End If

        Dim T As New OleDb.OleDbCommand
        T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & NOTRANS_056.Text & "'", ERRY)
        ERRY.Open()
        T.ExecuteNonQuery()
        ERRY.Close()

        T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NOTRANS_056.Text & "', #" & NOTGL_056.Value.Month & "/" & NOTGL_056.Value.Day & "/" & NOTGL_056.Value.Year & "#, '" & NOJT_056.Text & "')", ERRY)
        ERRY.Open()
        T.ExecuteNonQuery()
        ERRY.Close()

        T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NOTRANS_056.Text & "'", ERRY)
        ERRY.Open()
        T.ExecuteNonQuery()
        ERRY.Close()


        For Each XX As DataRow In DATA.Rows

            T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NOTRANS_056.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", ERRY)
            ERRY.Open()
            T.ExecuteNonQuery()
            ERRY.Close()
            T.Dispose()
        Next

        StatusStrip1.Text = "-"
        NOTRANS_056.Text = ""
        NOJT_056.Text = ""

        DATA.Rows.Clear()

        TOTALJUMLAH()
        LATIHAN040A_46109056.ERRYaa()
    End Sub

    Private Sub SIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN.Click
        If StatusStrip1.Text = "-" Then
            Button1_Button2()
        Else
            EDIT_46109056()
        End If
    End Sub

End Class