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; } function PokStatusAksi($aksi = 0) { $aaksi = PokAksi_Array(); return $aaksi[$aksi]; } /*************** 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 = ''; return $hasil; } function MusPrio_Array() { return array(0=>"0", 1=>"1", 2=>"2", 3=>"3", 4=>"4", 5=>"5"); } /*************** 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 = '