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>");
}
}
