Scribd
Upload
24 views6 pages

Scrip Program Pembelian 1

Uploaded by

Budiawan Miun
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
24 views6 pages

Scrip Program Pembelian 1

Uploaded by

Budiawan Miun
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 6

Imports System.

IO
Imports System.Data
Imports System.Data.OleDb
Imports MySql.Data.MySqlClient
Imports System.Text.RegularExpressions

Public Class Frmpembelianedit


Dim kodecek As Integer = 0
Dim aktif As String = "Y"
Dim jttp As Integer = 0
Dim colo As New AutoCompleteStringCollection
Dim scAutoComplete As New AutoCompleteStringCollection

Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles cmdKeluar.Click
Me.Close()
End Sub

Dim jual As Integer = 0


Dim lenpanjang As Integer = 0
Dim nidisk As Integer = 0
Dim akhir As Integer = 0
Dim disk As Decimal = 0
Dim totalfaktur As Integer = 0
Dim ppn As Integer = 0
Dim meterai As Integer = 0
Dim dpp As Integer = 0
Dim HitungHarga As Integer = 0
Dim kdtr As String = "D"

Dim kdnomor As String


Dim kdbkt As String
Dim nomor As Integer = 0
Dim nobkt As Integer = 0
Dim nomortransaksi As String
Dim nomorbukti As String
Dim tgljttp As Date
Dim today As System.DateTime

Sub awal()
Me.TextBox11.Text = ""
Me.TextBox12.Text = ""
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
Me.TextBox8.Text = ""
Me.TextBox9.Text = ""
Me.TextBox10.Text = ""
DGV.Rows.Clear()
Me.cmdsimpan.Enabled = False
Me.btncetak.Enabled = False
Me.TextBox1.Enabled = True
Me.DateTimePicker1.Enabled = False
Me.DateTimePicker3.Enabled = False
DGV.Columns(6).Visible = False
DGV.Columns(7).Visible = False
DGV.Columns(8).Visible = False
DGV.Columns(9).Visible = False
DGV.Columns(10).Visible = False
DGV.Columns(11).Visible = False
DGV.Columns(12).Visible = False
DGV.Columns(13).Visible = False
Me.DateTimePicker3.Value = DateTime.Now
Me.DateTimePicker2.Value = DateTime.Now

End Sub

Sub Bersihkan()
Me.TextBox11.Text = ""
Me.TextBox1.Text = ""
Me.TextBox2.Text = ""
Me.TextBox3.Text = ""
Me.TextBox4.Text = ""
Me.TextBox5.Text = ""
Me.TextBox6.Text = ""
Me.TextBox7.Text = ""
Me.TextBox8.Text = ""
Me.TextBox9.Text = ""
DGV.Rows.Clear()
Me.cmdsimpan.Enabled = False
Me.btncetak.Enabled = False
Me.TextBox1.Enabled = True
Me.DateTimePicker1.Enabled = False
Me.DateTimePicker3.Enabled = False
End Sub

Sub BuatKolomBaru()
DGV.Columns.Add("Barang", "Barang")
DGV.Columns.Add("Kemasan", "Kemasan")
DGV.Columns.Item(1).ReadOnly = True
DGV.Columns.Add("Harga Beli", "Harga Beli")
DGV.Columns.Item(2).ReadOnly = True
DGV.Columns.Add("Qty", "Qty")
DGV.Columns.Add("Disk1", "Disk1")
DGV.Columns.Add("Disk2", "Disk2")
DGV.Columns.Add("Disk3", "Disk3")
DGV.Columns.Add("Disk4", "Disk4")
DGV.Columns.Add("Disk5", "Disk5")
DGV.Columns.Add("Jumlah", "Jumlah")
DGV.Columns.Item(9).ReadOnly = True
'10
DGV.Columns.Add("kode", "kode")
DGV.Columns.Add("nilai", "nilai")
DGV.Columns.Add("totdisk", "totdisk")
DGV.Columns.Add("harga", "harga")
DGV.Columns.Add("qty", "qty")
'15
DGV.Columns.Add("namabarang", "namabarang")
DGV.Columns.Add("hrgbeli", "hrgbeli")
DGV.Columns.Add("hrgjual", "hrgjual")
DGV.Columns.Add("gr", "gr")
DGV.Columns.Add("d1", "d1")
'20
DGV.Columns.Add("d2", "d2")
DGV.Columns.Add("d3", "d3")
DGV.Columns.Add("d4", "d4")
DGV.Columns.Add("d5", "d5")

DGV.Columns(7).Visible = False
DGV.Columns(8).Visible = False

DGV.Columns(10).Visible = False
DGV.Columns(11).Visible = False
DGV.Columns(12).Visible = False
DGV.Columns(13).Visible = False
DGV.Columns(14).Visible = False
DGV.Columns(15).Visible = False
DGV.Columns(16).Visible = False
DGV.Columns(17).Visible = False
DGV.Columns(18).Visible = False
DGV.Columns(19).Visible = False
DGV.Columns(20).Visible = False
DGV.Columns(21).Visible = False
DGV.Columns(22).Visible = False
DGV.Columns(23).Visible = False

DGV.Columns(2).DefaultCellStyle.Format = "##,##0"
DGV.Columns(2).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(3).DefaultCellStyle.Format = "##,##0"
DGV.Columns(3).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(4).DefaultCellStyle.Format = "##,###.#0"
DGV.Columns(4).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(5).DefaultCellStyle.Format = "##,###.#0"
DGV.Columns(5).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(6).DefaultCellStyle.Format = "##,###.#0"
DGV.Columns(6).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(7).DefaultCellStyle.Format = "##,###.#0"
DGV.Columns(7).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(8).DefaultCellStyle.Format = "##,###.#0"
DGV.Columns(8).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(9).DefaultCellStyle.Format = "##,##0"
DGV.Columns(9).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight
DGV.Columns(10).DefaultCellStyle.Format = "##,##0"
DGV.Columns(10).DefaultCellStyle.Alignment =
DataGridViewContentAlignment.MiddleRight

DGV.DefaultCellStyle.ForeColor = Color.Black
DGV.RowsDefaultCellStyle.BackColor = Color.AliceBlue
DGV.AlternatingRowsDefaultCellStyle.BackColor = Color.White
Call AturLebarKolom()
End Sub

Sub AturLebarKolom()
DGV.Columns(0).Width = 340
DGV.Columns(1).Width = 120
DGV.Columns(2).Width = 120
DGV.Columns(3).Width = 100
DGV.Columns(4).Width = 80
DGV.Columns(5).Width = 80
DGV.Columns(6).Width = 80
DGV.Columns(7).Width = 80
DGV.Columns(8).Width = 80
DGV.Columns(9).Width = 120
DGV.Columns(15).Width = 100
DGV.Columns(16).Width = 120
DGV.Columns(17).Width = 50
DGV.Columns(18).Width = 100
DGV.Columns(10).Width = 100
DGV.Columns(11).Width = 100
DGV.Columns(12).Width = 100
DGV.Columns(13).Width = 100
DGV.Columns(14).Width = 100

End Sub

Private Sub Frmpembelianedit_Load(ByVal sender As Object, ByVal e As


System.EventArgs) Handles Me.Load
Me.TextBox1.Select()
DGV.Columns.Clear()
Call Bersihkan()
Call koneksi()
Call BuatKolomBaru()
DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker1.CustomFormat = "dd/MM/yyyy"
DateTimePicker2.Format = DateTimePickerFormat.Custom
DateTimePicker2.CustomFormat = "dd/MM/yyyy"
DateTimePicker3.Format = DateTimePickerFormat.Custom
DateTimePicker3.CustomFormat = "dd/MM/yyyy"
End Sub

Private Sub cmdbatal_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles cmdbatal.Click
Me.TextBox1.Select()
DGV.Columns.Clear()
Call Bersihkan()
Call koneksi()
Call BuatKolomBaru()
DateTimePicker1.Format = DateTimePickerFormat.Custom
DateTimePicker1.CustomFormat = "dd/MM/yyyy"
DateTimePicker2.Format = DateTimePickerFormat.Custom
DateTimePicker2.CustomFormat = "dd/MM/yyyy"
DateTimePicker3.Format = DateTimePickerFormat.Custom
DateTimePicker3.CustomFormat = "dd/MM/yyyy"
End Sub
Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Select Case e.KeyCode
Case Keys.Enter
If Me.TextBox1.Text = "" Then
MessageBox.Show("Nomor STPB harus diisi", "Perhatian",
MessageBoxButtons.OK, MessageBoxIcon.Warning)
Bersihkan()
Me.TextBox1.Select()
Else
kodecek = 0

Call koneksi()
Trans = conn.BeginTransaction()
Try
cmd.Transaction = Trans
cmd = New MySqlCommand("select nofkt, tglfkt, nosupp, tglsupp,
kdsp, nmsp, top, tgljttp from fktbl where nofkt='" & Me.TextBox1.Text & "'", conn)
rd = cmd.ExecuteReader
rd.Read()
If rd.HasRows Then
Me.TextBox3.Text = rd.Item("keterangan")
Me.DateTimePicker1.Text = rd.Item("tglfkt")
Me.TextBox11.Text = rd.Item("kdsp") & "-" & rd.Item("nmsp")
Me.TextBox2.Text = rd.Item("nosupp")
Me.DateTimePicker2.Text = rd.Item("tglsupp")
Me.TextBox12.Text = rd.Item("top")
Me.DateTimePicker3.Text = rd.Item("tgljttp")
kodecek = 1
End If
rd.Close()

If kodecek = 0 Then
MessageBox.Show("Nomor STPB tidak ada, silahkan coba dengan
nomor lain..!", "Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Me.TextBox1.Text = ""
Bersihkan()
Me.TextBox1.Select()
Else
' tampilgrid()
' isicustomer()
' isisales()
Me.TextBox4.Enabled = True
' Me.ComboBox1.Enabled = True
' Me.ComboBox2.Enabled = True
' Me.ComboBox1.Select()
End If
Trans.Commit()
Catch ex As Exception
If Trans IsNot Nothing Then
Trans.Rollback()
End If
MessageBox.Show("Data tidak berhasil ditarik, silakan coba
kembali..!", "Perhatian", MessageBoxButtons.OK, MessageBoxIcon.Warning)
' kosongkan()
Bersihkan()
Me.TextBox1.Select()
Exit Sub
Finally
conn.Close()
End Try
End If
End Select
End Sub

Private Sub TextBox1_PreviewKeyDown(ByVal sender As Object, ByVal e As


System.Windows.Forms.PreviewKeyDownEventArgs) Handles TextBox1.PreviewKeyDown
If e.KeyData = Keys.Tab Then
e.IsInputKey = True
End If
End Sub
End Class

You might also like