app = $app; $this->db = $db; $this->id_cab = Param::Int("CabID", 0); $this->reg_name = $session->get('WEB_APP')['REG_NAME']; } public function brow_member() { $tcari = Param::Get("Cari_Member"); $tsql = ''; $asql = [1]; if (!empty($tcari)) { $tsql .= " AND CONCAT_WS(Kode_Member,Nama_Member,Alamat_Member,Telp_Member) LIKE ?"; $asql[] = '%' . $tcari . '%'; } $obj = new Table($this->app); $obj->set_table("para_member", "*,CONCAT(IF(Kode_Member='','',CONCAT(Kode_Member,' - ')),Nama_Member) Kode_Nama", "Aktif=?".$tsql, $asql); $obj->add_field("MemberID", "ID", "hid"); $obj->add_field("Kode_Nama", "Kode_Nama", "hid"); $obj->add_field("Kode_Member", "Kode", "c"); $obj->add_field("Nama_Member", "Nama Member", "awr"); $obj->add_field("Alamat_Member", "Alamat", "awr"); $obj->add_field("Telp_Member", "Telp.", "awr"); $obj->set_field_order("Nama_Member", "A"); $obj->set_func_select("RepoJualAnalisaJS.member_select"); $this->app->json([ $obj->db_table("divBrowMember") ]); } public function auto_member() { $tcari = Param::Get("Auto_Query", ""); $ajson['autodata'] = []; $stat = $this->db->runQuery("SELECT MemberID,Grup_MemberID,Kode_Member,Nama_Member,CONCAT(IF(Kode_Member='','',CONCAT(Kode_Member,' - ')),Nama_Member) Kode_Nama FROM para_member WHERE Aktif=1 AND CONCAT(Kode_Member,Nama_Member,Alamat_Member,Telp_Member) LIKE ? ORDER BY Nama_Member LIMIT 50", ['%'.$tcari.'%']); while ($row = $stat->fetch(SimplePdo::FETCH_ASSOC)) { $ajson['autodata'][] = ['value'=>$row['MemberID'], 'text'=>$row['Kode_Nama'], 'html'=>''.$row['Kode_Member'].' '.$row['Nama_Member'], 'data'=>0, 'bc'=>0]; } $this->app->json($ajson); } private function prepare() { $apre = [ 'tipe' => Param::Get("Tipe", "V"), // V or R or M 'id_grup_mem' => Param::Int("Grup_MemberID", 0), 'id_mem' => Param::Int("MemberID", 0), 'id_sup' => Param::Int("SupID", 0), 'id_grup_inv' => Param::Int("Grup_InvID", 0), 'urut' => Param::Get("Urut", "B"), 'tgl_from' => Param::Get("Tgl_From"), 'tgl_to' => Param::Get("Tgl_To"), ]; $apre['Hari'] = tgl_range_hari($apre['tgl_from'], $apre['tgl_to'], true); $apre['nama_mem'] = ($apre['id_mem'] > 0) ? ($this->db->fetchField("SELECT CONCAT(Nama_Member,' (',Kode_Member,')') Nama FROM para_member WHERE MemberID=?", [$apre['id_mem']]) ?? '') : ''; $apre['nama_sup'] = ($apre['id_sup'] > 0) ? ($this->db->fetchField("SELECT CONCAT(Nama_Sup,' (',Kode_Sup,')') Nama FROM para_supplier WHERE SupID=?", [$apre['id_sup']]) ?? '') : ''; $apre['nama_grup_inv'] = ($apre['id_grup_inv'] > 0 && $apre['id_sup']===0) ? ($this->db->fetchField("SELECT Nama_Grup FROM inv_produk_grup WHERE Grup_InvID=?", [$apre['id_grup_inv']]) ?? '') : ''; // generate report header $apre['periode'] = $apre['tgl_from'] . ($apre['tgl_from'] !== $apre['tgl_to'] ? ' s/d '.$apre['tgl_to'] : ''); $tsql1 = ''; $tsql2 = ''; $tsql3 = ''; $asql1 = [tgl_sql2str($apre['tgl_from']), tgl_sql2str($apre['tgl_to'])]; $asql2 = [tgl_sql2str($apre['tgl_to'])]; $asql3 = []; if ($this->id_cab > 0) { $tsql1 .= " AND CabID=?"; array_push($asql1, $this->id_cab); $tsql2 .= " AND CabID=?"; array_push($asql2, $this->id_cab); } if ($apre['id_mem'] > 0) { $tsql1 .= " AND No_Ref IN (SELECT No_Jual FROM inv_jual WHERE MemberID=? AND (Tgl_Jual BETWEEN ? AND ?))"; array_push($asql1, $apre['id_mem'], tgl_sql2str($apre['tgl_from']), tgl_sql2str($apre['tgl_to'])); } if ($apre['id_grup_mem'] > 0) { $tsql1 .= " AND No_Ref IN (SELECT No_Jual FROM inv_jual WHERE MemberID IN (SELECT MemberID FROM para_member WHERE Grup_MemberID=?) AND (Tgl_Jual BETWEEN ? AND ?))"; array_push($asql1, $apre['id_grup_mem'], tgl_sql2str($apre['tgl_from']), tgl_sql2str($apre['tgl_to'])); } if ($apre['id_sup'] > 0) { $tsql3 .= " AND D.InvID IN (SELECT InvID FROM inv_produk_sup WHERE SupID=?)"; array_push($asql3, $apre['id_sup']); } else { if ($apre['id_grup_inv'] > 0) { $tsql3 .= " AND P.Grup_InvID=?"; array_push($asql3, $apre['id_grup_inv']); } } $torder = ($apre['urut'] === "B") ? "P.Nama_Produk" : "D.Jumlah"; $torder = ($apre['urut'] === "S") ? "S.Stok" : $torder; $tsql3 = (count($asql3) > 0) ? " WHERE".substr($tsql3, 4) : ''; if ($apre['tipe'] === "V") { $apre['query'] = $this->db->runQuery("SELECT CONCAT(P.Nama_Produk,' ',IF(ISNULL(V.Nama_Varian),'',V.Nama_Varian)) Nama_Produk,P.Satuan_Normal,P.Satuan_Stok,D.Jumlah,S.Stok,P.Qty Kali FROM (SELECT InvID,VarianID,SUM(-Stok) Jumlah FROM inv_detail WHERE (Tgl_Ref BETWEEN ? AND ?) AND NotaID IN (5,6)".$tsql1." GROUP BY InvID,VarianID ORDER BY InvID,VarianID) D LEFT JOIN (SELECT InvID,VarianID,SUM(Stok) Stok FROM inv_detail WHERE Tgl_Ref<=?".$tsql2." GROUP BY InvID,VarianID) S ON (D.InvID=S.InvID AND D.VarianID=S.VarianID) LEFT JOIN vi_inv_produk2 P ON (D.InvID=P.InvID) LEFT JOIN para_varian V ON (D.VarianID=V.VarianID)".$tsql3." ORDER BY ".$torder, array_merge($asql1, $asql2, $asql3)); $apre['judul'] = "VOLUME"; } else if ($apre['tipe'] === "R") { $apre['query'] = $this->db->runQuery("SELECT CONCAT(P.Nama_Produk,' ',IF(ISNULL(V.Nama_Varian),'',V.Nama_Varian)) Nama_Produk,P.Satuan_Normal,P.Satuan_Stok,D.Jumlah,S.Stok,P.Qty Kali FROM (SELECT InvID,VarianID,SUM(-Qty*Harga_Jual) Jumlah FROM inv_detail WHERE (Tgl_Ref BETWEEN ? AND ?) AND NotaID IN (5,6)".$tsql1." GROUP BY InvID,VarianID ORDER BY InvID,VarianID) D LEFT JOIN (SELECT InvID,VarianID,SUM(Stok) Stok FROM inv_detail WHERE Tgl_Ref<=?".$tsql2." GROUP BY InvID,VarianID) S ON (D.InvID=S.InvID AND D.VarianID=S.VarianID) LEFT JOIN vi_inv_produk2 P ON (D.InvID=P.InvID) LEFT JOIN para_varian V ON (D.VarianID=V.VarianID)".$tsql3." ORDER BY ".$torder, array_merge($asql1, $asql2, $asql3)); $apre['judul'] = "RUPIAH"; } else if ($apre['tipe'] === "M") { $torder = ($apre['urut'] === "M") ? "D.Margin" : $torder; $torder = ($apre['urut'] === "S") ? "S.Stok" : $torder; $apre['query'] = $this->db->runQuery("SELECT CONCAT(P.Nama_Produk,' ',IF(ISNULL(V.Nama_Varian),'',V.Nama_Varian)) Nama_Produk,P.Satuan_Normal,P.Satuan_Stok,D.Margin,D.Jumlah,S.Stok,P.Qty Kali FROM (SELECT InvID,VarianID,((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 ? AND ?) AND NotaID IN (5,6)".$tsql1." GROUP BY InvID,VarianID ORDER BY InvID,VarianID) D LEFT JOIN (SELECT InvID,VarianID,SUM(Stok) Stok FROM inv_detail WHERE Tgl_Ref<=?".$tsql2." GROUP BY InvID,VarianID) S ON (D.InvID=S.InvID AND D.VarianID=S.VarianID) LEFT JOIN vi_inv_produk2 P ON (D.InvID=P.InvID) LEFT JOIN para_varian V ON (D.VarianID=V.VarianID)".$tsql2." ORDER BY ".$torder, array_merge($asql1, $asql2, $asql3)); $apre['judul'] = "MARGIN"; } return $apre; } public function print() { $apre = $this->prepare(); $pre = new PrintHTML($this->app); $pre->add_title([strtoupper($this->reg_name), "REKAP ".$apre['judul']." PENJUALAN", "Periode : ".$apre['periode']]); if ($apre['tipe'] === "V") { $pre->add_field("No.",10,"C"); $pre->add_field("Nama Barang",50,"L"); $pre->add_field("Jumlah",20,"R"); $pre->add_field("Mingguan",20,"R"); $pre->add_field("Sisa Stok",20,"R"); if ($apre['id_mem'] > 0) $pre->add_sub_title("Nama Member : ".$apre['nama_mem']); if ($apre['id_sup'] > 0) $pre->add_sub_title("Nama Supplier : ".$apre['nama_sup']); if ($apre['id_grup_inv'] > 0 && $apre['id_sup']===0) $pre->add_sub_title("Grup Barang : ".$apre['nama_grup_inv']); $pre->show_titles(); $pre->show_headers(); $nomor = 0; while ($row = $apre['query']->fetch(SimplePdo::FETCH_ASSOC)) { $total = $row['Jumlah'] ?? 0; $mg_total = $total / ($apre['Hari'] / 7); $kali = $row['Kali'] ?? 1; $stok = Invesa::Format_Stok($total, $kali, $row['Satuan_Normal'], $row['Satuan_Stok']); $mg_stok = Invesa::Format_Stok($mg_total, $kali, $row['Satuan_Normal'], $row['Satuan_Stok']); $ss_stok = Invesa::Format_Stok($row['Stok'], $kali, $row['Satuan_Normal'], $row['Satuan_Stok']); $pre->add_row([ ++$nomor, $row['Nama_Produk'], $stok, $mg_stok, $ss_stok ]); } } else if ($apre['tipe'] === "R") { $pre->add_field("No.",10,"C"); $pre->add_field("Nama Barang",50,"L"); $pre->add_field("Jumlah",20,"R","rupiah"); $pre->add_field("Mingguan",20,"R","rupiah"); $pre->add_field("Sisa Stok",20,"R"); if ($apre['id_mem'] > 0) $pre->add_sub_title("Nama Member : ".$apre['nama_mem']); if ($apre['id_sup'] > 0) $pre->add_sub_title("Nama Supplier : ".$apre['nama_sup']); if ($apre['id_grup_inv'] > 0 && $apre['id_sup']===0) $pre->add_sub_title("Grup Barang : ".$apre['nama_grup_inv']); $pre->show_titles(); $pre->show_headers(); $nomor = 0; $tot_rup = 0; $tot_mg = 0; while ($row = $apre['query']->fetch(SimplePdo::FETCH_ASSOC)) { $mg_avg = ($row['Jumlah'] > 0) ? $row['Jumlah'] / ($apre['Hari'] / 7) : 0; $tot_rup += $row['Jumlah']; $tot_mg += $mg_avg; $ss_stok = Invesa::Format_Stok($row['Stok'], $row['Kali'] ?? 1, $row['Satuan_Normal'], $row['Satuan_Stok']); $pre->add_row([ ++$nomor, $row['Nama_Produk'], $row['Jumlah'], $mg_avg, $ss_stok ]); } $pre->add_span([ ["GRAND TOTAL",2,"R,B"],[$tot_rup,1,"R,B","rupiah"],[$tot_mg,1,"R,B","rupiah"], ["",1] ]); } else if ($apre['tipe'] === "M") { $pre->add_field("No.",10,"C"); $pre->add_field("Nama Barang",50,"L"); $pre->add_field("Jumlah",20,"R","rupiah"); $pre->add_field("Margin (%)",20,"R","rupiah2"); $pre->add_field("Mingguan",20,"R","rupiah"); $pre->add_field("Sisa Stok",20,"R"); if ($apre['id_mem'] > 0) $pre->add_sub_title("Nama Member : ".$apre['nama_mem']); if ($apre['id_sup'] > 0) $pre->add_sub_title("Nama Supplier : ".$apre['nama_sup']); if ($apre['id_grup_inv'] > 0 && $apre['id_sup']===0) $pre->add_sub_title("Grup Barang : ".$apre['nama_grup_inv']); $pre->show_titles(); $pre->show_headers(); $nomor = 0; $tot_rup = 0; $tot_mar = 0; $tot_mg = 0; while ($row = $apre['query']->fetch(SimplePdo::FETCH_ASSOC)) { $mg_avg = ($row['Jumlah'] > 0) ? $row['Jumlah'] / ($apre['Hari'] / 7) : 0; $tot_rup += $row['Jumlah']; $tot_mar += $row['Margin']; $tot_mg += $mg_avg; $ss_stok = Invesa::Format_Stok($row['Stok'], $row['Kali'] ?? 1, $row['Satuan_Normal'], $row['Satuan_Stok']); $pre->add_row([ ++$nomor, $row['Nama_Produk'], $row['Jumlah'], $row['Margin'], $mg_avg, $ss_stok ]); } $pre->add_span([ ["GRAND TOTAL",2,"R,B"],[$tot_rup,1,"R,B","rupiah"],[$tot_mar,1,"R,B","rupiah"],[$tot_mg,1,"R,B","rupiah"], ["",1] ]); } $pre->add_stamp(1, true); $pre->show(); } public function excel() { $apre = $this->prepare(); $xls = new Xlsx($this->app); $xls->set_meta([ 'title' => "Data Analisa Penjualan", 'desc' => "Export Data Analisa Penjualan" ]); $xls->add_title([ $this->reg_name, "REKAP ".$apre['judul']." PENJUALAN", "Periode : ".$apre['periode'] ]); if ($apre['tipe'] === "V") { $xls->add_field("No.", 5, "@integer"); $xls->add_field("Nama Barang", 25, "@text"); $xls->add_field("Jumlah", 15, "#,##0.00"); $xls->add_field("Mingguan", 15, "#,##0.00"); $xls->add_field("Sisa Stok", 15, "@"); $xls->add_sheet("".str_replace("s/d","-",$apre['periode'])); if ($apre['id_mem'] > 0) $xls->add_sub_title("Nama Member : ".$apre['nama_mem']); if ($apre['id_sup'] > 0) $xls->add_sub_title("Nama Supplier : ".$apre['nama_sup']); if ($apre['id_grup_inv'] > 0 && $apre['id_sup']===0) $xls->add_sub_title("Grup Barang : ".$apre['nama_grup_inv']); $xls->show_titles(); $xls->show_headers(); $nomor = 0; while ($row = $apre['query']->fetch(SimplePdo::FETCH_ASSOC)) { $total = $row['Jumlah'] ?? 0; $mg_total = $total / ($apre['Hari'] / 7); $kali = $row['Kali'] ?? 1; $stok = Invesa::Format_Stok($total, $kali, $row['Satuan_Normal'], $row['Satuan_Stok']); $mg_stok = Invesa::Format_Stok($mg_total, $kali, $row['Satuan_Normal'], $row['Satuan_Stok']); $ss_stok = Invesa::Format_Stok($row['Stok'], $kali, $row['Satuan_Normal'], $row['Satuan_Stok']); $xls->add_row([ ++$nomor, $row['Nama_Produk'], $stok, $mg_stok, $ss_stok ]); } } else if ($apre['tipe'] === "R") { $xls->add_field("No.", 5, "@integer"); $xls->add_field("Nama Barang", 20, "@text"); $xls->add_field("Jumlah", 15, "#,##0.00"); $xls->add_field("Mingguan", 15, "#,##0.00"); $xls->add_field("Sisa Stok", 15, "@"); $xls->add_sheet("".str_replace("s/d","-",$apre['periode'])); if ($apre['id_mem'] > 0) $xls->add_sub_title("Nama Member : ".$apre['nama_mem']); if ($apre['id_sup'] > 0) $xls->add_sub_title("Nama Supplier : ".$apre['nama_sup']); if ($apre['id_grup_inv'] > 0 && $apre['id_sup']===0) $xls->add_sub_title("Grup Barang : ".$apre['nama_grup_inv']); $xls->show_titles(); $xls->show_headers(); $nomor = 0; $tot_rup = 0; $tot_mg = 0; while ($row = $apre['query']->fetch(SimplePdo::FETCH_ASSOC)) { $mg_avg = ($row['Jumlah'] > 0) ? $row['Jumlah'] / ($apre['Hari'] / 7) : 0; $tot_rup += $row['Jumlah']; $tot_mg += $mg_avg; $ss_stok = Invesa::Format_Stok($row['Stok'], $row['Kali'] ?? 1, $row['Satuan_Normal'], $row['Satuan_Stok']); $xls->add_row([ ++$nomor, $row['Nama_Produk'], $row['Jumlah'], $mg_avg, $ss_stok ]); } $xls->add_row_bold([ "", "GRAND TOTAL", $tot_rup, $tot_mg, "" ]); } else if ($apre['tipe'] === "M") { $xls->add_field("No.", 5, "@integer"); $xls->add_field("Nama Barang", 20, "@text"); $xls->add_field("Jumlah", 15, "#,##0.00"); $xls->add_field("Margin (%)", 15, "@percent"); $xls->add_field("Mingguan", 15, "#,##0.00"); $xls->add_field("Sisa Stok", 15, "@"); $xls->add_sheet("".str_replace("s/d","-",$apre['periode'])); if ($apre['id_mem'] > 0) $xls->add_sub_title("Nama Member : ".$apre['nama_mem']); if ($apre['id_sup'] > 0) $xls->add_sub_title("Nama Supplier : ".$apre['nama_sup']); if ($apre['id_grup_inv'] > 0 && $apre['id_sup']===0) $xls->add_sub_title("Grup Barang : ".$apre['nama_grup_inv']); $xls->show_titles(); $xls->show_headers(); $nomor = 0; $tot_rup = 0; $tot_mar = 0; $tot_mg = 0; while ($row = $apre['query']->fetch(SimplePdo::FETCH_ASSOC)) { $mg_avg = ($row['Jumlah'] > 0) ? $row['Jumlah'] / ($apre['Hari'] / 7) : 0; $tot_rup += $row['Jumlah']; $tot_mar += $row['Margin']; $tot_mg += $mg_avg; $ss_stok = Invesa::Format_Stok($row['Stok'], $row['Kali'] ?? 1, $row['Satuan_Normal'], $row['Satuan_Stok']); $xls->add_row([ ++$nomor, $row['Nama_Produk'], $row['Jumlah'], $row['Margin'], $mg_avg, $ss_stok ]); } $xls->add_row_bold([ "", "GRAND TOTAL", $tot_rup, $tot_mar, $tot_mg, "" ]); } $xls->add_stamp(1, true); $xls->download("Data Pembelian ".str_replace("s/d","-",$apre['periode']).".xlsx"); unset($xls); } public function index() { $form = new Form($this->app); $ttipe = $form->radio("_", "Tipe", "V", true, false, ["V"=>"Volume","R"=>"Rupiah","M"=>"Margin"]); $tcab = $form->option_db("_", "CabID", $this->id_cab, true, false, "para_cabang", ["CabID","Nama_Cab"], "Aktif=1 ORDER BY CabID", [0,"SEMUA CABANG"]); $tgrup_inv = $form->option_db("_", "Grup_InvID", 0, true, false, "inv_produk_grup", ["Grup_InvID","Nama_Grup"], "Aktif=1 ORDER BY Nama_Grup", [0,"SEMUA GRUP"]); $tgrup_mem = $form->option_db("_", "Grup_MemberID", 0, true, false, "para_member_grup", ["Grup_MemberID","Nama_Grup"], "Aktif=1 ORDER BY Nama_Grup", [0,"SEMUA GRUP"]); $tmem = $form->textauto("_", "Nama_Member", ['value'=>0,'text'=>"SEMUA MEMBER"], true, true, "nama member"); $tsup = $form->option_db("_", "SupID", 0, true, false, "para_supplier", ["SupID","Nama_Sup"], "Aktif=1 ORDER BY Nama_Sup", [0,"SEMUA SUPPLIER"]); $turut = $form->radio("_", "Urut", "B", true, false, ['B'=>"Nama Barang",'J'=>"Jumlah / Nilai",'M'=>"Margin",'S'=>"Stok"]); $tfrom = $form->datebox("_", "Tgl_From", tgl_ymd(), true, false); $tto = $form->datebox("_", "Tgl_To", tgl_ymd(), true, false); $ajson['html'] = '
'.$ttipe.'
'.$tcab.'
'.$tgrup_mem.'
'.$tmem.'
'.$tsup.Invesa::Form_Info("Jika Nama Supplier dipilih, Filter Grup Barang akan diabaikan.").'
'.$tgrup_inv.'
'.$turut.'
'.$tfrom.'
'.$tto.'
'; $this->app->json($ajson); } }