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("".$_SESSION['__WEB_APP']['REG_NAME']."");
$xls->add_header("DATA REKAP MODAL HARIAN");
$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 '
';
}
?>