PT.GLOBAL HARAMAIN MAKASSAR
STAF KEUANGAN DAN ADMINISTRASI (2 ORANG)
WANITA (25 TAHUN MAKSIMAL,MIN SLTA, DIUTAMAKAN BISA BAHASA ARAB)
KIRIM KE PT. GLOBAL HARAMAIN
JL. HOS COKROAMINOTO NO 7A
MAKASSAR TELP. 3623237
Kamis, 29 Desember 2011
Lowongan Kerja Paling Lambat 2012 Januari 7
Exportir Hasil Laut:
1. Wanita ==> administrasi & keuangan
2. Seafood Plan Processing, Production Manager dan Supervisor (Jurusan Pangan, Gizi,
Perikanan)
3. Teknisi Boiler, Listrik dan Pendingin
4. Personalia
Dikirim via email ke:
searomar@yahoo.com dan indonesianseafoods@bigpond.com
1. Wanita ==> administrasi & keuangan
2. Seafood Plan Processing, Production Manager dan Supervisor (Jurusan Pangan, Gizi,
Perikanan)
3. Teknisi Boiler, Listrik dan Pendingin
4. Personalia
Dikirim via email ke:
searomar@yahoo.com dan indonesianseafoods@bigpond.com
Sabtu, 03 Desember 2011
Lowongan Kerja Desember 2011
Announcement
Urgently Required
PT. Erajaya Swasembada Group adalah sebuah perusahaan yang bergerak dibidang distribusi dan retail telekomunikasi merek ternama (Nokia, Samsung, Blackberry, LG, Motorola, Sony Ericson) membutuhkan tenaga kerja untuk di wilayah Sulawesi.
Posisi yang dibutuhkan :
... 1. Finance & Accounting 6. Staff Marketing
2. Collector 7. Security
3. Administrasi 8. Front Liners
4. Staff Gudang 9. Sales Promotion Girls (SPG)
5. Kasir 10. Office Boy / Office Girls
Kota Penempatan
1. Makassar 5. Gorontalo
2. Bone 6. Menado
3. Palopo 7. Ambon
4. Kendari 8. Palu
Surat Lamaran dikirimkan ke :
Human Resources and General Affairs
PT. Erajaya Swasembada
Jl. Masjid Raya No. 68 – D Makassar
Email : budi.rachmadi@erajaya.com
secepatnya yach..
yg butuh Form Lamaran Kerja Dari ERAJAYA silahkan konfirmasi email ke fah_accsidrap@ymail.com
Berikut saya lampirkan SURAT PERMOHONAN dari pihak PT ERAJAYA
------------------------------------------------------------------------------------------------------
Yth Bapak Fahmil
Berikut saya kirimkan info lowongan kerja di PT. Erajaya Swasembada Cabang Makassar beserta Form Lamaran Kerja.
Apabila ada teman alumni atau adik kelas di Poltek dapat diinfokan.
Kelengkapan berkas
1. Surat Lamaran
2. Biodata Diri.
3. Ijasah Terakhir
4. KTP
Tes Gelombang 1 diadakan pada
Hari : Sabtu
Tanggal : 03 Desember 2011
Waktu : 10.00 WITA
Tempat : Kantor PT. Erajaya
Jl. Masjid Raya No. 68-D (Ruko Cat Kuning)
Sebelum Kantor Yes Tv / Telkomvison dan Sekolah Bambini
PIC : Budi Rachmadi
Urgently Required
PT. Erajaya Swasembada Group adalah sebuah perusahaan yang bergerak dibidang distribusi dan retail telekomunikasi merek ternama (Nokia, Samsung, Blackberry, LG, Motorola, Sony Ericson) membutuhkan tenaga kerja untuk di wilayah Sulawesi.
Posisi yang dibutuhkan :
... 1. Finance & Accounting 6. Staff Marketing
2. Collector 7. Security
3. Administrasi 8. Front Liners
4. Staff Gudang 9. Sales Promotion Girls (SPG)
5. Kasir 10. Office Boy / Office Girls
Kota Penempatan
1. Makassar 5. Gorontalo
2. Bone 6. Menado
3. Palopo 7. Ambon
4. Kendari 8. Palu
Surat Lamaran dikirimkan ke :
Human Resources and General Affairs
PT. Erajaya Swasembada
Jl. Masjid Raya No. 68 – D Makassar
Email : budi.rachmadi@erajaya.com
secepatnya yach..
yg butuh Form Lamaran Kerja Dari ERAJAYA silahkan konfirmasi email ke fah_accsidrap@ymail.com
Berikut saya lampirkan SURAT PERMOHONAN dari pihak PT ERAJAYA
------------------------------------------------------------------------------------------------------
Yth Bapak Fahmil
Berikut saya kirimkan info lowongan kerja di PT. Erajaya Swasembada Cabang Makassar beserta Form Lamaran Kerja.
Apabila ada teman alumni atau adik kelas di Poltek dapat diinfokan.
Kelengkapan berkas
1. Surat Lamaran
2. Biodata Diri.
3. Ijasah Terakhir
4. KTP
Tes Gelombang 1 diadakan pada
Hari : Sabtu
Tanggal : 03 Desember 2011
Waktu : 10.00 WITA
Tempat : Kantor PT. Erajaya
Jl. Masjid Raya No. 68-D (Ruko Cat Kuning)
Sebelum Kantor Yes Tv / Telkomvison dan Sekolah Bambini
PIC : Budi Rachmadi
Rabu, 30 November 2011
Daftar Perusahaan - Bursa Kerja 2011
PT. NALCO INDONESIA
PT. TRAKINDO UTAMA
PT. ADIRA DINAMIKA MULTI FINANCE
PT. INDOMARCO PRISMATAMA
PT. MIDI UTAMA INDONESIA. TBK
PT. DONGGI SENORO LNG
PT. ADHI KARYA (Persero) Tbk
PT. NUSANTARA SURYA SAKTI
PT. BANK BTPN, Tbk
PT. PENERBIT ERLANGGA
PT. ASTRA INTERNATIONAL Tbk-Honda
PT. HOME CENTER INDONESIA
PT. FIF
PT. PLN Persero
Bank Mandiri
PT. Sumber Alfaria Trijaya, Tbk
PT. EPFM
PT. KALLA RENT
PT. KALLA TOYOTA
PT. CHAROEN
PT. SATWA UTAMA
PT. BINTANG SEJAHTERA
PT. TRAKINDO UTAMA
PT. ADIRA DINAMIKA MULTI FINANCE
PT. INDOMARCO PRISMATAMA
PT. MIDI UTAMA INDONESIA. TBK
PT. DONGGI SENORO LNG
PT. ADHI KARYA (Persero) Tbk
PT. NUSANTARA SURYA SAKTI
PT. BANK BTPN, Tbk
PT. PENERBIT ERLANGGA
PT. ASTRA INTERNATIONAL Tbk-Honda
PT. HOME CENTER INDONESIA
PT. FIF
PT. PLN Persero
Bank Mandiri
PT. Sumber Alfaria Trijaya, Tbk
PT. EPFM
PT. KALLA RENT
PT. KALLA TOYOTA
PT. CHAROEN
PT. SATWA UTAMA
PT. BINTANG SEJAHTERA
Senin, 28 November 2011
Latihan 39 APKOM 4
Public Class LATIHAN039012
'DEKLARASI CONECTION
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub Latihan039012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DT.Columns.Add(New DataColumn("KODEBARANG", GetType(String))) 'untuk angka
DT.Columns.Add(New DataColumn("NAMABARANG", GetType(String))) 'untuk angka
DT.Columns.Add(New DataColumn("UNIT", GetType(Double))) 'untuk angka
DT.Columns.Add(New DataColumn("HARGA", GetType(Integer))) 'untuk angka
DT.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
DataGridView1.DataSource = DT
'datagridwiew digunakan untuk menampilkan tabel yg sdh dibuat jika tdk maka tabel tdk akn muncul
'rumus dibwh ini untuk membuat primary key dimana dcp adalah nama sembarangji
Dim dcp(1) As DataColumn
dcp(0) = DT.Columns("KODEBARANG")
DT.PrimaryKey = dcp
DT.Columns("UNIT").DefaultValue = 0
DT.Columns("HARGA").DefaultValue = 0
DT.Columns("JUMLAH").DefaultValue = 0
End Sub
Private Sub hitung()
Dim manis As Integer
For Each r As DataGridViewRow In DataGridView1.Rows
manis = manis + r.Cells("JUMLAH").Value
Next
Tot.Text = manis
End Sub
Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
If e.ColumnIndex = 0 Then
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("BARANG", "kodebarang", DataGridView1.CurrentRow.Cells("kodebarang").Value, 1, CONECT) '1 untuk huruf
If cari.JumlanBaris > 0 Then
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = cari.DataTablenya.Rows(0).Item("KODEBARANG")
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NamaBarang")
Else
MsgBox("kode barang tidak tersedia")
If Latihan383940012.ShowDialog = Windows.Forms.DialogResult.OK Then
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("KodeBarang").Value
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("namabarang").Value
DataGridView1.CurrentRow.Cells("HARGA").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("HARGAJUAL").Value
Else
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = ""
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = ""
End If
End If
End If
If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
DataGridView1.CurrentRow.Cells("JUMLAH").Value = DataGridView1.CurrentRow.Cells("UNIT").Value * DataGridView1.CurrentRow.Cells("HARGA").Value
End If
hitung()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox1.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If jt.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(jt.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
TextBox1.Text = ""
jt.Text = ""
Tot.Text = ""
DT.Rows.Clear()
hitung()
End Sub
End Class
'DEKLARASI CONECTION
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb")
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub Latihan039012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DT.Columns.Add(New DataColumn("KODEBARANG", GetType(String))) 'untuk angka
DT.Columns.Add(New DataColumn("NAMABARANG", GetType(String))) 'untuk angka
DT.Columns.Add(New DataColumn("UNIT", GetType(Double))) 'untuk angka
DT.Columns.Add(New DataColumn("HARGA", GetType(Integer))) 'untuk angka
DT.Columns.Add(New DataColumn("JUMLAH", GetType(Double)))
DataGridView1.DataSource = DT
'datagridwiew digunakan untuk menampilkan tabel yg sdh dibuat jika tdk maka tabel tdk akn muncul
'rumus dibwh ini untuk membuat primary key dimana dcp adalah nama sembarangji
Dim dcp(1) As DataColumn
dcp(0) = DT.Columns("KODEBARANG")
DT.PrimaryKey = dcp
DT.Columns("UNIT").DefaultValue = 0
DT.Columns("HARGA").DefaultValue = 0
DT.Columns("JUMLAH").DefaultValue = 0
End Sub
Private Sub hitung()
Dim manis As Integer
For Each r As DataGridViewRow In DataGridView1.Rows
manis = manis + r.Cells("JUMLAH").Value
Next
Tot.Text = manis
End Sub
Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
If e.ColumnIndex = 0 Then
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("BARANG", "kodebarang", DataGridView1.CurrentRow.Cells("kodebarang").Value, 1, CONECT) '1 untuk huruf
If cari.JumlanBaris > 0 Then
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = cari.DataTablenya.Rows(0).Item("KODEBARANG")
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = cari.DataTablenya.Rows(0).Item("NamaBarang")
Else
MsgBox("kode barang tidak tersedia")
If Latihan383940012.ShowDialog = Windows.Forms.DialogResult.OK Then
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("KodeBarang").Value
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("namabarang").Value
DataGridView1.CurrentRow.Cells("HARGA").Value = Latihan383940012.DataGridView1.CurrentRow.Cells("HARGAJUAL").Value
Else
DataGridView1.CurrentRow.Cells("KODEBARANG").Value = ""
DataGridView1.CurrentRow.Cells("NAMABARANG").Value = ""
End If
End If
End If
If e.ColumnIndex = 2 Or e.ColumnIndex = 3 Then
DataGridView1.CurrentRow.Cells("JUMLAH").Value = DataGridView1.CurrentRow.Cells("UNIT").Value * DataGridView1.CurrentRow.Cells("HARGA").Value
End If
hitung()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox1.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If jt.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(jt.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
TextBox1.Text = ""
jt.Text = ""
Tot.Text = ""
DT.Rows.Clear()
hitung()
End Sub
End Class
Senin, 21 November 2011
Latihan 35 APKOM 4
Public Class LATIHAN035012
'DEKLARASI CONECTION
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
'deklarasi data tabel
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'deklarasi adapter
Dim nisa As New OleDb.OleDbDataAdapter
nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
DT.Rows.Clear() 'membersihkan data table
nisa.Fill(DT) 'mengisi database ke dlm data table
DataGridView1.DataSource = DT 'memunculkan dlm datagridview
nisa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If KB.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(UN.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("UNIT belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(HR.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("HARGA belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW
Dim drzany As DataRow
drzany = DT.NewRow ' menambah baris
drzany("KODEBARANG") = KB.Text
drzany("UNIT") = UN.Text
drzany("HARGA") = HR.Text
DT.Rows.Add(drzany)
KB.Text = ""
UN.Text = ""
HR.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox1.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no.transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If TextBox2.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
End Class
'DEKLARASI CONECTION
Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=25")
'deklarasi data tabel
Dim DT As New DataTable
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub LATIHAN035012_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'deklarasi adapter
Dim nisa As New OleDb.OleDbDataAdapter
nisa = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA FROM DETAILTRANSAKSI WHERE NOTRANS= '" & KB.Text & "'", CONECT) 'memunculkan semua data dari tabel barang dlm acces
DT.Rows.Clear() 'membersihkan data table
nisa.Fill(DT) 'mengisi database ke dlm data table
DataGridView1.DataSource = DT 'memunculkan dlm datagridview
nisa.Dispose() 'menghancurkan kendaraan (adapter) yg sdh dipake
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If KB.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(UN.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("UNIT belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If Val(HR.Text) = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("HARGA belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
'UNTUK MENYMPAN DATA YG DIMASUKKAN KE DALAM DATAGRIDVIEW
Dim drzany As DataRow
drzany = DT.NewRow ' menambah baris
drzany("KODEBARANG") = KB.Text
drzany("UNIT") = UN.Text
drzany("HARGA") = HR.Text
DT.Rows.Add(drzany)
KB.Text = ""
UN.Text = ""
HR.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If TextBox1.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("no.transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If TextBox2.Text.Length = 0 Then 'untuk pencarian yang bersifat angka
MsgBox("jenis transaksi belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("mastertransaksi", "notrans", TextBox1.Text, 1, CONECT)
If cari.JumlanBaris > 0 Then
MsgBox("NO.TRANS sudah ada")
Exit Sub
End If
If DT.Rows.Count = 0 Then
MsgBox("data tidak tersedia")
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & TextBox1.Text & "',#" & DateTimePicker1.Value.Date & "#," & Val(TextBox2.Text) & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
For Each r As DataRow In DT.Rows
com = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga ) values ('" & TextBox1.Text & "','" & r("kodebarang") & "'," & r("unit") & "," & r("harga") & ")", CONECT)
CONECT.Open()
com.ExecuteNonQuery()
CONECT.Close()
com.Dispose()
Next
DT.Rows.Clear()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
End Class
Minggu, 20 November 2011
Kamis, 10 November 2011
Lowongan Kerja Akuntansi
Yth. Adinda Alumni Jurusan Akuntansi
yang berminat melamar kerja posisi akuntansi pada:
PT. LANGGENG ENERGY PRIMA (AGEN BBM INDUSTRI) dengan kualifikasi
mampu beradaptasi dengan Zahir Accounting ==> sejenis MYOB Accounting.
PT. CAHAYA SAGA UTAMA (Tambang Nikel) dengan kualifikasi mampu beradaptasi
dengan Accurate Accounting ==> sejenis MYOB Accounting.
Kirimkan Lamaran beserta CV dan yang lainnya ke email:
Langgeng_energy@yahoo.com
uldhypratama@gmail.com
Wassalam
Hasyim M
yang berminat melamar kerja posisi akuntansi pada:
PT. LANGGENG ENERGY PRIMA (AGEN BBM INDUSTRI) dengan kualifikasi
mampu beradaptasi dengan Zahir Accounting ==> sejenis MYOB Accounting.
PT. CAHAYA SAGA UTAMA (Tambang Nikel) dengan kualifikasi mampu beradaptasi
dengan Accurate Accounting ==> sejenis MYOB Accounting.
Kirimkan Lamaran beserta CV dan yang lainnya ke email:
Langgeng_energy@yahoo.com
uldhypratama@gmail.com
Wassalam
Hasyim M
Rabu, 09 November 2011
Latihan form 27
Public Class LATIHAN027012
'dekklarasi connection
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb")
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If Val(t1.Text) = 0 Then 'untuk pencarian yg bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If t2.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
MsgBox("nama barang belum terisi")
Exit Sub
End If
If Val(t3.Text) = 0 Then
MsgBox("harga jual belum diisi")
Exit Sub
End If
If Val(t4.Text) = 0 Then
MsgBox("jumlah barang belum diisi")
Exit Sub
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("BARANG", "KODEBARANG", t1.Text, 1, conect)
If cari.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1.Text & "','" & t2.Text & "'," & Val(t3.Text) & "," & Val(t4.Text) & ")", conect)
conect.Open()
com.ExecuteNonQuery()
conect.Close()
com.Dispose()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
End Sub
End Class
'dekklarasi connection
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb")
Dim cari As New ByIskandar.CariKeDataBaseByIskandar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'untuk mencari jgn sampai data yg akan dimasukkan tidak lengkap
If Val(t1.Text) = 0 Then 'untuk pencarian yg bersifat angka
MsgBox("kode barang belum terisi")
Exit Sub 'jgn lanjut ke proses berikutnya
End If
If t2.Text.Length = 0 Then ' untuk pencarian yg bersifat huruf
MsgBox("nama barang belum terisi")
Exit Sub
End If
If Val(t3.Text) = 0 Then
MsgBox("harga jual belum diisi")
Exit Sub
End If
If Val(t4.Text) = 0 Then
MsgBox("jumlah barang belum diisi")
Exit Sub
End If
'untuk mencari jgn sampai data yg akan dimasukkan sudah ada
cari.AturPencarianDataBase("BARANG", "KODEBARANG", t1.Text, 1, conect)
If cari.JumlanBaris > 0 Then
MsgBox("kode sudah ada")
Exit Sub
End If
'untuk memasukkan data dari visual basc ke dlm acces
Dim com As New OleDb.OleDbCommand
com = New OleDb.OleDbCommand("insert into BARANG (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1.Text & "','" & t2.Text & "'," & Val(t3.Text) & "," & Val(t4.Text) & ")", conect)
conect.Open()
com.ExecuteNonQuery()
conect.Close()
com.Dispose()
t1.Text = ""
t2.Text = ""
t3.Text = ""
t4.Text = ""
End Sub
End Class
Jumat, 04 November 2011
Tugas Untuk SQL insert, delete, Update
Tugas yang berkaitan dengan materi sql insert, delete, dan update disiapkan posting untuk pengumpulan tugas mulai Latihan 27 sampai dengan 34
terima kasih
Hasyim M.
Catatan: Buat yang lebih awal mempelajari penggunaan login user.... silahkan cari materi penggunaan MDI (Multiple document Int...) kalo ada kurang jelas... dan ada waktu kita bisa diskusikan lebih lanjut....
terima kasih
Hasyim M.
Catatan: Buat yang lebih awal mempelajari penggunaan login user.... silahkan cari materi penggunaan MDI (Multiple document Int...) kalo ada kurang jelas... dan ada waktu kita bisa diskusikan lebih lanjut....
Rabu, 02 November 2011
Lowongan Kerja BNI Syariah
Info lebih lanjut Hubungi UPT HI Politeknik Negeri Ujung Pandan
ABDUL KADIR MUHAMMAD (085 256 368 240)
Minggu, 16 Oktober 2011
Info Tugas dan Latihan Apkom 4
File dikumpul lewat komen di posting sesuai dengan kelas masing2 di bahan
pustaka dan bank soal (hati-hati jangan sampai salah isi komen)...
source code yang bisa anda download (terakhir latihan 15) silahkan lanjutkan...
Yth. Saudari Tumim... tugasnya diganti... tidak sesuai soalnya....
sekian dan terima kasih (AHY)
pustaka dan bank soal (hati-hati jangan sampai salah isi komen)...
source code yang bisa anda download (terakhir latihan 15) silahkan lanjutkan...
Yth. Saudari Tumim... tugasnya diganti... tidak sesuai soalnya....
sekian dan terima kasih (AHY)
Kamis, 13 Oktober 2011
Info Pengumpulan Tugas Apkom 4
Buat Tumim dan kawan2... sehubungan dengan libur akademik... silahkan tugasnya di kumpul lewat http://libraryaccountingdepartment.blogspot.com/2011/10/tempat-kumpul-tugas-review-msql.html dengan cara mengisi commentnya posting ini dengan menggunakan account google anda.... terima kasih... paling lambat 17 Oktober 2011
Selasa, 11 Oktober 2011
Kamis, 06 Oktober 2011
Kamis, 29 September 2011
Kamis, 26 Mei 2011
Lowongan Kerja 2011 Juni
Segera buat alumni akuntansi poltek, silahkan klik di link berikut ini:
http://lecturer.poliupg.ac.id/~hasyim/Lowongan%20Kerja/Medion201106.htm
http://lecturer.poliupg.ac.id/~hasyim/Lowongan%20Kerja/Medion201106.htm
Rabu, 25 Mei 2011
Panduan Materi Ujian Komprehensif
Silahkan lihat di link berikut ini
http://lecturer.poliupg.ac.id/~hasyim/Komprehensif/MEKANISME%20PENJAMINAN%20MUTU.htm
http://lecturer.poliupg.ac.id/~hasyim/Komprehensif/MEKANISME%20PENJAMINAN%20MUTU.htm
Selasa, 19 April 2011
Matriks Konsinyasi (Alih form by : Acc 08 D4 kelas B
Mau belajar akuntansi konsinyasi
alternatif bahan yang bisa anda gunakan ada di sini
alternatif bahan yang bisa anda gunakan ada di sini
Jumat, 25 Maret 2011
Materi Akuntansi Keuangan Lanjutan 1 (Advance Accounting 1)
Materinya dapat anda download di alamat berikut ini
Materi Persekutuan
Materi Angsuran
Materi Konsinyasi
Translasi Valuta Asing
Organisasi Nirlaba
interim
Segmen
Pusat Cabang
Terima Kasih Sudah Mau Membaca
Materi Persekutuan
Materi Angsuran
Materi Konsinyasi
Translasi Valuta Asing
Organisasi Nirlaba
interim
Segmen
Pusat Cabang
Terima Kasih Sudah Mau Membaca
Selasa, 08 Maret 2011
SNA 13 purwokerto dengan nomer AU-14 dan AU-13
saya ingin jurnal SNA 13 yg judulny "Manajemen Laba Riil dan Berbasis Akrual: Dapatkah Auditor yang Berkualitas Mendeteksinya" (AU-14 ) dan "The Presence of Earnings Manipulation Incentive as a Prerequisite for the Benefits of Higher-Quality Audit to be Realized :The Case of Indonesia" ( AU-13)..bisa dikirimkan???
saya sangat butuh ini untuk referensi skripsi saya,,,,,
trima kasihhh,,,,,
saya sangat butuh ini untuk referensi skripsi saya,,,,,
trima kasihhh,,,,,
SNA 13 purwokerto dengan nomer AKPM 57
Silahkan download di link berikut ini :
Semoga cepat selesai...
salam pak Hasyim,
kalau boleh saya mau minta file SNA 13 purwokerto dengan nomer AKPM 57, apa bisa?
saya sangat membutuhkan file ini untuk penelitian terdahulu skripsi saya..
trims sebelumnya
Semoga cepat selesai...
salam pak Hasyim,
kalau boleh saya mau minta file SNA 13 purwokerto dengan nomer AKPM 57, apa bisa?
saya sangat membutuhkan file ini untuk penelitian terdahulu skripsi saya..
trims sebelumnya
Jumat, 04 Februari 2011
Tips Hidup Sehat Update
Telah update beberapa tips kesehatan di tab hidup sehat...
semoga bermanfaat...
semoga bermanfaat...
Langganan:
Postingan (Atom)