<?php

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

    App. Name     : SISTEM INFORMASI MONITORING DAN EVALUASI
    Module        : /apps/php/mon/ehasil_kinerja.php
    Desc.         : PHP - Evaluasi Hasil Kinerja Triwulan
    Created By    : Siau Pheng (siaupheng@3fonia.com).
    Created Date  : December 7th, 2011.
    Last Modified : April 29th, 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) {
        $qf1 = ",S_TW1RP";
        $qv1 = ",RealK_TW1";
        $qv2 = "RealK_TW1";
        $qv3 = ",A.S_TW1K=B.Real_TW1";
        $qv4 = "B.Real_TW1,0";
        $qp1 = "Real_TW1,0";
        $qp2 = ",A.P_TW1K=B.Real_TW1";
        $qp3 = "Real_TW1";
        $qp4 = "Poin_TW1";
    } 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";
        $qp1 = "Real_TW1,Real_TW2";
        $qp2 = ",A.P_TW1K=B.Real_TW1,A.P_TW2K=B.Real_TW2";
        $qp3 = "Real_TW2";
        $qp4 = "Poin_TW1+Poin_TW2";
    } 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";
        $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 = "Poin_TW1+Poin_TW2+Poin_TW3";
    } 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";
        $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 = "Poin_TW1+Poin_TW2+Poin_TW3+Poin_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".$qf1.",S_12RP,S_Kendala,S_Tindak) SELECT RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,REPLACE(K_Sub,'X.XX','0.00'),Pagu_Ini".$qv1.",".$qv2.",Real_Kendala,Real_Tindak FROM dpa90_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 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");
    $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 * 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_13KRP=(A.S_13K+A.S_13RP)/2");

    // kegiatan
    $db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_keg".$tsql.") B SET A.K_Kendala=B.Real_Kendala,A.K_Tindak=B.Real_Tindak WHERE A.KegID=B.KegID");
    $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_13KRP=(A.K_13K+A.K_13RP)/2");

    // program
    //$db->Query("UPDATE emonev_renja A,(SELECT *,GREATEST(".$qp1.") P_12K 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,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,Real_Kendala,Real_Tindak FROM dpa90_prog".$tsql.") B SET A.P_13K=B.P_13K,A.P_Kendala=B.Real_Kendala,A.P_Tindak=B.Real_Tindak 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="3">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renja Perangkat Daerah<br> Tahun '.$tahun.'<br>(dalam %)</th><th width="100" rowspan="3">Kendala Yang<br>Dihadapi</th><th width="100" rowspan="3">Tindak Lanjut<br>Yang Diperlukan</th><th width="100" rowspan="3">Unit Perangkat Daerah<br>Penanggungjawab</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><th width="50">(K + Rp) / 2</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="3">11=10/5x100%</th><th>12</th><th>13</th><th>14</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>%s</td><td>%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>%s</td><td>%s</td><td>&nbsp;</td></tr>';
    $_skor = '<tr><td class="r" colspan="17">%s</td><td class="c">%s</td><td class="c">%s</td><td class="c">%s</td><td>&nbsp;</td><td>&nbsp;</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_13KRP'])." %");
            $body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($akeg['K_13K']), emonev_kinerja($akeg['K_13RP']), emonev_kinerja($akeg['K_13KRP']));
        }
        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_13KRP'])." %");
            $body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($aprog['P_13K']), emonev_kinerja($aprog['P_13RP']), emonev_kinerja($aprog['P_13KRP']));
        }

        if ($bidu <> $db->Row("K_Bidu")) {
            $body .= sprintf($_progkeg, "misi b", "&nbsp;", "&nbsp;", $db->Row("N_Bidu"), "&nbsp;", "&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;", "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;");
            $bidu = $db->Row("K_Bidu");
            $no_prog = 1; $prog = 0;
        }
        if ($prog <> $db->Row("ProgID")) {
            $prog = $db->Row("ProgID");
            $aprog = $db->AllRow();
            // cek lagi rumus greatest, harusnya ambil dari tw terakhir sesuai pilihan !
            // $db2->Query("SELECT *,GREATEST(".$qp1.") P_12K FROM dpa90_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
            $db2->Query("SELECT *,IF(TipeDataID=0,".$qp4.",".$qp3.") P_12K FROM dpa90_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
            if ($db2->RecordCount() == 0) {
                $body .= sprintf($_progkeg, "prog b", $no_prog++, "&nbsp;", $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"]), uang2($aprog["P_13KRP"]), $db->Row("P_Kendala"), $db->Row("P_Tindak"), "&nbsp;");
            }
            $baris_indi = 1;
            while ($db2->Next()) {
                $apindi = [];
                if ($baris_indi == 1) {
                    $apindi = ["prog b", $no_prog++, "&nbsp;", $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"]), uang2($aprog["P_13KRP"]), $db->Row("P_Kendala"), $db->Row("P_Tindak"), "&nbsp;"];
                } else {
                    $apindi = ["prog b", "&nbsp;", "&nbsp;", "&nbsp;", $db2->Row("Text_Indi")." <i>(".$db2->Row("Satuan_Indi").")</i>", $db2->Row("Target_Indi"), "&nbsp;", $db2->Row("Real_TW1"), "&nbsp;", ($twulan<2?"":$db2->Row("Real_TW2")), "&nbsp;", ($twulan<3?"":$db2->Row("Real_TW3")), "&nbsp;", ($twulan<4?"":$db2->Row("Real_TW4")), "&nbsp;", $db2->Row("P_12K"), "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;", "&nbsp;"];
                }
                $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", "&nbsp;", $no_keg++, $db->Row("K_Keg2")." ".$db->Row("N_Keg"), $db->Row("K_Indi")." <i>(%)</i>", uang2($db->Row("K_7K")), uang($db->Row("K_7RP"),0), uang2($db->Row("K_TW1K")), uang($db->Row("K_TW1RP"),0), uang2($db->Row("K_TW2K")), uang($db->Row("K_TW2RP"),0), uang2($db->Row("K_TW3K")), uang($db->Row("K_TW3RP"),0), uang2($db->Row("K_TW4K")), uang($db->Row("K_TW4RP"),0), uang2($db->Row("K_12K")), uang($db->Row("K_12RP"),0), uang2($db->Row("K_13K")), uang2($db->Row("K_13RP")), uang2($db->Row("K_13KRP")), $db->Row("K_Kendala"), $db->Row("K_Tindak"), $aopd['N_OPD']);
            $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), uang($db->Row("S_13KRP"),2), $db->Row("S_Kendala"), $db->Row("S_Tindak"));
    }
    if ($keg <> 0) {
        $body .= sprintf($_skor, "Rata-rata Capaian Kinerja Kegiatan (%)", uang2($akeg['K_13K'])." %", uang2($akeg['K_13RP'])." %", uang2($akeg['K_13KRP'])." %");
        $body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($akeg['K_13K']), emonev_kinerja($akeg['K_13RP']), emonev_kinerja($akeg['K_13KRP']));
    }
    if ($prog <> 0) {
        $body .= sprintf($_skor, "Rata-rata Capaian Kinerja Program (%)", uang2($aprog['P_13K'])." %", uang2($aprog['P_13RP'])." %", uang2($aprog['P_13KRP'])." %");
        $body .= sprintf($_skor, "Predikat Kinerja", emonev_kinerja($aprog['P_13K']), emonev_kinerja($aprog['P_13RP']), emonev_kinerja($aprog['P_13KRP']));
    }
    $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_13KRP']/$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_13KRP']/$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);
?>