Otomatisasi Sistem Informasi Pembelian Kebutuhan ......Private Sub cmdtambah_Click() Dim brsakhr...

52

LAMPIRAN

1. Lampiran Utama

a. Struktur Organisasi Perusahaan

Mill Head

Sekretaris MBOS

Production HeadPurchasing

Head

Finance & Mill

Service HeadBusiness Head

Sales Unit

Head

MTC & Utility

Unit Head

Carton Box/

Finishing Unit

Head

Carton Sheet

Unit Head

IT Unit Head

HR & GA Unit

Head

Finance Unit

Head

Accounting

Head

QC Unit Head

PPIC Unit Head

Inner Sales

Head

Paper Tube

Unit Head

Logistik Head

53

b. Flowchart Pembelian Kebutuhan Stationery

Surat

Jalan

2

PT PURINUSA EKAPERSADA

PROSEDUR PEMBELIAN KEBUTUHAN STATIONERY

ANALYTIC FLOWCHART

BAGIAN PEMBELIAN BAGIAN GUDANG

Menerima Form

Kebutuhan Stationery

dari setiap Bagian

Form Kebutuhan

Stationery

Rekap

Stationery

sesuai anggaran

tidak ?

Mengecek

anggaran

setiap bagian

Tidak

Ya

Melakukan

konfirmasi ke

bagian

Form

Kebutuhan

Stationery

Form

Kebutuhan

Stationery

Penawaran

Harga

Pemasok

Penawaran

Harga

Penawaran

Harga

Penawaran

Harga

Rekap

Stationery

Pemasok

Surat

Jalan

1

Mengecek

Kesesuaian,

menandatangani

dan memberi

cap

Surat

Jalan

1 Surat

Jalan

2

Pemasok

Pemasok telah

mengisi harga &

menandatangani

KwitansiNota

Penjualan

Surat

Jalan

1

Pemasok

1

Merekap

Kebutuhan

Stationery

Membuat

Penawaran

Harga

Mengisi harga di

Rekap Stationery

dan Membuat POPurchase

Order

Purchase

Order

Form

Kebutuhan

Stationery

Purchase

Order

54

1

PT PURINUSA EKAPERSADA

PROSEDUR PEMBELIAN KEBUTUHAN STATIONERY

ANALYTIC FLOWCHART

BAGIAN PEMBELIAN

KwitansiNota

Penjualan

Surat

Jalan

1

Membuat

Tanda Terima

dan

ditandatangani

Tanda

TerimaKwitansi

Nota

Penjualan

Surat

Jalan

1

Pemasok

Mencetak

Rekap

Stationery

Rekap

Stationery

1

2

2

BAGIAN GUDANG

Setiap

Bagian

BAGIAN AKUNTING

1

Mengecek

kesesuaian,

dan Membuat

Voucher

Voucher

3

KASIR

3

Voucher

Bank

Menstransfer

uang

pembayaran ke

rekening

Pemasok

Membuat

Laporan

Pembayaran

Laporan

Pembayaran

Bukti

PembayaranVoucher

T

Memberikan

Cap Lunas

Voucher

4

4

Purchase

Order

Selesai

Form

Kebutuhan

Stationery

Rekap

Stationery

2

Form

Kebutuhan

Stationery

Rekap

Stationery

2

Rekap

stationery

1Kwitansi

Nota

Penjualan

Surat

Jalan

1

Purchase

OrderPenawaran

Harga

Rekap

stationery

1Kwitansi

Nota

Penjualan

Surat

Jalan

1

Purchase

OrderPenawaran

Harga

Rekap

stationery

1Kwitansi

Nota

Penjualan

Surat

Jalan

1

Purchase

OrderPenawaran

Harga

Rekap

stationery

1Kwitansi

Nota

Penjualan

Surat

Jalan

1

Purchase

OrderPenawaran

Harga

Rekap

stationery

1Kwitansi

Nota

Penjualan

Surat

Jalan

1

Purchase

OrderPenawaran

Harga

Rekap

stationery

1Kwitansi

Nota

Penjualan

Surat

Jalan

1

Purchase

OrderPenawaran

Harga

Rekap

stationery

1Kwitansi

Nota

Penjualan

Surat

Jalan

1

Purchase

OrderPenawaran

Harga

Voucher

55

c. Coding List

Kode menjalankan Form Menu Utama

Private Sub Cmddatabarang_Click() frmMenuUtama.Hide

frmdatabarang.Show

End Sub

Private Sub Cmddatauser_Click()

frmMenuUtama.Hide

frmdatauser.Show

End Sub

Private Sub cmdisipermintaanbrg_Click()

frmMenuUtama.Hide

frmInputPermintaan.Show

End Sub

Private Sub cmdctkpnwran_Click()

Sheets("PENAWARAN HARGA").Select

Range("A1:D88").Select

Call setprint

Sheets("PENAWARAN HARGA").PrintOut

End Sub

Private Sub cmdisiharga_Click()

frmMenuUtama.Hide

frminputharga.Show

End Sub

Private Sub cmdctkpo_Click()

Sheets("PURCHASE ORDER").Select

Call setprint2

Sheets("PURCHASE ORDER").PrintOut

End Sub

Private Sub cmdinputbrgmsk_Click()

frmMenuUtama.Hide

frminputbarangmasuk.Show

End Sub

Private Sub cmdkeluar_Click()

Unload Me

'perintah untuk keluar dari Excel

End Sub

Kode menjalankan Form Data Barang

Private Sub cmdedit_Click()

Sheets("Databarang").Select

brssedit = Me.txtno + 3

Cells(brssedit, 1).Select

'ActiveCell.Value = Me.txtno

ActiveCell.Offset(0, 1).Select

ActiveCell.Value = Me.txtbrg

End Sub

Private Sub cmdtambah_Click()

Dim brsakhr

'tanya apakah data no sudah ada


x = 4

Do Until Cells(x, 1) = isblank

Cells(x, 1).Select

x = x + 1

Loop

brsakhr = x - 1

brsakhr2 = x - 2

56

Cells(brsakhr2, 1).Select

no = ActiveCell.Value

Cells(brsakhr, 1).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.Value = no + 1



Sheets("rekap").Select

x = 4


Cells(x, 1).Select

x = x + 1

Loop

brsakhr = x - 1

brsakhr2 = x - 2









x = 16


Cells(x, 1).Select

x = x + 1

Loop

brsakhr = x - 1

brsakhr2 = x - 2









x = 16


Cells(x, 3).Select

x = x + 1

Loop

brsakhr = x - 1

brsakhr2 = x - 2








Sheets("Label").Select

x = 6


Cells(x, 3).Select

x = x + 1

Loop

57

brsakhr = x - 1

brsakhr2 = x - 2








End Sub


frmdatabarang.Hide

frmMenuUtama.Show

End Sub

Private Sub lstviewbrg_Click()

Me.txtno.Value = lstviewbrg.List(, 0)

Me.txtbrg.Value = lstviewbrg.List(, 1)


Cells.Find(What:=Me.txtbrg.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _

:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _

False, SearchFormat:=False).Activate

brss = ActiveCell.Row

End Sub

Private Sub UserForm_Activate()


lstviewbrg.ColumnCount = 2

With lstviewbrg

.AddItem

.List(.ListCount - 1, 0) = "Nomor"

.List(.ListCount - 1, 1) = "Nama Barang"

.ColumnWidths = 35 & ";" & 70

End With

x = 4


Cells(x, 1).Select

With lstviewbrg

.AddItem

.List(.ListCount - 1, 0) = Cells(x, 1).Value


End With

x = x + 1

Loop

End Sub

Kode menjalankan Form Data User

Private Sub cmdtambah_Click()

'Dim brsakhr

'tanya apakah data no sudah ada


Range("A1").Select

Selection.End(xlToRight).Select

Selection.End(xlToRight).Select

nomerkolom1 = ActiveCell.Value + 1

nomerkolom2 = ActiveCell.Value + 2


Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.Value = nomerkolom1


58


ActiveCell.Offset(1, -1).Select

ActiveCell.Value = Me.txtuser

alm1 = ActiveCell.Address


alm2 = ActiveCell.Address

Range(alm1 & ":" & alm2).Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Selection.Merge

With Selection


.VerticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0



.MergeCells = True

End With

With Selection

.HorizontalAlignment = xlGeneral


.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0



.MergeCells = True

End With

With Selection



.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0



.MergeCells = True

End With

Sheets("user").Select

Range("A21").Select

ActiveCell.End(xlDown).Select





End Sub


frmdatauser.Hide

59

frmMenuUtama.Show

End Sub

Private Sub cmdedit_Click()


brssedit = Me.txtuser




kolom = Me.txtklm.Value

Range("A1").Select

ActiveCell.Offset(0, kolom).Select




End Sub

Private Sub Lstviewuser_Click()

Me.txtuser.Value = Lstviewuser.List(, 0)

Me.txtklm.Value = Lstviewuser.List(, 1)


Cells.Find(What:=Me.txtuser.Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _




End Sub



Lstviewuser.ColumnCount = 2

With Lstviewuser

.AddItem

.List(.ListCount - 1, 0) = "Nama Bagian"

.List(.ListCount - 1, 1) = "Nilai Kolom"


End With

x = 2


Cells(x, 1).Select

With Lstviewuser

.AddItem



End With

x = x + 1

Loop

End Sub

Kode menjalankan Form Input Permintaan Barang

Private Sub cmdinput_Click()

Sheets("Rekap").Select

Bagian = cbouser.Value

namabarang = cbonamabrg.Value

Cells.Find(What:=namabarang, After:=ActiveCell, LookIn:=xlFormulas, LookAt _




'MsgBox brs


Cells.Find(What:=Bagian, After:=ActiveCell, LookIn:=xlFormulas, LookAt _



60


kol = ActiveCell.Value

'MsgBox kol

'MsgBox brss


Cells(brss, kol).Select

ActiveCell.Value = Me.txtjum

'isi untuk listbox

With ListBox1

.AddItem

.List(.ListCount - 1, 0) = Me.cbouser.Value

.List(.ListCount - 1, 1) = Me.cbonamabrg.Value

.List(.ListCount - 1, 2) = Me.txtjum.Value

End With

End Sub


frmInputPermintaan.Hide

frmMenuUtama.Show

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, _

CloseMode As Integer)

If CloseMode = vbFormControlMenu Then

Cancel = True

MsgBox "MAKE TOMBOL ATUH KANG!"

End If

End Sub



x = 2


With Me.cbouser

.AddItem Cells(x, 1).Value

End With

x = x + 1

Loop


y = 4

Do Until Cells(y, 1) = isblank

With Me.cbonamabrg

.AddItem Cells(y, 2).Value

End With

y = y + 1

Loop

Me.ListBox1.Clear

Me.ListBox1.ColumnCount = 3

With Me.ListBox1

.AddItem

.List(.ListCount - 1, 0) = "Nama Bagian"


.List(.ListCount - 1, 2) = "Jumlah"


End With

jwb = MsgBox("Apakah Mau Mengisi Form Permintaan Pembelian Baru?", vbYesNo)

If jwb = vbNo Then

Me.ListBox1.Clear

Me.ListBox1.ColumnCount = 3

With Me.ListBox1

61

.AddItem


.List(.ListCount - 1, 1) = ""

.List(.ListCount - 1, 2) = ""


End With


Z = 4

Do Until Cells(Z, 1) = isblank

Cells(Z, 1).Select

With Me.ListBox1

.AddItem

.List(.ListCount - 1, 0) = Cells(Z, 2).Value

'isi dengan nama user

.List(.ListCount - 1, 1) = Cells(Z, 3).Value

End With

Z = Z + 1

Loop

Exit Sub

Else

bln = InputBox("isikan Bulan ")

thn = InputBox("isikan Tahun")

End If


Range("B1").Value = "Bulan : " & bln & " " & thn

'Menghapus isi jumlah

Range("C4:C62").Select

Selection.ClearContents

Range("e4:e62").Select


Range("g4:g62").Select


Range("i4:i62").Select


Range("k4:k62").Select


Range("m4:m62").Select


Range("o4:o62").Select


Range("Q4:Q62").Select


Range("s4:s62").Select


Range("u4:w62").Select


Range("w4:w62").Select


Range("y4:y62").Select


Range("aa4:aa62").Select


Range("AC4:AC62").Select


Range("AE4:AE62").Select


Range("AG4:AG62").Select


Range("AI4:AI62").Select


Range("AK4:AK62").Select


Range("AM4:AM62").Select


Range("AO4:AO62").Select


Range("AQ4:AQ62").Select

62


End Sub

Kode menjalankan Form Input Harga



namabarang = cbobrg.Value





Cells(brss, 4).Select

ActiveCell.Value = Me.txtharga

'isi di list

Me.lstph.Clear


lstph.ColumnCount = 3

With lstph

.AddItem



.List(.ListCount - 1, 2) = "Harga"


End With

x = 16


Cells(x, 1).Select

With lstph

.AddItem




End With

x = x + 1

Loop

brs = x

End Sub


frminputharga.Hide

frmMenuUtama.Show

End Sub

Private Sub lstph_Click()

Me.cbobrg.Value = Me.lstph.List(, 1)

End Sub




With lstph

.AddItem





End With

x = 16


Cells(x, 1).Select

With lstph

63

.AddItem




End With

x = x + 1

Loop

brs = x

Range("b10").Select

x = 1


MsgBox Cells(x, 2)

x = x + 1

Loop

End Sub

Kode menjalankan Form Input Barang Masuk



namabarang = cbobrg.Value





Cells(brss, 8).Select

ActiveCell.Value = Me.txtharga

'isi di list

Me.lstph.Clear



With lstph

.AddItem



.List(.ListCount - 1, 2) = "Jumlah Barang"


.List(.ListCount - 1, 4) = "Jumlah Barang Masuk"


End With

x = 16


Cells(x, 3).Select

With lstph

.AddItem






End With

x = x + 1

Loop

brs = x

End Sub

64


frminputbarangmasuk.Hide

frmMenuUtama.Show

End Sub

Private Sub lstph_Click()

Me.cbobrg.Value = Me.lstph.List(, 1)

End Sub




With lstph

.AddItem



.List(.ListCount - 1, 2) = "Jumlah Barang"


.List(.ListCount - 1, 4) = "Jumlah Barang Masuk"


End With

x = 16


Cells(x, 3).Select

With lstph

.AddItem






End With

x = x + 1

Loop

brs = x

Range("c16").Select

x = 1


MsgBox Cells(x, 2)

x = x + 1

Loop

End Sub

65

d. Dokumen atau Formulir

1. Form Kebutuhan Stationery

66

2. Kwitansi

67

3. Nota Penjualan

68

4. Penawaran Harga

69

70

5. Purchase Order

71

72

6. Rekap Stationery

73

7. Surat Jalan

74

8. Tanda Terima

75

2. Lampiran Pendukung

a. Surat Keterangan Prakek Kerja

76

b. Rekapitulasi Kehadiran Praktek Kerja

77

c. Jurnal Praktek Kerja

78

79

d. Jurnal Bimbingan Tugas Akhir

Date post:	07-May-2021
Category:	Documents
Upload:	others
View:	1 times
Download:	0 times

Otomatisasi Sistem Informasi Pembelian Kebutuhan ......Private Sub cmdtambah_Click() Dim brsakhr...

Documents