187 lines
14 KiB
PHP
187 lines
14 KiB
PHP
<?php
|
|
|
|
/*******************************************************************
|
|
|
|
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
|
Module : /apps/php/mon/elaksa_renja.php
|
|
Desc. : PHP - Evaluasi Pelaksanaan Renja
|
|
Created By : Siau Pheng ([email protected]).
|
|
Created Date : December 7th, 2011.
|
|
Last Modified : April 12th, 2017.
|
|
|
|
(c) 2011 - 2017, 3FONIA Software; WWW.3FONIA.COM.
|
|
|
|
*******************************************************************/
|
|
|
|
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
|
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
|
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
|
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
|
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
|
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
|
require_once(dirname(__FILE__)."/../func.emonev.php");
|
|
|
|
$db = DB();
|
|
$ajson = array();
|
|
$data = $ap->getParam("data");
|
|
$mode = $ap->getParam("mode");
|
|
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
|
$id_opd = $ap->getParam("OPDID", 0);
|
|
$id_upt = $ap->getParam("UPTID", 0);
|
|
|
|
if ( $data == "tabel-opd" || $data == "tabel-upt" || $data == "tabel-output" ) {
|
|
if ( $data == "tabel-opd" ) {
|
|
$qsql = " S.Aktif=1";
|
|
} else if ( $data == "tabel-upt" ) {
|
|
$qsql = " U.Aktif=1";
|
|
$qsql .= ($id_opd==0) ? "" : " AND U.OPDID='".$id_opd."'";
|
|
} else if ( $data == "tabel-output" ) {
|
|
$qsql = " Tahun='".$thn_renja."'";
|
|
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
|
$qsql .= ($id_upt==0) ? "" : " AND UPTID='".$id_upt."'";
|
|
|
|
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
|
$qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
|
}
|
|
}
|
|
|
|
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
|
$tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['RENC_THN']);
|
|
$is_rutin = $ap->getParam("Cetak_Rutin", 1);
|
|
$nama_opd = "Kabupaten Mempawah";
|
|
$k_bu = "0.00";
|
|
if ($id_opd>0) {
|
|
$db->Query("SELECT Nama_OPD,K_BidangU FROM vi_para_opd WHERE OPDID='".$id_opd."'");
|
|
if ($db->Next()) {
|
|
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
|
$k_bu = $db->Row("K_BidangU");
|
|
}
|
|
}
|
|
|
|
$tabel_data = "dpa_detail"; $tsql = "";
|
|
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
|
if ($id_upt>0) $tsql .= " AND T.UPTID='".$id_upt."'";
|
|
if ($is_rutin>1) $tsql .= " AND T.ProgID>7";
|
|
|
|
// proses rekap database
|
|
Report_Empty("laksa_urus");
|
|
Report_Empty("laksa_bidu");
|
|
Report_Empty("laksa_opd");
|
|
Report_Empty("laksa_upt");
|
|
Report_Empty("laksa_prog");
|
|
|
|
// insert urusan
|
|
$db->Query("INSERT INTO rep_laksa_urus SELECT T.Tahun,BU.K_Urusan,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
|
// insert bidang urusan
|
|
$db->Query("INSERT INTO rep_laksa_bidu SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
|
// insert opd
|
|
$db->Query("INSERT INTO rep_laksa_opd SELECT T.Tahun,T.OPDID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID");
|
|
// insert upt
|
|
$db->Query("INSERT INTO rep_laksa_upt SELECT T.Tahun,T.OPDID,T.UPTID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID");
|
|
// insert program
|
|
$db->Query("INSERT INTO rep_laksa_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
|
|
|
$tsql = "";
|
|
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
|
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
|
if ($is_rutin>1) $tsql .= " AND ProgID>7";
|
|
$db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_OPD KO_OPD,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,UCASE(A.N_Urusan) N_URUSAN,A.N_BidangU N_FUNGSI,A.N_OPD,A.N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.Lokasi,B.Lokasi LokasiR,A.B_Total PAGU,A.T_Hasil,B.Indi_Hasil T_HasilR,A.T_Keluar,B.Ini_Target T_KeluarR,B.Ini_Pagu PAGUR,A.Eval_Sesuai,A.Eval_Evaluasi,A.Eval_Tindak,A.Eval_Lanjut,RU.*,RB.*,RO.*,RT.*,RP.* FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,S.K_OPD,S.N_OPD,U.N_UPT,P.N_Urut,P.N_Prog,IF(ISNULL(R.K_Urusan),S.K_Urusan,R.K_Urusan) K_Urusan,IF(ISNULL(R.K_Urusan),S.N_Urusan,R.N_Urusan) N_Urusan,IF(ISNULL(R.K_Urusan),S.K_BidangU,BU.K_BidangU) K_BidangU,IF(ISNULL(R.K_Urusan),S.N_BidangU,BU.N_BidangU) N_BidangU FROM (SELECT * FROM ".$tabel_data." WHERE Tahun='".$tahun."'".$tsql.") T LEFT JOIN dpa_prog PR ON (T.Tahun=PR.Tahun AND T.OPDID=PR.OPDID AND T.UPTID=PR.UPTID AND T.ProgID=PR.ProgID) LEFT JOIN vi_para_opd S ON (T.OPDID=S.OPDID) LEFT JOIN para_upt U ON (T.UPTID=U.UPTID) LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (P.K_BidangU=BU.K_BidangU) LEFT JOIN para_urusan R ON (BU.K_Urusan=R.K_Urusan)) A LEFT JOIN (SELECT * FROM renja_detail WHERE Tahun='".$tahun."'".$tsql.") B ON (A.RKegID=B.RKegID) LEFT JOIN rep_laksa_urus RU ON (A.K_Urusan=RU.K_Urusan AND A.Tahun=RU.Tahun AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') LEFT JOIN rep_laksa_bidu RB ON (A.K_BidangU=RB.K_BidangU AND A.Tahun=RB.Tahun AND RB.UserID='".user_id()."' AND RB.Unix='".user_unix()."') LEFT JOIN rep_laksa_opd RO ON (A.OPDID=RO.OPDID AND A.Tahun=RO.Tahun AND RO.UserID='".user_id()."' AND RO.Unix='".user_unix()."') LEFT JOIN rep_laksa_upt RT ON (A.OPDID=RT.OPDID AND A.UPTID=RT.UPTID AND A.Tahun=RT.Tahun AND RT.UserID='".user_id()."' AND RT.Unix='".user_unix()."') LEFT JOIN rep_laksa_prog RP ON (A.ProgID=RP.ProgID AND A.OPDID=RP.OPDID AND A.UPTID=RP.UPTID AND A.Tahun=RP.Tahun AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') ORDER BY A.K_Urusan, A.K_BidangU, A.N_Urut, A.K_Prog, A.K_UPT, A.K_Keg");
|
|
}
|
|
|
|
if ( $data == "tabel-opd" ) {
|
|
$obj = new cGRIDTABLE();
|
|
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
|
$obj->add_field("OPDID", "OPD", "hidden");
|
|
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
|
$obj->add_field("K_OPD", "Kode", "center");
|
|
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
|
$obj->set_field_order("K_OPD", "A");
|
|
$obj->add_row_btn("folder", "Unit / UPTD", "ELaksaRPJMDJS.opd_select");
|
|
$obj->set_func_navi("ELaksaRKPDJS.data_query('tabel-opd')");
|
|
$obj->set_textbtn(true);
|
|
$ajson[] = $obj->json_table("divOPD");
|
|
|
|
} else if ( $data == "tabel-upt" ) {
|
|
$obj = new cGRIDTABLE();
|
|
$obj->set_query("SELECT U.* FROM vi_para_upt U WHERE ".$qsql);
|
|
$obj->add_field("UPTID", "UPT", "hidden");
|
|
$obj->add_field("Nama_UPT", "Nama UPT", "hidden");
|
|
$obj->add_field("K_UPT", "Kode", "center");
|
|
$obj->add_field("N_UPT", "Nama Unit / UPTD", "left autowrap");
|
|
$obj->set_field_order("K_UPT", "A");
|
|
$obj->add_row_btn("folder", "Output", "ELaksaRKPDJS.upt_select");
|
|
$obj->set_func_navi("ELaksaRKPDJS.data_query('tabel-upt')");
|
|
$obj->set_textbtn(true);
|
|
$ajson[] = $obj->json_table("divUPT");
|
|
|
|
} else if ( $data == "tabel-output" ) {
|
|
$header = '<hr>
|
|
<table width="100%" class="garis">
|
|
<tr><td width="50" class="center bold" rowspan="3">Kode</td><td width="100" class="center bold" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</td><td width="100" class="center bold" rowspan="2" colspan="2">Indikator Kinerja<br>Program/Kegiatan</td><td width="100" class="center bold" colspan="6">Rencana Tahun '.$thn_renja.'</td><td width="100" class="center bold" colspan="6">Prakiraan Maju Tahun '.($thn_renja+1).'</td><td width="100" class="center bold" rowspan="2" colspan="2">Kesesuaian</td><td width="100" class="center bold" rowspan="3">Evaluasi</td><td width="100" class="center bold" rowspan="3">Tindak Lanjut</td><td width="100" class="center bold" rowspan="3">Hasil Tindak Lanjut</td></tr>
|
|
<tr><td width="100" class="center bold" colspan="2">Lokasi</td><td width="100" class="center bold" colspan="2">Target Capaian Kinerja</td><td width="100" class="center bold" colspan="2">Dana</td><td width="100" class="center bold" colspan="2">Lokasi</td><td width="100" class="center bold" colspan="2">Target Capaian Kinerja</td><td width="100" class="center bold" colspan="2">Dana</td></tr>
|
|
<tr><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Ya</td><td width="50" class="center bold">Tidak</td></tr>
|
|
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center">5</td><td class="center">6</td><td class="center">7</td><td class="center">8</td><td class="center">9</td><td class="center">10</td><td class="center">11</td><td class="center">12</td><td class="center">13</td><td class="center">14</td><td class="center">15</td><td class="center">16</td><td class="center">17</td><td class="center">18</td><td class="center">19</td><td class="center">20</td><td class="center">21</td></tr>';
|
|
$_sub = '<tr><td class="left" nowrap>%s</td><td colspan="15" class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td colspan="3" class="left">%s</td</tr>';
|
|
$_line = '<tr><td class="left" nowrap>%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="center">%s</td><td class="center">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td></tr>';
|
|
$body = $urus = $fung = $opd = $upt = $prog = "";
|
|
while ($db->Next()) {
|
|
if ($urus <> $db->Row("KO_URUSAN")) {
|
|
$body .= sprintf($_sub, $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), rupiah($db->Row("URUS_YA")), rupiah($db->Row("URUS_TIDAK")), "");
|
|
$urus = $db->Row("KO_URUSAN");
|
|
}
|
|
if ($fung <> $db->Row("KO_FUNGSI")) {
|
|
$body .= sprintf($_sub, $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), rupiah($db->Row("BIDU_YA")), rupiah($db->Row("BIDU_TIDAK")), "");
|
|
$fung = $db->Row("KO_FUNGSI");
|
|
}
|
|
if ($opd <> $db->Row("KO_OPD")) {
|
|
$body .= sprintf($_sub, $db->Row("KO_OPD"), $db->Row("N_OPD"), rupiah($db->Row("OPD_YA")), rupiah($db->Row("OPD_TIDAK")), "");
|
|
$opd = $db->Row("KO_OPD");
|
|
}
|
|
if ($upt <> $db->Row("KO_UPT")) {
|
|
$body .= sprintf($_sub, $db->Row("KO_UPT"), $db->Row("N_UPT"), rupiah($db->Row("UPT_YA")), rupiah($db->Row("UPT_TIDAK")), "");
|
|
$upt = $db->Row("KO_UPT");
|
|
}
|
|
if ($prog <> $db->Row("KO_PROGRAM")) {
|
|
$body .= sprintf($_sub, $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), rupiah($db->Row("PROG_YA")), rupiah($db->Row("PROG_TIDAK")), "");
|
|
$prog = $db->Row("KO_PROGRAM");
|
|
}
|
|
$body .= sprintf($_line, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("T_HasilR"), $db->Row("T_Hasil"), $db->Row("LokasiR"), $db->Row("Lokasi"), $db->Row("T_KeluarR"), $db->Row("T_Keluar"), rupiah($db->Row("PAGUR")), rupiah($db->Row("PAGU")), "", "", "", "", "", "", ($db->Row("Eval_Sesuai")==1?"V":""), ($db->Row("Eval_Sesuai")==2?"V":""), $db->Row("Eval_Evaluasi"), $db->Row("Eval_Tindak"), $db->Row("Eval_Lanjut"));
|
|
}
|
|
echo $header . $body . "</table>";
|
|
|
|
} else if ( $data == "default") {
|
|
echo '
|
|
<div class="fade-in">
|
|
<div class="card"><div class="card-header custom-style">Evaluasi Pelaksanaan RPJMD // Tahun '.$thn_renja.'</div><div class="card-body">
|
|
<div class="form-row mb-1">
|
|
<div class="col">
|
|
<div class="input-group">
|
|
<input class="form-control" id="Nama_OPD" placeholder="Nama Perangkat Daerah" type="text" readonly>
|
|
<input id="OPDID" type="hidden" value="0">
|
|
<span class="input-group-append">
|
|
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
|
</span>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
<div class="form-row mb-1">
|
|
<div class="col">
|
|
<div class="input-group">
|
|
<input class="form-control" id="Nama_UPT" placeholder="Nama Unit / UPTD " type="text" readonly>
|
|
<input id="UPTID" type="hidden" value="0">
|
|
<span class="input-group-append">
|
|
<button class="btn btn-info btn-ganti" type="button" id="butUPT"><span><i class="bi-arrow-left-right"></span></i>UPTD</button>
|
|
</span>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
<div id="divOPD"> </div>
|
|
<div id="divUPT"> </div>
|
|
<div id="divOUTPUT"> </div>
|
|
</div></div>
|
|
</div>';
|
|
}
|
|
|
|
send_json($ajson);
|
|
?>
|