BAPPERIDA-MEMPAWAH/emonev
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update laporan kinerja, status indikator dan status output subkeg

Browse Source
This commit is contained in:
siaupheng
2026-07-07 14:40:34 +07:00
parent 75fee24e16
commit 1892713ca6
2 changed files with 44 additions and 44 deletions
Download Patch File Download Diff File Expand all files Collapse all files
apps/php/hasil/kinerja.php
+39 -39
View File
@@ -7,7 +7,7 @@
Desc. : PHP - Evaluasi Hasil Kinerja Triwulan
Created By : Siau Pheng ([email protected]).
Created Date : December 7th, 2011.
Last Modified : May 24th, 2026.
Last Modified : July 4th, 2026.
(c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
@@ -54,48 +54,52 @@ if ( in_array($data, ["print","export"]) ) {
// 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";
$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) {
$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";
$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) {
$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";
$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) {
$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";
$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".$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 dpa_sub".$tsql." AND Pagu_Ini>0");
$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");
@@ -104,12 +108,10 @@ if ( in_array($data, ["print","export"]) ) {
// TIDAK DI PROSES RENSTRA : S_5K, S_5RP, S_6K, S_6RP
// sub kegiatan
$db->Query("UPDATE emonev_renja A,(SELECT * 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".$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,(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".$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 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");
@@ -117,7 +119,7 @@ if ( in_array($data, ["print","export"]) ) {
// 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,Real_Kendala,Real_Tindak FROM dpa_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,(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
@@ -130,14 +132,14 @@ if ( in_array($data, ["print","export"]) ) {
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 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">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>
<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></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>';
$_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>&nbsp;</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>&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></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()) {
@@ -152,26 +154,24 @@ if ( $data == "print" ) {
}
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;");
$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;");
$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 dpa_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
$db2->Query("SELECT *,IF(TipeDataID=0,".$qp4.",".$qp3.") P_12K FROM dpa_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
$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++, "&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;");
$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"]));
}
$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;"];
$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"]), "&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;"];
$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;"];
}
$body .= vsprintf($_progkeg, $apindi);
$baris_indi++;
@@ -183,12 +183,12 @@ if ( $data == "print" ) {
$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']);
$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")), $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"));
$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"));
}
if ($keg <> 0) {
$body .= sprintf($_skor, "Rata-rata Capaian Kinerja Kegiatan (%)", uang2($akeg['K_13K'])." %", uang2($akeg['K_13RP'])." %", uang2($akeg['K_13KRP'])." %");