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

Cara menemukan angka yang lompat dari angka yang berurutan

Jadi ceritanya begindang....
Ane dah bikin program penjualan dan masing - masing marketing punya hak akses untuk membuat konfirmasi permintaan,
So karena marketingnya banyak, dan ada user yang bikin terus hapus so jadinya counter penomoran jadi lompat lompat dan gak urut.

Nah saat ada marketing yang bikin konfirmasi trus kemudian gak jadi dan di hapus so bikin ada nomor yang bolong dan lompat,
untuk mengatasinya bikin script ini nih di PHP dan codeignitternya

untuk pakai bahasa lainnya misal c++, java, python, c#
kunjungi link ini ya...

https://www.geeksforgeeks.org/find-missing-element-in-a-sorted-array-of-consecutive-numbers/

okkay untuk yang di PHP berikut scriptnya
okkay pertama di controller helper bikin ini nih

 $arr1 =  {1,2,3,5,6,7,8};
 $n = count($arr1);
$xx = findMissing($arr2, $n);

dan di helper codeignitter bikin function ini

function findMissing($arr, $n)
{
    $l = 0;
    $h = $n - 1;
    while ($h > $l) {
        $mid = floor($l + ($h - $l) / 2);
        // Check if middle element is consistent 
        if ($arr[$mid] - $mid == $arr[0]) {
            // No inconsistency till middle elements 
            // When missing element is just after 
            // the middle element 
            if ($arr[$mid + 1] - $arr[$mid] > 1)
                return $arr[$mid] + 1;
            else {
                // Move right 
                $l = $mid + 1;
            }
        } else {
            // Inconsistency found 
            // When missing element is just before 
            // the middle element 
            if ($arr[$mid] - $arr[$mid - 1] > 1)
                return $arr[$mid] - 1;
            else {
                // Move left 
                $h = $mid - 1;
            }
        }
    }
    // No missing element found 
    return 0;
}


So kalau $xx di var dump muncul deh hasilnya 4
sekian...

Cara scan image gambar barcode menggunakan PHP di UBUNTU menggunakan PHPZxing

Mumpung kerjaan gak terlalu overload sekarang ak mau nulis nulis tentang cara scan image gambar barcode pakai PHP, ada ide dari bos kalau dia pingin semua PR (purchase requisiton) atau pembelian lah semua datanya di kasih barcode dulu di kantor pusat, trus untuk memastikan barang tersebut sampai ke cabang dengan selamat, maka cabang harus scan barcode barang tersebut so barang tersebut udah benar-benar sampai ke customer. Sebenernya ini pasti mudah sekali kalau pakai apps, tetapi ternyata pakai php juga bisa, tapi agak ribet sih karena barcode harus di foto kemudian di upload ke server baru dah hasil barcodenya bisa ke scan...

Berhubung library ini harus execute java dan ane ngubek ngubek  pakai xampp di windows dan gak berhasil terpaksa deh harus pakai ubuntu, cz tutorial yang ak dapatkan pakai linux.

berikut ini tutorial yang ak dapatkan
https://github.com/dsiddharth2/php-zxing

okkay gak pakai lama lagi berikut ini step-stepnya ...

1. Install dulu ubuntu web server, php dan kroni kroninya juga framework codeignitter
2. Berhubung ane pakai codeignitter so install phpzxing nya pakai composer so diisntall dengan terminal composer require dsiddharth2/php-zxing
3. Okkay setelah library selesai tinggal bikin file cek.php  di controller nya codeignitter

defined('BASEPATH') or exit('No direct script access allowed');

use PHPZxing\PHPZxingDecoder;

class cek extends CI_Controller
{

     public function index()
    {
                $decoder        = new PHPZxingDecoder();
                $data           = $decoder->decode('./assets/jpg_temp/barcode.jpg');  //lokasi file jpg
                if ($data->isFound()) {
                    $b = $data->getImageValue();

                    //misal pingin di var dump langsung hasil scan barcodenya
                    var_dump($b);
                    die();

       }
 }
?>


Simpel banget sih, tinggal jalankan url http://localhost/latihan/cek udah ketahuan hasil scan barcodenya

kalau ada yang tau ya cara nya biar bisa di windows, karena kalau sy lihat sebenarnya ada settingan

$decoder->setJavaPath('/your/path/to/java');

buat execute java nya, tapi ane gagal saat 

nyoba di windows berkali kali gak 

berhasil...

Sekian thanks.....