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 dpa90_keg WHERE RPJMDID=2 AND Tahun='".$tahun."'".$tsql);
if ($db->Next()) $adata['RKA'] = $db->AllRow();
}
if ( $data == "print" ) {
$_head = 'REKAP JUMLAH PROGRAM DAN KEGIATAN
TAHUN ANGGARAN '.$tahun.'
| Tahun | Program RPJMD | RENSTRA | RKPD | RKA |
| Program | Kegiatan | Program | Kegiatan | Program | Kegiatan |
';
$_line = '| %s | %s | %s | %s | %s | %s | %s | %s |
';
$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 . "
";
} 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_ ');
}
?>