159 lines
11 KiB
PHP
159 lines
11 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(__DIR__."/../../../../../vendor/autoload.php");
|
|
require_once(__DIR__."/../func.emonev.php");
|
|
|
|
use siaupheng\fonia3\DB\MySQL;
|
|
use siaupheng\fonia3\DB\SQL;
|
|
use siaupheng\fonia3\Web\Param;
|
|
use siaupheng\fonia3\Web\Table;
|
|
use siaupheng\fonia3\Web\Form;
|
|
|
|
$db = $db ?? new MySQL();
|
|
$ajson = [];
|
|
$data = Param::Get("data");
|
|
$mode = Param::Get("mode");
|
|
$mode_detail = Param::Get("mode_detail");
|
|
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
|
$id_opd = Param::Get("OPDID", 0);
|
|
|
|
if ( in_array($data, ["tabel-opd","tabel-output"]) ) {
|
|
if ( $data == "tabel-opd" ) {
|
|
$qsql = " S.Aktif=1";
|
|
} else if ( $data == "tabel-output" ) {
|
|
$qsql = " Tahun='".$thn_renja."'";
|
|
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
|
|
|
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(1,3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
|
}
|
|
}
|
|
|
|
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
|
$tahun = Param::Get("Tahun", $_SESSION['__WEB_APP']['RENC_THN']);
|
|
$is_rutin = Param::Get("Cetak_Rutin", 1);
|
|
$nama_opd = "Kabupaten Mempawah";
|
|
$k_bu = "0.00";
|
|
if ($id_opd>0) {
|
|
$db->Query("SELECT Nama_OPD FROM vi_para90_opd WHERE OPDID='".$id_opd."'");
|
|
if ($db->Next()) {
|
|
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
|
}
|
|
$db->Query("SELECT K_Bidu1 FROM para90_opd WHERE OPDID='".$id_opd."'");
|
|
if ($db->Next()) {
|
|
$k_bu = $db->Row("K_Bidu1");
|
|
}
|
|
}
|
|
|
|
$tabel_data = "dpa90_sub"; $tsql = "";
|
|
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
|
if ($is_rutin>1) $tsql .= " AND T.ProgID<>422";
|
|
|
|
/* 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");*/
|
|
$db->Query("SELECT TRUE");
|
|
}
|
|
|
|
if ( $data == "tabel-opd" ) {
|
|
$obj = new Table($db);
|
|
$obj->set_query("SELECT S.* FROM vi_para90_opd S WHERE ".$qsql);
|
|
$obj->add_field("OPDID", "OPD", "hid");
|
|
$obj->add_field("Nama_OPD", "Nama OPD", "hid");
|
|
$obj->add_field("K_OPD", "Kode", "c");
|
|
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr");
|
|
$obj->set_field_order("K_OPD", "A");
|
|
$obj->add_row_btn("folder", "Output", "ELaksaRenjaJS.opd_select");
|
|
$obj->set_func_navi("ELaksaRenjaJS.data_query('tabel-opd')");
|
|
$obj->set_textbtn(true);
|
|
$ajson[] = $obj->json_table("divOPD");
|
|
|
|
} else if ( $data == "tabel-output" ) {
|
|
$header = '<hr>
|
|
<table width="100%" class="garis"><thead>
|
|
<tr><th width="50" rowspan="3">Kode</th><th width="100" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</th><th width="100" rowspan="2" colspan="2">Indikator Kinerja<br>Program/Kegiatan</th><th width="100" colspan="6">Rencana Tahun '.$thn_renja.'</th><th width="100" colspan="6">Prakiraan Maju Tahun '.($thn_renja+1).'</th><th width="100" rowspan="2" colspan="2">Kesesuaian</th><th width="100" rowspan="3">Evaluasi</th><th width="100" rowspan="3">Tindak Lanjut</th><th width="100" rowspan="3">Hasil Tindak Lanjut</th></tr>
|
|
<tr><th width="100" colspan="2">Lokasi</th><th width="100" colspan="2">Target Capaian Kinerja</th><th width="100" colspan="2">Dana</th><th width="100" colspan="2">Lokasi</th><th width="100" colspan="2">Target Capaian Kinerja</th><th width="100" colspan="2">Dana</th></tr>
|
|
<tr><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Ya</th><th width="50">Tidak</th></tr>
|
|
<tr><th>1</th><th>2</th><th>3</th><th>4</th><th>5</th><th>6</th><th>7</th><th>8</th><th>9</th><th>10</th><th>11</th><th>12</th><th>13</th><th>14</th><th>15</th><th>16</th><th>17</th><th>18</th><th>19</th><th>20</th><th>21</th></tr></thead><tbody>';
|
|
$_sub = '<tr><td nowrap>%s</td><td colspan="15">%s</td><td class="r">%s</td><td class="r">%s</td><td colspan="3">%s</td</tr>';
|
|
$_line = '<tr><td nowrap>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td class="r">%s</td><td class="r">%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td class="r">%s</td><td class="r">%s</td><td class="c">%s</td><td class="c">%s</td><td>%s</td><td>%s</td><td>%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 . "</tbody></table>";
|
|
|
|
} else if ( $data == "default") {
|
|
echo '
|
|
<div class="fade-in">
|
|
<div class="card"><div class="card-header custom-style">Evaluasi Pelaksanaan Renja // Tahun '.$thn_renja.'</div><div class="card-body">
|
|
<div class="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">
|
|
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
|
</div>
|
|
</div>
|
|
</div>
|
|
<div id="divOPD"> </div>
|
|
<div id="divOUTPUT"> </div>
|
|
</div></div>
|
|
</div>';
|
|
}
|
|
|
|
send_json($ajson);
|
|
?>
|