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();
}
Example #2
0
function Simpan($gel, $id, $tn)
{
    include_once "statusaplikan.lib.php";
    $_PMBDigit = 4;
    $frm = GetFields('pmbformulir', 'PMBFormulirID', $id, '*');
    $BuktiSetoran = sqling($_REQUEST['BuktiSetoran']);
    $AplikanID = $_REQUEST['AplikanID'];
    $ProdiID = $_REQUEST['ProdiID'];
    $Nama = sqling($_REQUEST['Nama']);
    $Keterangan = sqling($_REQUEST['Keterangan']);
    $CekSyarat = $_REQUEST['CekSyarat'];
    // Cek prasyarat pembelian formulir
    $MsgList = array();
    if ($frm['Prasyarat'] == 'Y') {
        $arrPrasyarat = explode('|', $frm['PrasyaratExtra']);
        $n = 0;
        foreach ($arrPrasyarat as $persyarat) {
            $n++;
            $arr = explode('~', $persyarat);
            // $arr[0] adalah PMBFormSyaratID, $arr[1] adalah 'Y' atau 'N' digunakan, $arr[2] adalah Tambahan input untuk prasyarat
            $pmbformsyarat = GetFields('pmbformsyarat', "PMBFormSyaratID='{$arr['0']}' and KodeID", KodeID, "*");
            if ($arr[1] == 'Y') {
                if ($pmbformsyarat['AdaScript'] == 'Y') {
                    $pos = strpos($pmbformsyarat['Script'], '=INPUT=');
                    if ($pos > 0) {
                        $_Script = str_replace('=INPUT=', "'{$arr['2']}'", $pmbformsyarat['Script']);
                        $cari = GetaField('aplikan', "AplikanID='{$AplikanID}' and {$_Script} and KodeID", KodeID, "AplikanID");
                        if (empty($cari)) {
                            $MsgList[] = "Syarat {$pmbformsyarat['Nama']} tidak terpenuhi.";
                        }
                    }
                } else {
                    if (!empty($CekSyarat)) {
                        if (!in_array($pmbformsyarat['PMBFormSyaratID'], $CekSyarat)) {
                            $MsgList[] = "Syarat {$pmbformsyarat['Nama']} tidak terpenuhi.";
                        }
                    } else {
                        $MsgList[] = "Syarat {$pmbformsyarat['Nama']} tidak terpenuhi.";
                    }
                }
            }
        }
    }
    if (!empty($MsgList)) {
        echo "<table class=box cellspacing=1 width=100%>";
        echo "<tr><td class=inpx>Terdapat syarat-syarat pembelian formulir yang tidak terpenuhi:</td></tr>";
        foreach ($MsgList as $msg) {
            echo "<tr><td>&bull; <b>{$msg}</b></td></tr>";
        }
        echo "<tr><td class=ul1 align=center><input type=button name='Tutup' value='Tutup' onClick=\"window.close()\"></td></tr>\r\n\t  </table>";
    } else {
        // Buat nomer baru
        $nomer = str_pad('', $_PMBDigit, '_', STR_PAD_LEFT);
        $nomer = $gel . $nomer;
        $akhir = GetaField('pmbformjual', "PMBFormJualID like '{$nomer}' and KodeID", KodeID, "max(PMBFormJualID)");
        $nmr = str_replace($gel, '', $akhir);
        $nmr++;
        $baru = str_pad($nmr, $_PMBDigit, '0', STR_PAD_LEFT);
        $baru = $gel . $baru;
        // Simpan
        $s = "insert into pmbformjual\r\n\t\t(PMBFormJualID, PMBFormulirID, KodeID, AplikanID,\r\n\t\tTanggal, PMBPeriodID, BuktiSetoran, ProdiID,\r\n\t\tNama, LoginBuat, TanggalBuat,\r\n\t\tKeterangan, Jumlah)\r\n\t\tvalues\r\n\t\t('{$baru}', '{$id}', '" . KodeID . "', '{$AplikanID}', \r\n\t\tnow(), '{$gel}', '{$BuktiSetoran}', '{$ProdiID}', \r\n\t\tupper('{$Nama}'), '{$_SESSION['_Login']}', now(),\r\n\t\t'{$Keterangan}', '{$frm['Harga']}')";
        $r = _query($s);
        $s1 = "update aplikan set PMBFormJualID='{$baru}', PMBFormulirID='{$id}'\r\n\t\t\t\twhere AplikanID = '{$AplikanID}' ";
        $r1 = _query($s1);
        // Set Status Peminat menjadi BLI
        SetStatusAplikan('BLI', $AplikanID, $gel);
        echo "<script>opener.location='../index.php?mnux={$_SESSION['mnux']}';</script>";
        // Tampilkan pesan
        $hrg = number_format($frm['Harga']);
        TutupScript();
        // Tampilkan kwitansi
        TampilkanJudul("Cetak Kwitansi");
        echo "<table class=box cellspacing=1 align=center width=90%>\r\n\t  <tr><td class=inp>No. Formulir:</td>\r\n\t\t  <td class=ul1><font size=+1>{$baru}</font></td>\r\n\t\t  </tr>\r\n\t  <tr><td class=inp>Gelombang:</td>\r\n\t\t  <td class=ul1>{$gel}</td>\r\n\t\t  </tr>\r\n\t  <tr><td class=inp>Formulir:</td>\r\n\t\t  <td class=ul1>{$frm['Nama']}</td>\r\n\t\t  </tr>\r\n\t  <tr><td class=inp>Jumlah Pilihan:</td>\r\n\t\t  <td class=ul1>{$frm['JumlahPilihan']}</td>\r\n\t\t  </tr>\r\n\t  <tr><td class=inp>Harga:</td>\r\n\t\t  <td class=ul1>{$hrg}</td>\r\n\t\t  </tr>\r\n\t  <tr><td class=inp>Nama:</td>\r\n\t\t  <td class=ul1><font size=+1>{$Nama}</font></td>\r\n\t\t  </tr>\r\n\t  <tr><td class=ul1 colspan=2 align=center>\r\n\t\t  <input type=button name='Tutup' value='Tutup' onClick=\"javascript:ttutup('{$_SESSION['mnux']}')\" />\r\n\t\t  <input type=button name='CetakKwitansi' value='Cetak Kwitansi'\r\n\t\t\tonClick=\"location='../{$_SESSION['mnux']}.kwitansi.php?id={$baru}' \" />\r\n\t\t  </td>\r\n\t\t  </tr>\r\n\t  </table>";
    }
}
Example #3
0
function fnSave()
{
    include_once "statusaplikan.lib.php";
    $md = $_REQUEST['md'] + 0;
    $id = $_REQUEST['id'];
    $gel = sqling($_REQUEST['gel']);
    $AplikanID = $id;
    if ($md == 1) {
        $AplikanID = GetNextAplikanID($gel);
        $ada = GetaField('aplikan', "KodeID='" . KodeID . "' and AplikanID", $AplikanID, 'AplikanID');
        if (!empty($ada)) {
            die(ErrorMsg('Error', "Nomer Aplikan sudah ada.<br />\r\n          Anda harus memasukkan nomer Aplikan yang lain.<br />\r\n          Hubungi Sysadmin untuk informasi lebih lanjut.\r\n          <hr size=1 color=silver />\r\n          Opsi: <input type=button name='Kembali' value='Kembali'\r\n            onClick=\"javascript:history.go(-1)\" />\r\n            <input type=button name='Tutup' value='Tutup'\r\n            onClick=\"window.close()\" />"));
        }
    }
    $PresenterID = $_REQUEST['PresenterID'];
    $CatatanPresenter = sqling($_REQUEST['CatatanPresenter']);
    $Nama = mysql_escape_string(sqling($_REQUEST['Nama']));
    $Kelamin = sqling($_REQUEST['Kelamin']);
    $TempatLahir = sqling($_REQUEST['TempatLahir']);
    $TanggalLahir = "{$_REQUEST['TGL_y']}-{$_REQUEST['TGL_m']}-{$_REQUEST['TGL_d']}";
    $TGLBuat = "{$_REQUEST['TGLBuat_y']}-{$_REQUEST['TGLBuat_m']}-{$_REQUEST['TGLBuat_d']}";
    $Agama = sqling($_REQUEST['Agama']);
    $Alamat = sqling($_REQUEST['Alamat']);
    $Kota = sqling($_REQUEST['Kota']);
    $Propinsi = sqling($_REQUEST['Propinsi']);
    $KodePos = sqling($_REQUEST['KodePos']);
    $RT = sqling($_REQUEST['RT']);
    $RW = sqling($_REQUEST['RW']);
    $Telepon = sqling($_REQUEST['Telepon']);
    $Handphone = sqling($_REQUEST['Handphone']);
    $Email = sqling($_REQUEST['Handphone']);
    $AsalSekolah = sqling($_REQUEST['SavAsalSekolah']);
    $AlamatSekolah = $_REQUEST['AlamatSekolah'];
    $JurusanSekolah = sqling($_REQUEST['JurusanSekolah']);
    $TahunLulus = sqling($_REQUEST['TahunLulus']);
    $SudahBekerja = !empty($_REQUEST['SudahBekerja']) ? 'Y' : 'N';
    $NilaiSekolah = $_REQUEST['NilaiSekolah'];
    $NamaAyah = sqling($_REQUEST['NamaAyah']);
    $PendidikanAyah = sqling($_REQUEST['PendidikanAyah']);
    $PekerjaanAyah = sqling($_REQUEST['PekerjaanAyah']);
    $Program = $_REQUEST['Program'];
    $Catatan = sqling($_REQUEST['Catatan']);
    $SumberInfo = implode(',', $_REQUEST['sumberinfo']);
    // Simpan
    $Pilihan = $_REQUEST['Pilihan'];
    $ProdiID = "";
    foreach ($Pilihan as $prodi) {
        $ProdiID .= empty($ProdiID) ? $prodi : ',' . $prodi;
    }
    if ($md == 0) {
        $s = "update aplikan\r\n      set PresenterID = '{$PresenterID}', CatatanPresenter = '{$CatatanPresenter}', AplikanID = '{$AplikanID}', \r\n\t\t  Nama = '{$Nama}', Kelamin = '{$Kelamin}', TempatLahir = '{$TempatLahir}', TanggalLahir = '{$TanggalLahir}',\r\n          Agama = '{$Agama}', Alamat = '{$Alamat}', Kota = '{$Kota}', Propinsi = '{$Propinsi}', KodePos = '{$KodePos}', RT = '{$RT}', RW = '{$RW}',\r\n          Telepon = '{$Telepon}', Handphone = '{$Handphone}', Email = '{$Email}',\r\n          AsalSekolah = '{$AsalSekolah}', AlamatSekolah='{$AlamatSekolah}', JurusanSekolah = '{$JurusanSekolah}', TahunLulus = '{$TahunLulus}', \r\n\t\t  SudahBekerja = '{$SudahBekerja}', NilaiSekolah = '{$NilaiSekolah}',\r\n          NamaAyah = '{$NamaAyah}', PendidikanAyah = '{$PendidikanAyah}', PekerjaanAyah = '{$PekerjaanAyah}',\r\n          ProdiID='{$ProdiID}', ProgramID = '{$Program}', \r\n          Catatan = '{$Catatan}', SumberInformasi = '{$SumberInfo}',\r\n          LoginEdit = '{$_SESSION['_Login']}', TanggalEdit = '{$TGLBuat}'\r\n      where AplikanID = '{$id}' ";
        $r = _query($s);
        SetStatusAplikan('APL', $AplikanID, $gel);
        TutupScript();
    } elseif ($md == 1) {
        $s = "insert into aplikan\r\n      (KodeID, PMBPeriodID,  PresenterID, AplikanID, CatatanPresenter, \r\n      Nama, Kelamin, TempatLahir, TanggalLahir,\r\n      Agama, Alamat, Kota, Propinsi, KodePos, RT, RW,\r\n      Telepon, Handphone, Email,\r\n      AsalSekolah, AlamatSekolah, JurusanSekolah, TahunLulus, \r\n\t  SudahBekerja, NilaiSekolah, \r\n      NamaAyah, PendidikanAyah, PekerjaanAyah,\r\n      ProdiID, ProgramID, \r\n      Catatan, SumberInformasi,\r\n\t  Login, Password, \r\n      LoginBuat, TanggalBuat, TanggalEdit)\r\n      values\r\n      ('" . KodeID . "', '{$gel}', '{$PresenterID}', '{$AplikanID}', '{$CatatanPresenter}', \r\n      '{$Nama}', '{$Kelamin}', '{$TempatLahir}', '{$TanggalLahir}',\r\n      '{$Agama}', '{$Alamat}', '{$Kota}', '{$Propinsi}', '{$KodePos}', '{$RT}', '{$RW}',\r\n      '{$Telepon}', '{$Handphone}', '{$Email}',\r\n      '{$AsalSekolah}', '{$AlamatSekolah}', '{$JurusanSekolah}', '{$TahunLulus}', \r\n\t  '{$SudahBekerja}', '{$NilaiSekolah}',\r\n      '{$NamaAyah}', '{$PendidikanAyah}', '{$PekerjaanAyah}',\r\n      '{$ProdiID}', '{$Program}',\r\n      '{$Catatan}', '{$SumberInfo}',\r\n\t  '{$AplikanID}', PASSWORD('{$TanggalLahir}'),\r\n      '{$_SESSION['_Login']}', now(), '{$TGLBuat}')";
        $r = _query($s);
        SetStatusAplikan('APL', $AplikanID, $gel);
        TutupScript();
    } else {
        die(ErrorMsg('Error', "Mode edit <b>{$md}</b> tidak dikenali sistem.<br />\r\n    Hubungi Sysadmin untuk informasi lebih lanjut.\r\n    <hr size=1 color=silver />\r\n    <input type=button name='btnClose' value='Tutup' onClick='window.close()' />"));
    }
}
Example #4
0
function SavData($ProdiUSMID, $ruangid, $gel)
{
    include_once "statusaplikan.lib.php";
    $Jumlah = $_REQUEST['Jumlah'];
    $ProdiUSMID = $_REQUEST['ProdiUSMID'];
    $gel = $_REQUEST['gel'];
    if ($_SESSION['_usm_jenisx'] == 1) {
        for ($i = 1; $i <= $Jumlah; $i++) {
            $_index = $_REQUEST["Index{$i}"];
            $_nilai = $_REQUEST["Nilai{$i}"];
            $s = "update ruangusm set NilaiUSM='{$_nilai}' where RuangUSMID='{$_index}' and KodeID='" . KodeID . "'";
            $r = _query($s);
        }
    } else {
        for ($i = 1; $i <= $Jumlah; $i++) {
            $_index = $_REQUEST["Index{$i}"];
            $_pilih = $_REQUEST["Pilihan{$i}"];
            if (empty($_pilih)) {
                $s = "update ruangusm set Kehadiran='N' where RuangUSMID='{$_index}' and KodeID='" . KodeID . "'";
                $r = _query($s);
            } else {
                $s = "update ruangusm set Kehadiran='Y' where RuangUSMID='{$_index}' and KodeID='" . KodeID . "'";
                $r = _query($s);
                //$AplikanID = GetaField('ruangusm ru left outer join pmb p on ru.PMBID=p.PMBID', "ru.RuangUSMID='$_index' and ru.KodeID", KodeID, "p.AplikanID");
                $PMBID = GetaField('ruangusm', "RuangUSMID='{$_index}' and KodeID", KodeID, "PMBID");
                $AplikanID = GetaField('pmb', "PMBID='{$PMBID}' and KodeID", KodeID, "AplikanID");
                SetStatusAplikan('USM', $AplikanID, $gel);
            }
        }
    }
    echo "<script>location='../{$_SESSION['mnux']}.frame.php?gos=&ProdiUSMID={$ProdiUSMID}&gel={$gel}'</script>";
}
Example #5
0
function Simpan($gel, $id)
{
    include_once "statusaplikan.lib.php";
    $PresenterID = $_REQUEST['PresenterID'];
    $Nama = mysql_escape_string(sqling($_REQUEST['Nama']));
    $Kelamin = sqling($_REQUEST['Kelamin']);
    $TempatLahir = sqling($_REQUEST['TempatLahir']);
    $TanggalLahir = "{$_REQUEST['TGL_y']}-{$_REQUEST['TGL_m']}-{$_REQUEST['TGL_d']}";
    $TGLBuat = "{$_REQUEST['TGLBuat_y']}-{$_REQUEST['TGLBuat_m']}-{$_REQUEST['TGLBuat_d']}";
    $Agama = sqling($_REQUEST['Agama']);
    $Alamat = sqling($_REQUEST['Alamat']);
    $Kota = sqling($_REQUEST['Kota']);
    $Propinsi = sqling($_REQUEST['Propinsi']);
    $KodePos = sqling($_REQUEST['KodePos']);
    $RT = sqling($_REQUEST['RT']);
    $RW = sqling($_REQUEST['RW']);
    $Telepon = sqling($_REQUEST['Telepon']);
    $Handphone = sqling($_REQUEST['Handphone']);
    $Email = sqling($_REQUEST['Email']);
    $AsalSekolah = sqling($_REQUEST['SavAsalSekolah']);
    $AlamatSekolah = sqling($_REQUEST['AlamatSekolah']);
    $JurusanSekolah = sqling($_REQUEST['JurusanSekolah']);
    $TahunLulus = sqling($_REQUEST['TahunLulus']);
    $SudahBekerja = !empty($_REQUEST['SudahBekerja']) ? 'Y' : 'N';
    $NilaiSekolah = $_REQUEST['NilaiSekolah'];
    $NamaAyah = sqling($_REQUEST['NamaAyah']);
    $PendidikanAyah = sqling($_REQUEST['PendidikanAyah']);
    $PekerjaanAyah = sqling($_REQUEST['PekerjaanAyah']);
    $Program = $_REQUEST['Program'];
    $Catatan = sqling($_REQUEST['Catatan']);
    $SumberInfo = implode(',', $_REQUEST['sumberinfo']);
    // Simpan
    $Pilihan = $_REQUEST['Pilihan'];
    $ProdiID = "";
    foreach ($Pilihan as $prodi) {
        $ProdiID .= empty($ProdiID) ? $prodi : ',' . $prodi;
    }
    // simpan
    $s = "update aplikan\r\n      set PresenterID = '{$PresenterID}',\r\n\t\t  Nama = '{$Nama}', Kelamin = '{$Kelamin}', TempatLahir = '{$TempatLahir}', TanggalLahir = '{$TanggalLahir}',\r\n          Agama = '{$Agama}', Alamat = '{$Alamat}', Kota = '{$Kota}', Propinsi = '{$Propinsi}', KodePos = '{$KodePos}', RT = '{$RT}', RW = '{$RW}',\r\n          Telepon = '{$Telepon}', Handphone = '{$Handphone}', Email = '{$Email}',\r\n          AsalSekolah = '{$AsalSekolah}', AlamatSekolah='{$AlamatSekolah}', JurusanSekolah = '{$JurusanSekolah}', TahunLulus = '{$TahunLulus}', \r\n\t\t  SudahBekerja = '{$SudahBekerja}', NilaiSekolah = '{$NilaiSekolah}',\r\n          NamaAyah = '{$NamaAyah}', PendidikanAyah = '{$PendidikanAyah}', PekerjaanAyah = '{$PekerjaanAyah}',\r\n          ProdiID='{$ProdiID}', ProgramID = '{$Program}', \r\n          Catatan = '{$Catatan}', SumberInformasi = '{$SumberInfo}',\r\n          LoginEdit = '{$_SESSION['_Login']}', TanggalEdit = '{$TGLBuat}'\r\n      where AplikanID = '{$id}' ";
    $r = _query($s);
    SetStatusAplikan('APL', $id, $gel);
    BerhasilSimpan("?mnux={$_SESSION['mnux']}", 1000);
}
Example #6
0
function fnDaftarkanPMB()
{
    $id = sqling($_REQUEST['id']);
    $gel = sqling($_REQUEST['gel']);
    $a = GetFields('aplikan', "AplikanID", $id, '*');
    if (empty($a)) {
        echo ErrorMsg("Error", "Data aplikan tidak ditemukan.<br />\r\n    Hubungi Sysadmin untuk informasi lebih lanjut.\r\n    <hr size=1 color=silver />\r\n    <input type=button name='btnKembali' value='Kembali'\r\n    onClick=\"location='?mnux={$_SESSION['mnux']}&gos='\" />");
    } else {
        $FormulirID = GetAField('pmbformjual', 'AplikanID', $id, 'PMBFormulirID');
        if (empty($FormulirID)) {
            echo ErrorMsg("Gagal", "Aplikan belum membeli formulir.<br> Data tidak disimpan. <br>\r\n\t\t\t\t\t\t\t<input type=button name='Kembali' value='Kembali'\r\n\t\t\t\t\t\t\t\tonClick=\"javascript:history.go(-1)\" />");
        } else {
            $PMBID = GetNextPMBID($gel);
            $arrayPilihan = explode(',', $a['Pilihan1']);
            $arrayPilihan2 = explode(',', $a['Pilihan2']);
            $arrayGabung = array();
            foreach ($arrayPilihan as $pilih) {
                if (!empty($pilih)) {
                    $arrayGabung[] = $pilih;
                }
            }
            foreach ($arrayPilihan2 as $pilih) {
                if (!empty($pilih)) {
                    $arrayGabung[] = $pilih;
                }
            }
            $s = "insert into pmb\r\n      (PMBID, PMBPeriodID, KodeID, AplikanID,\r\n      Nama, StatusAwalID, Kelamin, Pilihan1, Pilihan2, ProgramID, \r\n      TempatLahir, TanggalLahir, Agama, PMBFormulirID, PMBFormJualID, \r\n      Alamat, Kota, RT, RW, KodePos, Propinsi, Negara,\r\n      Telepon, Handphone, Email, \r\n      PendidikanTerakhir, AsalSekolah, JenisSekolahID,\r\n      AlamatSekolah, KotaSekolah, JurusanSekolah,\r\n      NilaiSekolah, TahunLulus,\r\n      LoginBuat, TanggalBuat)\r\n      values\r\n      ('{$PMBID}', '{$gel}', '" . KodeID . "', '{$a['AplikanID']}',\r\n      '{$a['Nama']}', 'B', '{$a['Kelamin']}', '{$arrayGabung['0']}', '{$arrayGabung['1']}', '{$a['ProgramID']}',\r\n      '{$a['TempatLahir']}', '{$a['TanggalLahir']}', '{$a['Agama']}', '{$a['PMBFormulirID']}', '{$a['PMBFormJualID']}',\r\n      '{$a['Alamat']}', '{$a['Kota']}', '{$a['RT']}', '{$a['RW']}', '{$a['KodePos']}', '{$a['Propinsi']}', '{$a['Negara']}',\r\n      '{$a['Telepon']}', '{$a['Handphone']}', '{$a['Email']}',\r\n      '{$a['PendidikanTerakhir']}', '{$a['AsalSekolah']}', '{$a['JenisSekolahID']}',\r\n      '{$a['AlamatSekolah']}', '{$a['KotaSekolah']}', '{$a['JurusanSekolah']}',\r\n      '{$a['NilaiSekolah']}', '{$a['TahunLulus']}',\r\n      '{$_SESSION['_Login']}', now())";
            $r = _query($s);
            // Set Status Aplika menjadi DFT
            SetStatusAplikan('DFT', $a['AplikanID']);
            // Tampilkan pesan //$_pmbNomer
            echo Konfirmasi("Proses Selesai", "Proses pendaftaran Aplikan ke PMB telah selesai.<br />\r\n    Nomer PMB: <font size=+1>{$PMBID}</font>\r\n    <hr size=1 color=silver /> \r\n    <input type=button name='btnKembali' value='Kembali'\r\n      onClick=\"window.location='?mnux={$_SESSION['mnux']}&gos='\" />\r\n    <input type=button name='btnDataPMB' value='{$PMBID}'\r\n      onClick=\"location='?mnux=pmb/pmbform&gos=&_pmbNomer={$PMBID}'\" /> (klik untuk masuk ke data PMB).<br />\r\n      ");
            // Reload
            $tmr = 10000;
            $_tmr = $tmr / 1000;
            echo <<<SCR
    <p align=center>
    <font color=red>Jika dalam {$_tmr} detik tidak ada respons,<br />
    maka sistem akan mengembalikan ke modul presenter.</font> 
    <script>
    window.onload=setTimeout("window.location='?mnux={$_SESSION['mnux']}&gos='", {$tmr});
    </script>
SCR;
        }
    }
}
Example #7
0
function Simpan($md, $gel, $id)
{
    include_once "statusaplikan.lib.php";
    $AplikanID = $_REQUEST['AplikanID'];
    if ($AplikanID == '' or empty($AplikanID)) {
        die(ErrorMsg('Error', "Nomer Aplikan ID kosong<br />\r\n\t\t\t  Anda harus memasukkan nomer AplikanID yang benar.<br />\r\n\t\t\t  Hubungi Sysadmin untuk informasi lebih lanjut.\r\n\t\t\t  <hr size=1 color=silver />\r\n\t\t\t  Opsi: <input type=button name='Kembali' value='Kembali'\r\n\t\t\t\tonClick=\"javascript:history.go(-1)\" />\r\n\t\t\t\t<input type=button name='Tutup' value='Tutup'\r\n\t\t\t\tonClick=\"window.close()\" />"));
    } else {
        $sss = "select Nama from `aplikan` where AplikanID='{$AplikanID}'";
        $rrr = _query($sss);
        $nnn = _num_rows($rrr);
        if ($nnn == 0) {
            die(ErrorMsg('Error', "Nomer Aplikan ID tidak diketemukan di dalam database<br />\r\n\t\t\t  Anda harus memasukkan nomer AplikanID yang benar.<br />\r\n\t\t\t  Hubungi Sysadmin untuk informasi lebih lanjut.\r\n\t\t\t  <hr size=1 color=silver />\r\n\t\t\t  Opsi: <input type=button name='Kembali' value='Kembali'\r\n\t\t\t\tonClick=\"javascript:history.go(-1)\" />\r\n\t\t\t\t<input type=button name='Tutup' value='Tutup'\r\n\t\t\t\tonClick=\"window.close()\" />"));
        } else {
            if ($nnn > 1) {
                die(ErrorMsg('Error', "Ditemukan Aplikan ID yang dobel. Harap dicek terlebih dahulu<br />\r\n\t\t\t  Hubungi Sysadmin untuk informasi lebih lanjut.\r\n\t\t\t  <hr size=1 color=silver />\r\n\t\t\t  Opsi: <input type=button name='Kembali' value='Kembali'\r\n\t\t\t\tonClick=\"javascript:history.go(-1)\" />\r\n\t\t\t\t<input type=button name='Tutup' value='Tutup'\r\n\t\t\t\tonClick=\"window.close()\" />"));
            } else {
                $Nama = sqling($_REQUEST['Nama']);
                $StatusAwalID = sqling($_REQUEST['StatusAwalID']);
                $StatusAwalID2 = !empty($_REQUEST['StatusAwalID2']) ? 'Y' : 'N';
                //if ($md == 0) { // edit
                $StatusAwalID = $StatusAwalID2 == 'Y' ? 'P' : $StatusAwalID;
                // arahkan ke "P" jika mahasiswa transfer diconteng
                //} else { // add
                //$StatusAwalID = ($StatusAwalID2 == 'Y')? 'P' : $StatusAwalID; // arahkan ke "P" jika mahasiswa transfer diconteng
                //}
                $TempatLahir = sqling($_REQUEST['TempatLahir']);
                $Kelamin = sqling($_REQUEST['Kelamin']);
                $TanggalLahir = "{$_REQUEST['TanggalLahir_y']}-{$_REQUEST['TanggalLahir_m']}-{$_REQUEST['TanggalLahir_d']}";
                $GolonganDarah = sqling($_REQUEST['GolonganDarah']);
                $Agama = sqling($_REQUEST['Agama']);
                $StatusSipil = sqling($_REQUEST['StatusSipil']);
                $TinggiBadan = sqling($_REQUEST['TinggiBadan']);
                $BeratBadan = sqling($_REQUEST['BeratBadan']);
                $WargaNegara = sqling($_REQUEST['WargaNegara']);
                $Kebangsaan = sqling($_REQUEST['Kebangsaan']);
                $TempatTinggal = $_REQUEST['TempatTinggal'];
                $Alamat = sqling($_REQUEST['Alamat']);
                $RT = sqling($_REQUEST['RT']);
                $RW = sqling($_REQUEST['RW']);
                $KodePos = sqling($_REQUEST['KodePos']);
                $Kota = sqling($_REQUEST['Kota']);
                $Propinsi = sqling($_REQUEST['Propinsi']);
                $Telepon = sqling($_REQUEST['Telepon']);
                $Handphone = sqling($_REQUEST['Handphone']);
                $Email = sqling($_REQUEST['Email']);
                $JarakRumah = $_REQUEST['JarakRumah'];
                $PendidikanTerakhir = sqling($_REQUEST['PendidikanTerakhir']);
                $AsalSekolah = sqling($_REQUEST['SavAsalSekolah']);
                $AlamatSekolah = $_REQUEST['AlamatSekolah'];
                $JurusanSekolah = $_REQUEST['JurusanSekolah'];
                $TahunLulus = sqling($_REQUEST['TahunLulus']);
                $NilaiSekolah = sqling($_REQUEST['NilaiSekolah']);
                $arrPT = array();
                for ($i = 1; $i <= 3; $i++) {
                    $arrPT[] = str_replace('~', '-', sqling($_REQUEST['PrestasiTambahan' . $i]));
                }
                foreach ($arrPT as $PT) {
                    $PrestasiTambahan = implode('~', $arrPT);
                }
                $NamaAyah = sqling($_REQUEST['NamaAyah']);
                $AgamaAyah = $_REQUEST['AgamaAyah'];
                $PendidikanAyah = $_REQUEST['PendidikanAyah'];
                $PekerjaanAyah = sqling($_REQUEST['PekerjaanAyah']);
                $AlamatAyah = sqling($_REQUEST['AlamatAyah']);
                $PenghasilanAyah = $_REQUEST['PenghasilanAyah'] + 0;
                $HidupAyah = $_REQUEST['HidupAyah'];
                $NamaIbu = sqling($_REQUEST['NamaIbu']);
                $AgamaIbu = $_REQUEST['AgamaIbu'];
                $PendidikanIbu = $_REQUEST['PendidikanIbu'];
                $PekerjaanIbu = sqling($_REQUEST['PekerjaanIbu']);
                $AlamatIbu = sqling($_REQUEST['AlamatIbu']);
                $PenghasilanIbu = $_REQUEST['PenghasilanIbu'] + 0;
                $HidupIbu = $_REQUEST['HidupIbu'];
                $BiayaStudi = $_REQUEST['BiayaStudi'];
                $AlamatOrtu = sqling($_REQUEST['AlamatOrtu']);
                $RTOrtu = sqling($_REQUEST['RTOrtu']);
                $RWOrtu = sqling($_REQUEST['RWOrtu']);
                $KodePosOrtu = sqling($_REQUEST['KodePosOrtu']);
                $KotaOrtu = sqling($_REQUEST['KotaOrtu']);
                $PropinsiOrtu = sqling($_REQUEST['PropinsiOrtu']);
                $TeleponOrtu = sqling($_REQUEST['TeleponOrtu']);
                $HandphoneOrtu = sqling($_REQUEST['HandphoneOrtu']);
                $EmailOrtu = sqling($_REQUEST['EmailOrtu']);
                $NamaPerusahaan = $_REQUEST['NamaPerusahaan'];
                $AlamatPerusahaan = $_REQUEST['AlamatPerusahaan'];
                $TeleponPerusahaan = $_REQUEST['TeleponPerusahaan'];
                $JabatanPerusahaan = $_REQUEST['JabatanPerusahaan'];
                $PMBFormulirID = $_REQUEST['PMBFormulirID'];
                $ProgramID = sqling($_REQUEST['ProgramID']);
                $TempatKuliahID = $_REQUEST['TempatKuliahID'];
                $frm = GetFields('pmbformulir', 'PMBFormulirID', $PMBFormulirID, '*');
                $pil = array();
                $vpil = array();
                $epil = array();
                for ($i = 1; $i <= $frm['JumlahPilihan']; $i++) {
                    $pil[] = 'Pilihan' . $i;
                    $vpil[] = "'" . sqling($_REQUEST['Pilihan' . $i]) . "'";
                    $epil[] = 'Pilihan' . $i . "='" . $_REQUEST['Pilihan' . $i] . "'";
                }
                $_pil = implode(', ', $pil);
                $_vpil = implode(', ', $vpil);
                $_epil = implode(', ', $epil);
                TutupScript();
                // simpan
                if ($md == 0) {
                    $s = "update pmb\r\n\t\t  set StatusAwalID = '{$StatusAwalID}', StatusAwalID2 = '{$StatusAwalID2}',\r\n\t\t\t  Nama = '{$Nama}',\r\n\t\t\t  TempatLahir = '{$TempatLahir}', TanggalLahir = '{$TanggalLahir}',\r\n\t\t\t  Kelamin = '{$Kelamin}', GolonganDarah = '{$GolonganDarah}',\r\n\t\t\t  Agama = '{$Agama}', StatusSipil = '{$StatusSipil}',\r\n\t\t\t  TinggiBadan = '{$TinggiBadan}', BeratBadan = '{$BeratBadan}',\r\n\t\t\t  WargaNegara = '{$WargaNegara}', Kebangsaan = '{$Kebangsaan}',\r\n\t\t\t  TempatTinggal = '{$TempatTinggal}', Alamat = '{$Alamat}',\r\n\t\t\t  RT = '{$RT}', RW = '{$RW}', KodePos = '{$KodePos}',\r\n\t\t\t  Kota = '{$Kota}', Propinsi = '{$Propinsi}',\r\n\t\t\t  Telepon = '{$Telepon}', Handphone = '{$Handphone}', Email = '{$Email}',\r\n\t\t\t  PendidikanTerakhir = '{$PendidikanTerakhir}',\r\n\t\t\t  AsalSekolah = '{$AsalSekolah}', AlamatSekolah = '{$AlamatSekolah}', TahunLulus = '{$TahunLulus}', \r\n\t\t\t  NilaiSekolah = '{$NilaiSekolah}', PrestasiTambahan = '{$PrestasiTambahan}',\r\n\t\t\t  NamaAyah = '{$NamaAyah}', AgamaAyah = '{$AgamaAyah}', PendidikanAyah = '{$PendidikanAyah}', \r\n\t\t\t  PekerjaanAyah = '{$PekerjaanAyah}', HidupAyah = '{$HidupAyah}', PenghasilanAyah = '{$PenghasilanAyah}',\r\n\t\t\t  NamaIbu = '{$NamaIbu}', AgamaIbu = '{$AgamaIbu}', PendidikanIbu = '{$PendidikanIbu}', \r\n\t\t\t  PekerjaanIbu = '{$PekerjaanIbu}', HidupIbu = '{$HidupIbu}', PenghasilanIbu = '{$PenghasilanIbu}',\r\n\t\t\t  BiayaStudi = '{$BiayaStudi}',\r\n\t\t\t  \r\n\t\t\t  AlamatOrtu = '{$AlamatOrtu}',\r\n\t\t\t  RTOrtu = '{$RTOrtu}', RWOrtu = '{$RWOrtu}', KodePosOrtu = '{$KodePosOrtu}',\r\n\t\t\t  KotaOrtu = '{$KotaOrtu}', PropinsiOrtu = '{$PropinsiOrtu}',\r\n\t\t\t  TeleponOrtu = '{$TeleponOrtu}', HandphoneOrtu = '{$HandphoneOrtu}', EmailOrtu = '{$EmailOrtu}',\r\n\t\t\t  PMBFormulirID = '{$PMBFormulirID}', ProgramID = '{$ProgramID}', TempatKuliahID='{$TempatKuliahID}',\r\n\t\t\t  \r\n\t\t\t  NamaPerusahaan = '{$NamaPerusahaan}', AlamatPerusahaan = '{$AlamatPerusahaan}',\r\n\t\t\t  TeleponPerusahaan = '{$TeleponPerusahaan}', JabatanPerusahaan = '{$JabatanPerusahaan}',\r\n\t\t\t  \r\n\t\t\t  {$_epil},\r\n\t\t\t  LoginEdit = '{$_SESSION['_Login']}', TanggalEdit = now()\r\n\t\t  where PMBID = '{$id}' ";
                    $r = _query($s);
                    SetStatusAplikan('DFT', $AplikanID, $gel);
                    echo "<script>ttutup()</script>";
                } elseif ($md == 1) {
                    // Cek jika ID manual
                    if (!empty($id)) {
                        $ada = GetaField('pmb', "KodeID='" . KodeID . "' and PMBID", $id, 'PMBID');
                        if (!empty($ada)) {
                            die(ErrorMsg('Error', "Nomer PMB sudah ada.<br />\r\n\t\t\t  Anda harus memasukkan nomer PMB yang lain.<br />\r\n\t\t\t  Atau kosongkan untuk mendapatkan nomer secara otomatis.<br />\r\n\t\t\t  Hubungi Sysadmin untuk informasi lebih lanjut.\r\n\t\t\t  <hr size=1 color=silver />\r\n\t\t\t  Opsi: <input type=button name='Kembali' value='Kembali'\r\n\t\t\t\tonClick=\"javascript:history.go(-1)\" />\r\n\t\t\t\t<input type=button name='Tutup' value='Tutup'\r\n\t\t\t\tonClick=\"window.close()\" />"));
                        }
                    } else {
                        $id = GetNextPMBIDFromGel($gel);
                    }
                    $FormulirID = GetaField('aplikan', 'AplikanID', $AplikanID, 'PMBFormulirID');
                    if (empty($FormulirID) or $FormulirID == '' or $FormulirID == NULL) {
                        echo Konfirmasi("Gagal", "Aplikan belum membeli formulir.<br> Data tidak disimpan. <br>\r\n\t\t\t\t\t\t\t\t<input type=button name='Kembali' value='Kembali'\r\n\t\t\t\t\t\t\t\t\tonClick=\"javascript:history.go(-1)\" />");
                    } else {
                        // Baru kemudian disimpan
                        $PMBFormJualID = GetaField('aplikan', 'AplikanID', $AplikanID, 'PMBFormJualID');
                        $s = "insert into pmb\r\n\t\t\t  (PMBID, AplikanID, PMBPeriodID, KodeID, StatusAwalID, StatusAwalID2, Nama, \r\n\t\t\t  TempatLahir, TanggalLahir, Kelamin, GolonganDarah,\r\n\t\t\t  Agama, StatusSipil, TinggiBadan, BeratBadan,\r\n\t\t\t  WargaNegara, Kebangsaan,\r\n\t\t\t  TempatTinggal, Alamat, RT, RW, KodePos, Kota, Propinsi, \r\n\t\t\t  Telepon, Handphone, Email,\r\n\t\t\t  PendidikanTerakhir, AsalSekolah, AlamatSekolah, \r\n\t\t\t  TahunLulus, NilaiSekolah, PrestasiTambahan, \r\n\t\t\t  NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah, PenghasilanAyah,\r\n\t\t\t  NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu, PenghasilanIbu, BiayaStudi, \r\n\t\t\t  AlamatOrtu, RTOrtu, RWOrtu, KodePosOrtu, KotaOrtu, PropinsiOrtu,\r\n\t\t\t  TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n\t\t\t  NamaPerusahaan, AlamatPerusahaan, TeleponPerusahaan, JabatanPerusahaan,\r\n\t\t\t  PMBFormulirID, ProgramID, ProdiID, TempatKuliahID, {$_pil},\r\n\t\t\t  \r\n\t\t\t  LoginBuat, TanggalBuat)\r\n\t\t\t  values\r\n\t\t\t  ('{$id}', '{$AplikanID}', '{$gel}', '" . KodeID . "', '{$StatusAwalID}', '{$StatusAwalID2}', '{$Nama}', \r\n\t\t\t  '{$TempatLahir}', '{$TanggalLahir}', '{$Kelamin}', '{$GolonganDarah}',\r\n\t\t\t  '{$Agama}', '{$StatusSipil}', '{$TinggiBadan}', '{$BeratBadan}',\r\n\t\t\t  '{$WargaNegara}', '{$Kebangsaan}',\r\n\t\t\t  '{$TempatTinggal}', '{$Alamat}', '{$RT}', '{$RW}', '{$KodePos}', '{$Kota}', '{$Propinsi}', \r\n\t\t\t  '{$Telepon}', '{$Handphone}', '{$Email}',\r\n\t\t\t  '{$PendidikanTerakhir}', '{$AsalSekolah}', '{$AlamatSekolah}',\r\n\t\t\t  '{$TahunLulus}', '{$NilaiSekolah}', '{$PrestasiTambahan}', \r\n\t\t\t  '{$NamaAyah}', '{$AgamaAyah}', '{$PendidikanAyah}', '{$PekerjaanAyah}', '{$HidupAyah}', '{$PenghasilanAyah}', \r\n\t\t\t  '{$NamaIbu}', '{$AgamaIbu}', '{$PendidikanIbu}', '{$PekerjaanIbu}', '{$HidupIbu}', '{$PenghasilanIbu}', '{$BiayaStudi}',\r\n\t\t\t  '{$AlamatOrtu}', '{$RTOrtu}', '{$RWOrtu}', '{$KodePosOrtu}', '{$KotaOrtu}', '{$PropinsiOrtu}',\r\n\t\t\t  '{$TeleponOrtu}', '{$HandphoneOrtu}', '{$EmailOrtu}',\r\n\t\t\t  '{$NamaPerusahaan}', '{$AlamatPerusahaan}', '{$TeleponPerusahaan}', '{$JabatanPerusahaan}',\r\n\t\t\t  '{$PMBFormulirID}', '{$ProgramID}', '{$ProdiID}', '{$TempatKuliahID}', {$_vpil},\r\n\t\t\t  \r\n\t\t\t  '{$_SESSION['_Login']}', now())";
                        $r = _query($s);
                        $s = "update aplikan set PMBID='{$id}' where AplikanID='{$AplikanID}'";
                        $r = _query($s);
                        SetStatusAplikan('DFT', $AplikanID, $gel);
                        if ($md == 1) {
                            echo "<script>window.location='?mnux={$_SESSION['mnux']}&gos=PilihKursi&md={$md}&gel={$gel}&id={$id}'</script>";
                        }
                    }
                } else {
                    die(ErrorMsg('Error', "Terjadi kesalahan mode edit.<br />\r\n\t\t\t  Mode <b>{$md}</b> tidak dikenali oleh sistem.\r\n\t\t\t  <hr size=1 color=silver />\r\n\t\t\t  <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
                }
            }
        }
    }
}
function Simpan($PMBID, $pmb)
{
    $ProdiID = sqling($_REQUEST['ProdiID']);
    $Catatan = sqling($_REQUEST['Catatan']);
    $NilaiUjianTotal = $_REQUEST['NilaiUjianTotal'];
    $rt = "rat_" . $_REQUEST['ProdiID'];
    $rat = $_REQUEST[$rt];
    $LulusUjian = empty($_REQUEST['LulusUjian']) ? 'N' : sqling($_REQUEST['LulusUjian']);
    // echo "#$rat1~$rat2~$rat3#";
    //
    $GradeNilai = GetaField('pmbgrade', "NilaiUjianMin <= {$rat}\r\n              and {$rat} <= NilaiUjianMax and KodeID", KodeID, 'GradeNilai');
    //jika lulusnya di centang
    if ($LulusUjian == 'Y') {
        $grd = $GradeNilai;
        $NilaiUjian = $rat;
    } else {
        $grd = $GradeNilai;
        $NilaiUjian = $rat;
    }
    //echo "#$rat1~$rat2~$rat3~$grd~$NilaiUjian#";
    //exit;
    // Simpan
    $s = "update pmb\r\n    set ProdiID = '{$ProdiID}',\r\n\t\tCatatan = '{$Catatan}',\r\n        LulusUjian = '{$LulusUjian}',\r\n        NilaiUjian = '{$NilaiUjian}',\r\n        NilaiUjianTotal = '{$NilaiUjianTotal}',\r\n\t\tGradeNilai = '{$grd}',\r\n        LoginEdit = '{$_SESSION['_Login']}',\r\n        TanggalEdit = now()\r\n    where KodeID = '" . KodeID . "' and PMBID = '{$PMBID}' ";
    $r = _query($s);
    TutupScript();
    include_once "statusaplikan.lib.php";
    SetStatusAplikan('LLS', GetaField('pmb', "PMBID='{$PMBID}' and KodeID", KodeID, 'AplikanID'), GetaField('pmbperiod', "KodeID='" . KodeID . "' and NA", 'N', "PMBPeriodID"));
}