Arsip: Menentukan harga Pembelian

more 12 years ago
selviani_id
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

more 12 years ago
alvonz
senin : beli 1 pcs harga beli 1000 selasa : beli 5 pcs harga beli 1500 rabu : beli 10 pcs harga beli 1250yang di atas itu kita beli ato jual?? kalo berdasarkan tgl pembelian di urut gimana?

more 12 years ago
selviani_id
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.

more 12 years ago
selviani_id
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?

more 12 years ago
selviani_id
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?

more 12 years ago
zones
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
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 6 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 7 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 7 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- [ask] repair table mysql dengan delphi
by mario_budhi in MySQL more 14 years ago - Interoperabilitas, bingung maksudnya.
by reza in Enginering more 13 years ago - Encrypt HTML Document......
by fissas in Kritik & Saran more 13 years ago - cara menggunakan comport
by exo24 in Enginering more 14 years ago - kirim file / upload file ke komputer lain
by doditali in Tip n Trik Pemrograman more 15 years ago - kode ascii
by tamara in Delphi.NET more 11 years ago - TSQLQuery Delphi 2010
by h4de5 in MsSQL more 10 years ago - ada yang tau syntax memasukkan data real ke tabel sql ?
by micrens in Tip n Trik Pemrograman more 13 years ago - Syntax RIGHT, LEFT dan MID pada delphi 7
by ari_volker in Tip n Trik Pemrograman more 13 years ago - disable regedit...help......
by adhisyanda in Tip n Trik Pemrograman more 11 years ago