LAMPIRAN 1 URAIAN TUGAS DAN TANGGUNG JAWAB

LAMPIRAN 1 URAIAN TUGAS DAN TANGGUNG JAWAB

Uraian tugas dari masing-masing jabatan pada PD Aneka Industri dan Jasa Sumatera Utara adalah sebagai berikut : 1. Direktur Direktur PD. Aneka Industri dan Jasa merupakan pimpinan tertinggi dalam perusahaan yang secara langsung bertanggungjawab kepada Gubernur Kepala Daerah Tingkat I, dalam menjalankan tugasnya sebagai pengelola perusahaan. Direktur diangkat dan diberhentikan oleh Gubernur setelah mendapat persetujuan dari Menteri Dalam Negeri. Tugas dan tanggung jawab dari Direktur ialah : a. Mengawasi, mengamankan dan mengelola seluruh aset perusahaan daerah berdasarkan Peraturan Daerah. b. Mengelola kegiatan intern, mengawasi dan mengkoordinasikan kegiatan Perusahaan Daerah sebagaimana tercantum dalam susunan organisasi untuk mencapai tujuan Perusahaan Daerah. c. Menyusun/mempersiapkan RAPB/RAK Perusahaan Daerah selambatlambatnya 3 (tiga) bulan sebelum Tahun Anggaran berjalan berakhir. d. Memberikan laporan tahunan kepada Gubernur Kepala Daerah Tingkat I melalui Badan Pengawas terdiri dari Neraca, Perhitungan Rugi/Laba maupun laporan berkala atau insidentil atau tentang kegiatan Perusahaan Daerah.

Universitas Sumatera Utara

e. Menetapkan ketentuan dan prosedur untuk peningkatan efisiensi dan terciptanya internal kontrol meliputi kegiatan sebagai berikut : − Pembelian dan penyimpanan dan penggunaan barang dan bahan. − Penerimaan, penyimpanan dan pengeluaran uang. − Penawaran, persetujuan, pelaksanaan dan pengawasan pekerjaan oleh pihak ketiga. − Sistem pemasaran produksi dan jasa. f. Merumuskan strategi Perusahaan Daerah dan menjalankan kebijaksanaan yang ditetapkan oleh Gubernur Kepala Daerah Tingkat I dalam pelaksanaan operasi Perusahaan Daerah sesuai dengan peraturan/ketentuan yang berlaku. g. Melaksanakan pembinaan pegawai seperti penempatan, pemindahan, pemberhentian, penegakan disiplin, penentuan pesangon/jasa/ganti rugi dan sebagainya sesuai dengan peraturan/ketentuan yang berlaku serta memberikan penilaian terakhir terhadap pegawai perusahaan dan efisiensi kerja mereka. h. Mewakili Perusahaan Daerah di dalam dan di luar Pengadilan dapat menyerahkan kuasa mewakili tersebut kepada anggota Direksi atau kepada seseorang/beberapa orang pegawai Perusahaan Daerah yang khusus ditunjuk ataupun kepada orang/badan lain di luar Perusahaan Daerah.


2. Satuan Pengawas Intern Satuan Pengawas Intern (SPI) dipimpin oleh Kepala SPI yang melaksanakan tugasnya berada di bawah dan bertanggungjawab kepada Direksi, bertugas untuk : a. Mengkoordinasikan seluruh tugas dan kegiatan di Satuan Pengawas Intern. b. Melakukan pengawasan akuntansi dan pengawasan administrasi atas seluruh kegiatan dan kekayaan perusahaan. c. Melakukan penilaian atas system pelaksanaan dan prosedur administrasi dan akuntansi Perusahaan Daerah dan bila perlu mengusulkan perbaikanperbaikan kepada Direksi. d. Mengadakan penilaian atas pelaksanaan proses produksi dan proses jasa. e. Mengadakan

pengawasan

atas

Anggaran

Pendapatan

dan

Biaya

Perusahaan Daerah. f. Melaporkan secara periodik/insidentil seluruh kegiatan yang telah dilakukan Direksi. g. Memberikan saran, pertimbangan dan pendapat baik diminta maupun tidak Kepada Direksi tentang langkah-langkah atau tindakan-tindakan yang perlu diambil dalam bidang dan tugasnya. h. Melakukan tugas lain yang diberikan oleh Direksi. 3. Bagian Umum Bagian Umum dipimpin seorang Kepala bagian umum yang dalam melaksanakan tugasnya berada dibawah dan bertanggungjawab kepada Direksi, bertugas untuk :


a. Mengkoordinasikan seluruh tugas dan kegiatan di bagian umum. b. Mengawasi dan merencanakan perawatan atas aktiva tetap Perusahaan Daerah dan melakukan inventarisasi terhadap inventaris Perusahaan Daerah sesuai dengan ketentuan yang berlaku. c. Bersama dengan Kepala Bagian Administrasi Keuangan menyusun RAPB dan RAK Perusahaan Daerah. d. Mengkoordinasikan penyusunan laporan pengelolaan Perusahaan Daerah baik secara berkala maupun insidentil secara lengkap sebagai laporan Direksi kepada Gubernur Kepala Daerah Tingkat I atau instansi-instansi lainnya sesuai dengan ketentuan yang berlaku. e. Melaporkan seluruh kegiatan yang telah dilakukan secara periodik atau insidentil kepada Direksi. f. Memberikan saran, pertimbangan dan pendapat baik diminta maupun tidak kepada Direksi tentang langkah-langkah atau tindakan yang perlu diambil di bidang tugasnya. g.

Melaksanakan tugas lain yang diberikan oleh Direksi.

Dalam menjalankan tugasnya kepala bagian bagian umum dibantu oleh dua sub bagian, yaitu : sub bagian Tata Usaha dan sub bagian Kepegawaian, yang masing-masingnya mempunyai tugas yang berbeda-beda, antara lain : a. Sub Bagian Tata Usaha Tugas dan tanggung jawab daripada Sub Bagian Tata Usaha adalah :


− Menyelenggarakan administrasi surat menyurat dinas Perusahaan Daerah. − Mengagendakan dan mengarsipkan surat-surat masuk dan keluar secara baik teratur dan aman. − Mendistribusikan surat masuk dan keluar sesuai dengan tujuan. − Mengecek kembali pengembalian surat-surat yang didistribusikan ke semua bagian memperoleh penyelesaian jawaban surat sesuai dengan waktu yang dibutuhkan. − Melaksanakan atau mengkoordinasi pengaturan pengetikan surat. − Melaksanakan pengadaan atau pembelian ATK peralatan kantor dan lain yang bukan bahan baku atau bahan penolong untuk proses produksi. − Menyimpan dan memelihara dokumen-dokumen berkenaan dengan tugas ketatausahaan. − Melaksanakan tugas lainnya yang diberikan oleh Kepala Bagian Umum. b. Sub Bagian Kepegawaian Tugas dan tanggung jawab dari sub Kepegawaian ialah : − Menyelesaikan segala tugas-tugas berkenaan dengan kepegawaian seperti administrasi kepegawaian, dan pembinaan pegawai dan lainlain. − Menyelenggarakan administrasi dan kesejahteraan pegawai.


− Mempersiapkan dana pesangon, asuransi para pegawai termasuk kegiatan olah raga dan lain-lain. − Menyelesaikan administrasi dan pembayaran gaji, upah natura dan lainlain tepat pada waktunya. − Menyetorkan pajak penghasilan (PPh). Astek dan lain-lain yang dipotong dari gaji staf dan pegawai. − Melakukan pengadaan/pembelian bahan-bahan keperluan karyawan (baju dinas, sepatu dan lain-lain) dan pemeliharaan gedung dan lain-lain yang bukan untuk kebutuhan proses produksi. − Mengurus perbekalan, peralatan dan kegiatan lain Kantor Direksi. − Melaksanakan tugas lain yang diberikan oleh Kepala Bagian Umum. 4. Bagian Administrasi Keuangan Bagian Administrasi Keuangan dipimpin oleh seorang Kepala Administrasi Keuangan yang dalam melaksanakan tugasnya berada di bawah dan bertanggung jawab kepada Direksi, berfungsi untuk : a. Mengkoordinasikan

seluruh

tugas-tugas

dan

kegiatan

di

Bagian

Administrasi Keuangan. b. Mengendalikan pelaksanaan pencatatan eakuntansi yang meliputi seluruh kegiatan perusahaan Daerah secara up to date, mengendalikan sumbersumber pendapatan, pembelanjaan dan kekayaan Perusahaan Daerah. c. Merencanakan serta menginventarisasikan data keuangan khususnya menyangkut pendapatan dan pengeluaran Perusahaan Daerah dalam


bentuk cash flow (cash budget) bulanan, serat membuat evaluasi di dalam kegiatan Perusahaan Daerah di bidang keuangan. d. Bertanggungjawab atas penyusunan laporan keuangan dan laporan pendukung lainnya untuk periode bulanan, triwulan dan tahunan. e. Mengkoordinasikan, menyusun RAPB/RAK setiap tahunnya selambatlambatnya 3 (tiga) bulan sebelum tahun buku berjalan berakhir. f. Memberikan saran, pertimbangan dan pendapat baik diminta maupun tidak kepada Direksi tentang langkah-langkah atau tindakan-tindakan yang perlu diambil dibidang tugasnya. g. Melaksanakan tugas lain yang diberikan oleh Direksi

Kepala Bagian Administrasi Keuangan menjalankan tugasnya dibantu oleh tiga sub bagian, yaitu : sub bagian Keuangan, sub bagian Akuntansi dan sub bagian Verifikasi, yang masing-masingnya mempunyai tugas yang berbedabeda, yaitu antara lain: a. Sub Bagian Keuangan Tugas dan tanggung jawab sub bagian Keuangan, antara lain : 1. Menerima

dan

menyimpan

uang,

surat-surat

berharga

serta

mengadministrasikannya. 2. Menyelenggarakan administrasi atas penggunaan dan penggantian dana kas kecil. 3. Melakukan penagihan penjualan produksi dan jasa tepat pada waktunya dan menyetorkannya kepada Kepala Bagian Administrasi Keuangan.


4. Melaksanakan tugas lain yang diberikan oleh Kepala Bagian Administrasi Keuangan. b. Sub Bagian Akuntansi Tugas dan tanggung jawab Sub Bagian Akuntansi, antara lain : − Menyelenggarakan pembukuan akuntansi yang meliputi buku harian, buku besar dan buku tambahan. − Mengadministrasikan seluruh bukti yang digunakan untuk pencatatan transaksi ke buku harian. − Membuat/menyusun laporan biaya dan persediaan bahan/barang dari unit industri Perusahaan Daerah. − Mengadministrasikan seluruh bukti yang telah digunakan untuk pencatatan transaksi di dalam buku harian ataupun buku tambahan. − Mengkordinir perhitungan harga pokok produksi/jasa dari hasil produksi/jasa setiap Unit/Sub Unit di dalam lingkungan Perusahaan Daerah. − Mengumpulkan bahan penyusunan RAPB atau RAK dari kantor Direksi dan Unit/Sub Unit di lingkungan Perusahaan Daerah. − Membuat atau menyusun laporan keuangan Perusahaan Daerah dalam bentuk neraca untuk periode bulanan, triwulan dan tahunan. − Melaksanakan tugas lain yang diberikan oleh Kepala Bagian Administrasi Keuangan.


c. Sub Bagian Verifikasi Tugas dan tanggung jawab dari Sub Bagian Verifikasi yaitu : − Mengadakan pemeriksaan dan penelitian semua bukti penerimaan dan pengeluaran atas semua transaksi yang dilaksanakan oleh Perusahaan Daerah. − Menyusun RAPB atau RAK Perusahaan Daerah. − Menyelenggarakan Administrasi slip penerimaan dan pengeluaran kas kantor Direksi. − Menganalisa laporan keuangan dan biaya (cost price) memberikan pendapat dan saran mengenai laporan tersebut. − Melaksanakan tugas lain yang diberikan oleh Kepala Bagian Administrasi Keuangan 5. Bagian Produksi Bagian Produksi dipimpin oleh seorang Kepala Bagian Produksi yang bertanggungjawab kepada Direksi, bertugas untuk : a. Mengkoordinasikan seluruh tugas dan kegiatan di Bagian Produksi. b. Melakukan perencanaan produksi terhadap pesanan yang datang dari konsumen. c. Merencanakan pembelian atau pengadaan bahan baku/pembantu yang akan digunakan dalam produksi dan lain-lain kebutuhan untuk proses produksi perusahaan dengan harga, kualitas dan kwantitas yang efisien dengan

berpedoman

RAPB/RAK

perusahaan

daerah

dan

persyaratan/ketentuan yang berlaku.


d. Melakukan perhitungan harga jual dan harga pokok produksi, bekerjasama dengan bagian Administrasi Keuangan e. Mengadakan

penelitian

dan

perencanaan

untuk

membina

dan

mengembangkan Perusahaan Daerah. f. Bersama-sama dengan Kepala Bagian Administrasi dan keuangan menyusun RAPB atau RAK Perusahaan Daerah selambat-lambatnya 3 (tiga) bulan sebelum tahun buku berakhir. g. Menyusun dan membuat laporan periodik/insidentil kepada Direksi. h. Memberikan saran, pertimbangan dan pendapat baik diminta atau tidak kepada Direksi tentang langkah-langkah atau tindakan yang perlu diambil dalam bidang dan tugasnya. i. Melaksanakan tugas lain yang diberikan oleh direksi.

Bagian-bagian dari bagian produksi terdiri dari dua sub unit yaitu antara lain : a. Sub Bagian Teknik dan Produksi Sub Bagian Teknik dan Produksi dipimpin oleh seorang Kepala Bagian Sub Teknik dan Produksi yang dalam melaksanakan tugasnya berada di bawah dan bertanggungjawab kepada Kepala Bagian Produksi, bertugas untuk : − Merencanakan dan melaksanakan perawatan serta pemeliharaan dan bongkar pasang mesin/peralatan produksi sesuai dengan jadwal dan


mempersiapkan suku cadang yang mungkin dibutuhkan secara berdaya guna. − Mengadministrasikan data-data seluruh peralatan produksi/mesin-mesin dan peralatan pendukung produksi lainnya sehingga diketahui keadaan persentasi fisik dan ekonominya. − Menganalisa pemakaian bahan baku atau bahan pembantu untuk mencapai hasil berdaya guna. − Bekerja sama dengan bagian Administrasi Keuangan membuat perhitungan harga pokok produksi dari setiap Unit/Sub Unit Industri. − Melaksanakan tugas-tugas lainnya yang diberikan oleh Kepala Bagian Produksi. b. Sub Bagian Pembelian Sub bagian Pembelian dipimpin oleh seorang Kepala Sub Bagian Pembelian yang dalam melaksanakan tugasnya berada di bawah dan bertanggungjawab kepada Kepala Bagian Produksi, bertugas untuk : − Melakukan monitoring terhadap perkembangan harga pasar dari barang/bahan, suku cadang dan lain-lain kebutuhan Perusahaan dearah dan tercatat rapi sehingga setiap saat dapat diketahui perkembangan harga kebutuhan tersebut untuk bahan evaluasi serta analisa. − Melaksanakan pembelian/pengadaan barang/bahan/suku cadang dan lain-lain

untuk

kebutuhan

proses

produksi/jasa

dengan

harga

kwalitas/jenis/kuantitas yang berdaya guna serta prosedurnya harus berpedoman kepada persyaratan/ketentuan yang berlaku.


− Melaksanakan

administrasi/pembukuan

pembelian

barang-

barang/bahan, suku cadang/peralatan produksi. − Mengumpulkan data-data sebagai bahan penyusunan RAPB/RAK Perusahaan Daerah. − Melaksanakan tugas lain yang diberikan oleh Kepala Bagian Produksi. 6.

Bagian Pemasaran Bagian Pemasaran dipimpin oleh seorang Kepala Bagian Pemasaran dalam melaksanakan tugasnya berada di bawah dan bertanggungjawab kepada Direksi, bertugas untuk : a. Mengkoordinasikan seluruh tugas dan kegiatan di Bagian Pemasaran. b. Membuat surat Perintah Kerja kepada Unit Percetakan atas nama pesanan cetakan yang diterima dan mengadministrasikannya secara teratur. c. Merencanakan pengembangan dan memperluas jaringan pemasaran berpedoman kepada batas kemampuan produksi. d. Melaporkan

seluruh

kegiatan

yang

telah

dilakukan

secara

periodik/insidentil kepada Direktur. e. Membantu Kepala Bagian Administrasi Keuangan menyusun RAPB/RAK Perusahaan Daerah. f. Memberikan saran-saran, pertimbangan dan pendapat baik diminta maupun tidak kepada Direksi tentang langkah-langkah atau tindakan yang perlu diambil di bidang tugasnya. g. Melaksanakan tugas lain yang diberikan oleh Direksi


Dalam menjalankan tugasnya Kepala Bagian Pemasaran dibantu oleh dua sub unit, yang masing-masing mempunyai tugas yang berbeda-beda, antara lain : a. Sub Bagian Pemasaran Cetakan dan Alat Tulis Kantor Dipimpin oleh seorang Kepala Sub Bagian Pemasaran Cetakan dan Alat Tulis Kantor yang dalam melaksanakan tugasnya berada di bawah dan bertanggungjawab kepada Kepala Bagian Pemasaran, bertugas untuk : − Memasarkan/mencari pesanan cetakan dan alat tulis kantor kepada Dinas/Instansi Pemerintah atau Swasta. − Mengadministrasikan Surat Perintah Kerja (SPK) untuk setiap pesanan cetakan maupun alat tulis kantor. − Melakukan perhitungan biaya jual dari produksi barang cetakan dan alat tulis kantor. − Memeriksa barang yang akan disampaikan/dikirimkan mengenai jenis, mutu, jumlah dan menjadwal waktu pengiriman agar sesuai dengan pesanan, serta bertanggungjawab atas keamanan dan keselamatan barang yang dikirimkan sampai di tempat tujuan. − Mengadministrasikan dan menyusun laporan bulanan tentang pesanan yang diterima. − Melaksanakan tugas lain yang diberikan oleh Kepala Bagian Pemasaran.


b. Sub Bagian Pemasaran Es, Hiburan dan Toko Buku & NAK Sub Bagian Pemasaran Es, Hiburan dan Toko Buku dan NAK dipimpin oleh seorang Kepala Sub Bagian Pemasaran Es, Hiburan, Toko Buku dan NAK yang dalam kepada Kepala Bagian Pemasaran, bertugas untuk : − Mengembangkan pemasaran produksi atau jasa Industri, Hiburan dan Toko Buku & NAK. − Mempersiapkan karcis tontonan untuk semua bioskop milik Perusahaan Daerah dan menyelesaikannya dengan Dinas Pendapatan Daerah Tingkat II setempat. − Menyusun laporan bulanan tentang hasil penjualan produksi Industri Es, Hiburan dan Toko Buku & NAK. − Melaksanakan tugas lain yang diberikan Kepala Bagian Pemasaran.


VBA SCRIPT

Sub Auto_Open() 'Welcoming statement Dim Outcome As String Outcome = MsgBox("SELAMAT DATANG") Sheet1.Activate Application.ScreenUpdating = False End Sub

Public RunWhen As Double Sub Berkedip() With ThisWorkbook.Worksheets("Pendahuluan").Range("D2:R5").Font If .ColorIndex = 5 Then ' Warna biru .ColorIndex = 2 ' Warna putih Else If .ColorIndex = 2 Then ' Warna hijau .ColorIndex = 3 ' Warna merah Else .ColorIndex = 5 ' Warna biru End If End If End With

RunWhen = Now + TimeSerial(0, 0, 1) Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , True End Sub Sub Berhenti() On Error Resume Next


ThisWorkbook.Worksheets("Pendahuluan").Range("D2:R5").Font.ColorIndex = xlColorIndexAutomatic Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!Berkedip", , False End Sub

Private Sub CmdKeluar_Click() Unload Me End Sub

Private Sub CmdKeputusan_Click() Call frmKeputusan.Show End Sub

Private Sub cmdSimpan_Click() ActiveWorkbook.Sheets("pemesanan").Activate Range("B6").Select

Do 'mmebuat kondisi apabila cell yang aktif kosong 'maka data di tambahkan dan diulang 'selama cell kosong

If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If

Loop Until IsEmpty(ActiveCell) = True 'data ditambahkan ke cell dari 'input With ActiveCell


.Value = TxtKode1.Value .Offset(0, 1) = TxtNama1.Value .Offset(0, 2) = TxtF.Value .Offset(0, 3) = TxtBF.Value .Offset(0, 4) = TxtKS.Value .Offset(0, 5) = TxtKB.Value .Offset(0, 6) = CmbTanggalMulai.Value .Offset(0, 7) = CmbBulanMulai.Value .Offset(0, 8) = CmbTahunMulai.Value .Offset(0, 9) = CmbTanggalSelesai.Value .Offset(0, 10) = CmbBulanSelesai.Value .Offset(0, 11) = CmbTahunSelesai.Value End With End Sub

Private Sub cmdTambah_Click() 'pada saat tombol tambah di klik 'form akan kosong kembali dengan 'pointer di kode TxtKode1.Text = "" TxtNama1.Text = "" TxtBF.Text = "" TxtKS.Text = "" TxtKB.Text = "" CmbTanggalMulai.Text = "" CmbBulanMulai.Text = "" CmbTahunMulai.Text = "" CmbTanggalSelesai.Text = "" CmbBulanSelesai.Text = "" CmbTahunSelesai.Text = ""


TxtF.Value = "" TxtKode1.SetFocus

End Sub

Private Sub CmbBulanMulai_DropButtonClick() Dim vMonths As Variant Dim i As Integer

'create data arrays vMonths = Array("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember")

'Populate months using AddItem method For i = LBound(vMonths) To UBound(vMonths) CmbBulanMulai.AddItem vMonths(i) Next i End Sub

Private Sub CmbBulanSelesai_DropButtonClick() Dim vMonths As Variant Dim i As Integer

'create data arrays vMonths = Array("Januari", "Februari", "Maret", "April", "Mei", "Juni", "Juli", "Agustus", "September", "Oktober", "November", "Desember")

'Populate months using AddItem method For i = LBound(vMonths) To UBound(vMonths) CmbBulanSelesai.AddItem vMonths(i)


Next i End Sub

Private Sub CmbTahunMulai_DropButtonClick() Dim vYears As Variant

'create data arrays vYears = Array(2012, 2013, 2014, 2015, 2016)

'Populate years using List Property CmbTahunMulai.List = WorksheetFunction.Transpose(vYears) End Sub

Private Sub CmbTahunSelesai_DropButtonClick() Dim vYears As Variant

'create data arrays vYears = Array(2012, 2013, 2014, 2015, 2016)

'Populate years using List Property CmbTahunSelesai.List = WorksheetFunction.Transpose(vYears) End Sub

Private Sub CmbTanggalMulai_DropButtonClick() Dim vDate As Variant

'create data arrays vDate = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 26, 28, 29, 30, 31)

'Populate date using list property


CmbTanggalMulai.List = WorksheetFunction.Transpose(vDate)

End Sub

Private Sub CmbTanggalSelesai_DropButtonClick() Dim vDate As Variant

'create data arrays vDate = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 26, 28, 29, 30, 31)

'Populate date using list property CmbTanggalSelesai.List = WorksheetFunction.Transpose(vDate)

End Sub

Private Sub TxtKode1_Change()

End Sub

Private Sub CmdExit_Click() Unload Me End Sub

Private Sub cmdKlikBahan_Click() Call Sheet4.Activate End Sub

Private Sub cmdKlikBOM_Click() Call Sheet10.Activate End Sub


Private Sub cmdKlikKonsumen_Click() Call Sheet3.Activate End Sub

Private Sub cmdKlikProduk_Click() Call Sheet5.Activate End Sub

Private Sub CmdKlikSupplier_Click() Call Sheet13.Activate End Sub

Private Sub CmdMenu_Click() Call Sheet1.Activate End Sub

Private Sub cmbKeluar_Click() Unload Me End Sub

Private Sub cmbSimpan_Click() ActiveWorkbook.Sheets("DataBB").Activate Range("A4").Select

Do 'mmebuat kondisi apabila cell yang aktif kosong 'maka data di tambahkan dan diulang 'selama cell kosong


If IsEmpty(ActiveCell) = False Then ActiveCell.Offset(1, 0).Select End If

Loop Until IsEmpty(ActiveCell) = True 'data ditambahkan ke cell dari 'input With ActiveCell .Value = TxtKode.Value .Offset(0, 1) = TxtNama.Value .Offset(0, 2) = TxtSatuan.Value .Offset(0, 3) = TxtSupplier.Value .Offset(0, 4) = TxtHarga.Value .Offset(0, 5) = TxtBSimpan.Value .Offset(0, 6) = TxtBPesan.Value End With End Sub

Private Sub cmbTambah_Click() 'pada saat tombol tambah di klik 'form akan kosong kembali dengan 'pointer di kode TxtKode.Text = "" TxtNama.Text = "" TxtSatuan.Text = "" TxtSupplier.Text = "" TxtHarga.Text = "" TxtBSimpan.Text = "" TxtBPesan.Text = "" TxtSatuan.Value = "" TxtKode.SetFocus


End Sub

Option Explicit

Private Sub CmbBahanBaku_Change() If CmbBahanBaku.ListIndex <> -1 Then Range("_cboBahan_").Value = CmbBahanBaku.Text Else Range("_cboBahan_").Value = vbNullString End If End Sub

Private Sub CmbNoSO_Change() If CmbNoSO.ListIndex <> -1 Then Range("_cboSales_").Value = CmbNoSO.Text Else Range("_cboSales_").Value = vbNullString End If End Sub

Private Sub CmdExit_Click() Unload Me End Sub

Private Sub CmdMenu_Click() Call Sheet1.Activate End Sub

Private Sub lstPesan_Change() If lstPesan.ListIndex <> -1 Then lblKeputusan.Caption = lstPesan.List(lstPesan.ListIndex, 3)


lblCustName.Caption = lstPesan.List(lstPesan.ListIndex, 4) lblCustAddr.Caption = lstPesan.List(lstPesan.ListIndex, 5) lblSupName.Caption = lstPesan.List(lstPesan.ListIndex, 6) lblSupAddr.Caption = lstPesan.List(lstPesan.ListIndex, 7) Else lblKeputusan.Caption = vbNullString lblCustName.Caption = vbNullString lblCustAddr.Caption = vbNullString lblSupName.Caption = vbNullString lblSupAddr.Caption = vbNullString End If End Sub














LAMPIRAN 1 URAIAN TUGAS DAN TANGGUNG JAWAB

Recommend Documents