Membuat procedure logika penghitungan HPP dengan metode FIFO untuk penjualan dan pembelian di database oracle

Okkay guys pagi ini ane pingin nulis nulis dari project yang udah ane bikin yaitu bikin laporan FIFO sehingga ketahuan laba rugi penjualan secara real, okkay untuk skemanya sperti ini

ada tabel berikut
tabel_penjualan : berisi tabel penjualan
tabel_pembelian : berisi tabel pembelian
tabel_fifo : berisi tabel fifo

okkay sebagai contoh misal nama barangnya sama ya...
isi tabel pembelian
No.           Tanggal           Nama barang Jumlah   harga
PMB1       01/01/2020    Meja                10          10.000
PMB2       02/01/2020    Meja                5            12.000
PMB3       03/01/2020    Meja                 3            11.000
PMB4       04/01/2020    Meja                4             10.000

isi tabel penjualan
No.          Tanggal           Nama barang Jumlah   harga
PNJ1       05/01/2020    MEJA             8            15.000
PNJ2       06/01/2020    Meja                4            16.000
PNJ3       07/01/2020    Meja                10          17.000


Okkay dari data tersebut di atas terlihat penentuan hppnya sbagai berikut
tabel_fifo
No. No.Trans  Nama  Jml   harga    no beli   hargabeli  laba     ket
1       PNJ1      Meja     8    15.000  PMB1   10.000       5.000
2      PNJ2       Meja     2    16.000  PMB1   10.000       6.000  
3       PNJ2      Meja    2     16.000  PMB2   12.000    4.000   pecah1
4       PNJ3      Meja    3     17.000  PMB2   12.000     5.000
5       PNJ3      Meja    3     17.000  PMB3   11.000     6.000   pecah1
6       PNJ3      Meja    4     17.000  PMB4   10.000     7.000   pecah2

yups seperti inilah data yang diharapkan, moga-moga paham knapa bisa seperti ini okkay saya coba jelaskan sedikit.
PNJ1 kan jumlah nya 8, berhubung PMB1 jumlahnya 10 jadi langsung di simpan di record pertama, so status PMB1 sisa 2
PNJ2 jumlahnya 4 disini PMB1 kan sisanya tinggal 2 jadi PNJ2 harus dipecah PNJ2 pecah yang pertama mengambil harga dari dari PMB 1 sehigga tersimpan record yg ke2, ini berarti PNJ2 masih sisa 2 dan akan di ambil dari harga PNJ2 di ambil harga dari PMB2 dan tersimpan record ke 3
PNJ3 jumlahnya 10, sedangkan sisa dari PMB2 adalah 3 biji.. maka yang tersimpan :
 Jumlah 10
PMB2 sisa 3 biji   ---->>tersimpan ke record ke 4
PMB3 ada 3 biji   ---->>tersimpan ke record ke 5
PMB4 ada  4 biji  ---->>tersimpan ke record ke 6

okkay logikanya begini

1. Sebaiknya tabel pembelian ditaruh dulu di temproray karena perlu update jumlahnya
2. Looping tabel_pnj
3. Looping menggunakan while, sampai jml penjualan = 0 langsung keluar
4. Looping tabel_pmb
5. Cari pembelian pertama, kurangkan jumlah pembelian pertama jika jml pembelian lebih besar penjualan pertama maka insert ke tabel fifo dan selesai. kemudian update jumlah pembelian menjadi 2 (karena sisa 10-8 ada 2) So ini tercetak record yang pertama, dan update jml_penjualan, karena jml penjualan = 0  maka keluar
6. Jika pembelian lebih kecil dari  penjualan maka cetak record yang ke 2 kemudian update jml_penjualan PNJ2 sisa 2 maka karena PNJ masih ada sisa akan mencari loopingan pembelian yang ke dua dan akan mengurangkan jml pembelian yang ke2 dengan sisa PNJ.
7. selesai.... 

contoh procedure di oracle

create or replace procedure DIKA_FIFO_PROSES() is
SISAPECAH NUMBER;
JMLPECAH NUMBER;
JML_PENJ NUMBER;
IS_PECAH NUMBER;
KET STRING(10);
begin
for w in (SELECT * FROM TABEL_PENJUALAN A ORDER BY A.TGL_TRANSAKSI ASC)
LOOP
IS_PECAH = 0;    --untuk cek apakah sudah dipecah atau belum--
 WHILE XXX <> 0  --loop hingga jumlah penjualan =0 --
 LOOP
    FOR P IN (SELECT * FROM (SELECT * FROM TABEL_PEMBELIAN T WHERE
                       T.ID_BARANG = W.ID_BARANG
                       ORDER BY TGL_TRANSAKSI, ID_PEMBELIAN ASC
                        ) WHERE ROWNUM = 1)
    LOOP
       SISA_PECAH =  P.JML - W.JML; --kurangkan jumlah pembelian ke jml penj

       IF IS_PECAH = 0 THEN
                JML_PENJ = W.JUMLAH;  --jika belum di pecah maka jml = sesuai tabel penj
       ELSE
                 JML_PENJ = SISAPECAH; --jika sudah di pecah maka jml = sisapecah
       END IF;

   KET = CONCAT("KET" + IS_PECAH);
   IF IS_PECAH = 0 THEN --jika belum di pecah --
          INSERT INTO TABEL_FIFO (ID_PENJ,ID_BRG,JML,HARGA,ID_BELI,HRG_BELI) VALUES (W.ID_PENJ,W.ID_BRG,JML_PENJ,W.HARGA,P.ID_BELI,P.HRG_BELI);
       ELSE     
          INSERT INTO TABEL_FIFO (ID_PENJ,ID_BRG,JML,HARGA,ID_BELI,HRG_BELI,KET) VALUES (W.ID_PENJ,W.ID_BRG,JML_PECAH,W.HARGA,P.ID_BELI,P.HRG_BELI,KET);
END;

    IF IS_PECAH <> 0 THEN --jika sudah di  pecah --
         IS_PECAH = IS_PECAH = 1;
    END  IF;

    IF JML_PENJ> 0 THEN
          UPDATE TABEL_PEMB SET JML = 0 WHERE P.ID = ID;
             XXX := 0;
                      
                 END IF;
                      
                 IF JML_PENJ = 0 THEN 
                        UPDATE TABEL_PEMB SET JML = 0 WHERE P.ID = ID;
                      XXX := 0;
                    
                 END IF;
                   
                    
                 IF JML_PENJ < 0 THEN          
                   UPDATE TABEL_PEMB SET JML = JML_PENJ WHERE P.ID = ID;
                   XXX := SISAPECAH;
                   MPECAH := MPECAH +1;
                 END IF;
                 END LOOP;
            END LOOP; --loop while


mmm sayangnya saya belum ngetest script di atas cz itu ringkasan dari project yang sudah saya kerjakan. Mohon maaf ya kalau error

sekian
Terima Kasih