Pac Hanura Denpasar Timur

Transaksi Penjualan di Visual Basic

pachanuradentim — Mon, 22 Feb 2010 06:24:15 +0000

Transaksi penjualan adalah suatu alur proses dalam pemrograman di visual basic yang berfungsi untuk menginput data penjualan yang dilakukan oleh kasir terhadap barang- barang yang terjual. dengan melakukan penginputan pada form transaksi penjualan maka, data yang diinputkan akan tercatat di dua tabel yaitu: tabel transaski dan tabel detail, serta akan merubah nilai stok yang terdapat pada tabel barang.

berikut adalah sedikit koding yang bisa di pakai dalam form transaksi:
Private Sub TxtData_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
Txnota = TxtData(0).Text

If Index = 4 Then

If Val(TxtData(4).Text) < Val(TxtData(3).Text) Then
MsgBox “Periksa Kembali Pembayaran anda!”
Else
TxtData(5).Text = Val(TxtData(4).Text) – Val(TxtData(3).Text)

‘===!!to be continue, proses penyimpanan
If DE.rsPENJUALAN.State = adStateClosed Then DE.rsPENJUALAN.Open
DE.rsPENJUALAN.AddNew
DE.rsPENJUALAN.Fields(0) = TxtData(0).Text
DE.rsPENJUALAN.Fields(1) = DTPicker1.Value
DE.rsPENJUALAN.Fields(2) = TxtData(1).Text
DE.rsPENJUALAN.Fields(3) = TxtData(2).Text
DE.rsPENJUALAN.Fields(4) = TxtData(3).Text
DE.rsPENJUALAN.Fields(5) = “K001″

DE.rsPENJUALAN.Update

If DE.rsDETAIL1.State = adStateClosed Then DE.rsDETAIL1.Open
For i = 1 To ListView1.ListItems.Count

kdbrg = ListView1.ListItems(i).Text
HARGA = ListView1.ListItems(i).SubItems(2)
diskon = ListView1.ListItems(i).SubItems(3)
jumlah = ListView1.ListItems(i).SubItems(4)
DE.rsDETAIL1.AddNew
DE.rsDETAIL1(0) = TxtData(0).Text
DE.rsDETAIL1(1) = kdbrg
DE.rsDETAIL1(2) = Val(ListView1.ListItems(i).SubItems(2))
DE.rsDETAIL1(3) = Val(jumlah)
DE.rsDETAIL1(4) = Val(diskon)
DE.rsDETAIL1.Update

If DE.rsBARANG.State = adStateClosed Then DE.rsBARANG.Open
DE.rsBARANG.MoveFirst

DE.rsBARANG.Find “kd_brg=’” + kdbrg + “‘”

If Not DE.rsBARANG.EOF Then
jml = DE.rsBARANG.Fields(3)
xsetok = jml – jumlah

DE.rsBARANG.Fields(3) = xsetok
DE.rsBARANG.Update
End If

If DE.rsRptNota_Grouping.State = 0 Then DE.rsRptNota_Grouping.Open
DE.rsRptNota_Grouping.Requery
DE.rsRptNota_Grouping.Filter = adFilterNone
DE.rsRptNota_Grouping.Filter = “nOTA = ‘” & TxtData(0).Text & “‘”
RptNota.Show 1
DE.rsRptNota_Grouping.Filter = adFilterNone

ListView1.ListItems.Clear

End If
End If
End If
End Sub

koding ini dimaksud untuk menyimpan nilai-nilai terkait ke dalam tabel-tabel yang di maksud.

JK Bertemu Mega, Wiranto: Kami Lebih Dahsyat !

pachanuradentim — Sun, 22 Mar 2009 12:13:28 +0000

Jumat, 13 Maret 2009

Pertemuan Ketua Umum Partai Golkar Jusuf Kalla dan Ketua Umum PDIP Megawati Soekarnoputri tak membuat Ketua Umum Hanura Wiranto minder. Pertemuan 9 parpol yang digagasnya pun dinilai lebih dahsyat daripada pertemuan JK-Mega. “Itu hanya komunikasi politik biasa. Hari ini kami malah lebih dahsyat. Ada 9 partai melakukan pertemuan politik,” kata Wiranto kepada wartawan dalam acara deklarasi poros kebenaran dan keadilan di Menara Gracia, Kuningan, Jakarta, Jumat (13/3/2009).

Hadir dalam acara deklarasi ini adalah Wiranto (Hanura), Roy BB Janis (PDP), Imam Addaruquthni (PMB), Choirul Anam (PKNU), Rusman Ali (PBR), Ruyandi Hutasoit (PDS), Amelia Yani (PPRN), Muchtar Pakpahan (Partai Buruh) dan Budiyanto Darmastono (PIS).

Menurut Wiranto, semua partai politik dan pimpinannya berhak melakukan manuver menghadapi Pemilu 2009. Namun mantan capres Golkar 2004 itu berharap semua manuver yang ada itu harus bermuara pada peningkatan kesejahteraan rakyat.

“Pemilu ini bukan pertandingan sepak bola. Tentu saja semua pihak boleh melakukan komunikasi politik dengan siapa pun untuk tujuan kebaikan,” pungkas Wiranto.

Kamis (12/3/2009) JK dan Megawati bertemu di salah satu rumah di Menteng. Pertemuan selama 30 menit itu menghasilkan 5 kesepakatan. Banyak pihak menilai pertemuan JK-Mega ini sebagai pintu masuk koalisi Golkar-PDIP dalam pilpres 2009.(detik)

trims to: a1 computer

a1 computer as sponsor

pachanuradentim — Sun, 07 Dec 2008 03:42:27 +0000

cuma mau bilang terimkasih untuk a1 computer untuk supportnya.pada blogs ini.

Wiranto Somasi JK Soal Penumpang Gelap

pachanuradentim — Sun, 09 Nov 2008 13:46:49 +0000

Jakarta, Media Centre – Ketua Umum DPP Partai Hati Nurani Rakyat (Hanura), H. Wiranto, SH melayangkan somasi kepada Ketua Umum Partai Golkar Jusuf Kalla pada Rabu (5/11). Somasi dilayangkan karena Wiranto merasa nama baiknya dicemarkan oleh Jusuf Kalla pada saat berpidato dalam Rapimnas IV Partai Golkar pada 20 Oktober lalu.

caleng hanura untuk dapil bali

pachanuradentim — Fri, 24 Oct 2008 06:07:05 +0000

berikut adalah nama-nama calon legislatif partai hanura untuk daerah pemilihan bali.

1. KETUT TASTRA SUKATA

2. ADHITA NATALIANA, SE, M.Si

3. MADE DANASULITRA

4. I.G.A.N ALIT SETYAWAN, SE

5. Drs. KOSMAS TASAL

6. YESAYA ZADRAK MANDALA

semoga sukses… dari I Wayan Sudiarsa, ST (Sekretaris PAC Hanura Denpasar Timur)

dan Dukung Mereka ya….,

Bapak Wiranto Peringkat Ketiga Capres 2009

pachanuradentim — Wed, 22 Oct 2008 08:09:16 +0000

Jakarta, Media Centre – Hasil survei tarakhir yang dilakukan Lembaga Survei Indonesia (LSI) menempatkan Ketua Partai Hati Nurani Rakyat (Hanura), H. Wiranto, SH di urutan ketiga setelah Susilo Bambang Yudhoyono dan Megawati Soekarnoputri. Survei diadakan pada 8-20 September 2008 terhadap 1.239 responden WNI yang berumur 17 tahun ke atas yang memiliki hak pilih dalam pemilu. Hal tersebut disampaikan oleh Direktur LSI Syaiful Mujani di Jakarta, Minggu (19/10).

Hasil survei menyebutkan SBY memperoleh 32 persen pilihan responden, Megawati 24 persen, Wiranto 6 persen, Prabowo 5 persen dan Sri Sultan HB X 4 persen. Survei dilakukan dari total 28 nama yang disodorkan dalam pertanyaan semi terbuka terhadap responden.

Wiranto yang belum menyatakan secara resmi sebagai calon presiden dalam pemilu 2009 mengucapkan terima kasih kepada semua pihak yang telah mensejajarkan dirinya dengan calon presiden yang lain. Bahkan, dalam sejumlah pooling menempatkan Wiranto pada posisi yang cukup terhormat dan diperhitungkan.

Dalam beberapa kesempatan, Wiranto mengaku ingin membesarkan Partai Hanura terlebih dahulu dan merasa optimis partainya dapat mencapai peringkat lima besar dalam perolehan suara pemilu 2009. Hal tersebut didasarkan pada berbagai survei dan kemajuan faktual di lapangan yang menunjukkan Hanura menekankan pada aksi, bukan sekadar berjanji. Menurut Wiranto, Partai Hanura tidak akan berjanji apa-apa tetapi akan terus berbakti dan aksi sehingga masyarakat tahu Hanura benar-benar memahami hati nurani rakyat.* (AJ)

Partai Hanura Tidak Cari Jabatan

pachanuradentim — Thu, 16 Oct 2008 07:56:02 +0000

Partai Hanura Tidak Cari Jabatan

Jakarta, Media Centre – Ketua Umum Partai Hati Nurani Rakyat (Hanura) H. Wiranto melakukan konsolidasi partai di Jember dan Bondowoso pada Minggu (12/10). Pada kesempatan tersebut, pendiri Partai Hanura ini juga memenuhi undangan tokoh agama Tanggul Habib Haidar bin Sholeh untuk menghadiri peringatan haul ayahnya, Habib Sholeh di pondok pesantren di Kecamatan Tanggul, Jember.

Menurut Wiranto, selain konsolidasi partai, kunjungannya kali ini juga untuk mengenalkan Partai Hanura kepada masyarakat Jember dan Bondowoso. “Saya tidak ingin masyarakat salah persepsi soal partai Hanura dan memahami bahwa partai ini berbuat nyata untuk kesejahteraan rakyat, bukan untuk kekuasaan,” katanya.

Soal target pemenangan pemilu di wilayah Tapal Kuda, Wiranto menegaskan, partainya tidak melakukan pembedaan wilayah dan prioritas. “Yang penting Hanura ingin dikenal masyarakat, agar masyarakat percaya bahwa Partai Hanura tidak cari jabatan, hura-hura, dan sebagainya,” katanya.

Partai Hanura ingin membuka hati nurani masyarakat dan para pemimpin dalam berpikir, bersikap, dan bertindak. Soal target perolehan suara, Wiranto tidak menargetkan angka. “Sebanyak-banyaknya,” katanya.* (Rth)

Hello world!

pachanuradentim — Wed, 15 Oct 2008 07:06:53 +0000

Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!