first commit

2026-05-22 08:49:20 +07:00
commit 2884ce69f1
90 changed files with 13308 additions and 0 deletions
@@ -0,0 +1,171 @@
+<?php
+
+/*******************************************************************
+
+    App. Name     : SISTEM INFORMASI MONITORING DAN EVALUASI
+    Module        : /apps/php/func.emonev.php
+    Desc.         : PHP - Fungsi SiMONEv
+    Created By    : Siau Pheng ([email protected]).
+    Created Date  : May 15th, 2012.
+    Last Modified : February 3rd, 2026.
+
+    (c) 2012 - 2026, 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 tahun_ang($t_extra = "") {//oke
+    global $fdb;
+    $atahun = [];
+    $fdb->Query("SELECT Tahun FROM para_periode WHERE Tahun IN (SELECT Tahun FROM dpa90_prog) ORDER BY Tahun");
+    while ($fdb->Next()){
+        $atahun[$fdb->Row("Tahun")] = $t_extra . $fdb->Row("Tahun");
+    }
+    return $atahun;
+}
+
+function map_tahun_submap($thn_map = 0) {//oke
+    $amap = [2021 => 2022, 2024 => 2025];
+    return $amap[$thn_map] ?? $thn_map;
+}
+
+function map_tahun_akun($thn_map = 0) {//oke
+    if ($thn_map < 2025) $thn_map = 2025;
+    $amap = [2025 => 2025];
+    return $amap[$thn_map] ?? $thn_map;
+}
+
+function Kendali_ID($tahun = 0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(ID) Nomor FROM kendali_detail WHERE Tahun='".$tahun."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    return ($ino+1);
+}
+
+function RKA_Baru($k_tahun = "", $k_upt="", $tipe = "renja_usul") {
+    global $fdb;
+    $tno = $k_tahun . "-" . $k_upt . "-";
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(K_RKA,6)) Nomor FROM ".$tipe."_detail 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_upt=0, $id_prog=0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(K_Keg) Nomor FROM sippd_kalbar.renja_detail WHERE Tahun='".$k_tahun."' AND UPTID='".$id_upt."' AND ProgID='".$id_prog."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    return isi_nol($ino+1, 2);
+}
+
+function Renstra_KegID($id_rpjmd = 0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(RKegID) Nomor FROM sippd_kalbar.renstra_detail WHERE RPJMDID='".$id_rpjmd."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    return ($ino+1);
+}
+
+/*************** TIPE DATA INDIKATOR ***************/
+
+function input_tipedata($id_target = "Target_Indi", $id_tipe = 0, $val_target = "", $bol_en = false, $a_input = []) {
+    $ttarget = '<input type="double" class="form-control double" id="'.$id_target.'" value="'.floatval($val_target).'"'.($bol_en?:' readonly').' required=true />';
+    if ($id_tipe > 0) {
+        $ttarget = '<select class="form-select option-tags" id="'.$id_target.'" name="'.$id_target.'"'.($bol_en?:' disabled=true').'>';
+        $ttarget .= '<option value="">-</option>';
+        foreach(array_keys($a_input) as $_key) {
+            $ttarget .= '<option value="'.$_key.'"'.($_key==$val_target?' selected="selected"':'').'>'.$_key.'</option>';
+        }
+        $ttarget .= '</select>';
+    }
+    return $ttarget;
+}
+
+/*************** RENJA ***************/
+
+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);
+    return $tno;
+}
+
+/*************** USULAN KAB/KOTA ***************/
+
+function Kode_Keg_Kab_Baru($k_tahun = "", $id_kab=0, $id_prog=0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(K_Keg) Nomor FROM renja_kab_detail WHERE Tahun='".$k_tahun."' AND KabID='".$id_kab."' AND ProgID='".$id_prog."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    return isi_nol($ino+1, 2);
+}
+
+/*************** USULAN DPRD ***************/
+
+function Kode_Keg_DPRD_Baru($k_tahun = "", $id_dprd=0, $id_prog=0) {
+    global $fdb;
+    $ino = 0;
+    $fdb->Query("SELECT MAX(K_Keg) Nomor FROM renja_dprd_detail WHERE Tahun='".$k_tahun."' AND DPRDID='".$id_dprd."' AND ProgID='".$id_prog."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 0);
+    return isi_nol($ino+1, 2);
+}
+
+/*************** API ***************/
+
+function API_Request($url = "", $apost = array()) {
+    $curl_array = array(
+        CURLOPT_URL => $url ."?". http_build_query($apost),
+        CURLOPT_RETURNTRANSFER => true,
+        CURLOPT_ENCODING => "",
+        CURLOPT_MAXREDIRS => 10,
+        CURLOPT_TIMEOUT => 0,
+        CURLOPT_FOLLOWLOCATION => true,
+        CURLOPT_HTTP_VERSION => CURL_HTTP_VERSION_1_1,
+        CURLOPT_HTTPHEADER => array(
+            "Accept: application/json"
+        ),
+        CURLOPT_SSL_VERIFYHOST => false,
+        CURLOPT_SSL_VERIFYPEER => false
+    );
+
+    $curl = curl_init();
+    curl_setopt_array($curl, $curl_array);
+    $response = curl_exec($curl);
+    $err = curl_error($curl);
+    curl_close($curl);
+    if ($err) {
+        $aresult[] = $err;
+    } else {
+        $aresult = json_decode($response, true);
+    }
+    return $aresult;
+}
+
+/*************** 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;
+}
+
+?>