$isi = str_pad($_n_, 4, ' ') . ' ' . str_pad($_kdmk, 6) . ' ' . str_pad($_namamk, 46) . ' ' . str_pad($_sks, 7, ' ') . str_pad($_nilai, 4, ' ', STR_PAD_BOTH) . ' ' . str_pad($bin, 6, ' ') . str_pad($w['thnid'], 8, ' ') . ' ' . str_pad($pra_, 4, ' ') . ' ' . str_pad($w['pras'], 20) . $_lf; fwrite($f, $isi); } $ipk = $cekprodi == '10' ? $ipk = $nxk / $tSKS : $DtMhs; //fwrite($f, str_pad("Jumlah SKS : ",50, ' ',STR_PAD_LEFT).str_pad($JMLSKS,10,' ',STR_PAD_LEFT ).$_lf); fwrite($f, $div); fwrite($f, str_pad("IPK : " . number_format($DtMhs['IPK'], 2), 40, ' ', STR_PAD_LEFT) . str_pad("Total SKS : " . $DtMhs['TotalSKS'], 20, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); fwrite($f, str_pad("Halaman : " . $hal . '/' . $jumhal, 10, ' ') . $_lf); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 20, ' ') . str_pad("Dicetak Tgl : " . $_Tgl, 140, ' ', STR_PAD_LEFT) . $_lf . $_lf); fwrite($f, str_pad("Akhir laporan", 160, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap"); } } // *** Parameters *** if ($_SESSION['_LevelID'] == 120) { $mhswid = $_SESSION['_Login']; } else { $mhswid = GetSetVar('mhswid'); } $tahun = GetSetVar('tahun'); //$prodi = GetSetVar('prodi'); //$prid = GetSetVar('prid'); // *** Main *** TampilkanJudul("Daftar Rekapitulasi Nilai dan Prasyarat"); TampilkanCariMhsw('akd.lap.rekapnilaiprasyaratmhsw', 'Daftar'); if (!empty($tahun)) { Daftar(); }
// Level yg dapat mengakses mundur $_LevelMundurKRS = ".1.40."; include_once "krs.lib.php"; // *** Parameters *** if ($_SESSION['_LevelID'] == 120) { $mhswid = $_SESSION['_Login']; } else { $mhswid = GetSetVar('mhswid'); } $tahun = GetSetVar('tahun'); $MKPaketID = GetSetVar('MKPaketID'); $NamaKelas = GetSetVar('NamaKelas'); $gos = empty($_REQUEST['gos']) ? 'DftrKRS' : $_REQUEST['gos']; // *** Main *** TampilkanJudul("Kartu Rencana Studi Mahasiswa"); TampilkanCariMhsw(); if (!empty($mhswid) && !empty($tahun)) { $mhsw = GetFields("mhsw m\r\n left outer join program prg on m.ProgramID=prg.ProgramID\r\n left outer join prodi prd on m.ProdiID=prd.ProdiID\r\n left outer join statusmhsw sm on m.StatusMhswID=sm.StatusMhswID", "m.MhswID", $mhswid, "m.*, prg.Nama as PRG, prd.Nama as PRD,\r\n sm.Nama as SM, sm.Nilai as SMNilai, sm.Keluar"); if (empty($mhsw)) { echo ErrorMsg("Mahasiswa Tidak Ditemukan", "Tidak ada mahasiswa dengan NPM: <b>{$mhswid}</b>"); } else { $datatahun = GetFields('tahun', "KodeID='{$_SESSION['KodeID']}' and ProgramID='{$mhsw['ProgramID']}' and ProdiID='{$mhsw['ProdiID']}' and TahunID", $tahun, '*'); $khs = GetFields("khs k\r\n left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID", "k.MhswID='{$mhswid}' and k.TahunID", $tahun, "k.*, sm.Nama as SM, sm.Nilai as SMNilai, sm.Keluar"); if (empty($khs) || empty($datatahun)) { echo ErrorMsg("Mahasiswa Tidak Terdaftar", "<p>Ada dua kemungkinan kesalahan:</p>\r\n <ol>\r\n <li>Mahasiswa <b>{$mhsw['Nama']}</b> ({$mhswid}) tidak terdaftar untuk\r\n sesi/semester <b>{$tahun}</b>.</li>\r\n <li>Fakultas/Jurusan belum mengaktifkan tahun akademik: <b>{$tahun}</b>.\r\n </ol>"); } else { // Cek maksimum SKS if ($khs['Sesi'] <= 1 and $khs['MaxSKS'] == 0) { BuatDefaultMaxSKS($khs); } elseif ($khs['Sesi'] > 1 and $khs['MaxSKS'] == 0) { $khsprev = GetFields('khs', "MhswID='{$mhswid}' and Sesi", $khs['Sesi'] - 1, '*');
} echo "<tr><td class=inp title='{$w['KRSID']}'>{$nmr}</td>\r\n <td {$c}>{$w['MKKode']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['NamaKelas']} </td>\r\n <td {$c}>{$w['SKSAsli']}</td>\r\n <td {$c}>{$w['JenisJadwalID']}</td>\r\n {$nil}\r\n <td {$c} align=right>{$w['Presensi']}</td>\r\n <td {$c} align=right>{$w['UTS']}</td>\r\n <td {$c} align=right>{$w['UAS']}</td>\r\n <td {$c} align=right>{$w['NilaiAkhir']}</td>\r\n <td {$c} align=center>{$w['GradeNilai']}</td>\r\n <td {$c} align=right>{$w['BobotNilai']}</td>\r\n <td {$c}>{$w['SK']}</td>\r\n </tr>"; } echo "</table></p>"; } // *** Parameters *** if ($_SESSION['_LevelID'] == 120) { $mhswid = $_SESSION['_Login']; } else { $mhswid = GetSetVar('mhswid'); } $tahun = GetSetVar('tahun'); $gos = empty($_REQUEST['gos']) ? 'DftrNilai' : $_REQUEST['gos']; // *** Main *** TampilkanJudul("Nilai Semester Mahasiswa"); TampilkanCariMhsw('mhswnilai'); if (!empty($mhswid)) { $mhsw = GetFields("mhsw m\r\n left outer join program prg on m.ProgramID=prg.ProgramID\r\n left outer join prodi prd on m.ProdiID=prd.ProdiID\r\n left outer join statusmhsw sm on m.StatusMhswID=sm.StatusMhswID", "m.MhswID", $mhswid, "m.*, prg.Nama as PRG, prd.Nama as PRD,\r\n sm.Nama as SM, sm.Nilai as SMNilai, sm.Keluar"); if (empty($mhsw)) { echo ErrorMsg("Mahasiswa Tidak Ditemukan", "Tidak ada mahasiswa dengan NPM: <b>{$mhswid}</b>"); } else { $datatahun = GetFields('tahun', "KodeID='{$_SESSION['KodeID']}' and ProgramID='{$mhsw['ProgramID']}' and ProdiID='{$mhsw['ProdiID']}' and TahunID", $tahun, '*'); $khs = GetFields("khs k\r\n left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID", "k.MhswID='{$mhswid}' and k.TahunID", $tahun, "k.*, sm.Nama as SM, sm.Nilai as SMNilai, sm.Keluar"); if (empty($khs) || empty($datatahun)) { echo ErrorMsg("Mahasiswa Tidak Terdaftar", "<p>Ada dua kemungkinan kesalahan:</p>\r\n <ol>\r\n <li>Mahasiswa <b>{$mhsw['Nama']}</b> ({$mhswid}) tidak terdaftar untuk\r\n sesi/semester <b>{$tahun}</b>.</li>\r\n <li>Fakultas/Jurusan belum mengaktifkan tahun akademik: <b>{$tahun}</b>.\r\n </ol>"); } else { // Cek maksimum SKS if ($khs['Sesi'] <= 1 and $khs['MaxSKS'] == 0) { $MaxSKS = GetaField('prodi', 'ProdiID', $mhsw['ProdiID'], 'DefSKS') + 0; $khs['MaxSKS'] = $MaxSKS; // Simpan
fwrite($f, chr(27) . chr(18) . chr(27) . chr(108) . chr(0)); fwrite($f, str_pad("BUKTI KELEBIHAN PEMBAYARAN", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf); fwrite($f, str_pad("SEMESTER : " . NamaTahun($_SESSION['tahun']), $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf); $isi = str_pad('NIM : ' . $_SESSION['mhswid'], 50, ' ') . $_lf . $_lf . str_pad('NAMA : ' . $Nama, 50, ' ') . $_lf . $_lf . str_pad('JUMLAH : Rp. ' . $_bal, 50, ' ') . $_lf . $_lf . str_pad('TERBILANG : ' . SpellNumberID($bal) . "Rupiah", 50, ' ') . $_lf . $_lf . str_pad('KETERANGAN : ' . $Keterangan, 60, ' ') . $_lf . $_lf . str_pad('Jakarta, ' . date("d-m-Y"), 50, ' ') . $_lf . $_lf . str_pad('Bagian Keuangan,', 50, ' ') . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf; fwrite($f, $isi); fwrite($f, "Dicetak Oleh : " . $_SESSION['_Login']); //fwrite($f, $div); fwrite($f, chr(12)); fclose($f); echo "<iframe src='dwoprn.php?f={$nmf}' height=0 width=0 frameborder=0>\r\n </iframe>"; } // *** Parameters *** $tahun = GetSetVar('tahun'); $mhswid = GetSetVar('mhswid'); $gos = $_REQUEST['gos']; // *** Main *** TampilkanJudul("Pengambilan Kelebihan Bayar Mhsw"); TampilkanCariMhsw('mhswkeu.ambil', 'Ambilkan'); if (!empty($mhswid) && !empty($gos)) { $mhsw = GetFields("mhsw m\r\n left outer join statusmhsw sm on m.StatusMhswID=sm.StatusMhswID\r\n left outer join program prg on m.ProgramID=prg.ProgramID\r\n left outer join prodi prd on m.ProdiID=prd.ProdiID\r\n left outer join bipot bpt on m.BIPOTID=bpt.BIPOTID", "m.MhswID", $mhswid, "m.*, sm.Nama as STT, sm.Nilai, sm.Keluar, prg.Nama as PRG, prd.Nama as PRD,\r\n bpt.Nama as BPT"); if (!empty($mhsw)) { if ($mhsw['Keluar'] == 'Y') { echo ErrorMsg("Mahasiswa Telah {$mhsw['STT']}", "Status mahasiswa adalah <b>{$mhsw['STT']}</b> sehingga data tidak dapat diubah-ubah lagi."); } else { TampilkanHeaderBesar($mhsw, 'mhswkeu.ambil', '', 0); $gos($mhsw); } } else { echo ErrorMsg("Mahasiwa Tidak Ada", "Mahasiswa dengan NPM <b>{$mhswid}</b> tidak ditemukan."); } }
$MKID = $_REQUEST['MKID']; $mk = GetFields("mk", "MKID", $MKID, "*"); $tahun = $_REQUEST['tahun']; $GradeNilai = $_REQUEST['GradeNilai']; $nl = GetFields("nilai", "ProdiID='{$mhsw['ProdiID']}' and Nama", $GradeNilai, "*"); $SetaraKode = sqling($_REQUEST['SetaraKode']); $SetaraNama = sqling($_REQUEST['SetaraNama']); $SetaraGrade = sqling($_REQUEST['SetaraGrade']); $md = $_REQUEST['md'] + 0; if ($md == 0) { $s = "update krs set MKID='{$MKID}', SKS='{$mk['SKS']}',\r\n TahunID='{$tahun}', GradeNilai='{$GradeNilai}', BobotNilai='{$nl['Bobot']}',\r\n SetaraKode='{$SetaraKode}', SetaraNama='{$SetaraNama}', SetaraGrade='{$SetaraGrade}',\r\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where KRSID='{$_REQUEST['krsid']}' "; $r = _query($s); } else { $s = "insert into krs (MhswID, MKID, SKS, TahunID,\r\n GradeNilai, BobotNilai, Setara,\r\n SetaraKode, SetaraNama, SetaraGrade,\r\n LoginBuat, TanggalBuat)\r\n values ('{$mhsw['MhswID']}', '{$MKID}', '{$mk['SKS']}', '{$tahun}',\r\n '{$GradeNilai}', '{$nl['Bobot']}', 'Y', \r\n '{$SetaraKode}', '{$SetaraNama}', 'SetaraGrade',\r\n '{$_SESSION['_Login']}', now())"; $r = _query($s); } DftrSetara($mhsw); } // *** Parameters *** $mhswid = GetSetVar('mhswid'); $tahun = GetSetVar('tahun'); $gos = empty($_REQUEST['gos']) ? "DftrSetara" : $_REQUEST['gos']; // *** Main *** TampilkanJudul("Penyetaraan Matakuliah Mahasiswa"); TampilkanCariMhsw('setara'); if (!empty($gos) && !empty($mhswid)) { $mhsw = GetFields("mhsw", "MhswID", $mhswid, "*"); if (!empty($mhsw)) { $gos($mhsw); } }
// Tampilkan pesan echo Konfirmasi("Beasiswa Sudah Dibatalkan", "Beasiswa untuk <font size=+1>{$mhsw['Nama']}</font> pada tahun <font size=+1>{$beas1['TahunID']}</font>\r\n sudah dibatalkan.<br />\r\n Harap periksa keuangan mahasiswa untuk tahun <font size=+1>{$beas1['TahunID']}</font>"); } function BeasDel($mhsw, $beas) { $del = $_REQUEST['del']; $s = "delete from beasiswamhsw where BeasiswaMhswID={$del}"; $r = _query($s); echo Konfirmasi("Permohonan Beasiswa Sudah Dihapus", "Data permohonan untuk mahasiswa <font size=+1>{$mhsw['MhswID']}</font> tahun <font size=+1>{$beas['TahunID']}</font>\r\n telah dihapus."); } // *** Parameters *** $mhswid = GetSetVar('mhswid'); $tahun = GetSetVar('tahun'); $gos = empty($_REQUEST['gos']) ? "BatalkanBeasiswa" : $_REQUEST['gos']; // *** Main *** TampilkanJudul("Pembatalan Beasiswa"); TampilkanCariMhsw('beasiswa.batal', 'BatalkanBeasiswa', 1); if (!empty($tahun) && !empty($gos)) { $mhsw = GetFields("mhsw", "MhswID", $mhswid, "MhswID, Nama, ProdiID, ProgramID"); if (!empty($mhsw)) { // apakah menerima beasiswa? $beas = GetFields("beasiswamhsw", "MhswID='{$mhswid}' and TahunID", $tahun, "*"); if (!empty($mhsw)) { $gos($mhsw, $beas); } else { echo ErrorMsg("Data Tidak Ditemukan", "Mahasiswa <font size=+1>{$mhswid}</font> tidak menerima beasiswa pada tahun <font size=+1>{$tahun}</font>.<br />\r\n Tidak dapat membatalkan beasiswa."); } } else { echo ErrorMsg("Mahasiswa Tidak Ditemukan", "Mahasiswa dengan NPM <font size=+1>{$mhswid}</font> tidak ditemukan."); } }
$pra = GetaField("mk", "MKID", $w['mkpra'], "MKKODE"); $isi = str_pad($n . '.', 4, ' ') . ' ' . str_pad($w['mkkode'], 6) . ' ' . str_pad($w['mknama'], 46) . ' ' . str_pad($w['SKS'], 5, ' ') . str_pad($w['thnid'], 8) . ' ' . str_pad($w['nilai'], 8, ' ') . ' ' . str_pad($w['bobot'], 6, ' ') . ' ' . str_pad($w['nxk'], 5, ' ', STR_PAD_LEFT) . $_lf; fwrite($f, $isi); } //fwrite($f, str_pad("Jumlah SKS : ",50, ' ',STR_PAD_LEFT).str_pad($JMLSKS,10,' ',STR_PAD_LEFT ).$_lf); fwrite($f, $div); fwrite($f, str_pad("IPK " . $DtMhs['IPK'], 37, ' ', STR_PAD_LEFT) . str_pad($JmlSKS['jSKS'], 23, ' ', STR_PAD_LEFT) . str_pad($JmlSKS['jx'], 35, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 20, ' ') . str_pad("Dicetak Tgl : " . $_Tgl, 90, ' ', STR_PAD_LEFT) . $_lf . $_lf); fwrite($f, str_pad("Akhir laporan", 114, ' ', STR_PAD_LEFT)); fwrite($f, chr(12) . $_lf); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap"); } } // *** Parameters *** if ($_SESSION['_LevelID'] == 120) { $mhswid = $_SESSION['_Login']; } else { $mhswid = GetSetVar('mhswid'); } $urutannilai = array(0 => "Kode Matakuliah~mk.MKKODE", 1 => "Periode~krsprc.TahunID"); $_urutannilai = GetSetVar('_urutannilai', 1); $tahun = GetSetVar('tahun'); // *** Main *** TampilkanJudul("Daftar Rekapitulasi History Nilai Per Semester"); TampilkanCariMhsw('akd.lap.historynilaisesi', 'Daftar'); if (!empty($mhswid)) { TampilkanPilihanUrutanNilai(); Daftar(); }