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 = '';
if ($id_tipe > 0) {
$ttarget = '';
}
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 = ''.strtoupper($_SESSION['__WEB_APP']['REG_NAME']);
$thasil .= (($tlapor=="") ? "" : '
'.$tlapor) . '';
$thasil .= ($tperiod=="") ? "" : '
'.$tperiod.'';
$thasil .= '
';
echo $thasil;
}
?>