function ProsesNIM($pmbid, $pmb)
{
$StatusMhswID = 'A';
// Default
$Tahun_Akd = $_REQUEST['Tahun_Akd'];
// 1. Buat NIM Mhsw & Hitung Batas studi
$NIM = GetaField('prodi', 'ProdiID', $pmb['ProdiID'], 'GunakanNIMSementara') == 'Y' ? GetNextNIMSementara($Tahun_Akd, $pmb) : GetNextNIM($Tahun_Akd, $pmb);
$NIMSementara = GetaField('prodi', 'ProdiID', $pmb['ProdiID'], 'GunakanNIMSementara');
$Batas = HitungBatasStudi($Tahun_Akd, $pmb['ProdiID']);
//die($Batas);
// 2. Copy data PMB ke Mhsw
$s = "insert into mhsw\r\n (MhswID, Login, LevelID, KodeID, Password,\r\n NIMSementara, PMBID, PSSBID, TahunID, BIPOTID,\r\n Nama, StatusAwalID, StatusMhswID,\r\n ProgramID, ProdiID, Kelamin, WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir,\r\n Agama, StatusSipil,\r\n TinggiBadan, BeratBadan,\r\n Alamat, Kota, RT, RW, KodePos, Propinsi, Negara,\r\n Telepon, Handphone, Email,\r\n AlamatAsal, KotaAsal, RTAsal, RWAsal, KodePosAsal, PropinsiAsal, NegaraAsal,\r\n TeleponAsal,\r\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah,\r\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu,\r\n AlamatOrtu, KotaOrtu, RTOrtu, RWOrtu, KodePosOrtu, PropinsiOrtu, NegaraOrtu,\r\n TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n PendidikanTerakhir, AsalSekolah, JenisSekolahID, AlamatSekolah, KotaSekolah, \r\n JurusanSekolah, NilaiSekolah, TahunLulus, IjazahSekolah,\r\n AsalPT, MhswIDAsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT,\r\n IPKAsalPT, Pilihan1, Pilihan2, Pilihan3, PrestasiTambahan,\r\n BatasStudi, LulusUjian, NilaiUjian, GradeNilai, Syarat, SyaratLengkap,\r\n TotalBiaya, TotalBayar, LoginBuat, TanggalBuat)\r\n values\r\n ('{$NIM}', '{$NIM}', '120', '" . KodeID . "', PASSWORD('{$pmb['TanggalLahir']}'),\r\n\t'{$NIMSementara}', '{$pmb['PMBID']}', '{$pmb['PSSBID']}', '{$Tahun_Akd}', '{$pmb['BIPOTID']}',\r\n '{$pmb['Nama']}', '{$pmb['StatusAwalID']}', '{$StatusMhswID}',\r\n '{$pmb['ProgramID']}', '{$pmb['ProdiID']}', '{$pmb['Kelamin']}', '{$pmb['WargaNegara']}', '{$pmb['Kebangsaan']}',\r\n '{$pmb['TempatLahir']}', '{$pmb['TanggalLahir']}',\r\n '{$pmb['Agama']}', '{$pmb['StatusSipil']}',\r\n '{$pmb['TinggiBadan']}', '{$pmb['BeratBadan']}',\r\n '{$pmb['Alamat']}', '{$pmb['Kota']}', '{$pmb['RT']}', '{$pmb['RW']}', '{$pmb['KodePos']}', '{$pmb['Propinsi']}', '{$pmb['Negara']}',\r\n '{$pmb['Telepon']}', '{$pmb['Handphone']}', '{$pmb['Email']}',\r\n '{$pmb['AlamatAsal']}', '{$pmb['KotaAsal']}', '{$pmb['RTAsal']}', '{$pmb['RWAsal']}', '{$pmb['KodePosAsal']}', '{$pmb['PropinsiAsal']}', '{$pmb['NegaraAsal']}',\r\n '{$pmb['TeleponAsal']}',\r\n '{$pmb['NamaAyah']}', '{$pmb['AgamaAyah']}', '{$pmb['PendidikanAyah']}', '{$pmb['PekerjaanAyah']}', '{$pmb['HidupAyah']}',\r\n '{$pmb['NamaIbu']}', '{$pmb['AgamaIbu']}', '{$pmb['PendidikanIbu']}', '{$pmb['PekerjaanIbu']}', '{$pmb['HidupIbu']}',\r\n '{$pmb['AlamatOrtu']}', '{$pmb['KotaOrtu']}', '{$pmb['RTOrtu']}', '{$pmb['RWOrtu']}', '{$pmb['KodePosOrtu']}', '{$pmb['PropinsiOrtu']}', '{$pmb['NegaraOrtu']}',\r\n '{$pmb['TeleponOrtu']}', '{$pmb['HandphoneOrtu']}', '{$pmb['EmailOrtu']}',\r\n '{$pmb['PendidikanTerakhir']}', '{$pmb['AsalSekolah']}', '{$pmb['JenisSekolahID']}', '{$pmb['AlamatSekolah']}', '{$pmb['KotaSekolah']}',\r\n '{$pmb['JurusanSekolah']}', '{$pmb['NilaiSekolah']}', '{$pmb['TahunLulus']}', '{$pmb['IjazahSekolah']}',\r\n '{$pmb['AsalPT']}', '{$pmb['MhswIDAsalSekolah']}', '{$pmb['ProdiAsalPT']}', '{$pmb['LulusAsalPT']}', '{$pmb['TglLulusAsalPT']}',\r\n '{$pmb['IPKAsalPT']}', '{$pmb['Pilihan1']}', '{$pmb['Pilihan2']}', '{$pmb['Pilihan3']}', '{$pmb['PrestasiTambahan']}',\r\n '{$Batas}', '{$pmb['LulusUjian']}', '{$pmb['NilaiSekolah']}', '{$pmb['GradeNilai']}', '{$pmb['Syarat']}', '{$pmb['SyaratLengkap']}',\r\n '{$pmb['TotalBiaya']}', '{$pmb['TotalBayar']}', '{$_SESSION['_Login']}', now())";
// Nilai Ujian untuk Kasih Bangsa adalah Nilai Sekolah. Ralat baris kedua di atas ini untuk mengubah ke default
$r = _query($s);
// Set NIM di data PMB
$s = "update pmb set MhswID = '{$NIM}'\r\n where KodeID='" . KodeID . "' and PMBID = '{$pmbid}' ";
$r = _query($s);
// Set Status Aplikan dari murid PMB menjadi REG
include_once "../pmb/statusaplikan.lib.php";
SetStatusAplikan('REG', GetaField('pmb', "PMBID='{$pmbid}' and KodeID", KodeID, "AplikanID"), GetaField('pmbperiod', "KodeID='" . KodeID . "' and NA", 'N', "PMBPeriodID"));
// Transfer BIPOTMhsw ke Mhsw
$s = "update bipotmhsw\r\n set MhswID = '{$NIM}',\r\n PMBMhswID = 1,\r\n TahunID = '{$Tahun_Akd}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where PMBID = '{$pmbid}'\r\n and PMBMhswID = 0\r\n and KodeID = '" . KodeID . "' ";
$r = _query($s);
// Transfer Pembayaran ke Mhsw
$s = "update bayarmhsw\r\n set MhswID = '{$NIM}',\r\n PMBMhswID = 1,\r\n TahunID = '{$Tahun_Akd}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where PMBID = '{$pmbid}'\r\n and PMBMhswID = 0\r\n and KodeID = '" . KodeID . "' ";
$r = _query($s);
// Otomatis Registrasi di Semester
$MaxSKS = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $pmb['ProdiID'], 'DefSKS') + 0;
$s = "insert into khs\r\n (KodeID, TahunID, ProgramID, ProdiID,\r\n MhswID, StatusMhswID, Sesi, BIPOTID,\r\n Biaya, Bayar, MaxSKS,\r\n Keterangan, LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$Tahun_Akd}', '{$pmb['ProgramID']}', '{$pmb['ProdiID']}',\r\n '{$NIM}', '{$StatusMhswID}', 1, '{$pmb['BIPOTID']}',\r\n '{$pmb['TotalBiaya']}', '{$pmb['TotalBayar']}', {$MaxSKS},\r\n 'Auto-registrasi', '{$_SESSION['_Login']}', now())";
$r = _query($s);
// Tutup aplikasi
TutupScript();
}
function fnProsesnya()
{
$MhswID = sqling($_REQUEST['MhswID']);
$ProdiID = sqling($_REQUEST['ProdiID']);
$ProgramID = sqling($_REQUEST['ProgramID']);
$TahunID = sqling($_REQUEST['TahunID']);
// Cek Tahun
$ada = GetFields('tahun', "ProdiID='{$ProdiID}' and ProgramID='{$ProgramID}' and KodeID", KodeID, '*');
if (empty($ada)) {
die(ErrorMsg("Error - {$TahunID}", "Kalendar akademik dengan kode: <b>{$TahunID}</b> tidak ditemukan<br />\r\n untuk Program Studi: {$ProdiID} dan Program Pendidikan: {$ProgramID}.<br />\r\n Hubungi Kepala BAA untuk memastikan tahun akademik yang aktif.<br />\r\n Atau 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=fnDropin&MhswID={$MhswID}'\" />\r\n <input type=button name='btnBatal' value='Batal'\r\n onClick=\"location='?mnux={$_SESSION['mnux']}&gos='\" />"));
}
$mhsw = GetFields('mhsw', "MhswID='{$MhswID}' and KodeID", KodeID, '*');
$baru = $mhsw;
$baru['ProdiID'] = $ProdiID;
$baru['ProgramID'] = $ProgramID;
$baru['StatusAwalID'] = 'D';
// Edit: Ilham
$NIM = GetaField('prodi', 'ProdiID', $mhsw['ProdiID'], 'GunakanNIMSementara') == 'Y' ? GetNextNIM($TahunID, $baru) : GetNextNIMSementara($TahunID, $baru);
$BIPOTID = GetaField('bipot', "ProdiID='{$ProdiID}' and ProgramID='{$ProgramID}' and Def='Y' and KodeID", KodeID, 'BIPOTID');
$BatasStudi = HitungBatasStudi($TahunID, $ProdiID);
// Salin data mhsw
$s = "insert into mhsw\r\n (MhswID, Login, LevelID, `Password`,\r\n KDPIN, PMBID, TahunID, KodeID, BIPOTID,\r\n Autodebet, Nama, Foto,\r\n StatusAwalID, StatusMhswID, ProgramID, ProdiID,\r\n PenasehatAkademik, Kelamin, WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir, Agama, StatusSipil,\r\n TinggiBadan, BeratBadan,\r\n Alamat, Kota, RT, RW, KodePos, Propinsi, Negara, Telephone, Handphone, Email,\r\n AlamatAsal, KotaAsal, RTAsal, RWAsal, KodePosAsal, PropinsiAsal, NegaraAsal, TeleponAsal,\r\n AnakKe, JumlahSaudara,\r\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah,\r\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu,\r\n AlamatOrtu, KotaOrtu, RTOrtu, RWOrtu, KodePosOrtu, PropinsiOrtu, NegaraOrtu, TeleponOrtu,\r\n HandphoneOrtu, EmailOrtu,\r\n PendidikanTerakhir, AsalSekolah, AsalSekolah1, \r\n AlamatSekolah, KotaSekolah, JurusanSekolah, NilaiSekolah,\r\n TahunLulus, IjazahSekolah,\r\n AsalPT, MhswIDAsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT, IPKAsalPT,\r\n BatasStudi, NA,\r\n NamaBank, NomerRekening,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$NIM}', '{$NIM}', 120, LEFT(PASSWORD('{$NIM}'), 10),\r\n '{$baru['KDPIN']}', '{$MhswID}', '{$TahunID}', '" . KodeID . "', '{$BIPOTID}',\r\n '{$baru['Autodebet']}', '{$baru['Nama']}', '{$mhsw['Foto']}',\r\n '{$baru['StatusAwalID']}', '{$baru['StatusMhswID']}', '{$ProgramID}', '{$ProdiID}',\r\n '{$baru['PenasehatAkademik']}', '{$baru['Kelamin']}', '{$baru['WargaNegara']}', '{$baru['Kebangsaan']}',\r\n '{$baru['TempatLahir']}', '{$baru['TanggalLahir']}', '{$baru['Agama']}', '{$baru['StatusSipil']}',\r\n '{$baru['TinggiBadan']}', '{$baru['BeratBadan']}',\r\n '{$baru['Alamat']}', '{$baru['Kota']}', '{$baru['RT']}', '{$baru['RW']}', '{$baru['KodePos']}', '{$baru['Propinsi']}', '{$baru['Negara']}', '{$baru['Telephone']}', '{$baru['Handphone']}', '{$baru['Email']}',\r\n '{$baru['AlamatAsal']}', '{$baru['KotaAsal']}', '{$baru['RTAsal']}', '{$baru['RWAsal']}', '{$baru['KodePosAsal']}', '{$baru['PropinsiAsal']}', '{$baru['NegaraAsal']}', '{$baru['TeleponAsal']}',\r\n '{$baru['AnakKe']}', '{$baru['JumlahSaudara']}',\r\n '{$baru['NamaAyah']}', '{$baru['AgamaAyah']}', '{$baru['PendidikanAyah']}', '{$baru['PekerjaanAyah']}', '{$baru['HidupAyah']}',\r\n '{$baru['NamaIbu']}', '{$baru['AgamaIbu']}', '{$baru['PendidikanIbu']}', '{$baru['PekerjaanIbu']}', '{$baru['HidupIbu']}',\r\n '{$baru['AlamatOrtu']}', '{$baru['KotaOrtu']}', '{$baru['RTOrtu']}', '{$baru['RWOrtu']}', '{$baru['KodePosOrtu']}', '{$baru['PropinsiOrtu']}', '{$baru['NegaraOrtu']}', '{$baru['TeleponOrtu']}',\r\n '{$baru['HandphoneOrtu']}', '{$baru['EmailOrtu']}',\r\n '{$baru['PendidikanTerakhir']}', '{$baru['AsalSekolah']}', '{$baru['AsalSekolah1']}',\r\n '{$baru['AlamatSekolah']}', '{$baru['KotaSekolah']}', '{$baru['JurusanSekolah']}', '{$baru['NilaiSekolah']}',\r\n '{$baru['TahunLulus']}', '{$baru['IjazahSekolah']}',\r\n '{$baru['AsalPT']}', '{$baru['MhswIDAsalPT']}', '{$baru['ProdiAsalPT']}', '{$baru['LulusAsalPT']}', '{$baru['TglLulusAsalPT']}', '{$baru['IPKAsalPT']}',\r\n '{$BatasStudi}', 'N',\r\n '{$baru['NamaBank']}', '{$baru['NomerBank']}',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
// Non aktifkan data mhsw lama --> status: Keluarkan
$sk = "update mhsw \r\n set StatusMhswID = 'D', \r\n Keluar = 'Y', TahunKeluar = '{$TahunID}',\r\n CatatanKeluar = 'Pindah Prodi ke: {$ProdiID}, Program: {$ProgramID}'\r\n where MhswID = '{$MhswID}' and KodeID = '" . KodeID . "' ";
$rk = _query($sk);
// Kembali
BerhasilSimpan("?mnux={$_SESSION['mnux']}&gos=&crNamaMhsw={$baru['Nama']}", 1);
}