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

upgrade mengikuti dalev

Browse Source
This commit is contained in:
siaupheng
2026-05-24 15:56:42 +07:00
parent 2884ce69f1
commit 3837516de1
65 changed files with 1083 additions and 8518 deletions
Download Patch File Download Diff File Expand all files Collapse all files
apps/php/repo/rekap_progkeg.php
+70
View File
@@ -0,0 +1,70 @@
<?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_ ');
}
?>