RE: [Programmer-VB] Penentuan cost dg metode LIFO

Thu, 09 Feb 2006 16:50:49 -0800

Title: Message
kayaknya kurang perintah Rek.MoveNext deh sebelum Loop .. kalo ngga ntar bisa overflow
 
------------------------------------------------------

Heru Rahadyan

----------------------------------------------------------------------------------

 

-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of su_betmen nusaputra

alo mas,
sebelumnya saya mau tanya dulu nih, apakah return penjualan ini dimasukkan ke pos tersendiri dgn nama retur penjualan atau menggunakan jurnal balik atas penjualan sebelumnya?
 
kmdn, bagaimana struktur data yg digunakan serta bagaimana pencatatan (data base) utk proses penjualannya?
 
saran saya (CMIIW) :
1. Cari Data Penjualan an. Customer A di sortir Desc berdasarkan tgl
2. Loop dr Rek 1 s.d. seterusnya sbb :
Dim JumBrg as Long
Dim JumHarga as Double
 
Do While Not Rek.EOF
   if  Rek.Fields!Quantity <= (JumPengembalian - JumBrg) then
      JumBrg = JumBrg + Rek.Fields!Quantity  
      JumHarga = JumHarga + Rek.Fields!Quantity * Rek.Fields!Price
   else
      JumBrg = JumBrg + (JumPengembalian - JumBrg)
      JumHarga = JumHarga + (JumPengembalian - JumBrg) * Rek.Fields!Price
      Exit Sub
   End If
Loop

"Farid Thoyib (Indo)" <[EMAIL PROTECTED]> wrote:
Bisa bantu ngasih pandangan tentang logika penentuan cost dengan metode LIFO nggak Boss?
Jadi begini, saya dikasih dua data sbb:

Customer A membeli barang XXX sbg berikut:
Tgl             quantity        price per pcs           total price
-1/1/06         20 pcs          10                      200
-5/1/06         15 pcs          15                      225
-10/1/06        5   pcs         20                      100
=====================================
Total           40 pcs                                  525
15/1/06 customer ybs mengembalikan 27 pcs.
Saya diminta menghitung berapa nilai barang yang dikembalikan, dengan metode LIFO (Last In First Out)sbb:

        5 pcs   x       20      =       100
        15 pcs  x       15      =       225
        7 pcs   x       10      =       70
=========================
Total   27pcs                           395
Masalahnya adalah jumlah item barangnya sangat banyak, dan jumlah pembeliannya bisa ratusan sehingga saya mau mengautomate proses tersebut. Shg kalau user mengetikkan kode barang dan jumlah yang dikembalikan, akan muncul perhitungannya.
Gimana Boss?
Tengkiu dan Tengkleng….
FARID


Wahana Programmer Groups Links

<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
    http://wahanaprogrammer.net

<*> Untuk menghubungi owner milis ini, kirim email ke:
    [EMAIL PROTECTED]

<*> Konsultasi pemrogramman bisa chat disini:
    Yahoo! Messenger: wahanaprogrammer



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke