first commit
This commit is contained in:
@@ -0,0 +1,212 @@
|
||||
<?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 : 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"> </div>
|
||||
<div id="divUPT"> </div>
|
||||
<div id="divOUTPUT"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
Reference in New Issue
Block a user