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

LAMPIRAN

1. Lampiran Utama

a. Struktur Organisasi Perusahaan

Mill Head

Sekretaris MBOS

Production HeadPurchasing

Finance & Mill

Service HeadBusiness Head

Sales Unit

MTC & Utility

Unit Head

Carton Box/

Finishing Unit

Carton Sheet

Unit Head

IT Unit Head

HR & GA Unit

Finance Unit

Accounting

QC Unit Head

PPIC Unit Head

Inner Sales

Paper Tube

Unit Head

Logistik Head

b. Flowchart Pembelian Kebutuhan Stationery

PT PURINUSA EKAPERSADA

PROSEDUR PEMBELIAN KEBUTUHAN STATIONERY

ANALYTIC FLOWCHART

BAGIAN PEMBELIAN BAGIAN GUDANG

Menerima Form

Kebutuhan Stationery

dari setiap Bagian

Form Kebutuhan

Stationery

sesuai anggaran

tidak ?

Mengecek

anggaran

setiap bagian

Melakukan

konfirmasi ke

bagian

Kebutuhan

Stationery

Kebutuhan

Stationery

Penawaran

Pemasok

Penawaran

Stationery

Pemasok

Mengecek

Kesesuaian,

menandatangani

dan memberi

1 Surat

Pemasok

Pemasok telah

mengisi harga &

menandatangani

KwitansiNota

Penjualan

Pemasok

Merekap

Kebutuhan

Stationery

Membuat

Penawaran

Mengisi harga di

Rekap Stationery

dan Membuat POPurchase

Purchase

Kebutuhan

Stationery

Purchase

PT PURINUSA EKAPERSADA

PROSEDUR PEMBELIAN KEBUTUHAN STATIONERY

ANALYTIC FLOWCHART

BAGIAN PEMBELIAN

KwitansiNota

Penjualan

Membuat

Tanda Terima

ditandatangani

TerimaKwitansi

Penjualan

Pemasok

Mencetak

Stationery

BAGIAN GUDANG

Setiap

Bagian

BAGIAN AKUNTING

Mengecek

kesesuaian,

dan Membuat

Voucher

Menstransfer

pembayaran ke

rekening

Pemasok

Membuat

Laporan

Pembayaran

Laporan

Pembayaran

PembayaranVoucher

Memberikan

Cap Lunas

Voucher

Purchase

Selesai

Kebutuhan

Stationery

Kebutuhan

Stationery

stationery

1Kwitansi

Penjualan

Purchase

OrderPenawaran

stationery

1Kwitansi

Penjualan

Purchase

OrderPenawaran

stationery

1Kwitansi

Penjualan

Purchase

OrderPenawaran

stationery

1Kwitansi

Penjualan

Purchase

OrderPenawaran

stationery

1Kwitansi

Penjualan

Purchase

OrderPenawaran

stationery

1Kwitansi

Penjualan

Purchase

OrderPenawaran

stationery

1Kwitansi

Penjualan

Purchase

OrderPenawaran

Voucher

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

Do Until Cells(x, 1) = isblank

Cells(x, 1).Select

x = x + 1

brsakhr = x - 1

brsakhr2 = x - 2

Cells(brsakhr2, 1).Select

no = ActiveCell.Value

Cells(brsakhr, 1).Select

Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.Value = no + 1

Sheets("rekap").Select

Cells(x, 1).Select

x = x + 1

brsakhr = x - 1

brsakhr2 = x - 2

x = 16

Cells(x, 1).Select

x = x + 1

brsakhr = x - 1

brsakhr2 = x - 2

x = 16

Cells(x, 3).Select

x = x + 1

brsakhr = x - 1

brsakhr2 = x - 2

Sheets("Label").Select

Cells(x, 3).Select

x = x + 1

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

Cells(x, 1).Select

With lstviewbrg

.AddItem

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

End With

x = x + 1

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

nomerkolom1 = ActiveCell.Value + 1

nomerkolom2 = ActiveCell.Value + 2

Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.Value = nomerkolom1

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

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

Cells(x, 1).Select

With Lstviewuser

.AddItem

End With

x = x + 1

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 _

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

With Me.cbouser

.AddItem Cells(x, 1).Value

End With

x = x + 1

Do Until Cells(y, 1) = isblank

With Me.cbonamabrg

.AddItem Cells(y, 2).Value

End With

y = y + 1

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

.AddItem

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

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

End With

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

Exit Sub

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

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

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

.AddItem

End With

x = x + 1

brs = x

Range("b10").Select

MsgBox Cells(x, 2)

x = x + 1

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

brs = x

End Sub

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

brs = x

Range("c16").Select

MsgBox Cells(x, 2)

x = x + 1

End Sub

d. Dokumen atau Formulir

1. Form Kebutuhan Stationery

2. Kwitansi

3. Nota Penjualan

4. Penawaran Harga

5. Purchase Order

6. Rekap Stationery

7. Surat Jalan

8. Tanda Terima

2. Lampiran Pendukung

a. Surat Keterangan Prakek Kerja

b. Rekapitulasi Kehadiran Praktek Kerja

c. Jurnal Praktek Kerja

d. Jurnal Bimbingan Tugas Akhir

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

Documents

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

Validasi Aplikasi Pembelian Tiket Bioskop Menggunakan ......(FSA) Pada Mesin Pembuat Minuman Kopi Otomatis, membahas tentang aplikasi simulasi mesin kopi otomatis yang dapat melakukan

media.unpad.ac.idmedia.unpad.ac.id/thesis/120103/2008/120103080156_d_7740.pdf · 2013. 10. 10. · 5 _ 1 Ikhtisar Hasil Penelitian 511 5.12 5.13 Sistem Informasi Akuntansi Pembelian

Tanya Rpods/caps - Astoria6 Tanya R 1 Gr. 2 Gr. 3 Gr. Voltaggio / Voltage / Spannung / Voltage / Voltaje / Voltagem V 120 / 230-400 / 240 120 / 230-400 / 240 230-400 / 240 Potenza

DIRITTO ALLO STUDIO - ANNO SOLARE 2021 · 9 ACHERONTE TANYA 13-04-1989 Doc. Sec. II A045/ADSS TD-30/6 18 18 AMMESSA 7 PER PARTE IN PRESENZA 75 10 ACQUAVIVA ILARIA 13-05-1991 Doc.

NCLEX STUDY SCHEDULE 2016€¦ · PICMONIC.COM NCLEX STUDY SCHEDULE 2016 Marlee Liberman, RN (Picmonic Master Nursing Scholar) Tanya Powell, RN (Picmonic Nursing Student Consultant)

Rancang Bangun Sistem Informasi Pembelian Barang ...

METONIMI BAHASA BARUS - penelitian.uisu.ac.idpenelitian.uisu.ac.id/wp-content/uploads/2020/05/7... · Usah bacakak kito, ala sarupo Poso pulo (Jangan berkelahi kita, sudah serupa

Implementasi IP-Tables Firewall pada Linux sebagai Sistem ... · Sesuai dengan sistem operasi yang digunakan sebagai server maka firewall yang digunakan adalah Iptables yang sudah

IMPLEMENTASI METODE WATERFALL PADA PROSES ...Studio foto yang bisa mengubah klise foto menjadi foto digital sudah jarang ditemui pada masa sekarang. Oleh karena itu, penelitian ini

· nedelcu silviu alin arcesi gianluca lupi valentina boccaccio alessia pace-nti alessandro de domenico martina ruscito tanya salustri davide buonsanti giuseppe agavriloaie alina

Tanya Rpods/caps - astoria.com · – Uma lança do vapor - um distribuidor de água manual (1 Gr.) – Duas lanças do vapor - um distribuidor de água com botão ... Tanya R pods/caps

PEMBAHASAN TINJAUAN UMUM Bab III.pdfa) Shampoo and soap ( sampoo dan sabun ) b) Tisuee Roll c) Amanities set (Didalamnya sudah terisi Sliper dan Toothbrush) d) Memopad ( buku kecil

EVALUASI SISTEM INFORMASI AKUNTANSI PEMBELIAN BARANG ...

PERANCANGAN SISTEM INFORMASI AKUNTANSI PEMBELIAN …