global $urutan; $a = ''; for ($i = 0; $i < sizeof($urutan); $i++) { $sel = $i == $_SESSION['_urutan'] ? 'selected' : ''; $v = explode('~', $urutan[$i]); $_v = $v[0]; $a .= "<option value='{$i}' {$sel}>{$_v}</option>\r\n"; } echo "<p><table class=box cellspacing=1>\r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='mhsw.mk'>\r\n <input type=hidden name='gos' value='DftrMKMhsw'>\r\n <tr><td class=inp>Urut berdasarkan: </td>\r\n <td class=ul><select name='_urutan' onChange='this.form.submit()'>{$a}</select></td></tr>\r\n </form></table></p>"; } // *** Parameters *** $urutan = array(0 => "Kode Matakuliah~mk.MKKODE", 1 => "Periode~krs.TahunID"); $_urutan = GetSetVar('_urutan', 1); $crmhswid = GetSetVar('crmhswid'); $UkuranHeader = GetSetVar('UkuranHeader', 'Besar'); $gos = empty($_REQUEST['gos']) ? "DftrMKMhsw" : $_REQUEST['gos']; // *** Main *** TampilkanJudul("Edit Matakuliah Mahasiswa"); TampilkanPencarianMhsw('mhsw.mk', 'DftrMKMhsw', 1); TampilkanOrderBy(); if (!empty($crmhswid)) { $mhsw = GetFields("mhsw m\r\n left outer join program prg on prg.ProgramID=m.ProgramID\r\n left outer join prodi prd on prd.ProdiID=m.ProdiID", 'm.MhswID', $crmhswid, "m.*, prg.Nama as PRG, prd.Nama as PRD"); if (!empty($mhsw)) { include_once "mhsw.hdr.php"; $HeaderMhsw = "TampilkanHeader" . $UkuranHeader; echo $HeaderMhsw($mhsw, 'mhsw.mk', 'DftrMKMhsw', 1); $gos($mhsw); } else { echo ErrorMsg("Gagal", "Data mahasiswa dengan NPM <b>{$crmhswid}</b> tidak ditemukan."); } }
} } } else { echo ErrorMsg("Gagal Disimpan", "Mahasiswa telah mengikuti tahun ajaran <b>{$_REQUEST['TahunID']}</b>.\r\n <hr size=1>\r\n Pilihan: <a href='?mnux=mhswakd&gos=MhswAkdEdt'>Kembali</a>"); } } function MhswSesiDel() { $w = GetFields('mhsw', 'MhswID', $_REQUEST['mhswid'], '*'); $khs = GetFields('khs', 'KHSID', $_REQUEST['khsid'], '*'); if ($khs['Biaya'] + $khs['Bayar'] + $khs['Potongan'] + $khs['Tarik'] > 0) { echo ErrorMsg("Sesi Tidak Dapat Dihapus", "Anda tidak dapat menghapus Sesi <b>{$khs['TahunID']}</b> dari mahasiswa <b>{$w['Nama']}</b> ({$w['MhswID']}) karena telah ada\r\n transaksi keuangan.\r\n <hr size=1>\r\n Pilihan: <a href='?mnux=mhswakd&mhswid={$w['MhswID']}&gos=MhswAkdEdt'>Batal</a>"); } else { echo Konfirmasi("Konfirmasi Hapus Sesi", "Apakah Anda yakin akan menghapus Sesi mahasiswa ini?<br />\r\n <table class=bsc cellspacing=1 cellpadding=4 width=100%>\r\n <tr><td class=ul>NIM :</td><td class=ul><b>{$w['MhswID']}</b></td></tr>\r\n <tr><td class=ul>Nama :</td><td class=ul><b>{$w['Nama']}</b></td></tr>\r\n <tr><td class=ul>Sesi :</td><td class=ul><b>{$khs['Sesi']}</b></td></tr>\r\n <tr><td class=ul>Tahun Akd. :</td><td class=ul><b>{$khs['TahunID']}</b></td></tr>\r\n </table>\r\n <hr size=1>\r\n Pilihan: <a href='?mnux=mhswakd&gos=MhswSesiDel1&mhswid={$w['MhswID']}&khsid={$_REQUEST['khsid']}'>Hapus</a> |\r\n <a href='?mnux=mhswakd&mhswid={$w['MhswID']}&gos=MhswAkdEdt'>Batal</a>"); } } function MhswSesiDel1() { $s = "delete from khs where KHSID='{$_REQUEST['khsid']}' "; $r = _query($s); MhswAkdEdt(); } // *** Parameters *** $crmhsw = GetSetVar('crmhsw', 'NPM'); $crmhswid = GetSetVar('crmhswid'); $gos = empty($_REQUEST['gos']) ? 'CariMhsw' : $_REQUEST['gos']; $mhswid = GetSetVar('mhswid'); // *** Main *** TampilkanJudul("Data Akademik Mahasiswa"); TampilkanPencarianMhsw('mhswakd', 'CariMhsw'); $gos();
$BIA = number_format($khs['Biaya']); $BYR = number_format($khs['Bayar']); $POT = number_format($khs['Potongan']); $TRK = number_format($khs['Tarik']); echo "<p><table class=box cellspacing=1>\r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='cuti'>\r\n <input type=hidden name='gos' value='SKCutiSav'>\r\n <input type=hidden name='crmhswid' value='{$mhswid}'>\r\n <input type=hidden name='khsid' value='{$khsid}'>\r\n \r\n <tr><th class=ttl colspan=2>Cutikan Mahasiswa</th></tr>\r\n <tr><td class=ul colspan=2>Benar Anda akan mencutikan mahasiswa pada semester ini?</td></tr>\r\n <tr><td class=inp>Tahun Akd</td><td class=ul>{$khs['TahunID']}</td></tr>\r\n <tr><td class=inp>Biaya-biaya</td><td class=ul align=right>{$BIA}</td></tr>\r\n <tr><td class=inp>Potongan</td><td class=ul align=right>{$POT}</td></tr>\r\n <tr><td class=inp>Pembayaran</td><td class=ul align=right>{$BYR}</td></tr>\r\n <tr><td class=inp>Penarikan</td><td class=ul align=right>{$TRK}</td></tr>\r\n <tr><td class=inp>Balance</td><td {$c} align=right>{$_bal}</td></tr>\r\n <tr><td class=ul colspan=2><b>Surat Keputusan</b></td></tr>\r\n <tr><td class=inp>Nomer Surat Keputusan</td><td class=ul><input type=text name='NoSurat' value='{$w['NoSurat']}' size=40 maxlength=50></td></tr>\r\n <tr><td class=inp>Keterangan Cuti</td><td class=ul><textarea name='Keterangan' rows=4 cols=30>{$w['Keterangan']}</textarea></td></tr>\r\n <tr><td class=ul colspan=2><input type=submit name='Simpan' value='Simpan'>\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux=cuti'\"></td></tr>\r\n </form></table></p>"; } function SKCutiSav($mhswid, $mhsw) { $khsid = $_REQUEST['khsid']; $NoSurat = sqling($_REQUEST['NoSurat']); $Ket = sqling($_REQUEST['Keterangan']); if (!empty($khsid) && !empty($NoSurat)) { $s = "update khs set StatusMhswID='C', NoSurat='{$NoSurat}', Keterangan='{$Ket}'\r\n where KHSID='{$khsid}' "; $r = _query($s); echo Konfirmasi("Telah Disimpan", "Data cuti telah disimpan"); } else { echo ErrorMsg('Gagal Simpan', "Data tidak lengkap. Data cuti tidak disimpan."); } Cutikan($mhswid, $mhsw); } // *** Parameters *** $crmhswid = GetSetVar('crmhswid'); $gos = empty($_REQUEST['gos']) ? 'Cutikan' : $_REQUEST['gos']; // *** Main *** TampilkanJudul("Permohonan Cuti"); TampilkanPencarianMhsw('cuti', 'Cutikan', 1); if (!empty($crmhswid)) { $m = 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 bipot bpt on m.BIPOTID=bpt.BIPOTID", 'm.MhswID', $crmhswid, "m.*, prg.Nama as PRG, prd.Nama as PRD, bpt.Nama as BPT"); TampilkanHeaderBesar($m, 'cuti', '', 0); $gos($crmhswid, $m); }
$_SESSION["IPK-KHSID{$prd}" . "0"] = $krs['KHSID']; $max = $_SESSION['IPK' . $prodi]; $_SESSION["IPK{$prd}" . 'POS'] = 0; echo "<p><IFRAME SRC='prc.ipk.go.php?gos=PRC2&tahun={$TahunID}&prodi={$prd}&prid={$mhsw['ProgramID']}' width=300 height=75 frameborder=0>\n </IFRAME></p>"; } else { echo ErrorMsg("Gagal Simpan", "Tidak dapat menyimpan data kelulusan."); } DftrTA($mhsw); } // *** Parameters *** $crmhswid = GetSetVar('crmhswid'); $gos = empty($_REQUEST['gos']) ? 'DftrTA' : $_REQUEST['gos']; $tipta = GetSetVar('tipta', 0); // *** Main *** TampilkanJudul("Pendaftaran Tugas Akhir/Skripsi/Tesis/Disertasi"); TampilkanPencarianMhsw('ta', 'DftrTA', 1); if (!empty($crmhswid)) { $mhsw = GetFields("mhsw m\n left outer join program prg on m.ProgramID=prg.ProgramID\n left outer join prodi prd on m.ProdiID=prd.ProdiID\n left outer join bipot bpt on m.BIPOTID=bpt.BIPOTID", 'm.MhswID', $crmhswid, "m.*, prg.Nama as PRG, prd.Nama as PRD, bpt.Nama as BPT"); if ($mhsw['ProdiID'] != '11' && $mhsw['ProdiID'] != '10') { $sdh = CheckAmbilTA($mhsw); if ($sdh) { include_once "mhsw.hdr.php"; TampilkanHeaderBesar($mhsw, 'ta', '', 0); $gos($mhsw); } } else { include_once "mhsw.hdr.php"; TampilkanHeaderBesar($mhsw, 'ta', '', 0); $gos($mhsw); } }
$str = substr($str, $ak + 1, $len); $str = TRIM($str); } else { $arr[] = TRIM($str); $str = ''; } } } return $arr; } function GetPejabat($fakultas) { $w = GetaField('fakultas', 'FakultasID', $fakultas, "Pejabat"); return $w; } // *** Parameters *** $bhs = GetSetVar('bhs', 'id'); $crmhswid = GetSetVar('crmhswid'); $_Printer = GetSetVar('_Printer'); $_Jns = GetSetVar('_Jns'); $gos = empty($_REQUEST['gos']) ? "DataMhsw" : $_REQUEST['gos']; echo $_SESSION['_Jns']; // *** Main *** TampilkanJudul("Transkrip Mahasiswa"); TampilkanPencarianMhsw('transkrip', 'DataMhsw', 1); if (!empty($crmhswid)) { $mhsw = GetFields("mhsw m\r\n left outer join dosen d on m.PenasehatAkademik=d.Login\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 fakultas fak on prd.FakultasID=fak.FakultasID\r\n left outer join statusmhsw sm on m.StatusMhswID=sm.StatusMhswID", "m.MhswID", $crmhswid, "m.*, concat(d.Nama, ', ', d.Gelar) as PA,\r\n date_format(m.TanggalLahir, '%d %M %Y') as TGLLHR, \r\n prg.Nama as PRG, prd.Nama as PRD, prd.Gelar, sm.Nama as SM, sm.Keluar, sm.Nilai,\r\n fak.FakultasID, fak.Nama as FAK, \r\n fak.Pejabat, fak.Jabatan, prd.ProdiID as PRDID"); if (!empty($mhsw)) { $gos($mhsw); } }
echo <<<END <p><table class=box cellspacing=1 cellpadding=4> <form action='cetak/prc.ipk.batch.php' name='Batch' method=POST target=_blank> <tr><td class=inp1 colspan=2><b>Proses IPK secara Batch</b></td> <td class=inp1 colspan=2><b>Setup Proses Keuangan</b></td> <td class=inp>Tahun Akd.</td><td class=ul><input type=text name='tahun' value='{$_SESSION['tahun']}'></td></tr> <tr><td class=inp>Program</td><td class=ul><select name='prid'>{$optprg}</select></td> <td class=inp>Transfer Hutang</td><td class=ul><select name='HutangNext'>{$optHTGN}</select></td> <td class=inp>Hutang Ditransfer</td><td class=ul><select name='HutangPrev'>{$optHTGP}</select></td></tr> <tr><td class=inp>Program Studi</td><td class=ul><select name='prodi'>{$optprd}</select></td> <td class=inp>Transfer Deposit</td><td class=ul><select name='DepositNext'>{$optDEPN}</select></td> <td class=inp>Deposit Ditransfer </td><td class=ul><select name='DepositPrev'>{$optDEPP}</select></td></tr> <tr><td colspan=2><input type=submit name='Proses' value='ProsesIPK'></td> <td colspan=4><input type=submit name='Proses' value='Simpan_Setup_Keuangan'> <input type=submit name='Proses' value='Proses_Tutup_Keuangan'></td></tr> </form></table></p> END; } // *** Parameters *** $tahun = GetSetVar('tahun'); $prid = GetSetVar('prid'); $prodi = GetSetVar('prodi'); $crmhswid = GetSetVar('crmhswid'); $gos = empty($_REQUEST['gos']) ? "donothing" : "ProsesIPK"; // *** Main *** TampilkanJudul("Proses Hitung IPK Mahasiswa"); TampilkanPencarianMhsw('prc.ipk', 'ProsesIPKMhsw', 1); TampilkanIPKBatch(); if (!empty($tahun) && !empty($prid) && !empty($prodi)) { $gos(); }
<?php // Author: SIAKAD TEAM // 22 Maret 2007 // *** Parameters *** $crmhswid = GetSetVar('crmhswid'); $_urutan = GetSetVar('_urutan', 0); $UkuranHeader = GetSetVar('UkuranHeader', 'Besar'); $gos = empty($_REQUEST['gos']) ? "DetailMKMhsw" : $_REQUEST['gos']; // *** Main *** TampilkanJudul("Edit Matakuliah Mhsw Klinik (Manual)"); CekHakAksesProdi('11'); $UkuranHeader = GetSetVar('UkuranHeader', 'Besar'); TampilkanPencarianMhsw('klinik.mkmhsw', 'DetailMKMhsw', 1); if (!empty($_SESSION['crmhswid'])) { $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 bipot b on m.BIPOTID=b.BIPOTID", 'm.MhswID', $_SESSION['crmhswid'], "m.*, prd.Nama as PRD, prg.Nama as PRG, b.Nama as BPT"); if (empty($mhsw)) { echo ErrorMsg("Mahasiswa Tidak Ditemukan", "Mahasiswa dengan NPM: <b>{$_SESSION['crmhswid']}</b> tidak ditemukan."); } else { include_once "mhsw.hdr.php"; $HeaderMhsw = "TampilkanHeader" . $_SESSION['UkuranHeader']; echo $HeaderMhsw($mhsw, 'klinik.mkmhsw', 'DftrMKMhsw', 1); echo "<p><a href='?mnux={$_SESSION['mnux']}&gos=MKMhswEdt&md=1'>Tambah Matakuliah Mahasiswa</a></p>"; $gos($mhsw); } } else { echo Konfirmasi("Isikan NPM Mahasiswa", "Isikan NPM Mahasiswa untuk melihat data matakuliah mahasiswa."); } // *** Functions *** function CekHakAksesProdi($prd) {
fwrite($f, str_pad("No. Tes : ", 22, ' ', STR_PAD_LEFT) . str_pad($m['PMBID'], 46) . $_lf); fwrite($f, $grs . $_lf . $_lf); $Tanda = str_pad("+-------------------------------------------------------------+", $mxc, ' ', STR_PAD_BOTH) . $_lf; $Tanda .= str_pad("| LENGKAPI DAN PERBAIKI DATA ANDA YANG SALAH. |", $mxc, ' ', STR_PAD_BOTH) . $_lf; $Tanda .= str_pad("| KEMBALIKAN BERSAMA PENYERAHAN KRS ANDA |", $mxc, ' ', STR_PAD_BOTH) . $_lf; $Tanda .= str_pad("| |", $mxc, ' ', STR_PAD_BOTH) . $_lf; $Tanda .= str_pad("| UNTUK PERUBAHAN NAMA, TEMPAT & TANGGAL LAHIR |", $mxc, ' ', STR_PAD_BOTH) . $_lf; $Tanda .= str_pad("| HARAP MENYERTAKAN AKTE KELAHIRAN |", $mxc, ' ', STR_PAD_BOTH) . $_lf; $Tanda .= str_pad("+-------------------------------------------------------------+", $mxc, ' ', STR_PAD_BOTH) . $_lf; fwrite($f, $Tanda . $_lf); fwrite($f, str_pad("Tanggal Cetak : " . date("d-m-Y H:i"), $mxc, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf); } // *** Parameters *** $crmhswid = GetSetVar('crmhswid'); // *** Main *** TampilkanJudul("Form Data Pribadi Mahasiswa"); TampilkanPencarianMhsw('mhsw.pribadi', 'FormDataMhsw', 1); if (!empty($crmhswid)) { $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", "m.MhswID", $crmhswid, "m.*, prg.Nama as PRG, prd.Nama as PRD"); if (!empty($mhsw)) { if (!empty($_REQUEST['gos'])) { $gos = $_REQUEST['gos']; $gos($mhsw); } } else { echo ErrorMsg("Mahasiswa Tidak Ditemukan", "Mahasiswa dengan NPM <b>{$crmhswid}</b> tidak ditemukan."); } }