BAB 4 RANCANGAN SISTEM YANG DIUSULKAN. 4.1 Perhitungan Harga Pokok Produksi Menggunakan Job Order Costing

BAB 4 RANCANGAN SISTEM YANG DIUSULKAN

4.1

Perhitungan Harga Pokok Produksi Menggunakan Job Order Costing Sebagai

contoh

pengimplementasian

aplikasi

terkomputerisasi

yang

diusulkan, penulis mengambil sampel baju Felix the Cat dari PT. Biginusindo dengan keterangan sebagai berikut:

Gambar 4.1 Kaos Felix the Cat

Tabel 4.1 Indeks Pemakaian Bahan Baku Kaos Felix the Cat Nama Bahan Baku Kain Combat 20S

Qty 0,156 kg

Harga Rp. 46.000,- / kg

Kain Twill

0,008 kg

Rp. 30.000,- / kg

Benang 40/2 kecil

205 yard

Rp. 6600,- / 5000 yard

Label Washing

1 pcs

@ Rp. 21,-

Hang Tag

1 pcs

@ Rp. 48,-

Label Merk

1 pcs

@ Rp. 108,-

Price Tag

1 pcs

@ Rp. 40,-

Plastik Packaging

1 pcs

@ Rp. 25,-

Tinta Sablon Hitam

0,027 kg

Rp 40.000,- / kg

69

Tabel 4.2 Formula Kaos Felix the Cat Departemen

Kode Barang Terbentuk

Pembuat Potong

Jenis Barang

Tipe WIP

Terbentuk LGI2004010M1

WIP

Lengan

Nama Barang

Kode Barang

Jenis Barang

Tipe Barang

Nama Barang

Qty

Terbentuk

Penyusun

Penyusun

Penyusun

Penyusun

Formula

Satuan

Felix Face

KN2004001

R1

Kain

Combat 20 S

0,013

Kg

Felix Face

KN2004001

R1

Kain

Combat 20 S

0,013

Kg

Felix Face

KN2004001

R1

Kain

Combat 20 S

0,013

Kg

Felix Face

KN2004001

R1

Kain

Combat 20 S

0,013

Kg

Kiri LGN2004010M1

WIP

Lengan Kanan

BYB2004010M1

WIP

Body Depan

BYD2004010M1

WIP

Body Belakang

Sablon

TWK2004010M1

WIP

Kerah

Felix Face

KN2004002

R1

Kain

Twill

0,008

Kg

BYD2004010M2

WIP

Body

Felix Face

BYD2004010M1

WIP

Body Depan

Felix Face

1

pcs

CT2004001

R1

Cat

Tinta Sablon

0,027

Kg

Depan

Hitam Jahit

LGI2004010M3

WIP

Lengan

Felix Face

Kiri LGN2004010M3

WIP

Lengan

Felix Face

Kanan BYB2004010M3

WIP

Body Depan

Felix Face

LGI2004010M1

WIP

Lengan Kiri

Felix Face

1

pcs

BN2004001

R1

Benang

40/2 Kecil

15

Yard

LGN2004010M1

WIP

Lengan Kanan

Felix Face

1

pcs

BN2004001

R1

Benang

40/2 Kecil

15

Yard

BYB2004010M1

WIP

Body Depan

Felix Face

1

pcs

BN2004001

R1

Benang

40/2 Kecil

30

Yard

70 BYD2004010M3

WIP

Body

Felix Face

BYD2004010M1

WIP

Body Depan

Felix Face

1

pcs

BN2004001

R1

Benang

40/2 Kecil

30

Yard

TWK2004010M1

WIP

Kerah

Felix Face

1

pcs

BN2004001

R1

Benang

40/2 Kecil

45

Yard

FG Blm

LGI2004010M3

WIP

Lengan Kiri

Felix Face

1

pcs

Finishing

LGN2004010M3

WIP

Lengan Kanan

Felix Face

1

pcs

BYB2004010M3

WIP

Body Depan

Felix Face

1

pcs

BYD2004010M3

WIP

Body Belakang

Felix Face

1

pcs

TWK2004010M3

WIP

Kerah

Felix Face

1

pcs

BN2004001

R1

Benang

40/2 Kecil

45

Yard

UFC2004010M3

WIP

FG Blm

Felix Face

1

pcs

Belakang TWK2004010M3 UFC2004010M3

Finishing

FC2004010M

WIP WIP

FG

Kerah

Kaos

Felix Face

Felix Face

Finishing BN2004001

R1

Benang

40/2 Kecil

25

Yard

PL2004001

R1

Plastik

Pack 25x 35

1

pcs

HT2004001

R1

Hang Tag

Bordir Felix

1

pcs

LM2004001

R1

Label Merk

Bordir Felix

1

pcs

LW2004001

R1

Label Washing

Nlon Putih

1

pcs

PT2004001

R1

Price Tag

Transp

1

pcs

71 Data diatas diperoleh penulis dari hasil survey lapangan dan wawancara. Data pada kolom Qty (Bahan Baku) menunjukkan indeks pemakaian bahan untuk membuat 1 kaos, sedangkan kolom Harga (Bahan Baku) menunjukkan harga perolehan masing-masing bahan baku. Untuk menghitung tarif pengganggaran BTKL, penulis memperoleh data sebagai berikut: Tabel 4.3 Informasi Total Gaji dan Volume Produksi Tahun 2003 Total gaji tahun 2003

Rp. 4.252.676.000,-

Volume produksi (unit) tahun 2003

1.370.886 unit

Tarif gaji/unit

Rp. 3102,-

Tabel 4.4 Biaya Gaji Departemen Produksi Tahun 2003

Total Gaji per Departemen

Dept. Potong

Dept. Sablon

850.535.200

340.214.080

% pembebanan per Departemen

20%

Dept. Finishing 510.321.120

8%

Dept. Nonproduksi 2.551.605.600

12%

60%

Total gaji departemen Potong diatas mencakup total gaji Seri karena adanya penggabungan kedua departemen tersebut. Persentase pembebanan gaji per departemen

diambil

dari

perbandingan

besarnya

gaji

yang

dikonsumsi

antardepartemen dengan total beban gaji tahun 2003. Departemen Jahit tidak termasuk pada tabel diatas karena pegawai departemen Jahit adalah pegawai upahan. Untuk Job Order kaus Felix the Cat, tarif upah yang dikenakan adalah Rp. 996,-. Berdasarkan informasi biaya gaji per departemen, volume produksi, dan tarif upah, maka diperoleh tarif BTKL masing-masing departemen produksi.

72

Tabel 4.5 Tarif BTKL Departemen Produksi BTKL

Departemen

Tarif BTKL Setiap Departemen

Upahan

Jahit

@ Rp. 996,-

Bulanan

Potong

@ Rp. 620,4

Sablon

@ Rp. 248,16,-

Finishing

@ Rp. 372,24

Penentuan besarnya BOP lebih sulit dilakukan. BOP juga meliputi biaya yang tidak dapat ditentukan secara exact seberapa besar pemakaian per order per departemen. Sebagai contoh adalah biaya listrik, penyusutan pabrik, penyusutan peralatan, pemakaian bahan baku tidak langsung, dan pemakaian tenaga kerja tidak langsung. Bagian Produksi PT. Biginusindo Permai terdiri dari 4 departemen, yaitu Potong, Sablon, Jahit, dan Finishing. Departemen yang menggunakan mesin memiliki perbedaan

mesin yang dipakai. Mesin potong kain yang dipakai oleh

departemen Potong berbeda dengan mesin jahit dan obras yang dipakai oleh departemen Jahit, juga berbeda dengan mesin pemasang kacing yang dipakai oleh departemen Finishing. Oleh karena itu penulis menggunakan

tarif overhead

departemental, dimana setiap departemen memiliki tarif overhead-nya masingmasing. Langkah-langkah dalam menentukan tarif per unit overhead departemental yang ditetapkan dimuka: 1. Memperoleh total biaya overhead pabrik anggaran untuk periode operasi yang sesuai, biasanya 1 tahun.

73 Penulis memperoleh anggaran biaya dari bagian Administrasi PT. Biginusindo Permai dimana nilai anggaran tersebut ditentukan berdasarkan biaya yang sesungguhnya terjadi pada tahun sebelumnya ditambah dengan kenaikan yang diperkirakan. 2. Membagi total biaya overhead pabrik anggaran ke semua departemen produksi untuk memperoleh biaya overhead per departemen anggaran. -

Untuk mengalokasikan total biaya overhead pabrik anggaran ke semua departemen produksi, Penulis menggunakan beberapa dasar alokasi, yaitu: berdasarkan biaya yang keluar, jumlah mesin, dan luas ruangan.

-

Mengkalkulasi total biaya overhead pabrik anggaran untuk memperoleh total biaya overhead pabrik anggaran per departemen.

3. Untuk mendapatkan tarif overhead pabrik departemen, Penulis akan membagi biaya overhead pabrik departemen dengan dengan dasar alokasi estimasi selama 1 tahun. Dasar alokasi yang dipakai untuk mendapatkan tarif adalah jumlah kuantitas produksi tahunan yang diestimasikan. Tabel 4.6 Biaya Overhead Pabrik PT. Biginusindo Permai No. 1.

Biaya Overhead Pabrik Biaya Bahan Baku Tidak Langsung

Keterangan Kertas karton, spidol, kain keras. Pemakaian

bahan

baku

tidak

langsung terjadi pada departemen Potong, Sablon, dan Jahit. Biaya bahan baku tidak langsung dialokasikan berdasarkan biaya yang

74 terpakai karena besarnya biaya ini masih

dapat

pemakaiannya,

ditelusuri

yaitu

berdasarkan

Surat Pengambilan Bahan. 2.

Biaya Tenaga Kerja Tidak Langsung

Tenaga kerja tidak langsung adalah tenaga

kerja

diluar

departemen

produksi, sebanyak 133 orang. Biaya tenaga kerja tidak langsung akan

dialokasikan

ke

setiap

departemen atas dasar banyaknya tenaga kerja. 3.

Biaya Listrik Pabrik

Tagihan listrik akan dialokasikan dengan

menggunakan

banyaknya

mesin yang dimiliki per departemen. 4.

Biaya Penyusutan Gedung Pabrik

Biaya

penyusutan

dialokasikan

gedung

berdasarkan

akan luas

gedung. 5.

Biaya PBB Pabrik

Biaya

PBB

akan

dialokasikan

berdasarkan luas gedung. 6.

Biaya Perbaikan dan Perawatan Mesin

Biaya

perbaikan

dan

perawatan

mesin

meliputi

bila

terjadinya

reparasi, penggunaan oli dan suku cadang. Biaya bahan baku tidak langsung dialokasikan berdasarkan biaya yang terpakai. 7.

Biaya Penyusutan Mesin

Biaya

penyusutan

dialokasikan

mesin

berdasarkan

akan banyak

75 mesin. 8.

Biaya Pengendalian Kualitas Produk

Besarnya nilai bahan baku, WIP, dan finished

good

yang

harus

dimusnahkan karena cacat. Biaya pengendalian kualitas produk dialokasikan atas dasar banyaknya tenaga kerja dengan pertimbangan semakin banyaknya tenaga kerja maka semakin besar kemungkinan terjadinya human error. 9.

Biaya Perancangan Produk

Biaya pembuatan sampel produk, meliputi bahan, aksesoris, ongkos jahit,

sablon/bordir,

serta

biaya

pegawai bagian desain. Biaya

ini

akan

dialokasikan

berdasakan banyaknya tenaga kerja.

76 Tabel 4.7 Tarif Biaya Overhead Pabrik Departemental yang Dianggarkan Biaya Overhead Pabrik

Jumlah

Biaya Bahan Baku Tidak Langsung Tarif : Biaya Tenaga Kerja Tidak Langsung

Departemen Sablon

Departemen Jahit

Departemen Finishing

32.000.000

8.140.000

11.760.000

9.600.000

2.500.000

352.251.979

5,938 40.107.898,6

8,578 13.078.662,59

7,003 272.908.092,6

1,824 26.157.325,17

141.775.200

29,257 2.148.109,091

9,540 2.148.109,091

199,074 134.471.629,1

19,081 3.007.352,727

1,567 1.937.773,836 1,414 4.656.319,29 3,397 1.464.223

98,091 8.304.745,011 6,058 19.955.654,1 14,557 76.504.205

2,194 1.384.124,169 1,009 3.325.942,35 2,426 1.710.957

Tarif : Biaya Listrik Pabrik

Departemen Potong

Tarif :

Biaya PBB Pabrik

30.000.000

Tarif : Biaya Perbaikan dan Pemeliharaan Mesin

80.659.385

1,567 858.156,985 0,626 2.062.084,257 1,504 980.000

330.800.000

0,715 5.012.121

1,068 5.012.121

55,806 313.758.788

1,248 7.016.970

59.400.000

3,656 6.763.366,337

3,656 2.205.445,545

228,873 46.020.297,03

5,119 4.410.891,089

165.888.000

4,934 18.888.237,62

1,609 6.159.207,921

33,570 128.522.138,6

3,218 12.318.415,84

1.205.259.364

13,778 61,975

4,493 35,322

93,751 736,783

8,987 45,106

Biaya Penyusutan Gedung Pabrik

12.484.800 Tarif :

Tarif : Biaya Penyusutan Mesin Tarif : Biaya Pengendalian Kualitas Produk Tarif : Biaya Perancangan Produk Tarif : Total

Dasar Alokasi Biaya yang Keluar Jumlah Tenaga Kerja Banyaknya mesin m2 m2 Biaya yang Keluar Banyaknya Mesin Jumlah Tenaga Kerja Jumlah Tenaga Kerja

77

Tabel 4.8 Informasi Pendukung Dasar Alokasi Dept. Potong Dept. Sablon Jumlah mesin Jumlah tenaga kerja langsung Luas bangunan

Dept. Jahit

Dept. Finishing

5

5

313

7

46

15

313

30

2

2

2

250 m2

155 m

Volume Produksi Tahun 2003

4.2

Bagan Alir Dokumen Usulan

4.2.1

Prosedur Order Produksi Usulan

350 m

1500 m

1.370.886 unit

Desain Mengisi Form Desain 3 rangkap, kemudian mendistribusikan rangkap 2 ke Merketing bersama dengan sampel produk dan rangkap 3 ke PPC. Form Desain rangkap 1 diarsip berdasarkan tanggal. Marketing 1. Menerima Form Desain rangkap 2 dan sampel produk dan mengarsipkan berdasarkan tanggal. 2. Meminta persetujuan desain ke pihak Lisensi. Jika desain ditolak maka sampel dan Form Desain akan disimpan. Jika desain disetujui maka Marketing akan mengisi Surat Order Produksi 2 rangkap. Surat Order Produksi 2 rangkap ini kemudian dikirim ke PPC untuk dianalisa. 3. Marketing menerima kembali Surat Order Produksi rangkap 1 yang sudah dimodifikasi oleh PPC dan kemudian menginput data Order Produksi ke sistem informasi, dan kemudian akan dilanjutkan ke Prosedur Produksi. Surat Order Produksi yang sudah dimodifikasi diarsipkan berdasarkan nomor urut.

78 PPC 1. PPC menerima Form Desain rangkap 3 kemudian menginput data Finished Good, WIP, dan Formula ke dalam sistem informasi. Form Desain rangkap 3 kemudian diarsip berdasarkan tanggal. 2. Menerima Surat Order Produksi 2 rangkap. 3. Berdasarkan permintaan yang diajukan tersebut, maka PPC melakukan analisa produksi. 4. PPC mengirimkan Surat Order Produksi rangkap 1 yang sudah dimodifikasi ke Marketing dan mengarsip Surat Order Produksi rangkap 2.

79

MARKETING

DESAIN

Sample Produk Form Desain 2 1

Form Desain 2

Form Desain 3

T

3 T

T 2 1

2

1

Mulai

Sample Produk

PPC

Meminta persetujuan desain ke pihak Lisensi

Input Finished Good

Input WIP

Tolak

Disetujui ?

Sample disimpan dan Form Desain diarsip.

Input Formula

Ya Surat Order Produksi 1

Surat Order 2 Produksi 1

2

Membuat analisa atas Order Produksi

Surat Order Produksi (Termodifikasi)1

Input Order Produksi

N

Surat Order Produksi (Termodifikasi) 1

Lanjut ke Prosedur Produksi

2

Surat Order setelah dilakukan analisa produksi oleh PPC

N

Gambar 4.2 DAD Prosedur Order Produksi Usulan

4.2.2

Prosedur Permintaan Bahan Baku Usulan

Produksi 1. Melihat informasi order produksi baru yang masuk dan melihat berapa anggaran bahan baku yang direncanakan untuk order produksi tersebut.

80 2. Bagian Produksi lalu meng-input data pengambilan bahan baku ke gudang dan mecetak Surat Pengambilan Bahan sebanyak 3 rangkap, kemudian didistribusikan ke Gudang Bahan Baku. Gudang Bahan Baku 1. Menerima Surat Pengambilan Bahan sebanyak 3 rangkap. 2. Gudang akan memverifikasi data di Surat Pengambilan Bahan dan selanjutnya meng-update stok bahan baku yang diminta. 3. Surat Pengambilan Bahan rangkap 1 akan diarsip oleh Gudang Bahan Baku berdasarkan nomor. Surat Pengambilan Bahan rangkap 2 akan dikembalikan ke bagian produksi bersama dengan bahan baku yang diminta, dan Surat Pengambilan Bahan rangkap 3 akan dikirimkan ke bagian Akuntansi. PPC PPC akan mencetak Laporan Pemakaian Bahan Baku per Order, jika order produksi sudah selesai, yang berisi data pengambilan bahan dan pengembalian bahan baku jika ada. Laporan Pemakaian Bahan Baku per Order tersebut akan diberikan ke pihak Manajemen.

81

GUDANG BAHAN BAKU

PRODUKSI

PPC

1

Dari Prosedur Produksi

Mencetak Laporan Pemakaian Bahan Baku Per Order

Surat Pengambilan Bahan 1

Menampilkan Order Produksi Baru

2 Menampilkan Anggaran Bahan Baku Order Produksi Membuat Surat Pengambilan Bahan Surat Pengambilan Bahan 1

Laporan Pemakaian Bahan Baku Per Order

3

Verifikasi Surat Pengambilan Bahan

Di-batch per Order Produksi Selesai dengan memperhitungan jika ada pengembalian bahan baku

Manager

Update Status Pengambilan Bahan Baku

ACCOUNTING

2 3


3

2

1

3

2


Bahan

Dilanjutkan ke Prosedur Produksi

N 3 Bahan

N


Dilanjutkan ke Prosedur Perhitungan HPP

2

Gambar 4.3 DAD Prosedur Permintaan Bahan Baku Usulan

4.2.3

Prosedur Produksi Usulan

Potong 1. Bagian Potong menerima order produksi baru dan melakukan prosedur permintaan bahan ke gudang untuk memulai produksi. 2. Setelah menerima bahan baku, Potong melakukan pemotongan bahan. 3. Bagian Potong kemudian memeriksa dan menghitung hasil pemotongan. 4. Potongan-potongan bahan yang sudah terbentuk akan didistribusikan ke bagian lain untuk melanjutkan proses produksi. Bagian Potong akan

82 memisahkan potongan-potongan bahan dan memasukkan data pengiriman barang ke sistem informasi. -

Jika potongan bahan akan dijahit, maka Potong akan mencetak Surat Kirim Barang 3 rangkap. Rangkap 1 didistribusikan ke Bagian Jahit bersama dengan potongan bahan, rangkap 2 diarsip berdasarkan nomor, dan rangkap 3 diberikan ke PPC.

-

Jika potongan bahan akan disablon, maka Potong akan mencetak Surat Kirim Barang 3 rangkap. Rangkap 1 didistribusikan ke Bagian Sablon bersama dengan potongan bahan, rangkap 2 diarsip berdasarkan nomor, dan rangkap 3 diberikan ke PPC.

-

Jika potongan bahan akan dibordir, maka Potong akan mencetak Surat Kirim Barang 3 rangkap. Rangkap 1 didistribusikan ke CMT bersama dengan potongan bahan, rangkap 2 diarsip berdasarkan nomor, dan rangkap 3 diberikan ke PPC.

5. Potong menerima Bukti Ambil Barang dari bagian Jahit, Sablon, dan CMT dari transaksi pengiriman barang sebelumnya dan mengarsip berdasarkan nomor. Jahit 1. Jahit menerima potongan bahan dan Surat Kirim Barang rangkap 1 dari bagian Potong. Surat Kirim Barang diarsip berdasarkan nomor. 2. Jahit akan memverifikasi data pengiriman ke sistem informasi dan melakukan perhitungan fisik terhadap barang yang diterima.

83 3. Jahit akan meng-input data penerimaan barang dan mencetak Bukti Terima Barang 3 rangkap. Rangkap 1 diberikan ke Jahit, rangkap 2 diarsip, dan rangkap 3 diberikan ke PPC. 4. Jahit menerima potongan bahan tersablon dan Surat Kirim Barang rangkap 1 dari bagian Sablon. Surat Kirim Barang diarsip berdasarkan nomor. 5. Jahit akan memverifikasi data pengiriman ke sistem informasi dan melakukan perhitungan fisik terhadap barang yang diterima. 6. Jahit akan meng-input data penerimaan barang dan mencetak Bukti Terima Barang 3 rangkap. Rangkap 1 diberikan ke Sablon, rangkap 2 diarsip, dan rangkap 3 diberikan ke PPC. 7. Jahit menerima potongan bahan terbordir dan Surat Kirim Barang rangkap 1 dari CMT. Surat Kirim Barang diarsip berdasarkan nomor. 8. Jahit akan memverifikasi data pengiriman ke sistem informasi dan melakukan perhitungan fisik terhadap barang yang diterima. 9. Jahit akan meng-input data penerimaan barang dan mencetak Bukti Terima Barang 3 rangkap. Rangkap 1 diberikan ke CMT, rangkap 2 diarsip, dan rangkap 3 diberikan ke PPC. 10. Jahit melakukan prosedur permintaan bahan baku ke gudang untuk melakukan penjahitan. 11. Setelah penjahitan selesai, Jahit meng-input data pengiriman barang ke sistem informasi dan mencetak Surat Kirim Barang 3 rangkap. Rangkap 1 dikirim ke Finishing bersama dengan produk jadi belum finishing, rangkap 2 diarsip berdasarkan nomor, dan rangkap 3 dikirim ke PPC. 12. Jahit menerima Bukti Terima Barang rangkap 1 dari Finishing.

84

Sablon 1. Sablon menerima potongan bahan dan Surat Kirim Barang rangkap 1 dari bagian Potong. Surat Kirim Barang diarsip berdasarkan nomor. 2. Sablon akan memverifikasi data pengiriman ke sistem informasi dan melakukan perhitungan fisik terhadap barang yang diterima. 3. Sablon akan meng-input data penerimaan barang dan mencetak Bukti Terima Barang 3 rangkap. Rangkap 1 diberikan ke Jahit, rangkap 2 diarsip, dan rangkap 3 diberikan ke PPC. 4. Sablon melakukan prosedur permintaan bahan baku ke gudang dan menyablon potongan bahan. 5. Setelah penyablonan selesai, Sablon meng-input data pengiriman barang ke sistem informasi dan mencetak Surat Kirim Barang 3 rangkap. Rangkap 1 dikirim ke Jahit bersama dengan potongan bahan tersablon, rangkap 2 diarsip berdasarkan nomor, dan rangkap 3 dikirim ke PPC. 6. Sablon menerima Bukti Terima Barang rangkap 1 dari Jahit. CMT 1. CMT menerima potongan bahan dan Surat Kirim Barang rangkap 1 dari bagian Potong. Surat Kirim Barang diarsip berdasarkan nomor. 2. CMT akan memverifikasi data pengiriman ke sistem informasi dan melakukan perhitungan fisik terhadap barang yang diterima. 3. CMT akan meng-input data penerimaan barang dan mencetak Bukti Terima Barang 3 rangkap. Rangkap 1 diberikan ke Potong, rangkap 2 diarsip, dan rangkap 3 diberikan ke PPC.

85 4. CMT mengisi Surat Jalan Jahit Luar sebanyak 4 rangkap. Rangkap 1,2,3 diarsip sementara berdasarkan nomor, dan rangkap 4 diberikan ke Pihak Outsourcing. 5. Pihak Outsourcing akan mengirimkan potongan bahan terbordir secara bertahap. CMT akan mencatat progress dari Pihak Outsourcing pada Surat Jalan Jahit Luar. 6. Jika Pihak Outsourcing sudah selesai maka CMT akan membayar biaya bordir, mengarsip Surat Jalan Jahit Luar rangkap 1 berdasarkan nomor, mendistribusikan Kuitansi Pembayaran Bordir dan Surat Jalan Jahit Luar rangkap 2 ke bagian Accounting, dan mendistribusikan Surat Jalan Jahit Luar rangkap 3 ke Kasir. 7. CMT akan meng-input data pengiriman barang ke sistem informasi dan mencetak Surat Kirim Barang 3 rangkap. Rangkap 1 dikirim ke Jahit bersama dengan potongan bahan terbordir, rangkap 2 diarsip berdasarkan nomor, dan rangkap 3 dikirim ke PPC. 8. CMT menerima Bukti Terima Barang rangkap 1 dari Jahit. Finishing 1. Finishing menerima produk jadi belum finishing dan Surat Kirim Barang rangkap 1 dari bagian Jahit. Surat Kirim Barang diarsip berdasarkan nomor. 2. Finishing akan memverifikasi data pengiriman ke sistem informasi dan melakukan perhitungan fisik terhadap barang yang diterima. 3. Finishing akan meng-input data penerimaan barang dan mencetak Bukti Terima Barang 3 rangkap. Rangkap 1 diberikan ke Potong, rangkap 2 diarsip, dan rangkap 3 diberikan ke PPC.

86 4. Jika produk jadi belum finishing yang diterima memerlukan tingkat perbaikan yang banyak, maka produk jadi belum finishing tersebut akan dimusnahkan. Tetapi jika tingkat perbaikan yang diperlukan masih sesuai standar, maka Finishing akan memperbaiki produk jadi belum finishing tersebut. 5. Sebelum melakukan perbaikan, Finishing akan melakukan prosedur permintaan bahan baku ke gudang bahan baku. 6. Finishing akan melakukan perlakuan akhir terhadap produk dengan mencuci, menyetrika, memasang merk, dan membungkus. 7. Setelah perlakukan akhir selesai, Finishing akan meng-input data pengiriman barang ke sistem informasi dan mencetak Surat Kirim Barang 3 rangkap. Rangkap 1 dikirim ke Gudang Barang Jadi bersama dengan produk final, rangkap 2 diarsip berdasarkan nomor, dan rangkap 3 dikirim ke PPC. 8. Finishing menerima Bukti Terima Barang rangkap 1 dari Gudang Barang Jadi. Gudang Barang Jadi 1. Gudang Barang Jadi menerima produk final dan Surat Kirim Barang rangkap 1 dari Finishing. Surat Kirim Barang diarsip berdasarkan nomor. 2. Gudang Barang Jadi akan memverifikasi data pengiriman ke sistem informasi dan melakukan perhitungan fisik terhadap barang yang diterima. 3. Gudang Barang Jadi akan meng-input data penerimaan barang dan mencetak Bukti Terima Barang 3 rangkap. Rangkap 1 diberikan ke Finishing, rangkap 2 diarsip, dan rangkap 3 diberikan ke PPC. 4. Setelah produk jadi sampai ke Gudang Barang Jadi, maka stok akhir produk final akan ter-update. Accounting

87 Accounting menerima Surat Jalan Jahit Luar rangkap 2 dan Kuitansi Pembayaran Bordir dari CMT dan selanjutnya akan melakukan prosedur Pencatatan BOP dan prosedur Penghitungan HPP. Kasir Kasir menerima Surat Jalan Jahit Luar rangkap 3 dari CMT dan mengarsipnya berdasarkan nomor. PPC 1. PPC menerima Surat Kirim Barang rangkap 3 dan Bukti Terima Barang rangkap 3 dari bagian Produksi dan mengarsipkannya berdasarkan nomor. 2. PPC akan mencetak Laporan Order Produksi Selesai dan memberikan laporan tersebut ke pihak Manajemen.

88

POTONG PABRIK A 4

Tampilkan Order Produksi Baru

Bukti Terima Barang 1

Lanjut ke Prosedur Permintaan Bahan ke Gudang

N

Dari Prosedur Permintaan Bahan ke Gudang

5 Pemotongan bahan


Memeriksa dan menghitung hasil pemotongan

N

Input Data Pengiriman

4

Jahit / Sablon / Bordir

Jahit

Bordir

Pisahkan part yang akan dibordir.


Sablon Pisahkan part yang akan dijahit

Pisahkan part yang akan disablon.

Cetak Surat Kirim Barang



Surat Kirim Barang1 Potongan Bahan

Surat Kirim Barang

3

2 1

PPC

Potongan Bahan

N


3 Surat Kirim Potongan 2 Barang 1 Bahan PPC

3 2 PPC

N

3 1

N

2

N

Gambar 4.4 DAD Prosedur Produksi Usulan

89

JAHIT PABRIK C,D

1

Potongan Bahan

6

Surat Kirim Barang 1

Potongan Bahan Tersablon

11


N Menampilkan Data Pengiriman Memeriksa dan menghitung Potongan Bahan Tersablon Input Data Penerimaan

Bukti 3 Terima 2 1 Barang 4

N

PPC

Potongan Bahan Terbordir

Surat Kirim Barang

N

N

Menampilkan Data Pengiriman


Memeriksa dan menghitung Potongan Bahan Tersablon

Memeriksa dan menghitung Potongan Bahan Terbordir

Input Data Penerimaan


Bukti Terima 3 Barang 1 2

7

N

PPC

Bukti Terima 3 Barang 1 2

12

N

Gambar 4.5 DAD Prosedur Produksi Usulan (Lanjutan)

PPC

1

90

SABLON PABRIK B

JAHIT PABRIK C,D Prosedur permintaan bahan ke gudang Penjahitan Kain Input Data Pengiriman Cetak Surat Kirim Barang

Produk jadi belum Finishing

Surat Kirim 2 Barang 1

13

14 Bukti Terima Barang 1

2

Potongan Bahan

Surat Kirim Barang

N Menampilkan Data Pengiriman

3


PPC


N

1

N

Bukti 3 Terima 2 Barang 1

5

Prosedur permintaan bahan ke gudang

7


Sablon kain


N


Potongan Bahan Tersablon


6

N

3 PPC

N


PPC

91

CMT Mengisi Surat Jalan Jahit Luar

3

Potongan Bahan


Potongan Bahan

Surat Jalan Jahit Luar1 2


3

N


Surat Jalan Jahit Luar 4

Pihak Outsourcing

N


Bukti Terima 3 2 Barang 1

8

PPC

N


92

CMT

ACCOUNTING 9

Pihak Outsourcing Surat Jalan Jahit Luar 2

Periksa barang yang diterima

Kuitansi Pembayaran Bordir

Tidak

N

N

Mencatat jumlah yang diselesaikan pada Surat Jalan Jahit Luar

Lanjut ke Prosedur Pencatatan BOP

Lanjut ke Prosedur Perhitungan HPP

Bordir Selesai ? Ya Input Data Pengiriman

Membayar biaya bordir


Pihak Outsource Kuitansi Pembayaran Bordir


2 N

9

3

Potongan Bahan Terbordir


11

10

3

PPC

N 12


N


93

GUDANG BARANG JADI

FINISHING PABRIK A 13

Produk Jadi Belum Finishing

Surat Kirim Barang 1 N

Menampilkan Data Pengiriman Memeriksa dan menghitung Produk Jadi Belum Finishing


Bukti 3 Terima 2 1 Barang

14

Buang

Max

15

Prosedur permintaan bahan ke gudang Produk jadi final Memperbaiki baju

N Cuci Setrika Pasang Merk Packaging

Perlakuan akhir

Input Data Pengiriman PPC

N

Tingkat Perbaikan

Menampilkan Data Pengiriman Memeriksa dan menghitung Produk Jadi Final Input Data Penerimaan


Surat Kirim 3 2 Barang 1 Produk Jadi Final

N 15

PPC

3 Bukti Terima 1 2 Barang

16

N

Update Stok akhir Finished Good

Standar Prosedur permintaan bahan ke gudang

Surat Kirim Barang

16 Bukti Terima Barang 1

N


PPC

1

94

PPC

KASIR

10 Produksi

N

N

Surat Kirim Bukti Terima Barang Barang 3 3

N


Produksi

Di-batch sampai Order Produksi selesai Cetak Laporan Order Produksi Selesai Laporan Order Produksi Selesai

Manajer


4.2.4

Prosedur Pencatatan BTKL Usulan

Pembayaran Gaji Bulanan Personalia 1. Personalia membuat rekapitulasi absensi. 2. Personalia membuat rekapitulasi gaji dengan memperhitungkan uang lembur dan pelanggaran yang dilakukan karyawan. 3. Rekapitulasi gaji dibuat 3 rangkap. Rekapitulasi Gaji rangkap 1 didistribusikan ke Accounting, rangkap 2 ke Kasir, dan rangkap3 bersama dengan Surat Lembur dan Kartu Absensi Karyawan diarsip berdasarkan tanggal.

95 4. Menerima Daftar Biaya Produksi Aktual rangkap 3 dari Accounting dan mengarsipnya berdasarkan tanggal. Accounting 1. Accounting menerima Rekapitulasi Gaji rangkap 2 dan diarsip sementara berdasarkan tanggal. 2. Mencatat Gaji ke Daftar Biaya Produksi Aktual sebanyak 3 rangkap. Rangkap 1 dikirimkan ke Kasir, rangkap 2 diarsip berdasarkan tanggal, dan rangkap 3 dikirim ke Personalia. 3. Rekapitulasi Gaji dan Daftar Biaya Produksi Aktual akan lanjut ke prosedur Penghitungan HPP. Kasir 1. Menerima Rekapitulasi Gaji rangkap 1 dari Personalia dan men-transfer gaji pegawai ke rekening masing-masing. 2. Mengarsip rekapitulasi gaji rangkap 1 berdasar tanggal. 3. Menerima Daftar Biaya Produksi Aktual rangkap 1 dari Accounting dan meng-input pembayaran gaji ke sistem informasi. 4. Daftar Biaya Produksi Aktual diarsip berdasarkan tanggal.

96

ACCOUNTING

PERSONALIA

1

Kartu Absensi Karyawan Kartu absen karyawan tetap

Membuat rekapitulasi absensi

Dari departmen produksi Surat Lembur

Membuat rekapitulasi gaji

Rekapitulasi 2 Gaji 1 Kartu Absensi 2 Karyawan 1

Surat Lembur

Rekapitulasi Gaji 2 Mencatat Gaji ke Daftar Biaya Produksi Aktual Daftar Biaya Produksi Aktual 1

T

3

T Dilanjutkan ke Prosedur Perhitungan HPP

2

4

Daftar Biaya Produksi Aktual 3

2

3

Rekapitulasi Gaji 1


Transfer Gaji ke rekening karyawan

Rekapitulasi Gaji 1

Input Gaji


T

T Dilanjutkan ke Prosedur Perhitungan HPP

3

KASIR

Setiap akhir bulan

T

4

Setiap akhir bulan

3

T T

Gambar 4.11 DAD Prosedur Pencatatan BTKL (Bulanan) Usulan

97 Pembayaran Upah Jahit 1. Karyawan upahan mengisi Formulir Hasil Kerja Harian. Formulir Hasil Kerja Harian dibuat 2 rangkap, rangkap 1 untuk bagian Personalia dan rangkap 2 untuk karyawan upahan. Personalia 1. Personalia menerima Formulir Hasil Kerja Harian rangkap 1 dan membuat Rekapitulasi Upah Karyawan 3 rangkap. 2. Rekapitulasi Upah Karyawan rangkap 1 dikirimkan ke Kasir, rangkap 2 dikirimkan ke Accounting, dan rangkap 3 bersama dengan Formulir Hasil Kerja Harian diarsip berdasarkan tanggal. 3. Personalia menerima Daftar Biaya produksi Aktual rangkap 3 dari Accounting dan mengarsipnya berdasarkan tanggal. Accounting 1. Menerima Rekapitulasi Upah rangkap 2 dan mencatat besarnya upah karyawan ke Daftar Biaya Produksi Aktual. 2. Daftar Biaya Produksi Aktual dibuat 3 rangkap. Rangkap 1 dikirim ke Kasir, rangkap 2 diarsip oleh Accounting berdasarkan tanggal, dan rangkap 3 dikirimkan ke Personalia. 3. Rekapitulasi Upah dan Daftar Biaya Produksi Aktual akan lanjut ke prosedur Perhitungan HPP. Kasir 1. Menerima Rekapitulasi Upah rangkap 1 dari Personalia dan membayar upah secara tunai ke karyawan upahan setiap 2 mingguan.

98 2. Kasir mengarsip Rekapitulasi Upah berdasarkan tanggal. 3. Menerima Daftar Biaya Produksi Aktual rangkap 1 dari Accounting dan meng-input besarnya upah ke dalam sistem informasi. 4. Mengarsip Daftar Biaya Produksi Aktual rangkap 1 berdasarkan tanggal. JAHIT

Mengisi formulir hasil kerja harian

PERSONALIA


2

2 Membuat rekapitulasi upah karyawan

Membayar Upah Cash ke Karyawan


Rekapitulasi Upah

3

2

T

T

Dilakukan per 2 mingguan

1

Dilanjutkan ke Prosedur Perhitungan HPP

5

5


Di-batch per minggu ke-2 dan akhir bulan 4

T

Di-batch per minggu ke-2 dan akhir bulan

T

3 2

1

3

2 1

Formulir Hasil Kerja Harian 1

T

Rekapitulasi Upah

Mencatat Biaya Upah Keryawan ke Daftar Biaya Produksi Aktual

Pegawai

Rekapitulasi Upah

2

Rekapitulasi Upah


1

KASIR

3

1

Dilakukan oleh karyawan upahan


ACCOUNTING

4

Daftar Biaya Produksi Aktual 1 Input Pembayaran Upah Daftar Biaya Produksi Aktual 1

T

Gambar 4.12 DAD Prosedur Pencatatan BTKL (Upah) Usulan

99

4.2.5

Prosedur Pencatatan Pembiayaan Lain-Lain Usulan

Produksi 1. Pegawai produksi mengisi Surat Permohonan Pembiayaan Lain sebanyak 3 rangkap untuk meminta hal-hal diluar anggaran. 2. Meminta otoriasi supervisor

produksi dan mendistribusikan Surat

Permohonan Pembiayaan Lain 3 rangkap ke Accounting. 3. Menerima Surat Permohonan Pembiayaan Lain rangkap 1 dari Accounting yang sudah mendapatkan otorisasi persetujuan. 4. Produksi melakukan pembelian dan memperoleh Kuitansi Pembelian. Selanjutnya Produksi mengisi Form Reimburse dan menyerahkannya ke Accounting bersama-sama dengan Surat Permohonan Pembiayaan Lain rangkap 1, Kuitansi Pembelian, dan Form Reimburse. 5. Menerima Surat Permohonan Pembiayaan Lain rangkap 1 kembali dari Kasir dan mengarsipnya berdasarkan nomor. Accounting 1. Menerima Surat Permohonan Pembiayaan Lain 3 rangkap dari Produksi. 2. Memberikan otorisasi persetujuan terhadap Surat Permohonan Pembiayaan Lain. 3. Mengirimkan Surat Permohonan Pembiayaan Lain rangkap 1 ke bagian Produksi, rangkap 2 ke Kasir, dan rangkap 3 diarsip berdasarkan nomor. 4. Menerima Surat Pembiayaan Lain rangkap 1, Kuitansi Pembelian, dan Form Reimburse dari bagian Produksi. 5. Memeriksa semua dokumen dan memberikan otorisasi reimburse.

100 6. Menyerahkan Surat Permohonan Pembiayaan Lain rangkap 1, Form Reimburse, dan Kuitansi Pembelian ke Kasir. 7. Menerima Kuitansi Pembelian dari Kasir dan mengarsip sementara berdasarkan tanggal. Selanjutnya akan masuk ke prosedur Pencatatan BOP. Kasir 1. Menerima Surat Permohonan Pembiayaan Lain rangkap 2 dari Accounting. 2. Setelah Produksi melakukan pembelian, Kasir menerima Surat Permohonan Pembiayaan Lain rangkap 1, Form Reimburse, dan Kuitansi Pembelian dari Accounting. 3. Kasir memeriksa validitas data dan otorisasi yang diberikan. Jika semua data valid, maka dilakukan reimbursement terhadap pengeluaran yang dilakukan oleh bagian Produksi. 4. Mengirimkan Kuitansi Pembelian ke Accounting dan Surat Permohonan Pembiayaan Lain rangkap 1 ke bagian Produksi. Mengarsip Form Reimburse berdasarkan tanggal dan Surat Permohonan Pembiayaan Lain rangkap 2 berdasarkan nomor.

101

PRODUKSI

KASIR

ACCOUNTING 1

Pegawai produksi mengisi Surat Permohonan Pembiayaan Lain

Surat Permohonan Pembiayaan Lain

1

2

Surat Permohonan Pembiayaan 1 Lain

3

Surat 3 Permohonan 2 Pembiayaan 1 Lain

1 Pembelian

N

Otorisasi Form Reimburse

Kuitansi Pembelian

Isi Form Reimburse

Surat Permohonan Pembiayaan Lain 1

Reimburse Pengeluaran

Kuitansi Form Pembelian Reimburse

3 Surat Permohonan Pembiayaan Lain 1

Memeriksa validitas data dan otorisasi

T

4


Form Kuitansi Reimburse Pembelian

Kuitansi Pembelian

6


7

5 6 Form Reimburse 7 Surat Permohonan Pembiayaan 1 Lain

4 N

N

N

2 3

Kuitansi Pembelian

Form Reimburse

3

2



Memberikan Otorisasi Persetujuan

Meminta Otorisasi Supervisor

2

5

Kuitansi Pembelian T Lanjut ke Prosedur Pencatatan BOP

Gambar 4.13 DAD Prosedur Pencatatan Pembiayaan Lain-Lain Usulan

102

4.2.6

Prosedur Pencatatan BOP Usulan Berikut ini adalah prosedur Pencatatan BOP yang dilengkapi dengan adanya

dokumen tagihan, misalnya tagihan listrik, tagihan pembayaran bordir, dan Surat Permohonan Pembiayaan Lain. Accounting 1. Memperoleh dokumen tagihan atau kuitansi pembelian dari Kasir. 2. Accounting mencatat besarnya pengeluaran tersebut ke Daftar Biaya Produksi Aktual sebanyak 2 rangkap. Rangkap 1 dikirimkan ke Kasir untuk di-input ke sistem informasi dan rangkap 2 bersama dengan dokumen tagihan/kuitansi pembelian diarsip sementara berdasarkan tanggal yang nantinya akan masuk ke prosedur Perhitungan HPP. Kasir 1. Menerima Daftar Biaya Produksi Aktual rangkap 1 dari Accounting dan meng-input data biaya ke sistem informasi. 2. Kasir mengarsip Daftar Biaya Produksi Aktual rangkap 1 berdasarkan tanggal.

Selanjutnya adalah prosedur Pencatatan BOP yang tanpa dokumen tagihan, misalnya penyusutan mesin dan penyusutan gedung. Accounting 1. Accounting mengestimasikan besarnya biaya untuk dibebankan pada order berjalan dengan mengestimasi kenaikan/pengurangan biaya berdasarkan anggaran yang sudah dibuat.

103 2. Mencatat estimasi biaya ke Daftar Biaya Produksi Aktual sebanyak 2 rangkap. Rangkap 1 dikirimkan ke Kasir dan rangkap 2 diarsip sementara berdasarkan tanggal yang selanjutnya akan masuk ke prosedur Perhitungan HPP. Kasir 1. Menerima Daftar Biaya Produksi Aktual rangkap 1 dari Accounting dan meng-input data biaya ke sistem informasi. 2. Kasir mengarsip Daftar Biaya Produksi Aktual rangkap 1 berdasarkan tanggal.

104

ACCOUNTING

(ada tagihan)

ACCOUNTING ( NonTagihan )

Kasir Kuitansi Pembelian / Bukti Pembayaran Tagihan

Daftar Biaya Produksi Aktual 1 2 T

1


KASIR

T


Mencatat pengeluaran ke Daftar Biaya Produksi Aktual

Di-batch per hari

Mengestimasi kenaikan / pengurangan nilai Aktual BOP berdasarkan nilai Anggaran BOP Mencatat estimasi biaya ke Daftar Biaya Produksi Aktual

Dibatch per hari


T

2


KASIR

1

2



Input Biaya Produksi Aktual

2

Input Biaya Produksi Aktual



T

T

Gambar 4.14 DAD Prosedur Pencatatan BOP Usulan

105

4.2.7

Prosedur Pengembalian Bahan Baku Usulan

Produksi 1. Jika setelah proses produksi selesai dilakukan dan ada bahan baku sisa, maka bagian Produksi meng-input data pengembalian bahan baku ke sistem informasi dan mencetak Surat Pengembalian Bahan sebanyak 3 rangkap. 2. Surat Pengembalian Bahan 3 rangkap bersama dengan bahan baku lebih dikirimkan ke Gudang Bahan Baku. 3. Produksi menerima kembali Surat Pengembalian Bahan rangkap 2 dari Gudang Bahan Baku dan mengarsipnya berdasarkan nomor. Gudang Bahan Baku 1. Gudang Bahan Baku menerima bahan baku sisa dan Surat Pengembalian Bahan 3 rangkap. 2. Gudang akan melakukan pemeriksaan bahan kemudian meng-update stok bahan baku tersebut. 3. Mendistribusikan Surat Pengembalian Bahan rangkap 2 ke Produksi, rangkap 3 ke bagian Accounting, dan rangkap 1 diarsip oleh Gudang Bahan Baku berdasarkan nomor. Accounting Menerima Surat Pengembalian Bahan rangkap 3 dari Gudang Bahan Baku. Selanjutnya Accounting akan melakukan prosedur Perhitungan HPP.

106

GUDANG BAHAN BAKU

PRODUKSI

ACCOUNTING

1 Produksi Barang Stop Tidak

Bahan

3 Surat Pengembali an Bahan1 2

Ada bahan baku sisa ?

3 Dilanjutkan ke Prosedur Penghitungan HPP

Ya Update Status Pengembalian Bahan Baku dan stok akhir

Input Data Pengembalian Bahan Baku

Surat Pengembalian Bahan 1

Mencetak Surat Pengembalian Bahan

Bahan


2


N

2

2

3

3

3

1 2


N

Gambar 4.15 DAD Prosedur Pengembalian Bahan Baku Usulan

107

4.2.8

Prosedur Penghitungan HPP Usulan

Accounting 1. Menerima Surat Pengambilan Bahan rangkap 3 dan Surat Pengembalian Bahan rangkap 3 dari prosedur Permintaan Bahan dan prosedur Pengembalian bahan. 2. Hitung pemakaian bahan baku per order produksi. 3. Menerima Daftar Biaya Produksi Aktual rangkap 2,

Rekapitulasi Gaji

rangkap 2, dan Rekapitulasi Upah rangkap 2 dari prosedur Pencatatan BTKL. 4. Hitung pemakaian tenaga kerja (gaji dan updah) per order produksi. 5. Menerima Surat Pengembalian Bahan rangkap 3, Surat Pengembalian Bahan rangkap 3, Daftar BOP Aktual rangkap 2, dan Kuitansi Pembelian/Tagihan dari prosedur Pembiayaan Lain dan prosedur pencatatan BOP. 6. Hitung overhead per order produksi 7. Mencetak laporan HPP Aktual Per Order.

108

ACCOUNTING Prosedur Pembayaran BTKL

Prosedur Prosedur Permintaan Pengembalian Bahan Bahan Surat Surat Pengambilan Pengembalian Bahan 3 Bahan 3

Hitung Pemakaian Bahan Baku Per Order Produksi


Rekapitulasi Upah

2

Rekapitulasi Gaji

Hitung Pembayaran Upah dan Pembebanan Gaji Subbagian produksi

Prosedur Produksi, Prosedur Pembiayaan Lain, Prosedur Pembebanan BOP

2

Surat Surat Pengembalian Pengambilan Bahan 3 Bahan 3

Kuitansi Daftar Pembelian/Bukti BOP Pembayaran Aktual 2

Hitung Pengeluaran BOP per Order Produksi

Pencetakan Laporan

Laporan HPP Per Order

Manajer

Gambar 4.16 DAD Prosedur Perhitungan HPP Usulan

Tagihan

109

4.3

Diagram Aliran Data yang Diusulkan

4.3.1

Diagram Konteks

Gambar 4.17 Diagram Konteks Usulan

110

4.3.2

Diagram Nol

Gambar 4.18 Diagram Nol Usulan

111

4.3.3

Diagram Rinci

Gambar 4.19 Diagram Rinci 1 Usulan


112



113

Gambar 4.23 Diagram Rinci 5.0 Usulan


114


115

4.4

Data Sistem

4.4.1

Kamus Data

4.4.1.1 Kamus Data Aliran Data

Detail_FG = Tanggal_Formulir + @Kode_FG + Tipe_FG + Merek + Nama_FG + Ukuran + Warna + Satuan

Detail_WIP = Tanggal_Formulir + {Departemen_Pembuat + Tipe_WIP + @Kode_WIP + Nama_WIP + Ukuran + Warna + Satuan}

Detail_Desain = Tanggal_Formulir + @Kode_FG + Nama_FG + Ukuran + {@Departemen_Pembuat + {@Kode_Barang_Terbentuk + Jenis_Barang_Terbentuk Tipe_Barang_Terbentuk+ Nama_Barang_Terbentuk +{@Kode_Barang_Penyusun + Jenis_Barang_Penyusun + Tipe_Barang_Penyusun + Nama_Barang_Penyusun + Qty_Formula + Satuan}}} + Mengetahui + Penyusun

Order = @Kode_Order + Kode_FG + Nama_FG + Tanggal_Order + Qty_Order + Spesifikasi + Tanggal_Selesai + Pemohon + Menyetujui

Rincian_BP_Aktual = @Tanggal_DBPA + {@Nama_Biaya + @Kode_Order + @Departemen + Keterangan + Biaya} + Mengetahui + Penyusun

Rincian_Progress_Produksi = Tanggal + @Kode_Order + Nama_FG + Tanggal_ Selesai_Diminta

+

Tanggal_Selesai_Aktual

+

%_Penyelesaian

+

116 {Departemen_Pembuat + Jenis_Barang + Kode_Barang + Nama_Barang + Qty_selesai + Update_Terakhir} 4.4.1.2 Kamus Data untuk Data Store

Jenis_RM = {@Tipe_RM + Ktr_RM}

Part_WIP = {@Tipe_WIP + Ktr_part}

Jenis_FG = {@Tipe_FG + Ktr_FG }

Merk_FG = {@Merk + Nama_merk}

RM_WIP_FG = {Tgl_input + Jns_barang + @KdBarang + Tipe_RM + Tipe_WIP + Tipe_FG + Merk + Nama_barang + Warna + Ukuran + Harga_barang + HPP + Stok_akhir + Satuan + KdDept}

Departemen = {@KdDept + Nama_dept + Jns_dept + Luas + Qty_mesin}

Daftar_Tarif = {@KdTarif + Nama_tarif + Jns_tarif}

Tarif = {Tgl_input

+ @KdDept + Nama_dept + @KdTarif + Nama_tarif +

Harga_tarif}

Anggaran_BP = {@KdOrder + Tgl_order + Qty_order + @KdDept + Nama_dept + @KdTarif + Nama_tarif + Harga_tarif + By_tarif_anggaran}

117

Formula = {Tgl_formulir + @KdBarang + Nama_barang + Ukuran + {@KdDept + Nama_dept + {@KdBrg_terbentuk + Jns_brg_terbentuk + Tipe_brg_terbentuk + Nm_brg_terbentuk Tipe_brg_penyusun

+ +

{@KdBrg_penyusun Nm_brg_penyusun

+

+

Jns_brg_penyusun

Qty_formula

+

Satuan

+ }}}+

NIP_penyusun + Nama_penyusun + NIP_penginput + Nama_penginput}

Anggaran_RM = {@KdOrder + Tgl_order + Qty_order + @KdBarang + Nama_barang + Ukuran + {@KdDept + Nama_dept + {@KdBrg_terbentuk + Jns_brg_terbentuk + Nm_brg_terbentuk + {@KdBrg_penyusun + Jns_brg_penyusun + Nm_brg_penyusun + Harga_barang + Qty_formula + Qty_anggaran + By_RM_anggaran }}}}

Order_Produksi = {@KdOrder + KdBarang + Jns_barang + Nama_barang + Ukuran + Tgl_order + Qty_order + Spesifikasi + Tgl_selesai_prk + Tgl_selesai_akt}

Aktual_BP = {@Tgl_DBPA + {@KdOrder + @KdDept + Nama_dept + @KdTarif + Nama_tarif + Ktr + By_BP} + NIP_penyusun + Nama_pegawai}

RM_Ambil = {Tgl_SPaB + @NoSPaB + KdOrder + KdDept + Nama_dept + {@KdBarang + Jns_barang + Nama_barang + Harga_barang + Qty_ambil + Satuan + By_ambil + Ktr_ext} + NIP + Nama_pegawai + Status_ambil}

118 RM_Kembali = {Tgl_SPkB + @NoSPkB + KdOrder + KdDept + Nama_dept + {@KdBarang + Jns_barang + Nama_barang + Harga + Qty_kembali + Satuan + By_kembali} + NIP + Nama_pegawai + Status_kembali}

Pemindahan = {@KdPindah + Wkt_kirim + KdDept_pengirim + Wkt_terima KdDept_penerima + {@KdOrder + {@KdBarang + Jns_barang + Nama_barang + Qty_kirim + Ktr_kirim + Qty_terima + Ktr_terima}} + NIP_pengirim + Nm_peg_pengirim + NIP_penerima + Nm_peg_penerima}

Pegawai = {@NIP + Nama_pegawai + KTP + Alamat + Telp + Kota_lahir + Tgl_lahir + Status_peg + KdDept + Password + Gaji}

4.4.1.3 Kamus Data Laporan

Laporan_Order_Produksi = Awal + Akhir + Tanggal_Cetak + Hal + {No + Kode_Order

+

Kode_FG

+

Nama_FG

+

Ukuran

+

Tanggal_Order

+

Tanggal_Selesai_Diminta + Lama_Produksi + Qty_Order + Status_Produksi}

Laporan_Order_Produksi_Selesai = Awal + Akhir + Tanggal_Cetak + Hal + {No + Tanggal_Selesai_Aktual + {Kode_Order + Kode_FG + Nama_FG + Ukuran + Qty_Order + Qty_Realisasi + Selisih_Qty + Selisih_Hari_Penyelesaian + Status_Penyelesaian}}

Laporan_Pemakaian_Bahan_Baku_per_Order

=

Kode_Order

+

Kode_FG

+

Nama_FG + Ukuran + Tanggal_Cetak + Hal + {Departemen + {Nama_RM + Satuan

119 + {Tanggal_SPaB + Qty_Ambil + Biaya_Ambil + Tanggal_SPkB + Qty_Kembali + By_Kembali }}+ TotalPerDept }+ GrandTotal

Laporan_Pemakaian_Tenaga_Kerja_Langsung_per_Order

=

Kode_Order

+

Kode_FG + Nama_FG + Ukuran + Tanggal_Cetak + Hal + {Departemen + {Gaji/Upah + {Tanggal_Daftar_BP_Aktual + Keterangan + Biaya } + TotalPerDept} + GrandTotal

Laporan_Pemakaian_Overhead_Pabrikasi_per_Order = Kode_Order + Kode_FG + Nama_FG

+

Ukuran

+

Tanggal_Cetak

+

Hal

+

{Departemen

+

{Nama_Biaya_Overhead + {Tanggal_Daftar_ BP_Aktual + Keterangan + Biaya } + TotalPerDept} + GrandTotal

Laporan_Varians_Pemakaian_Bahan_Baku_per_Order = Kode_Order + Kode_FG + Nama_FG + Ukuran + Tgl_cetak + Hal + {Departemen + { Nama_RM + Qty_Anggaran + Qty_Aktual + Varians_Qty + Satuan + Biaya_RM_Anggaran + Biaya_RM_Aktual + Varians_Biaya + Favourable/Unfavourable}+ Var_Qty/Dept + Var_Biaya/Dept

+

Favourable/Unfavourable}

+

Total_Varians_Qty

+

Total_Varians_Biaya + Favourable/Unfavourable Laporan_Varians_Pemakaian_BTKL = Kode_Order + Kode_FG + Nama_FG + Ukuran + Tanggal_Cetak + Hal + {Departemen + {Kode_Biaya + Nama_Biaya + Biaya_Anggaran + Biaya_Aktual + Varians_Biaya + Favourable/Unfavourable} + Total/Dept_Anggaran

+

GrandTotal_Anggaran Favourable/Unfavourable

+

Total/Dept_Aktual GrandTotal_Aktual

+

Total/Dept_VariansBy}

+

+

GrandTotal_VariansBy

+

120

Laporan_Varians_Pemakaian_BOP = Kode_Order + Kode_FG + Nama_FG + Ukuran + Tanggal_Cetak + Hal + {Departemen + {Kode_Biaya + Nama_Biaya + Biaya_Anggaran + Biaya_Aktual + Varians_Biaya + Favourable/Unfavourable} + Total/Dept_Anggaran

+

GrandTotal_Anggaran

+

Total/Dept_Aktual GrandTotal_Aktual

+

Total/Dept_VariansBy}

+

+

GrandTotal_VariansBy

+

Favourable/Unfavourable

Laporan_HPP_Anggaran_Per_Order = Kode_Order + Kode_FG + Nama_FG + Ukuran + Tanggal_Order + Tanggal_Selesai_Diminta + Spesifikasi + Tanggal_Cetak + Hal + {Kode_RM + Nama_RM + Qty + Harga_RM + Biaya + Gaji/Upah + Biaya + Jenis_Overhead + Biaya} + Total_BBB +

Total_BTKL + Total_BOP +

GrandTotal + Qty_Produksi + Biaya/Pcs

Laporan_HPP_Aktual_Per_Order = Kode_Order + Kode_FG + Nama_FG + Ukuran + Tanggal_Order + Tanggal_Selesai_Aktual + Spesifikasi + Tanggal_Cetak + Hal + {Kode_RM + Nama_RM + Qty + Harga_RM + Biaya + Gaji/Upah + Biaya + Jenis_Overhead + Biaya} + Total_BBB + Total_BTKL + Total_BOP + GrandTotal + Realisasi_Qty_Produksi + Biaya/Pcs

Laporan_Varians_HPP = Kode_Order + Kode_FG + Nama_FG + Ukuran + Tanggal_Cetak + Hal + {Jenis_Biaya + HPP_Anggarkan + HPP_Aktual + Varians_HPP

+

Favourable/Unfavourable}

+

Total_HPP_Anggaran

Total_HPP_Aktual + Total_Varians_HPP + Favourable/Unfavourable

+

121

4.4.2

Normalisasi Data

RM_WIP_FG

UNF {Tgl_input + Jns_barang + KdBarang + Tipe_RM + Tipe_WIP + Tipe_FG + Merk + Nama_barang + Warna + Ukuran + Harga_barang + HPP + Stok_akhir + Satuan + KdDept} 1NF Tgl_input + Jns_barang + @KdBarang + Tipe_RM + Tipe_WIP + Tipe_FG + Merk + Nama_barang + Warna + Ukuran + Harga_barang + HPP + Stok_akhir + Satuan + KdDept 2NF RM_WIP_FG = Tgl_input + Jns_barang + @KdBarang + Nama_barang + Warna + Harga_barang + Stok_akhir + Satuan Rinci_RM = @KdBarang + Tipe_RM Rinci_WIP = @KdBarang + Tipe_WIP + Ukuran + KdDept Rinci_FG = @KdBarang + Merk + Tipe_FG + Ukuran + HPP

Departemen

UNF {@KdDept + Nama_dept + Jns_dept + Luas + Qty_mesin} 1NF @KdDept + Nama_dept + Jns_dept + Luas + Qty_mesin 2NF Departemen = @KdDept + Nama_dept + Jns_dept Luas_Dept = @KdDept + Luas

122 Banyak_Mesin = @KdDept + Qty_mesin Tarif

{Tgl_input + KdDept +Nama_dept + KdTarif + Nama_tarif + Harga_tarif } 1NF Tgl_input + @KdDept + Nama_dept + @KdTarif + Nama_tarif + Harga_tarif 2NF Tarif = Tgl_input + @KdDept + @KdTarif + Harga_tarif Departemen = @KdDept + Nama_dept Daftar_Tarif = @KdTarif + Nama_tarif

Anggaran_BP

UNF {KdOrder + Tgl_order + Qty_order + KdDept + Nama_dept + KdTarif + Nama_tarif + Harga_tarif + By_tarif_anggaran} 1NF @KdOrder + Tgl_order + Qty_order + @KdDept + Nama_dept + @KdTarif + Nama_tarif + Harga_tarif + By_tarif_anggaran 2NF Anggaran_Tarif = @KdOrder + @KdDept + @KdTarif + By_tarif_anggaran Tarif = @KdDept + @KdTarif + HrgTarif Departemen = @KdDept + Nama_dept Daftar_Tarif = @KdTarif + Nama_tarif Order_Produksi = @KdOrder + Tgl_order + Qty_order

123 Formula

UNF {Tgl_formulir + KdBarang + Nama_barang + Ukuran + {KdDept + Nama_dept + {KdBrg_terbentuk + Jns_brg_terbentuk + Tipe_brg_terbentuk + Ktr_brg_terbentuk +

Nm_brg_terbentuk

+

{KdBrg_penyusun

+

Jns_brg_penyusun

+

Tipe_brg_penyusun + Ktr_brg_penyusun + Nm_brg_penyusun + Qty_formula + Satuan}}}+

NIP_penyusun

+

Nama_penyusun

+

NIP_penginput

+

Nama_penginput} 1NF Tgl_formulir + @KdBarang + Nama_barang + Ukuran + @KdDept + Nama_dept + @KdBrg_terbentuk + Jns_brg_terbentuk + Tipe_brg_terbentuk + Ktr_brg_terbentuk +

Nm_brg_terbentuk

+

@KdBrg_penyusun

+

Jns_brg_penyusun

+Tipe_brg_penyusun + Ktr_brg_penyusun + Nm_brg_penyusun + Qty_formula + Satuan + NIP_penyusun + Nama_penyusun + NIP_penginput + Nama_penginput 2NF Formula_Header = Tgl_formulir + @KdBarang + NIP_penyusun + Nama_penyusun + NIP_penginput + Nama_penginput Formula_Detail

=

@KdBarang

+

@KdDept

+

@KdBrg_terbentuk

@KdBarang_penyusun + Qty_formula Departemen = @KdDept + Nama_dept RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang + Satuan Rinci_FG = @KdBarang + Tipe_FG + Ktr_FG Rinci_WIP = @KdBarang + Tipe_WIP + Ktr_part Rinci_RM = @KdBarang + Tipe_RM + Ktr_RM

+

124 3NF Formula Header = Tgl_formulir + @KdBarang + #NIP_penyusun + #NIP_penginput Pegawai = @NIP + Nama_pegawai Formula_Detail

=

@KdBarang

+

@KdDept

+

@KdBrg_terbentuk

+

@KdBarang_penyusun + Qty_formula Departemen = @KdDept + Nama_dept RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang + Satuan Rinci_FG = @KdBarang + #Tipe_FG Jenis_FG = @Tipe_FG + Ktr_FG Rinci_WIP = @KdBarang + #Tipe_WIP Part_WIP = @Tipe_WIP + Ktr_part Rinci_RM = @KdBarang + #Tipe_RM Jenis_RM = @Tipe_RM + Ktr_RM

Anggaran_RM

UNF {KdOrder + Tgl_order + Qty_order + KdBarang + Nama_barang + Ukuran + {KdDept

+

Nama_dept

+

{KdBrg_terbentuk

+

Jns_brg_terbentuk

+

Nm_brg_terbentuk + { KdBrg_penyusun + Jns_brg_penyusun + Nm_brg_penyusun + Harga + Qty_formula + Qty_anggaran + By_RM_anggaran }}}} 1NF @KdOrder + Tgl_order + Qty_order + @KdBarang + Nama_barang + Ukuran + @KdDept

+

Nama_dept

+

@KdBrg_terbentuk

+

Jns_brg_terbentuk

+

Nm_brg_terbentuk + @KdBrg_penyusun + Jns_brg_penyusun + Nm_brg_penyusun + Harga + Qty_formula + Qty_anggaran + By_RM_anggaran

125 2NF Anggaran_RM = @KdOrder + @KdBarang + @KdDept + @KdBrg_terbentuk + @KdBrg_penyusun + Qty_anggaran + By_RM_anggaran Order_Produksi = @KdOrder + Tgl_order + Qty_order Formula = @KdBarang + @KdDept + @KdBrg_terbentuk + @KdBrg_penyusun + Qty_formula RM_WIP_FG = @KdBarang + Nama_barang + Jns_barang + Nama_barang + Harga_barang Rinci_FG = @KdBarang + Ukuran Departemen = @KdDept + Nama_dept

Order_Produksi

UNF {KdOrder + KdBarang + Jns_barang + Nama_barang + Ukuran + Tgl_order + Qty_order + Spesifikasi + Tgl_selesai_prk + Tgl_selesai_akt} 1NF @KdOrder + KdBarang + Jns_barang + Nama_barang + Ukuran + Tgl_order + Qty_order + Spesifikasi + Tgl_selesai_prk + Tgl_selesai_akt 2NF Order_Produksi = @KdOrder + #KdBarang + Tgl_order + Qty_order + Spesifikasi + Tgl_selesai_prk + Tgl_selesai_akt RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang Rinci_FG = @KdBarang + Ukuran

126 Aktual_BP

UNF {Tgl_DBPA + {KdOrder + KdDept + Nama_dept + KdTarif + Nama_tarif + Ktr + By_BP} + NIP_penyusun + Nama_pegawai} 1NF @Tgl_DBPA + @KdOrder + @KdDept + Nama_dept + @KdTarif + Nama_tarif + Ktr + By_BP + NIP_penyusun + Nama_pegawai 2NF Aktual_BP_Header = @Tgl_DBPA + NIP_penyusun + Nama_pegawai Aktual_BP_Detail = @Tgl_DBPA + @KdOrder + @KdDept + @KdTarif + Ktr + By_BP Departemen = @KdDept + Nama_dept Daftar_Tarif = @KdTarif + Nama_tarif 3NF Aktual_BP_Header = @ Tgl_DBPA + # NIP_penyusun Pegawai = @NIP + Nama_pegawai Aktual_BP_Detail = @Tgl_DBPA + @KdOrder + @KdDept + @KdTarif + Ktr + By_BP Departemen = @KdDept + Nama_dept Daftar_Tarif = @KdTarif + Nama_tarif

127 RM_Ambil

UNF {Tgl_SPaB + NoSPaB + KdOrder + KdDept + Nama_dept + {KdBarang + Jns_barang + Nama_barang + Harga + Qty_ambil + Satuan + By_ambil + Ktr_ext} + NIP_pengambil + Nama_pegawai + Status_ambil} 1NF Tgl_SPaB + @NoSPaB + KdOrder + KdDept + Nama_dept + @KdBarang + Jns_barang + Nama_barang + Harga + Qty_ambil + Satuan + By_ambil + Ktr_ext + NIP_pengambil + Nama_pegawai + Status_ambil 2NF RM_Ambil_Header = Tgl_SPaB + @NoSPaB + KdOrder + KdDept + Nama_dept + NIP_pengambil + Nama_pegawai + Status_ambil RM_Ambil_Detail = @NoSPaB + @KdBarang + Qty_ambil + By_ambil RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang + Harga_barang + Satuan RM_Ambil_Ext = @NoSPaB + @KdBarang + Ktr_ext 3NF RM_Ambil_Header = Tgl_SPaB + @NoSPaB + KdOrder + #KdDept + #NIP_pengambil + Status_ambil Pegawai = @NIP + Nama_pegawai Departemen = @KdDept + Nama_dept RM_Ambil_Detail = @NoSPaB + @KdBarang + Qty_ambil + By_ambil RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang + Harga_barang + Satuan RM_Ambil_Ext = @NoSPaB + @KdBarang + Ktr_ext

128 RM_Kembali

UNF {Tgl_SPkB + NoSPkB + KdOrder + KdDept + Nama_dept + {KdBarang + Jns_barang + Nama_barang + Harga + Qty_kembali + Satuan + By_kembali} + NIP_pengembali + Nama_pegawai + Status_kembali} 1NF Tgl_SPkB + @NoSPkB + KdOrder + KdDept + Nama_dept + @KdBarang + Jns_barang + Nama_barang + Harga + Qty_kembali + Satuan + By_kembali + NIP_pengembali + Nama_pegawai + Status_kembali 2NF RM_Kembali_Header = Tgl_SPkB + @NoSPkB + KdOrder + KdDept + Nama_dept + NIP_pengembali + Nama_pegawai + Status_kembali RM_Kembali_Detail = @NoSPkB + @KdBarang +Qty_kembali + By_kembali RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang + Harga_barang + Satuan 3NF RM_Kembali_Header = Tgl_SPkB + @NoSPkB + KdOrder + #KdDept + #NIP_pengembali + Status_kembali Departemen = @KdDept + Nama_dept Pegawai = @NIP + Nama_pegawai RM_Kembali_Detail = @NoSPkB + @KdBarang +Qty_kembali + By_kembali RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang + Harga_barang + Satuan

129 Pemindahan

UNF {KdPindah + Wkt_kirim + KdDept_pengirim + Wkt_terima + KdDept_penerima + {KdOrder + {KdBarang + Jns_barang + Nama_barang + Qty_kirim + Ktr_kirim + Qty_terima + Ktr_terima}} + NIP_pengirim + Nm_peg_pengirim + NIP_penerima + Nm_peg_penerima} 1NF @KdPindah + Wkt_kirim + KdDept_pengirim + Wkt_terima + KdDept_penerima + @KdOrder + @KdBarang + Jns_barang + Nama_barang + Qty_kirim + Ktr_kirim + Qty_terima + Ktr_terima + NIP_pengirim + Nm_peg_pengirim + NIP_penerima + Nm_peg_penerima 2NF Pemindahan_Header = @KdPindah + Wkt_kirim + KdDept_pengirim +

Wkt

_terima + KdDept_penerima + NIP_pengirim + Nm_peg_pengirim + NIP_penerima + Nm_peg_penerima Pemindahan_Detail = @KdPindah + @KdOrder + @KdBarang + Qty_kirim + Ktr_kirim + Qty_terima + Ktr_terima RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang 3NF Pemindahan_Header = @KdPindah + Wkt_kirim + KdDept_pengirim + Wkt_terima + KdDept_penerima + #NIP_pengirim + #NIP_penerima Pegawai = @NIP + Nama_pegawai Pemindahan_Detail = @KdPindah + @KdOrder + @KdBarang + Qty_kirim + Ktr_kirim + Qty_terima + Ktr_terima RM_WIP_FG = @KdBarang + Jns_barang + Nama_barang

130 Pegawai

UNF {NIP + Nama_pegawai + KTP + Alamat + Telp + Kota_lahir + Tgl_lahir + Status_peg + KdDept + Password + Gaji } 1NF @NIP + Nama_pegawai + KTP + Alamat + Telp + Kota_lahir + Tgl_lahir + Status_peg + KdDept + Password + Gaji 2NF Pegawai = @NIP + Nama_pegawai + KTP + Alamat + Telp + Kota_lahir + Tgl_lahir + Status_peg + KdDept Login = @NIP + Password Gaji_Pegawai_Tetap = @NIP + Gaji

4.4.3 Spesifikasi Tabel

Nama Tabel

: Jenis_RM

Keterangan

: Mendata keterangan tipe raw material

Primary Key : @Tipe_RM No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tipe_RM

Varchar

2

-

Tipe raw material *)

2.

Ktr_RM

Varchar

10

-

Keterangan

*) xx → Akronim tipe raw material Contoh : KN → Kain, CT → Cat, BN → Benang

Nama Tabel

: Part_WIP

Keterangan

: Mendata part WIP

Primary Key : @Tipe_WIP No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tipe_WIP

Varchar

3

-

Tipe WIP *)

2.

Ktr_part

Varchar

10

-

Keterangan

*) xx → Akronim tipe WIP

131

Contoh : LGN → Lengan Kanan LGI → Lengan Kiri BYD → Body Depan

Nama Tabel

: Jenis_FG

Keterangan

: Mendata jenis produk finished good

Primary Key : @Tipe_FG No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tipe_FG

Varchar

3

-

Tipe finished good *)

2.

Ktr_FG

Varchar

10

-

Keterangan

*) xx → Akronim tipe finished good Contoh : KMJ → Kemeja OVL → Overall CLG → Celana Panjang

Nama Tabel

: Merk_FG

Keterangan

: Mendata merk lisensi yang dimiliki

Primary Key : @Merk No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Merk

Varchar

2

-

Merek lisensi *)

2.

Nama_merk

Varchar

10

-

-

*) xx → Akronim dari merk lisensi Contoh : WB → Warner Bros

PP

→ PowerPuff Girl

FC → Felix the Cat

MM

→ Mickey Mouse and Friends

FD → Fido Dido

BB

→ Betty Boop

Nama Tabel

: RM_WIP_FG

Keterangan

: Mendata seluruh raw material, WIP, dan finished good

132 Primary Key : @KdBarang No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tgl_input

Date

-

-

Tanggal input ke sistem

2.

Jns_barang

Varchar

2

-

Jenis barang. R1, R2, WP, FG

3.

KdBarang

Varchar

12

-

Kode barang *)

4.

Nama_barang

Varchar

35

-

Nama barang

5.

Warna

Varchar

7

-

-

6.

Harga_barang

Decimal

6

3

Untuk RM merupakan harga rata-rata pembelian Untuk WIP dan FG merupakan harga pokok bahan baku

7.

Stok_akhir

Decimal

5

3

Stok akhir

8.

Satuan

Varchar

5

-

-

*) Kode raw material : xx → tipe RM xxxx → tahun pembelian xxx → nomor urut Contoh : KN2004001 → Kain yang dibeli tahun 2004 dengan nomor urut 001. Kode WIP : xxx → jenis WIP xxxx → tahun produksi xx → nomor urut model xx → ukuran x → urutan produksi Contoh : LGN2004010S1 → Lengan kanan yang diproduksi tahun 2004 dengan nomor urut model 01 berukuran S dan urutan produksi ke-1. Kode finished good : xx → initial merk xxxx → tahun produksi xx → nomor urut model xx → ukuran Contoh : FC2004010S → Merek Felix the Cat yang diproduksi tahun 2004 dengan nomor urut model 01 dan berukuran S.

133

Nama Tabel

: Rinci_FG

Keterangan

: Mencatat atribut yang hanya dimiliki oleh FG

Primary Key : @KdBarang No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdBarang

Varchar

12

-

Kode barang

2.

Merk

Varchar

2

-

Merk produk

3.

Tipe_FG

Varchar

3

-

Kaos, kemeja, dan lainnya

4.

Ukuran

Varchar

2

-

0S, 0M, 0L, 02, 04, 06, 08, 10, 12

5.

HPP

Decimal

6

3

Harga jual hanya untuk FG

Nama Tabel

: Rinci_WIP

Keterangan

: Mendata atribut yang hanya dimiliki oleh WIP


Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdBarang

Varchar

12

-

Kode barang

2.

Tipe_WIP

Varchar

3

-

Part-part produk

3.

Ukuran

Varchar

2

-

0S, 0M, 0L, 02, 04, 06, 08, 10, 12

4.

KdDept

Varchar

3

-

-

Nama Tabel

: Rinci_RM

Keterangan

: Mendata atribut yang hanya dimiliki oleh RM


Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdBarang

Varchar

12

-

Kode barang

2.

Tipe_RM

Varchar

2

-

Kain, benang, dan lainnya

134

Nama Tabel

: Departemen

Keterangan

: Mendata seluruh departemen.

Primary Key : @KdDept No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdDept

Varchar

3

-

Kode departemen *)

2.

Nama_dept

Varchar

10

-

Nama departemen

3.

Jns_dept

Varchar

1

-

Departemen produksi (P) dan nonproduksi (N)

*) KdDept : xxx → Akronim dari nama departemen

Nama Tabel

: Luas_Dept

Keterangan

: Mendata luas departemen


Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdDept

Varchar

3

-

Kode departemen *)

2.

Luas

Integer

4

-

Luas departemen

Nama Tabel

: Banyak_Mesin

Keterangan

: Mendata Banyak Mesin dalam Departemen


Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdDept

Varchar

3

-

Kode departemen *)

2.

Qty_msn

Integer

3

-

Banyak departemen

Nama Tabel

: Order_Produksi

Keterangan

: Mendata semua transaksi order produksi

Primary Key : @KdOrder

mesin

dalam

135

No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdOrder

Varchar

11

-

Kode order *)

2.

KdBarang

Varchar

12

-

Kode barang

3.

Tgl_order

Date

-

-

Tanggal order dilakukan

4.

Qty_order

Integer

6

-

Qty pemesanan

5.

Spesifikasi

Varchar

50

-

Spesifikasi pesanan

6.

Tgl_selesai_prk Date

-

-

Tanggal perkiraan selesai

7.

Tgl_selesai_akt

-

-

Tanggal aktual selesai

Date

*) KdOrder : xxxxxxxxxx → kode FG x → nomor urut pesanan, maksimal 5 kali Contoh : FX2004010S1 → Merek Felix yang diproduksi tahun 2004 dengan nomor urut model 01 berukuran S yang akan diproduksi untuk pertama kali.

Nama Tabel

: Pegawai

Keterangan

: Mendata pegawai

Primary Key : @NIP No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

NIP

Varchar

11

-

Nomor Induk Pegawai *)

2.

Nama_pegawai Varchar

12

-

-

3.

KTP

Varchar

20

-

Nomor KTP pegawai

4.

Alamat

Varchar

50

-

-

5.

Telp

Varchar

15

-

-

6.

Kota_lahir

Varchar

15

-

-

7.

Tgl_lahir

Date

-

-

-

8.

Status_peg

Varchar

1

-

Status pegawai, M untuk menikah, S untuk singel, X untuk janda/duda

9.

KdDept

Varchar

3

-

Kode Departemen tempat pegawai bekerja

136

*) NIP : xxx → kode departemen xx → BL = bulanan atau UP = upahan xxxx → tahun masuk xx → nomor urut

Nama Tabel

: Gaji_Pegawai _Tetap

Keterangan

: Mendata gaji pegawai tetap bulanan


Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

NIP

Varchar

11

-

NIP pegawai

2.

Gaji

Decimal

8

3

-

Nama Tabel

: Login

Keterangan

: Mendata login pegawai (untuk pegawai yang diberi hak)


Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

NIP

Varchar

11

-

NIP pegawai

2.

Password

Varchar

11

-

Password login

Nama Tabel

: Formula_Header

Keterangan

: Mendata finished good yang akan dibuat formulanya.


Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tgl_formulir

Date

-

-

Tanggal formulir dibuat

2.

KdBarang

Varchar

12

-

Kode barang yang akan diproduksi

3.

NIP_penyusun Varchar

11

-

NIP penyusun formula

137

Nama Tabel

: Formula_Detail

Keterangan

: Mendata barang terbentuk dan barang penyusun per departemen

Primary Key :..@KdBarang

+

@KdDept

+

@KdBarang_terbentuk

+

@KdBarang_penyusun No. 1.

Nama Field

Tipe

KdBarang

Varchar

Panjang

Desimal

12

-

Keterangan Kode barang yang akan diproduksi

2.

KdDept

3.

Varchar

3

-

Kode departemen

KdBrg_terbentuk Varchar

12

-

Kode barang terbentuk

4.

KdBrg_penyusun Varchar

12

-

Kode barang penyusun

5.

Qty_formula

2

3

Indeks bahan baku untuk

Decimal

membuat 1 pcs finished good

Nama Tabel

: Daftar_Tarif

Keterangan

: Mendata semua tarif yang ada

Primary Key : @KdTarif No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdTarif

Varchar

3

-

Kode tarif *)

2.

Nama_tarif

Varchar

15

-

Nama tarif

3.

Jns_tarif

Varchar

1

-

Penanda untuk tarif BTKL (T) dan BOP (O)

*) KdTarif : xxx → akronim tarif Contoh : BTL → Bahan Baku Tidak Langsung TTL → Tenaga Kerja Tidak Langsung LST → Listrik

Nama Tabel

: Tarif

Keterangan

: Mendata tarif per departemen dan besar tarifnya

Primary Key : @KdDept + @KdTarif

138

No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tgl_input

Date

-

-

Tanggal input tarif

2.

KdTarif

Varchar

3

-

Kode tarif

3.

KdDept

Varchar

3

-

Kode departemen

4.

Harga_tarif

Decimal

4

3

Harga tarif

Nama Tabel

: Anggaran_RM

Keterangan

: Mendata anggaran pemakaian bahan baku untuk setiap order produksi yang akan berjalan

Primary Key : @KdOrder + @KdBarang + @KdDept + @KdBarang_terbentuk + @KdBarang_penyusun No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdOrder

Varchar

11

-

Kode Order

2.

KdBarang

Varchar

12

-

Kode barang yang akan diproduksi

3.

KdDept

4.

Varchar

3

-

Kode Departemen

KdBarang_terbentuk Varchar

10

-

-

5.

KdBarang_penyusun Varchar

10

-

-

6.

Qty_anggaran

6

3

Qty per bahan baku

Decimal

dianggaran untuk memproduksi sebanyak Qty order. 7.

By_RM_anggaran

Decimal

9

3

Harga per bahan baku dikalikan

kuantitas

order produksi

Nama Tabel

: Anggaran_BP

Keterangan

: Mendata anggaran pemakaian tarif untuk setiap order produksi yang akan berjalan

Primary Key : @KdOrder + @KdTarif + @KdDept

139

No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdOrder

Varchar

11

-

Kode order

2.

KdTarif

Varchar

3

-

Kode tarif

3.

KdDept

Varchar

3

-

Kode departemen

4.

By_tarif_anggaran Decimal

9

3

Harga_tarif x qty order

Nama Tabel

: RM_Ambil_Header

Keterangan

: Mendata pengambilan bahan baku pada saat order produksi berjalan

Primary Key : @NoSPaB No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tgl_SPaB

Date

-

-

Tanggal SPaB

2.

NoSPaB

Varchar

10

-

Nomor SPaB *)

3.

KdOrder

Varchar

11

-

Kode order

4.

KdDept

Varchar

3

-

Kode departemen

5.

NIP_pengambil

Varchar

11

-

NIP kurir pengambil bahan baku

5.

Status_ambil

Varchar

1

-

Diminta (0), Diberikan (1)

*) NoSPaB : xxxxxxxx → tanggal xx → nomor urut

Nama Tabel

: RM_Ambil_Detail

Keterangan

: Mendata detail pengambilan bahan baku pada saat order produksi berjalan

Primary Key : @NoSPaB + @KdBarang No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

NoSPaB

Varchar

10

-

-

2.

KdBarang

Varchar

12

-

Kode diambil

barang

yang

140 3.

Qty_ambil

Decimal

3

3

Qty ambil

4.

By_ambil

Decimal

9

3

Biaya ambil

Nama Tabel

: RM_Ambil_Ext

Keterangan

:Mendata transaksi pengambilan yang melebihi anggaran atau permintaan bahan diluar anggaran yang sudah ditentukan.

Primary Key : @NoSPaB + @KdBarang No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

NoSPaB

Varchar

10

-

-

2.

KdBarang

Varchar

12

-

Kode

barang

yang

diambil 3.

Ktr_ext

Varchar

25

Alasan

terjadinya

pengambilan

bahan

melebihi anggaran atau pengambilan

bahan

diluar anggaran

Nama Tabel

: RM_Kembali_Header

Keterangan

: Mendata pengembalian bahan baku pada saat order produksi berjalan

Primary Key : @NoSPkB No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

Tgl_SPkB

Date

-

-

Tanggal SPkB

2.

NoSPkB

Varchar

10

-

Nomor SPkB *)

3.

KdOrder

Varchar

11

-

Kode order

4.

KdDept

Varchar

3

-

Kode departemen

5.

NIP_pengembali

Varchar

11

-

NIP kurir pengembali bahan baku lebih

6.

Status_kembali

Varchar

1

-

Dikembalikan (0), Diterima (1)

*) NoSPkB : xxxxxxxx → tanggal xx → nomor urut

141

Nama Tabel

: RM_Kembali_Detail

Keterangan

: Mendata detail pengembalian bahan baku pada saat order produksi berjalan

Primary Key : @NoSPkB No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

NoSPkB

Varchar

10

-

-

2.

KdBarang

Varchar

12

-

Kode

barang

yang

diambil 3.

Qty_kembali

Decimal

3

3

Qty kembali

4.

By_kembali

Decimal

9

3

Biaya kembali

Nama Tabel

: Aktual_BP_Header

Keterangan

: Mendata BP aktual per hari (BTKL dan BOP)

Primary Key : @Tgl_BP No. 1.

Nama Field Tgl_BP

Tipe Date

Panjang

Desimal

-

-

Keterangan Tanggal Daftar BP Aktual dibuat

3.

NIP_penyusun Varchar

11

-

NIP penyusun Daftar BP Aktual

Nama Tabel

: Aktual_BP_Detail

Keterangan

: Mendata detail BP aktual per hari

Primary Key : @Tgl_BP + @KdOrder + @KdDept + @KdTarif No. 1.

Nama Field Tgl_BP

Tipe Date

Panjang

Desimal

-

-

Keterangan Tanggal penyusunan Daftar BP Aktual

2.

KdOrder

Varchar

11

-

Kode order

3.

KdDept

Varchar

3

-

Kode departemen

142 4.

KdTarif

Varchar

3

-

Kode tarif

5.

Ktr

Varchar

35

-

Keterangan pengeluaran

6.

By_BP

Decimal

9

3

Biaya yang keluar

Nama Tabel

: Pemindahan_Header

Keterangan

: Mendata perpindahan WIP dan finished good antar departemen

Primary Key : @KdPindah No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdPindah

Varchar

10

-

Kode pindah *)

2.

Wkt_kirim

Datetime

-

-

Waktu pengiriman

3.

Wkt_terima

Datetime

-

-

Waktu pengambilan

4.

KdDept_pengirim

Varchar

3

-

-

5.

KdDept_penerima Varchar

3

-

-

6.

NIP_pengirim

Varchar

11

-

NIP pegawai pengirim

7.

NIP_penerima

Varchar

11

-

NIP pegawai penerima

*) KdPindah : xxxxxxxx → tanggal xx → nomor urut

Nama Tabel

: Pemindahan_Detail

Keterangan

: Mendata detail perpindahan WIP dan finished good antar departemen

Primary Key : @KdPindah + @KdOrder + @KdBarang No.

Nama Field

Tipe

Panjang

Desimal

Keterangan

1.

KdPindah

Varchar

10

-

Kode pindah

2.

KdOrder

Varchar

11

-

Kode order

3.

KdBarang

Varchar

12

-

Kode barang yang dipindah

4.

Qty_kirim

Integer

3

-

Qty saat pengiriman

5.

Ktr_kirim

Varchar

15

-

Keterangan pengiriman

6.

Qty_terima

Integer

3

-

Qty saat pengambilan

7.

Ktr_terima

Varchar

15

-

Keterangan pengambilan

143

4.4.4

ERD

Gambar 4.26 ERD Usulan

144

4.5

Perancangan Proses

4.5.1

Bagan Terstruktur Modul Catat FG

Tgl_formulir Merk Ukuran Tipe_FG Nama_FG Warna Satuan

Merk Ukuran

KdBarang Generate New KdBarang Merk Ukuran

Input FG

Tgl_formulir KdBarang Jns_barang KdBarang Nama_FG Tipe_FG Warna Merk Satuan Ukuran Write Write Rinci_FG RM_WIP_FG

KdBarang Read RM_WIP_FG

Tgl_formulir Tipe_WIP Ukuran Nama_WIP Warna Satuan Departemen_Pembuat

Departemen_ Pembuat Merk Ukuran

Modul Catat WIP

KdBarang Generate new Input Detail_WIP KdBarang Merk Ukuran Departemen_Pembuat

Tgl_formulir KdBarang Nama_WIP Satuan Warna

Write RM_WIP_FG

KdBarang Tipe_WIP Departemen_Pembuat

Write Rinci_WIP

KdBarang Read RM_WIP_FG

Gambar 4.27 Rancangan Bagan Terstruktur Usulan

145

Modul Buat Formula

Tgl_formulir Kode_FG Penyusun Penginput

Tgl_formulir Kode_FG Penyusun Penginput

Input Formula Header

Write Formula_Header

Kode_FG_found

Read RM_WIP_FG

KdOrder

Kode_FG_found Read RM_WIP_FG

KdBarang_ penyusun Total_per_WIP _found Read Calculate RM_WIP_FG Harga_barang (WIP)

KdBarang_terbentuk KdBarang_penyusun Harga_barang Qty_formula Total_per_WIP Total_per_FG Calculate Harga_barang (FG)

KdOrder KdBarang Tgl_order Qty_order Spesifikasi Tgl_selesai

Kode_FG

Generate KdOrder

Write RM_WIP_FG

KdBarang_terbentuk Kode_Barang KdBarang_penyusun _Penyusun Harga_barang Satuan Qty_formula Harga_barang

Kode_Barang _Terbentuk Kode_barang KdBarang _penyusun _terbentuk KdDept Qty_formula _found Input Barang Read Read Input Barang Terbentuk RM_WIP_FG Departemen Penyusun

Modul Input_Order_Produksi

Kode_FG

Departemen

Departemen Kode_Barang _Terbentuk Read Pegawai

KdBarang_terbentuk KdBarang_penyusun Harga_barang Qty_formula

Write Formula_Detail

Penyusun Penginput NIP_penyusun NIP_penginput

Kode_FG

Kode_FG Tgl_order Qty_order Spesifikasi Tgl_selesai Input Order Produksi

KdDept KdBarang_terbentuk KdBarang_penyusun Qty_formula Harga_barang

Write Order_Produksi

Kode_FG_found

KdOrder Read Order_Produksi

Gambar 4.28 Rancangan Bagan Terstruktur Usulan (Lanjutan)

146

Modul Buat_Anggaran_Bahan _Baku KdBarang

KdOrder KdBarang Qty_order Read Order_Produksi

KdBarang

KdBarang

Jns_barang Harga_barang

KdBarang_found

KdBarang_found Read RM_WIP_FG

Read Read Formula_Header

KdOrder KdBarang KdDept KdBarang_terbentuk KdBarang_penyusun Qty_anggaran By_RM_anggaran

KdDept KdBarang_terbentuk KdBarang_penyusun Qty_formula KdBarang_found Read Read Formula_Detail

Write Anggaran_RM

Modul Buat_Anggaran_Tarif

KdOrder Qty_order Read Order_Produksi

KdDept KdTarif Harga_tarif Read Tarif

KdOrder KdDept KdTarif By_tarif_anggaran Write Anggaran_Tarif


147

Modul Cetak_Laporan_Order_Produksi

Tgl_awal Tgl_akhir Input Periode_Laporan

KdOrder KdBarang Tgl_order Qty_order Tgl_selesai_prk Read Order_Produksi

KdOrder KdBarang Nama_barang Ukuran_FG

Tgl_awal Tgl_akhir KdBarang

KdBarang Nama_barang

KdBarang_valid

Tgl_order Tgl_selesai_prk Tgl_selesai_akt Current Date Qty_order

Ukuran_FG

KdBarang_valid

Read RM_WIP_FG

Print (per record) Laporan_Order_Produksi_ per_Tanggal Tgl_order Tgl_selesai_prk Tgl_order Tgl_selesai_akt Tgl_selesai_prk Current Date

Read Rinci_FG

Lama_Produksi Count Lama_Produksi


Status_Produksi Set Status_Produksi

148

TempKdOrder TempKdDept TempPeg

Tgl_SPaB TempKdOrder TempKdDept TempPeg Status_ambil

Modul Minta_RM

TempKdOrder TempKdDept

Read Departemen

TempKdBarang TempQty_ambil

Kdbarang_penyusun Nama_barang Qty_anggaran Satuan

NoSPaB KdOrder Input Kode Order, Departemen Write RM_Ambil_ KdDept Peminta, dan Kurir Peminta RM Header Nama_pegawai TempKdDept TempKdOrder TempPeg NoSPaB NIP TempKdOrder Nama_ eof KdDept _found pegawai Read Read RM_Ambil_Header Order_Produksi

TempKdOrder TempKdDept Kdbarang_penyusun Nama_barang Qty_anggaran NoSPaB Satuan

Read Pegawai

Generate Anggaran_RM per Departemen

TempKdOrder TempKdDept KdBarang_penyusun Qty_anggaran

TempQty_ambil > Qty_anggaran KdBarang_invalid NoSPaB TempQty_ambil > Qty_anggaran TempKdBarang TempKdBarang KdBarang_invalid TempQty_ambil Ktr

Input RM diminta dan Qty permintaan

Write RM_Ambil_Detail

KdBarang_ TempKdBarang penyusun Nama_barang Jns_barang Satuan Harga_barang TempKdBarang_found

Read Anggaran_RM

Read RM_WIP_FG

Read RM_WIP_FG


Write RM_Ambil_Ext

TempQty_ambil Harga_barang Total Calculate By_ambil

Tgl_SPaB NoSPaB TempKdOrder TempKdDept Nama_pegawai TempKdBarang Jns_barang Nama_barang Ktr TempQty_ambil Satuan Print SPaB

149

Modul Penyerahan_RM

TempSPaB Input SPaB yang Diterima Tgl_SPaB KdOrder KdDept NIP Status_ambil

KdBarang Qty_ambil TempSPaB

SPaB_found

View Detail Permintaan RM

TempSPaB TempSPaB TempSPaB KdBarang KdBarang Ktr Qty_ambil SPaB_found SPaB_found SPaB_found Read Read RM_Ambil_ Read RM_Ambil_ Header RM_Ambil_Ext Detail

SPaB_found SPaB_found Kode_Barang Status_ambil Qty_ambil Write RM_Ambil_Header

Write RM_WIP_FG

KdBarang

KdBarang_found Kode_Barang

Satuan

Read RM_WIP_FG

KdBarang_found Read RM_Ambil_ Detail


Qty_ambil Stok_akhir Calculate Stok_akhir

150

Tgl_SPkB NoSPkB KdOrder KdDept Nama_pegawai KdBarang Jns_barang Nama_barang TempQty_kembali Satuan

Modul Pengembalian_RM_Lebih

TempKdOrder TempKdDept TempPeg Input Kode Order, Departemen Pengembali, dan Kurir Pengembali RM

Tgl_SPkB TempKdOrder TempKdDept TempPeg Status_kembali

NoSPkB TempKdBarang TempQty_kembali

NoSPkB Write RM_Kembali_Header

TempKdOrder TempKdDept NoSPkB

KdOrder KdBarang Read Read RM_Kembali_Header Order_Produksi eof

KdDept Read Departemen

TempKdBarang TempQty_kembali Input RM yang Dikembalikan dan Qty Write RM_Kembali_Detail Print SPkB kembali TempKdBarang TempQty_kembali KdBarang Jns_barang TempPeg Nama_barang Harga_barang NIP Nama_pegawai Satuan

Read Pegawai

Read RM_WIP_FG


Harga_barang

Total Calculate By_kembali

151

Modul Penerimaan_RM_Lebih

TempSPaB

SPaB_found

KdBarang Qty_kembali


Status_kembali

SPaB_found

TempSPkB Input SPkB yang Diterima Tgl_SPkB KdOrder KdDept NIP Status_kembali

SPaB_found

View Detail Pengembalian RM

TempSPkB

Write RM_Kembali_Header

Write RM_WIP_FG

KdBarang

KdBarang_found

TempSPkB

Kode_Barang Qty_kembali

Satuan


SPkB_found Read Read RM_Ambil_ RM_Ambil_Header Detail

Stok_akhir

KdBarang_found

SPkB_found

Read RM_WIP_FG

Read RM_Kembali_Detail

Calculate Stok_akhir

KdOrder Kbarang Nama_barang Ukuran_FG KdDept Satuan Tgl_SPaB Qty_ambil By_ambil Status_ambil Tgl_SPkB Qty_kembali By_kembali Status_kembali

Cetak Laporan_Pemakaian_ Bahan_Per_Order

TempOrder_ found KdBarang TempOrder TempOrder KdBarang _found KdBarang Tgl_SPaB KdDept Nama_barang Ukuran_FG Status_ambil TempOrder_found TempOrder

Input KdOrder

Read Order_Produksi

Read RM_WIP_FG

Read Rinci_FG

Read RM_Ambil_ Header

TempOrder_found Tgl_SPkB KdDept Status_kembali KdBarang Qty_ambil By_ambil

Read RM_Ambil_ Detail

TempOrder_found KdBarang Qty_kembali By_kembali

Read RM_Kembali_ Header

Read RM_Kembali_ Detail

Print Laporan (per record)


152

Modul Catat_Biaya_Produksi _Aktual

Tgl_formulir Nama_Penyusun Input Tanggal, Nama_Penyusun

Tgl_formulir Nama_Penyusun

Nama_Biaya Kode_Order Departemen Keterangan Biaya

Tgl_formulir

Write_Aktual_BP_ Header

Input Kode Order, Departemen, Keterangan, Biaya

Nama_Penyusun NIP Read Pegawai

Tgl_Formulir Nama_Biaya Kode_Order Departemen Keterangan Biaya

KdTarif

Write_Aktual_BP_ Detail

Departemen Nama_Biaya Kode_Order Kode_Order KdDept _found

Read Tarif

Read Order_ Produksi

Read Departemen


KdTarif Kode_Order KdDept Biaya By_tarif_ FinalBy anggaran Read Anggaran_ Calculate Cost Tarif

KdTarif Kode_Order KdDept

153

Modul Cetak_Laporan_ Pemakaian_BTKL_Aktual

KdBarang TempOrder

TempOrder

Input KdOrder

KdBarang TempOrder Nama_barang _found

Read Order_Produksi

KdBarang

Ukuran_FG

Read RM_WIP_FG

Read Rinci_FG

TempOrder _found KdDept KdTarif Ktr By_BP

Read Aktual_BP_ Detail

KdTarif

KdDept

Nama_dept

Read Departemen

Nama_tarif

Read Daftar_Tarif

Modul Cetak_Laporan_ Pemakaian_BOP_Aktual

KdBarang TempOrder

TempOrder

Input KdOrder

KdBarang TempOrder Nama_barang _found

Read Order_Produksi

KdBarang

Ukuran_FG

Read RM_WIP_FG

Read Rinci_FG

TempOrder _found KdDept KdTarif Ktr By_BP


KdTarif

KdDept

Nama_dept

Read Departemen


Nama_tarif

Read Daftar_Tarif

KdOrder KdBarang Nama_barang Ukuran_FG Nama_dept Nama_tarif Tgl_BP Ktr By_BP


KdOrder KdBarang Nama_barang Ukuran_FG Nama_dept Nama_tarif Tgl_BP Ktr By_BP


154

KdPindah Wkt_kirim KdDept_kirim KdDept TempKdOrder TempBarang Jns_barang Nama_barang TempQty TempKtr

Modul Kirim_Barang

TempKdOrder TempBarang TempQty TempKtr TempNIP Input Rincian_Pengiriman _Barang

Jns_barang Nama_barang KdDept

TempKdOrder TempBarang

Wkt_kirim KdDept_kirim KdDept TempNIP

KdPindah

Find KdDept_tujuan of Write TempBarang Pemindahan_Header TempBarang TempBarang_found KdBarang TempKdOrder_found TempKdOrder KdBarang TempBarang Jns_barang KdBarang Nama_barang KdBarang KdPindah Stok_akhir KdDept TempBarang Ukuran_FG (Baru) TempKdOrder_found _found Read Read Read Read Read Rinci_FG Pemindahan_ Order_Produksi RM_WIP_FG Formula_Detail Header

KdPindah TempKdOrder TempBarang TempQty TempKtr

TempQty Stok_akhir

Write Pemindahan_Detail


Write RM_WIP_FG TempQty Stok_akhir

Stk_Akr Calculate Stok_akhir

Print Surat_Kirim_Barang

155

TempKdPindah Dept_kirim Wkt_terima Dept_terima KdOrder KdBarang Jns_barang Nama_barang TempQty TempKtr

Modul Terima_Barang

TempKdPindah

Input KdPindah

KdPindah KdPindah_found Wkt_terima KdBarang TempKdPindah KdOrder TempNIP KdBarang Jns_barang Dept_kirim KdPindah_ Qty_kirim Nama_barang Dept_terima found Ktr_kirim Stok_akhir Read Read Write Read Pemindahan_ Pemindahan_ Pemindahan_ RM_WIP_FG Header Detail Header

TempQty TempKtr Write Pemindahan_ Detail

TempQty Stok_akhir Write RM_WIP_FG

TempQty Stok_akhir Stk_Akr Calculate Stok_akhir


Print Bukti_Terima _Barang

156

Modul Cek_Progres_Produksi

TempKdOrder Input KdOrder

KdOrder _found

Find WIP dan FG KdOrder

KdBarang _found Read Formula_Header

Qty_selesai KdPindah Calculate Qty_selesai per KdBarang_terbentuk

KdBarang_ terbentuk KdBarang_terbentuk KdOrder

KdBarang_found

KdDept KdBarang _terbentuk

KdBarang

Read RM_WIP_FG

Jns_barang Nama_barang KdDept KdBarang_terbentuk

KdBarang

KdBarang KdBarang_found

Last_Update KdBarang_terbentuk KdOrder

KdBarang

Read Order_Produksi

KdPindah

TempKdOrder Current_Date

KdBarang Qty_order Tgl_selesaii_prk Tgl_selesai_akt

Qty Order Qty_selesai %Penyelesaian Selesai 100% Read Pemindahan_ Header

Wkt_kirim Jns_barang KdBarang_terbentuk Nama_barang _found KdPindah_found KdBarang_found KdBarang_ KdOrder_found terbentuk_found Read Read Read Read Pemindahan_ Pemindahan_ Formula_Detail RM_WIP_FG Detail Detail

TempKdOrder_found

TempKdOrder TempKdOrder Input KdOrder /* Selesai */

Calculate % Penyelesaian

Qty_kirim KdPindah KdPindah

Modul Update Tgl_Produksi_Selesai_ Aktual

Tgl_selesai_akt TempKdOrder_found

Read Order_Produksi

Write Order_Produksi


Current_Date KdOrder Tgl_selesai_prk %Penyelesaian Jns_barang KdBarang_terbentuk Nama_barang KdDept Selesai Qty Order KdOrder 100% Qty_selesai %Penyelesaian Last_update Echo Order_Produksi

Send Order_Selesai

157

Awal Akhir Input Range Tanggal Order Produksi Selsai

KdOrder KdBarang Qty_order Tgl_selesai_prk Tgl_selesai_akt Read Order_Produksi

Modul Cetak_Laporan_Order_ Produksi_Selesai KdOrder Qty_order KdBarang Awal Qty_terima KdBarang Akhir QtyOrder Jns_barang Realisasi Nama_barang SelisihQty KdOrder Qty_terima Ukuran_FG Read Read Calculate Selisih Pemindahan_ Read Rinci_FG RM_WIP_FG Kuantitas Produksi Detail

KdOrder Tgl_selesai_prk Tgl_selesai_akt

KdOrder Tgl_selesai_prk Tgl_selesai_akt SelisihHr Status Calculate Selisih Set Status Hari Penyelesaian Penyelesaian Produksi

Tgl_selesai_akt KdOrder KdBarang Nama_barang Ukuran_FG Qty_order QtyOrderRealisasi SelisihQty SelisihHr Status Print (per record) Laporan_Order_ Produksi_Selesai

Modul Update HPP FG

KdOrder Tot_BBB KdOrder KdBarang Calculate BBB

Tot_BTKLBOP KdOrder KdBarang

KdBarang HPP

Tot_qty

Calculate BTKL dan BOP

KdOrder KdOrder KdOrder NoSPkB NoSPaB KdBarang NoSPkB NoSPaB KdOrder KdOrder KdOrder By_kembali By_ambil KdBarang _found _found Read Read Read Read Read Read RM_Ambil_ RM_Ambil_ RM_Kembali_ RM_Kembali_ Order_Produksi Order_Produksi Header Detail Header Detail

Tot_BBB Tot_BTKLBOP Tot_qty

KdOrder

By_BP Read Aktual_BP_ Detail

Calculate Aktual Qty_Order

Calculate HPP / unit

KdOrder

Qty_terima Read Pemindahan_ Detail


KdBarang _found Read RM_WIP_FG

KdBarang HPP Write Rinci_FG

158

KdOrder KdBarang Tgl_order Tgl_selesai_prk TempOrder Tgl_selesai_akt KdOrder Spesifikasi

TempOrder TempOrder_found

KdOrder

KdOrder GrandBTKL

NoSPaB


NoSPaB

By_ambil Read RM_Ambil_ Detail

Calculate BBB

Calculate BTKL

KdOrder KdOrder NoSPkB NoSPkB By_kembali KdOrder By_BP _found Read Read Read RM_Kembali_ RM_Kembali_ Aktual_BP_ Header Detail Detail

KdOrder KdBarang Tgl_order Tgl_selesai_prk Tgl_selesai_akt Spesifikasi Qty_order

TempOrder TempOrder_found Input KdOrder

Read Order_Produksi

KdOrder

By_BP Read Aktual_BP_ Detail

GrandBBB GrandBTKL GrandBOP Qty_order

KdOrder GrandBTKL TotQty GrandBOP GrandBBB Calculate BBB Calculate BTKL Calculate BOP KdOrder KdBarang Qty_anggaran By_RM_anggaran

Read Anggaran_RM

KdOrder

By_BP Read Anggaran_Tarif

KdBarang KdBarang

Tot_qty Calculate Aktual Qty_Order

Nama_barang

Ukuran_FG KdBarang_found

ByPerUnit Calculate HPP / unit

Read RM_WIP_FG

Read Rinci_FG

KdOrder KdBarang Nama_barang Ukuran_FG Tgl_order Tgl_selesai_prk Tgl_selesai_akt Spesifikasi

TotQtyBBB GrandBBB GrandBTKL GrandBOP Tot_qty ByPerUnit

Print Laporan_HPP_ Aktual_Per_Order

KdOrder

KdOrder

KdOrder KdBarang

KdBarang_penyusun KdBarang KdBarang_penyusun KdBarang Jns_barang _found Nama_barang Read Read Formula_Detail RM_WIP_FG

Calculate BOP

Modul Cetak Laporan_HPP_Anggaran_ Per_Order TempOrder

GrandBBB GrandBTKL GrandBOP Tot_qty

GrandBOP

KdOrder

KdOrder_found

KdOrder

TotQtyBBB GrandBBB

Read Order_Produksi

Input KdOrder

Modul Cetak Laporan_HPP_Aktual_ Per_Order

Qty_terima

Read Pemindahan_ Detail

KdBarang ByPerUnit Calculate Angaran HPP / unit

Nama_barang KdBarang KdBarang_found Read RM_WIP_FG

KdOrder

By_BP Read Anggaran_Tarif


Ukuran_FG Read Rinci_FG

Qty_order KdOrder GrandBBB KdBarang Nama_barang GrandBTKL GrandBOP Ukuran_FG TotQty Tgl_order Tgl_selesai_prk ByPerUnit Tgl_selesai_akt Spesifikasi Print Laporan_HPP_Aktual _Per_Order

159

Modul Cetak Laporan_Varians_Pemakaian _Bahan_Baku TempOrder

KdBarang

TempOrder_found Read Order_Produksi

Input KdOrder

KdDept KdBarang_penyusun Qty_formula KdBarang_found

KdBarang

KdOrder KdBarang

TempOrder

Nama_barang

Read RM_WIP_FG

Read Anggaran_RM

Ukuran_FG

Read Rinci_FG

Qty_anggaran KdBarang KdOrder By_RM_anggaran KdBarang AccQty_anggaran AccBy_anggaran Jns_barang

Read Formula_Detail

KdOrder KdBarang

VarQty VarBy Calculate Varians Qty & Biaya Per Barang

KdBarang_found

Read RM_WIP_FG

VarQty VarBy

KdOrder NoSPaB Read RM_Ambil_Header

VarQtyDept VarByDept Calculate Varians Qty & Biaya Per Departemen

NoSPaB Qty_ambil By_ambil AccQty_ambil AccBy_ambil Read RM_Ambil_Detail

VarQtyDept VarByDept

TotVarQty TotVarBy Calculate Total Varians Qty & Biaya Per Order

KdOrder KdBarang Nama_barang Ukuran_FG VarQtyDept VarByDept KdDept KdBarang_penyusun AccQty_anggaran AccQty_ambil AccQty_kembali Print Laporan

Qty_kembali By_kembali KdOrder NoSPkB AccQty_kembali NoSPkB AccBy_kembali Read Read RM_Kembali_ RM_Kembali_ Header Detail


AccBy_anggaran AccBy_ambil AccBy_kembali VarQty VarBy VarQtyDept VarByDept TotVarQty TotVarBy

160

Modul Cetak Laporan_Varians_Pemakaian _BTKL KdOrder KdBarang

AccByAnggaran AccByAkt VarByDept KdBarang ByAnggaranDept KdOrder ByAnggaranDept ByAktDept TotVarBy KdBarang TempOrder VarBy ByAktDept TotAnggaran AccByAnggaran KdBarang TempOrder_found Ukuran_FG Nama_barang TotAkt AccByAkt Calculate Varians Calculate Total Read Read Calculate Varians Input KdOrder Read Rinci_FG Biaya Per Varians Biaya Per Order_Produksi RM_WIP_FG Biaya Per Barang Departemen Order KdDept KdOrder KdOrder KdDept KdTarif KdTarif By_tarif_anggaran By_BP KdTarif AccByAkt AccByAnggaran TempOrder

KOrder_found Read Anggaran_Tarif

Nama_tarif Read Daftar_Tarif

KOrder_found Read Aktual_BP_Detail


KdOrder KdBarang Nama_barang Ukuran_FG AccByAnggaran AccByAkt VarBy ByAnggaranDept ByAktDept VarByDept TotAnggaran TotAkt TotVarBy Print Laporan

161

TempOrder Input KdOrder

KdOrder KdBarang Tgl_order Tgl_selesai_prk Tgl_selesai_akt Spesifikasi TempOrder Qty_order TempOrder GrandBBBAng _found Read Order_Produksi

KdOrder KdBarang

KdBarang_penyusun

KdOrder KdOrder

GrandBTKLAng

Calculate BBB Anggaran

KdBarang KdBarang_penyusun Jns_barang KdBarang_found Nama_barang Read Read Formula_Detail RM_WIP_FG

GrandBBBAng GrandBTKLAng GrandBOPAng GrandBBBAkt GrandBTKLAkt GrandBOPAkt

Modul Cetak Laporan_Varians_HPP

GrandBOPAng

Calculate BTKL Anggaran

KdOrder KdBarang By_RM_ anggaran Read Anggaran_RM

KdOrder

KdOrder

Calculate BOP Anggaran KdOrder

Read Anggaran_Tarif

By_BP

GrandBOPAkt

VarBBB VarBTKL VarBOP

GrandBBBAkt Calculate BBB Aktual

Calculate BTKL Aktual

KdOrder NoSPaB

By_BP

KdOrder

KdOrder GrandBTKLAkt

GrandBBBAng GrandBTKLAng GrandBOPAng GrandBBBAkt GrandBTKLAkt GrandBOPAkt VarBBB VarBTKL VarBOP

KdOrder_found

Read Anggaran_Tarif

KdOrder

NoSPaB

NoSPkB KdOrder _found Read RM_Ambil_ Detail

NoSPkB

KdOrder

KdOrder

By_BP

By_BP

By_kembali

By_ambil


Calculate BOP Aktual

Read RM_Kembali_ Header

Read RM_Kembali_ Detail

Gambar 4.44 Rancangan Bagan Terstruktur Usulan (Lanjutan



Calculate Varians

Print Laporan

162

4.5.2 Spesifikasi Proses

Modul 1.1 – Inventarisir_FG

Begin Receive Detail_FG Get Tgl_formulir, Tipe_FG, Merk, Nama_FG, Ukuran, Warna, Satuan from Detail_FG Open RM_WIP_FG, Rinci_FG /* Generate new KdBarang */ Read RM_WIP_FG Combine Merk, CurrentYear, Nomor_Urut_Model, Ukuran → KdBarang /* Entry record RM_WIP_FG */ Set RM_WIP_FG.Jns_barang default to “FG” Write into RM_WIP_FG Tgl_input, KdBarang, Nama_barang, Warna, Satuan → Tgl_formulir, KdBarang, Nama_FG, Warna, Satuan into RM_WIP_FG /* Entry record Rinci_FG */ Write into Rinci_FG KdBarang, Merk, Type, Ukuran_FG → KdBarang, Merk, Type_produk, Ukuran Close All End Modul 1.2 – Inventarisir_WIP

Begin Receive Detail_WIP Open RM_WIP_FG, Rinci_WIP Get Tgl_formulir, Nama_WIP, Ukuran, Warna, Tipe_WIP, Satuan from Detail_FG /*Generate new KdBarang*/ Read RM_WIP_FG

163 Combine

Tipe_WIP,

CurrentYear,

Last_Model_Number,

Ukuran

→

KdBarang /* Entry record RM_WIP_FG */ Set RM_WIP_FG.Jns_barang default to “WP” Write into RM_WIP_FG Tgl_input, KdBarang, Nama_barang, Warna, Satuan → Tgl_formulir, KdBarang, Nama_FG, Warna, Satuan /* Entry record Rinci_WIP */ Write into Rinci_WIP KdBarang, Tipe_WIP, Ukuran_WIP, KdDept → KdBarang, Tipe_WIP, Ukuran, Departemen_Pembuat Close All End Modul 1.3 – Buat Formula

Begin Receive Detail_Formula Get

Tgl_formulir,

Kode_FG,

Nama_pegawai

/*Penyusun*/

from

Detail_Formula Open

RM_WIP_FG,

Departemen,

Pegawai,

Formula_Header,

Formula_Detail View Layar Formula – Bahan Baku Echo All Formula_Detail.KdBarang_terbentuk, RM_WIP_FG.Nama_barang, RM_WIP_FG.Harga_barang If RM_WIP_FG.Harga_barang==0 then create link “Create Formula” If RM_WIP_FG.Harga_barang !=0 then create link “Edit Formula” Click

link

Edit

Formula

or

Create

Formula

Input_Barang_Terbentuk_per_Departemen Read RM_WIP_FG, Pegawai Validate Detail_Formula.Kode_FG in RM_WIP_FG

→

View

Layar

164 Get NIP of Penyusun in Detail_Formula Get NIP of current updater Write record to Formula_Header Repeat Get Departemen, Kode_Barang_Terbentuk from Detail_Formula Read Formula_Header, Departemen, RM_WIP_FG, Formula_Detail Validate Departemen in Departemen Validate Kode_Barang_Terbentuk in RM_WIP_FG Write Formula_Detail.KdBarang, Formula_Detail.KdDept, Formula_ Detail.KdBarang_terbentuk Click Input Penyusun → View Layar Input_Barang_Penyusun_dari_Barang_Terbentuk Repeat Get Kode_Barang_Penyusun, Qty_formula, from Detail_Formula Validate Kode_Barang_Penyusun and in RM_WIP_FG Get RM_WIP_FG.Harga_barang, RM_WIP_FG.Satuan Write

Formula_Detail.KdBarang_penyusun,

Formula_Detail.Qty_formula Total_per_WIP

=

Total_per_WIP

Formula_Detail.Qty_formula * RM_WIP_FG.Harga_barang Total_per_FG = Total_per_FG + Total_per_WIP Until Submit button clicked Back to previous Layar Write RM_WIP_FG.Harga_barang with Total_per_WIP Total_per_WIP = 0 If User want to add more KdBarang penyusun Click Add Button End if Until Finised Button clicked Write RM_WIP_FG.Harga_barang with Total_per_FG Close All

+

165 End Modul 2.1 – Input Order Produksi

Begin Receive Order Open RM_WIP_FG, Order_Produksi Get Kode_FG, Tgl_order, Qty_order, Spesifikasi, Tgl_selesai from Order Read RM_WIP_FG Validate Order.Kode_FG in RM_WIP_FG Read Order_Produksi Generate KdOrder Write into Order_Produksi KdOrder, KdBarang, Tgl_order, Qty_order, Spesifikasi, Tgl_selesai_prk → KdOrder, Kode_FG, Tgl_order, Qty_order, Spesifikasi, Tgl_selesai Close All End Modul 2.2 – Pembuatan Anggaran Bahan Baku

Begin Open Order_Produksi, Formula_Header, Formula_Detail, RM_WIP_FG Read Order_Produksi Get KdOrder, KdBarang, Qty_order Read RM_WIP_FG, Formula_Header, Formula_Detail Get

RM_WIP_FG.KdBarang,

RM_WIP_FG.Jns_barang

RM_WIP_FG.Harga_barang, Formula_Header.KdBarang, Formula_Detail.* where

RM_WIP_FG.KdBarang

==

Formula_Header.KdBarang

==

Formula_Detail.KdBarang Select

record

Formula_Detail.KdBarang_penyusun

where

(Formula_Detail.KdBarang_penyusun == RM_WIP_FG.KdBarang) and (RM_WIP_FG.Jns_barang ==”R1” or RM_WIP_FG.Jns_barang ==”R2” ) /* Mengisi record Anggaran_RM */ Write Angaran_RM.KdOrder → Order_Produksi.KdOrder

166 Write Anggaran_RM.KdBarang → Formula_Detail.KdBarang Write Anggaran_RM.KdDept → Formula_Detail.KdDept Write

Anggaran_RM.KdBarang_terbentuk

→

Formula_Detail.KdBarang_terbentuk Write

Anggaran_RM.KdBarang_penyusun

→

Formula_Detail.KdBarang_penyusun Write

Anggaran_RM.Qty_anggaran

→

Order_Produksi.Qty_order

*

Formula_Detail.Qty_formula Write Anggaran_RM.By_RM_anggaran →

Order_Produksi.Qty_order *

Formula_Detail.Qty_formula * RM_WIP_FG.Harga_barang Close All End Modul 2.3 – Pembuatan Anggaran Tarif

Begin Open Anggaran_Tarif, Order_Produksi, Tarif Read Order_Produksi, Tarif Get Order_Produksi.KdOrder, Order_Produksi.Qty_order Get record Tarif /* Pencatatan ke table Anggaran_Tarif */ Do while not EOF Write Anggaran_Tarif.KdOrder → Order_Produksi.KdOrder Write Anggaran_Tarif.KdTarif → Tarif.KdTarif Write Anggaran_Tarif.KdDept → Tarif.KdDept Write

Anggaran_Tarif.By_anggaran

Order_Produksi. Qty_order End do Close All End Modul 2.4 – Cetak Laporan Order Produksi

Begin

→

Tarif.Harga

*

167 Open Order_Produksi, RM_WIP_FG, Rinci_FG Entry Tgl_awal, Tgl_akhir /*range tanggal*/ Read Order_Produksi, RM_WIP_FG, Rinci_FG Get

record

Order_Produksi,

RM_WIP_FG,

Rinci_FG

where

(Order_Produksi.Tgl_order >= Tgl_awal) and (Order_Produksi.Tgl_order <= Tgl_akhir) and (Order_Produksi.KdBarang == RM_WIP_FG.KdBarang == Rinci_FG.KdBarang) Do while not EOF Echo No, KdOrder, KdBarang, Nama_barang, Ukuran, Tgl_order, Tgl_selesai_prk, Tgl_selesai_prk – Tgl_order, Qty_order, If Tgl_order > TglSekarang Echo “BELUM” If Tgl_selesai_prk < TglSekarang and Tgl_selesai_akt == ”” Echo “SEHARUSNYA SUDAH SELESAI” If Tgl_selesai_akt < TglSekarang and Tgl_selesai_akt!=”” Echo “SELESAI” If Tgl_order <= TglSekarang and Tgl_selesai_prk >=TglSekarang Echo “BERJALAN” End do If Print button clicked Print Laporan_ Order_Produksi /* printout */ Close All End Modul 3.1 – Minta_RM

Begin /* Get user input (for RM_Ambil_Header) */ TempKdOrder = User Input KdOrder TempKdDept = User Input KdDept TempPeg = User Input Nama Kurir Peminta RM /* Entry Record RM_Ambil_Header */ Read RM_Ambil_Header

168 Generate new NoSPaB Validate TempKdOrder, TempKdDept, TempPeg Write RM_Ambil_Header.Tgl_SPaB → Current Date Write RM_Ambil_Header.NoSPaB → New NoSPaB Write RM_Ambil_Header.KdOrder → TempKdOrder Write RM_Ambil_Header.KdDept → TempKdDept Write RM_Ambil_Header.NIP → TempPeg Set default value RM_Ambil_Header.Status_ambil = ‘0’ /*Barang Diminta*/ /* Generate Anggaran RM */ Open Anggaran_RM Get KdBarang_penyusun, Qty_anggaran where Angaran_RM.KdOrder ==TempKdOrder and Anggaran_RM.KdDept == TempKdDept Open RM_WIP_FG Get Nama_barang, Satuan where Anggaran_RM.KdBarang_penyusun == RM_WIP_FG.KdBarang /* Get User Input (for RM_Ambil Detail ) */ TempKdBarang = User Input KdBarang TempQty_ambil = User Input Qty_ambil /* Entry Record RM_Ambil_Detail */ Write RM_Ambil_Detail.NoSPaB → RM_Ambil_Header.NoSPaB Read RM_WIP_FG Validate TempKdBarang to RM_WIP_FG Write RM_Ambil_Detail.KdBarang → TempKdBarang Get RM_WIP_FG.Jns_barang, RM_WIP_FG.Nama_barang, RM_WIP_FG.Harga_barang, RM_WIP_FG.Satuan where RM_WIP_FG.KdBarang == TempKdBarang Write RM_Ambil_Detail.Qty_ambil == TempQty_ambil If

Accumulated

RM_Ambil_Detail.Qty_ambil

>

Anggaran_RM.Qty_anggaran or Accumulated RM_Ambil_Detail.By_ambil > Anggaran_RM.By_anggaran

169 Begin View Tampilan Layar Input Bahan Baku Qty Melebihi Anggaran Write RM_Ambil_Ext.NoSPaB → RM_Ambil_Detail.NoSPaB Write RM_Ambil_Ext.KdBarang →RM_Ambil_Detail.KdBarang Write RM_Ambil_Ext.Ktr End Read Formula_Detail If TempKdBarang not exist in Formula_Detail.KdBarang_penyusun Begin View Tampilan Layar Input Bahan Baku Diluar Anggaran Write RM_Ambil_Ext.NoSPaB → RM_Ambil_Detail.NoSPaB Write RM_Ambil_Ext.KdBarang →RM_Ambil_Detail.KdBarang Write RM_Ambil_Ext.Ktr End Total = RM_Ambil_Detail.Qty_ambil * RM_WIP_FG.Harga_barang Write RM_Ambil_Detail.By_ambil → Total If Print Button Clicked Print Rincian_Pengambilan_RM End if Send Rincian_Pengambilan_RM Close All End Modul 3.2 – Penyerahan_RM

Begin Receive Rincian_Pengambilan_RM TempSPaB = User Input SPaB Open

RM_Ambil_Header,

RM_Ambil_Detail,

RM_Ambil_Ext,

RM_Ambil_Detail,

RM_Ambil_Ext,

RM_WIP_FG Read

RM_Ambil_Header,

RM_WIP_FG Get record in RM_Ambil_Header, RM_Ambil_Detail, RM_Ambil_Ext, RM_WIP_FG

170 Validate Rincian_Pengambilan_RM If Accept Button Clicked Begin Update RM_Ambil_Header.Status ambil → ’1’ /*Barang Diberikan*/ Read RM_WIP_FG Update RM_WIP_FG.Stok_akhir → RM_WIP_FG.Stok_akhir – RM_Ambil_Detail.Qty_ambil where RM_WIP_FG.KdBarang == RM_Ambil_Detail.KdBarang End Close All End Modul 3.3 – Pengembalian_RM_Lebih

Begin /* Get user input (for RM_Kembali_Header) */ TempKdOrder = User Input KdOrder TempKdDept = User Input KdDept TempPeg = User Input Nama Kurir Pengembali RM Open Order_Produksi, Departemen, RM_Kembali_Header, RM_Kembali_ Detail, RM_WIP_FG Read RM_Kembali_Header Generate new NoSPkB Read Order_Produksi Validate TempKdOrder to Order_Produksi Read Departemen Validate TempKdDept to Departemen Write RM_Kembali_Header.Tgl_SPkB → Current Date Write RM_Kembali_Header.NoSPkB → New NoSPkB Write RM_Kembali_Header.KdOrder → TempKdOrder Write RM_Kembali_Header.KdDept → TempKdDept Set default value RM_Kembali_Header.Status_kembali = ‘0’ /*Barang Dikembalikan*/

171

/* Get User Input (for RM_Kembali_Detail */ TempKdBarang = User Input KdBarang TempQty_kembali = User Input Qty_kembali /* Entry Record RM_Kembali_Detail */ Write RM_Kembali_Detail.NoSPkB → RM_Kembali_Detail.NoSPkB Read RM_WIP_FG Validate TempKdBarang to RM_WIP_FG Write RM_Kembali_Detail.KdBarang → TempKdBarang Get RM_WIP_FG.Jns_barang, RM_WIP_FG.Nama_barang, RM_WIP_FG.Harga_barang, RM_WIP_F.Satuan where RM_WIP_FG.KdBarang == RM_Ambil_Detail.KdBarang == TempKdBarang Write RM_Kembali_Detail.Qty_kembali → TempQty_kembali Total =RM_Kembali_Detail.Qty_kembali*RM_WIP_FG.Harga_barang Write RM_Kembali_Detail.By_ambil → Total If Print Button Clicked Print Rincian_Pengembalian_RM End if Send Rincian_Pengembalian_RM Close All End Modul 3.4 – Penerimaan_RM_Lebih

Begin Receive Rincian_Pengembalian_RM TempSPkB = User Input SPkB Open RM_Kembali_Header, RM_Kembali_Detail, RM_WIP_FG Read RM_Kembali_Header, RM_Kembali_Detail, RM_WIP_FG Get record RM_Kembali_Header, RM_Kembali_Detail, RM_WIP_FG Validate Rincian_Pengembalian_RM

172 If Accept Button Clicked Begin Update

RM_Kembali_Header.Status_kembali

→

‘1’

/*Barang

Diterima*/ Read RM_WIP_FG Update RM_WIP_FG.Stok_akhir → RM_WIP_FG.Stok_akhir + RM_kembali_Detail.Qty_ambil where RM_WIP_FG.KdBarang == RM_kembali_Detail.KdBarang End Close All End Modul 3.5 – Cetak Laporan Pemakaian Bahan Baku Per Order

Begin Open RM_WIP_FG, Rinci_FG, Departemen, Order_Produksi, RM_Ambil_ Header, RM_Ambil_Detail, RM_Kembali_Header, RM_Kembali_Detail Read RM_WIP_FG, Rinci_FG, Departemen, Order_Produksi, RM_Ambil_ Header, RM_Ambil_Detail, RM_Kembali_Header, RM_Kembali_Detail TempOrder = User Input KdOrder Get

record

RM_WIP_FG,

Rinci_FG,

Departemen,

Order_Produksi,

RM_Ambil_Header, RM_Ambil_Detail where RM_Ambil_Header.KdOrder == TempOrder and RM_Ambil_Header.Status_ambil == ‘1’/*Barang Diberikan*/ Sort By RM_Ambil_Header.KdDept Sort By RM_Ambil_Detail.KdBarang Do while not EOF Echo Departemen.Nama_dept where RM_Ambil_Header.KdDept == Departemen.KdDept == RM_Ambil_Header.KdDept Do while EOF Echo

RM_WIP_FG.Nama_barang,

RM_WIP_FG.Satuan

where RM_Ambil_Detail == RM_WIP_FG.KdBarang and RM_WIP_FG.Jns_barang == “R1”

173 Do while not EOF Echo RM_Ambil_Header.Tgl_SPaB, RM_Ambil_ Detail.Qty_ambil, RM_Ambil_Detail.By_ambil Get

record

RM_Kembali_Header,

RM_Kembali_Detail where RM_Kembali_Header == TempOrder, Status_ambil ==’1’ /*Barang Diterima*/ and

RM_Kembali_Detail.

KdBarang

==

RM_Ambil_Detail.KdBarang /*Current*/ RM_Kembali_Header.Tgl_SPkB, RM_kembali_ Detail.Qty_kembali, RM_Kembali_Detail.By_kembali TotAmbil = TotAmbil + By_ambil TotKembali = TotKembali + By_kembali End do End do Echo TotPerDept = TotAmbil-TotKembali GrandTotal = GrandTotal + TotPerDept End do Echo GrandTotal If Print button clicked Print Laporan_Pemakaian_Bahan_Baku_Per_Order End if Close All End Modul 4.1 – Catat Biaya Produksi Aktual

Begin Receive Daftar_BP_Aktual User Input Tgl_Formulir, Nama_Pegawai /*Penyusun */ Open Pegawai, Daftar_Tarif, Order_Produksi, Departemen, Anggaran_Tarif, Aktual_BP_Header, Aktual_BP_Detail Read Order Produksi Get KdOrder, Qty_order where month(Tgl_order) == month(now) or month(Tgl_Order) == month(now)

174 Read Departemen Get Nama_dept where Jns_dept = ‘P’ /* Write Aktual_BP_Header */ Read Pegawai Get NIP of Penyusun Daftar_BP_Aktual Write record Aktual_BP_Header → Tanggal_Formulir, NIP /* Write Aktual_BP_Detail */ selNmBy = User Input Nama_Biaya Read Tarif Validate selNmBy in Tarif.KdTarif selOrder = User Input Order (multiple) Read Order_Produksi Validate selOrder in Order_produksi.KdOrder TotQtyOrder = Accumulated Qty_order of selOrder selDept = User Input Nama_Departemen (multiple) Read Departemen Validate selDept in Departemen.KdDept JmlhDept = Count KdDept Keterangan = User Input Keterangan Biaya = User Input Biaya Aktual If Add button clicked /* Pencatatan untuk Bahan Baku Tidak Langsung, Perbaikan dan Pemeliharaan Mesin, BTKL_Bln, BTPK_Upah */ If selNmBy == “BTL”, “PPM”, “BLN”, “UPH” Do Procedure Pembebanan_BiayaKeluar End if

175 /* Pembebanan untuk Penyusutan Gedung dan PBB */ If selNmBy == “PNG”, “PBB” Do Procedure Pembebanan_Luas End if /* Pembebanan untuk Listrik Pabrik dan Penyusutan Mesin */ If selNmBy == “LST”, “PNM” Do Procedure Pembebanan_Banyak_Mesin End if /* Pembebanan untuk Biaya Tenaga Kerja Tidak Langsung, Pengendalian Kualitas, Perancangan Produk*/ If selNmBy == “TTL”, “BQC”,”DGN” Do Procedure Pembebanan_JmlhTK End if End if

Procedure Pembebanan_BiayaKeluar Begin ByPerOrder = (Qty_order / TotQtyOrder) x Biaya Read Aktual_BP_Detail Do While selected order Do While selected department Write Tgl_BP Aktual_BP_Header.Tgl_BP Write KdTarif → selNmBy Write KdOrder → selOrder /*Current*/ Write KdDept → selDept /*Current*/ Write Ktr → Keterangan FinalBy = ByPerOrder / JmlhDept Write By_BP → FinalBy End do End do Read Anggaran_Tarif

176 If

Accumulated

Aktual_BP_Detail.By_BP

>

Anggaran_Tarif.By_tarif_ anggaran Send notification to Supervisor of Current SelDept “Biaya Aktual sudah melebihi Biaya Anggaran” End if End Procedure Pembebanan_Banyak_Mesin Begin ByPerOrder = (Qty_order / TotQtyOrder) x Biaya TotMesin = Accumulated Banyak_Mesin.Qty_msn Read Aktual_BP_Detail Do While selected order Do While selected department Write Tgl_BP Aktual_BP_Header.Tgl_BP Write KdTarif → selNmBy Write KdOrder → selOrder /*Current*/ Write KdDept → selDept /*Current*/ Get

Qty_msn

where

Banyak_Mesin.KdDept

==

selDept/*Current*/ Write Ktr → Keterangan FinalBy = (Qty_msn x Biaya) / TotMesin Write By_BP → FinalBy End do End do If

Accumulated

Aktual_BP_Detail.Biaya

>

Anggaran_Tarif.By_tarif_ anggaran Send notification to Supervisor of Current SelDept “Biaya Aktual sudah melebihi Biaya Anggaran” End if End Procedure Pembebanan_Luas

177 Begin ByPerOrder = (Qty_order / TotQtyOrder) x Biaya TotLuas = Accumulated Luas_Dept.Luas Read Aktual_BP_Detail Do While selected order Do While selected department Write Tgl_BP Aktual_BP_Header.Tgl_BP Write KdTarif → selNmBy Write KdOrder → selOrder /*Current*/ Write KdDept → selDept /*Current*/ Get Luas where Luas_Dept.KdDept == selDept /*Current*/ Write Ktr → Keterangan FinalBy = (Luas / TotLuas) x Biaya Write By_BP → FinalBy End do End do If

Accumulated


>

Anggaran_Tarif.By_tarif_ anggaran Send notification to Supervisor of Current SelDept “Biaya Aktual sudah melebihi Biaya Anggaran” End if End Procedure Pembebanan_JmlhTK Begin ByPerOrder = (Qty_order / TotQtyOrder) x Biaya TotOrang

=

Count

NIP

where

Pegawai.KdDept

Departemen.KdDept where Departemen.Jns_dept ==’P’ Read Aktual_BP_Detail Do While selected order Do While selected department Write Tgl_BP Aktual_BP_Header.Tgl_BP Write KdTarif → selNmBy

==

178 Write KdOrder → selOrder /*Current*/ Write KdDept → selDept /*Current*/ OrangPerDept = Count NIP of selDept/*Current*/ Write Ktr → Keterangan FinalBy = (OrangPerDept / TotOrang) x Biaya Write By_BP → FinalBy End do End do If

Accumulated


>

Anggaran_Tarif.By_tarif_ anggaran Send notification to Supervisor of Current SelDept “Biaya Aktual sudah melebihi Biaya Anggaran” End if End Close All End Modul 4.2 – Cetak_Laporan_Pemakaian_BTKL_Per_Order

Begin Open RM_WIP_FG, Rinci_FG, Departemen, Daftar_Tarif, Order_Produksi, Aktual_BP_Detail Read RM_WIP_FG, Rinci_FG, Departemen, Daftar_Tarif , Order_Produksi, Aktual_BP_Detail TempOrder = User Input KdOrder Get record RM_WIP_FG, Rinci_FG, Departemen, Order_Produksi, Aktual_BP_Detail where Aktual_BP_Detail.KdOrder == TempOrder Sort By Aktual_BP_Detail.KdDept Sort By Aktual_BP_Detail.KdTarif Do while not EOF Echo Departemen.Nama_dept where Aktual_BP_Detail.KdDept == Departemen.KdDept Do while EOF

179 Echo

Daftar_Tarif.Nama_tarif

where

Aktual_BP_Detail.KdTarif == Daftar_Tarif.KdTarif

and

Daftar_Tarif.Jns_tarif == ‘T’ Do while not EOF Echo Aktual_BP_Detail.Tgl_BP, Aktual_BP_Detail.Ktr, Aktual_BP_Detail.By_BP TotPerDept = TotPerDept + By_BP End do End do Echo TotPerDept GrandTotal = GrandTotal + TotPerDept End do Echo GrandTotal If Print button clicked Print Laporan_Pemakaian_BTKL_Per_Order End if Close All End Modul 4.3 – Cetak Laporan_Pemakaian_BOP_Per_Order

Begin Open RM_WIP_FG, Rinci_FG, Departemen, Order_Produksi,Daftar_Tarif, Aktual_BP_Detail Read RM_WIP_FG, Rinci_FG, Departemen, Order_Produksi, Daftar_Tarif, Aktual_BP_Detail TempOrder = User Input KdOrder Get record RM_WIP_FG, Rinci_FG, Departemen, Order_Produksi, Aktual_BP_Detail where Aktual_BP_Detail.KdOrder == TempOrder Sort By Aktual_BP_Detail.KdDept Sort By Aktual_BP_Detail.KdTarif Do while not EOF Echo Departemen.Nama_dept where Aktual_BP_Detail.KdDept

180 == Departemen.KdDept Do while EOF Echo

Daftar_Tarif.Nama_tarif

where

Aktual_BP_Detail.KdTarif == Daftar_Tarif.KdTarif

and

Daftar_Tarif.Jns_tarif == ‘O’ Do while not EOF Echo Aktual_BP_Detail.Tgl_BP, Aktual_BP_Detail.Ktr, Aktual_BP_Detail.By_BP TotPerDept = TotPerDept + By_BP End do End do Echo TotPerDept GrandTotal = GrandTotal + TotPerDept End do Echo GrandTotal If Print button clicked Print Laporan_Pemakaian_BOP_Per_Order End if Close All End Modul 5.1 – Kirim Barang

Begin Open

Pemindahan_Header,

Pemindahan_Detail,

Order_Produksi, Formula_Detail /* Input barang yang akan dikirim*/ View Layar Pemindahan Barang – Kirim – Input Repeat TempKdOrder = User Input KdOrder Read Order_Produksi Get Order_Produksi.KdBarang Read RM_WIP_FG → Get Nama_barang

RM_WIP_FG,

181 Read Rinci_FG → Get Ukuran_FG TempKdBarang = User Input KdBarang TempQty = User Input Qty Kirim TempKtr = User Inout Keterangan Kirim TempNIP = User Input Pegawai pengirim /* Mencari KdDept Tujuan dari TempBarang */ Read Formula_Detail Get record Formula_Detail where Formula_Detail.KdBarang == Order_Produksi.KdBarang and Formula_Detail.KdBarang_penyusun == TempKdbarang Read RM_WIP_FG If TempBarang found Get Jns_barang, Nama_barang, Stok_akhir End if If Jns_barang == “WP” Read Formula_Detail TempKdDept

=

Formula_Detail.KdDept

where

TempKdBarang == Formula_Detail.KdBarang_penyusun and Order_Produksi.KdBarang == Formula_Detail.KdBarang End if If Jns_barang == “FG” TempKdDept = “GBJ” Input TempQty If User want to Add more TempBarang Click Add button End if Until Next Button clicked Collect record from User Input Sort By TempKdDept /* Departemen Tujuan */ /* Entry record Pemindahan_Header */

182 Read Pemindahan_Header Write KdPindah → Generated New KdPindah Write Wkt_kirim → Current Time Write Dept_kirim → Current KdDept Write Dept_terima → TempKdDept Write NIP_pengirim → TempNIP /* Entry record Pemindahan_Detail */ Write KdPindah → Pemindahan_Header.KdPindah Write KdOrder → TempKdOrder Write KdBarang → TempBarang Write Qty_kirim → TempQty Write Ktr_kirim → TempKtr /* Update Stok Akhir Barang */ Str_akr = Stok_akhir-TempQty Write RM_WIP_FG.Stok_akhir → Str_akr If Print Button Clicked Print Rincian_Pengiriman_Barang Send Rincian_Pengiriman_Barang Close All End Modul 5.2 – Terima Barang

Begin Receive Rincian_Pengiriman_Barang Open

Order_Produksi,

RM_WIP_FG,

Pemindahan_Header,

Pemindahan_Detail Open Layar Pemindahan Barang – Terima – Input Kode Pindah /* Input KdPindah yang akan diterima */ TempKdPindah = User Input KdPindah

183 Read Pemindahan_Header, Pemindahan_Detail Get

record

Pemindahan_Header,

Pemindahan_Header.KdPindah

Pemindahan_Detail

==

where

Pemindahan_Detail.KdPindah

==TempKdPindah View Layar Pemindahan Barang – Terima – Input Validate Rincian_Pengiriman_Barang /* Entry Record Pemindahan_Header */ Write Wkt_terima → Current Time Write NIP_pengirim → TempNIP /* input user */ /* Entry record Pemindahan_Detail */ Write Qty_terima → TempQty /* User Input */ Write Ktr_terima → TempKtr /* User Input */ /* Update Stok Akhir Barang */ Str_akr = Stok_akhir-TempQty Write RM_WIP_FG.Stok_akhir → Str_akr If Print Button Clicked Print Rincian_Penerimaan_Barang Send Rincian_Penerimaan_Barang Close All End Modul 6.1 – Cek_Progres_Produksi

Begin Open Order_Produksi, RM_WIP_FG, Formula_Header, Formula_Detail, Pemindahan_Header, Pemindahan_Detail TempOrder = User Input KdOrder

184 Read OrderProduksi, Get KdOrder, KdBarang, Qty_order, Tgl_selesai_prk, Tgl_selesai_akt where KdOrder ==TempOrder Read RM_WIP_FG, Get Nama_barang Echo Order_Produksi.KdBarang, RM_WIP_FG.Nama_barang /* Cari KdBarang_terbentuk per TempOrder */ Read RM_WIP_FG, Formula_Header, Formula_Detail Get

Formula_Detail.KdBarang_terbentuk,

Order_Produksi.KdBarang

==

KdDept

where

RM_WIP_FG.KdBarang

==

Formula_Header.KdBarang == Formula_Detail.KdBarang Get Jns_barang, Nama_barang where Formula_Detail.KdBarang_terbentuk == RM_WIP_FG.KdBarang Do while not EOF Echo Formula_Detail.KdDept, RM_WIP_FG.Jns_barang, Formula_Detail.KdBarang_terbentuk, RM_WIP_FG.Nama_barang /* Get Qty terselesaikan per KdBarang_terbentuk */ Read Pemindahan_Detail Qty_selesai = Accumulated Pemindahan_Detail.Qty_kirim where Pemindahan_Detail.KdBarang == Formula_Detail.KdBarang_ terbentuk and Pemindahan_Detail.KdOrder == Order_Produksi.KdOrder Last_update = Latest Pemindahan_Header.Wkt_kirim where Pemindahan_Detail.KdBarang == Formula_Detail.KdBarang_ terbentuk and Pemindahan_Detail.KdOrder == Order_Produksi.KdOrder and Pemindahan_Detail.KdPindah == Pemindahan_Header.KdPindah Echo Qty_selesai ”---”Order_Produksi.Qty_order, Last_update /* Hitung %_Penyelesaian Per Order */ Grand_All = Grand_All + Qty_order Total_All = Total_All + Qty_selesai End do Echo %Penyelesaian = Total_all / Grand_All

185 If %Penyelesaian >= 1 Send Order_Selesai End if Close All End Modul 6.2 – Update Tgl_selesai_akt

Begin Receive Order_Selesai TempKdOrder = KdOrder from Order_Selesai Open Order_Produksi Read Order_Produksi Update Order_Produksi.Tgl_selesai_akt where KdOrder = TempKdOrder Close Order_Produksi End

Modul 6.3 – Cetak Laporan Produksi Selesai

Begin Awal = User Input /*Tanggal_awal*/ Akhir = User Input /*Tanggal_akhir*/ Open Order_Produksi, RM_WIP_FG, Rinci_FG Read Order_Produksi, RM_WIP_FG, Rinci_FG Get Tgl_selesai_akt, Tgl_selesai_prk, KdOrder, Qty_order, KdBarang, Nama_barang, Ukuran_FG where Awal <= Order_Produksi.Tgl_selesai_akt <=Akhir Sort by Tgl_selesai_akt Sort by KdOrder Do while not EOF QtyOrderRealisasi = 0

186 SelisihQty = 0 SelisihHr = 0 Status = “” /* Hitung Qty_realisasi dan Selisih Kuantitas dari Current KdOrder */ Read Pemindahan_Detail Get record Pemindahan_Detail where Pemindahan_Detail.KdOrder == Current KdOrder Do while not EOF QtyOrderRealisasi

==

QtyOrder_Realisasi

+

Pemindahan_Detail.Qty_terima End do SelisihQty = Order_Produksi.Qty_order - QtyOrderRealisasi /* Hitung SelisihHr dan Penentuan Status Penyelesaian */ SelisihHr

=

Order_Produksi.Tgl_selesai_akt

–

Order_Produksi.Tgl_selesai_prk If

Order_Produksi.Tgl_selesai_prk

==

Order_Produksi.Tgl_selesai_akt Status = “Tepat Waktu” End if If


<=

Order_Produksi

>=

Order_Produksi

.Tgl_selesai_akt Status = “Terlambat” End if If


.Tgl_selesai_akt Echo “Lebih Cepat” End if End do Echo Laporan_Produksi_Selesai If Print button clicked Print Laporan Order_Produksi_Selesai End if

187 Close All End Modul 7.1 – Update_HPP_FG

Begin Open

RM_Ambil_Header,

RM_Kembali_Detail,

RM_Ambil_Detail,

Aktual_BP_Detail,

RM_Kembali_Header,

RM_WIP_FG,

Rinci_FG,

Order_Produksi, Pemindahan Read

RM_Ambil_Header,

RM_Kembali_Detail,

RM_Ambil_Detail,

Aktual_BP_Detail,

RM_Kembali_Header,

RM_WIP_FG,

Rinci_FG,

Order_Produksi, Pemindahan /* Menghitung Total BBB dan Bahan Baku Tidak Langsung */ Get record RM_Ambil_Header, RM_Ambil_Detail, Order_Produksi where (RM_Ambil_Header.KdOrder

==

Order_Produksi.KdOrder

where

Order_Produksi.Tgl_selesai_akt != “” and Rinci_FG.HPP ==””) and (RM_Ambil_Header.NoSPaB

==

(RM_Ambil_Detail.KdBarang

==

RM_Ambil_Detail.NoSPaB) RM_WIP_FG.KdBarang

and where

RM_WIP_FG.Jns_barang ==”R1” or RM_WIP_FG.Jns_barang=”R2”) Do while not EOF Tot_BBB = Tot_BBB + RM_Ambil_Detail.By_ambil End do Get record RM_Kembali_Header, RM_Kembali_Detail, Order_Produksi where RM_Kembali_Header.KdOrder == RM_Kembali_Detail.KdOrder == Order_Produksi.KdOrder where Order_Produksi.Tgl_selesai_akt != “” and Rinci_FG.HPP ==”” Do while not EOF Tot_BBB = Tot_BBB - RM_Kembali_Detail.By_Kembali End do /* Menghitung Total BTKL dan BOP */

188 Get record where Aktual_BP_Detail == Order_Produksi.KdOrder where Order_Produksi.Tgl_selesai_akt != “” and Rinci_FG.HPP ==”” Do while not EOF Tot_BTKLBOP = Tot_BTKLBOP + Aktual_BP_Detail.By_BP End do TempHPP = Tot_BBB + TotBTKLBOP /* Mendapatkan Qty_order_aktual dari FG yang akan dihitung HPP-nya */ Get

record

Pemindahan_Detail

where

Order_Produksi.KdBarang

==

Pemindahan.KdBarang and Order_Produksi.Tgl_selesai_akt != “” and Rinci_FG.HPP ==”” Do while not EOF Tot_qty = Tot_qty + Pemindahan.Qty_terima End do /* Meng-update RM_WIP_FG.HPP*/ HPP = TempHPP / Tot_qty Fill Rinci_FG.HPP → HPP Close All End Modul 7.2 – Cetak Laporan_HPP_Aktual_Per_Order

Begin Open Order_Produksi, RM_WIP_FG, Daftar_Tarif, RM_Ambil_Header, RM_Ambil_Detail,

RM_Kembali_Header,

RM_Kembali_Detail,

Aktual_BP_Detail Read Order_Produksi, RM_WIP_FG, Daftar_Tarif, RM_Ambil_Header, RM_Ambil_Detail,

RM_Kembali_Header,

RM_Kembali_Detail,

Aktual_BP_Detail TempOrder = User Input KdOrder Echo record Order_Produksi where Order_Produksi.KdOrder == TempOrder

189

/* Pemakaian Bahan Baku */ Get record RM_Ambil_Header, RM_Ambil_Detail, RM_WIP_FG where RM_Ambil_Header.KdOrder

==

RM_Ambil_Header.NoSPaB

==


==

TempOrder

and

RM_Ambil_Detail.NoSPaB RM_WIP_FG.KdBarang

and where

RM_WIP_FG.Jns_barang ==”R1”) Sort by RM_Ambil_Detail.KdBarang Echo RM_Ambil_Detail.KdBarang Echo

RM_WIP_FG.Nama_barang

where

RM_WIP_FG.KdBarang

==

RM_Ambil_Detail.KdBarang Do while not EOF TotQty = TotQty + RM_Ambil_Detail.Qty_ambil TotBy = TotBy + RM_Ambil_Detail.By_ambil If current KdBarang != next KdBarang Get

record

RM_WIP_FG TempOrder

RM_Kembali_Header, where and

RM_Kembali_Detail,

RM_Kembali_Header.KdOrder

RM_Kembali_Header.NoSPkB

RM_Kembali_Detail.NoSPkB

and

== ==

(RM_Kembali_

Detail.KdBarang == RM_Ambil_Detail.KdBarang Do while not EOF TotQtyBBB

=

TotQtyBBB

–

RM_Kembali_

Detail.Qty_kembali TotBy = TotBy – RM_Kembali_Detail.By_kembali End do Echo TotQtyBBB, TotBy GrandBBB = GrandBBB + TotBy End if End do Echo GrandBBB /* Pemakaian BTKL */

190 Get record where (Aktual_BP_Detail.KdOrder == TempOrder) and (Aktual_BP_Detail.KdTarif

==

Daftar_Tarif.KdTarif

where

Daftar_Tarif.Jns_tarif ==’T’) Sort by Aktual_BP_Detail.KdTarif Do while not EOF Echo Daftar_Tarif.Nama_tarif Echo Aktual_BP_Detail.By_aktual GrandBTKL = GrandBTKL + Aktual_BP_Detail.By_aktual End do Echo GrandBTKL /* Pemakaian BOP */ Get record RM_Ambil_Header, RM_Ambil_Detail, RM_WIP_FG where RM_Ambil_Header.KdOrder

==


==


==

TempOrder


and and where

RM_WIP_FG.Jns_barang ==”R2”) Do while not EOF Tmbh_BBB = Tmbh_BBB + RM_Ambil_Detail.By_ambil End do Get record where (Aktual_BP_Detail.KdOrder == TempOrder) and (Aktual_BP_Detail.KdTarif

==

Daftar_Tarif.KdTarif)

and

(Daftar_Tarif.Jns_tarif ==’O’) Sort by Aktual_BP_Tarif.KdTarif Do while not EOF /*Grouped per KdTarif */ Echo Daftar_Tarif.Nama_tarif where Aktual_BP_Detail.KdTarif == Daftar_tarif.KdTarif Tot_BOP = Tot_BOP + Aktual_BP_Detail.By_BP If next record Aktual_BP_Tarif.KdTarif ==”BTL” Tot_BOP = Tot_BOP + Tmbh_BBB

191 End if /*Grouped per KdTarif */ Echo Tot_BOP GrandBOP = GrandBOP + Tot_BOP Tot_BOP = 0 End do Echo GrandBOP GrandTotal=GrandBBB + GrandBTKL + GrandBOP Echo GrandTotal /* Mendapatkan Qty_order_aktual */ Get record Pemindahan_Detail where Pemindahan_Detail.KdOrder == TempOrder Do while not EOF Tot_qty = Tot_qty + Pemindahan.Qty_terima End do Echo TotQty ByPerUnit = GrandTotal/TotQty Echo ByPerUnit If Print button clicked Print Laporan_HPP_Per_Order End if Close All End Modul 7.3 – Cetak Laporan_HPP_Anggaran_Per_Order

Begin Open

Order_Produksi,

RM_WIP_FG,

Daftar_Tarif,

Anggaran_RM,

Daftar_Tarif,

Anggaran_RM,

Anggaran_Tarif, Formula_Detail Read

Order_Produksi,

Anggaran_Tarif

RM_WIP_FG,

192 TempOrder = User Input KdOrder Echo record Order_Produksi where Order_Produksi.KdOrder == TempOrder /* Menghitung Anggaran Bahan Baku */ TempBarang = Order_Produksi.KdBarang where Order_produksi.KdOrder == TempOrder Get record Formula_Detail, Anggaran_RM where Formula_Detail.KdBarang == Angaran_RM.KdBarang == TempBarang Sort

by


where

Formula_Detail.KdBarang _penyusun == RM_WIP_FG.KdBarang where Jns_barang == “R1” Do while not EOF Echo KdBarang, Nama_barang TotQty = TotQty + Anggaran_RM.Qty_anggaran TotBy = TotBy + Angaran_RM.By_RM_anggaran If current record != next record Echo TotQty, TotBy GrandBBB = GrandBBB + TotBy Set TotQty, totBy to 0 End do End do Echo GrandBBB /* Menghitung Anggaran BTKL */ Get record Daftar_Tarif, Anggaran_Tarif where (Anggaran_Tarif.KdOrder == TempOrder) and (Anggaran_Tarif.KdTarif == Daftar_Tarif.KdTarif) and (Daftar_Tarif.Jns_tarif ==‘T’) Do while not EOF TotBTKL = TotBTKL + Angaran_Tarif.By_tarif_anggaran If current record != next record Echo TotBTKL GrandBTKL = GrandBTKL + TotBTKL TotBTKL = 0

193 End if End do Echo GrandBTKL /*Menghitung Anggaran BOP */ Get record Daftar_Tarif, Anggaran_Tarif where (Anggaran_Tarif.KdOrder == TempOrder) and (Anggaran_Tarif.KdTarif == Daftar_Tarif.KdTarif) and (Daftar_Tarif.Jns_tarif ==‘O’) Do while not EOF TotBOP = TotBOP + Angaran_Tarif.By_tarif_anggaran If current record != next record Echo TotBOP GrandBOP = GrandBOP + TotBOP TotBOP= 0 End if End do Echo GrandBOP GrandTotal = GrandBBB + GrandBTKL + GrandBOP Echo GrandTotal Echo Order_Produksi.Qty_order ByPerUnit = GrandTotal / Order_Produksi.Qty_order Echo ByPerUnit Close All If Print button clicked Print Laporan HPP Anggaran per Order End if End Modul 7.4 – Cetak Laporan Varians Pemakaian Bahan Baku

Begin Open Order_Produksi, Formula_Detail, Anggaran_RM, RM_Ambil_Header, RM_Ambil_Detail, RM_Kembali_Header, RM_Kembali_Detail

194 Read Order_Produksi, Formula_Detail, Anggaran_RM, RM_Ambil_Header, RM_Ambil_Detail, RM_Kembali_Header, RM_Kembali_Detail TempOrder = User Input KdOrder Get

record

Order_Produksi,

RM_Ambil_Header,

Formula_Detail,

RM_Ambil_Detail,

Anggaran_RM,

RM_Kembali_Header,

RM_Kembali_Detail where (OrderProduksi.KdOrder == TempOrder) and (RM_Ambil_Header.KdOrder TempOrder)

==

and

RM_Ambil.Detail.NoSPaB)


==

(RM_Ambil_Header.NoSPaB and

RM_Kembali_Detail.NoSPkB)

(RM_Kembali_Header.NoSPkB

==

(Order_Produksi.KdBarang

==

and

Formula_Detail.KdBarang

==

==

Anggaran_RM.KdBarang)

and

(Formula_Detail.KdBarang_penyusun == RM_Ambil_Detail.KdBarang == RM_Kembali_Detail.KdBarang

==

RM_WIP_FG.KdBarang

where

RM_WIP_FG.Jns_barang ==”R1”) Sort by Formula_Detail.KdDept Sort by Formula_Detail.KdBarang_penyusun Do while not EOF Echo Formula_Detail.KdDept Do while not EOF Echo Formula_Detail.KdBarang_penyusun Do while not EOF AccQty_anggaran = Accumulated Qty_anggaran AccQty_ambil = Accumulated Qty_ambil AccQty_kembali = Accumulated Qty_kembali VarQty = AccQty_anggaran – AccQty_ambil + AccQty_kembali AccBy_anggaran = Accumulated By_RM_anggaran AccBy_ambil == Accumulated By_ambil AccBy_kembali == Accumulated By_kembali VarBy

=

AccBy_anggaran

AccBy_kembali

–

AccBy_ambil

+

195 End do Echo AccQty_anggaran Echo AccQty_ambil – AccQty_kembali Echo VarQty Echo RM_WIP_FG.Satuan where RM_WIP_FG.KdBarang == Formula_Detail.KdBarang_penyusun Echo AccBy_anggaran Echo AccBy_ambil – AccBy_kembali Echo VarBy If AccBy_anggaran < AccBy_ambil – AccBy_kembali Echo ‘U’ End if If AccBy_anggaran > AccBy_ambil – AccBy_kembali Echo ‘F’ End if VarQtyDept = VarDept + VarQty VarByDept = VarByDept + VarBy Set AccQty_anggaran =AccQty_ambil =AccQty_kembali = AccBy_anggaran = AccBy_ambil = AccBy_kembali = 0 End do Echo VarQtyDept, VarByDept If VarByDept = -VarByDept Echo ‘U’ End if If VarByDept = +VarByDept Echo ‘F’ End if TotVarQty = TotVarQty + VarQtyDept TotVarBy = TotVarBy + VarByDept Set VarQtyDept == VarByDept = 0 End do Echo TotVarQty, TotByDept If TotVarBy == -TotVarBy Echo ‘U’ End if If TotVarBy ==+TotVarBy Echo ‘F’ End if If Print button clicked

196 Print Laporan_Varians_Pemakaian_Bahan_Baku End if Close All End Modul 7.5 – Cetak Laporan Varians Pemakaian BTKL

Begin Open Order_Produksi, Daftar_Tarif, Anggaran_Tarif, Aktual_BP_Detail Read Order_Produksi, Daftar_Tarif, Anggaran_Tarif, Aktual_BP_Detail TempOrder = User Input KdOrder Get

record

Order_Produksi,

Aktual_BP_Detail

Daftar_Tarif,

where

Anggaran_Tarif,

(Order_Produksi.KdOrder

==

Anggaran_Tarif.KdOrder == Aktual_BP_Detail.KdOrder == TempOrder) and

(Tarif.KdTarif

==

Aktual_BP_Detail.KdTarif

Anggaran_Tarif.KdTarif ==Daftar_Tarif.KdTarif

== where

Daftar_Tarif.Jns_tarif ==’T’) Sort By Anggaran_Tarif.KdDept Sort By Anggaran_Tarif.KdTarif Do while not EOF Echo Anggaran_Tarif.KdDept Do while not EOF Echo Anggaran_Tarif.KdTarif Echo Daftar_Tarif.Nama_tarif where Anggaran_Tarif.KdTarif ==Daftar_Tarif.KdTarif Do while not EOF AccByAnggaran

=

Accumulated

Anggaran_Tarif.KdTarif AccByAkt = Accumulated Aktual_BP_Detail.By_BP End do VarBy = AccByAnggaran – AccByAkt Echo AccByAnggaran, AccByAkt, VarBy

197 If AccByAnggaran < AccByAkt Echo ‘U’ End if If AccByAnggaran > AccByAkt Echo ‘F’ End if ByAnggaranDept = ByAnggaranDept + AccByAnggaran ByAktDept = ByAktDept + AccByAkt VarByDept = VarByDept + VarBy Set AccByAnggaran == AccByAkt ==VarBy == 0 End do VarByDept = ByAnggaranDept - ByAktDept Echo ByAnggaranDept, ByAktDept, VarByDept If ByAnggaranDept < ByAktDept Echo ‘U’ End if If ByAnggaranDept > ByAktDept Echo ‘F’ End if TotAnggaran = TotAnggaran + ByAnggaranDept TotAkt = TotAkt + ByAktDept Set ByAnggaranDept == ByAktDept == VarByDept == 0 End do TotVar = ByAnggaranDept – ByAktDept Echo TotAnggaran, TotAkt, TotVar If TotAnggaran < TotAkt Echo ‘U’ End if If TotAnggaran > TotAkt Echo ‘F’ End if If Print button clicked Print Laporan_Varians_Tarif_BTKL_BOP End if Close All End

198 Modul 7.6 – Cetak Laporan Varians Pemakaian BOP

Begin Open Order_Produksi, Daftar_Tarif, Anggaran_Tarif, Aktual_BP_Detail Read Order_Produksi, Daftar_Tarif, Anggaran_Tarif, Aktual_BP_Detail TempOrder = User Input KdOrder Get

record

Order_Produksi,

Aktual_BP_Detail

Daftar_Tarif,

where

Tarif,

Anggaran_Tarif,

(Order_Produksi.KdOrder

==Anggaran_Tarif.KdOrder ==Aktual_BP_Detail.KdOrder == TempOrder) and

(Tarif.KdTarif

Aktual_BP_Detail.KdTarif

== ==

Anggaran_Tarif.KdTarif== Daftar_Tarif.KdTarif

where

Daftar_Tarif.Jns_tarif ==‘O’) Sort By Anggaran_Tarif.KdDept Sort By Anggaran_Tarif.KdTarif Do while not EOF Echo Anggaran_Tarif.KdDept Do while not EOF Echo Anggaran_Tarif.KdTarif Echo Daftar_Tarif.Nama_tarif where Anggaran_Tarif.KdTarif ==Daftar_Tarif.KdTarif Do while not EOF AccByAnggaran

=

Accumulated

Anggaran_Tarif.KdTarif AccByAkt = Accumulated Aktual_BP_Detail.By_BP End do VarBy = AccByAnggaran – AccByAkt Echo AccByAnggaran, AccByAkt, VarBy If AccByAnggaran < AccByAkt Echo ‘U’ End if If AccByAnggaran > AccByAkt Echo ‘F’ End if ByAnggaranDept = ByAnggaranDept + AccByAnggaran

199 ByAktDept = ByAktDept + AccByAkt VarByDept = VarByDept + VarBy Set AccByAnggaran == AccByAkt ==VarBy == 0 End do VarByDept = ByAnggaranDept - ByAktDept Echo ByAnggaranDept, ByAktDept, VarByDept If ByAnggaranDept < ByAktDept Echo ‘U’ End if If ByAnggaranDept > ByAktDept Echo ‘F’ End if TotAnggaran = TotAnggaran + ByAnggaranDept TotAkt = TotAkt + ByAktDept Set ByAnggaranDept == ByAktDept == VarByDept == 0 End do TotVar = ByAnggaranDept – ByAktDept Echo TotAnggaran, TotAkt, TotVar If TotAnggaran < TotAkt Echo ‘U’ End if If TotAnggaran > TotAkt Echo ‘F’ End if If Print button clicked Print Laporan_Varians_Tarif_BTKL_BOP End if Close All End Modul 7.7 – Cetak Laporan Varians HPP

Begin /* Menghitung Biaya Produksi Anggaran */ Open

Order_Produksi,

RM_WIP_FG,

Daftar_Tarif,

Anggaran_RM,

Anggaran_Tarif, Formula_Detail, RM_Ambil_Header, RM_Ambil_Detail, RM_Kembali_Header, RM_Kembali_Detail, Aktual_BP_Detail

200 Read

Order_Produksi,

RM_WIP_FG,

Daftar_Tarif,

Anggaran_RM,

Anggaran_Tarif TempOrder = User Input KdOrder Echo record Order_Produksi where Order_Produksi.KdOrder == TempOrder /* Menghitung Anggaran Bahan Baku */ TempBarang = Order_Produksi.KdBarang where Order_produksi.KdOrder == TempOrder Get record Formula_Detail, Anggaran_RM where Formula_Detail.KdBarang == Angaran_RM.KdBarang == TempBarang Sort

by


where

Formula_Detail.KdBarang _penyusun == RM_WIP_FG.KdBarang where Jns_barang == “R1” Do while not EOF TotByAng = TotByAng + Anggaran_RM.By_RM_anggaran If current record != next record Echo TotByAng GrandBBBAng = GrandBBBAng + TotByAng Set TotByAng to 0 End do End do Echo GrandBBBAng /* Menghitung Anggaran BTKL */ Get record Daftar_Tarif, Anggaran_Tarif where (Anggaran_Tarif.KdOrder == TempOrder) and (Anggaran_Tarif.KdTarif

== Daftar_tarif.KdTarif

where== Daftar_tarif.Jns_tarif ==‘T’) Do while not EOF TotBTKLAng = TotBTKLAng + Angaran_Tarif.By_tarif_anggaran If current record != next record GrandBTKLAng = GrandBTKLAng + TotBTKLAng TotBTKLAng = 0

201 End if End do Echo GrandBTKLAng /*Menghitung Anggaran BOP */ Get record Daftar_Tarif, Anggaran_Tarif where (Anggaran_Tarif.KdOrder == TempOrder) and (Anggaran_Tarif.KdTarif == Daftar_Tarif.KdTarif where Daftar_Tarif.Jns_tarif ==‘O’) Do while not EOF TotBOPAng = TotBOPAng + Angaran_Tarif.By_tarif_anggaran If current record != next record GrandBOPAng = GrandBOPAng + TotBOPAng TotBOPAng = 0 End if End do Echo GrandBOPAng GrandTotalAnggaran = GrandBBBAng + GrandBTKLAng + GrandBOPAng Echo GrandTotalAnggaran /* Menghitung Biaya Produksi Aktual */ Read Order_Produksi, RM_WIP_FG, Daftar_Tarif, RM_Ambil_Header, RM_Ambil_Detail,

RM_Kembali_Header,

RM_Kembali_Detail,

Aktual_BP_Detail /* Pemakaian Bahan Baku Aktual */ Get record RM_Ambil_Header, RM_Ambil_Detail, RM_WIP_FG where RM_Ambil_Header.KdOrder

==


==


==

RM_WIP_FG.Jns_barang ==”R1”) Sort by RM_Ambil_Detail.KdBarang Do while not EOF

TempOrder


and and where

202 TotByAkt = TotByAkt + RM_Ambil_Detail.By_ambil If current KdBarang != next KdBarang Get

record

RM_Kembali_Header,

RM_WIP_FG TempOrder

where and

RM_Kembali_Detail,


==

RM_Kembali_Header.NoSPkB

RM_Kembali_Detail.NoSPkB

and

==

(RM_Kembali_

Detail.KdBarang == RM_Ambil_Detail.KdBarang) Do while not EOF TotByAkt=

TotByAkt

–

RM_Kembali_Detail.By_kembali End do Echo TotByAkt GrandBBBAkt = GrandBBBAkt + TotByAkt End if End do Echo GrandBBBAkt /* Pemakaian BTKL Aktual */ Get record where (Aktual_BP_Detail.KdOrder == TempOrder) and (Aktual_BP_Detail.KdTarif

==


where

Daftar_Tarif.Jns_tarif ==’T’) Sort by Aktual_BP_Detail.KdTarif Do while not EOF GrandBTKLAkt = GrandBTKLAkt + Aktual_BP_Detail.By_aktual End do Echo GrandBTKLAkt /* Pemakaian BOP */ Get record RM_Ambil_Header, RM_Ambil_Detail, RM_WIP_FG where RM_Ambil_Header.KdOrder

==


==


==

RM_WIP_FG.Jns_barang ==”R2”)

TempOrder


and and where

203 Do while not EOF Tmbh_BBB = Tmbh_BBB + RM_Ambil_Detail.By_ambil End do Get record where (Aktual_BP_Detail.KdOrder == TempOrder) and (Aktual_BP_Detail.KdTarif

==


Daftar_Tarif.Jns_tarif ==’O’) Sort by Aktual_BP_Tarif.KdTarif Do while not EOF TotBOPAkt = TotBOPAkt + Aktual_BP_Detail.By_BP If next record Aktual_BP_Tarif.KdTarif ==”BBB” TotBOPAkt = TotBOPAkt + Tmbh_BBB End if GrandBOPAkt = GrandBOPAkt + TotBOPAkt TotBOPAkt = 0 End do Echo GrandBOPAkt GrandTotalAkt =GrandBBBAkt + GrandBTKLAkt + GrandBOPAkt Echo GrandTotalAkt /* Menghitung Varians */ VarBBB = GrandBBBAng – GrandBBBAkt Echo VarBBB If GrandBBBAng < GrandBBBAkt Echo ‘U’ Else Echo ‘F’ End if VarBTKL = GrandBTKLAng – GrandBTKLAkt Echo VarBTKL If GrandBTKLAng < GrandBTKLAkt

where

204 Echo ‘U’ Else Echo ‘F’ End if VarBOP = GrandBOPAng – GrandBOPAkt Echo VarBOP If GrandBOPAng < GrandBOPAkt Echo ‘U’ Else Echo ‘F’ End if GrandVar = VarBBB + VarBTKL + VarBOP Echo GrandVar If GrandVar = -GrandVar Echo ‘U’ Else Echo ‘F’ End if If Print button clicked Print Laporan_Varians_HPP End if Close All End

4.6

Rancangan Masukkan

4.6.1

Formulir

205

PT. BIGINUSINDO PERMAI Jalan Karang Bolong Raya No. 12 A Ancol Barat – Jakarta Utara Telp. (021) 6923179

Surat Order Produksi Kode Order

: _____________

Kode FG Diproduksi Nama FG Diproduksi

: _____________ : _____________

Tanggal Order Qty Order Spesifikasi

: ___/___/______ : _____________ pcs : ______________________________________________ : ______________________________________________ : ______________________________________________ Tanggal Selesai Diminta : ___/___/______ Pemohon,

Menyetujui,

(_______________) Ka. Marketing

(______________) Ka. PPC

Gambar 4.45 Rancangan formulir Order Produksi PT. BIGINUSINDO PERMAI Jalan Karang Bolong Raya No. 12 A Ancol Barat – Jakarta Utara Telp. (021) 6923179

Daftar Biaya Produksi Aktual Tanggal DBPA : ___/___/______ Nama Biaya

Kode Order *)

Departemen **)

Keterangan

*) Boleh diisi lebih dari 1 kode order **) Boleh diisi lebih dari 1 departemen Mengetahui,

(________________) Ka. Accounting

(_______________) Penyusun

Gambar 4.46 Rancangan formulir Daftar Biaya Produksi Aktual

Biaya

206


Surat Permohonan Pembiayaan Lain Tanggal No.SPPL Kode Order Departemen

: ___/___/______ : _____________ : _____________ : _____________

Kode Tarif *)

Keterangan

Estimasi Biaya

Total *) Diisi oleh Bag. Accounting Mengetahui,

Menyetujui,

(__________________) Ka. Departemen

(________________) Ka. Accounting

Gambar 4.47 Rancangan Surat Permohonan Pembiayaan Lain PT. BIGINUSINDO PERMAI Jalan Karang Bolong Raya No. 12 A Ancol Barat – Jakarta Utara Telp. (021) 6923179

Formulir Reimburse Tanggal : ___/___/_______ No SPPL : ______________ Departemen : ______________ No.

Keterangan

Mengetahui,

Menyetujui,

(_____________) Ka. Departemen

(_______________) Ka. Accounting

Gambar 4.48 Rancangan Formulir Reimburse

Biaya Aktual

(______________) Kasir

207


Formulir Desain Tanggal Formulir : ___/___/______ Detail Finished Good Kode FG Tipe FG Merek Nama FG Ukuran Warna Satuan

: ______________ : ______________ : ______________ : ______________ : ______________ : ______________ : ______________

Detail WIP Departemen Pembuat

Kode WIP

Nama WIP

Tipe WIP

Ukuran

Warna

Satuan

*) Diisi sesuai urutan proses produksi Detail Formula Dept. Pembuat

Kode Barang Terbentuk

Jenis Barang Terbentuk

Tipe Barang Terbentuk

Nama Barang Terbentuk

Kode Barang Penyusun

Jenis Barang Penyusun

Tipe Barang Penyusun

Nama Barang Penyusun

Qty Formula

Mengetahui, (___________________) Ka. Desain

(________________) Penyusun

Gambar 4.49 Rancangan Formulir Desain

Satuan

208

4.6.2

Layar

Gambar 4.50 Rancangan Layar Login

Gambar 4.51 Rancangan Layar Menu untuk PPC

209

Gambar 4.52 Rancangan Layar Menu untuk Produksi

Gambar 4.53 Rancangan Layar Menu untuk Manajer

210

Gambar 4.54 Rancangan Layar Menu untuk Marketing

Gambar 4.55 Rancangan Layar Menu untuk Gudang Bahan Baku

211

Gambar 4.56 Rancangan Layar Menu untuk Gudang Finished Good

Gambar 4.57 Rancangan Layar Menu untuk Kasir

212

Gambar 4.58 Rancangan Layar Inventarisasi Raw Material

213 Gambar 4.59 Rancangan Layar Inventarisasi WIP

Gambar 4.60 Rancangan Layar Inventarisasi Finished Good

214

Gambar 4.61 Rancangan Layar Formula Bahan Baku

215

Gambar 4.62 Rancangan Layar Formula Tarif BTKL dan BOP

216

Gambar 4.63 Rancangan Layar Order Produksi

217

Gambar 4.64 Rancangan Layar Biaya Anggaran – Bahan Baku Catatan: Subbagian Produksi hanya dapat melihat informasi yang berkaitan dengan departemennya sendiri. Sedangkan PPC dapat melihat informasi untuk semua departemen.

218

Gambar 4.65 Rancangan Layar Biaya Anggaran BTKL-BOP Catatan: Subbagian Produksi hanya dapat melihat informasi yang berkaitan dengan departemennya sendiri. Sedangkan PPC dapat melihat informasi untuk semua departemen.

219

Gambar 4.66 Rancangan Layar Biaya Aktual – Permintaan Bahan Baku

220

Gambar 4.67 Rancangan Layar Biaya Aktual – Permintaan Bahan Baku (Lanjutan)

221

Gambar 4.68 Rancangan Layar Biaya Aktual – Penerimaan SPaB

222 Gambar 4.69 Rancangan Layar Biaya Aktual – Pengembalian Bahan Baku Lebih

Gambar 4.70 Rancangan Biaya Aktual – Penerimaan SPkB

Gambar 4.71 Rancangan Layar Biaya Aktual – Cek BTKL-BOP Aktual Catatan: Setiap subdepartemen Produksi hanya dapat melihat Biaya BTKL-BOP yang berkaitan dengan departemennya saja.

223

Gambar 4.72 Rancangan Layar Biaya Aktual – Catat BTKL-BOP Aktual Catatan: Yang meng-input BTKL-BOP aktual adalah Kasir berdasarkan Daftar Biaya Aktual yang diisi oleh Accounting.

224

Gambar 4.73 Rancangan Layar Pemindahan Barang – Cek Pemindahan Barang Catatan: PPC dapat melihat semua transaksi perpindahan barang dari semua subdepartemen Produksi, sedangkan setiap subdepartemen Produksi hanya dapat melihat transaksi Kirim dan Terima yang berkaitan dengan departemennya saja.

225

Gambar 4.74 Rancangan Pemindahan Barang – Kirim

226

Gambar 4.75 Rancangan Layar Pemindahan Barang – Terima

227

Gambar 4.76 Rancangan Layar Cek Progress Produksi

Gambar 4.77 Rancangan Layar Input Range Tanggal Laporan

Gambar 4.78 Rancangan Layar Input Kode Order (untuk laporan yang dibuat per Kode Order)

228

4.7

Rancangan Keluaran


Laporan Order Produksi Periode dd/mm/yyyy – dd/mm/yyyy Tanggal Cetak : dd/mm/yyyy No. Kode Order xxx xxx xxx xxx xxx xxx

x---11---x x---11---x x---11---x x---11---x x---11---x x---11---x

Kode FG x---12---x x---12---x x---12---x x---12---x x---12---x x---12---x

Nama FG x----35----x x----35----x x----35----x x----35----x x----35----x x----35----x

Ukuran xx xx xx xx xx xx

Tanggal Order dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy

Tanggal Selesai Diminta dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy

Total Order Produksi : xxx

Gambar 4.79 Rancangan Laporan Order Produksi

Lama Produksi xxx hari xxx hari xxx hari xxx hari xxx hari xxx hari

Qty Order

Hal : xx Status Produksi

999.999 999.999 999.999 999.999 999.999 999.999

x---20---x x---20---x x---20---x x---20---x x---20---x x---20---x

229


Laporan Order Produksi Selesai Periode dd/mm/yyyy – dd/mm/yyyy Tanggal Cetak : dd/mm/yyyy Tanggal Kode Order Selesai Aktual dd/mm/yyyy dd/mm/yyyy

x---11---x x---11---x x---11---x x---11---x x---11---x

Kode FG x---12---x x---12---x x---12---x x---12---x x---12---x

Nama FG x----35----x x----35----x x----35----x x----35----x x----35----x

Ukuran xx xx xx xx xx

Qty Order 999.999 999.999 999.999 999.999 999.999

Qty Realisasi 999.999 999.999 999.999 999.999 999.999

Selisih Qty 999.999 999.999 999.999 999.999 999.999

Total Order Produksi Selesai : xxx

Gambar 4.80 Rancangan Laporan Order Produksi Selesai

Selisih Hari Penyelesaian xx hari xx hari xx hari xx hari xx hari

Hal : xx Status Penyelesaian x---10---x x---10---x x---10---x x---10---x x---10---x

230


Laporan Pemakaian Bahan Baku per Order Kode Order Kode FG Nama FG Ukuran

: xxxxxxxxxxx : xxxxxxxxxxxx : x------------------------35------------------------x : xx

Tanggal Cetak : dd/mm/yyyy Departemen Nama RM

Satuan Tanggal SPaB

xxxxxxxxxx

xxxxxxxxxx

x---35---x

xxxxx

x---35---x

xxxxx

x---35---x

xxxxx

x---35---x

xxxxx

Transaksi Pengambilan Qty Biaya Ambil Ambil

dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy

999,999 999,999 999,999 999,999

dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy

999,999 999,999 999,999 999,999

Keterangan

Hal : xx Transaksi Pengembalian Tanggal Qty Biaya Kembali SPkB Kembali

999.999.999,999 x----25----x dd/mm/yyyy 999.999.999,999 x----25----x dd/mm/yyyy 999.999.999,999 x----25----x dd/mm/yyyy 999.999.999,999 x----25----x dd/mm/yyyy Total/Departemen = 999.999.999,999 999.999.999,999 x----25----x dd/mm/yyyy 999.999.999,999 x----25----x dd/mm/yyyy 999.999.999,999 x----25----x dd/mm/yyyy 999.999.999,999 x----25----x dd/mm/yyyy Total/Departemen = 999.999.999,999

GrandTotal Pemakaian Bahan Baku Aktual = 999.999.999,999

Gambar 4.81 Rancangan Laporan Pemakaian Bahan Baku per Order

999,999 999,999 999,999 999,999

999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

999,999 999,999 999,999 999,999

999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

231


Laporan Pemakaian Tenaga Kerja Langsung per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Departemen

Hal : xx Gaji/Upah

xxxxxxxxxx

x x

xxxxxxxxxx

x x

Tanggal Daftar BTKL Aktual dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy Total/Departemen = 999.999.999,999 dd/mm/yyyy dd/mm/yyyy dd/mm/yyyy Total/Departemen = 999.999.999,999

Keterangan

Biaya

x----35----x x----35----x x----35----x

999.999.999,999 999.999.999,999 999.999.999,999

x----35----x x----35----x x----35----x

999.999.999,999 999.999.999,999 999.999.999,999

GrandTotal Biaya Tenaga Kerja Langsung = 999.999.999,999

Gambar 4.82 Rancangan Laporan Pemakaian Tenaga Kerja Langsung per Order

232 PT. BIGINUSINDO PERMAI Jalan Karang Bolong Raya No. 12 A Ancol Barat – Jakarta Utara Telp. (021) 6923179

Laporan Pemakaian Overhead Pabrikasi per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Departemen Nama Biaya Overhead xxxxxxxxxx x-----15-----x

xxxxxxxxxx

Tanggal Keterangan Daftar BOP Aktual dd/mm/yyyy x----35----x dd/mm/yyyy x----35----x x-----15-----x dd/mm/yyyy x----35----x dd/mm/yyyy x----35----x x-----15-----x dd/mm/yyyy x----35----x dd/mm/yyyy x----35----x Total/Departemen = 999.999.999,999 x-----15-----x dd/mm/yyyy x----35----x dd/mm/yyyy x----35----x x-----15-----x dd/mm/yyyy x----35----x dd/mm/yyyy x----35----x x-----15-----x dd/mm/yyyy x----35----x dd/mm/yyyy x----35----x Total/Departemen = 999.999.999,999

Hal : xx Biaya 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

GrandTotal Overhead Produksi = 999.999.999,999

Gambar 4.83 Rancangan Laporan Pemakaian Overhead Pabrikasi per Order

233


Laporan Varians Pemakaian Bahan Baku per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Departemen Nama RM xxxxxxxxxx

x---35---x x---35---x

xxxxxxxxxx

x---35---x x---35---x

Hal : xx Varians Qty Qty Qty Varians Anggaran Aktual Qty 9999,999 9999,999 9999,999 9999,999 9999,999 9999,999 Var Qty/Dept = 9999,999 9999,999 9999,999 9999,999 9999,999 9999,999 9999,999 Var Qty/Dept = 9999,999

Satuan xxxxx xxxxx xxxxx xxxxx

Varians Biaya Biaya RM Aktual Varians Biaya

Biaya RM Anggaran 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 Var Biaya/Dept = 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 Var Biaya/Dept = 999.999.999,999

Total Varians Qty : 9999,999 Total Varians Biaya : 999.999.999,999 (Favourable/Unfavourable)

Gambar 4.84 Rancangan Laporan Varians Pemakaian Bahan Baku per Order

Favourable / Unfavourable x x x x x x

234


Laporan Varians Tenaga Kerja Langsung per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Departemen Kode Biaya xxxxxxxxxx xxx xxx xxx xxxxxxxxxx

xxx xxx xxx

Nama_Biaya x-----15-----x x-----15-----x x-----15-----x Total/Departemen x-----15-----x x-----15-----x x-----15-----x Total/Departemen

GrandTotal Anggaran Overhead GrandTotal Aktual Overhead GrandTotal Varians

Biaya_Anggaran 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

Biaya_Aktual 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

Hal : xx Favourable /Unvavourable

Varians_Biaya 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

: 999.999.999,999 : 999.999.999,999 : 999.999.999,999 (Favourable/Unfavourable)

Gambar 4.85 Rancangan Laporan Varians Tenaga Kerja Langsung per Order

x x x x x x x x

235


Laporan Varians Overhead Pabrikasi per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Departemen Kode Biaya xxxxxxxxxx xxx xxx xxx xxxxxxxxxx

xxx xxx xxx

Nama_Biaya x-----15-----x x-----15-----x x-----15-----x Total/Departemen x-----15-----x x-----15-----x x-----15-----x Total/Departemen

Biaya_Anggaran 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

Biaya_Aktual 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

Hal : xx Favourable /Unvavourable

Varians_Biaya 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

GrandTotal Anggaran Overhead : 999.999.999,999 GrandTotal Aktual Overhead : 999.999.999,999 GrandTotal Varians : 999.999.999,999 (Favourable/Unfavourable)

Gambar 4.86 Rancangan Laporan Varians Overhead Pabrikasi per Order

x x x x x x x x

236


Laporan HPP Aktual per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Kode RM xxxxxxxxxxxx xxxxxxxxxxxx xxxxxxxxxxxx Total BBB

Nama RM

Bahan Baku (BBB) Qty Harga RM

x----35---x x----35---x x----35---x

9999,999 9999,999 9999,999

999.999,999 999.999,999 999.999,999

Biaya 999.999.999,999 999.999.999,999 999.999.999,999 9.999.999.999,999

Tenaga Kerja Langsung (BTKL) Gaji/Upah Biaya x x Total BTKL

999.999.999,999 999.999.999,999 9.999.999.999,999

GrandTotal : 9.999.999.999,999 Realisasi Qty Produksi : 999.999 pcs Biaya/Pcs : 99.999,999

Gambar 4.87 Rancangan Laporan HPP Aktual per Order

Hal : xx Overhead Pabrikasi (BOP) Jenis Biaya Overhead x----15----x 999.999.999,999 x----15----x 999.999.999,999 x----15----x 999.999.999,999 Total BOP 9.999.999.999,999

237


Laporan HPP Anggaran per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Kode RM xxxxxxxxxxxx xxxxxxxxxxxx xxxxxxxxxxxx Total BBB GrandTotal Qty Produksi Biaya/Pcs

Nama RM

Bahan Baku (BBB) Qty Harga RM

x----35---x x----35---x x----35---x

9999,999 9999,999 9999,999

999.999,999 999.999,999 999.999,999

Biaya 999.999.999,999 999.999.999,999 999.999.999,999 9.999.999.999,999

Tenaga Kerja Langsung (BTKL) Gaji/Upah Biaya x x Total BTKL

999.999.999,999 999.999.999,999 9.999.999.999,999

: 9.999.999.999,999 : 999.999 pcs : 99.999,999

Gambar 4.88 Rancangan Laporan HPP Anggaran per Order

Hal : xx Overhead Pabrikasi (BOP) Jenis Biaya Overhead x----15---x 999.999.999,999 x----15---x 999.999.999,999 x----15---x 999.999.999,999 Total BOP 9.999.999.999,999

238 PT. BIGINUSINDO PERMAI Jalan Karang Bolong Raya No. 12 A Ancol Barat – Jakarta Utara Telp. (021) 6923179

Laporan Varians HPP per Order Kode Order Kode FG Nama FG Ukuran


Tanggal Cetak : dd/mm/yyyy Jenis Biaya HPP Anggaran BBB BTKL BOP TOTAL

999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

HPP Aktual

Varians HPP

999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

999.999.999,999 999.999.999,999 999.999.999,999 999.999.999,999

Hal : xx Favourable/ Unfavourable x x x x

……………………….

Gambar 4.89 Rancangan Laporan Varians HPP per Order

BAB 4 RANCANGAN SISTEM YANG DIUSULKAN. 4.1 Perhitungan Harga Pokok Produksi Menggunakan Job Order Costing

Recommend Documents