<?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 : July 4th, 2020.

    (c) 2011 - 2020, 3FONIA Software; WWW.3FONIA.COM.

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

require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
require_once(dirname(__FILE__)."/../func.emonev.php");

function t_wulan($ntw = 1, $nilai = 0) {
    return ($ntw<=$_SESSION['__WEB_APP']['REAL_TW'] ? rupiah($nilai) : "");
}

$db = DB();
$db2 = DB();
$ajson = array();
$data = $ap->getParam("data");
$mode = $ap->getParam("mode");
$thn_renja = $_SESSION['__WEB_APP']['REAL_THN'];
$id_opd = $ap->getParam("OPDID", 0);
$id_upt = $ap->getParam("UPTID", 0);

if ( $data == "tabel-opd" || $data == "tabel-upt" || $data == "tabel-output" ) {
    if ( $data == "tabel-opd" ) {
        $qsql = " S.Aktif=1";
    } else if ( $data == "tabel-upt" ) {
        $qsql = " U.Aktif=1";
        $qsql .= ($id_opd==0) ? "" : " AND U.OPDID='".$id_opd."'";
    } else if ( $data == "tabel-output" ) {
        $qsql = " Tahun='".$thn_renja."'";
        $qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
        $qsql .= ($id_upt==0) ? "" : " AND UPTID='".$id_upt."'";

        $qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
        $qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
    }
}

if ( $data == "print" || $data == "excel"  || $data == "tabel-output" ) {
    $tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
    $is_rutin = $ap->getParam("Cetak_Rutin", 1);
    $twulan = $_SESSION['__WEB_APP']['REAL_TW'];
    $nama_opd = "Kabupaten Mempawah";
    $k_bu = "0.00";
    if ($id_opd>0) {
        $db->Query("SELECT Nama_OPD,K_BidangU FROM vi_para_opd WHERE OPDID='".$id_opd."'");
        if ($db->Next()) {
            $nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
            $k_bu = $db->Row("K_BidangU");
        }
    }

    $tabel_data = "dpa_detail"; $tsql = "";
    if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
    if ($id_upt>0) $tsql .= " AND T.UPTID='".$id_upt."'";
    if ($is_rutin>1) $tsql .= " AND T.ProgID>7";

    // proses rekap database
    Report_Empty("hasil_urus");
    Report_Empty("hasil_fung");
    Report_Empty("hasil_prog");
    
    // insert urusan
    $db->Query("INSERT INTO rep_hasil_urus SELECT T.Tahun,BU.K_Urusan,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),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");
    $db->Query("SELECT T.Tahun,BU.K_Urusan,SUM(T.RealF_TW1*T.B_Total/RU.URUS_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RU.URUS_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RU.URUS_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RU.URUS_PAGU) T4_PSN 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)) LEFT JOIN rep_hasil_urus RU ON (T.Tahun=RU.Tahun AND BU.K_Urusan=RU.K_Urusan AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
    while ($db->Next()){
        $db2->Query("UPDATE rep_hasil_urus SET URUS_T1_PSN='".$db->Row("T1_PSN")."',URUS_T2_PSN='".$db->Row("T2_PSN")."',URUS_T3_PSN='".$db->Row("T3_PSN")."',URUS_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_Urusan='".$db->Row("K_Urusan")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
    }
    // insert fungsi
    $db->Query("INSERT INTO rep_hasil_fung SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),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)");
    $db->Query("SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.RealF_TW1*T.B_Total/RF.FUNG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RF.FUNG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RF.FUNG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RF.FUNG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN rep_hasil_fung RF ON (T.Tahun=RF.Tahun AND P.K_BidangU=RF.K_BidangU AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
    while ($db->Next()){
        $db2->Query("UPDATE rep_hasil_fung SET FUNG_T1_PSN='".$db->Row("T1_PSN")."',FUNG_T2_PSN='".$db->Row("T2_PSN")."',FUNG_T3_PSN='".$db->Row("T3_PSN")."',FUNG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_BidangU='".$db->Row("K_BidangU")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
    }
    // insert program
    $db->Query("INSERT INTO rep_hasil_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
    $db->Query("SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.RealF_TW1*T.B_Total/RP.PROG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RP.PROG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RP.PROG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RP.PROG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN rep_hasil_prog RP ON (T.Tahun=RP.Tahun AND T.OPDID=RP.OPDID AND T.UPTID=RP.UPTID AND T.ProgID=RP.ProgID AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
    while ($db->Next()){
        $db2->Query("UPDATE rep_hasil_prog SET PROG_T1_PSN='".$db->Row("T1_PSN")."',PROG_T2_PSN='".$db->Row("T2_PSN")."',PROG_T3_PSN='".$db->Row("T3_PSN")."',PROG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND OPDID='".$db->Row("OPDID")."' AND UPTID='".$db->Row("UPTID")."' AND ProgID='".$db->Row("ProgID")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
    }

    $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";
    if ($twulan == 1) {
        $qR = "A.RealK_TW1";
        $qRF = "A.RealF_TW1";
    } else if ($twulan == 2) {
        $qR = "A.RealK_TW1+A.RealK_TW2";
        $qRF = "A.RealF_TW2";
    } else if ($twulan == 3) {
        $qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3";
        $qRF = "A.RealF_TW3";
    } else if ($twulan == 4) {
        $qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3+A.RealK_TW4";
        $qRF = "A.RealF_TW4";
    }
    $db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,A.N_Urusan N_URUSAN,A.N_BidangU N_FUNGSI,A.N_UPT N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.B_Total PAGU,GREATEST(A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4) R_FISIK,(".$qR.") R_RP,A.T_Keluar TARGET_K,A.U_Keluar INDI_KEG,A.T_Hasil TAR_KEG,RU.*,RF.*,RP.*,A.Lokasi,A.Prog_Indi INDI_PROG,A.Prog_Target TAR_PROG,A.RealK_TW1,A.RealK_TW2,A.RealK_TW3,A.RealK_TW4,A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4 FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,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 rep_hasil_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_hasil_fung RF ON (A.K_BidangU=RF.K_BidangU AND A.Tahun=RF.Tahun AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') LEFT JOIN rep_hasil_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");
}

if ( $data == "tabel-opd" ) {
    $obj = new cGRIDTABLE();
    $obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
    $obj->add_field("OPDID", "OPD", "hidden");
    $obj->add_field("Nama_OPD", "Nama OPD", "hidden");
    $obj->add_field("K_OPD", "Kode", "center");
    $obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
    $obj->set_field_order("K_OPD", "A");
    $obj->add_row_btn("folder", "Unit / UPTD", "EHasilRPJMDJS.opd_select");
    $obj->set_func_navi("EHasilRKPDJS.data_query('tabel-opd')");
    $obj->set_textbtn(true);
    $ajson[] = $obj->json_table("divOPD");

} else if ( $data == "tabel-upt" ) {
    $obj = new cGRIDTABLE();
    $obj->set_query("SELECT U.* FROM vi_para_upt U WHERE ".$qsql);
    $obj->add_field("UPTID", "UPT", "hidden");
    $obj->add_field("Nama_UPT", "Nama UPT", "hidden");
    $obj->add_field("K_UPT", "Kode", "center");
    $obj->add_field("N_UPT", "Nama Unit / UPTD", "left autowrap");
    $obj->set_field_order("K_UPT", "A");
    $obj->add_row_btn("folder", "Output", "EHasilRKPDJS.upt_select");
    $obj->set_func_navi("EHasilRKPDJS.data_query('tabel-upt')");
    $obj->set_textbtn(true);
    $ajson[] = $obj->json_table("divUPT");

} else if ( $data == "tabel-output" ) {
    $header = '<hr>
<table width="100%" class="garis">
<tr><td width="20" class="center bold" rowspan="3">No.</td><td width="50" class="center bold" rowspan="3">Kode</td><td width="100" class="center bold" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</td><td width="100" class="center bold" rowspan="3">Indikator Kinerja Program<br>(Outcome) Kegiatan<br>(Output)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Renstra Perangkat<br>Daerah Provinsi pada Tahun 2023</td><td width="100" class="center bold" rowspan="2" colspan="2">Realisasi Capaian Kinerja<br>Renstra Perangkat Daerah<br>Provinsi Sampai Dengan Renja<br>Perangkat Daerah Tahun Lalu (n-2)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi Tahun Berjalan (n-1) yang dievaluasi</td><td width="800" class="center bold" colspan="8">Realisasi Kinerja Pada Triwulan</td><td width="100" class="center bold" colspan="2">Realisasi Capaian<br>Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi yang dievaluasi</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja<br>dan Realisasi Anggaran<br>Renja PD Tahun n-1 (%)</td><td width="100" class="center bold" colspan="2">Realisasi Kinerja dan<br>Anggaran Renstra Perangkat<br>Daerah Provinsi s/d Tahun ...<br>(akhir tahun pelaksanaan Renja PD Provinsi Tahun ...)</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renstra<br>Perangkat Daerah Provinsi s/d<br>tahun ... (%)</td><td width="100" class="center bold" rowspan="3">Unit Perangkat Daerah<br>Penanggungjawab</td><td width="100" class="center bold" rowspan="3">Lokasi / <br>Keterangan</td></tr>
<tr><td width="100" class="center bold" colspan="2">I</td><td width="100" class="center bold" colspan="2">II</td><td width="100" class="center bold" colspan="2">III</td><td width="100" class="center bold" colspan="2">IV</td><td width="100" class="center bold" colspan="2">8+9+10+11</td><td width="100" class="center bold" colspan="2">12/7 x 100%</td><td width="100" class="center bold" colspan="2">6+12</td><td width="100" class="center bold" colspan="2">5/4 x 100%</td></tr>
<tr><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td></tr>
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center" colspan="2">5</td><td class="center" colspan="2">6</td><td class="center" colspan="2">7</td><td class="center" colspan="2">8</td><td class="center" colspan="2">9</td><td class="center" colspan="2">10</td><td class="center" colspan="2">11</td><td class="center" colspan="2">12</td><td class="center" colspan="2">13</td><td class="center" colspan="2">14</td><td class="center" colspan="2">15</td><td class="center">16</td><td class="center">17</td></tr>';
    $_line = '<tr><td class="center" nowrap>%s</td><td class="left" nowrap>%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="left">%s</td><td class="left">%s</td></tr>';
    $body = $urus = $fung = $prog = ""; $nurut = 1;
    while ($db->Next()) {
        if ($urus <> $db->Row("KO_URUSAN")) {
            //todo: experiment
            $t_psn = max($db->Row("URUS_T1_PSN"), $db->Row("URUS_T2_PSN"), $db->Row("URUS_T3_PSN"), $db->Row("URUS_T4_PSN"));
            $t_rp = $db->Row("URUS_T1") + $db->Row("URUS_T2") + $db->Row("URUS_T3") + $db->Row("URUS_T4");
            $body .= sprintf($_line, "", $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), "", "", "", "", "", "", rupiah($db->Row("URUS_PAGU")), t_wulan(1,$db->Row("URUS_T1_PSN")), t_wulan(1,$db->Row("URUS_T1")), t_wulan(2,$db->Row("URUS_T2_PSN")), t_wulan(2,$db->Row("URUS_T2")), t_wulan(3,$db->Row("URUS_T3_PSN")), t_wulan(3,$db->Row("URUS_T3")), t_wulan(4,$db->Row("URUS_T4_PSN")), t_wulan(4,$db->Row("URUS_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("URUS_PAGU")*100), "", "", "", "", "", "");
            $urus = $db->Row("KO_URUSAN");
        }
        if ($fung <> $db->Row("KO_FUNGSI")) {
            //todo: experiment
            $t_psn = max($db->Row("FUNG_T1_PSN"), $db->Row("FUNG_T2_PSN"), $db->Row("FUNG_T3_PSN"), $db->Row("FUNG_T4_PSN"));
            $t_rp = $db->Row("FUNG_T1") + $db->Row("FUNG_T2") + $db->Row("FUNG_T3") + $db->Row("FUNG_T4");
            $body .= sprintf($_line, "", $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), "", "", "", "", "", "", rupiah($db->Row("FUNG_PAGU")), t_wulan(1,$db->Row("FUNG_T1_PSN")), t_wulan(1,$db->Row("FUNG_T1")), t_wulan(2,$db->Row("FUNG_T2_PSN")), t_wulan(2,$db->Row("FUNG_T2")), t_wulan(3,$db->Row("FUNG_T3_PSN")), t_wulan(3,$db->Row("FUNG_T3")), t_wulan(4,$db->Row("FUNG_T4_PSN")), t_wulan(4,$db->Row("FUNG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("FUNG_PAGU")*100), "", "", "", "", "", "");
            $fung = $db->Row("KO_FUNGSI");
        }
        if ($prog <> $db->Row("KO_PROGRAM")) {
            //todo: experiment
            $t_psn = max($db->Row("PROG_T1_PSN"), $db->Row("PROG_T2_PSN"), $db->Row("PROG_T3_PSN"), $db->Row("PROG_T4_PSN"));
            $t_rp = $db->Row("PROG_T1") + $db->Row("PROG_T2") + $db->Row("PROG_T3") + $db->Row("PROG_T4");
            $body .= sprintf($_line, "", $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), $db->Row("TAR_PROG"), "", "", "", "", "", rupiah($db->Row("PROG_PAGU")), t_wulan(1,$db->Row("PROG_T1_PSN")), t_wulan(1,$db->Row("PROG_T1")), t_wulan(2,$db->Row("PROG_T2_PSN")), t_wulan(2,$db->Row("PROG_T2")), t_wulan(3,$db->Row("PROG_T3_PSN")), t_wulan(3,$db->Row("PROG_T3")), t_wulan(4,$db->Row("PROG_T4_PSN")), t_wulan(4,$db->Row("PROG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("PROG_PAGU")*100), "", "", "", "", $db->Row("N_UPT"), "");
            $prog = $db->Row("KO_PROGRAM");
        }
        $body .= sprintf($_line, $nurut, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("INDI_KEG"), "", "", "", "", $db->Row("TARGET_K"), rupiah($db->Row("PAGU")), t_wulan(1,$db->Row("RealF_TW1")), t_wulan(1,$db->Row("RealK_TW1")), t_wulan(2,$db->Row("RealF_TW2")), t_wulan(2,$db->Row("RealK_TW2")), t_wulan(3,$db->Row("RealF_TW3")), t_wulan(3,$db->Row("RealK_TW3")), t_wulan(4,$db->Row("RealF_TW4")), t_wulan(4,$db->Row("RealK_TW4")), rupiah($db->Row("R_FISIK")), rupiah($db->Row("R_RP")), "", rupiah($db->Row("R_RP")/$db->Row("PAGU")*100), "", "", "", "", "", $db->Row("Lokasi"));
        $nurut++;
    }
    echo $header . $body . "</table>";

} else if ( $data == "default") {
    echo '
    <div class="fade-in">
    <div class="card"><div class="card-header custom-style">Evaluasi Hasil RPJMD // Tahun '.$thn_renja.'</div><div class="card-body">
    <div class="form-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">
                <span class="input-group-append">
                    <button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
                </span>
            </div>
        </div>
    </div>
    <div class="form-row mb-1">
        <div class="col">
            <div class="input-group">
                <input class="form-control" id="Nama_UPT" placeholder="Nama Unit / UPTD " type="text" readonly>
                <input id="UPTID" type="hidden" value="0">
                <span class="input-group-append">
                    <button class="btn btn-info btn-ganti" type="button" id="butUPT"><span><i class="bi-arrow-left-right"></span></i>UPTD</button>
                </span>
            </div>
        </div>
    </div>
    <div id="divOPD">&nbsp;</div>
    <div id="divUPT">&nbsp;</div>
    <div id="divOUTPUT">&nbsp;</div>
    </div></div>
    </div>';
}

send_json($ajson);
?>