<?php

/*******************************************************************

    App. Name     : INVENTORY AND SALES SYSTEMS
    Module        : /apps/php/repo/jual_analisa.php
    Desc.         : PHP - Laporan Analisa Penjualan
    Created By    : Siau Pheng (siaupheng@3fonia.com).
    Created Date  : May 9th, 2013.
    Last Modified : October 4th, 2025.

    (c) 2013 - 2025, 3FONIA Software; WWW.3FONIA.COM.

*******************************************************************/

require_once(__DIR__."/../../../../../vendor/autoload.php");
require_once(__DIR__."/../func.iss.php");

use siaupheng\fonia3\DB\MySQL;
use siaupheng\fonia3\Web\Param;
use siaupheng\fonia3\Web\Form;
use siaupheng\fonia3\Data\SimpleXLS;

$db = $db ?? new MySQL();
$ajson = [];
$data = Param::Get("data");
$id_cab = Param::Get("CabID", 0);

if (in_array($data, ["print","export"])) {
    $tipe = Param::Get("Tipe", "V"); // V or R or M
    $id_sup = Param::Get("SupID", 0);
    $id_grup = Param::Get("Grup_InvID", 0);
    $m_urut = Param::Get("Urut", "B");
    $tglfrom = Param::Get("Tgl_From");
    $tglto = Param::Get("Tgl_To");
    $jum_hari = tgl_range_hari($tglfrom, $tglto, true);

    $nama_sup = ""; $nama_grup = "";
    if ($id_sup>0) {
        $db->Query("SELECT Nama_Sup Nama FROM para_supplier WHERE SupID='".$id_sup."' LIMIT 1");
        if ($db->Next()) $nama_sup = $db->Row("Nama");
    }
    if ($id_grup>0 && $id_sup==0) {
        $db->Query("SELECT Nama_Grup Nama FROM inv_produk_grup WHERE Grup_InvID='".$id_grup."' LIMIT 1");
        if ($db->Next()) $nama_grup = $db->Row("Nama");
    }

    // generate report header
    $tglheader = $tglfrom;
    if ($tglfrom!==$tglto) $tglheader .= " S/D ".$tglto;
    $tglfrom = tgl_sql2str($tglfrom);
    $tglto = tgl_sql2str($tglto);

    $tjoin = "";
    $tsql = " D.Jumlah <> 0";
    $tsql .= ($id_grup>0 && $id_sup==0) ? " AND P.Grup_InvID=".$id_grup : "";
    if ($id_sup>0) {
        $tsql .= " AND U.SupID='".$id_sup."'";
        $tjoin .= " LEFT JOIN inv_produk_sup U ON (U.InvID=D.InvID AND U.SupID='".$id_sup."')";
    }
    $tsql2 = ($id_cab==0) ? "" : " AND CabID='".$id_cab."'";
    $torder = ($m_urut=="B") ? " P.Nama_Produk" : " D.Jumlah";

    if ($tipe=="V") {
	    $db->Query("SELECT P.Nama_Produk,P.Satuan_Normal,P.Satuan_Stok,D.Jumlah,S.Stok,P.Qty Kali FROM (SELECT InvID,SUM(-Stok) Jumlah FROM inv_detail WHERE (Tgl_Ref BETWEEN '".$tglfrom."' AND '".$tglto."') AND NotaID IN (5,6)".$tsql2." GROUP BY InvID) D LEFT JOIN (SELECT InvID,SUM(Stok) Stok FROM inv_detail WHERE Tgl_Ref<='".$tglto."'".$tsql2." GROUP BY InvID) S ON (D.InvID=S.InvID) LEFT JOIN vi_inv_produk2 P ON (D.InvID=P.InvID)".$tjoin." WHERE ".$tsql." ORDER BY".$torder);
    } else if ($tipe=="R") {
        $db->Query("SELECT P.Nama_Produk,P.Satuan_Normal,P.Satuan_Stok,D.Jumlah,S.Stok,P.Qty Kali FROM (SELECT InvID,SUM(-Qty*Harga_Jual) Jumlah FROM inv_detail WHERE (Tgl_Ref BETWEEN '".$tglfrom."' AND '".$tglto."') AND NotaID IN (5,6)".$tsql2." GROUP BY InvID) D LEFT JOIN (SELECT InvID,SUM(Stok) Stok FROM inv_detail WHERE Tgl_Ref<='".$tglto."'".$tsql2." GROUP BY InvID) S ON (D.InvID=S.InvID) LEFT JOIN vi_inv_produk2 P ON (D.InvID=P.InvID)".$tjoin." WHERE ".$tsql." ORDER BY".$torder);
    } else if ($tipe=="M") {
        $torder = ($m_urut=="M") ? " Margin" : $torder;
        $db->Query("SELECT P.Nama_Produk,P.Satuan_Normal,P.Satuan_Stok,D.Margin,D.Jumlah,S.Stok,P.Qty Kali FROM (SELECT InvID,((SUM(-Qty*(Harga_Jual-Harga_Beli))*100)/SUM(-Qty*Harga_Jual)) Margin,SUM(-Qty*(Harga_Jual-Harga_Beli)) Jumlah FROM inv_detail WHERE (Tgl_Ref BETWEEN '".$tglfrom."' AND '".$tglto."') AND NotaID IN (5,6)".$tsql2." GROUP BY InvID) D LEFT JOIN (SELECT InvID,SUM(Stok) Stok FROM inv_detail WHERE Tgl_Ref<='".$tglto."'".$tsql2." GROUP BY InvID) S ON (D.InvID=S.InvID) LEFT JOIN vi_inv_produk2 P ON (D.InvID=P.InvID)".$tjoin." WHERE ".$tsql." ORDER BY".$torder);
    }
}

if ( $data == "print" ) {
    $pre = new \siaupheng\fonia3\Printer\PrintHTML();

    if ($tipe=="V") {
        Report_Header("REKAP VOLUME PENJUALAN", "Periode : ".$tglheader);
        $pre->add_field("No.",5,"C");
        $pre->add_field("Nama Barang",120);
        $pre->add_field("Jumlah",80,"R");
        $pre->add_field("Mingguan",80,"R");
        $pre->add_field("Sisa Stok",80,"R");

        if ($id_sup>0) $pre->add_span(array("Nama Supplier : ".$nama_sup,5,"L,NB"));
        if ($id_grup>0 && $id_sup==0) $pre->add_span(array("Grup Barang : ".$nama_grup,5,"L,NB"));

        $nomor = 0;
	    while ($db->Next()) {
            $total = $db->Row("Jumlah",0);
            $mg_total = $total / ($jum_hari/7);
            $kali = $db->Row("Kali",0);
            $stok = Format_Stok($total, $kali, $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $mg_stok = Format_Stok($mg_total, $kali, $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $ss_stok = Format_Stok($db->Row("Stok"), $kali, $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
		    $pre->add_value(++$nomor, $db->Row("Nama_Produk"), $stok, $mg_stok, $ss_stok);
	    }
    } else if ($tipe=="R") {
        Report_Header("REKAP RUPIAH PENJUALAN", "Periode : ".$tglheader);
        $pre->add_field("No.",5,"C");
        $pre->add_field("Nama Barang",80);
        $pre->add_field("Jumlah",20,"R","rupiah");
        $pre->add_field("Mingguan",20,"R","rupiah");
        $pre->add_field("Sisa Stok",80,"R");

        if ($id_sup>0) $pre->add_span(array("Nama Supplier : ".$nama_sup,5,"L,NB"));
        if ($id_grup>0 && $id_sup==0) $pre->add_span(array("Grup Barang : ".$nama_grup,5,"L,NB"));

        $nomor = 0; $tot_rup = 0; $tot_mg = 0;
        while ($db->Next()) {
            $mg_avg = ($db->Row("Jumlah",0)>0) ? $db->Row("Jumlah",0) / ($jum_hari/7) : 0;
            $tot_rup += $db->Row("Jumlah");
            $tot_mg += $mg_avg;
            $ss_stok = Format_Stok($db->Row("Stok"), $db->Row("Kali",0), $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $pre->add_value(++$nomor, $db->Row("Nama_Produk"), $db->Row("Jumlah"), $mg_avg. $ss_stok);
        }
        $pre->add_span(array("TOTAL",2,"R,B"),array(rupiah($tot_rup),1,"R,B"),array(rupiah($tot_mg),1,"R,B"),array("",1,"B"));
    } else if ($tipe=="M") {
        Report_Header("REKAP MARGIN PENJUALAN", "Periode : ".$tglheader);
        $pre->add_field("No.",5,"C");
        $pre->add_field("Nama Barang",80);
        $pre->add_field("Jumlah",20,"R","rupiah");
        $pre->add_field("Margin (%)",10,"R","rupiah2");
        $pre->add_field("Mingguan",20,"R","rupiah");
        $pre->add_field("Sisa Stok",80,"R");

        if ($id_sup>0) $pre->add_span(array("Nama Supplier : ".$nama_sup,6,"L,NB"));
        if ($id_grup>0 && $id_sup==0) $pre->add_span(array("Grup Barang : ".$nama_grup,6,"L,NB"));

        $nomor = 0; $tot_rup = 0; $tot_mar = 0; $tot_mg = 0;
        while ($db->Next()) {
            $mg_avg = ($db->Row("Jumlah",0)>0) ? $db->Row("Jumlah",0) / ($jum_hari/7) : 0;
            $tot_rup += $db->Row("Jumlah");
            $tot_mar += $db->Row("Margin");
            $tot_mg += $mg_avg;
            $ss_stok = Format_Stok($db->Row("Stok"), $db->Row("Kali",0), $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $pre->add_value(++$nomor, $db->Row("Nama_Produk"), $db->Row("Jumlah"), $db->Row("Margin"), $mg_avg, $ss_stok);
        }
        $pre->add_span(array("TOTAL",2,"R,B"),array(rupiah($tot_rup),1,"R,B"),array(rupiah2($tot_mar),1,"R,B"),array(rupiah($tot_mg),1,"R,B"),array("",1,"B"));
    }
    $pre->add_stamp(1, true);
    $pre->show();

} else if ( $data == "export" ) {
    $xls = new SimpleXLS([
        'title'=>"Data Analisa Penjualan",
        'desc'=>"Export Data Analisa Penjualan"
    ]);
    $xls->add_header("<b>".$_SESSION['__WEB_APP']['REG_NAME']."</b>");

    if ($tipe=="V") {
        $xls->add_header("<b>DATA REKAP VOLUME PENJUALAN</b>");
        $xls->add_header("Periode : ".$tglheader);

        $xls->add_field("No.", 5, "C");
        $xls->add_field("Nama Barang", 80, "L");
        $xls->add_field("Jumlah", 20, "R,N");
        $xls->add_field("Mingguan", 20, "R,N");
        $xls->add_field("Sisa Stok", 20, "R,N");
        $xls->add_sheet("".str_replace("S/D","-",$tglheader), true);

        if ($id_sup>0) $xls->add_span(array("Nama Supplier : ".$nama_sup,5,"L,B"));
        if ($id_grup>0 && $id_sup==0) $xls->add_span(array("Grup Barang : ".$nama_grup,5,"L,B"));

        $nomor = 0;
        while ($db->Next()) {
            $total = $db->Row("Jumlah",0);
            $mg_total = $total / ($jum_hari/7);
            $kali = $db->Row("Kali",0);
            $stok = Format_Stok($total, $kali, $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $mg_stok = Format_Stok($mg_total, $kali, $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $ss_stok = Format_Stok($db->Row("Stok"), $kali, $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $xls->add_value(++$nomor, $db->Row("Nama_Produk"), $stok, $mg_stok, $ss_stok);
        }
    } else if ($tipe=="R") {
        $xls->add_header("<b>DATA REKAP RUPIAH PENJUALAN</b>");
        $xls->add_header("Periode : ".$tglheader);

        $xls->add_field("No.", 5, "C");
        $xls->add_field("Nama Barang", 80, "L");
        $xls->add_field("Jumlah", 20, "R,N");
        $xls->add_field("Mingguan", 20, "R,N");
        $xls->add_field("Sisa Stok", 20, "R,N");
        $xls->add_sheet("".str_replace("S/D","-",$tglheader), true);

        if ($id_sup>0) $xls->add_span(array("Nama Supplier : ".$nama_sup,5,"L,B"));
        if ($id_grup>0 && $id_sup==0) $xls->add_span(array("Grup Barang : ".$nama_grup,5,"L,B"));

        $nomor = 0; $tot_rup = 0; $tot_mg = 0;
        while ($db->Next()) {
            $mg_avg = ($db->Row("Jumlah",0)>0) ? $db->Row("Jumlah",0) / ($jum_hari/7) : 0;
            $tot_rup += $db->Row("Jumlah");
            $tot_mg += $mg_avg;
            $ss_stok = Format_Stok($db->Row("Stok"), $db->Row("Kali",0), $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $xls->add_value(++$nomor, $db->Row("Nama_Produk"), $db->Row("Jumlah"), $mg_avg, $ss_stok);
        }
        $xls->add_span(array("TOTAL",2,"R,B"),array($tot_rup,1,"R,N,B"),array($tot_mg,1,"R,N,B"),array("",1,"B"));
    } else if ($tipe=="M") {
        $xls->add_header("<b>DATA REKAP MARGIN PENJUALAN</b>");
        $xls->add_header("Periode : ".$tglheader);

        $xls->add_field("No.", 5, "C");
        $xls->add_field("Nama Barang", 80, "L");
        $xls->add_field("Jumlah", 20, "R,N");
        $xls->add_field("Margin (%)", 10, "R,N");
        $xls->add_field("Mingguan", 20, "R,N");
        $xls->add_field("Sisa Stok", 20, "R,N");
        $xls->add_sheet("".str_replace("S/D","-",$tglheader), true);

        if ($id_sup>0) $xls->add_span(array("Nama Supplier : ".$nama_sup,6,"L,B"));
        if ($id_grup>0 && $id_sup==0) $xls->add_span(array("Grup Barang : ".$nama_grup,6,"L,B"));

        $nomor = 0; $tot_rup = 0; $tot_mar = 0; $tot_mg = 0;
        while ($db->Next()) {
            $mg_avg = ($db->Row("Jumlah",0)>0) ? $db->Row("Jumlah",0) / ($jum_hari/7) : 0;
            $tot_rup += $db->Row("Jumlah");
            $tot_mar += $db->Row("Margin");
            $tot_mg += $mg_avg;
            $ss_stok = Format_Stok($db->Row("Stok"), $db->Row("Kali",0), $db->Row("Satuan_Normal"), $db->Row("Satuan_Stok"));
            $xls->add_value(++$nomor, $db->Row("Nama_Produk"), $db->Row("Jumlah"), $db->Row("Margin"), $mg_avg, $ss_stok);
        }
        $xls->add_span(array("TOTAL",2,"R,B"),array($tot_rup,1,"R,N,B"),array($tot_mar,1,"R,N,B"),array($tot_mg,1,"R,N,B"),array("",1,"B"));
    }
    $xls->add_stamp(1, true);
    $xls->send("Data Analisa Penjualan ".str_replace("S/D","-",$tglheader).".xlsx");
    unset($xls);

} else if ( $data == "default") {
    $form = new Form($db);
    $ttipe = $form->radio("_", "Tipe", "V", true, false, ["V"=>"Volume","R"=>"Rupiah","M"=>"Margin"]);
    $tcab = $form->option_db("_", "CabID", $id_cab, true, false, "para_cabang", ["CabID","Nama_Cab"], "Aktif=1 ORDER BY CabID", [0,"SEMUA CABANG"]);
    $tsup = $form->option_db("_", "SupID", 0, true, false, "para_supplier", ["SupID","Nama_Sup"], "Aktif=1 ORDER BY Nama_Sup", [0,"SEMUA SUPPLIER"]);
    $tgrup = $form->option_db("_", "Grup_InvID", 0, true, false, "inv_produk_grup", ["Grup_InvID","Nama_Grup"], "Aktif=1 ORDER BY Nama_Grup", [0,"SEMUA GRUP"]);
    $turut = $form->radio("_", "Urut", "B", true, false, ['B'=>"Nama Barang",'J'=>"Jumlah / Nilai",'M'=>"Margin"]);
    $tfrom = $form->datebox("_", "Tgl_From", tgl_ymd(), true, false);
    $tto = $form->datebox("_", "Tgl_To", tgl_ymd(), true, false);
    echo '
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Tipe">Tipe Laporan</label>
        <div class="col col-form-label">'.$ttipe.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="CabID">Nama Cabang</label>
        <div class="col">'.$tcab.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="SupID">Nama Supplier</label>
        <div class="col"><div class="input-group">'.$tsup.Form_Info("Jika Nama Supplier dipilih, Filter Grup Barang akan diabaikan.").'</div></div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Grup_InvID">Grup Barang</label>
        <div class="col">'.$tgrup.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Urut">Urut Berdasarkan</label>
        <div class="col col-form-label">'.$turut.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Tgl_From">Dari Tanggal</label>
        <div class="col-sm-6 col-lg-5">'.$tfrom.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Tgl_To">Sampai Tanggal</label>
        <div class="col-sm-6 col-lg-5">'.$tto.'</div>
    </div>';

}

?>