function BuatPanitera()
{
global $prodi_asal, $prodi_panitera;
$sked = $_REQUEST['sked'];
$mhsw = GetFields('mhsw', "MhswID", $sked, '*');
if (!empty($mhsw)) {
if ($mhsw['ProdiID'] == $prodi_asal) {
$ada = GetFields('mhsw', "ProdiID='{$prodi_panitera}' and PMBID", $sked, '*');
if (!empty($ada)) {
die(ErrorMsg("Mhsw Sudah Terdaftar", "Mahasiswa dengan NPM S.Ked <b>{$sked}</b> telah terdaftar di program Kepaniteraan.\r\n <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>"));
}
//if ($mhsw['LulusUjian'] == 'N')
if ($mhsw['StatusMhswID'] != 'L') {
die(ErrorMsg("Mhsw Belum Lulus", "Mahasiswa dengan NPM S.Ked <b>{$sked}</b> belum lulus S.Ked.\r\n <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>"));
}
$tgl = FormatTanggal($mhsw['TanggalLulus']);
CheckFormScript("SKMasuk");
$TGL = GetDateOption(date('Y-m-d'), 'TGL');
echo Konfirmasi("Pembuatan NPM Kepaniteraan", "<p><form action='?' method=POST onSubmit=\"return CheckForm(this)\">\r\n <input type=hidden name='mnux' value='mhsw.panitera.baru'>\r\n <input type=hidden name='sked' value='{$sked}'>\r\n <input type=hidden name='gos' value='BuatPanitera1'>\r\n <table class=bsc>\r\n\t\t <tr><td class=ul>NPM SKed</td>\r\n\t\t <td class=ul><b>{$mhsw['MhswID']}</td></tr>\r\n\t\t <tr><td class=ul>Nama Mhsw</td>\r\n\t\t <td class=ul><b>{$mhsw['Nama']}</td></tr>\r\n\t\t <tr><td class=ul>Lulus Tanggal</td>\r\n\t\t <td class=ul><b>{$tgl}</td></tr>\r\n\t\t <tr><td class=ul>Nilai Akhir</td>\r\n\t\t <td class=ul><b>{$mhsw['GradeNilai']} ({$mhsw['NilaiUjian']})</td></tr>\r\n\t\t <tr><td class=ul>SK Masuk Panitera</td>\r\n\t\t <td class=ul><input type=text name='SKMasuk' size=30 maxlength=50></td></tr>\r\n\t\t <tr><td class=ul>Tanggal SK Masuk</td>\r\n\t\t <td class=ul>{$TGL}</td></tr>\r\n\t\t </table></p>\r\n\t\t\r\n\t Pilihan: <input type=submit name='Simpan' value='Simpan'>\r\n\t <input type=button name='Batal' value='Batalkan Proses' onClick=\"location='?mnux=mhsw.panitera.baru&gos='\">\r\n </form>");
} else {
echo ErrorMsg("Mhsw Bukan Dari Kedokteran", "Mahasiswa dengan Nama <b>{$mhsw['Nama']}</b> (<b>{$sked}</b>) bukan dari Fakultas Kedokteran.<br />\r\n\t Mahasiswa ini tidak dapat diproses menjadi mahasiswa Kepaniteraan.\r\n\t <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>");
}
} else {
echo ErrorMsg("Mhsw Tidak Ditemukan", "Mhsw dengan NPM <b>{$sked}</b> tidak ditemukan, atau bukan dari fakultas Kedokteran.\r\n\t <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>");
}
}
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.");
}
function berhasil()
{
global $_ProductName, $_Version, $arrID;
// Tampilkan welcome
TampilkanJudul("Selamat Datang");
echo Konfirmasi("{$arrID['Nama']}", "<table class=bsc cellspacing=1 width=100%>\r\n <tr>\r\n <td class=ul1 colspan=2 nowrap>Selamat datang di {$_ProductName} - {$arrID['Nama']}</td>\r\n </tr>\r\n <tr>\r\n <td class=inp>Nama :</td>\r\n <td class=ul1><b>{$_SESSION['_Nama']}</b></td>\r\n </tr> \r\n <tr>\r\n <td class=inp>Pilihan:</td>\r\n <td class=ul1>\r\n <input type=button name='Logout' value='Logout' onClick=\"location='?mnux=loginprc&gos=lout'\" />\r\n </td>\r\n </tr>\r\n </table>");
}
function CetakKwitansi($ID)
{
global $_kwitansipmb, $_lf, $_HeaderPrn, $_EjectPrn, $_TestColumnPrn;
// Tulis ke file
$w = GetFields('pmbformjual', "PMBFormJualID", $ID, "*, format(Jumlah, 0) as JML, date_format(Tanggal, '%d-%m-%Y') as TGL");
$f = fopen($_kwitansipmb, 'w');
$thn = substr($_SESSION['pmbaktif'], 0, 4);
$gel = substr($_SESSION['pmbaktif'], 4, 1);
//str_pad($pmbcnt, $_PMBDigit, '0', STR_PAD_LEFT);
fwrite($f, $_HeaderPrn);
//fwrite($f, ' 1 2 3 4 5 6 7'.$lf);
//fwrite($f, $_TestColumnPrn);
fwrite($f, $_lf);
fwrite($f, str_pad(" ", 60, ' ', STR_PAD_LEFT) . $w['PMBFormJualID'] . $_lf . $_lf);
fwrite($f, str_pad("No. Ref: ", 60, ' ', STR_PAD_LEFT) . $w['BuktiSetoran'] . $_lf);
fwrite($f, "{$_lf}{$_lf}{$_lf}{$_lf}");
fwrite($f, str_pad(" ", 34, ' ', STR_PAD_LEFT) . $w['JML'] . $_lf);
fwrite($f, str_pad(" ", 57, ' ', STR_PAD_LEFT) . $thn . ' ' . $gel);
fwrite($f, $_lf . $_lf . $_lf . $_lf . $_lf);
fwrite($f, str_pad(' ', 64, ' ') . $w['TGL'] . $_lf . $_lf . $_lf);
fwrite($f, str_pad(' ', 50) . $_SESSION['_Nama'] . $_lf);
fwrite($f, $_lf . $_lf . $_lf . $_lf);
fclose($f);
//DownloadDWOPRN($_kwitansipmb);
echo Konfirmasi("Penjualan Formulir", "Data penjualan telah disimpan.<br>\r\n Nomer Formulir: <strong>{$ID}</strong><br>\r\n Bukti Setoran: <strong>{$w['BuktiSetoran']}</strong><hr size=1 color=silver>\r\n Pilihan: <a href='dwoprn.php?f={$_kwitansipmb}'>Cetak Kwitansi</a> |\r\n <a href='?mnux=pmbformjual'>Jual Formulir</a>");
}
function CheckDulu()
{
$Angkatan = sqling($_REQUEST['Angkatan']);
$ProdiID = sqling($_REQUEST['ProdiID']);
$BIPOTID = $_REQUEST['BIPOTID'];
$s = "select m.MhswID, m.ProdiID, m.ProgramID, k.TahunID\r\n from mhsw m\r\n\tleft outer join khs k on k.MhswID = m.MhswID\r\n where m.KodeID = '" . KodeID . "'\r\n and m.ProdiID = '{$ProdiID}'\r\n and LEFT(k.TahunID,4) = '{$Angkatan}'\r\n and k.BIPOTID = 0\r\n order by k.MhswID";
$r = _query($s);
$n = 0;
while ($w = _fetch_array($r)) {
$n++;
$_SESSION['_bipotMhswID_' . $n] = $w['MhswID'];
$_SESSION['_bipotProdiID_' . $n] = $w['ProdiID'];
$_SESSION['_bipotProgramID_' . $n] = $w['ProgramID'];
$_SESSION['_bipotTahunID_' . $n] = $w['TahunID'];
}
$_SESSION['_bipotBIPOTID'] = $BIPOTID;
$_SESSION['_bipotJumlah'] = $n;
$_SESSION['_bipotProgress'] = 1;
echo Konfirmasi("Proses Isi BIPOT Mhsw", "Ada <b>{$n}</b> data mahasiswa yg akan diproses.<br />\r\n Silakan klik tombol di bawah ini untuk memulai proses.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Proses' value='Proses'\r\n onClick=\"javascript:ProsesBipotMhsw('{$ProdiID}', '{$Angkatan}')\" />\r\n <input type=button name='Batal' value='Batal'\r\n onClick=\"location='?mnux={$_SESSION['mnux']}'\" />");
echo <<<ESD
<script>
<!--
function ProsesBipotMhsw(prd, angk) {
lnk = "{$_SESSION['mnux']}.proses.php?ProdiID="+prd+"&Angkatan="+angk;
win2 = window.open(lnk, "", "width=300, height=250, scrollbars, status");
if (win2.opener == null) childWindow.opener = self;
}
//-->
</script>
ESD;
}
function Proses()
{
$jml = $_SESSION['PRC_URUTNIMS_JML'] + 0;
$prc = $_SESSION['PRC_URUTNIMS_PRC'] + 0;
if ($prc < $jml) {
// Parameter
$MhswIDLama = $_SESSION['PRC_URUTNIMS_MhswID_' . $prc];
$NIM = GetNextNIM($_SESSION['TahunID'], GetFields('mhsw', "MhswID='{$MhswIDLama}' and KodeID", KodeID, '*'));
// Proses
// PMB
$arrTablesToUpdate = array('bayarmhsw', 'bipotmhsw', 'khs', 'krs', 'pmb', 'presensimhsw', 'prosesstatusmhsw');
foreach ($arrTablesToUpdate as $table) {
$s1 = "update {$table} set MhswID = '{$NIM}' where MhswID='{$MhswIDLama}'";
$r1 = _query($s1);
}
$s1 = "update mhsw set MhswID = '{$NIM}', NIMSementara = 'N', Login = '******', MhswIDLama='{$MhswIDLama}' where MhswID='{$MhswIDLama}'";
$r1 = _query($s1);
// Tampilkan
$persen = $jml > 0 ? $prc / $jml * 100 : 0;
$sisa = $jml > 0 ? 100 - $persen : 0;
$persen = number_format($persen);
echo "<p align=center>\r\n <font size=+1>{$persen} %</font><br />\r\n <img src='../img/B1.jpg' width=1 height=20 /><img src='../img/B2.jpg' width={$persen} height=20 /><img src='../img/B3.jpg' width={$sisa} height=20 /><img src='../img/B1.jpg' width=1 height=20 /><br />\r\n Memproses: #{$prc}<br />\r\n <sup>{$MhswIDLama}</sup><br />\r\n <h1 align=center>\r\n MhswID Baru : {$NIM}\r\n </h1>\r\n </p>\r\n <hr size=1 color=silver />\r\n <p align=center>\r\n <input type=button name='Batal' value='Batalkan' onClick=\"window.close()\" />\r\n </p>";
// Next
$_SESSION['PRC_URUTNIMS_PRC']++;
// Reload
$tmr = 10;
echo <<<SCR
<script>
window.onload=setTimeout("window.location='../{$_SESSION['mnux']}.prc.php?gos=Proses'", {$tmr});
</script>
SCR;
} else {
echo Konfirmasi("Proses Selesai", "Proses telah selesai.<br />\r\n Data yang berhasil diproses: <b>{$_SESSION['PRC_URUTNIMS_PRC']}</b>.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />");
}
}
function berhasil()
{
include "atribut/header.php";
global $_ProductName, $_Version;
// Tampilkan welcome
TampilkanJudul("SISTEM INFORMASI JURUSAN PENDIDIKAN TEKNIK ELEKTRO UNIVERSITAS PENDIDIKAN INDONESIA");
echo Konfirmasi("Selamat Datang {$_SESSION['_Nama']}", "Anda Telah Login Sebagai :\n <hr size=5 color=green>\n <b><img src='{$_SESSION['_Foto']}'></b><br>\n Nama : <b>{$_SESSION['_Nama']}</b><br>\n\tID : <b>{$_SESSION['_Login']}</b><br>\n\t<hr size=5 color=green>\n Session : {$_SESSION['_Session']}\n <hr size=5 color=green>\n <a href='?slnt=loginprc&slntx=lout'><img src='img/keluar.png'></a>");
}
function CAMASav()
{
//$BIPOTID
$s = "update pmb set ProgramID='{$_REQUEST['prid']}', ProdiID='{$_REQUEST['prodi']}'\r\n where PMBID='{$_REQUEST['pmbid']}' ";
$r = _query($s);
echo Konfirmasi("Berhasil Simpan", "Perubahan telah berhasil disimpan.<hr size=1>\r\n Pilihan: <a href='cetak/pmb.pemberitahuan1.php?pmbid={$_REQUEST['pmbid']}'>Cetak Surat Pemberitahuan</a>");
DftrCAMA();
}
function CekSemesterMhsw($tahunid, $mhswid)
{
$khs = GetFields("khs k", "k.KodeID = '" . KodeID . "' and k.TahunID = '{$tahunid}' and k.MhswID", $mhswid, "k.*");
if (empty($khs)) {
echo Konfirmasi("Data Semester", "Data Tahun Akademik <b>{$tahunid}</b> untuk mahasiswa ini belum dibuat.<br />\r\n Apakah mahasiswa akan didaftarkan untuk Tahun Akademik ini?\r\n <hr size=1 color=silver />\r\n <input type=button name='BuatData' value='Daftarkan Mhsw'\r\n onClick=\"location='?mnux={$_SESSION['mnux']}&gos=DaftarkanSemesterMhsw&MhswID={$mhswid}&TahunID={$tahunid}&BypassMenu=1'\" />\r\n <input type=button name='Batalkan' value='Jangan Daftarkan'\r\n onClick=\"location='?mnux={$_SESSION['mnux']}&MhswID='\" />\r\n »\r\n <input type=button name='LihatSemester' value='Lihat Sejarah Semester Mhsw'\r\n onClick=\"javascript:InquirySemesterMhsw('{$mhswid}')\" />");
}
return $khs;
}
function PresDel($m)
{
$arrJenisPrestasi = array(-1 => "Wanprestasi", 0 => "-", 1 => "Prestasi");
$presid = $_REQUEST['presid'];
$pres = GetFields("prestasi", "PrestasiID", $presid, "*");
$jenis = $arrJenisPrestasi[$pres['JenisPrestasi']];
echo Konfirmasi("Konfirmasi Penghapusan", "Benar Anda akan menghapus <font size=+1>{$jenis}</font> berikut ini?\r\n <p><table class=box cellspacing=1>\r\n <tr><td class=inp>Judul</td><td class=ul>{$pres['Judul']}</td></tr>\r\n <tr><td class=inp>Keterangan</td><td class=ul>{$pres['Keterangan']}</td></tr>\r\n <tr><td class=ul colspan=2>\r\n <input type=button name='Hapus' value='Hapus' onClick=\"location='?mnux={$_SESSION['mnux']}&gos=PresDel1&BypassMenu=1&presid={$presid}'\">\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux={$_SESSION['mnux']}'\">\r\n </td> \r\n </table></p>");
}
function DaftarMhsw()
{
if ($_SESSION['angk'] == '' || $_SESSION['prodi'] == '') {
echo Konfirmasi("Masukkan Parameter", "Anda harus memasukkan Angkatan & Program Studi terlebih dulu.<br />\r\n Setelah itu Anda dapat mengeset Dosen Penasehatnya.\r\n <hr size=1 color=silver />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.");
} else {
TampilkanDaftarMhsw();
}
}
function DftrJadwal()
{
TampilkanHeaderPresensi();
if (empty($_SESSION['TahunID']) || empty($_SESSION['ProdiID'])) {
echo Konfirmasi("Tahun Akademik & Program Studi", "Masukkan Tahun Akademik & Program Studi terlebih dahulu untuk dapat menampilkan jadwal kuliah.");
} else {
DftrJadwal1();
}
}
function KonfirmasiProsesNIM($pmbid, $pmb)
{
$PRG = GetaField('program', "KodeID='" . KodeID . "' and ProgramID", $pmb['ProgramID'], 'Nama');
$PRD = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $pmb['ProdiID'], 'Nama');
$TahunID = substr($pmb['PMBPeriodID'], 0, 4);
$optthn = GetTahunCama($pmb);
CheckFormScript('Tahun_Akd');
echo Konfirmasi('Konfirmasi Proses NIM', "<p><table class=bsc cellspacing=1 width=100%>\r\n <tr><td class=ul1 colspan=2>\r\n Anda akan memproses NIM dari Cama.<br />\r\n Setelah memperoleh NIM, Mhsw dapat memulai aktivitas akademiknya.<br />\r\n Berikut adalah beberapa langkah yang akan dilakukan oleh Sisfo secara otomatis:\r\n </td>\r\n </tr>\r\n <tr><td class=ul1 colspan=2>\r\n <ol>\r\n <li>Sisfo akan membuatkan NIM untuk Cama.</li>\r\n <li>Data diri Cama akan disalin ke data mahasiswa.</li>\r\n <li>History bipot & pembayaran akan ditransfer ke data mahasiswa.</li>\r\n <li>Membuat data akademik semester 1.</li>\r\n </ol>\r\n </td>\r\n </tr>\r\n <form action='../{$_SESSION['mnux']}.prosesnim.php' method=POST onSubmit=\"return CheckForm(this)\">\r\n <input type=hidden name='pmbid' value='{$pmbid}' />\r\n <input type=hidden name='gos' value='ProsesNIM' />\r\n \r\n <tr><td class=inp width=110>Tahun Akademik:</td>\r\n <td class=ul1>\r\n <select name='Tahun_Akd' style='font-family:mono'>{$optthn}</select>\r\n <abbr title='Data Cama akan dimasukkan ke tahun akademik ini. Bila pilihan ini kosong, segera hubungi Kepala BAA untuk mengaktifkan tahun akademik yang benar.'>(?)</abbr>\r\n </td></tr>\r\n <tr><td class=inp>Cama:</td>\r\n <td class=ul1>{$pmb['Nama']} <sup>({$pmbid})</sup></td>\r\n </tr>\r\n <tr><td class=inp>Prg. Studi:</td>\r\n <td class=ul1>{$PRD} <sup>({$pmb['ProdiID']})</sup></td>\r\n </tr>\r\n <tr><td class=inp>Prg. Pendidikan:</td>\r\n <td class=ul1>{$PRG} <sup>({$pmb['ProgramID']})</sup>\r\n </td></tr>\r\n <tr><td class=inp>Opsi:</td>\r\n <td class=ul1>\r\n <input type=submit name='Proses' value='Proses' />\r\n <input type=button name='Batal' value='Batal' onClick=\"window.close()\" />\r\n </td></tr>\r\n </form>\r\n </table></p>");
}
function ProsesIPK()
{
$tahun = GetaField('tahun', "NA='N' and ProgramID='{$_SESSION['prid']}' and ProdiID", $_SESSION['prodi'], "TahunID");
$_SESSION['tahun'] = $tahun;
if (empty($tahun)) {
die(ErrorMsg('Tidak Dapat Diproses', "IPK/IPS tidak dapat diproses karena tidak ditemukan tahun akademik yang aktif untuk Program={$_SESSION['prid']}, Program Studi={$_SESSION['prodi']}"));
}
echo Konfirmasi("Konfirmasi Proses", "Benar Anda akan memproses IPK untuk tahun akademik:\r\n <h1>{$tahun}</h1>\r\n Proses mungkin memakan waktu yang lama.<hr>\r\n Pilihan: <input type=button name='Proses' value='ProsesIPK' onClick=\"location='?mnux=prc.ipk&gos=ProsesIPK1&tahun={$_SESSION['tahun']}&prodi={$_SESSION['prodi']}&prid={$_SESSION['prid']}'\">");
}
function frm()
{
ResetLogin();
global $arrID;
$LabelLogin = $_REQUEST['lid'] == 120 ? "N.P.M" : "Kode Login";
$institusi = GetOption2('identitas', 'Nama', 'Kode', $arrID['Kode'], '', 'Kode');
$isifrm = "<table class=bsc cellspacing=0 cellpadding=4>\r\n <form action='?' method=POST>\r\n <input type=hidden name='lid' value='{$_REQUEST['lid']}'>\r\n <input type=hidden name='slnt' value='loginprc'>\r\n <input type=hidden name='slntx' value='cek'>\r\n <input type=hidden name='mnux' value='donothing'>\r\n <input type=hidden name='nme' value='{$_REQUEST['nme']}'>\r\n \r\n <tr><td class=ul>Institusi</td><td class=ul><select name=institusi>{$institusi}</select></td></tr>\r\n <tr><td class=ul>{$LabelLogin}</td><td class=ul><input type=text name='Login' value='' size=10 maxlength=20 class=text></td></tr>\r\n <tr><td class=ul>Password</td><td class=ul><input type=password name='Password' value='' size=10 maxlength=20 class=text></td></tr>\r\n <tr><td colspan=3>\r\n <input type=submit name='Submit' value='Login'>\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux='\">\r\n </td></tr>\r\n </form></table>";
echo Konfirmasi("Login: {$_REQUEST['nme']}", $isifrm);
}
function BlokNPMRel()
{
$khsid = $_REQUEST['khsid'];
$khs = GetFields("khs k\r\n left outer join mhsw m on k.MhswID=m.MhswID", "KHSID", $khsid, "k.*, m.Nama");
if (empty($khs)) {
echo ErrorMsg("Data Tidak Ditemukan", "Data KHS dengan ID: <b>{$khsid}</b> tidak ditemukan.\r\n <hr size=1 color=silver>\r\n Pilihan: <a href='?mnux={$_SESSION['mnux']}&gos='>Kembali</a>");
} else {
echo Konfirmasi("Konfirmasi Pelepasan Block Blanko", "Benar Anda akan melepaskan pengeblokan blanko?\r\n <hr size=1 color=silver>\r\n Pilihan: <a href='?mnux={$_SESSION['mnux']}&gos=BlokNPMRel1&khsid={$khsid}&BypassMenu=1' title='Lepaskan Blok'>Lepaskan</a> |\r\n <a href='?mnux={$_SESSION['mnux']}&gos='>Kembali</a>");
}
}
function CekKSS()
{
$khs = GetFields('khs', "TahunID = {$_SESSION['tahun']} and MhswID", $_SESSION['mhswid'], '*');
$mhsw = GetFields('mhsw', "MhswID", $_SESSION['mhswid'], 'Nama');
if (strpos("ACT", $khs['StatusMhswID']) === false && $khs['KaliCetak'] <= 0) {
echo ErrorMsg('Status Mahasiswa Belum Aktif', "Mahasiswa tidak dapat mencetak KSS karena statusnya tidak aktif");
} else {
echo Konfirmasi("Cetak KSS", "Mahasiswa dengan <br />NIM : <b>{$_SESSION['mhswid']}</b><br />Nama : <b>{$mhsw['Nama']}</b><br /> Telah mencetak KSS sebanyak {$khs['KaliCetak']}.<br />\r\n\t\t\t\t\t\t\t\t\t\t<input type=button name='Cetak' value='Cetak KSS' onClick=\"location='cetak/cetak.reprintkss.go.php?khsid={$khs['KHSID']}&mhswid={$_SESSION['mhswid']}&tahun={$_SESSION['tahun']}'\">");
}
}
function MKMhswDel1($mhsw)
{
$krsid = $_REQUEST['krsid'];
if (!empty($krsid)) {
$s = "delete from krs where KRSID='{$krsid}' ";
$r = _query($s);
echo Konfirmasi("Telah Dihapus", "Data matakuliah mahasiswa telah dihapus.");
}
DftrMKMhsw($mhsw);
}
function TrxAmbil($mhsw)
{
$khsid = $_REQUEST['khsid'];
$Rep = $_REQUEST['rep'] + 0;
$w = GetFields("khs", "KHSID", $khsid, "*");
$bal = $Rep == 0 ? -$w['Biaya'] - $w['Tarik'] + $w['Potongan'] + $w['Bayar'] : $w['Tarik'];
$_bal = number_format($bal);
$tgl = GetDateOption(date('Y-m-d'), "Tanggal");
echo Konfirmasi("Transaksi Pengambilan Kelebihan Pembayaran Mhsw", "Berikut adalah data pengambilan kelebihan pembayaran mhsw:\r\n <p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><td class=inp>N P M</td><td class=ul>{$mhsw['MhswID']}</td></tr>\r\n <tr><td class=inp>Nama Mahasiswa</td><td class=ul>{$mhsw['Nama']}</td></tr>\r\n <tr><td class=inp>Semester</td><td class=ul>{$w['Sesi']}. {$w['TahunID']}</td></tr>\r\n \r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='mhswkeu.ambil'>\r\n <input type=hidden name='gos' value='TrxAmbilSav'>\r\n <input type=hidden name='mhswid' value='{$mhsw['MhswID']}'>\r\n <input type=hidden name='khsid' value='{$khsid}'>\r\n <input type=hidden name='rep' value={$Rep}>\r\n <tr><td class=inp>Tanggal Pengambilan</td><td class=ul>{$tgl}</td></tr>\r\n <tr><td class=inp>Jumlah Diambil</td><td class=ul><font size=+1>{$_bal}</td></tr>\r\n <tr><td class=inp>Keterangan</td><td class=ul><textarea name='Keterangan' cols=30 rows=3></textarea></td></tr>\r\n <tr><td 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='Batalkan Transaksi' onClick=\"location='?mnux=mhswkeu.ambil&gos=Ambilkan'\"></td></tr>\r\n </form></table>");
}
function JdwlTtp()
{
$JadwalID = $_REQUEST['JadwalID'];
$jdwl = GetFields('Jadwal', 'JadwalID', $JadwalID, '*');
$jj = GetaField('jenisjadwal', 'JenisJadwalID', $jdwl['JenisJadwalID'], 'Nama');
$hr = GetaField('hari', 'HariID', $jdwl['HariID'], 'Nama');
// Ambil nama dosen
$arrdosen = explode('.', TRIM($jdwl['DosenID'], '.'));
$strdosen = implode(',', $arrdosen);
$dosen = empty($strdosen) ? '' : GetArrayTable("select Nama from dosen where Login in ({$strdosen}) order by Nama", "Login", "Nama", ', ');
$tgl = GetDateOption(date('Y-m-d'), 'Tgl');
echo Konfirmasi('Tutup Kelas Kuliah', "<p>Benar Anda akan menutup kelas ini?</p>\r\n <p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><td class=inp>Matakuliah</td><td class=ul>{$jdwl['MKKode']} - {$jdwl['Nama']} {$jdwl['NamaKelas']}</td></tr>\r\n <tr><td class=inp>Jenis</td><td class=ul>{$jj}</td></tr>\r\n <tr><td class=inp>Hari, Jam</td><td class=ul>{$hr}, {$jdwl['JamMulai']} ~ {$jdwl['JamSelesai']}</td></tr>\r\n <tr><td class=inp>Dosen Pengampu</td><td class=ul>{$dosen}</td></tr>\r\n </table></p>\r\n <p>Jika ya, maka masukkan nomer surat penutupan dari Purek 1 di bawah ini:</p>\r\n \r\n <p><table class=box cellspacing=1 cellpadding=4>\r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='jadwal.tutup'>\r\n <input type=hidden name='JadwalID' value='{$JadwalID}'>\r\n <input type=hidden name='gos' value='JdwlTtp1'>\r\n <tr><td class=inp>Nomer Surat</td><td class=ul><input type=text name='NoSurat' size=30 maxlength=50></td></tr>\r\n <tr><td class=inp>Tanggal</td><td class=ul>{$tgl}</td></tr>\r\n <tr><td class=inp>Alasan Penutupan</td><td class=ul><textarea name='Keterangan' cols=30 rows=5></textarea></td></tr>\r\n <tr><td class=ul colspan=2><input type=button name='Batal' value='Batal Tutup' onClick=\"location='?mnux=jadwal.tutup'\">\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=submit name='Simpan' value='Tutup Kelas ini'></td></tr>\r\n </form></table></p>\r\n ");
}
function ProsesQuota($gel)
{
$prodi = $_REQUEST['prodi'];
$s = "select PMBID, NilaiSekolah from pmb where PMBPeriodID='{$gel}' and ProdiID='{$prodi}' and LulusUjian='Y' and KodeID='" . KodeID . "'";
$r = _query($s);
while ($w = _fetch_array($r)) {
$quota = GetFields('quotabeasiswa', "PMBPeriodID='{$gel}' and ProdiID='{$prodi}' and DariNilai <= {$w['NilaiSekolah']} and {$w['NilaiSekolah']} < SampaiNilai and KodeID", KodeID, 'MaxQuotaID, Diskon, DariNilai, SampaiNilai');
//echo "$quota[DariNilai] < $w[NilaiSekolah] < $quota[SampaiNilai] : $quota[Diskon]<br>";
$s1 = "update pmb set MaxQuotaID='{$quota['MaxQuotaID']}', Diskon='{$quota['Diskon']}' where PMBID='{$w['PMBID']}'";
$r1 = _query($s1);
}
echo Konfirmasi('Update Data', "Updating Data...<br />\n Please wait a second.");
echo "<script>window.location='?mnux={$_SESSION['mnux']}&gos=';</script>";
}
function berhasil()
{
global $_ProductName, $_Version, $arrID;
// Tampilkan welcome
$NamaLevel = GetaField('level', 'LevelID', $_SESSION['_LevelID'], 'Nama');
TampilkanJudul("Selamat Datang");
$pesan = "<table><tr><th colspan=3>Selamat datang di {$_ProductName}</th></tr>";
$pesan .= "<tr><td>Nama</td><td>:</td><td><b>{$_SESSION['_Nama']}</b></td>";
$pesan .= "<tr><td>Level</td><td>:</td><td><b>{$NamaLevel}</b></td>";
$pesan .= "<tr><td>Institusi</td><td>:</td><td><b>{$arrID['Nama']}</b></td>";
$pesan .= "<tr><td colspan=3>Pilihan : <a href='?slnt=loginprc&slntx=lout'>Logout</a></td></tr>";
$pesan .= "</table>";
echo Konfirmasi("Selamat Datang", $pesan);
}
function DariDeposit()
{
$DMID = $_REQUEST['DMID'];
$RekeningID = $_REQUEST['RekeningID'];
$MhswID = $_REQUEST['MhswID'];
$KRSID = $_REQUEST['KRS'];
$krs = GetFields('krs', 'KRSID', $KRSID, '*');
$dep = GetFields('depositmhsw', 'DepositMhswID', $DMID, '*');
$sisa = $dep['Jumlah'] - $dep['Dipakai'];
$biaya = $krs['Harga'] - $krs['Bayar'];
$dibayar = $sisa >= $biaya ? $biaya : $sisa;
$_dibayar = number_format($dibayar);
echo Konfirmasi("Konfirmasi Pembayaran Dari Deposit", "Anda akan membayarkan matakuliah <b>{$krs['MKKode']}</b> ini.<br />\r\n Jumlah yang akan dibayarkan: <b>{$_dibayar}</b>. <br />\r\n Ke rekening: <b>{$RekeningID}</b>.<br />\r\n <hr size=1 color=silver>\r\n Pilihan: <input type='button' name='Bayarkan' value='Bayarkan' \r\n onClick=\"location='?mnux=klinik.biyar.trx&gos=DariDeposit1&DMID={$DMID}&MhswID={$MhswID}&KRSID={$KRSID}&RekeningID={$RekeningID}'\">\r\n <input type='button' name='Batal' value='Batal' onClick=\"location='?mnux=klinik.biyar.trx'\">");
}
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);
}
function TrxSkorsing3($mhsw)
{
$Tahun1 = $_REQUEST['Tahun1'];
$Tahun2 = $_REQUEST['Tahun2'];
$Tahun3 = $_REQUEST['Tahun3'];
$Tahun4 = $_REQUEST['Tahun4'];
$NoSurat = sqling($_REQUEST['NoSurat']);
$TglSurat = $_REQUEST['TglSurat'];
$Keterangan = sqling($_REQUEST['Keterangan']);
$strs = '';
$strs .= SkorsKHS($mhsw, $Tahun1, $NoSurat, $TglSurat, $Keterangan);
$strs .= SkorsKHS($mhsw, $Tahun2, $NoSurat, $TglSurat, $Keterangan);
$strs .= SkorsKHS($mhsw, $Tahun3, $NoSurat, $TglSurat, $Keterangan);
$strs .= SkorsKHS($mhsw, $Tahun4, $NoSurat, $TglSurat, $Keterangan);
echo Konfirmasi("Proses Skorsing", "Berikut adalah proses skorsing: <ol>{$strs}</ol>\r\n <hr size=1 color=silver>\r\n <input type=button name='Kembali' value='Kembali' onClick=\"location='?mnux=skorsing'\">");
}
function DaftarSesiKeu($mhsw)
{
$s = "select k.*, sm.Nama as SM, sm.Nilai,\r\n format(k.Biaya, 0) as BIA,\r\n format(k.Bayar, 0) as BYR,\r\n format(k.Potongan, 0) as POT,\r\n format(k.Tarik, 0) as TRK,\r\n (k.Biaya-k.Bayar-k.Potongan+k.Tarik) as TOT,\r\n format(k.Biaya-k.Bayar-k.Potongan+k.Tarik, 0) as TOTS\r\n from khs k\r\n left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID\r\n where k.MhswID='{$mhsw['MhswID']}'\r\n order by k.TahunID";
$r = _query($s);
$BuatSesi = "<a href='?mnux=mhswakd&mhswid={$mhsw['MhswID']}&gos=MhswAkdEdt'>Buat Sesi</a>";
if (_num_rows($r) > 0) {
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><td class=ul colspan=8>{$BuatSesi}</td></tr>\r\n <tr><th class=ttl>Sesi</th>\r\n <th class=ttl>Tahun</th>\r\n <th class=ttl>Status</th>\r\n <th class=ttl>Biaya</th>\r\n <th class=ttl>Potongan</th>\r\n <th class=ttl>Bayar</th>\r\n <th class=ttl>Tarik</th>\r\n <th class=ttl>Total</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$optsm = GetOption2('statusmhsw', "concat(StatusMhswID, ' - ', Nama)", "StatusMhswID", $w['StatusMhswID'], '', 'StatusMhswID');
//$c = "class=ul";
$c = $w['Nilai'] == 1 ? "class=ul" : "class=nac";
echo "\r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='mhswkeu.det'>\r\n <input type=hidden name='gos' value='StatusSav'>\r\n <input type=hidden name='mhswid' value='{$mhsw['MhswID']}'>\r\n <input type=hidden name='khsid' value='{$w['KHSID']}'>\r\n <tr><td {$c}><a href='?mnux=mhswkeu.det&gos=MhswKeuSesi&mhswid={$mhsw['MhswID']}&khsid={$w['KHSID']}'><img src='img/bookN.gif'>\r\n {$w['Sesi']}</a></td>\r\n <td {$c}>{$w['TahunID']}</td>\r\n <td {$c}><select name='StatusMhswID'>{$optsm}</select> <input type=submit name='Simpan' value='Simpan'></td>\r\n <td {$c} align=right>{$w['BIA']}</td>\r\n <td {$c} align=right>{$w['POT']}</td>\r\n <td {$c} align=right>{$w['BYR']}</td>\r\n <td {$c} align=right>{$w['TRK']}</td>\r\n <td {$c} align=right>{$w['TOTS']}</td>\r\n </form>\r\n </tr>";
}
echo "</table></p>";
} else {
echo Konfirmasi("Masih Kosong", "Mahasiswa ini belum dibuatkan sesi/semester.\r\n <hr size=1 color=silver>\r\n Pilihan: {$BuatSesi} |\r\n <a href='?mnux=mhswkeu'>Kembali ke Daftar</a>");
}
}
function PindahSav($mhsw)
{
$PindahProgramID = $_REQUEST['PindahProgramID'];
$PindahProdiID = $_REQUEST['PindahProdiID'];
$Angkatan = $_REQUEST['Angkatan'];
if ($mhsw['ProgramID'] == $PindahProgramID && $mhsw['ProdiID'] == $PindahProdiID) {
echo ErrorMsg('Gagal Pindah', "Program dan Program Studi sama dengan data mahasiswa yang lama.<br />\r\n Berarti mahasiswa tidak dipindahkan.\r\n <hr size=1 color=silver>\r\n Pilihan: <a href='?mnux=mhswpindahprodi'>Batal Pindah</a>");
} else {
// Jika hanya pindah program
if ($mhsw['ProdiID'] == $PindahProdiID) {
$s = "update mhsw set ProgramID='{$PindahProgramID}'\r\n where MhswID='{$mhsw['MhswID']}' ";
$r = _query($s);
// Tampilkan pesan pemindahan program
echo Konfirmasi("Pemindahan Program Berhasil", "Pemindahan program terhadap mahasiswa <b>{$mhsw['MhswID']}</b> - <b>{$mhsw['Nama']}</b>\r\n telah berhasil dilakukan.<hr size=1 color=silver>\r\n Pilihan: <a href='?mnux=mhswakd&mhswid={$mhsw['MhswID']}&gos=MhswAkdEdt'>Data Akademik</a> |\r\n <a href='?mnux=mhswpindahprodi'>Kembali ke Pemindahan</a>");
} else {
// Tahap 1: Copy data dari mhsw lama
$MhswPindah = $mhsw;
$MhswPindah['ProdiID'] = $PindahProdiID;
$MhswPindah['ProgramID'] = $PindahProgramID;
$MhswID = GetNextNIM($Angkatan, $MhswPindah);
$StatusAwalID = $_REQUEST['StatusBaru'];
$BIPOTID = GetaField('bipot', "Def='Y' and ProgramID='{$PindahProgramID}' and ProdiID", $PindahProdiID, 'BIPOTID');
$s = "insert into mhsw (MhswID, PMBID, PMBFormJualID,\r\n BuktiSetoran, TahunID, KodeID, \r\n BIPOTID, Autodebet,\r\n Nama, Foto, StatusAwalID, StatusMhswID,\r\n ProgramID, ProdiID, PenasehatAkademik,\r\n Kelamin, WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir,\r\n Agama, StatusSipil,\r\n\r\n Alamat, Kota, RT, RW,\r\n KodePos, Propinsi, Negara,\r\n Telepon, Handphone, Email,\r\n\r\n AlamatAsal, KotaAsal, RTAsal, RWAsal,\r\n KodePosAsal, PropinsiAsal, NegaraAsal,\r\n TeleponAsal,\r\n\r\n NamaAyah, AgamaAyah,\r\n PendidikanAyah, PekerjaanAyah, HidupAyah,\r\n\r\n NamaIbu, AgamaIbu,\r\n PendidikanIbu, PekerjaanIbu, HidupIbu,\r\n\r\n AlamatOrtu, KotaOrtu, RTOrtu, RWOrtu,\r\n KodePosOrtu, PropinsiOrtu, NegaraOrtu,\r\n TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n\r\n AsalSekolah, JenisSekolahID,\r\n AlamatSekolah, KotaSekolah,\r\n JurusanSekolah, NilaiSekolah, TahunLulus,\r\n\r\n Pilihan1, Pilihan2, Pilihan3,\r\n Harga, SudahBayar, NA,\r\n\r\n TanggalUjian, LulusUjian, RuangID,\r\n NomerUjian, NilaiUjian, GradeNilai,\r\n Syarat, SyaratLengkap,\r\n BuktiSetoranMhsw, TanggalSetoranMhsw,\r\n TotalBiayaMhsw, TotalSetoranMhsw,\r\n Dispensasi, DispensasiID,\r\n JudulDispensasi, CatatanDispensasi,\r\n\r\n NamaBank, NomerRekening,\r\n LoginBuat, TanggalBuat)\r\n \r\n values ('{$MhswID}', '{$mhsw['PMBID']}', '{$mhsw['PMBFormJualID']}',\r\n '{$mhsw['BuktiSetoran']}', '{$mhsw['TahunID']}', '{$mhsw['KodeID']}',\r\n '{$BIPOTID}', '{$mhsw['Autodebet']}',\r\n '{$mhsw['Nama']}', '{$mhsw['Foto']}', '{$StatusAwalID}', '{$mhsw['StatusMhswID']}',\r\n '{$PindahProgramID}', '{$PindahProdiID}', '{$mhsw['PenasehatAkademik']}',\r\n '{$mhsw['Kelamin']}', '{$mhsw['WargaNegara']}', '{$mhsw['Kebangsaan']}',\r\n '{$mhsw['TempatLahir']}', '{$mhsw['TanggalLahir']}',\r\n '{$mhsw['Agama']}', '{$mhsw['StatusSipil']}',\r\n\r\n '{$mhsw['Alamat']}', '{$mhsw['Kota']}', '{$mhsw['RT']}', '{$mhsw['RW']}',\r\n '{$mhsw['KodePos']}', '{$mhsw['Propinsi']}', '{$mhsw['Negara']}',\r\n '{$mhsw['Telepon']}', '{$mhsw['Handphone']}', '{$mhsw['Email']}',\r\n\r\n '{$mhsw['AlamatAsal']}', '{$mhsw['KotaAsal']}', '{$mhsw['RTAsal']}', '{$mhsw['RWAsal']}',\r\n '{$mhsw['KodePosAsal']}', '{$mhsw['PropinsiAsal']}', '{$mhsw['NegaraAsal']}',\r\n '{$mhsw['TeleponAsal']}',\r\n \r\n '{$mhsw['NamaAyah']}', '{$mhsw['AgamaAyah']}',\r\n '{$mhsw['PendidikanAyah']}', '{$mhsw['PekerjaanAyah']}', '{$mhsw['HidupAyah']}',\r\n \r\n '{$mhsw['NamaIbu']}', '{$mhsw['AgamaIbu']}',\r\n '{$mhsw['PendidikanIbu']}', '{$mhsw['PekerjaanIbu']}', '{$mhsw['HidupIbu']}',\r\n \r\n '{$mhsw['AlamatOrtu']}', '{$mhsw['KotaOrtu']}', '{$mhsw['RTOrtu']}', '{$mhsw['RWOrtu']}',\r\n '{$mhsw['KodePosOrtu']}', '{$mhsw['PropinsiOrtu']}', '{$mhsw['NegaraOrtu']}',\r\n '{$mhsw['TeleponOrtu']}', '{$mhsw['HandphoneOrtu']}', '{$mhsw['EmailOrtu']}',\r\n \r\n '{$mhsw['AsalSekolah']}', '{$mhsw['JenisSekolahID']}',\r\n '{$mhsw['AlamatSekolah']}', '{$mhsw['KotaSekolah']}',\r\n '{$mhsw['JurusanSekolah']}', '{$mhsw['NilaiSekolah']}', '{$mhsw['TahunLulus']}',\r\n \r\n '{$mhsw['Pilihan1']}', '{$mhsw['Pilihan2']}', '{$mhsw['Pilihan3']}',\r\n '{$mhsw['Harga']}', '{$mhsw['SudahBayar']}', '{$mhsw['NA']}',\r\n '{$mhsw['TanggalUjian']}', '{$mhsw['LulusUjian']}', '{$mhsw['RuangID']}',\r\n '{$mhsw['NomerUjian']}', '{$mhsw['NilaiUjian']}', '{$mhsw['GradeNilai']}',\r\n '{$mhsw['Syarat']}', '{$mhsw['SyaratLengkap']}',\r\n '{$mhsw['BuktiSetoranMhsw']}', '{$mhsw['TanggalSetoranMhsw']}',\r\n '{$mhsw['TotalBiayaMhsw']}', '{$mhsw['TotalSetoranMhsw']}',\r\n '{$mhsw['Dispensasi']}', '{$mhsw['DispensasiID']}',\r\n '{$mhsw['JudulDispensasi']}', '{$mhsw['CatatanDispensasi']}',\r\n \r\n '{$mhsw['NamaBank']}', '{$mhsw['NomerRekening']}',\r\n '{$_SESSION['_Login']}', now()\r\n )";
$r = _query($s);
// Tahap 2: Set Status Lama menjadi Pindah
$StatusMhswID = $_REQUEST['StatusLama'];
$s2 = "update mhsw set StatusMhswID='{$StatusMhswID}', NA='N'\r\n where MhswID='{$mhsw['MhswID']}' ";
$r2 = _query($s2);
//Tahap 3: Buat KHS Mahasiswa
$MaxSKS = GetaField("prodi", "ProdiID", $PindahProdiID, "TotalSKS") + 0;
$sp = "insert into khs (TahunID, KodeID, ProgramID, ProdiID,\r\n MhswID, StatusMhswID, Sesi, MaxSKS,\r\n LoginBuat, TanggalBuat)\r\n values ('{$_SESSION['tahun']}', '{$_SESSION['KodeID']}', '{$PindahProgramID}', '{$PindahProdiID}',\r\n '{$MhswID}', 'P', '1', '{$MaxSKS}',\r\n '{$_SESSION['_Login']}', now() )";
$rsp = _query($sp);
// Tahap 4 Copy Hutang Prodi Lama ke Keuangan Prodi Baru
$Jumlah = GetBipot($mhsw['MhswID'], $_SESSION['tahun']) + 0;
if ($Jumlah > 0) {
$in = "insert into bipotmhsw (MhswID, TahunID, Jumlah, Besar, TrxID, BipotNamaID, Catatan, TanggalBuat, LoginBuat)\r\n values ('{$MhswID}', '{$_SESSION['tahun']}', 1, '{$Jumlah}', 1, '30', 'Hutang Pindah Prodi', NOW(), '{$_SESSION['_Login']}')";
$rin = _query($in);
}
// Tampilkan pesan
echo Konfirmasi("Proses Pemindahan Berhasil", "Mahasiswa telah dipindahkan ke Program/Program Studi baru dengan NPM\r\n baru, yaitu: <b>{$MhswID}</b>.\r\n <hr size=1 color=silver>\r\n Pilihan: <a href='?mnux=mhswakd&mhswid={$MhswID}&gos=MhswAkdEdt'>Data Akademik</a> |\r\n <a href='?mnux=mhswpindahprodi'>Kembali ke Pemindahan</a>");
}
}
}
function Keluarkan($m)
{
$mhswid = $_REQUEST['mhswid'];
$Tahunnya = $_REQUEST['Tahunnya'];
$StatusMhswID = $_REQUEST['StatusMhswID'];
$SKKeluar = sqling($_REQUEST['SKKeluar']);
$TglSKKeluar = "{$_REQUEST['TglSKKeluar_y']}-{$_REQUEST['TglSKKeluar_m']}-{$_REQUEST['TglSKKeluar_d']}";
$CatatanKeluar = sqling($_REQUEST['CatatanKeluar']);
// update mhsw
$s = "update mhsw set StatusMhswID='{$StatusMhswID}', SKKeluar='{$SKKeluar}', TglSKKeluar='{$TglSKKeluar}',\r\n CatatanKeluar='{$CatatanKeluar}'\r\n where MhswID='{$mhswid}'";
$r = _query($s);
$s0 = "update pmb set StatusMundur='Y' where NIM = '{$mhswid}'";
$r0 = _query($s0);
// update khs-nya
$s1 = "update khs set StatusMhswID='{$StatusMhswID}' where TahunID='{$Tahunnya}' and MhswID='{$mhswid}' ";
$r1 = _query($s1);
$sta = GetaField("statusmhsw", "StatusMhswID", $StatusMhswID, "Nama");
echo Konfirmasi("Mahasiswa Sudah {$sta}", "Mahasiswa <b>{$m['Nama']}</b> ({$mhswid}) sudah diset statusnya menjadi: <b>{$sta}</b>.<br />\r\n Status ini sudah tidak dapat diubah lagi dan mhsw sudah tidak dapat mengikuti kegiatan akademik lagi.\r\n <hr size=1>\r\n Pilihan: <a href='?mnux=mhsw.keluar'>Kembali ke Daftar</a>");
}
function UbahFrmSav()
{
$pmbformuliridasli = $_REQUEST['pmbformuliridasli'];
$PMBID = $_REQUEST['pmbid'];
$PMBFormulirID = $_REQUEST['PMBFormulirID'];
// Jika PMBFormulirID tidak diset
if (empty($PMBFormulirID)) {
echo ErrorMsg("Gagal Simpan", "Anda harus menentukan jenis formulir pengganti.<br />\r\n Formulir pengganti tidak boleh kosong.");
UbahFrm();
} else {
if ($pmbformuliridasli == $PMBFormulirID) {
echo ErrorMsg("Tidak Disimpan", "Formulir pengganti sama dengan formulir sebelumnya.<br />\r\n Karena tidak ada perubahan, maka data tidak disimpan.");
TampilkanDaftarCAMA();
} else {
$s = "update pmb\r\n set PMBFormulirID='{$PMBFormulirID}', ProdiID='',\r\n Pilihan1='', Pilihan2='', Pilihan3=''\r\n where PMBID='{$PMBID}' ";
$r = _query($s);
echo Konfirmasi("Perubahan Telah Disimpan", "Formulir baru sudah menggantikan formulir lama untuk pendaftar dengan No PMB: <b>{$PMBID}</b>.<br />\r\n Anda harus segera mengubah Program Studi pilihan pendaftar karena telah direset oleh sistem.\r\n <hr size=1 color=silver />\r\n Pilihan: <a href='?mnux=pmbform&gos=PMBEdt0&md=0&pmbid={$PMBID}&pmbfid={$PMBFormulirID}'>Edit Data PMB</a> |\r\n <a href='?mnux=pmbform.ubah'>Kembali ke Ubah Formulir</a>");
}
}
}
function ResetPwdDsn()
{
$dsn = GetFields('dosen', 'Login', $_REQUEST['DosenID'], '*');
if (!empty($dsn)) {
if (!empty($_REQUEST['PWD1'])) {
if ($_REQUEST['PWD1'] != $_REQUEST['PWD2']) {
echo ErrorMsg("Gagal Reset Password", "Password dengan konfirmasi password tidak sama. Masukkan password baru 2 kali!");
} else {
$s = "update dosen set Password=PASSWORD('{$_REQUEST['PWD1']}') where Login='******'Login']}'";
$r = _query($s);
echo Konfirmasi("Password telah direset", "Password untuk Dosen \n <font size=+2>{$dsn['Nama']}</font> ({$dsn['Login']})</font> telah direset.");
}
} else {
echo ErrorMsg("Gagal Reset Password", "Anda harus memasukkan password baru. Password baru tidak boleh blank.<br />\n Password Baru harus dimasukkan 2 kali.");
}
} else {
echo ErrorMsg("Gagal", "Gagal reset. Dosen tidak ditemukan.");
}
TampilkanFormHeaderResetPasswordDosen();
}
