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 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 RuangSav()
{
$md = $_REQUEST['md'] + 0;
$RuangID = $_REQUEST['RuangID'];
$Nama = sqling($_REQUEST['Nama']);
$KampusID = $_REQUEST['KampusID'];
$Lantai = $_REQUEST['Lantai'] + 0;
$RuangKuliah = empty($_REQUEST['RuangKuliah']) ? 'N' : $_REQUEST['RuangKuliah'];
$Kapasitas = $_REQUEST['Kapasitas'] + 0;
$KapasitasUjian = $_REQUEST['KapasitasUjian'] + 0;
$KolomUjian = $_REQUEST['KolomUjian'] + 0;
$UntukUSM = empty($_REQUEST['UntukUSM']) ? 'N' : $_REQUEST['UntukUSM'];
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
$prodi = $_REQUEST['ProdiID'];
$ProdiID = empty($prodi) ? '' : '.' . implode('.', $prodi) . '.';
if ($md == 0) {
$s = "update ruang set Nama='{$Nama}', ProdiID='{$ProdiID}',\r\n KampusID='{$KampusID}', Lantai='{$Lantai}',\r\n RuangKuliah='{$RuangKuliah}', Kapasitas='{$Kapasitas}', KapasitasUjian='{$KapasitasUjian}', KolomUjian='{$KolomUjian}',\r\n UntukUSM='{$UntukUSM}', Keterangan='{$Keterangan}', NA='{$NA}' where RuangID='{$RuangID}' ";
$r = _query($s);
} else {
$ada = GetFields('ruang', 'RuangID', $_REQUEST['RuangID'], '*');
if (empty($ada)) {
$s = "insert into ruang(RuangID, Nama, ProdiID, KampusID, Lantai, RuangKuliah,\r\n Kapasitas, KapasitasUjian, KolomUjian, UntukUSM, Keterangan, NA)\r\n values('{$RuangID}', '{$Nama}', '{$ProdiID}', '{$KampusID}', '{$Lantai}', '{$RuangKuliah}',\r\n '{$Kapasitas}', '{$KapasitasUjian}', '{$KolomUjian}', '{$UntukUSM}', '{$Keterangan}', '{$NA}')";
$r = _query($s);
} else {
echo ErrorMsg('Terjadi Kesalahan', "Kode ruang telah digunakan: <b>{$ada['RuangID']} - {$ada['Nama']}</b> di gedung: {$ada['KampusID']}.<br>\r\n Gunakan kode ruang lain.");
}
}
DftrRuang();
}
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 BPMSav()
{
$bpmid = $_REQUEST['bpmid'];
$RekeningID = $_REQUEST['RekeningID'];
$Autodebet = empty($_REQUEST['Autodebet']) ? '0' : $_REQUEST['Autodebet'];
$Bank = $_REQUEST['Bank'];
$BuktiSetoran = $_REQUEST['BuktiSetoran'];
$Tanggal = "{$_REQUEST['Tanggal_y']}-{$_REQUEST['Tanggal_m']}-{$_REQUEST['Tanggal_d']}";
$Jumlah = $_REQUEST['Jumlah'] + 0;
$JumlahLain = $_REQUEST['JumlahLain'] + 0;
$Keterangan = sqling($_REQUEST['Keterangan']);
$MhswID = $_REQUEST['MhswID'];
$khsid = $_REQUEST['khsid'];
// Simpan
$s = "update bayarmhsw\r\n set RekeningID='{$RekeningID}', Autodebet='{$Autodebet}',\r\n Bank='{$Bank}', BuktiSetoran='{$BuktiSetoran}', Keterangan='{$Keterangan}',\r\n Jumlah={$Jumlah}, JumlahLain={$JumlahLain},\r\n Tanggal='{$Tanggal}', LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where BayarMhswID='{$bpmid}'";
$r = _query($s);
// update pembayaran
/*$_REQUEST['khsid'] = $khsid;
$_REQUEST['mhswid'] = $MhswID;
$_REQUEST['pmbmhswid'] = 1;
PrcBIPOTSesi(); */
include_once "mhswkeu.lib.php";
HitungBiayaBayarMhsw($MhswID, $khsid);
echo "<script>window.location='?mnux={$_SESSION['bck']}&gos={$_SESSION['bckgos']}&MhswID={$MhswID}&khsid={$khsid}';</script>";
}
function NilaiKlinikSav($jdwl)
{
global $KodeID;
// Simpan jdwl dulu
$NoSurat = sqling($_REQUEST['NoSurat']);
$TglSurat = "{$_REQUEST['TglSurat_y']}-{$_REQUEST['TglSurat_m']}-{$_REQUEST['TglSurat_d']}";
if ($NoSurat != $jdwl['NoSurat'] || $TglSurat != $jdwl['TglSurat']) {
$s = "update jadwal set NoSurat='{$NoSurat}', TglSurat='{$TglSurat}' where JadwalID='{$jdwl['JadwalID']}' ";
$r = _query($s);
}
// Simpan data nilai
$jml = $_REQUEST['jml'] + 0;
if ($jml > 0) {
for ($i = 1; $i <= $jml; $i++) {
$krsid = $_REQUEST["KRS_{$i}"] + 0;
$NilaiAkhir = $_REQUEST["NilaiAkhir_{$i}"] + 0;
$krs = GetFields('krs', 'KRSID', $krsid, "*");
$ProdiID = GetaField('mhsw', 'MhswID', $krs['MhswID'], 'ProdiID');
$arrnilai = GetFields('nilai', "KodeID='{$KodeID}' and NilaiMin <= '{$NilaiAkhir}' and '{$NilaiAkhir}' <= NilaiMax and ProdiID", $ProdiID, "Nama, Bobot");
$GradeNilai = empty($arrnilai['Nama']) ? 'X' : $arrnilai['Nama'];
$BobotNilai = $arrnilai['Bobot'] + 0;
// Simpan data
$s = "update krs set NilaiAkhir='{$NilaiAkhir}',\r\n GradeNilai='{$GradeNilai}', BobotNilai='{$BobotNilai}'\r\n where KRSID={$krsid}";
$r = _query($s);
}
}
echo "<script>window.location = '?mnux={$_SESSION['mnux']}';</script>";
}
function AlumniKrjSav()
{
$md = $_REQUEST['md'];
$AlumniID = $_REQUEST['AlumniID'];
$Nama = sqling($_REQUEST['Nama']);
$Jabatan = sqling($_REQUEST['Jabatan']);
$Alamat = sqling($_REQUEST['Alamat']);
$Kota = sqling($_REQUEST['Kota']);
$KodePos = sqling($_REQUEST['KodePos']);
$Propinsi = sqling($_REQUEST['Propinsi']);
$Negara = sqling($_REQUEST['Negara']);
$Telepon = sqling($_REQUEST['Telepon']);
$Facsimile = sqling($_REQUEST['Facsimile']);
$Website = sqling($_REQUEST['Website']);
$NA = empty($_REQUEST['NA']) ? "N" : $_REQUEST['NA'];
$MK = "{$_REQUEST['MK_y']}-{$_REQUEST['MK_m']}-{$_REQUEST['MK_d']}";
$KK = "{$_REQUEST['KK_y']}-{$_REQUEST['KK_m']}-{$_REQUEST['KK_d']}";
// simpan
if ($md == 0) {
$AlumniKerjaID = $_REQUEST['AlumniKerjaID'];
$s = "update alumnikerja set Nama='{$Nama}', Jabatan='{$Jabatan}',\r\n Alamat='{$Alamat}', Kota='{$Kota}', KodePos='{$KodePos}',\r\n Propinsi='{$Propinsi}', Negara='{$Negara}',\r\n Telepon='{$Telepon}', Facsimile='{$Facsimile}',\r\n Website='{$Website}', NA='{$NA}',\r\n MulaiKerja='{$MK}', KeluarKerja='{$KK}',\r\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where AlumniKerjaID='{$AlumniKerjaID}' ";
$r = _query($s);
} else {
$s = "insert into alumnikerja (MhswID, Nama, Jabatan,\r\n Alamat, Kota, KodePos, Propinsi, Negara,\r\n Telepon, Facsimile, Website, NA,\r\n MulaiKerja, KeluarKerja)\r\n values ('{$AlumniID}', '{$Nama}', '{$Jabatan}',\r\n '{$Alamat}', '{$Kota}', '{$KodePos}', '{$Propinsi}', '{$Negara}',\r\n '{$Telepon}', '{$Facsimile}', '{$Website}', '{$NA}',\r\n '{$MK}', '{$KK}')";
$r = _query($s);
}
}
function JdwlTtp1()
{
$JadwalID = $_REQUEST['JadwalID'];
$jdwl = GetFields('jadwal', 'JadwalID', $JadwalID, '*');
// Parameter
$NoSurat = sqling($_REQUEST['NoSurat']);
$Tgl = "{$_REQUEST['Tgl_y']}-{$_REQUEST['Tgl_m']}-{$_REQUEST['Tgl_d']}";
$Keterangan = sqling($_REQUEST['Keterangan']);
// Tutup
$st = "insert into jadwaltutup (TahunID, ProgramID, ProdiID,\r\n JadwalID, MKID, MKKode, Nama, DosenID,\r\n NamaKelas, JenisJadwalID, \r\n HariID, JamMulai, JamSelesai,\r\n NoSurat, Tanggal, Keterangan,\r\n LoginBuat, TanggalBuat)\r\n values ('{$jdwl['TahunID']}', '{$jdwl['ProgramID']}', '{$jdwl['ProdiID']}',\r\n '{$JadwalID}', '{$jdwl['MKID']}', '{$jdwl['MKKode']}', '{$jdwl['Nama']}', '{$jdwl['DosenID']}',\r\n '{$jdwl['NamaKelas']}', '{$jdwl['JenisJadwalID']}',\r\n '{$jdwl['HariID']}', '{$jdwl['JamMulai']}', '{$jdwl['JamSelesai']}',\r\n '{$NoSurat}', '{$Tgl}', '{$Keterangan}',\r\n '{$_SESSION['_Login']}', now())";
$rt = _query($st);
// set semua krs menjadi tutup
echo "<p>KRS Mahasiswa yg dibatalkan:</p>";
echo "<ol>";
$s = "select * from krs where JadwalID={$JadwalID}";
$r = _query($s);
while ($w = _fetch_array($r)) {
// batalkan KRS
$sk = "update krs set StatusKRSID='M', NA='Y', CatatanError='Jadwal dihapus'\r\n where KRSID={$w['KRSID']} ";
$rk = _query($sk);
// update pembayaran
$_REQUEST['khsid'] = $w['KHSID'];
$_REQUEST['mhswid'] = $w['MhswID'];
$_REQUEST['pmbmhswid'] = 1;
PrcBIPOTSesi();
echo "<li>{$w['MhswID']}</li>";
}
echo "</ol>";
// Hapus
$sh = "update jadwal set NA='Y' where JadwalID={$JadwalID} ";
$rh = _query($sh);
DftrJdwl();
}
function BeaSav()
{
$md = $_REQUEST['md'];
$BeasiswaID = $_REQUEST['BeasiswaID'];
$Nama = sqling($_REQUEST['Nama']);
$BIPOTNamaID = $_REQUEST['BIPOTNamaID'];
$IPSMin = $_REQUEST['IPSMin'] + 0;
$IPKMin = $_REQUEST['IPKMin'] + 0;
$Keterangan = sqling($_REQUEST['Keterangan']);
$Prasyarat = sqling($_REQUEST['Prasyarat']);
$NA = empty($_REQUEST['NA']) ? "N" : $_REQUEST['NA'];
// Simpan
if ($md == 0) {
$s = "update beasiswa set Nama='{$Nama}', IPSMin='{$IPSMin}', IPKMin='{$IPKMin}', Keterangan='{$Keterangan}', NA='{$NA}',\r\n BIPOTNamaID='{$BIPOTNamaID}',\r\n Prasyarat='{$Prasyarat}', LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where BeasiswaID='{$BeasiswaID}' ";
$r = _query($s);
} else {
$ada = GetFields('beasiswa', "BeasiswaID", $BeasiswaID, "*");
if (empty($ada)) {
$s = "insert into beasiswa (BeasiswaID, KodeID, BIPOTNamaID, Nama, IPSMin, IPKMin, Keterangan, NA,\r\n Prasyarat, LoginBuat, TanggalBuat)\r\n values ('{$BeasiswaID}', '{$_SESSION['KodeID']}', '{$BIPOTNamaID}', '{$Nama}', '{$IPSMin}', '{$IPKMin}', '{$Keterangan}', '{$NA}',\r\n '{$Prasyarat}', '{$_SESSION['_Login']}', now())";
$r = _query($s);
} else {
echo ErrorMsg("Tidak Dapat Disimpan", "Beasiswa dengan kode: <b>{$ada['BeasiswaID']}</b> telah ada.");
}
}
DftrJenisBeasiswa();
}
function vendorSav() {
global $DefaultGOS, $KodeID;
$md = $_REQUEST['md']+0;
$nm = strtoupper(sqling($_REQUEST['Nama']));
$vendorid = $_REQUEST['VendorID']+0;
$alamat =$_REQUEST['Alamat'];
$telp =$_REQUEST['Telp'];
$fax =$_REQUEST['Fax'];
$NA = (empty($_REQUEST['NA']))? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update vendor set VendorID='$vendorid', Alamat='$alamat', Telp='$telp', Fax='$fax', LoginEdit='$_SESSION[_Nama]', TglEdit='$Actiondate', NA='$NA'
where VendorID=$vendorid";
$r = _query($s);
$DefaultGOS();
}
else {
$ada = GetFields('kelompokasset', "KodeID='$KodeID' and KelompokID", $KelompokID, '*');
if (empty($ada)) {
$s = "insert into vendor (VendorID, Nama, Alamat, Telp, Fax, KodeID, LoginAdd, TglAdd, NA)
values ('$vendorid', '$nm', '$alamat', '$telp', '$fax', '$KodeID', '$_SESSION[_Nama]', '$Actiondate', '$NA')";
$r = _query($s);
echo "<script>window.location = '?mnux=vendor'; </script>";
}
else {
echo ErrorMsg("Gagal Simpan",
"Data pejabat <b>$JabatanID</b> sudah ada.<br />
Anda tidak dapat memasukkan jabatan ini lebih dari 1 kali.");
$DefaultGOS();
}
}
}
function AkademikSav()
{
// Cek Kelengkapan
$_syarat = array();
$_syarat = $_REQUEST['PMBSyaratID'];
$syarat = empty($_syarat) ? '' : '.' . implode('.', $_syarat) . '.';
// Cek Kelengkapan
$mhsw = GetFields('mhsw', 'MhswID', $_REQUEST['mhswid'], 'StatusAwalID, ProdiID, Syarat, SyaratLengkap');
$s = "select PMBSyaratID, Nama\r\n from pmbsyarat\r\n where NA='N' and KodeID='{$_SESSION['KodeID']}'\r\n and INSTR(StatusAwalID, '.{$mhsw['StatusAwalID']}.') >0\r\n and INSTR(ProdiID, '.{$mhsw['ProdiID']}.') >0\r\n order by PMBSyaratID";
$r = _query($s);
$lkp = True;
if (!empty($_syarat)) {
while ($w = _fetch_array($r)) {
if (array_search($w['PMBSyaratID'], $_syarat) === false) {
$lkp = false;
}
}
} else {
$lkp = false;
}
$Lengkap = $lkp == true ? 'Y' : 'N';
// Simpan
$TahunID = sqling($_REQUEST['TahunID']);
$s = "update mhsw \r\n set PenasehatAkademik='{$_REQUEST['PenasehatAkademik']}', ProgramID='{$_REQUEST['ProgramID']}',\r\n TahunID = '{$TahunID}',\r\n StatusAwalID='{$_REQUEST['StatusAwalID']}', StatusMhswID='{$_REQUEST['StatusMhswID']}',\r\n Syarat='{$syarat}', SyaratLengkap='{$Lengkap}', BatasStudi='{$_REQUEST['BatasStudi']}'\r\n where MhswID='{$_REQUEST['mhswid']}' ";
$r = _query($s);
BerhasilSimpan("?mnux={$_SESSION['mnux']}&submodul={$_SESSION['submodul']}", 10);
}
function DataSav()
{
$md = $_REQUEST['md'] + 0;
$Kode = $_REQUEST['Kode'];
$KodeHukum = sqling($_REQUEST['KodeHukum']);
$Nama = sqling($_REQUEST['Nama']);
$Yayasan = sqling($_REQUEST['Yayasan']);
//$NA = empty($_REQUEST['NA'])? 'N' : $_REQUEST['NA'];
if ($md == 0) {
/*$s = "update rekening set Nama='$Nama', Bank='$Bank', Cabang='$Cabang', NA='$NA'
where RekeningID='$RekeningID' ";
$r = _query($s);*/
} else {
// Migrate
$ada = '';
//GetFields('rekening', 'RekeningID', $RekeningID, '*');
if (empty($ada)) {
// Initializing database => first thing to do
InitDBSav($Kode);
} else {
/*echo ErrorMsg('Rekening Tidak Dapat Disimpan',
"<p>Nomer rekening sudah ada. Berikut adalah data rekening tersebut:</p>
<p><table class=box cellspacing=1 cellpadding=4>
<tr><td class=inp1>Nomer Rekening</td><td class=ul>$ada[RekeningID]</td></tr>
<tr><td class=inp1>Kode Institusi</td><td class=ul>$ada[KodeID]</td></tr>
<tr><td class=inp1>Nama Pemilik</td><td class=ul>$ada[Nama]</td></tr>
<tr><td class=inp1>Nama Bank</td><td class=ul>$ada[Bank]</td></tr>
<tr><td class=inp1>Tidak aktif?</td><td class=ul><img src='img/book$ada[NA].gif'></td></tr>
</table></p>");*/
}
}
BerhasilSimpan("?mnux={$_SESSION['mnux']}", 10);
}
function KelompokAssetSav() {
global $DefaultGOS, $KodeID;
$md = $_REQUEST['md']+0;
$nm = strtoupper(sqling($_REQUEST['Nama']));
$KelompokID = $_REQUEST['KelompokID']+0;
$manfaatkomersil =$_REQUEST['ManfaatKomersil'];
$manfaatfiskal =$_REQUEST['ManfaatFiskal'];
$prosentasekomersil =$_REQUEST['ProsentaseKomersil'];
$prosentasefiskal =$_REQUEST['ProsentaseFiskal'];
$NA = (empty($_REQUEST['NA']))? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update kelompokasset set KelompokID='$KelompokID', MasaKomersil='$manfaatkomersil', MasaFiskal='$manfaatfiskal', ProsentaseKomersil='$prosentasekomersil', ProsentaseFiskal='$prosentasefiskal', LoginEdit='$_SESSION[_Nama]', TanggalEdit='$Actiondate', NA='$NA'
where KelompokID=$KelompokID";
$r = _query($s);
$DefaultGOS();
}
else {
$ada = GetFields('kelompokasset', "KodeID='$KodeID' and KelompokID", $KelompokID, '*');
if (empty($ada)) {
$s = "insert into kelompokasset (KelompokID, Nama, MasaKomersil, MasaFiskal, ProsentaseKomersil, ProsentaseFiskal, KodeID, LoginAdd, TangalAdd, NA)
values ('$KelompokID', '$nm', '$manfaatkomersil', '$manfaatfiskal', '$prosentasekomersil', '$prosentasefiskal', '$KodeID', '$_SESSION[_Nama]', '$Actiondate', '$NA')";
$r = _query($s);
echo "<script>window.location = '?mnux=kelompok.asset'; </script>";
}
else {
echo ErrorMsg("Gagal Simpan",
"Data pejabat <b>$JabatanID</b> sudah ada.<br />
Anda tidak dapat memasukkan jabatan ini lebih dari 1 kali.");
$DefaultGOS();
}
}
}
function BipotMasterSav()
{
$md = $_REQUEST['md'] + 0;
$Tahun = sqling($_REQUEST['Tahun']);
$Nama = sqling($_REQUEST['Nama']);
$Catatan = sqling($_REQUEST['Catatan']);
$Def = empty($_REQUEST['Def']) ? 'N' : $_REQUEST['Def'];
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
$SP = empty($_REQUEST['SP']) ? 'N' : $_REQUEST['SP'];
// Simpan
if ($md == 0) {
$BIPOTID = $_REQUEST['bipotid'];
$s = "update bipot set Nama='{$Nama}', Tahun='{$Tahun}', Catatan='{$Catatan}', \r\n Def='{$Def}', NA='{$NA}', SP='{$SP}',\r\n LoginEdit='{$_SESSION['_Login']}', TglEdit=now()\r\n where BIPOTID='{$BIPOTID}' ";
$r = _query($s);
} else {
$s = "insert into bipot (Tahun, Nama, KodeID, ProgramID, ProdiID, Catatan, \r\n Def, NA, SP,\r\n TglBuat, LoginBuat)\r\n values('{$Tahun}', '{$Nama}', '{$_SESSION['KodeID']}', '{$_SESSION['prid']}',\r\n '{$_SESSION['prodi']}', '{$Catatan}', \r\n '{$Def}', '{$NA}', '{$SP}',\r\n now(), '{$_SESSION['_Login']}')";
$r = _query($s);
// Ambil Last_Insert_ID
$s_last = "select LAST_INSERT_ID() as ID";
$r_last = _query($s_last);
$w_last = _fetch_array($r_last);
$BIPOTID = $w_last['ID'];
}
// Apakah diset menjadi default?
if ($Def == 'Y') {
$sd = "update bipot set Def='N' \r\n where ProgramID='{$_SESSION['prid']}' and ProdiID='{$_SESSION['prodi']}'\r\n and BIPOTID<>{$BIPOTID}";
//echo $sd;
$rd = _query($sd);
}
return DftrBipotIsi();
}
function PresenterAddSav($gos = 'PesenterEdt')
{
$md = $_REQUEST['md'] + 0;
$Login = sqling($_REQUEST['dsnid']);
$Nama = sqling($_REQUEST['Nama']);
$TempatLahir = sqling($_REQUEST['TempatLahir']);
$TanggalLahir = "{$_REQUEST['TglLahir_y']}-{$_REQUEST['TglLahir_m']}-{$_REQUEST['TglLahir_d']}";
$Jabatan = sqling($_REQUEST['Gelar']);
$Telephone = sqling($_REQUEST['Telephone']);
$Handphone = sqling($_REQUEST['Handphone']);
$Email = sqling($_REQUEST['Email']);
$KelaminID = $_REQUEST['Kelamin'];
$AgamaID = $_REQUEST['AgamaID'];
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update presenter set Nama='{$Nama}',\n TempatLahir='{$TempatLahir}', TanggalLahir='{$TanggalLahir}', \n Jabatan='{$Jabatan}', Telephone='{$Telephone}', Handphone='{$Handphone}',\n KelaminID='{$KelaminID}', AgamaID='{$AgamaID}',\n Email='{$Email}', NA='{$NA}'\n where Login='******' ";
$r = _query($s);
$gos();
} else {
$ada = GetFields('presenter', "Login", $Login, '*');
if (empty($ada)) {
$pass = setPasswordPresenter($TanggalLahir);
$s = "insert into presenter (Login, Nama, TempatLahir, TanggalLahir,\n AgamaID, KelaminID, Password,\n KodeID, Gelar, Telephone, Handphone,\n Email, NA)\n values ('{$Login}', '{$Nama}', '{$TempatLahir}', '{$TanggalLahir}',\n '{$AgamaID}', '{$KelaminID}', PASSWORD('{$pass}'), '{$Homebase}',\n '{$_SESSION['KodeID']}', '{$Gelar}', '{$Telephone}', '{$Handphone}',\n '{$Email}', '{$NA}')";
$r = _query($s);
$_SESSION['presenterid'] = $_REQUEST['presenterid'];
$_SESSION['presentersub'] = "PresenterEdtPribadi";
$_SESSION['prscr'] = $_REQUEST['prsid'];
$_SESSION['prskeycr'] = "Login";
echo "<script>window.location = '?mnux=dosen';</script>";
} else {
echo ErrorMsg("Gagal", "Data Presenter tidak dapat disimpan karena Nomor Presenter: <b>{$Login}</b> sudah dipakai oleh:\n <b>{$ada['Nama']}</b>.<br>\n Gunakan Nomor Lain lain.<hr size=1 color=silver>\n Pilihan: <a href='?mnux=presenter&gos=PresenterAdd&md=1'>Tambah Dosen</a> |\n <a href='?mnux=dosen&gos='>Kembali ke Daftar Presenter</a>");
}
}
}
function LokasiAssetSav() {
global $DefaultGOS, $KodeID;
$md = $_REQUEST['md']+0;
$Nama = strtoupper(sqling($_REQUEST['Nama']));
$LokasiID = $_REQUEST['LokasiID']+0;
$NA = (empty($_REQUEST['NA']))? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update lokasiasset set LokasiID='$LokasiID', Nama='$Nama', LoginEdit='$_SESSION[_Nama]', TanggalEdit='$Actiondate', NA='$NA'
where LokasiID=$LokasiID";
$r = _query($s);
$DefaultGOS();
}
else {
$ada = GetFields('lokasiasset', "KodeID='$KodeID' and LokasiID", $LokasiID, '*');
if (empty($ada)) {
$s = "insert into lokasiasset (LokasiID, Nama, KodeID, LoginAdd, TanggalAdd, NA)
values ('$KelompokAssetID', '$Nama', '$KodeID', '$_SESSION[_Nama]', '$Actiondate', '$NA')";
$r = _query($s);
echo "<script>window.location = '?mnux=lokasi.asset'; </script>";
}
else {
echo ErrorMsg("Gagal Simpan",
"Data pejabat <b>$JabatanID</b> sudah ada.<br />
Anda tidak dapat memasukkan jabatan ini lebih dari 1 kali.");
$DefaultGOS();
}
}
}
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 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 GolSav()
{
$_GID = $_REQUEST['_GID'];
$_KID = $_REQUEST['_KID'];
$Pangkat = sqling($_REQUEST['Pangkat']);
$Nama = sqling($_REQUEST['Nama']);
$TunjanganFungsional = $_REQUEST['TunjanganFungsional'] + 0;
$TunjanganSKS = $_REQUEST['TunjanganSKS'] + 0;
$TunjanganTransport = $_REQUEST['TunjanganTransport'] + 0;
$TunjanganTetap = $_REQUEST['TunjanganTetap'] + 0;
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
$md = $_REQUEST['md'] + 0;
$balik = "<script>window.location='?mnux=golongan';</script>";
if ($md == 0) {
$s = "update golongan\r\n set Pangkat='{$Pangkat}', Nama='{$Nama}',\r\n TunjanganFungsional={$TunjanganFungsional},\r\n TunjanganSKS={$TunjanganSKS},\r\n TunjanganTransport={$TunjanganTransport},\r\n TunjanganTetap={$TunjanganTetap},\r\n NA='{$NA}'\r\n where GolonganID='{$_GID}' and ProdiID='{$_SESSION['prodi']}' and KategoriID='{$_KID}' ";
$r = _query($s);
echo $balik;
} else {
$ada = GetFields("golongan", "GolonganID='{$_GID}' and KategoriID", $_KID, '*');
if (empty($ada)) {
} else {
echo ErrorMsg("Data sudah Ada", "Data untuk golongan: <font size=+1>{$_GID}</font> dan Kategori: <font size=+1>{$_KID}</font>\r\n sudah ada. Anda tidak boleh memasukkan golongan & kategori ini lebih dari 1 kali.\r\n <hr size=1 color=silver>\r\n Pilihan: <input type=button name='Kembali' value='Kembali' onClick=\"location='?'\">");
}
}
}
function KurSav()
{
$md = $_REQUEST['md'] + 0;
$KurikulumID = $_REQUEST['KurikulumID'];
$KurikulumKode = $_REQUEST['KurikulumKode'];
$Nama = sqling($_REQUEST['Nama']);
$Sesi = sqling($_REQUEST['Sesi']);
$JmlSesi = $_REQUEST['JmlSesi'] + 0;
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
// simpan
if ($md == 0) {
$s = "update kurikulum set KurikulumKode='{$KurikulumKode}',\r\n Nama='{$Nama}', Sesi='{$Sesi}', JmlSesi='{$JmlSesi}', NA='{$NA}', TglEdit=now(), LoginEdit='{$_SESSION['_Login']}'\r\n where KurikulumID='{$_REQUEST['KurikulumID']}' ";
$r = _query($s);
// update jika jadi aktif
} else {
$s = "insert into kurikulum (KurikulumKode, KodeID, ProdiID, Nama, Sesi, JmlSesi, NA, TglBuat, LoginBuat)\r\n values('{$KurikulumKode}', '{$_REQUEST['KodeID']}', '{$_SESSION['prodi']}', '{$Nama}', '{$Sesi}', '{$JmlSesi}', '{$NA}', now(), '{$_SESSION['_Login']}')";
$r = _query($s);
$KurikulumID = GetLastID();
}
// Non aktifkan yg lain
/* ~~~ 03/11/2008 --> supaya bisa banyak kurikulum aktif
if ($NA == 'N') {
$s1 = "update kurikulum set NA='Y'
where ProdiID='$_SESSION[prodi]' and KurikulumID<>$KurikulumID";
$r1 = _query($s1);
}
*/
BerhasilSimpan("?mnux={$_SESSION['mnux']}", 100);
}
function SyaratSav()
{
$md = $_REQUEST['md'] + 0;
$Nama = sqling($_REQUEST['Nama']);
$_StatusAwalID = array();
$_StatusAwalID = $_REQUEST['StatusAwalID'];
$StatusAwalID = empty($_StatusAwalID) ? '' : "." . implode('.', $_StatusAwalID) . ".";
$_ProdiID = array();
$_ProdiID = $_REQUEST['ProdiID'];
$ProdiID = empty($_ProdiID) ? '' : "." . implode('.', $_ProdiID) . ".";
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update pmbsyarat set ProdiID='{$ProdiID}', StatusAwalID='{$StatusAwalID}', NA='{$NA}'\r\n where PMBSyaratID='{$_REQUEST['syid']}' and KodeID='{$_SESSION['KodeID']}' ";
$r = _query($s);
} else {
$ada = GetFields('pmbsyarat', "KodeID='{$_SESSION['KodeID']}' and PMBSyaratID", $_REQUEST['syid'], '*');
if (empty($ada)) {
$s = "insert into pmbsyarat (PMBSyaratID, KodeID, Nama, StatusAwalID, ProdiID, NA)\r\n values ('{$_REQUEST['syid']}', '{$_SESSION['KodeID']}', '{$Nama}', '{$StatusAwalID}', '{$ProdiID}', '{$NA}')";
$r = _query($s);
} else {
echo ErrorMsg("Gagal Simpan", "Anda tidak bisa menyimpan syarat dengan ID <b>{$_REQUEST['syid']}</b> karena telah digunakan:\r\n <p><table class=bsc cellspacing=1 cellpadding=4>\r\n <tr><td class=ul>ID</td><td class=ul><b>{$ada['PMBSyaratID']}</b></td></tr>\r\n <tr><td class=ul>Nama</td><td class=ul><b>{$ada['Nama']}</b></td></tr>\r\n </table></p>");
}
}
DftrSyarat();
}
function KurSav()
{
$md = $_REQUEST['md'] + 0;
$KurikulumID = $_REQUEST['KurikulumID'];
$KurikulumKode = $_REQUEST['KurikulumKode'];
$Nama = sqling($_REQUEST['Nama']);
$Sesi = sqling($_REQUEST['Sesi']);
$JmlSesi = $_REQUEST['JmlSesi'] + 0;
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
// simpan
if ($md == 0) {
$s = "update kurikulum set KurikulumKode='{$KurikulumKode}',\r\n Nama='{$Nama}', Sesi='{$Sesi}', JmlSesi='{$JmlSesi}', NA='{$NA}', TglEdit=now(), LoginEdit='{$_SESSION['_Login']}'\r\n where KurikulumID='{$_REQUEST['KurikulumID']}' ";
$r = _query($s);
// update jika jadi aktif
} else {
$s = "insert into kurikulum (KurikulumKode, KodeID, ProdiID, Nama, Sesi, JmlSesi, NA, TglBuat, LoginBuat)\r\n values('{$KurikulumKode}', '{$_REQUEST['KodeID']}', '{$_SESSION['prodi']}', '{$Nama}', '{$Sesi}', '{$JmlSesi}', '{$NA}', now(), '{$_SESSION['_Login']}')";
$r = _query($s);
$KurikulumID = GetLastID();
}
// Non aktifkan yg lain
if ($NA == 'N') {
$s1 = "update kurikulum set NA='Y'\r\n where ProdiID='{$_SESSION['prodi']}' and KurikulumID<>{$KurikulumID}";
$r1 = _query($s1);
}
DefKur();
}
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 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 RSSAV()
{
$md = $_REQUEST['md'] + 0;
$RSID = $_REQUEST['RSID'];
$Nama = sqling($_REQUEST['Nama']);
$Alamat = sqling($_REQUEST['Alamat']);
$Kota = sqling($_REQUEST['Kota']);
$KodePos = sqling($_REQUEST['KodePos']);
$Propinsi = sqling($_REQUEST['Propinsi']);
$Negara = sqling($_REQUEST['Negara']);
$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 rumahsakit\r\n set Nama='{$Nama}',\r\n Alamat='{$Alamat}', Kota='{$Kota}',\r\n KodePos='{$KodePos}', Propinsi='{$Propinsi}',\r\n Negara='{$Negara}', Telephone='{$Telephone}', Fax='{$Fax}',\r\n Website='{$Website}', Email='{$Email}',\r\n Kontak='{$Kontak}', JabatanKontak='{$JabatanKontak}',\r\n HandphoneKontak='{$HandphoneKontak}', EmailKontak='{$EmailKontak}',\r\n NA='{$NA}'\r\n where RSID='{$RSID}' ";
$r = _query($s);
TampilkanDaftarRS();
} else {
$ada = GetFields("rumahsakit", "RSID", $RSID, "RSID, Nama");
if (empty($ada)) {
$s = "insert into rumahsakit\r\n (RSID, Nama, Alamat, Kota, KodePos, Propinsi,\r\n Negara, Telephone, Fax,\r\n Website, Email,\r\n Kontak, JabatanKontak,\r\n HandphoneKontak, EmailKontak, NA)\r\n values\r\n ('{$RSID}', '{$Nama}', '{$Alamat}', '{$Kota}', '{$KodePos}', '{$Propinsi}',\r\n '{$Negara}', '{$Telephone}', '{$Fax}',\r\n '{$Website}', '{$Email}',\r\n '{$Kontak}', '{$JabatanKontak}',\r\n '{$Handphone}', '{$EmailKontak}', '{$NA}')";
$r = _query($s);
echo "<script>window.location='?mnux=rumahsakit';</script>";
} else {
echo ErrorMsg("Tidak Dapat Disimpan", "Data Rumahsakit tidak dapat disimpan karena Kode: <font size=+1>{$RSID}</font>\r\n telah digunakan oleh <b>{$ada['Nama']}</b>.<br />\r\n Gunakan kode lain.\r\n <hr size=1>\r\n Pilihan: <a href='?mnux=rumahsakit'>Kembali</a>");
}
}
}
function KampSav()
{
$md = $_REQUEST['md'] + 0;
$KampusID = $_REQUEST['KampusID'];
$Nama = sqling($_REQUEST['Nama']);
$KodeID = $_REQUEST['KodeID'];
$Alamat = sqling($_REQUEST['Alamat']);
$Kota = sqling($_REQUEST['Kota']);
$Telepon = sqling($_REQUEST['Telepon']);
$Fax = sqling($_REQUEST['Fax']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
// simpan
if ($md == 0) {
$s = "update kampus set Nama='{$Nama}', KodeID='{$KodeID}',\r\n Alamat='{$Alamat}', Kota='{$Kota}', Telepon='{$Telepon}', Fax='{$Fax}', NA='{$NA}'\r\n where KampusID='{$KampusID}' ";
$r = _query($s);
} else {
$ada = GetFields('kampus', 'KampusID', $KampusID, '*');
if (!empty($ada)) {
echo ErrorMsg("Gagal Simpan", "Kampus dengan kode: <b>{$KampusID}</b> telah ada dengan nama <b>{$ada['Nama']}</b>.<br>\r\n Gunakan kode kampus lain.");
} else {
$s = "insert into kampus (KampusID, Nama, KodeID,\r\n Alamat, Kota, Telepon, Fax, NA)\r\n values ('{$KampusID}', '{$Nama}', '{$KodeID}',\r\n '{$Alamat}', '{$Kota}', '{$Telepon}', '{$Fax}', '{$NA}')";
$r = _query($s);
}
}
DftrKampus();
}
function UpdateBypassTunggakan()
{
$KHSID = sqling($_REQUEST['KHSID']);
// Jumlah Print Tagihan
$s = "update khs set BypassTunggakan = 'Y' where KHSID = '{$KHSID}'";
$r = _query($s);
echo "<script>window.location='?'</script>";
}
function BankSav()
{
$Autodebet = empty($_REQUEST['Autodebet']) ? 'N' : $_REQUEST['Autodebet'];
$NamaBank = sqling($_REQUEST['NamaBank']);
$NomerRekening = sqling($_REQUEST['NomerRekening']);
$s = "update mhsw set Autodebet='{$Autodebet}',\n NamaBank='{$NamaBank}', NomerRekening='{$NomerRekening}'\n where MhswID='{$_REQUEST['mhswid']}' ";
$r = _query($s);
}
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);
}
