WAWANCARA. beserta tanggapan dari beliau sebagai berikut : paling kritis apa?

L 1

WAWANCARA Kami melakukan wawancara ini dengan bapak hendra, selaku country manager pada PT Prodian Chemicals Indonesia. Berikut ini adalah beberapa pertanyaan wawancara yang kami anggap penting, beserta tanggapan dari beliau sebagai berikut :

Q

:

Masalah yang dihadapi dalam perusahaan apa saja misal : produksi berlebih, proses rekapitulasi salah dan masalah yang paling kritis apa?

A

:

Harga bahan baku lokal dan import selalu naik harga kadang kadang tanpa pemberitahuan sehingga mempengaruhi hitungan cost of production dan juga mempengaruhi harga jual yang mana pada saat ini sulit sekali untuk menaikan harga jual. Produksi berlebih? terkadang biasanya pada bulan april - july selalau ramai sekali untuk business textile tapi untuk tahun ini berkurang karena bersamaan dengan pemilu 2009 dan global crisis financial. Proses

rekapitulasi

salah?

sudah

ada

server,

jadi

kemungkinan keliru pasti ada tapi kecil, faktor utamanya jika yang input datanya salah, pasti mempengaruhi yang lain. contoh yang tercantum di komputer dan faktanya beda. untuk memperkecil kesalahan maka diadakan stock opname setiap 3 bulan sekali.

L 2

Masalah yang paling kritis apa? faktor pembayaran dari customer, karena di situasi textil yang agak sulit sekarang ini, ada juga customer yg memperpanjang payment nya dengan alasan belum ada uang, atau ada customer yang mendadak bangkrut. makanya saya selaku Pimpinan juga sering sekali terjun langsung ke customers untuk mengetahui secara pasti situasi market, customer. Q

:

Bagaimana Alur / prosedur perusahaan dari pertama kali barang mentah datang, diproduksi, masuk persediaan, dijual ?

A

:

Base Bahan baku import (specific chemicals) dari Protex Perancis ---> ke Prodian Bandung---> di proses produksi + bahan baku lokal (general chemicals)---> setelah produksi selesai---> check quality apakah sesuai dg standard quality dari Protex Perancis, apabila QC pass---> lgs masuk inventory & di data---> untuk yg routine product setelah produksi ada yg langsung di jual ke customers yg sudah biasa beli. Selama ini tdk ada return goods dari customers.

Q

:

Bagaimana proses dan sistem produksinya ?

A

:

Proses produksi dg sistem reaksi pemanasan sampai 170 derajat celcius (mesin reactor) yg memakai steam uap panas yg didpt dr steam boiler, minimal untuk sekali proses produksi memerlukan waktu 6 -12 jam, setelah selesai produksi---> didinginkan---> check QC--->proses drumming

Q

:

Bagaimana proses dan sistem persediaan ?

L 3

A

:

Sistem LIFO (last in first out) dengan tujuan menjaga stabilias & continuitas quality.

Q

:

Bagaimana alur pemesanan bahan baku ke pusat ?

A

:

Production manager melakukan perhitungan kebutuhan bahan baku setiap minggu ke 3 apabila sesuai dengan kebutuhan finish good yang routine dibeli customers, kalau ada yang kurang stock bahan bakunya maka production manager melakukan perhitungan dan mengajukan purchase request ke Country manager. Country manager cek ulang apabila betul maka langsung di pesan oleh bagian purhasing dan harus ada tanda tangan Country manager, apabila tidak ada tanda tanggan Country manager purchase request tidak sah dan tidak akan dibayar.

Q

:

Tugas Lab Manager ?

A

:

- melakukan QC finish product dan dibantu staf lab - melakukan R&D sesuai dengan instruksi dr Country manager - melakukan cek quality untuk semua bahan baku yang masuk ke gudang secara sampling, apabila ditemukan ada yang tidak sesuai standard maka segera lapor ke Country manager untuk dilakukan tindakan lebih lanjut. seperti barang ditukar atau tidak dibayar sama sekali. Karena setiap bahan baku yang masuk/ dibeli sudah ada spesifikasinya dan harus sesuai dengan standard.

L 4

- melakukan pengetesan/ comparison chemical test sesuai request dari sales yang mana sample tersebut didapat dari customer. - membuat laporan mingguan setiap jumat dan montly report setiap akhir bulan ke Country manager tentang apa saja yg dilakukan untuk pekerjaan di lab. Q

:

Tugas Production manager ?

A

:

-membuat production planning -membuat

laporan

mingguan

setiap

hari

jumat

dan

bulanan setiap akhir bulan tentang hasil produksi dan pengiriman brg ke customer. -segera melapor ke Country manager untuk segera di cari solusinya apabila terjadi penyimpangan hasil produksi/ hasil produk tidak sesuai standard, tapi ini jarang sekali terjadi. -mengontrol semua kegiatan produksi sampai ke proses limbah akhir. -melakukan dan megadakan permintaan bahan baku ke Country manager seperti yang tercantum pada alur pemesanan barang. Q

:

Tugas Finance manager ?

A

:

-kontrol semua pembayaran (gaji karyawan, payment to

L 5

supplier) , membuat laporan keuangan mingguan setiap hari jumat dan laporan keuangan setial akhir bulan dan dilaporkan ke Country manager. -bertanggung jawab masalah pajak perusahaan. -semua pengeluaran biaya harus ada approval dari Country manager. Q

:

Tugas Marketing ?

A

:

Melakukan promosi dan penjualan product-product yang telah mendapat persetujuan dari Country manager termasuk harga yang ditawarkan ke customers.

Q

:

Tugas Petty cash ?

A

:

Kontrol semua pengeluaran se hari hari yang jumlahnya tidak melebihi

budget yg

manger.Melakukan

telah

ditentukan Country

invoicing untuk tagihan ke

customer dan juga menelpon customer untuk menagih pembayaran customer yg telah jatuh tempo.Melakukan pembukuan atas keluar masuk uang.Membuat laporan petty cash setiap akhir bulan dan dilaporkan ke Country manager. Q

:

Tugas collector ?

A

:

Melakukan contra bon ke customer dan nagih pembayaran ke

L 6

customer apabila ada customer yg mau bayar dg cash tetapi hanya dalam jumlah kecil, max USD. 10,000. Q

:

Prosedur QC ?

A

:

Sesuai dengan standard transfer tecnology dari head quarter Protex International, Perancis. Ada syarat2 & prosedur pengetesannya dan mutlak harus dilakukan setelah selesai produksi.Kalau tidak pass QC, selami ini finish good tersebut masih bisa diperbaiki, jadi hanya rugi di production cost saja.Tetapi tingkat tidak pass QC itu kecil kemungkinan terjadinya karena semua sistem computerize produksi sudah in line dengan sistem standard technology Protex, Perancis.

L 7

KUESIONER Adalah suatu kehormatan bagi kami, apabila Bapak / Ibu bersedia memberikan penilaian atas aplikasi yang telah di coba. Terima kasih untuk kesediaannya meluangkan waktu mengisi lembar evaluasi ini.

Silahkan Bapak / Ibu melingkari salah satu angka menurut penilaian pribadi, atas aplikasi yang kami buat :

No.

5

Baik Sekali

4

Baik

3

Cukup

2

Buruk

1

Buruk Sekali

Aktivitas / Fasilitas

Penilaian

1

Apakah Aplikasi sudah dapat membantu proses persedian produk dan penjualan ?

1 2 3 4

5

2

Apakah dengan aplikasi ini, dapat mengetahui produk yang tersedia dengan cepat dan akurat ?

1 2 3 4

5

3

Apakah terdapat Kesulitan dalam menggunakan aplikasi ini ?

1 2 3 4

5

L 8

4

Apakah Tampilan DataGrid sudah dapat menampilkan data dengan baik ?

1 2 3 4

5

5

Apakah search sudah dapat mencari data dengan cepat dan tepat ?

1 2 3 4

5

6

Apakah Laporan yang dihasilkan mudah di mengerti ?

1 2 3 4

5

7

Apakah grafik yang ada pada laporan penjualan bulanan dapat di mengerti ?

1 2 3 4

5

8

Apakah memungkinkan aplikasi ini direalisasikan kedalam perusahaan ?

1 2 3 4

5

L 9

List Program

Module

Imports System.Data Imports System.Data.SqlClient

Module Module1 Public

con

As

New

SqlConnection("Data

Source=BLILTZZ-

PC\SQLEXPRESS;Initial Catalog=PTProdian;Integrated Security=True")

Public mdi As MDIMenu Public mk As MasterKaryawan Public ins As InsertKaryawan Public mode As String Public mp As MasterProduk Public insertpor As InsertProduk Public insertcust As InsertCustomer Public mc As MasterCust Public insertken As InsertKendaran Public mkd As MasterKendaraan

End Module

L 10

Master Customer Imports System.Data Imports System.Data.SqlClient

Public Class MasterCust

Public Sub refreshdata() Me.ms_customerTableAdapter.Fill(Me.DataSet1.ms_customer) End Sub

Public Sub generateid() Dim com As New SqlCommand Dim key As String Dim newID As String

insertcust = New InsertCustomer mode = "insert"

key = "C" com.Connection = con con.Open()

com.CommandText

=

"select

kd_customer

kd_customer like '" & key & "%' order by 1 desc"

from

ms_customer

where

L 11

Dim dr As SqlDataReader = com.ExecuteReader If Not dr.Read Then newID = "C0001" Else newID = "C" & (Convert.ToInt32(dr(0).ToString.Substring(1, 4)) + 1).ToString.PadLeft(4, "0") End If

insertcust.txtkdcust.Text = newID insertcust.ShowDialog() con.Close() refreshdata() End Sub

Private Sub MasterCust_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed mc = Nothing End Sub

Private Sub MasterCust_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DataSet1.ms_customer' table. You can move, or remove it, as needed. Me.Ms_customerTableAdapter.Fill(Me.DataSet1.ms_customer) CmbSearch.SelectedIndex = 0

L 12

refreshdata() End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click Me.Close() End Sub

Private Sub btninsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninsert.Click generateid() refreshdata() End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click insertcust = New InsertCustomer mode = "update"

If GridData.RowCount = 0 Then MsgBox("Data

Customer

belum

ada!",

MsgBoxStyle.Information,

"Information") Else Dim kd As String = GridData.CurrentRow.Cells(0).Value Dim jenis As String = GridData.CurrentRow.Cells(1).Value

L 13

Dim nama As String = GridData.CurrentRow.Cells(2).Value Dim alamat As String = GridData.CurrentRow.Cells(3).Value Dim telp As String = GridData.CurrentRow.Cells(4).Value Dim email As String = GridData.CurrentRow.Cells(5).Value Dim fax As String = GridData.CurrentRow.Cells(6).Value

insertcust.txtkdcust.Text = kd insertcust.cmbcust.Text = jenis insertcust.cmbcust.Enabled = False insertcust.txtcust.Text = nama insertcust.txtalamat.Text = alamat insertcust.txttelp.Text = telp insertcust.txtemail.Text = email insertcust.txtfax.Text = fax insertcust.tglorder.Enabled = False

insertcust.ShowDialog() End If refreshdata() End Sub

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click Try

L 14

MscustomerBindingSource.Filter = CmbSearch.SelectedItem & " like '%" & TxtSearch.Text & "%'" Catch ex As Exception

End Try End Sub

Private Sub TxtSearch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtSearch.KeyPress If e.KeyChar = Chr(Keys.Enter) Then Search.PerformClick() End If End Sub

Private Sub txtdelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdelete.Click If GridData.RowCount = 0 Then MsgBox("Data

Customer

belum

ada!",


"Information") Else Dim kd As String = GridData.CurrentRow.Cells(0).Value If MessageBox.Show("Yakin ingin menghapus '" & kd & "' ?", "Delete", MessageBoxButtons.YesNo,

MessageBoxIcon.Warning,

MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then Dim com As New SqlCommand

L 15

com.Connection = con Try con.Open() com.CommandText = "delete from ms_customer where kd_customer = '" & kd & "'" com.ExecuteNonQuery()

Catch ex As Exception

Finally con.Close() End Try refreshdata() End If End If End Sub

End Class

L 16

Master Produk Imports System.Data Imports System.Data.SqlClient

Public Class MasterProduk

Private Sub MasterProduk_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed mp = Nothing End Sub

Private Sub MasterProduk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DataSet1.Ms_produk' table. You can move, or remove it, as needed. Me.Ms_produkTableAdapter.Fill(Me.DataSet1.Ms_produk) 'TODO: This line of code loads data into the 'DataSet1.Ms_produk' table. You can move, or remove it, as needed. Me.Ms_produkTableAdapter.Fill(Me.DataSet1.Ms_produk) cmbsearch.SelectedIndex = 0 refreshdata() End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click

L 17

Me.Close() End Sub


insertpor = New InsertProduk mode = "insert"

key = "P" com.Connection = con con.Open()

com.CommandText = "select kd_produk from ms_produk where kd_produk like '" & key & "%' order by 1 desc" Dim dr As SqlDataReader = com.ExecuteReader If Not dr.Read Then newID = "P001" Else newID = "P" & (Convert.ToInt32(dr(0).ToString.Substring(1, 3)) + 1).ToString.PadLeft(3, "0") End If

L 18

insertpor.txtproduk.Text = newID insertpor.ShowDialog() con.Close() refreshdata() End Sub

Public Sub refreshdata() Me.Ms_produkTableAdapter.Fill(Me.DataSet1.Ms_produk) End Sub


Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click If GridData.RowCount = 0 Then MsgBox("Data

Produk

belum

ada!",


"Information") Else Dim kd As String = GridData.CurrentRow.Cells(0).Value

L 19

If MessageBox.Show("Yakin ingin menghapus '" & kd & "' ?", "Delete", MessageBoxButtons.YesNo,


MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then Dim com As New SqlCommand com.Connection = con Try con.Open() com.CommandText = "delete from ms_produk where kd_produk = '" & kd & "'" com.ExecuteNonQuery()


Finally con.Close() End Try refreshdata() End If End If End Sub

Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click insertpor = New InsertProduk mode = "update"

L 20


Produk

belum

ada!",


"Information") Else Dim kd As String = GridData.CurrentRow.Cells(0).Value Dim jenis As String = GridData.CurrentRow.Cells(1).Value Dim nama As String = GridData.CurrentRow.Cells(2).Value Dim harga As String = GridData.CurrentRow.Cells(3).Value Dim qty As String = GridData.CurrentRow.Cells(4).Value

insertpor.txtproduk.Text = kd insertpor.cmbjnspro.Text = jenis insertpor.cmbjnspro.Enabled = False insertpor.txtnamapro.Text = nama insertpor.txtnamapro.Enabled = False insertpor.txtharga.Text = harga insertpor.txtqty.Text = qty insertpor.tgl_masuk.Enabled = False

insertpor.ShowDialog() End If refreshdata() End Sub End Clas

L 21

Master Kendaraan Imports System.Data Imports System.Data.SqlClient

Public Class MasterKendaraan

Public Sub refreshdata() Me.Ms_kendaraanTableAdapter.Fill(Me.DataSet1.ms_kendaraan) End Sub

Private Sub MasterKendaraan_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed mkd = Nothing End Sub

Private Sub MasterKendaraan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DataSet1.ms_kendaraan' table. You can move, or remove it, as needed. Me.Ms_kendaraanTableAdapter.Fill(Me.DataSet1.ms_kendaraan) Me.Ms_kendaraanTableAdapter.Fill(Me.DataSet1.ms_kendaraan) cmbsearch.SelectedIndex = 0 refreshdata() End Sub

L 22


InsertKendaran = New InsertKendaran mode = "insert"

key = "K" com.Connection = con con.Open()

com.CommandText = "select kd_kendaraan from ms_kendaraan where kd_kendaraan like '" & key & "%' order by 1 desc" Dim dr As SqlDataReader = com.ExecuteReader If Not dr.Read Then newID = "K001" Else newID = "K" & (Convert.ToInt32(dr(0).ToString.Substring(1, 3)) + 1).ToString.PadLeft(3, "0") End If

InsertKendaran.txtkendaraan.Text = newID InsertKendaran.ShowDialog() con.Close()

L 23

refreshdata() End Sub

Private Sub btnclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnclose.Click Me.Close() End Sub


Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click If GridData.RowCount = 0 Then MsgBox("Data

Kendaraan

belum

ada!",




MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then Dim com As New SqlCommand

L 24

com.Connection = con Try con.Open() com.CommandText = "delete from ms_kendaraan where kd_kendaraan = '" & kd & "'" com.ExecuteNonQuery()


Finally con.Close() End Try refreshdata() End If End If End Sub End Class

L 25

Master Karyawan Imports System.Data Imports System.Data.SqlClient

Public Class MasterKaryawan

Public Sub tab() GridData.Columns(8).Width = 150 End Sub

Public Sub refreshdata() Me.Ms_karyawanTableAdapter.Fill(Me.DataSet1.Ms_karyawan) End Sub

Private Sub MasterKaryawan_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed mk = Nothing End Sub

Private Sub MasterKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'TODO: This line of code loads data into the 'DataSet1.Ms_karyawan' table. You can move, or remove it, as needed. Me.Ms_karyawanTableAdapter.Fill(Me.DataSet1.Ms_karyawan) CmbSearch.SelectedIndex = 1

L 26

tab() refreshdata() End Sub

Private Sub insert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles insert.Click ins = New InsertKaryawan mode = "insert" ins.ShowDialog() refreshdata() End Sub

Private Sub cmdclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclose.Click Me.Close() End Sub

Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click ins = New InsertKaryawan mode = "update"

If GridData.RowCount = 0 Then MsgBox("Data "Information")

Karyawan

belum

ada!",


L 27

Else Dim kd As String = GridData.CurrentRow.Cells(0).Value Dim jbtan As String = GridData.CurrentRow.Cells(1).Value Dim nama As String = GridData.CurrentRow.Cells(2).Value Dim alamat As String = GridData.CurrentRow.Cells(3).Value Dim status As String = GridData.CurrentRow.Cells(4).Value Dim telepon As String = GridData.CurrentRow.Cells(5).Value Dim email As String = GridData.CurrentRow.Cells(6).Value Dim password As String = GridData.CurrentRow.Cells(7).Value

ins.cmbjabatan.Text = jbtan ins.cmbstatus.Text = status ins.txtKdKar.Text = kd ins.txtnama.Text = nama ins.txtalamat.Text = alamat ins.txttelepon.Text = telepon ins.txtemail.Text = email ins.txtpass.Text = password ins.TglMasuk.Enabled = False

ins.ShowDialog() End If Me.Ms_karyawanTableAdapter.Fill(Me.DataSet1.Ms_karyawan) End Sub

L 28

Private Sub btndelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndelete.Click


Karyawan

belum

ada!",




MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then Dim com As New SqlCommand com.Connection = con Try con.Open() com.CommandText = "delete from ms_karyawan where kd_karyawan = '" & kd & "'" com.ExecuteNonQuery()


Finally con.Close() End Try refreshdata()

L 29

End If End If End Sub

Private Sub Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.Click Try MskaryawanBindingSource.Filter = CmbSearch.SelectedItem & " like '%" & TxtSearch.Text & "%'" Catch ex As Exception

End Try End Sub

Private Sub TxtSearch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtSearch.KeyPress If e.KeyChar = Chr(Keys.Enter) Then Search.PerformClick()

End If End Sub End Class

WAWANCARA. beserta tanggapan dari beliau sebagai berikut : paling kritis apa?

Recommend Documents