<?php // Author: Emanuel Setio Dewo // 19 April 2006 session_start(); include "db.mysql.php"; include_once "connectdb.php"; include_once "dwo.lib.php"; include_once "parameter.php"; include_once "mhswkeu.sav.php"; Cetak(); include_once "disconnectdb.php"; function Cetak() { global $_lf; // Setup Parameter $khsid = $_REQUEST['khsid']; $khs = GetFields('khs khs left outer join program prg on khs.ProgramID=prg.ProgramID left outer join prodi prd on khs.ProdiID=prd.ProdiID left outer join mhsw m on khs.MhswID=m.MhswID', 'KHSID', $khsid, "khs.*, m.BatasStudi, m.Nama as NamaMhsw, m.ProdiID, m.Autodebet, prg.Nama as PRG, prd.Nama as PRD"); $_REQUEST['mhswid'] = $khs['MhswID']; $_REQUEST['pmbmhswid'] = 1; $_REQUEST['DariKRS'] = 1; // Menandai bahwa ini dieksekusi dari modul KRS $MhswID = $_REQUEST['mhswid']; $thn = GetFields("tahun", "ProgramID='{$khs['ProgramID']}' and ProdiID='{$khs['ProdiID']}' and TahunID", $khs['TahunID'], "*"); $angmhsw = GetaField('mhsw', 'MhswID', $MhswID, 'TahunID'); // Menetapkan KRS atau KPRS $skrg = date('Y-m-d'); // Jika autodebet
<?php // Author: SIAKAD TEAM // 24 April 2006 // www.sisfokampus.net include "db.mysql.php"; include_once "connectdb.php"; include_once "dwo.lib.php"; include_once "parameter.php"; Cetak($_REQUEST['t']); include_once "disconnectdb.php"; function Cetak($t = 'UTS') { global $_lf; $jdwl = GetFields('jadwal', 'JadwalID', $_REQUEST['jdwlid'], "*"); $dsn = TRIM($jdwl['DosenID'], '.'); $arrdsn = explode('.', $dsn); $strdsn = empty($arrdsn) ? "GaAdaNih" : implode(',', $arrdsn); $nmdsn = GetArrayTable("select concat(Nama, ', ', Gelar) as DSN from dosen where Login in ({$strdsn}) order by Nama", "Login", "DSN"); // Buat file //$nmf = HOME_FOLDER . DS . "tmp/uts.$_REQUEST[jdwlid].dwoprn"; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); $maxkol = 80; $maxbrs = 40; fwrite($f, chr(27) . chr(77)); // Buat header $div = str_pad('-', $maxkol, '-') . $_lf; $NamaTahun = NamaTahun($jdwl['TahunID']); $adagrade = $t == 'FINAL' ? 'Grade' : ''; $adanilai = $t == 'FINAL' ? ' ' : "Nilai ";