235 lines
18 KiB
PHP
235 lines
18 KiB
PHP
<?php
|
|
|
|
/*******************************************************************
|
|
|
|
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
|
Module : /apps/php/hasil/kinerja.php
|
|
Desc. : PHP - Evaluasi Hasil Kinerja Triwulan
|
|
Created By : Siau Pheng ([email protected]).
|
|
Created Date : December 7th, 2011.
|
|
Last Modified : September 7th, 2026.
|
|
|
|
(c) 2011 - 2026, 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\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) {
|
|
$qv4 = "B.Real_TW1,0";
|
|
$qp1 = "Real_TW1,0";
|
|
$qp2 = ",A.P_TW1K=B.Real_TW1";
|
|
$qp3 = "Real_TW1";
|
|
$qp4 = "Poin_TW1";
|
|
$qs_fi = ",S_TW1RP";
|
|
$qs_va = ",RealK_TW1";
|
|
$qs_12rp = "RealK_TW1";
|
|
$qs_12k = "Real_TW1";
|
|
$qs_up = ",A.S_TW1K=B.Real_TW1";
|
|
} else if ($twulan == 2) {
|
|
$qp1 = "Real_TW1,Real_TW2";
|
|
$qp2 = ",A.P_TW1K=B.Real_TW1,A.P_TW2K=B.Real_TW2";
|
|
$qp3 = "Real_TW2";
|
|
$qp4 = "IF(Status_Indi='komulatif',Poin_TW1+Poin_TW2,IF(Status_Indi='rata-rata',(Poin_TW1+Poin_TW2)/2,Poin_TW2))";
|
|
$qs_fi = ",S_TW1RP,S_TW2RP";
|
|
$qs_va = ",RealK_TW1,RealK_TW2";
|
|
$qs_12rp = "RealK_TW1+RealK_TW2";
|
|
$qs_12k = "IF(Status_Output='komulatif',Real_TW1+Real_TW2,IF(Status_Output='rata-rata',(Real_TW1+Real_TW2)/2,Real_TW2))";
|
|
$qs_up = ",A.S_TW1K=B.Real_TW1,A.S_TW2K=B.Real_TW2";
|
|
} else if ($twulan == 3) {
|
|
$qp1 = "Real_TW1,Real_TW2,Real_TW3";
|
|
$qp2 = ",A.P_TW1K=B.Real_TW1,A.P_TW2K=B.Real_TW2,A.P_TW3K=B.Real_TW3";
|
|
$qp3 = "Real_TW3";
|
|
$qp4 = "IF(Status_Indi='komulatif',Poin_TW1+Poin_TW2+Poin_TW3,IF(Status_Indi='rata-rata',(Poin_TW1+Poin_TW2+Poin_TW3)/3,Poin_TW3))";
|
|
$qs_fi = ",S_TW1RP,S_TW2RP,S_TW3RP";
|
|
$qs_va = ",RealK_TW1,RealK_TW2,RealK_TW3";
|
|
$qs_12rp = "RealK_TW1+RealK_TW2+RealK_TW3";
|
|
$qs_12k = "IF(Status_Output='komulatif',Real_TW1+Real_TW2+Real_TW3,IF(Status_Output='rata-rata',(Real_TW1+Real_TW2+Real_TW3)/3,Real_TW3))";
|
|
$qs_up = ",A.S_TW1K=B.Real_TW1,A.S_TW2K=B.Real_TW2,A.S_TW3K=B.Real_TW3";
|
|
} else if ($twulan == 4) {
|
|
$qp1 = "Real_TW1,Real_TW2,Real_TW3,Real_TW4";
|
|
$qp2 = ",A.P_TW1K=B.Real_TW1,A.P_TW2K=B.Real_TW2,A.P_TW3K=B.Real_TW3,A.P_TW4K=B.Real_TW4";
|
|
$qp3 = "Real_TW4";
|
|
$qp4 = "IF(Status_Indi='komulatif',Poin_TW1+Poin_TW2+Poin_TW3+Poin_TW4,IF(Status_Indi='rata-rata',(Poin_TW1+Poin_TW2+Poin_TW3+Poin_TW4)/4,Poin_TW4))";
|
|
$qs_fi = ",S_TW1RP,S_TW2RP,S_TW3RP,S_TW4RP";
|
|
$qs_va = ",RealK_TW1,RealK_TW2,RealK_TW3,RealK_TW4";
|
|
$qs_12rp = "RealK_TW1+RealK_TW2+RealK_TW3+RealK_TW4";
|
|
$qs_12k = "IF(Status_Output='komulatif',Real_TW1+Real_TW2+Real_TW3+Real_TW4,IF(Status_Output='rata-rata',(Real_TW1+Real_TW2+Real_TW3+Real_TW4)/4,Real_TW4))";
|
|
$qs_up = ",A.S_TW1K=B.Real_TW1,A.S_TW2K=B.Real_TW2,A.S_TW3K=B.Real_TW3,A.S_TW4K=B.Real_TW4";
|
|
}
|
|
|
|
$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".$qs_fi.",S_12RP,S_Kendala) SELECT RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,REPLACE(K_Sub,'X.XX','0.00'),Pagu_Ini".$qs_va.",".$qs_12rp.",Real_Catatan FROM dpa_sub".$tsql." AND Pagu_Ini>0");
|
|
|
|
// update k_sub2, k_keg2, k_prog2 sesuai bidang urusan dari program dpa
|
|
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_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");
|
|
$db->Query("UPDATE emonev_renja A SET A.K_Keg2=LEFT(A.K_Sub2,12),A.K_Prog2=LEFT(A.K_Sub2,7)");
|
|
|
|
// TIDAK DI PROSES RENSTRA : S_5K, S_5RP, S_6K, S_6RP
|
|
|
|
// sub kegiatan
|
|
$db->Query("UPDATE emonev_renja A,(SELECT *,".$qs_12k." S_12K FROM dpa_sub_output".$tsql.") B SET A.S_Indi=B.Text_Output,A.S_Satuan=B.Satuan_Output,A.S_7K=B.Target_Output,A.S_12K=B.S_12K".$qs_up." WHERE A.SubID=B.SubID");
|
|
$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_13KRP=(A.S_13K+A.S_13RP)/2");
|
|
|
|
// kegiatan
|
|
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_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_13KRP=(A.K_13K+A.K_13RP)/2");
|
|
|
|
// program
|
|
//$db->Query("UPDATE emonev_renja A,(SELECT *,GREATEST(".$qp1.") P_12K FROM dpa_prog_indi".$tsql.") B SET A.P_Indi=B.Text_Indi,A.P_Satuan=B.Satuan_Indi,A.P_7K=B.Target_Indi,A.P_12K=B.P_12K".$qp2." WHERE A.ProgID=B.ProgID");
|
|
$db->Query("UPDATE emonev_renja A,(SELECT ProgID,SUM(DISTINCT K_7RP) P_7RP,SUM(DISTINCT K_TW1RP) P_TW1RP,SUM(DISTINCT K_TW2RP) P_TW2RP,SUM(DISTINCT K_TW3RP) P_TW3RP,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_TW1RP=B.P_TW1RP,A.P_TW2RP=B.P_TW2RP,A.P_TW3RP=B.P_TW3RP,A.P_TW4RP=B.P_TW4RP,A.P_12RP=B.P_12RP WHERE A.ProgID=B.ProgID");
|
|
$db->Query("UPDATE emonev_renja A,(SELECT ProgID,".$qp3." P_13K FROM dpa_prog".$tsql.") B SET A.P_13K=B.P_13K WHERE A.ProgID=B.ProgID");
|
|
$db->Query("UPDATE emonev_renja A SET A.P_13RP=IFNULL(A.P_12RP/A.P_7RP*100,0),A.P_13KRP=(A.P_13K+A.P_13RP)/2");
|
|
|
|
// 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_13K=IFNULL(A.B_12K/A.B_7K*100,0),A.B_13RP=IFNULL(A.B_12RP/A.B_7RP*100,0),A.B_13KRP=(A.B_13K+A.B_13RP)/2");
|
|
|
|
$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 KINERJA 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" rowspan="2" colspan="2">Target Kinerja dan Anggaran<br>Renja Perangkat Daerah<br> Tahun '.$tahun.'</th><th width="800" colspan="8">Realisasi Kinerja Pada Triwulan</th><th width="100" rowspan="2" colspan="2">Realisasi Capaian<br>Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Tahun '.$tahun.'</th><th width="100" rowspan="2" colspan="2">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renja Perangkat Daerah<br> Tahun '.$tahun.'<br>(dalam %)</th><th width="100" rowspan="3">Sumber Data</th><th width="100" rowspan="3">Kendala Yang<br>Dihadapi</th></tr>
|
|
<tr><th colspan="2">I</th><th colspan="2">II</th><th colspan="2">III</th><th colspan="2">IV</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></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=6+7+8+9</th><th colspan="2">11=10/5x100%</th><th>12</th><th>13</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>%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> </td><td>%s</td></tr>';
|
|
$_skor = '<tr><td class="r" colspan="17">%s</td><td class="c">%s</td><td class="c">%s</td><td> </td><td> </td></tr>';
|
|
$atotal = ['T_13K'=>0, 'T_13RP'=>0, 'T_13KRP'=>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'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($akeg['K_13K']), emonev_kinerja($akeg['K_13RP']));
|
|
}*/
|
|
if ($prog <> $db->Row("ProgID") && $prog <> 0) {
|
|
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Program (%)", uang2($aprog['P_13K'])." %", uang2($aprog['P_13RP'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($aprog['P_13K']), emonev_kinerja($aprog['P_13RP']));
|
|
}
|
|
|
|
if ($bidu <> $db->Row("K_Bidu")) {
|
|
$body .= sprintf($_progkeg, "misi b", " ", " ", $db->Row("N_Bidu"), " ", " ", 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), " ", " ", " ", " ");
|
|
$bidu = $db->Row("K_Bidu");
|
|
$no_prog = 1; $prog = 0;
|
|
}
|
|
if ($prog <> $db->Row("ProgID")) {
|
|
$prog = $db->Row("ProgID");
|
|
$aprog = $db->AllRow();
|
|
$db2->Query("SELECT *,IF(TipeDataID<2,ROUND(".$qp4.",2),".$qp3.") P_12K FROM dpa_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
|
|
if ($db2->RecordCount() == 0) {
|
|
$body .= sprintf($_progkeg, "prog b", $no_prog++, " ", $aprog["K_Prog2"]." ".$aprog["N_Prog"], $aprog["P_Indi"]." <i>(".$aprog["P_Satuan"].")</i>", $aprog["P_7K"], uang($aprog["P_7RP"],0), $aprog["P_TW1K"], uang($aprog["P_TW1RP"],0), $aprog["P_TW2K"], uang($aprog["P_TW2RP"],0), $aprog["P_TW3K"], uang($aprog["P_TW3RP"],0), $aprog["P_TW4K"], uang($aprog["P_TW4RP"],0), $aprog["P_12K"], uang($aprog["P_12RP"],0), uang2($aprog["P_13K"]), uang2($aprog["P_13RP"]), " ", " ");
|
|
}
|
|
$baris_indi = 1;
|
|
while ($db2->Next()) {
|
|
$apindi = [];
|
|
if ($baris_indi == 1) {
|
|
$apindi = ["prog b", $no_prog++, " ", $aprog["K_Prog2"]." ".$aprog["N_Prog"], $db2->Row("Text_Indi")." <i>(".$db2->Row("Satuan_Indi").")</i>", $db2->Row("Target_Indi"), uang($aprog["P_7RP"],0), $db2->Row("Real_TW1"), uang($aprog["P_TW1RP"],0), ($twulan<2?"":$db2->Row("Real_TW2")), uang($aprog["P_TW2RP"],0), ($twulan<3?"":$db2->Row("Real_TW3")), uang($aprog["P_TW3RP"],0), ($twulan<4?"":$db2->Row("Real_TW4")), uang($aprog["P_TW4RP"],0), $db2->Row("P_12K"), uang($aprog["P_12RP"],0), uang2($aprog["P_13K"]), uang2($aprog["P_13RP"]), $db2->Row("Sumber_Data"), $db2->Row("Catatan")];
|
|
} else {
|
|
$apindi = ["prog b", " ", " ", " ", $db2->Row("Text_Indi")." <i>(".$db2->Row("Satuan_Indi").")</i>", $db2->Row("Target_Indi"), " ", $db2->Row("Real_TW1"), " ", ($twulan<2?"":$db2->Row("Real_TW2")), " ", ($twulan<3?"":$db2->Row("Real_TW3")), " ", ($twulan<4?"":$db2->Row("Real_TW4")), " ", $db2->Row("P_12K"), " ", " ", " ", $db2->Row("Sumber_Data"), $db2->Row("Catatan")];
|
|
}
|
|
$body .= vsprintf($_progkeg, $apindi);
|
|
$baris_indi++;
|
|
}
|
|
$atotal['T_13K'] += $aprog["P_13K"];
|
|
$atotal['T_13RP'] += $aprog["P_13RP"];
|
|
$atotal['T_13KRP'] += $aprog["P_13KRP"];
|
|
$atotal['Prog']++;
|
|
$no_keg = 1; $keg = 0;
|
|
}
|
|
if ($keg <> $db->Row("KegID")) {
|
|
$body .= sprintf($_progkeg, "keg", " ", $no_keg++, $db->Row("K_Keg2")." ".$db->Row("N_Keg"), $db->Row("K_Indi")." <i>(%)</i>", " ", uang($db->Row("K_7RP"),0), " ", uang($db->Row("K_TW1RP"),0), " ", uang($db->Row("K_TW2RP"),0), " ", uang($db->Row("K_TW3RP"),0), " ", uang($db->Row("K_TW4RP"),0), " ", uang($db->Row("K_12RP"),0), " ", uang2($db->Row("K_13RP")), " ", " ");
|
|
$keg = $db->Row("KegID");
|
|
$akeg = $db->AllRow();
|
|
$no_sub = 1;
|
|
}
|
|
$body .= sprintf($_sub, $no_sub++, $db->Row("K_Sub2")." ".$db->Row("N_Sub"), $db->Row("S_Indi")." <i>(".$db->Row("S_Satuan").")</i>", $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_Kendala"));
|
|
}
|
|
/*if ($keg <> 0) {
|
|
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Kegiatan (%)", uang2($akeg['K_13K'])." %", uang2($akeg['K_13RP'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($akeg['K_13K']), emonev_kinerja($akeg['K_13RP']));
|
|
}*/
|
|
if ($prog <> 0) {
|
|
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Program (%)", uang2($aprog['P_13K'])." %", uang2($aprog['P_13RP'])." %");
|
|
$body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($aprog['P_13K']), emonev_kinerja($aprog['P_13RP']));
|
|
}
|
|
$body .= sprintf($_skor, "RATA-RATA CAPAIAN KINERJA DAN ANGGARAN DARI SELURUH PROGRAM (%)", uang2($atotal['T_13K']/$atotal['Prog'])." %", uang2($atotal['T_13RP']/$atotal['Prog'])." %");
|
|
$body .= sprintf($_skor, "PREDIKAT KINERJA DARI SELURUH PROGRAM", emonev_kinerja($atotal['T_13K']/$atotal['Prog']), emonev_kinerja($atotal['T_13RP']/$atotal['Prog']));
|
|
|
|
$footer = sprintf('<div class="d-flex flex-row-reverse"><div>%s, %s<br>Mengetahui Pimpinan,<br>Kepala %s<div class="py-5"> </div>%s<br>%s</div></div>', $aopd['N_Lokasi'], tgl_dmy(), $aopd['N_OPD'], $aopd['P_Nama'], 'NIP. '.$aopd['P_NIP']);
|
|
echo $header . $body . "</tbody></table>" . $footer;
|
|
|
|
} 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 dpa_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);
|
|
?>
|