MInta tolong pencerahannya dong, cara menentukan harga beli barang saat terjadi transaksi penjualan : contoh: senin : beli 1 pcs harga beli 1000 selasa : beli 5 pcs harga beli 1500 rabu : beli 10 pcs harga beli 1250 Kamis : terjadi transaksi jual 10 pcs. Gimana nentuin harga belinya menggunakan metode fifo dan menghabiskan barang yg pertama dibeli? apa yg salah dengan kode ini : qtys:=qty; hBeli:=0; n:=tTempSBarang.RecordCount; tTempSBarang.Last; while n>=1 do begin nSel:=tTempSBarang['TERIMA']-tTempSBarang['STOCK']; if nSel=0 then begin if n=1 then hbeli:=hbeli+(tTempSBarang['HARGABELI']qtys); n:=n-1; tTempSBarang.Prior; end else begin if nSel<qtys then begin hbeli:=hbeli+(tTempSBarang['HARGABELI'] nsel); qtys:=qty-nSel; end else if nSel>=qtys then begin hbeli:=hbeli+(tTempSBarang['HARGABELI']*qtys); n:=1; end; n:=n-1; tTempSBarang.Prior; end; end; Thanks

senin : beli 1 pcs harga beli 1000 selasa : beli 5 pcs harga beli 1500 rabu : beli 10 pcs harga beli 1250

yang di atas itu kita beli ato jual?? kalo berdasarkan tgl pembelian di urut gimana?

saya urut berdasarkan id, terus di cari yg terakhir dulu. itu harga beli-nya. maunya pas transaksi penjualan harga beli dan harga jualnya masuk ke tabel histori, biar gampang nyari keuntungan bersih-nya.

ada cara yg lebih simple g buat nyari harga beli barang tersebut. misal : kalo jual 10 berarti 1 pcs X 1000 = 1000 (stock brg pertama beli) 5 pcs x 1500 = 5000 (stock brg pembelian kedua) sisa 4 pcs x 1250 = 5000 (stock brg pembelian ketiga) berarti harga belinya per pcs-nya menjadi 5000+1500+1000/10 pcs = 1350/pcs..... nah harga ini yg sy cari dan dimasukin ke table histori penjualan. gimana ya code programnya?

salah denk yg bener misal : kalo jual 10 berarti 1 pcs X 1000 = 1000 (stock brg pertama beli) 5 pcs x 1500 = 7500 (stock brg pembelian kedua) sisa 4 pcs x 1250 = 5000 (stock brg pembelian ketiga) berarti harga belinya per pcs-nya menjadi 5000+7500+1000/10 pcs = 1350/pcs..... nah harga ini yg sy cari dan dimasukin ke table histori penjualan. gimana ya code programnya?

klo dilihat diatas kamu langsung potong dari program yahc ?? klo dari database bisa ndak, jadinya query semua barang yang masuk di kurangin semua barang yang keluar kan ketemu tuch hasil akhirnya. Nanti utk locking kamu proses seperti tutup buku utk memasukkan sisa barangnya. Unutk perhitungan 1350, prosesnya sich hampir sama, jadi kamu tinggal ambil dari record yang keluar databasenya saja lalu dihitung dech menurut saya itu lebih mudah. hee.... :D