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();
}
Esempio n. 2
0
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);
}