204 lines
19 KiB
PHP
204 lines
19 KiB
PHP
<?php
|
|
|
|
/*******************************************************************
|
|
|
|
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
|
Module : /apps/php/mon/ehasil_renja.php
|
|
Desc. : PHP - Evaluasi Hasil Renja
|
|
Created By : Siau Pheng ([email protected]).
|
|
Created Date : December 7th, 2011.
|
|
Last Modified : May 24th, 2025.
|
|
|
|
(c) 2011 - 2025, 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\Form;
|
|
|
|
function emonev_kinerja($persen = 0) {
|
|
$hasil = "Sangat Rendah";
|
|
if ($persen >= 91) {
|
|
$hasil = "Sangat Tinggi";
|
|
} else if ($persen >= 76) {
|
|
$hasil = "Tinggi";
|
|
} else if ($persen >= 66) {
|
|
$hasil = "Sedang";
|
|
} else if ($persen >= 51) {
|
|
$hasil = "Rendah";
|
|
}
|
|
return $hasil;
|
|
}
|
|
|
|
$db = $db ?? new MySQL();
|
|
$db2 = $db2 ?? new MySQL();
|
|
$ajson = [];
|
|
$data = Param::Get("data");
|
|
$tahun = Param::Get("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
|
$twulan = Param::Get("TW", $_SESSION['__WEB_APP']['REAL_TW']);
|
|
$id_opd = Param::Get("OPDID", 0);
|
|
|
|
if ( in_array($data, ["print","export"]) ) {
|
|
$aopd = []; $arpjmd = [];
|
|
$db->Query("SELECT * FROM para90_opd WHERE OPDID='".$id_opd."' LIMIT 1");
|
|
if ($db->Next()) $aopd = $db->AllRow();
|
|
|
|
$db->Query("SELECT * FROM vi_para_rpjmd WHERE RPJMD=1 AND '".$tahun."' BETWEEN Tahun_Min AND Tahun_Max ORDER BY RPJMDID DESC LIMIT 1");
|
|
if ($db->Next()) $arpjmd = $db->AllRow();
|
|
|
|
$tsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."'";
|
|
|
|
// proses rekap database
|
|
if ($twulan == 1) {
|
|
$qf1 = ",S_TW1RP";
|
|
$qv1 = ",RealK_TW1";
|
|
$qv2 = "RealK_TW1";
|
|
$qv3 = ",A.S_TW1K=B.Real_TW1";
|
|
$qv4 = "B.Real_TW1,0";
|
|
} else if ($twulan == 2) {
|
|
$qf1 = ",S_TW1RP,S_TW2RP";
|
|
$qv1 = ",RealK_TW1,RealK_TW2";
|
|
$qv2 = "RealK_TW1+RealK_TW2";
|
|
$qv3 = ",A.S_TW1K=B.Real_TW1,A.S_TW2K=B.Real_TW2-B.Real_TW1";
|
|
} else if ($twulan == 3) {
|
|
$qf1 = ",S_TW1RP,S_TW2RP,S_TW3RP";
|
|
$qv1 = ",RealK_TW1,RealK_TW2,RealK_TW3";
|
|
$qv2 = "RealK_TW1+RealK_TW2+RealK_TW3";
|
|
$qv3 = ",A.S_TW1K=B.Real_TW1,A.S_TW2K=B.Real_TW2-B.Real_TW1,A.S_TW3K=B.Real_TW3-B.Real_TW2-B.Real_TW1";
|
|
} else if ($twulan == 4) {
|
|
$qf1 = ",S_TW1RP,S_TW2RP,S_TW3RP,S_TW4RP";
|
|
$qv1 = ",RealK_TW1,RealK_TW2,RealK_TW3,RealK_TW4";
|
|
$qv2 = "RealK_TW1+RealK_TW2+RealK_TW3+RealK_TW4";
|
|
$qv3 = ",A.S_TW1K=B.Real_TW1,A.S_TW2K=B.Real_TW2-B.Real_TW1,A.S_TW3K=B.Real_TW3-B.Real_TW2-B.Real_TW1,A.S_TW4K=B.Real_TW4-B.Real_TW3-B.Real_TW2-B.Real_TW1";
|
|
}
|
|
|
|
$db->Query("CREATE TEMPORARY TABLE IF NOT EXISTS emonev_renja LIKE templ_emonev_renja");
|
|
$db->Query("TRUNCATE emonev_renja");
|
|
// ambil data sub kegiatan
|
|
$db->Query("INSERT INTO emonev_renja (RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,K_Sub,S_7RP".$qf1.",S_12RP) SELECT RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,REPLACE(K_Sub,'X.XX','0.00'),Pagu_Ini".$qv1.",".$qv2." FROM dpa90_sub".$tsql." AND Pagu_Ini>0");
|
|
|
|
// update k_sub2 sesuai bidang urusan dari program dpa
|
|
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_prog".$tsql.") B SET A.K_Bidu=B.K_Bidu,A.K_Sub2=CONCAT(B.K_Bidu,RIGHT(A.K_Sub,13)) WHERE A.ProgID=B.ProgID");
|
|
|
|
// ambil target renstra + realisasi lalu
|
|
// YG BELUM : S_5K, S_5RP, S_6K, S_6RP
|
|
|
|
// sub kegiatan
|
|
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_sub_output".$tsql.") B SET A.S_Indi=B.Text_Output,A.S_Satuan=B.Satuan_Output,A.S_7K=B.Target_Output".$qv3." WHERE A.SubID=B.SubID");
|
|
$db->Query("UPDATE emonev_renja A SET A.S_12K=A.S_TW1K+A.S_TW2K+A.S_TW3K+A.S_TW4K");
|
|
$db->Query("UPDATE emonev_renja A SET A.S_13K=IFNULL(A.S_12K/A.S_7K*100,0),A.S_13RP=IFNULL(A.S_12RP/A.S_7RP*100,0),A.S_14K=A.S_6K+A.S_12K,A.S_14RP=A.S_6RP+A.S_12RP,A.S_15K=IFNULL(A.S_14K/A.S_5K*100,0),A.S_15RP=IFNULL(A.S_14RP/A.S_5RP*100,0)");
|
|
|
|
// kegiatan ( YG BELUM : K_5K, K_5RP, K_6K, K_6RP )
|
|
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_keg_keluar".$tsql.") B SET A.K_Indi=B.Text_Keluar,A.K_Satuan=B.Satuan_Keluar,A.K_7K=B.Target_Keluar WHERE A.KegID=B.KegID");
|
|
$db->Query("UPDATE emonev_renja A,(SELECT KegID,SUM(S_7RP) K_7RP,AVG(S_TW1K/S_7K)*100 K_TW1K,SUM(S_TW1RP) K_TW1RP,AVG(S_TW2K/S_7K)*100 K_TW2K,SUM(S_TW2RP) K_TW2RP,AVG(S_TW3K/S_7K)*100 K_TW3K,SUM(S_TW3RP) K_TW3RP,AVG(S_TW4K/S_7K)*100 K_TW4K,SUM(S_TW4RP) K_TW4RP,SUM(S_12RP) K_12RP FROM emonev_renja".$tsql." GROUP BY KegID) B SET A.K_7RP=B.K_7RP,A.K_TW1K=B.K_TW1K,A.K_TW1RP=B.K_TW1RP,A.K_TW2K=B.K_TW2K,A.K_TW2RP=B.K_TW2RP,A.K_TW3K=B.K_TW3K,A.K_TW3RP=B.K_TW3RP,A.K_TW4K=B.K_TW4K,A.K_TW4RP=B.K_TW4RP,A.K_12K=B.K_TW1K+B.K_TW2K+B.K_TW3K+B.K_TW4K,A.K_12RP=B.K_12RP WHERE A.KegID=B.KegID");
|
|
$db->Query("UPDATE emonev_renja A SET A.K_13K=IFNULL(A.K_12K/A.K_7K*100,0),A.K_13RP=IFNULL(A.K_12RP/A.K_7RP*100,0),A.K_14K=A.K_6K+A.K_12K,A.K_14RP=A.K_6RP+A.K_12RP,A.K_15K=IFNULL(A.K_14K/A.K_5K*100,0),A.K_15RP=IFNULL(A.K_14RP/A.K_5RP*100,0)");
|
|
|
|
// program ( YG BELUM : P_5K, P_5RP, P_6K, P_6RP )
|
|
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_prog_indi".$tsql.") B SET A.P_Indi=B.Text_Indi,A.P_Satuan=B.Satuan_Indi,A.P_7K=B.Target_Indi WHERE A.ProgID=B.ProgID");
|
|
$db->Query("UPDATE emonev_renja A,(SELECT ProgID,SUM(DISTINCT K_7RP) P_7RP,AVG(DISTINCT K_TW1K) P_TW1K,SUM(DISTINCT K_TW1RP) P_TW1RP,AVG(DISTINCT K_TW2K) P_TW2K,SUM(DISTINCT K_TW2RP) P_TW2RP,AVG(DISTINCT K_TW3K) P_TW3K,SUM(DISTINCT K_TW3RP) P_TW3RP,AVG(DISTINCT K_TW4K) P_TW4K,SUM(DISTINCT K_TW4RP) P_TW4RP,SUM(DISTINCT K_12RP) P_12RP FROM emonev_renja".$tsql." GROUP BY ProgID) B SET A.P_7RP=B.P_7RP,A.P_TW1K=B.P_TW1K,A.P_TW1RP=B.P_TW1RP,A.P_TW2K=B.P_TW2K,A.P_TW2RP=B.P_TW2RP,A.P_TW3K=B.P_TW3K,A.P_TW3RP=B.P_TW3RP,A.P_TW4K=B.P_TW4K,A.P_TW4RP=B.P_TW4RP,A.P_12K=B.P_TW1K+B.P_TW2K+B.P_TW3K+B.P_TW4K,A.P_12RP=B.P_12RP WHERE A.ProgID=B.ProgID");
|
|
$db->Query("UPDATE emonev_renja A SET A.P_13K=IFNULL(A.P_12K/A.P_7K*100,0),A.P_13RP=IFNULL(A.P_12RP/A.P_7RP*100,0),A.P_14K=A.P_6K+A.P_12K,A.P_14RP=A.P_6RP+A.P_12RP,A.P_15K=IFNULL(A.P_14K/A.P_5K*100,0),A.P_15RP=IFNULL(A.P_14RP/A.P_5RP*100,0)");
|
|
|
|
// bidang urusan
|
|
$db->Query("UPDATE emonev_renja A,(SELECT K_Bidu,SUM(DISTINCT P_5RP) B_5RP,SUM(DISTINCT P_6RP) B_6RP,SUM(DISTINCT P_7RP) B_7RP,SUM(DISTINCT P_TW1RP) B_TW1RP,SUM(DISTINCT P_TW2RP) B_TW2RP,SUM(DISTINCT P_TW3RP) B_TW3RP,SUM(DISTINCT P_TW4RP) B_TW4RP,SUM(DISTINCT P_12RP) B_12RP FROM emonev_renja".$tsql." GROUP BY K_Bidu) B SET A.B_5RP=B.B_5RP,A.B_6RP=B.B_6RP,A.B_7RP=B.B_7RP,A.B_TW1RP=B.B_TW1RP,A.B_TW2RP=B.B_TW2RP,A.B_TW3RP=B.B_TW3RP,A.B_TW4RP=B.B_TW4RP,A.B_12RP=B.B_12RP WHERE A.K_Bidu=B.K_Bidu");
|
|
$db->Query("UPDATE emonev_renja A SET A.B_13RP=IFNULL(A.B_12RP/A.B_7RP*100,0),A.B_14RP=A.B_6RP+A.B_12RP,A.B_15RP=IFNULL(A.B_14RP/A.B_5RP*100,0)");
|
|
|
|
$db->Query("SELECT * FROM emonev_renja A LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."') B ON (A.SubID=B.SubID) LEFT JOIN (SELECT K_Bidu,N_Bidu FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."' GROUP BY K_Bidu) C ON (A.K_Bidu=C.K_Bidu) ORDER BY A.K_Bidu,A.K_Sub");
|
|
}
|
|
|
|
if ( $data == "print" ) {
|
|
$header = '<p class="judul">EVALUASI TERHADAP HASIL RENJA PERANGKAT DAERAH LINGKUP KABUPATEN MEMPAWAH<br>RENJA PERANGKAT DAERAH '.strtoupper($aopd['N_OPD']).' KABUPATEN MEMPAWAH<br>PERIODE PELAKSANAAN : TRIWULAN '.romawi($twulan).' TAHUN ANGGARAN '.$tahun.'</p>
|
|
<table class="garis min-65"><thead>
|
|
<tr><th width="20" rowspan="3">No.</th><th width="50" rowspan="3">Sasaran</th><th width="100" colspan="2" rowspan="3">Urusan/Bidang Urusan Pemerintahan Daerah<br> dan Program/Kegiatan/Sub Kegiatan</th><th width="100" rowspan="3">Indikator Kinerja Program<br>(Outcome)/Kegiatan<br>(Output)</th><th width="100" colspan="2">Target Renstra Perangkat<br>Daerah pada Tahun '.$arpjmd['Periode'].'</th><th width="100" colspan="2">Realisasi Capaian Kinerja<br>Renstra Perangkat Daerah S/D Renja<br> Perangkat Daerah Tahun Lalu (n-2)</th><th width="100" colspan="2">Target Kinerja dan Anggaran<br>Renja Perangkat Daerah Tahun<br> Berjalan (n-1) yang dievaluasi</th><th width="800" colspan="8">Realisasi Kinerja Pada Triwulan</th><th width="100" colspan="2">Realisasi Capaian<br>Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>yang dievaluasi</th><th width="100" colspan="2">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renja PD yang dievaluasi</th><th width="100" colspan="2">Realisasi Kinerja dan<br>Anggaran Renstra Perangkat<br>Daerah s/d Tahun '.$tahun.'</th><th width="100" colspan="2">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renstra<br>Perangkat Daerah s/d<br>Tahun '.$tahun.' (%)</th><th width="100" rowspan="3">Unit Perangkat Daerah<br>Penanggungjawab</th></tr>
|
|
<tr><th colspan="2">Tahun '.$arpjmd['Periode'].'</th><th colspan="2">Tahun '.($tahun-1).'</th><th colspan="2">Tahun '.$tahun.'</th><th colspan="2">I</th><th colspan="2">II</th><th colspan="2">III</th><th colspan="2">IV</th><th colspan="2">Tahun '.$tahun.'</th><th colspan="2">Tahun '.$tahun.'</th><th colspan="2">(Tahun '.$arpjmd['Periode'].')</th><th colspan="2">(Tahun '.$arpjmd['Periode'].')</th></tr>
|
|
<tr><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp (%)</th><th width="50">K</th><th width="50">Rp</th><th width="50">K</th><th width="50">Rp (%)</th></tr>
|
|
<tr class="sub_no"><th>1</th><th>2</th><th colspan="2">3</th><th>4</th><th colspan="2">5</th><th colspan="2">6</th><th colspan="2">7</th><th colspan="2">8</th><th colspan="2">9</th><th colspan="2">10</th><th colspan="2">11</th><th colspan="2">12=8+9+10+11</th><th colspan="2">13=12/7x100%</th><th colspan="2">14=6+12</th><th colspan="2">15=14/5x100%</th><th>16</th></tr>
|
|
</thead><tbody>';
|
|
$_progkeg = '<tr class="%s"><td class="c">%s</td><td class="c">%s</td><td colspan="2">%s</td><td>%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td>%s</td></tr>';
|
|
$_sub = '<tr><td> </td><td> </td><td class="c">%s</td><td>%s</td><td>%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td> </td></tr>';
|
|
$_skor = '<tr><td class="r" colspan="21">%s</td><td class="c">%s</td><td class="c">%s</td><td colspan="2"> </td><td class="c">%s</td><td class="c">%s</td><td> </td></tr>';
|
|
$atotal = ['T_13K'=>0, 'T_13RP'=>0, 'T_15K'=>0, 'T_15RP'=>0, 'Prog'=>0];
|
|
$body = ""; $bidu = ""; $prog = ""; $keg = ""; $no_prog = 1; $no_keg = 1; $no_sub = 1; $aprog = []; $akeg = [];
|
|
while ($db->Next()) {
|
|
// Catatan bagian bawah
|
|
if ($keg <> $db->Row("KegID") && $keg <> 0) {
|
|
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Kegiatan (%)", uang2($akeg['K_13K'])." %", uang2($akeg['K_13RP'])." %", uang2($akeg['K_15K'])." %", uang2($akeg['K_15RP'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($akeg['K_13K']), emonev_kinerja($akeg['K_13RP']), emonev_kinerja($akeg['K_15K']), emonev_kinerja($akeg['K_15RP']));
|
|
}
|
|
if ($prog <> $db->Row("ProgID") && $prog <> 0) {
|
|
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Program (%)", uang2($aprog['P_13K'])." %", uang2($aprog['P_13RP'])." %", uang2($aprog['P_15K'])." %", uang2($aprog['P_15RP'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($aprog['P_13K']), emonev_kinerja($aprog['P_13RP']), emonev_kinerja($aprog['P_15K']), emonev_kinerja($aprog['P_15RP']));
|
|
}
|
|
|
|
if ($bidu <> $db->Row("K_Bidu")) {
|
|
$body .= sprintf($_progkeg, "misi b", " ", " ", $db->Row("N_Bidu"), " ", " ", uang($db->Row("B_5RP"),0), " ", uang($db->Row("B_6RP"),0), " ", uang($db->Row("B_7RP"),0), " ", uang($db->Row("B_TW1RP"),0), " ", uang($db->Row("B_TW2RP"),0), " ", uang($db->Row("B_TW3RP"),0), " ", uang($db->Row("B_TW4RP"),0), " ", uang($db->Row("B_12RP"),0), " ", uang2($db->Row("B_13RP")), " ", uang($db->Row("B_14RP"),0), " ", uang2($db->Row("B_15RP")), " ");
|
|
$bidu = $db->Row("K_Bidu");
|
|
$no_prog = 1; $prog = 0;
|
|
}
|
|
if ($prog <> $db->Row("ProgID")) {
|
|
$_satuan = " %";//.$db->Row("P_Satuan");
|
|
$body .= sprintf($_progkeg, "prog b", $no_prog++, " ", $db->Row("K_Prog")." ".$db->Row("N_Prog"), $db->Row("P_Indi"), uang2($db->Row("P_5K")).$_satuan, uang($db->Row("P_5RP"),0), uang2($db->Row("P_6K")).$_satuan, uang($db->Row("P_6RP"),0), uang2($db->Row("P_7K")).$_satuan, uang($db->Row("P_7RP"),0), uang2($db->Row("P_TW1K")).$_satuan, uang($db->Row("P_TW1RP"),0), uang2($db->Row("P_TW2K")).$_satuan, uang($db->Row("P_TW2RP"),0), uang2($db->Row("P_TW3K")).$_satuan, uang($db->Row("P_TW3RP"),0), uang2($db->Row("P_TW4K")).$_satuan, uang($db->Row("P_TW4RP"),0), uang2($db->Row("P_12K")).$_satuan, uang($db->Row("P_12RP"),0), uang2($db->Row("P_13K")), uang2($db->Row("P_13RP")), uang2($db->Row("P_14K")).$_satuan, uang($db->Row("P_14RP"),0), uang2($db->Row("P_15K")), uang2($db->Row("P_15RP")), " ");
|
|
$atotal['T_13K'] += $db->Row("P_13K");
|
|
$atotal['T_13RP'] += $db->Row("P_13RP");
|
|
$atotal['T_15K'] += $db->Row("P_15K");
|
|
$atotal['T_15RP'] += $db->Row("P_15RP");
|
|
$atotal['Prog']++;
|
|
$prog = $db->Row("ProgID");
|
|
$aprog = $db->AllRow();
|
|
$no_keg = 1; $keg = 0;
|
|
}
|
|
if ($keg <> $db->Row("KegID")) {
|
|
$_satuan = " %";//.$db->Row("K_Satuan");
|
|
$body .= sprintf($_progkeg, "keg", " ", $no_keg++, $db->Row("K_Keg")." ".$db->Row("N_Keg"), $db->Row("K_Indi"), uang2($db->Row("K_5K")).$_satuan, uang($db->Row("K_5RP"),0), uang2($db->Row("K_6K")).$_satuan, uang($db->Row("K_6RP"),0), uang2($db->Row("K_7K")).$_satuan, uang($db->Row("K_7RP"),0), uang2($db->Row("K_TW1K")).$_satuan, uang($db->Row("K_TW1RP"),0), uang2($db->Row("K_TW2K")).$_satuan, uang($db->Row("K_TW2RP"),0), uang2($db->Row("K_TW3K")).$_satuan, uang($db->Row("K_TW3RP"),0), uang2($db->Row("K_TW4K")).$_satuan, uang($db->Row("K_TW4RP"),0), uang2($db->Row("K_12K")).$_satuan, uang($db->Row("K_12RP"),0), uang2($db->Row("K_13K")), uang2($db->Row("K_13RP")), uang2($db->Row("K_14K")).$_satuan, uang($db->Row("K_14RP"),0), uang2($db->Row("K_15K")), uang2($db->Row("K_15RP")), $aopd['N_OPD']);
|
|
$keg = $db->Row("KegID");
|
|
$akeg = $db->AllRow();
|
|
$no_sub = 1;
|
|
}
|
|
$body .= sprintf($_sub, $no_sub++, $db->Row("K_Sub")." ".$db->Row("N_Sub"), $db->Row("S_Indi")." <i>(".$db->Row("S_Satuan").")</i>", $db->Row("S_5K"), uang($db->Row("S_5RP"),0), $db->Row("S_6K"), uang($db->Row("S_6RP"),0), $db->Row("S_7K"), uang($db->Row("S_7RP"),0), $db->Row("S_TW1K"), uang($db->Row("S_TW1RP"),0), $db->Row("S_TW2K"), uang($db->Row("S_TW2RP"),0), $db->Row("S_TW3K"), uang($db->Row("S_TW3RP"),0), $db->Row("S_TW4K"), uang($db->Row("S_TW4RP"),0), $db->Row("S_12K"), uang($db->Row("S_12RP"),0), uang($db->Row("S_13K"),2), uang($db->Row("S_13RP"),2), $db->Row("S_14K"), uang($db->Row("S_14RP"),0), uang($db->Row("S_15K"),2), uang($db->Row("S_15RP"),2));
|
|
}
|
|
if ($keg <> 0) {
|
|
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Kegiatan (%)", uang2($akeg['K_13K'])." %", uang2($akeg['K_13RP'])." %", uang2($akeg['K_15K'])." %", uang2($akeg['K_15RP'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($akeg['K_13K']), emonev_kinerja($akeg['K_13RP']), emonev_kinerja($akeg['K_15K']), emonev_kinerja($akeg['K_15RP']));
|
|
}
|
|
if ($prog <> 0) {
|
|
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Program (%)", uang2($aprog['P_13K'])." %", uang2($aprog['P_13RP'])." %", uang2($aprog['P_15K'])." %", uang2($aprog['P_15RP'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($aprog['P_13K']), emonev_kinerja($aprog['P_13RP']), emonev_kinerja($aprog['P_15K']), emonev_kinerja($aprog['P_15RP']));
|
|
}
|
|
$body .= sprintf($_skor, "RATA-RATA CAPAIAN KINERJA DAN ANGGARAN DARI SELURUH PROGRAM (%)", uang2($atotal['T_13K']/$atotal['Prog'])." %", uang2($atotal['T_13RP']/$atotal['Prog'])." %", uang2($atotal['T_15K']/$atotal['Prog'])." %", uang2($atotal['T_15RP']/$atotal['Prog'])." %");
|
|
$body .= sprintf($_skor, "PREDIKAT KINERJA DARI SELURUH PROGRAM", emonev_kinerja($atotal['T_13K']/$atotal['Prog']), emonev_kinerja($atotal['T_13RP']/$atotal['Prog']), emonev_kinerja($atotal['T_15K']/$atotal['Prog']), emonev_kinerja($atotal['T_15RP']/$atotal['Prog']));
|
|
|
|
echo $header . $body . "</tbody></table>";
|
|
|
|
} else if ( $data == "default") {
|
|
$q_opd = "";
|
|
if (in_array($_SESSION['__WEB_USER']['Level'],[1,3,4])) {
|
|
$id_opd = $_SESSION['__WEB_USER']['A_OPD'][0];
|
|
$q_opd = " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")";
|
|
}
|
|
|
|
$form = new Form($db);
|
|
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa90_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
|
$topd = $form->option_db("_", "OPDID", $id_opd, true, false, "vi_para90_opd", ["OPDID","Nama_OPD"], "Aktif=1".$q_opd." ORDER BY K_OPD");
|
|
$ttw = $form->radio("_", "TW", $twulan, true, false, [1=>"I",2=>"II",3=>"III",4=>"IV"]);
|
|
echo '
|
|
<div class="row mb-1">
|
|
<label class="col-sm-4 col-lg-3 col-form-label" for="OPDID">Nama Perangkat Daerah</label>
|
|
<div class="col-sm-8 col-lg-9">'.$topd.'</div>
|
|
</div>
|
|
<div class="row mb-1">
|
|
<label class="col-sm-4 col-lg-3 col-form-label" for="Tahun">Tahun Data</label>
|
|
<div class="col-sm-5 col-lg-4">'.$tthn.'</div>
|
|
</div>
|
|
<div class="row mb-1">
|
|
<label class="col-sm-4 col-lg-3 col-form-label" for="TW">Triwulan</label>
|
|
<div class="col-sm-8 col-lg-9">'.$ttw.'</div>
|
|
</div>';
|
|
}
|
|
|
|
send_json($ajson);
|
|
?>
|