function Simpan($gel, $id) { include_once "statusaplikan.lib.php"; $Nama = sqling($_REQUEST['Nama']); $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']); $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']); $TinggalDengan = $_REQUEST['TinggalDengan']; $JarakRumah = $_REQUEST['JarakRumah']; $PendidikanTerakhir = sqling($_REQUEST['PendidikanTerakhir']); $AsalSekolah = sqling($_REQUEST['AsalSekolah']); $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']; $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']); $PMBFormulirID = $_REQUEST['PMBFormulirID']; $ProgramID = sqling($_REQUEST['ProgramID']); $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); // simpan if ($md == 0) { $s = "update pmb\r\n set \r\n Nama = '{$Nama}',\r\n TempatLahir = '{$TempatLahir}', TanggalLahir = '{$TanggalLahir}',\r\n Kelamin = '{$Kelamin}', GolonganDarah = '{$GolonganDarah}',\r\n Agama = '{$Agama}', StatusSipil = '{$StatusSipil}',\r\n TinggiBadan = '{$TinggiBadan}', BeratBadan = '{$BeratBadan}',\r\n WargaNegara = '{$WargaNegara}', Kebangsaan = '{$Kebangsaan}',\r\n Alamat = '{$Alamat}',\r\n RT = '{$RT}', RW = '{$RW}', KodePos = '{$KodePos}',\r\n Kota = '{$Kota}', Propinsi = '{$Propinsi}',\r\n Telepon = '{$Telepon}', Handphone = '{$Handphone}', Email = '{$Email}',\r\n PendidikanTerakhir = '{$PendidikanTerakhir}',\r\n AsalSekolah = '{$AsalSekolah}', TahunLulus = '{$TahunLulus}', NilaiSekolah = '{$NilaiSekolah}', PrestasiTambahan = '{$PrestasiTambahan}',\r\n\t\t \r\n\t\t NamaAyah = '{$NamaAyah}', PendidikanAyah = '{$PendidikanAyah}', AgamaAyah = '{$AgamaAyah}', \r\n PekerjaanAyah = '{$PekerjaanAyah}', HidupAyah = '{$HidupAyah}', PenghasilanAyah = '{$PenghasilanAyah}',\r\n NamaIbu = '{$NamaIbu}', PendidikanIbu = '{$PendidikanIbu}', AgamaIbu = '{$AgamaIbu}',\r\n PekerjaanIbu = '{$PekerjaanIbu}', HidupIbu = '{$HidupIbu}', PenghasilanIbu = '{$PenghasilanIbu}',\r\n \r\n\t\t AlamatOrtu = '{$AlamatOrtu}',\r\n RTOrtu = '{$RTOrtu}', RWOrtu = '{$RWOrtu}', KodePosOrtu = '{$KodePosOrtu}',\r\n KotaOrtu = '{$KotaOrtu}', PropinsiOrtu = '{$PropinsiOrtu}',\r\n TeleponOrtu = '{$TeleponOrtu}', HandphoneOrtu = '{$HandphoneOrtu}', EmailOrtu = '{$EmailOrtu}',\r\n PMBFormulirID = '{$PMBFormulirID}', ProgramID = '{$ProgramID}',\r\n\t\t \r\n {$_epil},\r\n LoginEdit = '{$_SESSION['_Login']}', TanggalEdit = now()\r\n where PMBID = '{$id}' "; $r = _query($s); BerhasilSimpan("?mnux={$_SESSION['mnux']}", 1000); } 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 Anda harus memasukkan nomer PMB yang lain.<br />\r\n Atau kosongkan untuk mendapatkan nomer secara otomatis.<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()\" />")); } } else { $id = GetNextPMBID($gel); } // Baru kemudian disimpan $ProdiID = $_REQUEST['Pilihan1']; $s = "insert into pmb\r\n (PMBID, PMBPeriodID, KodeID, Nama, \r\n TempatLahir, TanggalLahir, Kelamin, GolonganDarah,\r\n Agama, StatusSipil, TinggiBadan, BeratBadan,\r\n WargaNegara, Kebangsaan,\r\n Alamat, RT, RW, KodePos, Kota, Propinsi, \r\n Telepon, Handphone, Email,\r\n PendidikanTerakhir, AsalSekolah,\r\n TahunLulus, NilaiSekolah, PrestasiTambahan, \r\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah, \r\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu, \r\n AlamatOrtu, RTOrtu, RWOrtu, KodePosOrtu, KotaOrtu, PropinsiOrtu,\r\n TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n PMBFormulirID, ProgramID, ProdiID, {$_pil},\r\n\t \r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$id}', '{$gel}', '" . KodeID . "', '{$Nama}', \r\n '{$TempatLahir}', '{$TanggalLahir}', '{$Kelamin}', '{$GolonganDarah}',\r\n '{$Agama}', '{$StatusSipil}', '{$TinggiBadan}', '{$BeratBadan}',\r\n '{$WargaNegara}', '{$Kebangsaan}',\r\n '{$Alamat}', '{$RT}', '{$RW}', '{$KodePos}', '{$Kota}', '{$Propinsi}', \r\n '{$Telepon}', '{$Handphone}', '{$Email}',\r\n '{$PendidikanTerakhir}', '{$AsalSekolah}',\r\n '{$TahunLulus}', '{$NilaiSekolah}', '{$PrestasiTambahan}', \r\n '{$NamaAyah}', '{$AgamaAyah}', '{$PendidikanAyah}', '{$PekerjaanAyah}', '{$HidupAyah}', \r\n '{$NamaIbu}', '{$AgamaIbu}', '{$PendidikanIbu}', '{$PekerjaanIbu}', '{$HidupIbu}', \r\n '{$AlamatOrtu}', '{$RTOrtu}', '{$RWOrtu}', '{$KodePosOrtu}', '{$KotaOrtu}', '{$PropinsiOrtu}',\r\n '{$TeleponOrtu}', '{$HandphoneOrtu}', '{$EmailOrtu}',\r\n '{$PMBFormulirID}', '{$ProgramID}', '{$ProdiID}', {$_vpil},\r\n\t \r\n '{$_SESSION['_Login']}', now())"; $r = _query($s); BerhasilSimpan("?mnux={$_SESSION['mnux']}", 1000); } else { die(ErrorMsg('Error', "Terjadi kesalahan mode edit.<br />\r\n Mode <b>{$md}</b> tidak dikenali oleh sistem.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />")); } }
function Proses($gel) { $PMBWebID = $_REQUEST['pmbwebid']; $pmbweb = GetFields('pmbweb', 'PMBWebID', $PMBWebID, '*'); if (!empty($pmbweb)) { $PMBID = GetNextPMBID($gel); $frm = GetFields('pmbformulir', 'WebDef', 'Y', '*'); $pil = array(); $vpil = array(); $epil = array(); for ($i = 1; $i <= $frm['JumlahPilihan']; $i++) { $pil[] = 'Pilihan' . $i; $vpil[] = "'" . $pmbweb['Pilihan' . $i] . "'"; $epil[] = 'Pilihan' . $i . "='" . $pmbweb['Pilihan' . $i] . "'"; } $_pil = implode(', ', $pil); $_vpil = implode(', ', $vpil); $_epil = implode(', ', $epil); $s = "insert into pmb\r\n\t\t (PMBID, PMBPeriodID, KodeID, StatusAwalID, Nama,\r\n\t\t TempatLahir, TanggalLahir, Kelamin, GolonganDarah,\r\n\t\t Agama, StatusSipil, TinggiBadan, BeratBadan,\r\n\t\t WargaNegara, Kebangsaan,\r\n\t\t Alamat, RT, RW, KodePos, Kota, Propinsi, \r\n\t\t Telepon, Handphone, Email,\r\n\t\t PendidikanTerakhir, AsalSekolah,\r\n\t\t TahunLulus, NilaiSekolah, PrestasiTambahan, \r\n\t\t NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah, PenghasilanAyah,\r\n\t\t NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu, PenghasilanIbu,\r\n\t\t AlamatOrtu, RTOrtu, RWOrtu, KodePosOrtu, KotaOrtu, PropinsiOrtu,\r\n\t\t TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n\t\t PMBFormulirID, ProgramID, ProdiID, {$_pil},\r\n\t\t \r\n\t\t LoginBuat, TanggalBuat)\r\n\t\t values\r\n\t\t ('{$PMBID}', '{$gel}', '" . KodeID . "', '{$pmbweb['StatusAwalID']}', '{$pmbweb['Nama']}', \r\n\t\t '{$pmbweb['TempatLahir']}', '{$pmbweb['TanggalLahir']}', '{$pmbweb['Kelamin']}', '{$pmbweb['GolonganDarah']}',\r\n\t\t '{$pmbweb['Agama']}', '{$pmbweb['StatusSipil']}', '{$pmbweb['TinggiBadan']}', '{$pmbweb['BeratBadan']}',\r\n\t\t '{$pmbweb['WargaNegara']}', '{$pmbweb['Kebangsaan']}',\r\n\t\t '{$pmbweb['Alamat']}', '{$pmbweb['RT']}', '{$pmbweb['RW']}', '{$pmbweb['KodePos']}', '{$pmbweb['Kota']}', '{$pmbweb['Propinsi']}', \r\n\t\t '{$pmbweb['Telepon']}', '{$pmbweb['Handphone']}', '{$pmbweb['Email']}',\r\n\t\t '{$pmbweb['PendidikanTerakhir']}', '{$pmbweb['AsalSekolah']}',\r\n\t\t '{$pmbweb['TahunLulus']}', '{$pmbweb['NilaiSekolah']}', '{$pmbweb['PrestasiTambahan']}', \r\n\t\t '{$pmbweb['NamaAyah']}', '{$pmbweb['AgamaAyah']}', '{$pmbweb['PendidikanAyah']}', '{$pmbweb['PekerjaanAyah']}', '{$pmbweb['HidupAyah']}', '{$pmbweb['PenghasilanAyah']}', \r\n\t\t '{$pmbweb['NamaIbu']}', '{$pmbweb['AgamaIbu']}', '{$pmbweb['PendidikanIbu']}', '{$pmbweb['PekerjaanIbu']}', '{$pmbweb['HidupIbu']}', '{$pmbweb['PenghasilanIbu']}',\r\n\t\t '{$pmbweb['AlamatOrtu']}', '{$pmbweb['RTOrtu']}', '{$pmbweb['RWOrtu']}', '{$pmbweb['KodePosOrtu']}', '{$pmbweb['KotaOrtu']}', '{$pmbweb['PropinsiOrtu']}',\r\n\t\t '{$pmbweb['TeleponOrtu']}', '{$pmbweb['HandphoneOrtu']}', '{$pmbweb['EmailOrtu']}',\r\n\t\t '{$frm['PMBFormulirID']}', '{$pmbweb['ProgramID']}', '{$pmbweb['ProdiID']}', {$_vpil},\r\n\t\t \r\n\t\t '{$_SESSION['_Login']}', now())"; $r = _query($s); $s = "update pmbweb set Diproses='Y' where PMBWebID='{$PMBWebID}'"; $r = _query($s); DftrForm($gel); } else { die(ErrorMsg("Tidak ditemukan", "Data dengan PMBWebID {$PMBWebID} tidak ditemukan. Harap menghubungi administrator")); } }
function AmbilSaja($gel, $gel0) { $id = $_REQUEST['id']; $p = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $id, '*'); if (empty($p)) { die(ErrorMsg('Error', "Data PMB untuk nomer: <b>{$id}</b> tidak ditemukan. <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()' />\r\n ")); } // Jika ketemu $pmbid = GetNextPMBID($gel); $s = "insert into pmb\r\n (PMBID, PMBRef, PMBFormulirID, PMBPeriodID, PMBFormJualID,\r\n BuktiSetoran, KodeID, BIPOTID,\r\n Nama, StatusAwalID, ProgramID, ProdiID,\r\n Kelamin, GolonganDarah,\r\n WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir,\r\n Agama, StatusSipil, 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, 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,\r\n AlamatSekolah, KotaSekolah, JurusanSekolah, NilaiSekolah, TahunLulus,\r\n AsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT,\r\n Pilihan1, Pilihan2, Pilihan3,\r\n NA, NilaiUjian, DetailNilai, GradeNilai, Catatan,\r\n Syarat, SyaratLengkap, \r\n BuktiSetoranMhsw, TanggalSetoranMhsw,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$pmbid}', '{$id}', '{$p['PMBFormulirID']}', '{$gel}', '{$p['PMBFormJualID']}',\r\n '{$p['BuktiSetoran']}', '" . KodeID . "', '{$p['BIPOTID']}',\r\n '{$p['Nama']}', '{$p['StatusAwalID']}', '{$p['ProgramID']}', '{$p['ProdiID']}',\r\n '{$p['Kelamin']}', '{$p['GolonganDarah']}',\r\n '{$p['WargaNegara']}', '{$p['Kebangsaan']}',\r\n '{$p['TempatLahir']}', '{$p['TanggalLahir']}',\r\n '{$p['Agama']}', '{$p['StatusSipil']}', '{$p['TinggiBadan']}', '{$p['BeratBadan']}',\r\n '{$p['Alamat']}', '{$p['Kota']}', '{$p['RT']}', '{$p['RW']}', '{$p['KodePos']}', '{$p['Propinsi']}', '{$p['Negara']}',\r\n '{$p['Telepon']}', '{$p['Handphone']}', '{$p['Email']}',\r\n '{$p['AlamatAsal']}', '{$p['KotaAsal']}', '{$p['RTAsal']}', '{$p['RWAsal']}', '{$p['KodePosAsal']}', '{$p['PropinsiAsal']}', '{$p['NegaraAsal']}', '{$p['TeleponAsal']}',\r\n '{$p['NamaAyah']}', '{$p['AgamaAyah']}', '{$p['PendidikanAyah']}', '{$p['PekerjaanAyah']}', '{$p['HidupAyah']}',\r\n '{$p['NamaIbu']}', '{$p['AgamaIbu']}', '{$p['PendidikanIbu']}', '{$p['PekerjaanIbu']}', '{$p['HidupIbu']}',\r\n '{$p['AlamatOrtu']}', '{$p['KotaOrtu']}', '{$p['RTOrtu']}', '{$p['RWOrtu']}', '{$p['KodePosOrtu']}', '{$p['PropinsiOrtu']}', '{$p['NegaraOrtu']}',\r\n '{$p['TeleponOrtu']}', '{$p['HandphoneOrtu']}', '{$p['EmailOrtu']}',\r\n '{$p['PendidikanTerakhir']}', '{$p['AsalSekolah']}', '{$p['JenisSekolahID']}',\r\n '{$p['AlamatSekolah']}', '{$p['KotaSekolah']}', '{$p['JurusanSekolah']}', '{$p['NilaiSekolah']}', '{$p['TahunLulus']}',\r\n '{$p['AsalPT']}', '{$p['ProdiAsalPT']}', '{$p['LulusAsalPT']}', '{$p['TglLulusAsalPT']}',\r\n '{$p['Pilihan1']}', '{$p['Pilihan2']}', '{$p['Pilihan3']}',\r\n 'N', '{$p['NilaiUjian']}', '{$p['DetailNilai']}', '{$p['GradeNilai']}', '{$p['Catatan']}',\r\n '{$p['Syarat']}', '{$p['SyaratLengkap']}',\r\n '{$p['BuktiSetoranMhsw']}', '{$p['TanggalSetoranMhsw']}',\r\n '{$_SESSION['_Login']}', now())"; $r = _query($s); echo <<<ESD <script> opener.location = '../index.php?mnux={$_SESSION['mnux']}&gos='; self.close(); </script> ESD; }
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; } } }
function aplikanSav($gos = '') { $md = $_REQUEST['md'] + 0; $PresenterID = sqling($_REQUEST['PresenterID']); $Nama = sqling($_REQUEST['Nama']); $Kelamin = $_REQUEST['Kelamin']; $TempatLahir = sqling($_REQUEST['TempatLahir']); $TanggalLahir = "{$_REQUEST['TanggalLahir_y']}-{$_REQUEST['TanggalLahir_m']}-{$_REQUEST['TanggalLahir_d']}"; $Agama = $_REQUEST['Agama']; $Alamat = sqling($_REQUEST['Alamat']); $Kota = sqling($_REQUEST['Kota']); $KodePos = sqling($_REQUEST['KodePos']); $Telepon = sqling($_REQUEST['Telepon']); $Handphone = sqling($_REQUEST['Handphone']); $Email = sqling($_REQUEST['Email']); $NamaAyah = sqling($_REQUEST['NamaAyah']); $PendidikanAyah = $_REQUEST['PendidikanAyah']; $PekerjaanAyah = $_REQUEST['PekerjaanAyah']; $NamaIbu = sqling($_REQUEST['NamaIbu']); $PendidikanIbu = $_REQUEST['PendidikanIbu']; $PekerjaanIbu = $_REQUEST['PekerjaanIbu']; $AsalSekolah = sqling($_REQUEST['AsalSekolah']); $JurusanSekolah = sqling($_REQUEST['JurusanSekolah']); $TahunLulus = $_REQUEST['TahunLulus']; $NilaiSekolah = sqling($_REQUEST['NilaiSekolah']); $JenisSekolahID = GetaField('asalsekolah', "SekolahID", $AsalSekolah, "JenisSekolahID"); // Simpan if ($md == 0) { $AplikanID = $_REQUEST['AplikanID']; $s = "update aplikan set PMBRef='{$PMBRef}', Nama='{$Nama}', PMBFormJualID='{$PMBFormJualID}', PSSBID='{$PSSBID}',\r\n StatusAwalID='{$StatusAwalID}', MhswPindahanID='{$MhswPindahanID}', \r\n Kelamin='{$Kelamin}', WargaNegara='{$WargaNegara}', Harga='{$Harga}',\r\n ProgramID='{$ProgramID}',\r\n Kebangsaan='{$Kebangsaan}', TempatLahir='{$TempatLahir}', TanggalLahir='{$TanggalLahir}',\r\n Agama='{$Agama}', StatusSipil='{$StatusSipil}',\r\n Alamat='{$Alamat}', Kota='{$Kota}',\r\n KodePos='{$KodePos}', Propinsi='{$Propinsi}', Negara='{$Negara}',\r\n RT='{$RT}', RW='{$RW}', Telepon='{$Telepon}', Handphone='{$Handphone}', Email='{$Email}',\r\n AlamatAsal='{$AlamatAsal}', KotaAsal='{$KotaAsal}',\r\n KodePosAsal='{$KodePosAsal}', PropinsiAsal='{$PropinsiAsal}', NegaraAsal='{$NegaraAsal}',\r\n RTAsal='{$RTAsal}', RWAsal='{$RWAsal}', TeleponAsal='{$TeleponAsal}',\r\n NamaAyah='{$NamaAyah}', AgamaAyah='{$AgamaAyah}', PendidikanAyah='{$PendidikanAyah}', PekerjaanAyah='{$PekerjaanAyah}', HidupAyah='{$HidupAyah}',\r\n NamaIbu='{$NamaIbu}', AgamaIbu='{$AgamaIbu}', PendidikanIbu='{$PendidikanIbu}', PekerjaanIbu='{$PekerjaanIbu}', HidupIbu='{$HidupIbu}',\r\n AlamatOrtu='{$AlamatOrtu}', KotaOrtu='{$KotaOrtu}',\r\n KodePosOrtu='{$KodePosOrtu}', PropinsiOrtu='{$PropinsiOrtu}', NegaraOrtu='{$NegaraOrtu}',\r\n RTOrtu='{$RTOrtu}', RWOrtu='{$RWOrtu}',\r\n TeleponOrtu='{$TeleponOrtu}', HandphoneOrtu='{$HandphoneOrtu}', EmailOrtu='{$EmailOrtu}',\r\n AsalSekolah='{$AsalSekolah}', AlamatSekolah='{$AlamatSekolah}', KotaSekolah='{$KotaSekolah}',\r\n JenisSekolahID='{$JenisSekolahID}',\r\n JurusanSekolah='{$JurusanSekolah}', NilaiSekolah='{$NilaiSekolah}', TahunLulus='{$TahunLulus}',\r\n AsalPT='{$AsalPT}', ProdiAsalPT='{$ProdiAsalPT}', LulusAsalPT='{$LulusAsalPT}', TglLulusAsalPT='{$TglLulusAsalPT}',\r\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now(), ProdiID='{$_REQUEST['Pilihan1']}' \r\n {$_p} {$_pssb}\r\n where PMBID='{$PMBID}' "; $r = _query($s); } elseif ($md == 1) { // Jika nomer kwitansi sdh dipakai oleh orang lain $sdhdipakai = GetFields("pmb", "PMBFormJualID", $PMBFormJualID, "*"); if (!empty($sdhdipakai)) { die(ErrorMsg("Tidak Dapat Disimpan", "Nomer kwitansi <font size=+1>{$PMBFormJualID}</font> sudah dipakai oleh orang lain,<br />\r\n Yaitu: <font size=+1>{$sdhdipakai['Nama']}</font> (No PMB: <b>{$sdhdipakai['PMBID']}</b>.\r\n <hr size=1 color=silver>\r\n Opsi: <a href='?mnux={$_SESSION['mnux']}'>Kembali</a>")); } // Update PMBFormulir dulu if ($BeliFormulir == 'Y') { $s0 = "update pmbformjual set OK='Y' where PMBFormJualID='{$PMBFormJualID}' "; $r0 = _query($s0); } // Baru simpan data $_p = ''; $_pn = ''; for ($i = 1; $i <= $_PMBMaxPilihan; $i++) { $_n = "Pilihan{$i}"; $_p .= ", {$_n}"; $_pn .= $i <= $_REQUEST['JumlahPilihan'] ? ", '{$_REQUEST[$_n]}'" : ", ''"; } $_fpssb = $StatusAwalID == 'S' ? ", GradeNilai" : ''; $_npssb = $StatusAwalID == 'S' ? ", 'A'" : ''; $_LulusUjian = $StatusAwalID == 'S' ? "Y" : $_LulusUjian; $BIPOTID = GetaField('bipot', "Def='Y' and ProgramID='{$ProgramID}' and ProdiID", $_REQUEST['Pilihan1'], 'BIPOTID'); $PMBID = GetNextPMBID($_REQUEST['Pilihan1']); $s = "insert into pmb (PMBID, PMBRef, PMBPeriodID, Nama, PMBFormJualID,\r\n MhswPindahanID,\r\n PSSBID, StatusAwalID, Harga, Kelamin,\r\n KodeID, ProgramID, BIPOTID,\r\n PMBFormulirID, WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir,\r\n Agama, StatusSipil,\r\n Alamat, Kota,\r\n KodePos, Propinsi, Negara,\r\n RT, RW, Telepon, Handphone, Email,\r\n AlamatAsal, KotaAsal,\r\n KodePosAsal, PropinsiAsal, NegaraAsal,\r\n RTAsal, RWAsal, TeleponAsal,\r\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah,\r\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu,\r\n AlamatOrtu, KotaOrtu,\r\n KodePosOrtu, PropinsiOrtu, NegaraOrtu,\r\n RTOrtu, RWOrtu, TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n AsalSekolah, JenisSekolahID, AlamatSekolah, KotaSekolah,\r\n NilaiSekolah, JurusanSekolah, TahunLulus, \r\n AsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT,\r\n LoginBuat, TanggalBuat, ProdiID, LulusUjian\r\n {$_p} {$_fpssb})\r\n\r\n values ('{$PMBID}', '{$PMBRef}', '{$_SESSION['pmbaktif']}', '{$Nama}', '{$PMBFormJualID}',\r\n '{$MhswPindahanID}',\r\n '{$PSSBID}', '{$StatusAwalID}', '{$Harga}', '{$Kelamin}',\r\n '{$_SESSION['KodeID']}', '{$ProgramID}', '{$BIPOTID}',\r\n '{$_REQUEST['PMBFormulirID']}', '{$WargaNegara}', '{$Kebangsaan}',\r\n '{$TempatLahir}', '{$TanggalLahir}',\r\n '{$Agama}', '{$StatusSipil}',\r\n '{$Alamat}', '{$Kota}',\r\n '{$KodePos}', '{$Propinsi}', '{$Negara}',\r\n '{$RT}', '{$RW}', '{$Telepon}', '{$Handphone}', '{$Email}',\r\n '{$AlamatAsal}', '{$KotaAsal}',\r\n '{$KodePosAsal}', '{$PropinsiAsal}', '{$NegaraAsal}',\r\n '{$RTAsal}', '{$RWAsal}', '{$TeleponAsal}',\r\n '{$NamaAyah}', '{$AgamaAyah}', '{$PendidikanAyah}', '{$PekerjaanAyah}', '{$HidupAyah}',\r\n '{$NamaIbu}', '{$AgamaIbu}', '{$PendidikanIbu}', '{$PekerjaanIbu}', '{$HidupIbu}',\r\n '{$AlamatOrtu}', '{$KotaOrtu}',\r\n '{$KodePosOrtu}', '{$PropinsiOrtu}', '{$NegaraOrtu}',\r\n '{$RTOrtu}', '{$RWOrtu}', '{$TeleponOrtu}', '{$HandphoneOrtu}', '{$Email}',\r\n '{$AsalSekolah}', '{$JenisSekolahID}', '{$AlamatSekolah}', '{$KotaSekolah}',\r\n '{$NilaiSekolah}', '{$JurusanSekolah}', '{$TahunLulus}', \r\n '{$AsalPT}', '{$ProdiAsalPT}', '{$LulusAsalPT}', '{$TglLulusAsalPT}',\r\n '{$_SESSION['_Login']}', now(), '{$_REQUEST['Pilihan1']}', '{$_LulusUjian}' \r\n {$_pn} {$_npssb})"; $r = _query($s); } else { $strStatusAwalID = GetaField('statusawal', 'StatusAwalID', $StatusAwalID, 'Nama'); die(ErrorMsg("Formulir Pendaftaran Tidak Ditemukan", "Tidak ditemukan pembelian formulir dengan nomer: <b>{$PMBFormJualID}</b>.<br />\r\n Calon Mahasiswa dengan status: {$StatusAwalID} - <b>{$strStatusAwalID}</b> harus membeli formulir pendaftaran terlebih dahulu.")); } echo "<script>window.location='?';</script>"; }
function PMBSav($gos = '') { global $_PMBMaxPilihan; $md = $_REQUEST['md'] + 0; $PMBRef = sqling($_REQUEST['PMBRef']); $Nama = sqling($_REQUEST['Nama']); $PMBFormJualID = $_REQUEST['PMBFormJualID']; $PSSBID = $_REQUEST['PSSBID']; $StatusAwalID = $_REQUEST['StatusAwalID']; $Kelamin = $_REQUEST['Kelamin']; $WargaNegara = $_REQUEST['WargaNegara']; $ProgramID = empty($_REQUEST['ProgramID']) ? GetaField('program', 'Def', 'Y', 'ProgramID') : $_REQUEST['ProgramID']; $Kebangsaan = sqling($_REQUEST['Kebangsaan']); $TempatLahir = sqling($_REQUEST['TempatLahir']); $TanggalLahir = "{$_REQUEST['TanggalLahir_y']}-{$_REQUEST['TanggalLahir_m']}-{$_REQUEST['TanggalLahir_d']}"; $Agama = $_REQUEST['Agama']; $StatusSipil = $_REQUEST['StatusSipil']; $Alamat = sqling($_REQUEST['Alamat']); $Kota = sqling($_REQUEST['Kota']); $KodePos = sqling($_REQUEST['KodePos']); $Propinsi = sqling($_REQUEST['Propinsi']); $Negara = sqling($_REQUEST['Negara']); $RT = sqling($_REQUEST['RT']); $RW = sqling($_REQUEST['RW']); $Telepon = sqling($_REQUEST['Telepon']); $Handphone = sqling($_REQUEST['Handphone']); $Email = sqling($_REQUEST['Email']); $AlamatAsal = sqling($_REQUEST['AlamatAsal']); $KotaAsal = sqling($_REQUEST['KotaAsal']); $KodePosAsal = sqling($_REQUEST['KodePosAsal']); $PropinsiAsal = sqling($_REQUEST['PropinsiAsal']); $NegaraAsal = sqling($_REQUEST['NegaraAsal']); $RTAsal = sqling($_REQUEST['RTAsal']); $RWAsal = sqling($_REQUEST['RWAsal']); $TeleponAsal = sqling($_REQUEST['TeleponAsal']); $NamaAyah = sqling($_REQUEST['NamaAyah']); $AgamaAyah = $_REQUEST['AgamaAyah']; $PendidikanAyah = $_REQUEST['PendidikanAyah']; $PekerjaanAyah = $_REQUEST['PekerjaanAyah']; $HidupAyah = $_REQUEST['HidupAyah']; $NamaIbu = sqling($_REQUEST['NamaIbu']); $AgamaIbu = $_REQUEST['AgamaIbu']; $PendidikanIbu = $_REQUEST['PendidikanIbu']; $PekerjaanIbu = $_REQUEST['PekerjaanIbu']; $HidupIbu = $_REQUEST['HidupIbu']; $AlamatOrtu = sqling($_REQUEST['AlamatOrtu']); $KotaOrtu = sqling($_REQUEST['KotaOrtu']); $KodePosOrtu = sqling($_REQUEST['KodePosOrtu']); $PropinsiOrtu = sqling($_REQUEST['PropinsiOrtu']); $NegaraOrtu = sqling($_REQUEST['NegaraOrtu']); $RTOrtu = sqling($_REQUEST['RTOrtu']); $RWOrtu = sqling($_REQUEST['RWOrtu']); $TeleponOrtu = sqling($_REQUEST['TeleponOrtu']); $HandphoneOrtu = sqling($_REQUEST['HandphoneOrtu']); $EmailOrtu = sqling($_REQUEST['EmailOrtu']); $AsalSekolah = sqling($_REQUEST['AsalSekolah']); $AlamatSekolah = sqling($_REQUEST['AlamatSekolah']); $KotaSekolah = sqling($_REQUEST['KotaSekolah']); $JurusanSekolah = sqling($_REQUEST['JurusanSekolah']); $TahunLulus = $_REQUEST['TahunLulus']; $NilaiSekolah = sqling($_REQUEST['NilaiSekolah']); $AsalPT = $_REQUEST['AsalPT']; $ProdiAsalPT = $_REQUEST['ProdiAsalPT']; $LulusAsalPT = empty($_REQUEST['LulusAsalPT']) ? 'N' : $_REQUEST['LulusAsalPT']; $TglLulusAsalPT = "{$_REQUEST['TL_y']}-{$_REQUEST['TL_m']}-{$_REQUEST['TL_d']}"; $Harga = $_REQUEST['Harga'] + 0; $JenisSekolahID = GetaField('asalsekolah', "SekolahID", $AsalSekolah, "JenisSekolahID"); // Status Awal apakah perlu beli formulir? //$BeliFormulir = GetaField('statusawal', 'StatusAwalID', $StatusAwalID, 'BeliFormulir'); // Cek formulir pendaftaran //if ($BeliFormulir == 'Y') { // $ada = GetaField('pmbformjual', "PMBFormJualID", $PMBFormJualID, "PMBFormJualID"); // if (empty($ada)) $md = 2; //} // Simpan if ($md == 0) { // Update PMBFormulir dulu if ($BeliFormulir == 'Y') { $s0 = "update pmbformjual set OK='Y' where PMBFormJualID='{$PMBFormJualID}' "; $r0 = _query($s0); } $PMBID = $_REQUEST['PMBID']; $_p = ''; for ($i = 1; $i <= $_PMBMaxPilihan; $i++) { $_n = "Pilihan{$i}"; $nilai = $i <= $_REQUEST['JumlahPilihan'] ? $_REQUEST[$_n] : ''; $_p .= ", {$_n}='{$nilai}'"; } $s = "update pmb set PMBRef='{$PMBRef}', Nama='{$Nama}', PMBFormJualID='{$PMBFormJualID}', PSSBID='{$PSSBID}',\n StatusAwalID='{$StatusAwalID}', Kelamin='{$Kelamin}', WargaNegara='{$WargaNegara}', Harga='{$Harga}',\n ProgramID='{$ProgramID}',\n Kebangsaan='{$Kebangsaan}', TempatLahir='{$TempatLahir}', TanggalLahir='{$TanggalLahir}',\n Agama='{$Agama}', StatusSipil='{$StatusSipil}',\n Alamat='{$Alamat}', Kota='{$Kota}',\n KodePos='{$KodePos}', Propinsi='{$Propinsi}', Negara='Negara',\n RT='{$RT}', RW='{$RW}', Telepon='{$Telepon}', Handphone='{$Handphone}', Email='{$Email}',\n AlamatAsal='{$AlamatAsal}', KotaAsal='{$KotaAsal}',\n KodePosAsal='{$KodePosAsal}', PropinsiAsal='{$PropinsiAsal}', NegaraAsal='{$NegaraAsal}',\n RTAsal='{$RTAsal}', RWAsal='{$RWAsal}', TeleponAsal='{$TeleponAsal}',\n NamaAyah='{$NamaAyah}', AgamaAyah='{$AgamaAyah}', PendidikanAyah='{$PendidikanAyah}', PekerjaanAyah='{$PekerjaanAyah}', HidupAyah='{$HidupAyah}',\n NamaIbu='{$NamaIbu}', AgamaIbu='{$AgamaIbu}', PendidikanIbu='{$PendidikanIbu}', PekerjaanIbu='{$PekerjaanIbu}', HidupIbu='{$HidupIbu}',\n AlamatOrtu='{$AlamatOrtu}', KotaOrtu='{$KotaOrtu}',\n KodePosOrtu='{$KodePosOrtu}', PropinsiOrtu='{$PropinsiOrtu}', NegaraOrtu='{$NegaraOrtu}',\n RTOrtu='{$RTOrtu}', RWOrtu='{$RWOrtu}',\n TeleponOrtu='{$TeleponOrtu}', HandphoneOrtu='{$HandphoneOrtu}', EmailOrtu='{$EmailOrtu}',\n AsalSekolah='{$AsalSekolah}', AlamatSekolah='{$AlamatSekolah}', KotaSekolah='{$KotaSekolah}',\n JenisSekolahID='{$JenisSekolahID}',\n JurusanSekolah='{$JurusanSekolah}', NilaiSekolah='{$NilaiSekolah}', TahunLulus='{$TahunLulus}',\n AsalPT='{$AsalPT}', ProdiAsalPT='{$ProdiAsalPT}', LulusAsalPT='{$LulusAsalPT}', TglLulusAsalPT='{$TglLulusAsalPT}',\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now(), ProdiID='{$_REQUEST['Pilihan1']}' {$_p}\n where PMBID='{$PMBID}' "; $r = _query($s); } elseif ($md == 1) { // Update PMBFormulir dulu //if ($BeliFormulir == 'Y') { //$s0 = "update pmbformjual set OK='Y' where PMBFormJualID='$PMBFormJualID' "; //$r0 = _query($s0); //} // Baru simpan data $_p = ''; $_pn = ''; for ($i = 1; $i <= $_PMBMaxPilihan; $i++) { $_n = "Pilihan{$i}"; $_p .= ", {$_n}"; $_pn .= $i <= $_REQUEST['JumlahPilihan'] ? ", '{$_REQUEST[$_n]}'" : ", ''"; } //$BIPOTID = GetaField('bipot', "Def='Y' and ProgramID='$ProgramID' and ProdiID", $_REQUEST['Pilihan1'], 'BIPOTID'); $PMBID = GetNextPMBID($_REQUEST['Pilihan1']); $s = "insert into pmbweb (PMBID, PMBRef, PMBPeriodID, Nama, PMBFormJualID,\n PSSBID, StatusAwalID, Harga, Kelamin,\n KodeID, ProgramID, BIPOTID,\n PMBFormulirID, WargaNegara, Kebangsaan,\n TempatLahir, TanggalLahir,\n Agama, StatusSipil,\n Alamat, Kota,\n KodePos, Propinsi, Negara,\n RT, RW, Telepon, Handphone, Email,\n AlamatAsal, KotaAsal,\n KodePosAsal, PropinsiAsal, NegaraAsal,\n RTAsal, RWAsal, TeleponAsal,\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah,\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu,\n AlamatOrtu, KotaOrtu,\n KodePosOrtu, PropinsiOrtu, NegaraOrtu,\n RTOrtu, RWOrtu, TeleponOrtu, HandphoneOrtu, EmailOrtu,\n AsalSekolah, JenisSekolahID, AlamatSekolah, KotaSekolah,\n NilaiSekolah, JurusanSekolah, TahunLulus, \n AsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT,\n LoginBuat, TanggalBuat, ProdiID {$_p})\n\n values ('{$PMBID}', '{$PMBRef}', '{$_SESSION['pmbaktif']}', '{$Nama}', '{$PMBFormJualID}',\n '{$PSSBID}', '{$StatusAwalID}', '{$Harga}', '{$Kelamin}',\n '{$_SESSION['KodeID']}', '{$ProgramID}', '{$BIPOTID}',\n '{$_REQUEST['PMBFormulirID']}', '{$WargaNegara}', '{$Kebangsaan}',\n '{$TempatLahir}', '{$TanggalLahir}',\n '{$Agama}', '{$StatusSipil}',\n '{$Alamat}', '{$Kota}',\n '{$KodePos}', '{$Propinsi}', '{$Negara}',\n '{$RT}', '{$RW}', '{$Telepon}', '{$Handphone}', '{$Email}',\n '{$AlamatAsal}', '{$KotaAsal}',\n '{$KodePosAsal}', '{$PropinsiAsal}', '{$NegaraAsal}',\n '{$RTAsal}', '{$RWAsal}', '{$TeleponAsal}',\n '{$NamaAyah}', '{$AgamaAyah}', '{$PendidikanAyah}', '{$PekerjaanAyah}', '{$HidupAyah}',\n '{$NamaIbu}', '{$AgamaIbu}', '{$PendidikanIbu}', '{$PekerjaanIbu}', '{$HidupIbu}',\n '{$AlamatOrtu}', '{$KotaOrtu}',\n '{$KodePosOrtu}', '{$PropinsiOrtu}', '{$NegaraOrtu}',\n '{$RTOrtu}', '{$RWOrtu}', '{$TeleponOrtu}', '{$HandphoneOrtu}', '{$Email}',\n '{$AsalSekolah}', '{$JenisSekolahID}', '{$AlamatSekolah}', '{$KotaSekolah}',\n '{$NilaiSekolah}', '{$JurusanSekolah}', '{$TahunLulus}', \n '{$AsalPT}', '{$ProdiAsalPT}', '{$LulusAsalPT}', '{$TglLulusAsalPT}',\n '{$_SESSION['_Login']}', now(), '{$_REQUEST['Pilihan1']}' {$_pn})"; $r = _query($s); $bayar = GetaField('pmbformulir', 'PMBFormulirID', $_REQUEST['PMBFormulirID'], 'Harga'); $bayar = number_format($bayar); $prod = GetaField("prodi", 'ProdiID', $_REQUEST['Pilihan1'], 'Nama'); $lambat = GetaField('pmbperiod', 'PMBPeriodID', $_SESSION['pmbaktif'], 'BayarSelesai'); $lambat = FormatTanggal($lambat, '-'); echo Konfirmasi("Konfirmasi", "<p>Anda telah terdaftar di UKRIDA pada Program Studi <b>{$prod}</b><br>Nomor registrasi Anda adalah : <b>{$PMBID}</b> <font color=Red>(harap dicatat untuk konfirmasi)</font></p>Silakan melakukan \n pembayaran registrasi senilai <b>Rp. {$bayar}</b> paling lambat tanggal : <b>{$lambat}</b><br><br>\n Informasi lebih lanjut hubungi:<br>Bagian Admisi<br>Lantai I Gedung A Kampus I Jl. Tanjung Duren Raya No. 4<br>Jakarta Barat<br>Telepon : +62 (021) 5666952<br>Fax : +62 (021) 566651/56"); } else { $strStatusAwalID = GetaField('statusawal', 'StatusAwalID', $StatusAwalID, 'Nama'); echo Konfirmasi("Formulir Pendaftaran Tidak Ditemukan", "Tidak ditemukan pembelian formulir dengan nomer: <b>{$PMBFormJualID}</b>.<br />\n Calon Mahasiswa dengan status: {$StatusAwalID} - <b>{$strStatusAwalID}</b> harus membeli formulir pendaftaran terlebih dahulu.<br><a href=pmb.web.php>Kembali</a>"); } }