function Gagalkan($jdwl)
{
$jadwalid = $_REQUEST['id'];
$NilaiGagal = $_REQUEST['NilaiGagal'];
if (empty($NilaiGagal)) {
echo ErrorMsg("Nilai Belum Diset", "Anda harus mengeset nilai gagal penilaian dosen untuk matakuliah ini.<br>\r\n Proses Gagal Nilai Dosen tidak dilakukan.");
} else {
// Gagalkan jadwal
$Nilai = GetFields('nilai', 'NilaiID', $NilaiGagal, '*');
$BobotNilai = $Nilai['Bobot'];
$GradeNilai = $Nilai['Nama'];
$CatatanGagal = sqling($_REQUEST['CatatanGagal']);
$s = "update jadwal set Gagal='Y', Final = 'Y', \r\n CatatanGagal = '{$CatatanGagal}', NilaiGagal = '{$GradeNilai}'\r\n where JadwalID = '{$jadwalid}' ";
$r = _query($s);
// Set semua nilai mahasiswa
$s1 = "update krs set GradeNilai='{$GradeNilai}', BobotNilai={$BobotNilai}, Final='Y'\r\n where JadwalID='{$jadwalid}' and NA = 'N' ";
$r1 = _query($s1);
// finalisasi jadwal uts
$s = "update jadwaluts set Final = 'Y'\r\n\twhere JadwalID = {$id}";
$r = _query($s);
$s = "update jadwaluas set Final = 'Y'\r\n\twhere JadwalID = {$id}";
$r = _query($s);
// finalisasi jadwal responsi/lab/tutorial tambahan
$s = "select JadwalID from jadwal where JadwalRefID = '{$id}' and KodeID='" . KodeID . "'";
$r = _query($s);
while ($w = _fetch_array($r)) {
$s1 = "update jadwal set Final = 'Y', Gagal = 'N',\r\n\t\t\tTglEdit=now(), LoginEdit = '{$_SESSION['_Login']}'\r\n\t\t\twhere JadwalID='{$w['JadwalID']}'";
$r1 = _query($s1);
$s1 = "update krs\r\n\t\tset Final = 'Y',\r\n\t\t\tTanggalEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\r\n\t\twhere JadwalID = '{$w['JadwalID']}'";
$r1 = _query($s1);
}
// Kembali
TutupScript($jadwalid);
}
}
function Gagalkan($jdwl)
{
$id = $_REQUEST['id'];
$NilaiGagal = $_REQUEST['NilaiGagal'];
if (empty($NilaiGagal)) {
echo ErrorMsg("Nilai Belum Diset", "Anda harus mengeset nilai gagal penilaian dosen untuk matakuliah ini.<br>\r\n Proses Gagal Nilai Dosen tidak dilakukan.");
} else {
// Gagalkan jadwal
$Nilai = GetFields('nilai', 'NilaiID', $NilaiGagal, '*');
$BobotNilai = $Nilai['Bobot'];
$GradeNilai = $Nilai['Nama'];
$CatatanGagal = sqling($_REQUEST['CatatanGagal']);
$s = "update jadwalremedial set Gagal='Y', Final = 'Y', \r\n CatatanGagal = '{$CatatanGagal}', NilaiGagal = '{$GradeNilai}'\r\n where JadwalID = '{$id}' ";
$r = _query($s);
// Set semua nilai mahasiswa
$s1 = "update krsremedial set GradeNilai='{$GradeNilai}', BobotNilai={$BobotNilai}, Final='Y'\r\n where JadwalRemedialID='{$id}' and NA = 'N' ";
$r1 = _query($s1);
// Anggap Remedial sudah beres dan bisa di-remedialkan lagi bila diperlukan lagi nanti
$s = "select KRSID from krsremedial where JadwalRemedialID='{$JadwalRemedialID}' and KodeID='" . KodeID . "'";
$r = _query($s);
while ($w = _fetch_array($r)) {
$s1 = "update krs set SedangRemedial = 'N' where KRSID='{$w['KRSID']}' and KodeID='" . KodeIID . "'";
$r1 = _query($s1);
}
// Kembali
TutupScript($id);
}
}
function SekSav()
{
$md = $_REQUEST['md'] + 0;
$SekolahID = $_REQUEST['SekolahID'];
$Nama = sqling($_REQUEST['Nama']);
$JenisSekolahID = $_REQUEST['JenisSekolahID'];
$Alamat1 = sqling($_REQUEST['Alamat1']);
$Alamat2 = sqling($_REQUEST['Alamat2']);
$Kota = sqling($_REQUEST['Kota']);
$KodePos = $_REQUEST['KodePos'];
$Telephone = sqling($_REQUEST['Telephone']);
$Fax = sqling($_REQUEST['Fax']);
$Website = sqling($_REQUEST['Website']);
$Email = sqling($_REQUEST['Email']);
$Kontak = sqling($_REQUEST['Kontak']);
$JabatanKontak = sqling($_REQUEST['JabatanKontak']);
$HandphoneKontak = sqling($_REQUEST['HandphoneKontak']);
$EmailKontak = sqling($_REQUEST['EmailKontak']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update asalsekolah set Nama='{$Nama}', Alamat1='{$Alamat1}', Alamat2='{$Alamat2}',\r\n JenisSekolahID='{$JenisSekolahID}', Kota='{$Kota}', KodePos='{$KodePos}', NA='{$NA}',\r\n Website='{$Website}', Email='{$Email}', Telephone='{$Telephone}', Fax='{$Fax}',\r\n Kontak='{$Kontak}', JabatanKontak='{$JabatanKontak}',\r\n HandphoneKontak='{$HandphoneKontak}', EmailKontak='{$EmailKontak}'\r\n where SekolahID='{$SekolahID}'";
$r = _query($s);
} else {
$ada = GetFields('asalsekolah', 'SekolahID', $SekolahID, '*');
if (!empty($ada)) {
echo ErrorMsg("Data tidak dapat disimpan", "Data tidak dapat disimpan karena kode sekolah <b>{$SekolahID}</b> telah digunakan oleh\r\n sekolah <b>{$ada['Nama']}</b>.<br>\r\n Gunakan kode sekolah yg lain.");
} else {
$s = "insert into asalsekolah (SekolahID, Nama, JenisSekolahID, Alamat1, Alamat2, Kota, KodePos, NA,\r\n Telephone, Fax, Website, Email, \r\n Kontak, JabatanKontak, HandphoneKontak, EmailKontak)\r\n values('{$SekolahID}', '{$Nama}', '{$JenisSekolahID}', '{$Alamat1}', '{$Alamat2}', '{$Kota}', '{$KodePos}', '{$NA}',\r\n '{$Telephone}', '{$Fax}', '{$Website}', '{$Email}',\r\n '{$Kontak}', '{$JabatanKontak}', '{$HandphoneKontak}', '{$EmailKontak}')";
$r = _query($s);
}
}
TutupScript();
}
function ProsesNIM($pmbid, $pmb)
{
$StatusMhswID = 'A';
// Default
$Tahun_Akd = $_REQUEST['Tahun_Akd'];
// 1. Buat NIM Mhsw & Hitung Batas studi
$NIM = GetaField('prodi', 'ProdiID', $pmb['ProdiID'], 'GunakanNIMSementara') == 'Y' ? GetNextNIMSementara($Tahun_Akd, $pmb) : GetNextNIM($Tahun_Akd, $pmb);
$NIMSementara = GetaField('prodi', 'ProdiID', $pmb['ProdiID'], 'GunakanNIMSementara');
$Batas = HitungBatasStudi($Tahun_Akd, $pmb['ProdiID']);
//die($Batas);
// 2. Copy data PMB ke Mhsw
$s = "insert into mhsw\r\n (MhswID, Login, LevelID, KodeID, Password,\r\n NIMSementara, PMBID, PSSBID, TahunID, BIPOTID,\r\n Nama, StatusAwalID, StatusMhswID,\r\n ProgramID, ProdiID, Kelamin, WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir,\r\n Agama, StatusSipil,\r\n TinggiBadan, BeratBadan,\r\n Alamat, Kota, RT, RW, KodePos, Propinsi, Negara,\r\n Telepon, Handphone, Email,\r\n AlamatAsal, KotaAsal, RTAsal, RWAsal, KodePosAsal, PropinsiAsal, NegaraAsal,\r\n TeleponAsal,\r\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah,\r\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu,\r\n AlamatOrtu, KotaOrtu, RTOrtu, RWOrtu, KodePosOrtu, PropinsiOrtu, NegaraOrtu,\r\n TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n PendidikanTerakhir, AsalSekolah, JenisSekolahID, AlamatSekolah, KotaSekolah, \r\n JurusanSekolah, NilaiSekolah, TahunLulus, IjazahSekolah,\r\n AsalPT, MhswIDAsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT,\r\n IPKAsalPT, Pilihan1, Pilihan2, Pilihan3, PrestasiTambahan,\r\n BatasStudi, LulusUjian, NilaiUjian, GradeNilai, Syarat, SyaratLengkap,\r\n TotalBiaya, TotalBayar, LoginBuat, TanggalBuat)\r\n values\r\n ('{$NIM}', '{$NIM}', '120', '" . KodeID . "', PASSWORD('{$pmb['TanggalLahir']}'),\r\n\t'{$NIMSementara}', '{$pmb['PMBID']}', '{$pmb['PSSBID']}', '{$Tahun_Akd}', '{$pmb['BIPOTID']}',\r\n '{$pmb['Nama']}', '{$pmb['StatusAwalID']}', '{$StatusMhswID}',\r\n '{$pmb['ProgramID']}', '{$pmb['ProdiID']}', '{$pmb['Kelamin']}', '{$pmb['WargaNegara']}', '{$pmb['Kebangsaan']}',\r\n '{$pmb['TempatLahir']}', '{$pmb['TanggalLahir']}',\r\n '{$pmb['Agama']}', '{$pmb['StatusSipil']}',\r\n '{$pmb['TinggiBadan']}', '{$pmb['BeratBadan']}',\r\n '{$pmb['Alamat']}', '{$pmb['Kota']}', '{$pmb['RT']}', '{$pmb['RW']}', '{$pmb['KodePos']}', '{$pmb['Propinsi']}', '{$pmb['Negara']}',\r\n '{$pmb['Telepon']}', '{$pmb['Handphone']}', '{$pmb['Email']}',\r\n '{$pmb['AlamatAsal']}', '{$pmb['KotaAsal']}', '{$pmb['RTAsal']}', '{$pmb['RWAsal']}', '{$pmb['KodePosAsal']}', '{$pmb['PropinsiAsal']}', '{$pmb['NegaraAsal']}',\r\n '{$pmb['TeleponAsal']}',\r\n '{$pmb['NamaAyah']}', '{$pmb['AgamaAyah']}', '{$pmb['PendidikanAyah']}', '{$pmb['PekerjaanAyah']}', '{$pmb['HidupAyah']}',\r\n '{$pmb['NamaIbu']}', '{$pmb['AgamaIbu']}', '{$pmb['PendidikanIbu']}', '{$pmb['PekerjaanIbu']}', '{$pmb['HidupIbu']}',\r\n '{$pmb['AlamatOrtu']}', '{$pmb['KotaOrtu']}', '{$pmb['RTOrtu']}', '{$pmb['RWOrtu']}', '{$pmb['KodePosOrtu']}', '{$pmb['PropinsiOrtu']}', '{$pmb['NegaraOrtu']}',\r\n '{$pmb['TeleponOrtu']}', '{$pmb['HandphoneOrtu']}', '{$pmb['EmailOrtu']}',\r\n '{$pmb['PendidikanTerakhir']}', '{$pmb['AsalSekolah']}', '{$pmb['JenisSekolahID']}', '{$pmb['AlamatSekolah']}', '{$pmb['KotaSekolah']}',\r\n '{$pmb['JurusanSekolah']}', '{$pmb['NilaiSekolah']}', '{$pmb['TahunLulus']}', '{$pmb['IjazahSekolah']}',\r\n '{$pmb['AsalPT']}', '{$pmb['MhswIDAsalSekolah']}', '{$pmb['ProdiAsalPT']}', '{$pmb['LulusAsalPT']}', '{$pmb['TglLulusAsalPT']}',\r\n '{$pmb['IPKAsalPT']}', '{$pmb['Pilihan1']}', '{$pmb['Pilihan2']}', '{$pmb['Pilihan3']}', '{$pmb['PrestasiTambahan']}',\r\n '{$Batas}', '{$pmb['LulusUjian']}', '{$pmb['NilaiSekolah']}', '{$pmb['GradeNilai']}', '{$pmb['Syarat']}', '{$pmb['SyaratLengkap']}',\r\n '{$pmb['TotalBiaya']}', '{$pmb['TotalBayar']}', '{$_SESSION['_Login']}', now())";
// Nilai Ujian untuk Kasih Bangsa adalah Nilai Sekolah. Ralat baris kedua di atas ini untuk mengubah ke default
$r = _query($s);
// Set NIM di data PMB
$s = "update pmb set MhswID = '{$NIM}'\r\n where KodeID='" . KodeID . "' and PMBID = '{$pmbid}' ";
$r = _query($s);
// Set Status Aplikan dari murid PMB menjadi REG
include_once "../pmb/statusaplikan.lib.php";
SetStatusAplikan('REG', GetaField('pmb', "PMBID='{$pmbid}' and KodeID", KodeID, "AplikanID"), GetaField('pmbperiod', "KodeID='" . KodeID . "' and NA", 'N', "PMBPeriodID"));
// Transfer BIPOTMhsw ke Mhsw
$s = "update bipotmhsw\r\n set MhswID = '{$NIM}',\r\n PMBMhswID = 1,\r\n TahunID = '{$Tahun_Akd}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where PMBID = '{$pmbid}'\r\n and PMBMhswID = 0\r\n and KodeID = '" . KodeID . "' ";
$r = _query($s);
// Transfer Pembayaran ke Mhsw
$s = "update bayarmhsw\r\n set MhswID = '{$NIM}',\r\n PMBMhswID = 1,\r\n TahunID = '{$Tahun_Akd}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where PMBID = '{$pmbid}'\r\n and PMBMhswID = 0\r\n and KodeID = '" . KodeID . "' ";
$r = _query($s);
// Otomatis Registrasi di Semester
$MaxSKS = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $pmb['ProdiID'], 'DefSKS') + 0;
$s = "insert into khs\r\n (KodeID, TahunID, ProgramID, ProdiID,\r\n MhswID, StatusMhswID, Sesi, BIPOTID,\r\n Biaya, Bayar, MaxSKS,\r\n Keterangan, LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$Tahun_Akd}', '{$pmb['ProgramID']}', '{$pmb['ProdiID']}',\r\n '{$NIM}', '{$StatusMhswID}', 1, '{$pmb['BIPOTID']}',\r\n '{$pmb['TotalBiaya']}', '{$pmb['TotalBayar']}', {$MaxSKS},\r\n 'Auto-registrasi', '{$_SESSION['_Login']}', now())";
$r = _query($s);
// Tutup aplikasi
TutupScript();
}
function Finalisasi($jdwl)
{
$id = $_REQUEST['id'];
// finalisasi jadwal
$s = "update jadwal \n set Final = 'Y', Gagal = 'N',\n TglEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n where JadwalID = {$id}";
$r = _query($s);
// finalisasi krs
$s = "update krs\n set Final = 'Y',\n TanggalEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n where JadwalID = {$id}";
$r = _query($s);
// finalisasi jadwal uts
$s = "update jadwaluts set Final = 'Y'\n\twhere JadwalID = {$id}";
$r = _query($s);
$s = "update jadwaluas set Final = 'Y'\n\twhere JadwalID = {$id}";
$r = _query($s);
// finalisasi jadwal responsi/lab/tutorial tambahan
$s = "select JadwalID from jadwal where JadwalRefID = '{$id}' and KodeID='" . KodeID . "'";
$r = _query($s);
while ($w = _fetch_array($r)) {
$s1 = "update jadwal set Final = 'Y', Gagal = 'N',\n\t\t\tTglEdit=now(), LoginEdit = '{$_SESSION['_Login']}'\n\t\t\twhere JadwalID='{$w['JadwalID']}'";
$r1 = _query($s1);
$s1 = "update krs\n set Final = 'Y',\n TanggalEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n where JadwalID = '{$w['JadwalID']}'";
$r1 = _query($s1);
}
// Kembali
TutupScript($id);
}
function Simpan($md, $id, $bck)
{
TutupScript();
$Nama = sqling($_REQUEST['Nama']);
$p = array();
$p = $_REQUEST['ProdiID'];
if (!empty($p)) {
$ProdiID = implode('.', $p);
$ProdiID = empty($ProdiID) ? '' : '.' . $ProdiID . '.';
} else {
$ProdiID = '';
}
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($md == 0) {
$s = "update pmbsyarat\n set Nama = '{$Nama}',\n ProdiID = '{$ProdiID}',\n Keterangan = '{$Keterangan}',\n NA = '{$NA}',\n LoginEdit = '{$_SESSION['_Login']}',\n TanggalEdit = now()\n where KodeID = '" . KodeID . "' and PMBSyaratID = '{$id}' ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} elseif ($md == 1) {
// Cek ID-nya dulu
$ada = GetFields('pmbsyarat', "KodeID='" . KodeID . "' and PMBSyaratID", $id, '*');
if (!empty($ada)) {
die(ErrorMsg('Error', "Syarat dengan kode <b>{$id}</b> sudah ada.<br />\n Gunakan kode yang lain.\n <hr size=1 color=silver />\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
$s = "insert into pmbsyarat\n (PMBSyaratID, KodeID, Nama, ProdiID,\n Keterangan, LoginBuat, TanggalBuat, NA)\n values\n ('{$id}', '" . KodeID . "', '{$Nama}', '{$ProdiID}',\n '{$Keterangan}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function ReverseStatus()
{
TutupScript();
$AplikanID = $_REQUEST['id'];
$StatusMundur = GetaField('aplikan', 'AplikanID', $AplikanID, "StatusMundur");
if ($StatusMundur == 'Y') {
$s = "update `aplikan` set StatusMundur = 'N',\r\n\t\t\t\t\t\t\t\t\t\tLoginMundur = '{$_SESSION['_Login']}',\r\n\t\t\t\t\t\t\t\t\t\tTanggalMundur = now()\r\n\t\t\t\t\t\t\t\t\twhere AplikanID='{$AplikanID}'";
$r = _query($s);
/*$StatusAplikanMhswUpdate = GetaField('statusaplikanmhsw sam left outer join statusaplikan sa',
"sa.Urutan=(select max(Urutan) from statusaplikanmhsw sam2 where sam2.AplikanID='$AplikanID') and sam.AplikanID='$AplikanID' and sam.KodeID",
KodeID,
'StatusAplikanMhswID');
$s = "update statusaplikanmhsw setStatusMundur='N' where StatusAplikanMhswID='$StatusAplikanMhswUpdate'";
*/
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
if ($StatusMundur == 'N') {
$s = "update `aplikan` set StatusMundur = 'Y' where AplikanID='{$AplikanID}'";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
echo ErrorMessage("Error", "Status Mundur tidka dikenali. Harap hubungi administrator");
}
}
}
function Simpan()
{
$md = $_REQUEST['md'] + 0;
$id = sqling($_REQUEST['id']);
$Nama = sqling($_REQUEST['Nama']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
// Simpan
if ($md == 0) {
$s = "update wisudaprasyarat\r\n set Nama = '{$Nama}',\r\n NA = '{$NA}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TglEdit = now()\r\n where PrasyaratID = '{$id}' and KodeID = '" . KodeID . "' limit 1";
$r = _query($s);
//die($s);
TutupScript();
} elseif ($md == 1) {
$ada = GetFields('wisudaprasyarat', "KodeID='" . KodeID . "' and PrasyaratID", $id, '*');
if (empty($ada)) {
$s = "insert into wisudaprasyarat\r\n (PrasyaratID, KodeID, Nama, LoginBuat, TglBuat, NA)\r\n values\r\n (upper('{$id}'), '" . KodeID . "', '{$Nama}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
TutupScript();
} else {
die(ErrorMsg('Error', "Kode <b>{$id}</b> sudah dipakai.<br />\r\n Gunakan kode prasyarat yang lain!\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup' onClick='window.close()' />"));
}
} else {
die(ErrorMsg('Error', "Mode edit <b>{$md}</b> tidak dikenali.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup' onClick='window.close()' />"));
}
}
function Simpan($md, $id, $max)
{
TutupScript();
$gel = $_REQUEST['gel'];
$prodi = $_REQUEST['prodi'];
$DariNilai = $_REQUEST['DariNilai'] + 0;
$Diskon = $_REQUEST['Diskon'] + 0;
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($md == 0) {
$DariNilaiLama = GetaField('quotabeasiswa', "KodeID = '" . KodeID . "' and MaxQuotaID", $id, 'DariNilai');
$cari = GetaField('quotabeasiswa', "PMBPeriodID='{$gel}' and ProdiID='{$prodi}' and SampaiNilai='{$DariNilaiLama}' and KodeID", KodeID, 'MaxQuotaID');
if (!empty($cari)) {
$s = "update quotabeasiswa set SampaiNilai='{$DariNilai}' where MaxQuotaID='{$cari}'";
$r = _query($s);
}
$s = "update quotabeasiswa\n set DariNilai = '{$DariNilai}',\r\n\t\t Diskon = '{$Diskon}',\n Keterangan = '{$Keterangan}',\n NA = '{$NA}',\n LoginEdit = '{$_SESSION['_Login']}',\n TanggalEdit = now()\n where KodeID = '" . KodeID . "' and MaxQuotaID = {$id} ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} elseif ($md == 1) {
$cari = GetaField('quotabeasiswa', "PMBPeriodID='{$gel}' and ProdiID='{$prodi}' and SampaiNilai='{$max}' and KodeID", KodeID, 'MaxQuotaID');
if (!empty($cari)) {
$s = "update quotabeasiswa set SampaiNilai='{$DariNilai}' where MaxQuotaID='{$cari}'";
$r = _query($s);
}
$s = "insert into quotabeasiswa\n (PMBPeriodID, ProdiID, KodeID, DariNilai, SampaiNilai, Diskon,\n Keterangan, LoginBuat, TanggalBuat, NA)\n values\n ('{$gel}', '{$prodi}', '" . KodeID . "', '{$DariNilai}', '{$max}', '{$Diskon}',\n '{$Keterangan}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function Simpan($md, $id, $bck)
{
TutupScript();
$idlama = $_REQUEST['idlama'];
$Nama = sqling($_REQUEST['Nama']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($id != $idlama) {
$ada = GetFields('presenter', "KodeID='" . KodeID . "' and PresenterID", $id, '*');
if (!empty($ada)) {
die(ErrorMsg('Error', "<br />Presenter dengan kode <b>{$id}</b> sudah ada.<br />\r\n Gunakan kode yang lain.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
}
if ($md == 0) {
$s = "update presenter\r\n set Nama = '{$Nama}',\r\n PresenterID = '{$id}',\r\n NA = '{$NA}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where KodeID = '" . KodeID . "' and PresenterID = '{$idlama}' ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} elseif ($md == 1) {
// Cek ID-nya dulu
$s = "insert into presenter\r\n (PresenterID, KodeID, Nama, LoginBuat, TanggalBuat, NA)\r\n values\r\n ('{$id}', '" . KodeID . "', '{$Nama}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function Simpan($bayarid, $md)
{
$Tanggal = "{$_REQUEST['Tanggal_y']}-{$_REQUEST['Tanggal_m']}-{$_REQUEST['Tanggal_d']}";
$Keterangan = $_REQUEST['Keterangan'];
$s = "update bayarmhsw set Tanggal = '{$Tanggal}', Keterangan='{$Keterangan}' where BayarMhswID = '{$bayarid}'";
$r = _query($s);
TutupScript();
}
function Simpan()
{
$MhswID = sqling($_REQUEST['MhswID']);
$BIPOTID = $_REQUEST['BIPOTID'];
// Simpan
$s = "update mhsw\r\n set BIPOTID = '{$BIPOTID}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where KodeID = '" . KodeID . "' and MhswID = '{$MhswID}' ";
$r = _query($s);
TutupScript($MhswID);
}
function Simpan()
{
$KHSID = $_REQUEST['KHSID'];
$StatusMhswID = sqling($_REQUEST['StatusMhswID']);
// Simpan
$s = "update khs set StatusMhswID = '{$StatusMhswID}'\n where KHSID = '{$KHSID}' ";
$r = _query($s);
// Tutup
TutupScript();
}
function Simpan()
{
$ProdiID = sqling($_REQUEST['ProdiID']);
$TahunID = sqling($_REQUEST['TahunID']);
// Ambil data dari sumber tahun akademik
$data = GetFields('tahun', "TahunID='{$TahunID}' and ProgramID='{$_SESSION['prid']}' and ProdiID", $ProdiID, '*');
if ($data['NA'] == 'N') {
// Set all NA to Y
$s = "update tahun set NA='Y' where ProgramID='{$_SESSION['prid']}' and ProdiID='{$_SESSION['prodi']}'";
$r = _query($s);
} else {
}
$s = "insert into tahun\r\n\t(TahunID, KodeID, ProdiID, ProgramID, Nama, SP,\r\n\tTglKuliahMulai, TglKuliahSelesai,\r\n\tTglKRSMulai, TglKRSSelesai,\r\n\tTglKRSOnlineMulai, TglKRSOnlineSelesai,\r\n\tTglBayarMulai, TglBayarSelesai,\r\n\tTglAutodebetSelesai, TglAutodebetSelesai2,\r\n\tTglKembaliUangKuliah, \r\n\tTglUbahKRSMulai, TglUbahKRSSelesai,\r\n\tTglCetakKSS1, TglCetakKSS2, \r\n\tTglUTSMulai, TglUTSSelesai,\t\r\n\tTglUASMulai, TglUASSelesai,\t\r\n\tTglCuti, TglMundur, TglNilai, TglAkhirKSS, HanyaAngkatan, \r\n\tProsesBuka, ProsesIPK, ProsesTutup, Catatan,\r\n\tLoginBuat, TglBuat, NA)\r\n\tvalues ('{$data['TahunID']}', '" . KodeID . "', '{$_SESSION['prodi']}', '{$_SESSION['prid']}', '{$data['Nama']}', '{$data['SP']}',\r\n\t'{$data['TglKuliahMulai']}', '{$data['TglKuliahSelesai']}',\r\n\t'{$data['TglKRSMulai']}', '{$data['TglKRSSelesai']}',\r\n\t'{$data['TglKRSOnlineMulai']}', '{$data['TglKRSOnlineSelesai']}',\r\n\t'{$data['TglBayarMulai']}', '{$data['TglBayarSelesai']}',\r\n\t'{$data['TglAutodebetSelesai']}', '{$data['TglAutodebetSelesai2']}',\r\n\t'{$data['TglKembaliUangKuliah']}',\r\n\t'{$data['TglUbahKRSMulai']}', '{$data['TglUbahKRSSelesai']}',\r\n\t'{$data['TglCetakKSS1']}', '{$data['TglCetakKSS2']}',\r\n\t'{$data['TglUTSMulai']}', '{$data['TglUTSSelesai']}',\t\r\n\t'{$data['TglUASMulai']}', '{$data['TglUASSelesai']}',\t\r\n\t'{$data['TglCuti']}', '{$data['TglMundur']}', '{$data['TglNilai']}', '{$data['TglAkhirKSS']}', '{$data['HanyaAngkatan']}', \r\n\t'{$data['ProsesBuka']}', '{$data['ProsesIPK']}', '{$data['ProsesTutup']}', '{$data['Catatan']}',\r\n\t'{$_SESSION['_Login']}', now(), '{$data['NA']}')";
$r = _query($s);
TutupScript();
}
function Simpan($MhswID, $mhsw, $back)
{
$upf = $_FILES['foto']['tmp_name'];
$arrNama = explode('.', $_FILES['foto']['name']);
$tipe = $_FILES['foto']['type'];
$arrtipe = explode('/', $tipe);
$extensi = $arrtipe[1];
$dest = "foto/" . $MhswID . '.' . $extensi;
//echo $dest;
if (move_uploaded_file($upf, "../{$dest}")) {
$s = "update mhsw set Foto='{$dest}' where MhswID='{$MhswID}' ";
$r = _query($s);
TutupScript($back);
} else {
echo ErrorMsg("Gagal Upload Foto", "Tidak dapat meng-upload file foto.<br />\r\n Periksa file yg di-upload, karena besar file dibatasi cuma: <b>{$_REQUEST['MAX_FILE_SIZE']}</b> byte.");
}
//print_r($_FILES);
}
function Simpan($md, $id, $bck)
{
TutupScript();
$Nama = sqling($_REQUEST['Nama']);
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($md == 0) {
$s = "update matrimatauji\r\n set Nama = '{$Nama}',\r\n Keterangan = '{$Keterangan}',\r\n NA = '{$NA}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where KodeID = '" . KodeID . "' and MatriMataUjiID = '{$id}' ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} elseif ($md == 1) {
$s = "insert into matrimatauji\r\n (MatriMataUjiID, KodeID, Nama, Keterangan, LoginBuat, TanggalBuat, NA)\r\n values\r\n ('{$id}', '" . KodeID . "', '{$Nama}', '{$Keterangan}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function Simpan($md, $Kode, $bck)
{
TutupScript();
$Nama = sqling($_REQUEST['Nama']);
$CaraPenempatan = $_REQUEST['CaraPenempatan'];
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($md == 0) {
$s = "update pmbusm\n set Nama = '{$Nama}',\n CaraPenempatan = '{$CaraPenempatan}',\r\n\t\t Keterangan = '{$Keterangan}',\n NA = '{$NA}',\n LoginEdit = '{$_SESSION['_Login']}',\n TglEdit = now()\n where KodeID = '" . KodeID . "' and PMBUSMID = '{$Kode}' ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} elseif ($md == 1) {
$s = "insert into pmbusm\n (PMBUSMID, KodeID, Nama, CaraPenempatan, Keterangan, LoginBuat, TglBuat, NA)\n values\n ('{$Kode}', '" . KodeID . "', '{$Nama}', '{$CaraPenempatan}', '{$Keterangan}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function Simpan($bipotid)
{
$ProdiID = sqling($_REQUEST['ProdiID']);
$CopyID = $_REQUEST['_bipotid'] + 0;
if ($bipotid == $CopyID) {
die(ErrorMsg('Error', "Anda tidak boleh menyalin BIPOT dari sumber yang sama.<br />\r\n Pilih BIPOT dari Prodi lain.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Kembali' value='Kembali'\r\n onClick=\"location='../{$_SESSION['mnux']}.copyprodilain.php'\" />\r\n <input type=button name='Batal' value='Batal'\r\n onClick='window.close()' />"));
}
// Kosongkan bipot2 dari tujuan
$s = "delete from bipot2 where BIPOTID='{$bipotid}' ";
$r = _query($s);
// Ambil data dari bipot2
$s1 = "select * from bipot2 where BIPOTID='{$CopyID}' ";
$r1 = _query($s1);
while ($w1 = _fetch_array($r1)) {
$s2 = "insert into bipot2(BIPOTID, BIPOTNamaID, TambahanNama,\r\n TrxID, Prioritas, Jumlah, KaliSesi, MulaiSesi, PerMataKuliah, PerSKS, PerLab, Remedial, PraktekKerja,\r\n Otomatis, SaatID, \r\n StatusMhswID, StatusPotonganID, StatusAwalID,\r\n GunakanGradeNilai, GradeNilai,\r\n\t GunakanGradeIPK, GradeIPK,\r\n GunakanScript, NamaScript, NA,\r\n LoginBuat, TglBuat)\r\n values ('{$bipotid}', '{$w1['BIPOTNamaID']}', '{$w1['TambahanNama']}',\r\n '{$w1['TrxID']}', '{$w1['Prioritas']}', '{$w1['Jumlah']}', '{$w1['KaliSesi']}', '{$w1['MulaiSesi']}', '{$w1['PerMataKuliah']}', '{$w1['PerSKS']}', '{$w1['PerLab']}','{$w1['Remedial']}', '{$w1['PraktekKerja']}',\r\n '{$w1['Otomatis']}', '{$w1['SaatID']}',\r\n '{$w1['StatusMhswID']}', '{$w1['StatusPotonganID']}', '{$w1['StatusAwalID']}',\r\n '{$w1['GunakanGradeNilai']}', '{$w1['GradeNilai']}',\r\n\t '{$w1['GunakanGradeIPK']}', '{$w1['GradeIPK']}',\r\n '{$w1['GunakanScript']}', '{$w1['NamaScript']}', '{$w1['NA']}',\r\n '{$_SESSION['_Login']}', now())";
$r2 = _query($s2);
}
TutupScript();
}
function Finalisasi($jdwl)
{
$id = $_REQUEST['id'];
// finalisasi jadwal
$s = "update jadwalremedial\n set Final = 'Y', Gagal = 'N',\n TglEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n where JadwalRemedialID = {$id}";
$r = _query($s);
// finalisasi krs
$s = "update krsremedial\n set Final = 'Y',\n TanggalEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n where JadwalRemedialID = {$id}";
$r = _query($s);
// Anggap Remedial sudah beres dan bisa di-remedialkan lagi bila diperlukan lagi nanti
$s = "select KRSID from krsremedial where JadwalRemedialID='{$JadwalRemedialID}' and KodeID='" . KodeID . "'";
$r = _query($s);
while ($w = _fetch_array($r)) {
$s1 = "update krs set SedangRemedial = 'N' where KRSID='{$w['KRSID']}' and KodeID='" . KodeIID . "'";
$r1 = _query($s1);
}
// Kembali
TutupScript($id);
}
function SavData($tanggal, $md, $id)
{
$TanggalMulai = "{$_REQUEST['TanggalMulai_y']}-{$_REQUEST['TanggalMulai_m']}-{$_REQUEST['TanggalMulai_d']}";
$TanggalSelesai = "{$_REQUEST['TanggalSelesai_y']}-{$_REQUEST['TanggalSelesai_m']}-{$_REQUEST['TanggalSelesai_d']}";
$Keterangan = $_REQUEST['Keterangan'];
$JenisLiburID = $_REQUEST['JenisLiburID'];
$TidakAdaKuliah = !empty($_REQUEST['TidakAdaKuliah']) ? 'Y' : 'N';
$NA = !empty($_REQUEST['NA']) ? 'Y' : 'N';
if ($md == 0) {
$s = "update harilibur \r\n\t\t\t\tset TanggalMulai = '{$TanggalMulai}',\r\n\t\t\t\t\tTanggalSelesai = '{$TanggalSelesai}',\r\n\t\t\t\t\tKeterangan = '{$Keterangan}',\r\n\t\t\t\t\tJenisLiburID = '{$JenisLiburID}',\r\n\t\t\t\t\tTidakAdaKuliah = '{$TidakAdaKuliah}',\r\n\t\t\t\t\tTanggalEdit= now(),\r\n\t\t\t\t\tLoginEdit = '{$_SESSION['_Login']}',\r\n\t\t\t\t\tNA = '{$NA}'\r\n\t\t\t\twhere HariLiburID='{$id}'\r\n\t\t\t\t";
$r = _query($s);
} else {
if ($md == 1) {
$s = "insert into harilibur \r\n\t\t\t\t\tset TanggalMulai = '{$TanggalMulai}',\r\n\t\t\t\t\t\tTanggalSelesai = '{$TanggalSelesai}',\r\n\t\t\t\t\t\tKodeID='" . KodeID . "',\r\n\t\t\t\t\t\tKeterangan = '{$Keterangan}',\r\n\t\t\t\t\t\tJenisLiburID = '{$JenisLiburID}',\r\n\t\t\t\t\t\tTidakAdaKuliah = '{$TidakAdaKuliah}',\r\n\t\t\t\t\t\tTanggalBuat= now(),\r\n\t\t\t\t\t\tLoginBuat = '{$_SESSION['_Login']}',\r\n\t\t\t\t\t\tNA = '{$NA}'";
$r = _query($s);
}
}
TutupScript();
}
function Simpan($md, $id)
{
$Urutan = $_REQUEST['Urutan'] + 0;
$KodeJabatan = sqling($_REQUEST['KodeJabatan']);
$Nama = sqling($_REQUEST['Nama']);
$NIP = sqling($_REQUEST['NIP']);
$Jabatan = sqling($_REQUEST['Jabatan']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
// Simpan
if ($md == 0) {
$s = "update pejabat\r\n set Urutan = '{$Urutan}',\r\n KodeJabatan = '{$KodeJabatan}',\r\n Nama = '{$Nama}',\r\n NIP = '{$NIP}',\r\n Jabatan = '{$Jabatan}',\r\n NA = '{$NA}',\r\n TglEdit = now(),\r\n LoginEdit = '{$_SESSION['_Login']}'\r\n where PejabatID = {$id} ";
$r = _query($s);
TutupScript();
} elseif ($md == 1) {
$s = "insert into pejabat\r\n (KodeID, Urutan, KodeJabatan, Nama, NIP, Jabatan,\r\n NA, TglBuat, LoginBuat)\r\n values\r\n ('" . KodeID . "', '{$Urutan}', '{$KodeJabatan}', '{$Nama}', '{$NIP}', '{$Jabatan}',\r\n '{$NA}', now(), '{$_SESSION['_Login']}')";
$r = _query($s);
TutupScript();
} else {
die(ErrorMsg('Error', "Mode edit tidak dikenali.<br />\r\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
}
function FormDosenJadwal($jdwl)
{
JadwalDosenScript($jdwl);
TutupScript();
CheckFormScript('DosenID,JenisDosenID');
$optjenisdosen = GetOption2('jenisdosen', 'Nama', 'JenisDosenID', 'DSN', '', 'JenisDosenID');
echo <<<SCR
<table class=bsc width=100%>
<form name='frmJadwal' action='../{$_SESSION['mnux']}.dosen.php' method=POST
onSubmit="return CheckForm(this)">
<input type=hidden name='gos' value='SimpanDosen' />
<input type=hidden name='id' value='{$jdwl['JadwalID']}' />
<tr><td class=inp width=100>Tambah:</td>
<td class=ul1 width=50>Kode:<br />
<input type=text name='DosenID' size=8 maxlength=50 /><br /> </td>
<td class=ul1 width=50>Nama Dosen:<br />
<input type=text name='Dosen' size=20 maxlength=50
onKeyUp="javascript:CariDosen('{$_SESSION['_jdwlProdi']}', 'frmJadwal')" /><br />
<a href='#'
onClick="javascript:CariDosen('{$jdwl['ProdiID']}', 'frmJadwal')">Cari...</a> |
<a href='#' onClick="javascript:frmJadwal.DosenID.value='';frmJadwal.Dosen.value=''">Reset</a>
</td>
<td class=ul1>Jenis:<br />
<select name='JenisDosenID'>{$optjenisdosen}</select>
<br />
</td>
<td class=ul1>
<input type=submit name='Simpan' value='Simpan' />
<input type=button name='Kembali' value='Kembali' onClick="ttutup()" />
</td>
</tr>
</form>
</table>
<div class='box0' id='caridosen'>...</div>
SCR;
}
function SavData($md, $id)
{
$JenisLiburID = $_REQUEST['JenisLiburID'];
$Nama = $_REQUEST['Nama'];
$Keterangan = $_REQUEST['Keterangan'];
$Warna = $_REQUEST['Warna'];
$AdaKuliah = !empty($_REQUEST['AdaKuliah']) ? 'Y' : 'N';
if ($md == 0) {
$s = "update jenislibur \r\n\t\t\t\tset Nama = '{$Nama}',\r\n\t\t\t\t\tKeterangan = '{$Keterangan}',\r\n\t\t\t\t\tWarna = '{$Warna}',\r\n\t\t\t\t\tTanggalEdit= now(),\r\n\t\t\t\t\tLoginEdit = '{$_SESSION['_Login']}'\r\n\t\t\t\twhere JenisLiburID='{$JenisLiburID}'\r\n\t\t\t\t";
$r = _query($s);
} else {
if ($md == 1) {
$ada = GetaField('jenislibur', "JenisLiburID='{$JenisLiburID}' and KodeID", KodeID, 'JenisLiburID');
if ($ada) {
die(ErrorMsg("Duplikat", "Terdapat Kode Jenis Libur yang sama. Harap memasukkan kode yang berbeda<br>\r\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close();\">"));
} else {
$s = "insert into jenislibur \r\n\t\t\t\t\tset JenisLiburID = '{$JenisLiburID}',\r\n\t\t\t\t\t\tNama = '{$Nama}',\r\n\t\t\t\t\t\tKodeID='" . KodeID . "',\r\n\t\t\t\t\t\tKeterangan = '{$Keterangan}',\r\n\t\t\t\t\t\tWarna = '{$Warna}',\r\n\t\t\t\t\t\tTanggalBuat= now(),\r\n\t\t\t\t\t\tLoginBuat = '{$_SESSION['_Login']}'";
$r = _query($s);
}
}
}
TutupScript();
}
function Simpan($pmbid, $md, $id)
{
$BIPOTNamaID = $_REQUEST['BIPOTNamaID'] + 0;
$Jumlah = $_REQUEST['Jumlah'] + 0;
$Besar = $_REQUEST['Besar'] + 0;
$Dibayar = $_REQUEST['Dibayar'] + 0;
$Catatan = sqling($_REQUEST['Catatan']);
// Simpan
if ($md == 0) {
$s = "update bipotmhsw\n set Jumlah = '{$Jumlah}',\n Besar = '{$Besar}',\n Dibayar = '{$Dibayar}',\n Catatan = '{$Catatan}',\n LoginEdit = '{$_SESSION['_Login']}',\n TanggalEdit = now()\n where BIPOTMhswID = '{$id}' ";
$r = _query($s);
} elseif ($md == 1) {
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $pmbid, '*');
$bn = GetFields('bipotnama', 'BIPOTNamaID', $BIPOTNamaID, '*');
$s = "insert into bipotmhsw\n (KodeID, PMBMhswID, PMBID, TahunID,\n BIPOT2ID, BIPOTNamaID, Nama, TrxID,\n Jumlah, Besar, Dibayar, Catatan,\n LoginBuat, TanggalBuat)\n values\n ('" . KodeID . "', 0, '{$pmbid}', '{$pmb['PMBPeriodID']}',\n 0, {$BIPOTNamaID}, '{$bn['Nama']}', {$bn['TrxID']},\n {$Jumlah}, {$Besar}, {$Dibayar}, '{$Catatan}',\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
} else {
die(ErrorMsg('Error', "Mode edit <b>{$md}</b> tidak dikenali.<br />\n Hubungi Sysadmin untuk informasi lebih lanjut.\n <hr size=1 color=silver />\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
include_once "../{$_SESSION['mnux']}.lib.php";
HitungUlangBIPOTPMB($pmbid);
TutupScript($pmbid);
}
function Simpan($md, $prd, $id)
{
TutupScript();
$KodeKompre = sqling($_REQUEST['KodeKompre']);
$Nama = sqling($_REQUEST['Nama']);
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($md == 0) {
$s = "update komprematauji\r\n set KodeKompre = '{$KodeKompre}',\r\n\t\t Nama = '{$Nama}',\r\n Keterangan = '{$Keterangan}',\r\n NA = '{$NA}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where KodeID = '" . KodeID . "' and KompreMataUjiID = '{$id}' ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}.setup.php');</script>";
} elseif ($md == 1) {
$ada = GetaField('komprematauji', "KodeKompre='{$KodeKompre}' and KodeID", KodeID, "KompreMataUjiID");
if ($ada) {
echo ErrorMsg("Simpan Gagal", "Kode Mata Uji Komprehensif <b>{$KodeKompre}</b> telah dipakai. Harap menggunakan kode yang lain.<br>\r\n\t\t\t<input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" >");
} else {
$s = "insert into komprematauji\r\n\t\t (KodeKompre, KodeID, Nama, ProdiID, Keterangan, LoginBuat, TanggalBuat, NA)\r\n\t\t values\r\n\t\t ('{$KodeKompre}', '" . KodeID . "', '{$Nama}', '{$prd}', '{$Keterangan}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}.setup.php');</script>";
}
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function Simpan($md, $id)
{
$Judul = sqling($_REQUEST['Judul']);
$Predikat = sqling($_REQUEST['Predikat']);
$QryPrasyarat = CekPrasyarat();
$_QryPrasyarat = empty($QryPrasyarat) ? '' : ", Prasyarat = '{$QryPrasyarat}' ";
$PrasyaratLengkap = CekPrasyaratlengkap();
if ($md == 0) {
$s = "update wisudawan\r\n set PrasyaratLengkap = '{$PrasyaratLengkap}',\r\n Judul = '{$Judul}',\r\n LoginEdit = '{$_SESSION['_Login']}', TanggalEdit = now()\r\n {$_QryPrasyarat}\r\n where WisudawanID = '{$id}' ";
$r = _query($s);
TutupScript();
} elseif ($md == 1) {
$MhswID = sqling($_REQUEST['MhswID']);
$ada = GetFields("wisudawan", "KodeID='" . KodeID . "' and MhswID", $MhswID, '*');
if (empty($ada)) {
$gel = GetFields('wisuda', "KodeID='" . KodeID . "' and TahunID", $_SESSION['TahunID'], '*');
$s = "insert into wisudawan\r\n (KodeID, TahunID, WisudaID, \r\n MhswID, Judul, PrasyaratLengkap, Prasyarat,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$_SESSION['TahunID']}', '{$gel['WisudaID']}', \r\n '{$MhswID}', '{$Judul}', '{$PrasyaratLengkap}', '{$QryPrasyarat}',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
// Update Tanggal Lulus dan IPK Mahasiswa bersangkutan
$maxSesi = GetaField('khs', "MhswID='{$MhswID}' and KodeID", KodeID, 'max(Sesi)+0');
$IPTerakhir = GetaField('khs', "MhswID='{$MhswID}' and Sesi='{$maxSesi}' and KodeID", KodeID, "IP");
$TAIDTerakhir = GetaField('ta', "MhswID='{$MhswID}' and KodeID", KodeID, 'max(TAID)+0');
$TanggalLulus = GetaField('ta', "TAID='{$TAIDTerakhir}' and KodeID", KodeID, 'TglUjian');
$s = "update mhsw set IPK='{$IPTerakhir}', TanggalLulus='{$TanggalLulus}' where MhswID='{$MhswID}'";
$r = _query($s);
TutupScript();
} else {
die(ErrorMsg('Error', "Mahasiswa dengan NIM: <b>{$MhswID}</b> telah pernah terdaftar di wisuda.<br />\r\n Berikut adalah datanya:<br />\r\n NIM: <b>{$ada['MhswID']}</b><br />\r\n Gelombang: <b>{$ada['TahunID']}</b>\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup' onClick='window.close()' />"));
}
} else {
die(ErrorMsg('Error', "Mode edit <b>{$md}</b> tidak dikenali.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup' onClick='window.close()' />"));
}
}
function Simpan($md, $TAID)
{
//Ambil parameters
$TahunID = sqling($_REQUEST['TahunID']);
$MhswID = sqling($_REQUEST['MhswID']);
$Judul = sqling($_REQUEST['Judul']);
$Deskripsi = sqling($_REQUEST['Deskripsi']);
$TglDaftar = "{$_REQUEST['TglDaftar']}";
$TglMulai = "{$_REQUEST['TglMulai']}";
$TglSelesai = "{$_REQUEST['TglSelesai']}";
$DosenID = sqling($_REQUEST['DosenID']);
if ($md == 0) {
$s = "update ta\r\n set Judul = '{$Judul}',\r\n Deskripsi = '{$Deskripsi}',\r\n TglDaftar = '{$TglDaftar}',\r\n TglMulai = '{$TglMulai}',\r\n TglSelesai = '{$TglSelesai}',\r\n Pembimbing = '{$DosenID}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where TAID = '{$TAID}' ";
$r = _query($s);
TutupScript();
} elseif ($md == 1) {
// Sudah ambil matakuliah skripsi/TA
$blm = GetaField("krs k\r\n left outer join mk mk on k.MKID = mk.MKID", "k.KodeID='" . KodeID . "' and k.NA = 'N' and mk.TugasAkhir='Y' and k.MhswID", $MhswID, "count(k.MKID)");
//echo "<h1>» $blm</h1>";
if ($blm == 0) {
die(ErrorMsg("Error", "Mahasiswa ini belum mengambil mata kuliah Skripsi/Tugas Akhir.<br />\r\n Hubungi Tata Usaha Program Studi untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Batal' onClick='window.close()' />"));
}
// Apakah sudah pernah mendaftarkan TA?
$ada = GetFields('ta', "NA='N' and KodeID='" . KodeID . "' and MhswID", $MhswID, '*');
if (empty($ada)) {
$s = "insert into ta\r\n (TahunID, KodeID, MhswID,\r\n TglDaftar, TglMulai, TglSelesai,\r\n Judul, Deskripsi, Pembimbing,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$TahunID}', '" . KodeID . "', '{$MhswID}',\r\n '{$TglDaftar}', '{$TglMulai}', '{$TglSelesai}',\r\n '{$Judul}', '{$Deskripsi}', '{$DosenID}',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
TutupScript();
} else {
echo ErrorMsg("Error", "Mahasiswa ini telah mendaftarkan diri untuk skripsi/ta sebelumnya.<br />\r\n Selesaikan dahulu administrasi pendaftaran skripsi/ta sebelumnya.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />");
}
} else {
echo ErrorMsg('Error', "Mode edit <b>{$md}</b> tidak dikenali oleh sistem.\r\n <hr size=1 color=silver />\r\n <p align=center><input type=button name='Tutup' value='Tutup' onClick='window.close()' />");
}
}
function Simpan($md, $id, $jutsid)
{
$w['UTSTanggal'] = "{$_REQUEST['UTSTanggal_y']}-{$_REQUEST['UTSTanggal_m']}-{$_REQUEST['UTSTanggal_d']}";
$w['UTSJamMulai'] = "{$_REQUEST['UTSJamMulai_h']}:{$_REQUEST['UTSJamMulai_n']}";
$w['UTSJamSelesai'] = "{$_REQUEST['UTSJamSelesai_h']}:{$_REQUEST['UTSJamSelesai_n']}";
$w['UTSRuangID'] = $_REQUEST['UTSRuangID'];
$w['UTSKapasitas'] = $_REQUEST['UTSKapasitas'];
$w['UTSKolomUjian'] = $_REQUEST['UTSKolomUjian'];
$w['UTSDosenID'] = $_REQUEST['UTSDosenID'];
$w['JadwalID'] = $id;
$w['TahunID'] = $_REQUEST['TahunID'];
$w['ProdiID'] = $_REQUEST['ProdiID'];
$w['ProgramID'] = $_REQUEST['ProgramID'];
// *** Cek semuanya dulu ***
$cekada = GetFields('tahun', "NA='N' and TahunID='{$w['TahunID']}' \r\n and ProdiID = '{$w['ProdiID']}' \r\n and left(TglUTSMulai,10)<= '{$w['UTSTanggal']}' and \r\n left(TglUTSSelesai,10)>= '{$w['UTSTanggal']}' and ProgramID", "{$w['ProgramID']}", "*");
$cek = GetFields('tahun', "NA='N' and TahunID='{$w['TahunID']}' \r\n and ProdiID = '{$w['ProdiID']}' and ProgramID", "{$w['ProgramID']}", "date_format(TglUTSMulai,'%d %M %Y') as Mulai, date_format(TglUTSSelesai,'%d %M %Y') as Selesai");
if (empty($cekada)) {
die(ErrorMsg('Kesalahan Tanggal', "Tanggal yang anda setting tidak sesuai dengan Tanggal penjadwalan UTS,<br/>\r\n yaitu dari Tanggal : <b>{$cek['Mulai']}</b> sampai dengan <b>{$cek['Selesai']}</b>.\r\n <hr size=1 color=silver />\r\n <p align=center>\r\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />\r\n </p>"));
}
$oke = '';
if (!empty($w['UTSRuangID'])) {
$oke .= CekRuang($w, $jutsid);
}
//$oke .= CekTanggal($w, $jutsid);
// Ambil data MK
$mk = GetFields('mk', "MKID", $w['MKID'], "Nama,MKKode,KurikulumID,SKS,Sesi");
// Jika semuanya baik2 saja
if (empty($oke)) {
// Jika mode=edit
if ($md == 0) {
$s = "update jadwaluts\r\n set RuangID = '{$w['UTSRuangID']}',\r\n\t\t\tDosenID = '{$w['UTSDosenID']}',\r\n Kapasitas = '{$w['UTSKapasitas']}',\r\n Tanggal = '{$w['UTSTanggal']}',\r\n JamMulai = '{$w['UTSJamMulai']}', JamSelesai = '{$w['UTSJamSelesai']}',\r\n\t\t\tKolomUjian = '{$w['UTSKolomUjian']}',\r\n\t\t\tTanggalEdit = now(),\r\n LoginEdit = '{$_SESSION['_Login']}'\r\n where JadwalUTSID = '{$jutsid}' ";
$r = _query($s);
DaftarkanMhswKeRuangUTS($w, $jutsid);
TutupScript();
} elseif ($md == 1) {
$s = "insert into jadwaluts\r\n (KodeID, TahunID, JadwalID, DosenID, \r\n Tanggal, JamMulai, JamSelesai,\r\n\t\tKapasitas, RuangID, KolomUjian, TanggalBuat, LoginBuat)\r\n values\r\n ('" . KodeID . "', '{$w['TahunID']}', '{$w['JadwalID']}', '{$w['UTSDosenID']}',\r\n '{$w['UTSTanggal']}', '{$w['UTSJamMulai']}', '{$w['UTSJamSelesai']}',\r\n\t\t'{$w['UTSKapasitas']}', '{$w['UTSRuangID']}', '{$w['UTSKolomUjian']}', now(), '{$_SESSION['_Login']}')";
$r = _query($s);
$JadwalUTSID = mysql_insert_id();
DaftarkanMhswKeRuangUTS($w, $JadwalUTSID);
TutupScript();
}
} else {
die(ErrorMsg('Ada Kesalahan', "Berikut adalah pesan kesalahannya: \r\n <ol>{$oke}</ol>\r\n <hr size=1 color=silver />\r\n <p align=center>\r\n \r\n\t <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />\r\n </p>"));
}
}
function Simpan($MhswID, $KHSID, $md, $BayarID)
{
$RekeningID = sqling($_REQUEST['RekeningID']);
$Bank = sqling($_REQUEST['Bank']);
$BuktiSetoran = sqling($_REQUEST['BuktiSetoran']);
$Keterangan = sqling($_REQUEST['Keterangan']);
$Tanggal = "{$_REQUEST['Tanggal_y']}-{$_REQUEST['Tanggal_m']}-{$_REQUEST['Tanggal_d']}";
$CNT = $_REQUEST['CNT'] + 0;
$sisane = -1 * $_REQUEST['sisane'] + 0;
$TTLBYR = $_REQUEST['TTLBYR'] + 0;
// Cek jika tidak ada detailnya
if ($sisane < $TTLBYR) {
die(ErrorMsg('Error', "Penarikan tidak boleh lebih besar<br />\r\n daripada total yang dapat ditarik<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
if ($CNT == 0) {
die(ErrorMsg('Error', "Tidak ada detail biaya.<br />\r\n Data tidak bisa disimpan.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
// Cek dulu jumlah yg dibayarkan
$jml = 0;
for ($i = 1; $i <= $CNT; $i++) {
$jml += $_REQUEST['BYR_' . $i] + 0;
}
if ($jml <= 0) {
die(ErrorMsg('Error', "Jumlah yang Anda bayarkan: <font size=+1>{$jml}</font>.<br />\r\n Tidak ada yang perlu dibayarkan.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" /"));
}
$mhsw = GetFields('mhsw', "KodeID='" . KodeID . "' and MhswID", $MhswID, '*');
$khs = GetFields('khs', 'KHSID', $KHSID, '*');
// Oke, mulai simpan datanya
// 1. Ambil nomer terakhir yang ada
$BayarMhswID = GetNextBPM();
// 2. Buat header bukti pembayaran
$s = "insert into bayarmhsw\r\n (BayarMhswID, TahunID, KodeID,\r\n RekeningID, MhswID, TrxID, PMBMhswID,\r\n Bank, BuktiSetoran, Tanggal,\r\n Jumlah, Keterangan,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$BayarMhswID}', '{$khs['TahunID']}', '" . KodeID . "',\r\n '{$RekeningID}', '{$mhsw['MhswID']}', -1, 1,\r\n '{$Bank}', '{$BuktiSetoran}', '{$Tanggal}',\r\n {$jml}, '{$Keterangan}',\r\n '{$_SESSION['_LoginBuat']}', now())";
$r = _query($s);
// 3. Simpan detailnya
for ($i = 1; $i <= $CNT; $i++) {
$_j = $_REQUEST['BYR_' . $i] + 0;
if ($_j > 0) {
// Simpan
$id = $_REQUEST['BYRID_' . $i] + 0;
$BIPOTNamaID = GetaField('bipotmhsw', "BIPOTMhswID", $id, 'BIPOTNamaID');
// Simpan dulu detail pembayarannya
$s = "insert into bayarmhsw2\r\n (BayarMhswID, BIPOTMhswID, BIPOTNamaID, Jumlah,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$BayarMhswID}', {$id}, '{$BIPOTNamaID}', " . -1 * $_j . ",\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
// Update detail biayanya
$s = "update bipotmhsw\r\n set Dibayar = Dibayar + " . -1 * $_j . "\r\n where BIPOTMhswID = {$id}";
$r = _query($s);
}
}
HitungUlangBIPOTMhsw($MhswID, $khs['TahunID']);
TutupScript($MhswID);
}
function Simpan($md, $jid, $krsid, $krsresid, $jenis)
{
$jresid = $_REQUEST['jresid'];
$jres = '';
foreach ($jresid as $j) {
$jres = $j;
}
$krs = GetFields('krs', "KRSID='{$krsid}' and KodeID", KodeID, "*");
// *** Cek semuanya dulu ***
$oke = '';
//if (!empty($w['UTSRuangID'])) $oke .= CekRuang($w, $jutsid);
//$/oke .= CekTanggal($w, $jutsid);
// Ambil data MK
$mk = GetFields('mk', "MKID", $w['MKID'], "Nama,MKKode,KurikulumID,SKS,Sesi");
// Jika semuanya baik2 saja
if (empty($oke)) {
// Jika mode=edit
if ($md == 0) {
$s = "update krs\n set JadwalID='{$jres}'\n where KRSID = '{$krsresid}'";
$r = _query($s);
TutupScript();
} elseif ($md == 1) {
$s = "insert into krs\n\t\t(KodeID, KHSID, MhswID, TahunID, JadwalID, \n\t\tMKID, MKKode, Nama, SKS,\n\t\tLoginEdit, TanggalEdit)\n\t\tvalues\n\t\t('" . KodeID . "', '{$krs['KHSID']}', '{$krs['MhswID']}', '{$krs['TahunID']}', '{$jres}',\n\t\t'{$krs['MKID']}', '{$krs['MKKode']}', '{$krs['Nama']}', '0',\n\t\t'{$_SESSION['_Login']}', now())";
$r = _query($s);
HitungPeserta($jdwl['JadwalID']);
TutupScript();
}
} else {
die(ErrorMsg('Ada Kesalahan', "Berikut adalah pesan kesalahannya: \n <ol>{$oke}</ol>\n <hr size=1 color=silver />\n <p align=center>\n <input type=button name='Kembali' value='Kembali' onClick=\"javascript:Kembali()\" />\n\t <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />\n </p>"));
}
}
