Query("SELECT Tahun FROM para_periode WHERE Tahun IN (SELECT Tahun FROM dpa_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 ***************/
// 0 : numeric / 1 : range / 2 : rasio / * : enum_v2
function tipedata_query() {
return "SELECT TipeDataID,CONCAT(N_Tipe,IF(TipeDataID<3,'',CONCAT(' - ',JSON_UNQUOTE(JSON_EXTRACT(P_Input,'$.*'))))) Nama_Tipe FROM para_tipedata WHERE Aktif=1 ORDER BY TipeDataID";
}
function tipedata_select($id_target = "Target_Indi", $id_tipe = 0, $val_target = "", $bol_en = false, $a_input = [], $tcss = "") {
$ttarget = '';
if ($id_tipe == 2) { // rasio
$atarget = ($val_target == "") ? [0,0] : explode(":", $val_target);
$vtarget = '';
for ($i = 0; $i < 10; $i++) $vtarget .= array_merge(range('a','z'),range('A','Z'))[rand(0,51)];
$ttarget = ':
';
} else if ($id_tipe > 2) { // enum_v2
$ttarget = '';
}
return $ttarget;
}
function tipedata_status($id_target = "Status_Indi", $id_tipe = 0, $val_target = "", $bol_en = false) {
$astatus = ['komulatif' => "Komulatif", 'positif' => "Positif", 'negatif' => "Negatif", 'rata-rata' => "Rata-rata"];
if ($id_tipe >= 2) { // rasio + enum_v2
array_shift($astatus);
array_pop($astatus);
}
$ttarget = '';
return $ttarget;
}
function tipedata_poin($val_target = "") {
$thasil = $val_target;
if (strpos($val_target, ":") !== false) { // rasio
$atmp = explode(":", $val_target);
$thasil = (in_array(0, $atmp)) ? "" : $atmp[0] / $atmp[1];
}
return $thasil;
}
/*function tipedata_poin($id_tipe = 0, $val_target = "") {
$thasil = $val_target;
if ($id_tipe == 2) { // rasio
if (strpos($val_target, ":") !== false) {
$atmp = explode(":", $val_target);
$thasil = (in_array(0, $atmp, true)) ? "" : $atmp[0] / $atmp[1];
} else $thasil = "";
}
return $thasil;
}*/
function tipedata_tipe($id_tipe = 0) {
$atipe = [ 0 => "Numeric", 1 => "Range", 2 => "Rasio" ];
if ($atipe[$id_tipe]) return $atipe[$id_tipe];
return "Enum_v2";
}
/*************** 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 = ''.strtoupper($_SESSION['__WEB_APP']['REG_NAME']);
$thasil .= (($tlapor=="") ? "" : '
'.$tlapor) . '';
$thasil .= ($tperiod=="") ? "" : '
'.$tperiod.'';
$thasil .= '
';
echo $thasil;
}
?>