Saya belum menemukan cara dengan query, sampai sekarang untuk maksud
seperti ini (mengeluarkan running total) saya gunakan temporary tabel.
Di SQL Server saya gunakan kursor.
Dari hasil query yang menghasilkan kode barang, tgl, masuk dan keluar
akan saya masukkan ke dalam temp. table dengan field sisa default 0,
lalu dengan operasi recordset, nilai sisa dihitung kembali dengan cara
looping:
dim prevSisa as integer
rs.movefirst
do while not rs.eof
rs("sisa") = prevSisa + rs("masuk") - rs("keluar")
prevSisa = rs("sisa")
rs.movenext
loop
temp table inilah yang ditampilkan di grid.
Lebih mudah jika menampilkannya di report, karena pengolahan field
"sisa" tidak perlu diolah di query, tetapi memanfaatkan calculated
field dari reportnya.
Aksan Kurdin
On 7/16/05, Rikky Lau <[EMAIL PROTECTED]> wrote:
> thank's atas sarannya
> tapi kode ini hanya bisa menampilkan posisi akhir
> stock saja.
>
> maksud aku bagaimana kita bisa melihat history barang
> dalam kartu stock tersebut.
> misal
> nama barang : pensil
> tgl masuk keluar sisa
> 1-1-05 100 5 95
> 2-1-05 0 15 80
> 3-1-05 0 50 30
> 4-1-05 100 0 130
> 5-1-05 0 20 110
>
> jadi misalkan kita mau melihat stock dari tanggal 1
> s.d tgl 3 yang diinginkan adalah
> tgl masuk keluar sisa
> 1-1-05 100 5 95
> 2-1-05 0 15 80
> 3-1-05 0 50 30
>
> tolong donk para jawara2 vb,
> apa tidak ada rekan2 yang pernah buat seperti ini ?
>
> trim's untuk bantuannya
>
> salam
> rikky
>
>
>
>
> --- Hotpop <[EMAIL PROTECTED]> wrote:
>
> > buat lagi tabel kartu stoknya ex: kartustok
> > ketika penjualan terjadi masukan ke tabel kartustok
> > tandai status out.
> > ketika penerimaan pembelian terjadi masukan ke
> > kartustok tandai status in.
> > field di kartustok kira2 begini.
> > no_bukti tgl_bukti kd_bar
> > nm_bar qty_in qty_out status
> > 1 1/01/2005 001
> > AAA 5 0 in
> > (ini dari pembelian)
> > 2 1/01/2005 001
> > AAA 0 3 out
> > (ini dari penjualan)
> >
> > nah dengan tabel kartustok diatas gampang kan
> > membuat kartu stok.
> > buat aja di crystal report di group berdasarkan
> > kd_bar, nanti kira2 hasilnya begini
> >
> > kd_bar nm_bar qty_in
> > qty_out saldo_akhir (rumus in-out)
> > 001 AAA 5
> > 3 2
> >
>
>
>
>
> ____________________________________________________
> Start your day with Yahoo! - make it your home page
> http://www.yahoo.com/r/hs
>
>
>
> Untuk keluar dari millis ini, kirim email kosong ke:
> [EMAIL PROTECTED]
>
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
>
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
