first commit

2026-07-16 14:07:54 +07:00
commit d3f1794df7
100 changed files with 8647 additions and 0 deletions
@@ -0,0 +1,146 @@
+<?php
+
+/*******************************************************************
+
+    App. Name     : SISTEM INFORMASI PERENCANAAN PEMBANGUNAN DAERAH
+    Module        : /apps/php/func.musrenbang.php
+    Desc.         : PHP - Fungsi Musrenbang
+    Created By    : Siau Pheng ([email protected]).
+    Created Date  : May 15th, 2012.
+    Last Modified : January 30th, 2024.
+
+    (c) 2012 - 2024, 3FONIA Software; WWW.3FONIA.COM.
+
+*******************************************************************/
+
+require_once(__DIR__."/../../../../vendor/autoload.php");
+
+use siaupheng\fonia3\DB\MySQL;
+use siaupheng\fonia3\DB\SQL;
+
+$fdb = new MySQL();
+
+function map_tahun_submap($id_rpjmd = 0) {//oke
+    $amap = [2 => 2021, 3 => 2025, 4 => 2026];
+    return $amap[$id_rpjmd];
+}
+
+/*************** POKIR ***************/
+
+function PokAksi_Array($is_form = false) {
+    $aaksi = [0=>"Belum Verifikasi", 1=>"Diterima", 2=>"Ditolak", 3=>"Mohon Klarifikasi"];
+    if ($is_form == true) unset($aaksi[0]);
+    return $aaksi;
+}
+
+/*************** MUSRENBANG ***************/
+
+function Kode_Usulan_Kec($tahun = 0, $id_kec = 0) {//oke
+    global $fdb;
+    $tno = ($tahun == 0) ? "00" : substr("".$tahun, -2);
+    if ($id_kec > 0) {
+        $fdb->Query("SELECT RIGHT(K_Lokasi,2) Kode FROM para_lokasi WHERE LokasiID='".$id_kec."' LIMIT 1");
+        if ($fdb->Next()) $tno .= $fdb->Row("Kode")."-";
+    } else $tno .= "00-";
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(Kode,3)) Nomor FROM mus_usulan WHERE Tahun='".$tahun."' AND KecID='".$id_kec."' AND JU=3");
+    if ($fdb->Next()) $ino = intval($fdb->Row("Nomor", 0));
+    $tno .= isi_nol($ino+1, 3);
+    return $tno;
+}
+
+function Kode_Usulan_Desa($tahun = 0, $id_desa = 0) {//oke
+    global $fdb;
+    $tno = ($tahun == 0) ? "00" : substr("".$tahun, -2);
+    if ($id_desa > 0) {
+        $fdb->Query("SELECT K_Lokasi FROM para_lokasi WHERE LokasiID='".$id_desa."' LIMIT 1");
+        if ($fdb->Next()) $tno .= $fdb->Row("K_Lokasi")."-";
+    } else $tno .= "000-";
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(Kode,3)) Nomor FROM mus_usulan WHERE LEFT(Kode,".strlen($tno).")='".$tno."'");
+    if ($fdb->Next()) $ino = intval($fdb->Row("Nomor", 0));
+    $tno .= isi_nol($ino+1, 3);
+    return $tno;
+}
+
+function MUSPrio($iprio=0) {//oke
+    $hasil = '<select class="form-select form-select-sm" onchange="MUsulPrioJS.oc_Prio(this);" required=true aria-label="Pilihan Prioritas">';
+    for ($o=0; $o<=10; $o++) {
+        $hasil .= '<option value="'.$o.'"'.($o==$iprio?' selected="selected"':'').'>'.$o.'</option>';
+    }
+    $hasil .= '</select>';
+    return $hasil;
+}
+
+
+/*************** PEMAKAIAN BERSAMA RKPD / POKIR / MUSRENBANG ***************/
+
+function data_rincian($id_rinc = 0, $data = false) {
+    $arinci = [0=>"-", 1=>"Pembangunan Jalan Lingkungan / Pemukiman", 2=>"Pembangunan Drainase", 3=>"Pembangunan Pagar Makam"];
+    if ($data) return $arinci;
+    if ($id_rinc == 0) return "";
+    return "<br><i>".$arinci[$id_rinc]."</i>";
+}
+
+function data_ju($id_opd = 0, $id_sub = 0){
+    global $fdb;
+    if (!isset($_SESSION['__APP_SIPPD']['TAG4'])) {
+        $fdb->Query("SELECT GROUP_CONCAT(SubID) TAG4 FROM para90_subtag WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND Tipe=4");
+        if ($fdb->Next()) $_SESSION['__APP_SIPPD']['TAG4'] = explode(",", $fdb->Row("TAG4","0"));
+    }
+    return ($id_opd==4 && !in_array($id_sub, $_SESSION['__APP_SIPPD']['TAG4'])) ? 1 : 0;
+}
+
+function array_jalan($id_sub = 0) {
+    global $fdb;
+    if (!isset($_SESSION['__APP_SIPPD']['TAG2'])) {
+        $fdb->Query("SELECT GROUP_CONCAT(SubID) TAG2 FROM para90_subtag WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND Tipe=2");
+        if ($fdb->Next()) $_SESSION['__APP_SIPPD']['TAG2'] = explode(",", $fdb->Row("TAG2","0"));
+    }
+    return ($id_sub == 0 ? $_SESSION['__APP_SIPPD']['TAG2'] : in_array($id_sub, $_SESSION['__APP_SIPPD']['TAG2']));
+}
+
+function array_rinci($id_sub = 0) {
+    global $fdb;
+    if (!isset($_SESSION['__APP_SIPPD']['TAG5'])) {
+        $fdb->Query("SELECT GROUP_CONCAT(SubID) TAG5 FROM para90_subtag WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND Tipe=5");
+        if ($fdb->Next()) $_SESSION['__APP_SIPPD']['TAG5'] = explode(",", $fdb->Row("TAG5","0"));
+    }
+    return ($id_sub == 0 ? $_SESSION['__APP_SIPPD']['TAG5'] : in_array($id_sub, $_SESSION['__APP_SIPPD']['TAG5']));
+}
+
+function array_poktan($id_sub = 0) {
+    global $fdb;
+    if (!isset($_SESSION['__APP_SIPPD']['TAG3'])) {
+        $fdb->Query("SELECT GROUP_CONCAT(SubID) TAG3 FROM para90_subtag WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND Tipe=3");
+        if ($fdb->Next()) $_SESSION['__APP_SIPPD']['TAG3'] = explode(",", $fdb->Row("TAG3","0"));
+    }
+    return ($id_sub == 0 ? $_SESSION['__APP_SIPPD']['TAG3'] : in_array($id_sub, $_SESSION['__APP_SIPPD']['TAG3']));
+}
+
+function array_tagging($id = 0) {
+    global $fdb;
+    if (!isset($_SESSION['__APP_SIPPD']['TAG1'])) {
+        $fdb->Query("SELECT GROUP_CONCAT(SubID) TAG1 FROM para90_subtag WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND Tipe=1");
+        if ($fdb->Next()) $_SESSION['__APP_SIPPD']['TAG1'] = explode(",", $fdb->Row("TAG1","0"));
+    }
+    return ($id_sub == 0 ? $_SESSION['__APP_SIPPD']['TAG1'] : in_array($id_sub, $_SESSION['__APP_SIPPD']['TAG1']));
+}
+
+/*************** REPORT ***************/
+
+function Report_Empty($ltabel = "") {
+    global $fdb;
+    if ($ltabel == "") return false;
+    $fdb->Query("DELETE FROM rep_".$ltabel." WHERE (Unix='".user_unix()."' OR Unix<'".(user_unix()-604800)."') AND UserID='".user_id()."'");    
+}
+
+function Report_Header($tlapor="", $tperiod="") {
+    $thasil = '<div style="text-align:center;font-size:12pt;"><b>'.strtoupper($_SESSION['__WEB_APP']['REG_NAME']);
+    $thasil .= (($tlapor=="") ? "" : '<br>'.$tlapor) . '</b>';
+    $thasil .= ($tperiod=="") ? "" : '<br><span style="font-size:11pt;">'.$tperiod.'</span>';
+    $thasil .= '</div><br>';
+    echo $thasil;
+}
+
+?>