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.");
}
}