125 lines
5.0 KiB
PHP
125 lines
5.0 KiB
PHP
<?php
|
|
|
|
/*******************************************************************
|
|
|
|
App. Name : INVENTORY AND SALES SYSTEMS
|
|
Module : /apps/php/repo/rekap_modal.php
|
|
Desc. : PHP - Laporan Rekap Modal
|
|
Created By : Siau Pheng ([email protected]).
|
|
Created Date : January 19th, 2013.
|
|
Last Modified : December 13th, 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"])) {
|
|
$tglfrom = Param::Get("Tgl_From");
|
|
$tglto = Param::Get("Tgl_To");
|
|
if ($tglfrom > tgl_dmy()) return false;
|
|
|
|
// generate report header
|
|
$tglheader = $tglfrom;
|
|
if ($tglfrom!==$tglto) $tglheader .= " S/D ".$tglto;
|
|
$tglfrom = tgl_sql2str($tglfrom);
|
|
$tglto = tgl_sql2str($tglto);
|
|
|
|
$tsql = ($id_cab==0) ? "" : " AND CabID='".$id_cab."'";
|
|
|
|
$db->Query("DELETE FROM rep_rekap_modal WHERE UserID='".user_id()."'");
|
|
$saldo = 0;
|
|
// insert tgl sesuai range
|
|
$dtgl = tgl_sql2str($tglfrom);
|
|
while ($dtgl<=tgl_sql2str($tglto)) {
|
|
$stok = 0; $piut = 0; $huta = 0;
|
|
$db->Query("SELECT SUM(D.Stok*P.Harga_Pokok) Stok FROM (SELECT * FROM inv_detail WHERE Tgl_Ref<='".tgl_sql2str($dtgl)."'".$tsql.") D LEFT JOIN inv_produk P ON (P.InvID=D.InvID)");
|
|
if ($db->Next()) $stok = $db->RowFloat("Stok", 0);
|
|
$db->Query("SELECT SUM(Total_Jual-Total_Diskon-Total_Bayar-Total_Potong) Piutang FROM inv_jual WHERE Tgl_Jual<='".tgl_sql2str($dtgl)."' AND Tgl_Lunas>'".tgl_sql2str($dtgl)."'".$tsql);
|
|
if ($db->Next()) $piut = $db->RowFloat("Piutang", 0);
|
|
$db->Query("SELECT SUM(Total_Hutang) Hutang FROM inv_beli WHERE Tgl_Beli<='".tgl_sql2str($dtgl)."' AND (Lunas=0 OR (Lunas=1 AND Tgl_Lunas>'".tgl_sql2str($dtgl)."'))".$tsql);
|
|
if ($db->Next()) $huta = $db->RowFloat("Hutang", 0);
|
|
|
|
$db->Query("INSERT IGNORE INTO rep_rekap_modal SET Tanggal='".tgl_sql2str($dtgl)."',Stok='".$stok."',Piutang=".$piut.",Hutang=".$huta.",Jumlah=Stok+Piutang-Hutang,UserID=".user_id());
|
|
$dtgl = tgl_operasi($dtgl, 1);
|
|
}
|
|
|
|
$db->Query("SELECT * FROM rep_rekap_modal WHERE UserID=".user_id()." ORDER BY Tanggal ASC");
|
|
}
|
|
|
|
if ( $data == "print" ) {
|
|
Report_Header("REKAP MODAL HARIAN", "Periode : ".$tglheader);
|
|
$pre = new \siaupheng\fonia3\Printer\PrintHTML();
|
|
|
|
$pre->add_field("Hari",10,"L");
|
|
$pre->add_field("Tanggal",30,"C","sqltgl");
|
|
$pre->add_field("Stok Barang",20,"R","rupiah");
|
|
$pre->add_field("Piutang",20,"R","rupiah");
|
|
$pre->add_field("Hutang",20,"R","rupiah");
|
|
$pre->add_field("Jumlah",20,"R","rupiah");
|
|
|
|
while ($db->Next()) {
|
|
$pre->add_value(tgl_hari(tgl_sql2str($db->Row("Tanggal"))), $db->Row("Tanggal"), $db->Row("Stok"), $db->Row("Piutang"), $db->Row("Hutang"), $db->Row("Jumlah"));
|
|
}
|
|
$pre->add_stamp(1, true);
|
|
$pre->show();
|
|
|
|
} else if ( $data == "export" ) {
|
|
$xls = new SimpleXLS([
|
|
'title'=>"Data Rekap Modal Harian",
|
|
'desc'=>"Export Data Rekap Modal Harian"
|
|
]);
|
|
|
|
$xls->add_header("<b>".$_SESSION['__WEB_APP']['REG_NAME']."</b>");
|
|
$xls->add_header("<b>DATA REKAP MODAL HARIAN</b>");
|
|
$xls->add_header("Periode : ".$tglheader);
|
|
|
|
$xls->add_field("Hari", 10, "L");
|
|
$xls->add_field("Tanggal", 12, "C", "sqltgl");
|
|
$xls->add_field("Stok Barang", 15, "R,N");
|
|
$xls->add_field("Piutang", 15, "R,N");
|
|
$xls->add_field("Hutang", 15, "R,N");
|
|
$xls->add_field("Jumlah", 15, "R,N");
|
|
$xls->add_sheet("".str_replace("S/D","-",$tglheader), true);
|
|
|
|
while ($db->Next()) {
|
|
$xls->add_value(tgl_hari(tgl_sql2str($db->Row("Tanggal"))), $db->Row("Tanggal"), $db->Row("Stok"), $db->Row("Piutang"), $db->Row("Hutang"), $db->Row("Jumlah"));
|
|
}
|
|
$xls->add_stamp(1, true);
|
|
$xls->send("Data Rekap Modal Harian ".str_replace("S/D","-",$tglheader).".xlsx");
|
|
unset($xls);
|
|
|
|
} else if ( $data == "default") {
|
|
$form = new Form($db);
|
|
$tcab = $form->option_db("_", "CabID", $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="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="Tgl_From">Dari Tanggal</label>
|
|
<div class="col-sm-8 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 Tgl</label>
|
|
<div class="col-sm-8 col-lg-5">'.$tto.'</div>
|
|
</div>';
|
|
}
|
|
|
|
?>
|