fixed hak akses kinerja utk opd

apps/php/mon/faktor_opd.php

@@ -7,7 +7,7 @@
     Desc.         : PHP - Kelola Faktor Pendukung OPD
     Created By    : Siau Pheng ([email protected]).
     Created Date  : December 7th, 2011.
-    Last Modified : April 14th, 2026.
+    Last Modified : August 26th, 2026.
 
     (c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
 
@@ -50,16 +50,16 @@ if ( in_array($data, ["tabel-opd","detail-faktor"]) ) {
 }
 
 if ( $data == "tabel-opd" ) {
-    $f_real = (in_array($_SESSION['__WEB_USER']['Level'],[0,1])) ? "1" : "0";
+    $f_tw = (in_array($_SESSION['__WEB_USER']['Level'],[0,1])) ? "1" : "0";
     if (in_array($_SESSION['__WEB_USER']['Level'],[3,4])) {
-        $f_real = "IFNULL(H.Hak_Real,1)";
+        $f_tw = "IFNULL(H.Hak_Kin_T".$tw_data.",1)";
     }
     $obj = new Table($db);
-    $obj->set_query("SELECT M.OPDID,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_real." Hak_Real FROM vi_para90_opd M LEFT JOIN (SELECT OPDID,Hak_Real FROM sippd_akses_sip WHERE Tahun='".$thn_renja."') H ON (H.OPDID=M.OPDID) WHERE ".$msql);
+    $obj->set_query("SELECT M.OPDID,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_tw." Hak_Tw FROM vi_para90_opd M LEFT JOIN (SELECT * FROM sippd_akses_mon WHERE Tahun='".$thn_renja."') H ON (H.OPDID=M.OPDID) WHERE ".$msql);
     $obj->add_field("OPDID", "OPD", "hid");
     $obj->add_field("ORGID", "ORG", "hid");
     $obj->add_field("Nama_OPD", "Nama OPD", "hid");
-    $obj->add_field("Hak_Real", "Real", "hid");
+    $obj->add_field("Hak_Tw", "Hak Tw", "hid");
     $obj->add_field("K_OPD", "Kode", "c");
     $obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr");
     //$obj->add_field("TGL", "Update", "c nwr", "sqljams", "", "val-tgljams");

apps/php/mon/kinerja.php

@@ -7,7 +7,7 @@
     Desc.         : PHP - Kelola Realisasi Kinerja OPD
     Created By    : Siau Pheng ([email protected]).
     Created Date  : December 7th, 2011.
-    Last Modified : July 7th, 2026.
+    Last Modified : August 26th, 2026.
 
     (c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
 
@@ -138,7 +138,7 @@ if ( $data == "tabel-opd" ) {
         $f_bln = "IFNULL(H.Hak_Kin_B".isi_nol($bln_data,2).",1)"; $f_tw = "IFNULL(H.Hak_Kin_T".$tw_data.",1)"; 
     }
     $obj = new Table($db);
-    $obj->set_query("SELECT K.*,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_bln." Hak_Bln,".$f_tw." Hak_Tw FROM (SELECT A.OPDID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON,MAX(A.Real_Stamp) TGL FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY OPDID) B ON (B.OPDID=A.OPDID) GROUP BY A.OPDID) K LEFT JOIN (SELECT OPDID,Hak_Renja FROM sippd_akses_mon WHERE Tahun='".$thn_data."') H ON (H.OPDID=K.OPDID) LEFT JOIN vi_para90_opd M ON (M.OPDID=K.OPDID) WHERE M.Aktif=1");
+    $obj->set_query("SELECT K.*,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_bln." Hak_Bln,".$f_tw." Hak_Tw FROM (SELECT A.OPDID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON,MAX(A.Real_Stamp) TGL FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY OPDID) B ON (B.OPDID=A.OPDID) GROUP BY A.OPDID) K LEFT JOIN (SELECT * FROM sippd_akses_mon WHERE Tahun='".$thn_data."') H ON (H.OPDID=K.OPDID) LEFT JOIN vi_para90_opd M ON (M.OPDID=K.OPDID) WHERE M.Aktif=1");
     $obj->set_query_footer("SELECT 1 OPDID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT 1 OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql.") B ON (B.OPDID=A.OPDID)");
     $obj->add_field("OPDID", "OPD", "hid");
     $obj->add_field("ORGID", "ORG", "hid");

index.php

@@ -21,39 +21,12 @@ use siaupheng\fonia3\Web\Auth;
 use siaupheng\fonia3\Web\Param;
 use siaupheng\fonia3\DB\MySQL;
 
-/*function requestData($url, $postdata = null){
-    $ch = curl_init($url); 
-    $headers = array( 'Accept: application/json' );
-    curl_setopt_array($ch, array(
-        CURLOPT_POST  => 1,
-        CURLOPT_HTTPHEADER  => $headers,
-        CURLOPT_POSTFIELDS  => $postdata,
-        CURLOPT_RETURNTRANSFER  =>true,
-        CURLOPT_VERBOSE     => 1
-    ));
-    $output = curl_exec($ch);
-    curl_close($ch);      
-    return $output;
-}
-
-$token = $_GET['token'];
-if (!empty($token) && !$_SESSION['token']) $_SESSION['token'] = $token;
-$user = "";
-if ($_SESSION['token']) {
-    $url = "http://127.0.0.1/TEST/sso/provider/cek_token.php?token=".$_SESSION['token'];
-    $respon = json_decode(requestData($url));
-    $user = $respon->data;
-    if ($respon->code != 200) {
-        unset($_SESSION['token']);
-    }
-}*/
-
 $db = $db ?? new MySQL();
 $auth = new Auth($db);
 $auth->set_id_reg($_SESSION['__WEB_APP']['PARENT_CODE']);
 
 $token = Param::Get("auth", "");
-if (!empty($token) && !$_SESSION['APP_TOKEN']) $_SESSION['APP_TOKEN'] = $token;
+if (!empty($token) && !empty($_SESSION['APP_TOKEN'])) $_SESSION['APP_TOKEN'] = $token;
 if ($_SESSION['APP_TOKEN'] ?? false) {
     if ($auth->token_check()) {
         if (!isset($_SESSION['__WEB_USER'])) {