Oke problem sudah solved dengan menggunakan table tempolari........ Mas Nurman makasih atas ide nya....
Rgds ----- Original Message ----- From: Nurmansyah Burhan <nrh_...@yahoo.co.id> To: Programmer-VB@yahoogroups.com Date: Sat, 24 Oct 2009 16:44:09 +0800 (SGT) Subject: RE: [Programmer-VB] Cara ngambil laba secara FIFO > Pak, kalo ada kode barangnya mungkin sperti ini: > Table1 = Select * From ..... Where [Kode_Barang] = KodeBarang And [Tanggal] > <= 23/02/2009 > Selanjutanya: > A = 0 > Do While Not Table1.Eof > A = A + Harga Jual - Harga Pembelian > Table1.MoveNext > Loop > ? A > > Saya hanya memperkirakan kasus bapak, kalo salah saya mohon maaf > > > --- Pada Sab, 24/10/09, Frangky Bunga <franklin...@gmail.com> menulis: > > Dari: Frangky Bunga <franklin...@gmail.com> > Judul: RE: [Programmer-VB] Cara ngambil laba secara FIFO > Kepada: programmer-VB@yahoogroups.com > Tanggal: Sabtu, 24 Oktober, 2009, 3:26 PM > > > > > > > > > > > > > Pak, aku ngga ngerti kasusnya Pak Toni. From: Toni R > [mailto:toni. rah...@gmail. com] > Sent: 07 Oktober 2009 11:59 > To: Programmer-VB@ yahoogroups. com > Subject: [Programmer- VB] Cara ngambil laba secara FIFO > > > Dear all > ada yang tahu logika cara menghitung selisih harga pembelian - penjualan > secara fifo ? contoh... pembelian 1 > tanggal : 20/2/2009 > jumlah : 10 > harga : 10.000 pembelian 2 > tanggal : 22/2/2009 > jumlah : 5 > harga : 11.000 pembelian 3 > tanggal : 23/2/2009 > jumlah : 8 > harga : 9.000 Jika ada penjualan pada tanggal 23/2/2009 sebanyak 17 dengan > harga jual 13.000 > maka perhitungannya : laba = penjualan - pembelian > laba = (10 x 13.000 - 10 x 10.000) + (5 x 13.000 - 5 x 11.000) + (2 x 13.000 > - 2 x 9.000) > laba = 30.000 + 10.000 + 8.000 > laba = 48.000 ada yang tahu perhitungan secara coding atau querry nya > ? Thanks sebelumnya > > > > > > > > > > > > > > > > > > > > > > > > > > > > > Terhubung langsung dengan banyak teman di blog dan situs pribadi Anda? > Buat Pingbox terbaru Anda sekarang! http://id.messenger.yahoo.com/pingbox/ > ------------------------------------ Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: wahana.program...@yahoo.co.id <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahana.programmer Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/Programmer-VB/join (Yahoo! ID required) <*> To change settings via email: mailto:programmer-vb-dig...@yahoogroups.com mailto:programmer-vb-fullfeatu...@yahoogroups.com <*> To unsubscribe from this group, send an email to: programmer-vb-unsubscr...@yahoogroups.com <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
