71 lines
3.3 KiB
PHP
71 lines
3.3 KiB
PHP
<?php
|
|
|
|
/*******************************************************************
|
|
|
|
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
|
Module : /apps/php/repo/rekap_progkeg.php
|
|
Desc. : PHP - Laporan Rekap Program & Kegiatan
|
|
Created By : Siau Pheng ([email protected]).
|
|
Created Date : March 20th, 2012.
|
|
Last Modified : June 24th, 2024.
|
|
|
|
(c) 2012 - 2024, 3FONIA Software; WWW.3FONIA.COM.
|
|
|
|
*******************************************************************/
|
|
|
|
ini_set('display_errors', '0');
|
|
ini_set("max_execution_time", "900");
|
|
ini_set("pcre.backtrack_limit", "5000000");
|
|
|
|
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;
|
|
|
|
$db = $db ?? new MySQL();
|
|
$data = Param::Get("data");
|
|
$tahun = Param::Get("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
|
$is_rutin = Param::Get("Cetak_Rutin", 1);
|
|
|
|
if ( $data == "print" || $data == "export") {
|
|
$tsql = ($is_rutin==1) ? "" : " AND ProgID<>422";
|
|
//todo: cek lagi utk rutin/penunjang berdasarkan urusanid=20
|
|
|
|
$adata = array();
|
|
$db->Query("SELECT COUNT(DISTINCT ProgID) P_RPJMD FROM renstra_prog WHERE RPJMDID=2".$tsql);
|
|
if ($db->Next()) $adata['RPJMD']['Prog'] = $db->Row("P_RPJMD");
|
|
|
|
$db->Query("SELECT COUNT(DISTINCT ProgID) Prog,COUNT(*) Keg FROM renstra_keg WHERE RPJMDID=2".$tsql);
|
|
if ($db->Next()) $adata['RENSTRA'] = $db->AllRow();
|
|
|
|
$db->Query("SELECT COUNT(DISTINCT ProgID) Prog,COUNT(*) Keg FROM renja90_awal_keg WHERE RPJMDID=2 AND Tahun='".$tahun."'".$tsql);
|
|
if ($db->Next()) $adata['RKPD'] = $db->AllRow();
|
|
|
|
$db->Query("SELECT COUNT(DISTINCT ProgID) Prog,COUNT(*) Keg FROM dpa_keg WHERE RPJMDID=2 AND Tahun='".$tahun."'".$tsql);
|
|
if ($db->Next()) $adata['RKA'] = $db->AllRow();
|
|
}
|
|
|
|
if ( $data == "print" ) {
|
|
$_head = '<div style="text-align:center;font-size:120%;"><b>REKAP JUMLAH PROGRAM DAN KEGIATAN<br>TAHUN ANGGARAN '.$tahun.'</b></div><br>
|
|
<table width="100%" class="garis">
|
|
<tr><td width="20" class="c b" rowspan="2">Tahun</td><td width="50" class="c b" rowspan="2">Program RPJMD</td><td width="100" class="c b" colspan="2">RENSTRA</td><td width="100" class="c b" colspan="2">RKPD</td><td width="100" class="c b" colspan="2">RKA</td></tr>
|
|
<tr><td class="c b">Program</td><td class="c b">Kegiatan</td><td class="c b">Program</td><td class="c b">Kegiatan</td><td class="c b">Program</td><td class="c b">Kegiatan</td></tr>';
|
|
$_line = '<tr><td class="c" nowrap>%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></tr>';
|
|
$header = $_head;
|
|
$body = "";
|
|
$body .= sprintf($_line, $tahun, rupiah($adata['RPJMD']['Prog']), rupiah($adata['RENSTRA']['Prog']), rupiah($adata['RENSTRA']['Keg']), rupiah($adata['RKPD']['Prog']), rupiah($adata['RKPD']['Keg']), rupiah($adata['RKA']['Prog']), rupiah($adata['RKA']['Keg']));
|
|
echo $header . $body . "</table>";
|
|
|
|
} else if ( $data == "export" ) {
|
|
|
|
} else if ( $data == "default") {
|
|
$form = new Form($db);
|
|
$form->option_db("Tahun Data", "Tahun", $tahun, true, false, "para_periode", array("Tahun","Tahun"));
|
|
$form->radio("Rutin / Penunjang", "Cetak_Rutin", $is_rutin, true, false, array(1=>"Ya",2=>"Tidak"));
|
|
$form->show(' _Tahun_ _Cetak_Rutin_ ');
|
|
}
|
|
|
|
?>
|