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 ImportPMB($w, $TahunID = '') { $TahunID = trim($TahunID); $TahunID = strlen($TahunID) <= 4 ? $TahunID . '1' : $TahunID; $untukNim = substr($TahunID, 0, 4); $MhswID = ''; $MhswID = GetNextNIM($untukNim, $w); //$StatusMhswID = GetaField('statusmhsw', 'Def', 'Y', 'StatusMhswID'); $StatusMhswID = 'A'; if (empty($TahunID)) { $TahunID = GetaField('tahun', "KodeID='{$_SESSION['KodeID']}' and ProgramID='{$w['ProgramID']}' and ProdiID='{$w['ProdiID']}' and NA", 'N', 'TahunID'); } // Hitung tahun batas tahun $BatasStudi = HitungBatasStudi($TahunID, $w['ProdiID']); $Password = SetPasswordMhsw($w['TanggalLahir']); // Oh, iya, status mahasiswa selalu diset "AKTIF" $w['StatusMhswID'] = 'A'; // Fase 1: import data $s = "insert into mhsw (MhswID, Login, Password,\r\n PMBID, StatusMhswID, Kelas, NamaKelas,\r\n PMBFormJualID, BuktiSetoran, TahunID, KodeID,\r\n BIPOTID, Nama, StatusAwalID, ProgramID, ProdiID,\r\n Kelamin, WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir,\r\n Agama, StatusSipil,\r\n Alamat, Kota, RT, RW,\r\n KodePos, Propinsi, Negara,\r\n Telepon, Handphone, Email,\r\n AlamatAsal, KotaAsal,\r\n RTAsal, RWAsal, TeleponAsal,\r\n KodePosAsal, PropinsiAsal, NegaraAsal,\r\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah,\r\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu,\r\n AlamatOrtu, KotaOrtu, RTOrtu, RWOrtu,\r\n KodePosOrtu, PropinsiOrtu, NegaraOrtu,\r\n TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n AsalSekolah, JenisSekolahID,\r\n AlamatSekolah, KotaSekolah,\r\n NilaiSekolah, JurusanSekolah, TahunLulus,\r\n AsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT,\r\n Pilihan1, Pilihan2, Pilihan3,\r\n Harga, SudahBayar, NA, TanggalUjian, LulusUjian,\r\n RuangID, NomerUjian,\r\n NilaiUjian, GradeNilai, BatasStudi,\r\n BuktiSetoranMhsw, TanggalSetoranMhsw, TotalSetoranMhsw, TotalBiayaMhsw,\r\n Dispensasi, DispensasiID, JudulDispensasi, CatatanDispensasi,\r\n LoginBuat, TanggalBuat)\r\n\r\n values ('{$MhswID}', '{$MhswID}', PASSWORD('{$Password}'),\r\n '{$w['PMBID']}', '{$StatusMhswID}', '{$w['Kelas']}', '{$w['NamaKelas']}',\r\n '{$w['PMBFormJualID']}', '{$w['BuktiSetoran']}', '{$TahunID}', '{$w['KodeID']}',\r\n '{$w['BIPOTID']}', '{$w['Nama']}', '{$w['StatusAwalID']}', '{$w['ProgramID']}', '{$w['ProdiID']}',\r\n '{$w['Kelamin']}', '{$w['WargaNegara']}', '{$w['Kebangsaan']}',\r\n '{$w['TempatLahir']}', '{$w['TanggalLahir']}',\r\n '{$w['Agama']}', '{$w['StatusSipil']}',\r\n '{$w['Alamat']}', '{$w['Kota']}', '{$w['RT']}', '{$w['RW']}',\r\n '{$w['KodePos']}', '{$w['Propinsi']}', '{$w['Negara']}',\r\n '{$w['Telepon']}', '{$w['Handphone']}', '{$w['Email']}',\r\n '{$w['AlamatAsal']}', '{$w['KotaAsal']}',\r\n '{$w['RTAsal']}', '{$w['RWAsal']}', '{$w['TeleponAsal']}',\r\n '{$w['KodePosAsal']}', '{$w['PropinsiAsal']}', '{$w['NegaraAsal']}',\r\n '{$w['NamaAyah']}', '{$w['AgamaAyah']}', '{$w['PendidikanAyah']}', '{$w['PekerjaanAyah']}', '{$w['HidupAyah']}',\r\n '{$w['NamaIbu']}', '{$w['AgamaIbu']}', '{$w['PendidikanIbu']}', '{$w['PekerjaanIbu']}', '{$w['HidupIbu']}',\r\n '{$w['AlamatOrtu']}', '{$w['KotaOrtu']}', '{$w['RTOrtu']}', '{$w['RWOrtu']}',\r\n '{$w['KodePosOrtu']}', '{$w['PropinsiOrtu']}', '{$w['NegaraOrtu']}',\r\n '{$w['TeleponOrtu']}', '{$w['HandphoneOrtu']}', '{$w['EmailOrtu']}',\r\n '{$w['AsalSekolah']}', '{$w['JenisSekolahID']}',\r\n '{$w['AlamatSekolah']}', '{$w['KotaSekolah']}',\r\n '{$w['NilaiSekolah']}', '{$w['JurusanSekolah']}', '{$w['TahunLulus']}',\r\n '{$w['AsalPT']}', '{$w['ProdiAsalPT']}', '{$w['LulusAsalPT']}', '{$w['TglLulusAsalPT']}',\r\n '{$w['Pilihan1']}', '{$w['Pilihan2']}', '{$w['Pilihan3']}',\r\n '{$w['Harga']}', '{$w['SudahBayar']}', '{$w['NA']}',\r\n '{$w['TanggalUjian']}', '{$w['LulusUjian']}',\r\n '{$w['RuangID']}', '{$w['NomerUjian']}',\r\n '{$w['NilaiUjian']}', '{$w['GradeNilai']}', '{$BatasStudi}',\r\n '{$w['BuktiSetoranMhsw']}', '{$w['TanggalSetoranMhsw']}', '{$w['TotalSetoranMhsw']}', '{$w['TotalBiayaMhsw']}',\r\n '{$w['Dispensasi']}', '{$w['DispensasiID']}', '{$w['JudulDispensasi']}', '{$w['CatatanDispensasi']}',\r\n '{$_SESSION['_Login']}', now())"; $r = _query($s); // Fase 2: update data PMB $s1 = "update pmb set NIM='{$MhswID}', BIPOTID='{$w['BIPOTID']}' where PMBID='{$w['PMBID']}' "; $r1 = _query($s1); // Fase 3: Import BIPOT ISI //ImportBIPOT($w, $MhswID, $TahunID); // Fase 4: check Cicilan & Import cicilan //ImportCicilan($w, $MhswID, $TahunID); // Fase 5: Import Pembayaran //ImportPembayaran($w, $MhswID, $TahunID); // Fase 6: Buat KHS //BuatKHS($w, $MhswID, $TahunID); // Kembalikan ID return $MhswID; //$s = "insert into mhsw }
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); }