199 lines
6.5 KiB
PHP
199 lines
6.5 KiB
PHP
<?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;
|
|
use siaupheng\fonia3\DB\SQL;
|
|
|
|
$fdb = new MySQL();
|
|
|
|
function custom_header_sippd() {
|
|
if (!array_key_exists('__WEB_APP', $_SESSION)) return "";
|
|
return "TA : ".$_SESSION['__WEB_APP']['RENC_THN'];
|
|
}
|
|
|
|
function tahun_ang($t_extra = "") {//oke
|
|
global $fdb;
|
|
$atahun = [];
|
|
$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;
|
|
}
|
|
|
|
|
|
/*************** 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;
|
|
}
|
|
|
|
/*************** 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;
|
|
}
|
|
|
|
?>
|