first commit

2026-06-07 14:39:54 +07:00
commit 74f29bf756
104 changed files with 26026 additions and 0 deletions
@@ -0,0 +1,263 @@
+<?php
+
+/*******************************************************************
+
+    App. Name     : SISTEM INFORMASI PERENCANAAN PEMBANGUNAN DAERAH
+    Module        : /apps/php/func.sippd.php
+    Desc.         : PHP - Fungsi SIPPD
+    Created By    : Siau Pheng ([email protected]).
+    Created Date  : May 15th, 2012.
+    Last Modified : May 3rd, 2020.
+
+    (c) 2012 - 2020, 3FONIA Software; WWW.3FONIA.COM.
+
+*******************************************************************/
+
+require_once(__DIR__."/../../../../vendor/autoload.php");
+
+use siaupheng\fonia3\DB\MySQL;
+
+$fdb = $db ?? new MySQL();
+
+function map_tahun_submap($id_rpjmd = 0) {//oke
+    $amap = [2 => 2021, 3 => 2025, 4 => 2026];
+    return $amap[$id_rpjmd];
+}
+
+function tahun_ang($t_extra = "") {//oke
+    global $fdb;
+    $atahun = array();
+    $fdb->Query("SELECT Tahun FROM para_periode ORDER BY Tahun");
+    while ($fdb->Next()){
+        $atahun[$fdb->Row("Tahun")] = $t_extra . $fdb->Row("Tahun");
+    }
+    return $atahun;
+}
+
+/*************** RENSTRA ***************/
+
+function RENSTRA_Kode_Keg($id_rpjmd = "", $id_opd=0, $id_prog=0, $id_mkeg=0, $is_rutin=0) {
+    global $fdb;
+    if ($is_rutin==1) {
+        $fdb->Query("SELECT K_Keg FROM para_kegiatan WHERE KegID='".$id_mkeg."' LIMIT 1");
+        if ($fdb->Next()) $kode = $fdb->Row("K_Keg", "00");
+    } else {
+        $ino = 0;
+        $fdb->Query("SELECT MAX(CONVERT(K_Keg,SIGNED)) Nomor FROM renstra_detail WHERE RPJMDID='".$id_rpjmd."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."'");
+        if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+        $kode = isi_nol($ino+1, (($ino+1)>=100?3:2));
+    }
+    return $kode;
+}
+
+function RKA_Baru($k_tahun = "", $k_upt="", $tabel = "renja_keg") {
+    global $fdb;
+    $tno = $k_tahun . "-" . $k_upt . "-";
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(K_RKA,6)) Nomor FROM ".$tabel." WHERE LEFT(K_RKA,".strlen($tno).")='".$tno."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    $tno .= isi_nol($ino+1, 6);
+    return $tno;
+}
+
+function Kode_Keg_Baru($k_tahun = "", $id_opd=0, $id_prog=0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(K_Keg) Nomor FROM renja_subkeg WHERE Tahun='".$k_tahun."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    return isi_nol($ino+1, 2);
+}
+
+/*************** RENJA ***************/
+
+function KegID_Baru($id_rpjmd = 0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RKegID) Nomor FROM renja_keg WHERE RPJMDID='".$id_rpjmd."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    return ($ino+1);
+}
+
+function Keg_Baru($id_prog = 0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(K_Keg) Nomor FROM para_kegiatan WHERE ProgID='".$id_prog."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    //$tno = isi_nol($ino+1, 2); todo: p90
+    $tno = isi_nol($ino+1, 3);
+    return $tno;
+}
+
+function DPRD_Kode_Baru() {//oke
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(K_DPRD) Nomor FROM para_dprd");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    $tno = isi_nol($ino+1, 2);
+    return $tno;
+}
+
+/*************** POKIR ***************/
+
+function ID_Usulan_Dewan($id_rpjmd = 0, $tahun = 0) {
+    global $fdb;
+    $ino = 1;
+    $fdb->Query("SELECT MAX(UsulanDID)+1 Nomor FROM pok_usulan_dewan WHERE RPJMDID='".$id_rpjmd."' AND Tahun='".$tahun."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 1);
+    return $ino;
+}
+
+function Kode_Usulan_Dewan($id_dprd = 0) {
+    global $fdb;
+    $k_dewan = "00";
+    if ($id_dprd > 0) {
+        $fdb->Query("SELECT K_DPRD FROM para_dprd WHERE DPRDID='".$id_dprd."' LIMIT 1");
+        if ($fdb->Next()) $k_dewan = $fdb->Row("K_DPRD");
+    }
+    $tno = $k_dewan . "-";
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(Kode,3)) Nomor FROM pok_usulan_dewan WHERE LEFT(Kode,".strlen($tno).")='".$tno."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    $tno .= isi_nol($ino+1, 3);
+    return $tno;
+}
+
+function PokAksi_Array($is_form = false) {
+    $aaksi = array(0=>"Belum Verifikasi", 1=>"Diterima", 2=>"Ditolak", 3=>"Mohon Klarifikasi");
+    if ($is_form == true) unset($aaksi[0]);
+    return $aaksi;
+}
+
+function PokStatusAksi($aksi = 0) {
+    $aaksi = PokAksi_Array();
+    return $aaksi[$aksi];
+}
+
+/*************** MUSRENBANG ***************/
+
+function ID_Usulan_Desa($id_rpjmd = 0, $tahun = 0) {
+    global $fdb;
+    $ino = 1;
+    $fdb->Query("SELECT MAX(UsulanLID)+1 Nomor FROM mus_usulan_desa WHERE RPJMDID='".$id_rpjmd."' AND Tahun='".$tahun."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 1);
+    return $ino;
+}
+
+function Kode_Usulan_Kec($tahun = 0, $id_kec = 0) {
+    global $fdb;
+    $k_kec = "00";
+    if ($id_kec > 0) {
+        $fdb->Query("SELECT RIGHT(K_Lokasi,2) Kode FROM para_lokasi WHERE LokasiID='".$id_kec."' LIMIT 1");
+        if ($fdb->Next()) $k_kec = $fdb->Row("Kode");
+    }
+    $tno = $k_kec . "-";
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(Kode,3)) Nomor FROM mus_usulan_desa WHERE Tahun='".$tahun."' AND KecID='".$id_kec."' AND JU=3");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    $tno .= isi_nol($ino+1, 3);
+    return $tno;
+}
+
+function Kode_Usulan_Desa($id_desa = 0) {//todo: harus tambah tahun
+    global $fdb;
+    $k_desa = "000";
+    if ($id_desa > 0) {
+        $fdb->Query("SELECT K_Lokasi FROM para_lokasi WHERE LokasiID='".$id_desa."' LIMIT 1");
+        if ($fdb->Next()) $k_desa = $fdb->Row("K_Lokasi");
+    }
+    $tno = $k_desa . "-";
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(Kode,3)) Nomor FROM mus_usulan_desa WHERE LEFT(Kode,".strlen($tno).")='".$tno."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    $tno .= isi_nol($ino+1, 3);
+    return $tno;
+}
+
+function MUSPrio($iprio=0) {
+    if ($iprio==9) $iprio = 0;
+    $hasil = '<select class="text enabled req valid" onchange="MUsulPrioJS.oc_Prio(this);">';
+    for ($o=0; $o<=5; $o++) {
+        $hasil .= '<option value="'.$o.'"'.($o==$iprio?' selected="selected"':'').'>'.$o.'</option>';
+    }
+    $hasil .= '</select>';
+    return $hasil;
+}
+
+function MusPrio_Array() {
+    return array(0=>"0", 1=>"1", 2=>"2", 3=>"3", 4=>"4", 5=>"5");
+}
+
+/************************* DATA MANIPULATION FUNCTION *************************/
+
+function fastQuery($qry = "", $defval = "") {
+    global $fdb;
+    if ($qry=="") return false;
+    $fdb->Query($qry);
+    if (!$fdb->Next()) {
+        if ($defval!=="") return $defval;
+        return true;
+    }
+    $tmp_value = array_values($fdb->AllRow());
+    $tmp_value = $tmp_value[0] ? $tmp_value[0] : "";
+    if (trim($tmp_value)=="" && $defval!=="") return $defval;
+    return $tmp_value;
+}
+
+function fastQueryArray($qry = "", $defval = "") {
+    global $fdb;
+    $ahasil = array();
+    if ($qry=="") return $ahasil;
+    $fdb->Query($qry);
+    if ($fdb->RecordCount()==0) {
+        if ($defval!=="") $ahasil[] = $defval;
+        return $ahasil;
+    }
+    while ($fdb->Next()) {
+        $tmp_value = array_values($fdb->AllRow());
+        $ahasil[] = (trim($tmp_value[0])=="" && $defval!=="") ? $defval : $tmp_value[0];
+    }
+    return $ahasil;
+}
+
+function fastInsert($nama_tabel = "", $adata = []) {//up:2014-09-29
+    global $fdb;
+    if ($nama_tabel=="") return false;
+    $txt = "";
+    foreach ($adata as $_key => $_val) {
+        $txt .= ",`" . $_key . "`='" . $_val . "'";
+    }
+    $fdb->Query("INSERT IGNORE INTO ".$nama_tabel." SET ".substr($txt,1));
+    return $fdb->LastInsertID();
+}
+
+function fastUpdate($nama_tabel = "", $adata = [], $awhere = []) {//up:2014-09-29
+    global $fdb;
+    if ($nama_tabel=="") return false;
+    $txt = ""; $whr = "";
+    foreach ($adata as $_key => $_val) {
+        $txt .= ",`" . $_key . "`='" . $_val . "'";
+    }
+    foreach ($awhere as $_key => $_val) {
+        $whr .= "AND `" . $_key . "`='" . $_val . "'";
+    }
+    $fdb->Query("UPDATE ".$nama_tabel." SET ".substr($txt,1)." WHERE ".substr($whr,4));
+    return true;    
+}
+
+/*************** 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;
+}
+
+?>