Info Apkom 4 PNUP

Pengumpulan tugas dan kumpulan latihan apkom 4 paling lambat hari senin tanggal 6 Pebruari 2012 Pukul 09.00 wita (titip sama bu fitri untuk d3, dan bu enni untuk d4)

PARAHITA VACANCY

STAFF KEUANGAN DAN AKUNTANSI

PRIA/WANITA MAKSIMAL 25 TAHUN
D3/D4/S1 AKUNTANSI
IPK MINIMAL 2.75 SKALA 4.00
SEHAT JASMANI DAN ROHANI

LAMPIRAN:
CV; FC IJAZAH & TRANSKRIP NILAI; KTP; 3 X 4 SATU LEMBAR; REFERENSI LAIN BILA ADA

BAWA LANGSUNG KE JL G. LATIMOJONG 123 MAKASSAR
ATAU VIA EMAIL KE DEWI.KEU.PARAHITA@GMAIL.COM

Lowongan Kerja Paling Lambat 2012 Januari 5

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

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

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

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

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