<?php

/*******************************************************************

    App. Name     : SISTEM INFORMASI MONITORING DAN EVALUASI
    Module        : /apps/php/mon/ehasil_renja.php
    Desc.         : PHP - Evaluasi Hasil Renja
    Created By    : Siau Pheng (siaupheng@3fonia.com).
    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>&nbsp;</td><td>&nbsp;</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>&nbsp;</td></tr>';
    $_skor = '<tr><td class="r" colspan="21">%s</td><td class="c">%s</td><td class="c">%s</td><td colspan="2">&nbsp;</td><td class="c">%s</td><td class="c">%s</td><td>&nbsp;</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", "&nbsp;", "&nbsp;", $db->Row("N_Bidu"), "&nbsp;", "&nbsp;", uang($db->Row("B_5RP"),0), "&nbsp;", uang($db->Row("B_6RP"),0), "&nbsp;", uang($db->Row("B_7RP"),0), "&nbsp;", uang($db->Row("B_TW1RP"),0), "&nbsp;", uang($db->Row("B_TW2RP"),0), "&nbsp;", uang($db->Row("B_TW3RP"),0), "&nbsp;", uang($db->Row("B_TW4RP"),0), "&nbsp;", uang($db->Row("B_12RP"),0), "&nbsp;", uang2($db->Row("B_13RP")), "&nbsp;", uang($db->Row("B_14RP"),0), "&nbsp;", uang2($db->Row("B_15RP")), "&nbsp;");
            $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++, "&nbsp;", $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")), "&nbsp;");
            $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", "&nbsp;", $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);
?>