first commit

2026-01-22 11:06:19 +07:00
commit c877faf5a0
168 changed files with 19843 additions and 0 deletions
@@ -0,0 +1,147 @@
+<?php
+
+/*******************************************************************
+
+    App. Name     : INVENTORY AND SALES SYSTEMS
+    Module        : /apps/php/repo/mutasi_cabang.php
+    Desc.         : PHP - Laporan Mutasi Stok Cabang
+    Created By    : Siau Pheng ([email protected]).
+    Created Date  : July 16th, 2011.
+    Last Modified : December 13th, 2025.
+
+    (c) 2011 - 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_cab1 = Param::Get("Cab1ID", $_SESSION['__APP_INV']['CABANGID']);
+$id_cab2 = Param::Get("Cab2ID", $_SESSION['__APP_INV']['CABANGID']);
+
+if (in_array($data, ["print","export"])) {
+    $tipe = Param::Get("Tipe", "R"); // R or D
+    $tglfrom = Param::Get("Tgl_From");
+    $tglto = Param::Get("Tgl_To");
+
+    $nama_cab1 = "Semua Cabang"; $nama_cab2 = "Semua Cabang";
+    if ($id_cab1>0) {
+        $db->Query("SELECT Nama_Cab FROM para_cabang WHERE CabID='".$id_cab1."' LIMIT 1");
+        if ($db->Next()) $nama_cab1 = $db->Row("Nama_Cab");
+    }
+    if ($id_cab2>0) {
+        $db->Query("SELECT Nama_Cab FROM para_cabang WHERE CabID='".$id_cab2."' LIMIT 1");
+        if ($db->Next()) $nama_cab2 = $db->Row("Nama_Cab");
+    }
+
+    // generate report header
+    $tglheader = $tglfrom;
+    if ($tglfrom!==$tglto) $tglheader .= " S/D ".$tglto;
+    $tglfrom = tgl_sql2str($tglfrom);
+    $tglto = tgl_sql2str($tglto);
+
+    $tsql = ($id_cab1==0) ? "" : " AND Dari_CabID='".$id_cab1."'";
+    $tsql .= ($id_cab2==0) ? "" : " AND Ke_CabID='".$id_cab2."'";
+
+    if ($tipe=="R") {
+        $db->Query("SELECT M.*,C1.Nama_Cab Nama1,C2.Nama_Cab Nama2 FROM (SELECT * FROM inv_mutasi WHERE (Tgl_Mutasi BETWEEN '".$tglfrom."' AND '".$tglto."')".$tsql.") M LEFT JOIN para_cabang C1 ON (M.Dari_CabID=C1.CabID) LEFT JOIN para_cabang C2 ON (M.Ke_CabID=C2.CabID) ORDER BY M.Tgl_Mutasi,M.No_Mutasi");
+    } else {
+        
+    }
+}
+
+if ( $data == "print" ) {
+    Report_Header(($tipe=="R"?"REKAP":"DETAIL")." MUTASI STOK CABANG", "Periode : ".$tglheader);
+    $pre = new \siaupheng\fonia3\Printer\PrintHTML();
+
+    if ($tipe=="R") {
+        $pre->add_field("Tgl. Mutasi",30,"C","sqltgl");
+        $pre->add_field("No. Mutasi",30,"C");
+        $pre->add_field("Dari Cabang",20,"L");
+        $pre->add_field("Ke Cabang",20,"L");
+        $pre->add_field("Total",20,"R","rupiah");
+        $pre->add_field("Catatan",50,"L");
+
+        if ($id_cab1>0) $pre->add_span(array("Dari Cabang : ".$nama_cab1,6,"L,B"));
+        if ($id_cab2>0) $pre->add_span(array("Ke Cabang : ".$nama_cab2,6,"L,B"));
+
+        $tot_mutasi = 0;
+        while ($db->Next()) {
+            $tot_mutasi += $db->Row("Total_Mutasi");
+            $pre->add_value($db->Row("Tgl_Mutasi"), $db->Row("No_Mutasi"), $db->Row("Nama1"), $db->Row("Nama2"), $db->Row("Total_Mutasi"), $db->Row("Catatan"));
+        }
+        $pre->add_span(array("GRAND TOTAL",4,"R,B"),array($tot_mutasi,1,"R,B","rupiah"),["",1,"L,B"]);
+
+    } else {
+        
+    }
+    $pre->add_stamp(1, true);
+    $pre->show();
+
+} else if ( $data == "export" ) {
+    $xls = new SimpleXLS([
+        'title'=>"Data Mutasi Stok Cabang",
+        'desc'=>"Export Data Mutasi Stok Cabang"
+    ]);
+    
+    if ($tipe=="R") {
+        $xls->add_header("<b>".$_SESSION['__WEB_APP']['REG_NAME']."</b>");
+        $xls->add_header("<b>DATA REKAP MUTASI STOK CABANG</b>");
+        $xls->add_header("Periode : ".$tglheader);
+
+        $xls->add_field("Tgl. Mutasi", 12, "C", "sqltgl");
+        $xls->add_field("No. Mutasi", 15, "C");
+        $xls->add_field("Dari Cabang", 20, "L");
+        $xls->add_field("Ke Cabang", 20, "L");
+        $xls->add_field("Total", 15, "R,N");
+        $xls->add_field("Catatan", 25, "L");
+        $xls->add_sheet("".str_replace("S/D","-",$tglheader), true);
+
+        $tot_mutasi = 0;
+        while ($db->Next()) {
+            $tot_mutasi += $db->Row("Total_Mutasi");
+            $xls->add_value($db->Row("Tgl_Mutasi"), $db->Row("No_Mutasi"), $db->Row("Nama1"), $db->Row("Nama2"), $db->Row("Total_Mutasi"), $db->Row("Catatan"));
+        }
+        $xls->add_span(array("GRAND TOTAL",4,"R,B"),array($tot_mutasi,1,"R,B,N"),["",1,"L,B"]);
+
+    } else {
+        
+    }
+    $xls->add_stamp(1, true);
+    $xls->send("Data Mutasi Stok Cabang ".str_replace("S/D","-",$tglheader).".xlsx");
+    unset($xls);
+
+} else if ( $data == "default") {
+    $form = new Form($db);
+    $tcab1 = $form->option_db("_", "Cab1ID", $id_cab, true, false, "para_cabang", ["CabID","Nama_Cab"], "Aktif=1 ORDER BY CabID", [0,"SEMUA CABANG"]);
+    $tcab2 = $form->option_db("_", "Cab2ID", $id_cab, true, false, "para_cabang", ["CabID","Nama_Cab"], "Aktif=1 ORDER BY CabID", [0,"SEMUA CABANG"]);
+    $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="Cab1ID">Dari Cabang</label>
+        <div class="col">'.$tcab1.'</div>
+    </div>
+    <div class="row mb-1">
+        <label class="col-sm-4 col-lg-3 col-form-label" for="Cab2ID">Ke Cabang</label>
+        <div class="col">'.$tcab2.'</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>';
+}
+
+?>