function ProsesBIPOT2($PMBID) { $pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $PMBID, '*'); // Ambil BIPOT-nya $s = "select * \r\n from bipot2 \r\n where BIPOTID = '{$pmb['BIPOTID']}'\r\n and Otomatis = 'Y'\r\n and NA = 'N'\r\n order by TrxID, Prioritas"; $r = _query($s); while ($w = _fetch_array($r)) { $oke = true; // Apakah sesuai dengan status awalnya? $pos = strpos($w['StatusAwalID'], "." . $pmb['StatusAwalID'] . "."); $oke = $oke && !($pos === false); // Apakah grade-nya? if ($oke) { if ($w['GunakanGradeNilai'] == 'Y') { $pos = strpos($w['GradeNilai'], "." . $pmb['GradeNilai'] . "."); $oke = $oke && !($pos === false); } } // Simpan data if ($oke) { // Cek, sudah ada atau belum? Kalau sudah, ambil ID-nya $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and PMBID = '{$pmb['PMBID']}'\r\n and NA = 'N'\r\n and TahunID='{$pmb['PMBPeriodID']}' and BIPOT2ID", $w['BIPOT2ID'], "BIPOTMhswID") + 0; // Cek apakah memakai script atau tidak? if ($w['GunakanScript'] == 'Y') { BipotGunakanScript($pmb, '', $w, $ada, 0); } else { // Jika tidak ada duplikasi, maka akan di-insert. Tapi jika sudah ada, maka dicuekin aja. if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w['BIPOTNamaID'], 'Nama'); $s1 = "insert into bipotmhsw\r\n (KodeID, COAID, PMBMhswID, PMBID, TahunID,\r\n BIPOT2ID, BIPOTNamaID, Nama, TrxID,\r\n Jumlah, Besar, Dibayar,\r\n Catatan, NA,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$w['COAID']}', 0, '{$pmb['PMBID']}', '{$pmb['PMBPeriodID']}',\r\n '{$w['BIPOT2ID']}', '{$w['BIPOTNamaID']}', '{$Nama}', '{$w['TrxID']}',\r\n 1, '{$w['Jumlah']}', 0,\r\n 'Auto', 'N',\r\n '{$_SESSION['_Login']}', now())"; $r1 = _query($s1); } // end $ada=0 } // end if $ada } // end if $oke } // end while }
function ProsesBIPOT($gels, $gel) { $PMBID = sqling($_REQUEST['PMBID']); $pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $PMBID, '*'); if (empty($pmb)) { die(ErrorMsg('Error', "Data Cama dengan nomer PMB: <b>{$PMBID}</b> tidak ditemukan.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n <input type=button name='Kembali' value='Kembali'\r\n onClick=\"location='{$_SESSION['mnux']}&gos='\" />")); } // Ambil BIPOT-nya $s = "select * \r\n from bipot2 \r\n where BIPOTID = '{$pmb['BIPOTID']}'\r\n and Otomatis = 'Y'\r\n\t and PerMataKuliah = 'N'\r\n\t and PerSKS = 'N'\r\n\t and PerLab = 'N'\r\n and NA = 'N'\r\n order by TrxID, Prioritas"; $r = _query($s); while ($w = _fetch_array($r)) { $oke = true; // Apakah sesuai dengan status awalnya? $pos = strpos($w['StatusAwalID'], "." . $pmb['StatusAwalID'] . "."); $oke = $oke && !($pos === false); // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w['StatusMhswID'], ".A."); $oke = $oke && !($pos === false); // Apakah grade-nya? if ($oke) { if ($w['GunakanGradeNilai'] == 'Y') { $pos = strpos($w['GradeNilai'], "." . $pmb['GradeNilai'] . "."); $oke = $oke && !($pos === false); } } if ($oke) { if ($w['GunakanGradeIPK'] == 'Y') { $oke = false; } } // Apakah dimulai pada sesi 1? if ($oke) { if ($w['MulaiSesi'] <= 1) { $oke = true; } else { $oke = false; } } // Simpan data if ($oke) { // Cek, sudah ada atau belum? Kalau sudah, ambil ID-nya $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and PMBID = '{$pmb['PMBID']}'\r\n and TahunID='{$pmb['PMBPeriodID']}' and BIPOT2ID", $w['BIPOT2ID'], "BIPOTMhswID") + 0; // Cek apakah memakai script atau tidak? if ($w['GunakanScript'] == 'Y') { BipotGunakanScript($pmb, '', $w, $ada, 0); } else { // Jika tidak ada duplikasi, maka akan di-insert. Tapi jika sudah ada, maka dicuekin aja. if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w['BIPOTNamaID'], 'Nama'); // Cek Jumlah jika memiliki beasiswa /*if(GetaField('bipotnama', 'BIPOTNamaID', $w['BIPOTNamaID'], 'DipotongBeasiswa') == 'Y') { $Jumlah = (1 - ($pmb['Diskon']/100))*$w['Jumlah']; } else { $Jumlah = $w['Jumlah']; }*/ $s1 = "insert into bipotmhsw\r\n (KodeID, COAID, PMBMhswID, PMBID, TahunID,\r\n BIPOT2ID, BIPOTNamaID, Nama, TrxID,\r\n Jumlah, Besar, Dibayar,\r\n Catatan, NA,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$w['COAID']}', 0, '{$pmb['PMBID']}', '{$pmb['PMBPeriodID']}',\r\n '{$w['BIPOT2ID']}', '{$w['BIPOTNamaID']}', '{$Nama}', '{$w['TrxID']}',\r\n 1, '{$w['Jumlah']}', 0,\r\n 'Auto', 'N',\r\n '{$_SESSION['_Login']}', now())"; $r1 = _query($s1); } // end $ada=0 } // end if $ada } // end if $oke } // end while HitungUlangBIPOTPMB($PMBID); BerhasilSimpan("?mnux={$_SESSION['mnux']}&gos=MhswBaruEdt&PMBID={$pmb['PMBID']}", 100); }
function ProsesBIPOT($MhswID, $TahunID) { // Ambil data $mhsw = GetFields('mhsw', "KodeID='" . KodeID . "' and MhswID", $MhswID, "*"); $khs = GetFields('khs', "KodeID = '" . KodeID . "' and TahunID = '{$TahunID}' and MhswID", $MhswID, "*"); // Ambil BIPOT-nya $s = "select * \r\n from bipot2 \r\n where BIPOTID = '{$mhsw['BIPOTID']}'\r\n and Otomatis = 'Y'\r\n and NA = 'N'\r\n order by TrxID, Prioritas"; $r = _query($s); while ($w = _fetch_array($r)) { $oke = true; // Apakah sesuai dengan status awalnya? $pos = strpos($w['StatusAwalID'], "." . $mhsw['StatusAwalID'] . "."); $oke = $oke && !($pos === false); // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w['StatusMhswID'], "." . $khs['StatusMhswID'] . "."); $oke = $oke && !($pos === false); // Apakah grade-nya? if ($oke) { if ($w['GunakanGradeNilai'] == 'Y') { $pos = strpos($w['GradeNilai'], "." . $mhsw['GradeNilai'] . "."); $oke = $oke && !($pos === false); } } // Apakah Jumlah SKS Tahun ini mencukupi? if ($oke) { if ($w['GunakanGradeIPK'] == 'Y') { if ($khs['SKS'] < GetaField('gradeipk', "IPKMin <= {$mhsw['IPK']} and {$mhsw['IPK']} <= IPKMax and KodeID", KodeID, 'SKSMin')) { $oke = false; } else { $oke = true; } } } // Apakah Grade IPK-nya OK? if ($oke) { if ($w['GunakanGradeIPK'] == 'Y') { $pos = strpos($w['GradeIPK'], "." . GetaField('gradeipk', "IPKMin <= {$mhsw['IPK']} and {$mhsw['IPK']} <= IPKMax and KodeID", KodeID, 'GradeIPK') . "."); $oke = $oke && !($pos === false); } } // Apakah dimulai pada sesi ini? if ($oke) { if ($w['MulaiSesi'] <= $khs['Sesi'] or $w['MulaiSesi'] == 0) { $oke = true; } else { $oke = false; } } // Simpan data if ($oke) { // Cek, sudah ada atau belum? Kalau sudah, ambil ID-nya $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n and PMBMhswID = 1\r\n and TahunID='{$khs['TahunID']}' and BIPOT2ID", $w['BIPOT2ID'], "BIPOTMhswID") + 0; // Cek apakah memakai script atau tidak? if ($w['GunakanScript'] == 'Y') { BipotGunakanScript($mhsw, $khs, $w, $ada, 1); } else { // Jika tidak ada duplikasi, maka akan di-insert. Tapi jika sudah ada, maka dicuekin aja. if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w['BIPOTNamaID'], 'Nama'); $s1 = "insert into bipotmhsw\r\n (KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n BIPOT2ID, BIPOTNamaID, Nama, TrxID,\r\n Jumlah, Besar, Dibayar,\r\n Catatan, NA,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$w['COAID']}', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n '{$w['BIPOT2ID']}', '{$w['BIPOTNamaID']}', '{$Nama}', '{$w['TrxID']}',\r\n 1, '{$w['Jumlah']}', 0,\r\n 'Auto', 'N',\r\n '{$_SESSION['_Login']}', now())"; $r1 = _query($s1); } // end $ada=0 } // end if $ada } // end if $oke } // end while $jml = HitungUlangBIPOTMhsw($MhswID, $TahunID); return $jml; }
function ProsesBIPOT($MhswID, $TahunID) { // Ambil data $mhsw = GetFields('mhsw', "KodeID='" . KodeID . "' and MhswID", $MhswID, "*"); $khs = GetFields('khs', "KodeID = '" . KodeID . "' and TahunID = '{$TahunID}' and MhswID", $MhswID, "*"); $khslalu = array(); if ($khs[Sesi] > 1) { $sesilalu = $khs[Sesi] - 1; $khslalu = GetFields('khs', "KodeID = '" . KodeID . "' and Sesi = '{$sesilalu}' and MhswID", $mhsw[MhswID], "*"); /* while(!empty($khslalu)) { if($khslalu['StatusMhswID'] != 'A') { $sesilalu = $sesilalu-1; $khslalu = GetFields('khs', "KodeID = '".KodeID."' and Sesi = '$sesilalu' and MhswID", $MhswID, "*"); } else { break; } } */ } // Ambil BIPOT-nya $s = "select * \r\n from bipot2 \r\n where BIPOTID = '{$mhsw['BIPOTID']}'\r\n and Otomatis = 'Y'\r\n and NA = 'N'\r\n order by TrxID, Prioritas"; $r = _query($s); while ($w = _fetch_array($r)) { $oke = true; // Apakah sesuai dengan status awalnya? $pos = strpos($w['StatusAwalID'], "." . $mhsw['StatusAwalID'] . "."); $oke = $oke && !($pos === false); // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w['StatusMhswID'], "." . $khs['StatusMhswID'] . "."); $oke = $oke && !($pos === false); // Apakah grade-nya? if ($oke) { if ($w['GunakanGradeNilai'] == 'Y') { $pos = strpos($w['GradeNilai'], "." . $mhsw['GradeNilai'] . "."); $oke = $oke && !($pos === false); } } // Apakah Jumlah SKS Tahun ini mencukupi? if ($oke) { if ($w['GunakanGradeIPK'] == 'Y') { if ($khs['SKS'] < GetaField('gradeipk', "IPKMin <= {$mhsw['IPK']} and {$mhsw['IPK']} <= IPKMax and KodeID", KodeID, 'SKSMin')) { $oke = false; } else { $oke = true; } } } // Apakah Grade IPK-nya OK? if ($oke) { if ($w['GunakanGradeIPK'] == 'Y') { $pos = strpos($w['GradeIPK'], "." . GetaField('gradeipk', "IPKMin <= {$mhsw['IPK']} and {$mhsw['IPK']} <= IPKMax and KodeID", KodeID, 'GradeIPK') . "."); $oke = $oke && !($pos === false); } } // Apakah dimulai pada sesi ini? if ($oke) { if ($w['MulaiSesi'] <= $khs['Sesi'] or $w['MulaiSesi'] == 0) { $oke = true; } else { $oke = false; } } // Simpan data if ($oke) { // Cek, sudah ada atau belum? Kalau sudah, ambil ID-nya $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n and PMBMhswID = 1 and NA = 'N'\r\n and TahunID='{$khs['TahunID']}' and BIPOT2ID", $w['BIPOT2ID'], "BIPOTMhswID") + 0; // Cek apakah memakai script atau tidak? if ($w['GunakanScript'] == 'Y') { BipotGunakanScript($mhsw, $khs, $w, $ada, 1); } else { // Jika tidak ada duplikasi, maka akan di-insert. Tapi jika sudah ada, maka dicuekin aja. if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w['BIPOTNamaID'], 'Nama'); if ($w['PerMatakuliah'] == 'N') { $s1 = "insert into bipotmhsw\r\n (KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n BIPOT2ID, BIPOTNamaID, Nama, TrxID,\r\n Jumlah, Besar, Dibayar,\r\n Catatan, NA,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$w['COAID']}', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n '{$w['BIPOT2ID']}', '{$w['BIPOTNamaID']}', '{$Nama}', '{$w['TrxID']}',\r\n 1, '{$w['Jumlah']}', 0,\r\n 'Auto', 'N',\r\n '{$_SESSION['_Login']}', now())"; $r1 = _query($s1); //22 juli 2013 //jika insert tagihan $idt = mysql_insert_id(); $bn = GetFields('bipotnama', 'BIPOTNamaID', $w[BIPOTNamaID], '*'); if ($bn[TrxID] == 1) { $sx = "update bipotmhsw set TagihanID = '" . $idt . "' where BIPOTMhswID='" . $idt . "'"; $rx = _query($sx); } else { //jika insert potongan $cek_tagihan = GetaField("bipotmhsw", "MhswID='{$mhsw['MhswID']}' and TahunID='{$khs['TahunID']}' and NA='N' and TrxID", 1, "TagihanID", "order by BIPOTMhswID desc"); $sx = "update bipotmhsw set TagihanID = '" . $cek_tagihan . "' where BIPOTMhswID='" . $idt . "'"; $rx = _query($sx); } } else { // Ambil BIPOT Biaya Per Mata Kuliah // mario // 200813 $Jumlah2 = 0; $COAID = ''; $sxx = "select k.MKKode, k.Nama, k.SKS, j.BiayaKhusus, j.Biaya, j.NamaBiaya, j.AdaResponsi\r\n from krs k \r\n left outer join jadwal j on k.JadwalID=j.JadwalID and j.KodeID='" . KodeID . "'\r\n left outer join mk mk on mk.MKID=k.MKID and mk.KodeID='" . KodeID . "'\r\n where k.MhswID='{$mhsw['MhswID']}' and k.TahunID='{$khs['TahunID']}' and mk.PraktekKerja='N' and k.KodeID='" . KodeID . "'"; $rxx = _query($sxx); while ($wxx = _fetch_array($rxx)) { $s1 = "select * from bipot2 where BIPOTID = '{$mhsw['BIPOTID']}' and Otomatis = 'Y' and (PerMataKuliah = 'Y' or PerLab = 'Y') and NA = 'N' order by TrxID, Prioritas"; $r1 = _query($s1); while ($w1 = _fetch_array($r1)) { $MsgList[] = '-----------------------------------------------------------------'; $MsgList[] = "Memproses {$w1['BIPOT2ID']}, Rp. {$w1['Jumlah']}"; $oke = true; // Cek apakah mata kuliah ini dapat dikenakan biaya Lab if ($w1['PerLab'] == 'Y') { if ($wxx['AdaResponsi'] == 'Y') { $oke = true; } else { $oke = false; } } else { $oke = true; } // Apakah sesuai dengan status awalnya? $pos = strpos($w1['StatusAwalID'], "." . $mhsw['StatusAwalID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status awalnya ({$w1['StatusAwalID']} ~ {$mhsw['StatusAwalID']})? {$oke}"; // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w1['StatusMhswID'], "." . $khs['StatusMhswID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status mahasiswanya ({$w1['StatusMhswID']} ~ {$khs['StatusMhswID']})? {$oke}"; // Apakah grade-nya? if ($oke) { if ($w1['GunakanGradeNilai'] == 'Y') { $pos = strpos($w1['GradeNilai'], "." . $mhsw['GradeNilai'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Gunakan Grade Nilai? {$oke}"; } } // Apakah Jumlah SKS Tahun lalu mencukupi? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { $_SKS = GetaField('gradeipk', "IPKMin <= '{$khslalu['IPS']}' and '{$khslalu['IPS']}' <= IPKMax and KodeID", KodeID, 'SKSMin'); if ($_SKS > $khslalu[SKS]) { $oke = false; } else { $oke = true; } $MsgList[] = "Jumlah SKS Tahun Mencukupi({$_SKS} ~ {$khslalu['SKS']})? {$oke}"; } } // Apakah Grade IPK-nya OK? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { if (!empty($khslalu)) { $_GradeIPK = GetaField('gradeipk', "IPKMin <= {$khslalu['IPS']} and {$khslalu['IPS']} <= IPKMax and KodeID", KodeID, 'GradeIPK'); $pos = strpos($w1['GradeIPK'], "." . $_GradeIPK . "."); $oke = $oke && !($pos === false); $MsgList[] = "Grade IPK OK ({$_GradeIPK} ~ {$w1['GradeIPK']})? {$oke}"; } else { $oke = false; } } } // Apakah dimulai pada sesi ini? if ($oke) { if ($w1['MulaiSesi'] <= $khs['Sesi'] or $w1['MulaiSesi'] == 0) { $oke = true; } else { $oke = false; } $MsgList[] = "Mulai pada sesi ini ({$khs['Sesi']} ~ {$w1['MulaiSesi']})? {$oke}"; } // Apakah ada setup berapa kali ambil? if ($oke && $w1['KaliSesi'] > 0) { $_kali = GetaField('bipotmhsw', "MhswID='{$MhswID}' and NA='N' and PMBMhswID=1 and BIPOTNamaID='{$w1['BIPOTNamaID']}' and TambahanNama='{$wxx['MKKode']} - {$wxx['Nama']} - {$wxx['SKS']} SKS' and KodeID", KodeID, "count(BIPOTMhswID)") + 0; $oke = $_kali < $w1['KaliSesi']; $MsgList[] = "Berapa Kali Ambil - ({$_kali} ~ {$w1['KaliSesi']})? {$oke}"; } if ($oke) { $MsgList[] = "ALL OK! GO FOR IT!"; } // Simpan data if ($oke) { $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}' and NA = 'N' and PMBMhswID = 1 and TahunID='{$khs['TahunID']}' and BIPOTNamaID = '{$w1['BIPOTNamaID']}'\t\r\n and TambahanNama='{$wxx['MKKode']} - {$wxx['Nama']} - {$wxx['SKS']} SKS'\r\n and BIPOT2ID", $w1['BIPOT2ID'], "BIPOTMhswID") + 0; if ($ada == 0) { // Simpan //$COAID = $w1['COAID']; $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w1['BIPOTNamaID'], 'Nama'); if ($w1['PerSKS'] == 'Y') { $Jumlah = $wxx['SKS']; } else { $Jumlah = 1; } // mario // 200813 $Besar = $w1['Jumlah']; $Jumlah2 += $Jumlah; $COAID = $w1[COAID]; $BIPOT2ID = $w1[BIPOT2ID]; $BIPOTNamaID = $w1[BIPOTNamaID]; $TrxID = $w1[TrxID]; /* $s2 = "insert into bipotmhsw (KodeID, COAID, PMBMhswID, MhswID, TahunID, BIPOT2ID, BIPOTNamaID, TambahanNama, Nama, TrxID, Jumlah, Besar, Dibayar,Catatan, NA, LoginBuat, TanggalBuat) values ('" . KodeID . "', '$w1[COAID]', 1, '$mhsw[MhswID]', '$khs[TahunID]', '$w1[BIPOT2ID]', '$w1[BIPOTNamaID]', '" . $w['MKKode'] . " - " . $w['Nama'] . " - " . $w['SKS'] . " SKS', '$Nama', '$w1[TrxID]', '$Jumlah', '$Besar', 0, 'Auto', 'N', '$_SESSION[_Login]', now())"; $r2 = _query($s2); */ } } // if } // while } // while // mario // 200813 if ($Nama != '' && $Besar > 0) { $s2 = "insert into bipotmhsw (KodeID, COAID, PMBMhswID, MhswID, TahunID, BIPOT2ID, BIPOTNamaID, TambahanNama, Nama, TrxID, \r\n Jumlah, Besar, Dibayar,Catatan, NA, LoginBuat, TanggalBuat)\r\n values ('" . KodeID . "', '{$COAID}', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}', '{$BIPOT2ID}', '{$BIPOTNamaID}', '', '{$Nama}', '{$TrxID}', \r\n '{$Jumlah2}', '{$Besar}', 0, 'Auto', 'N', '{$_SESSION['_Login']}', now())"; $r2 = _query($s2); //22 juli 2013 //jika insert tagihan $idt = mysql_insert_id(); $bn = GetFields('bipotnama', 'BIPOTNamaID', $BIPOTNamaID, '*'); if ($bn[TrxID] == 1) { $sx = "update bipotmhsw set TagihanID = '" . $idt . "' where BIPOTMhswID='" . $idt . "'"; $rx = _query($sx); } else { //jika insert potongan $cek_tagihan = GetaField("bipotmhsw", "MhswID='{$mhsw['MhswID']}' and TahunID='{$khs['TahunID']}' and NA='N' and TrxID", 1, "TagihanID", "order by BIPOTMhswID desc"); $sx = "update bipotmhsw set TagihanID = '" . $cek_tagihan . "' where BIPOTMhswID='" . $idt . "'"; $rx = _query($sx); } } } // if PerMatakuliah } // end $ada=0 } // end if $ada } // end if $oke } // end while $jml = HitungUlangBIPOTMhsw($MhswID, $TahunID); return $jml; }
function ProsesBIPOT() { $MhswID = sqling($_REQUEST['MhswID']); $TahunID = sqling($_REQUEST['TahunID']); // Ambil data $mhsw = GetFields('mhsw', "KodeID='" . KodeID . "' and MhswID", $MhswID, "*"); $khs = GetFields('khs', "KodeID = '" . KodeID . "' and TahunID = '{$TahunID}' and MhswID", $MhswID, "*"); $khslalu = array(); if ($khs[Sesi] > 1) { $sesilalu = $khs[Sesi] - 1; $khslalu = GetFields('khs', "KodeID = '" . KodeID . "' and Sesi = '{$sesilalu}' and MhswID", $MhswID, "*"); /*while(!empty($khslalu)) { if($khslalu['StatusMhswID'] != 'A') { $sesilalu = $sesilalu-1; $khslalu = GetFields('khs', "KodeID = '".KodeID."' and Sesi = '$sesilalu' and MhswID", $MhswID, "*"); } else { break; } }*/ } // Ambil BIPOT-nya $s = "select * \r\n from bipot2 \r\n where BIPOTID = '{$mhsw['BIPOTID']}'\r\n and Otomatis = 'Y'\r\n and PerMataKuliah = 'N'\r\n\t and PerLab = 'N'\r\n\t and Remedial = 'N'\r\n\t and PraktekKerja = 'N'\r\n\t and NA = 'N'\r\n order by TrxID, Prioritas"; $r = _query($s); $MsgList = array(); while ($w = _fetch_array($r)) { $MsgList[] = ''; $MsgList[] = "Memproses {$w['BIPOT2ID']}, Rp. {$w['Jumlah']}"; $oke = true; // Apakah sesuai dengan status awalnya? $pos = strpos($w['StatusAwalID'], "." . $mhsw['StatusAwalID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status awalnya ({$w['StatusAwalID']} ~ {$mhsw['StatusAwalID']})? {$oke}"; // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w['StatusMhswID'], "." . $khs['StatusMhswID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status mahasiswanya ({$w['StatusMhswID']} ~ {$khs['StatusMhswID']})? {$oke}"; // Apakah grade-nya? if ($oke) { if ($w['GunakanGradeNilai'] == 'Y') { $pos = strpos($w['GradeNilai'], "." . $mhsw['GradeNilai'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Gunakan Grade Nilai? {$oke}"; } } // Apakah Jumlah SKS Tahun lalu mencukupi? if ($oke) { if ($w['GunakanGradeIPK'] == 'Y') { $_SKS = GetaField('gradeipk', "IPKMin <= '{$khslalu['IPS']}' and '{$khslalu['IPS']}' <= IPKMax and KodeID", KodeID, 'SKSMin'); if ($_SKS > $khslalu[SKS]) { $oke = false; } else { $oke = true; } $MsgList[] = "Jumlah SKS Tahun Mencukupi({$_SKS} ~ {$khslalu['SKS']})? {$oke}"; } } // Apakah Grade IPK-nya OK? if ($oke) { if ($w['GunakanGradeIPK'] == 'Y') { if (!empty($khslalu)) { $_GradeIPK = GetaField('gradeipk', "IPKMin <= {$khslalu['IPS']} and {$khslalu['IPS']} <= IPKMax and KodeID", KodeID, 'GradeIPK'); $pos = strpos($w['GradeIPK'], "." . $_GradeIPK . "."); $oke = $oke && !($pos === false); $MsgList[] = "Grade IPK OK ({$_GradeIPK} ~ {$w['GradeIPK']})? {$oke}"; } else { $oke = false; } } } // Apakah dimulai pada sesi ini? if ($oke) { if ($w['MulaiSesi'] <= $khs['Sesi'] or $w['MulaiSesi'] == 0) { $oke = true; } else { $oke = false; } $MsgList[] = "Mulai pada sesi ini ({$khs['Sesi']} ~ {$w['MulaiSesi']})? {$oke}"; } // Apakah ada setup berapa kali ambil? if ($oke && $w['KaliSesi'] > 0) { $_kali = GetaField('bipotmhsw', "MhswID='{$MhswID}' and NA='N' and PMBMhswID=1 and KodeID", KodeID, "count(BIPOTMhswID)") + 0; $oke = $_kali < $w['KaliSesi']; $MsgList[] = "Berapa Kali Ambil - ({$_kali} ~ {$w['KaliSesi']})? {$oke}"; } if ($oke) { $MsgList[] = "ALL OK! GO FOR IT!"; } // Simpan data if ($oke) { // Cek, sudah ada atau belum? Kalau sudah, ambil ID-nya $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n and NA = 'N'\r\n and PMBMhswID = 1\r\n and TahunID='{$khs['TahunID']}' and BIPOT2ID", $w['BIPOT2ID'], "BIPOTMhswID") + 0; // Cek apakah memakai script atau tidak? if ($w['GunakanScript'] == 'Y') { BipotGunakanScript($mhsw, $khs, $w, $ada, 1); } else { // Jika tidak ada duplikasi, maka akan di-insert. Tapi jika sudah ada, maka dicuekin aja. if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w['BIPOTNamaID'], 'Nama'); $s1 = "insert into bipotmhsw\r\n (KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n BIPOT2ID, BIPOTNamaID, TambahanNama, Nama, TrxID,\r\n Jumlah, Besar, Dibayar,\r\n Catatan, NA,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$w['COAID']}', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n '{$w['BIPOT2ID']}', '{$w['BIPOTNamaID']}', '{$w['TambahanNama']}', '{$Nama}', '{$w['TrxID']}',\r\n 1, '{$w['Jumlah']}', 0,\r\n 'Auto', 'N',\r\n '{$_SESSION['_Login']}', now())"; $r1 = _query($s1); } // end $ada=0 } // end if $ada } // end if $oke } // end while // Ambil BIPOT Biaya Per Mata Kuliah $s = "select k.MKKode, k.Nama, k.SKS, j.BiayaKhusus, j.Biaya, j.NamaBiaya, j.AdaResponsi\r\n\t\t\tfrom krs k \r\n\t\t\t\tleft outer join jadwal j on k.JadwalID=j.JadwalID and j.KodeID='" . KodeID . "'\r\n\t\t\t\tleft outer join mk mk on mk.MKID=k.MKID and mk.KodeID='" . KodeID . "'\r\n\t\t\twhere k.MhswID='{$MhswID}' and k.TahunID='{$_SESSION['TahunID']}' and mk.PraktekKerja='N' and k.KodeID='" . KodeID . "'"; $r = _query($s); while ($w = _fetch_array($r)) { $s1 = "select * \r\n\t from bipot2 \r\n\t\twhere BIPOTID = '{$mhsw['BIPOTID']}'\r\n\t\t and Otomatis = 'Y'\r\n\t\t and (PerMataKuliah = 'Y' or PerLab = 'Y')\r\n\t\t and NA = 'N'\r\n\t\torder by TrxID, Prioritas"; $r1 = _query($s1); while ($w1 = _fetch_array($r1)) { $MsgList[] = '-----------------------------------------------------------------'; $MsgList[] = "Memproses {$w1['BIPOT2ID']}, Rp. {$w1['Jumlah']}"; $oke = true; // Cek apakah mata kuliah ini dapat dikenakan biaya Lab if ($w1['PerLab'] == 'Y') { if ($w['AdaResponsi'] == 'Y') { $oke = true; } else { $oke = false; } } else { $oke = true; } // Apakah sesuai dengan status awalnya? $pos = strpos($w1['StatusAwalID'], "." . $mhsw['StatusAwalID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status awalnya ({$w1['StatusAwalID']} ~ {$mhsw['StatusAwalID']})? {$oke}"; // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w1['StatusMhswID'], "." . $khs['StatusMhswID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status mahasiswanya ({$w1['StatusMhswID']} ~ {$khs['StatusMhswID']})? {$oke}"; // Apakah grade-nya? if ($oke) { if ($w1['GunakanGradeNilai'] == 'Y') { $pos = strpos($w1['GradeNilai'], "." . $mhsw['GradeNilai'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Gunakan Grade Nilai? {$oke}"; } } // Apakah Jumlah SKS Tahun lalu mencukupi? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { $_SKS = GetaField('gradeipk', "IPKMin <= '{$khslalu['IPS']}' and '{$khslalu['IPS']}' <= IPKMax and KodeID", KodeID, 'SKSMin'); if ($_SKS > $khslalu[SKS]) { $oke = false; } else { $oke = true; } $MsgList[] = "Jumlah SKS Tahun Mencukupi({$_SKS} ~ {$khslalu['SKS']})? {$oke}"; } } // Apakah Grade IPK-nya OK? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { if (!empty($khslalu)) { $_GradeIPK = GetaField('gradeipk', "IPKMin <= {$khslalu['IPS']} and {$khslalu['IPS']} <= IPKMax and KodeID", KodeID, 'GradeIPK'); $pos = strpos($w1['GradeIPK'], "." . $_GradeIPK . "."); $oke = $oke && !($pos === false); $MsgList[] = "Grade IPK OK ({$_GradeIPK} ~ {$w1['GradeIPK']})? {$oke}"; } else { $oke = false; } } } // Apakah dimulai pada sesi ini? if ($oke) { if ($w1['MulaiSesi'] <= $khs['Sesi'] or $w1['MulaiSesi'] == 0) { $oke = true; } else { $oke = false; } $MsgList[] = "Mulai pada sesi ini ({$khs['Sesi']} ~ {$w1['MulaiSesi']})? {$oke}"; } // Apakah ada setup berapa kali ambil? if ($oke && $w1['KaliSesi'] > 0) { $_kali = GetaField('bipotmhsw', "MhswID='{$MhswID}' and NA='N' and PMBMhswID=1 and BIPOTNamaID='{$w1['BIPOTNamaID']}' and TambahanNama='{$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS' and KodeID", KodeID, "count(BIPOTMhswID)") + 0; $oke = $_kali < $w1['KaliSesi']; $MsgList[] = "Berapa Kali Ambil - ({$_kali} ~ {$w1['KaliSesi']})? {$oke}"; } if ($oke) { $MsgList[] = "ALL OK! GO FOR IT!"; } // Simpan data if ($oke) { $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n\t\t\t\tand NA = 'N'\r\n\t\t\t\tand PMBMhswID = 1\r\n\t\t\t\tand TahunID='{$khs['TahunID']}'\r\n\t\t\t\tand BIPOTNamaID = '{$w1['BIPOTNamaID']}'\r\n\t\t\t\tand TambahanNama='{$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS'\r\n\t\t\t\tand BIPOT2ID", $w1['BIPOT2ID'], "BIPOTMhswID") + 0; if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w1['BIPOTNamaID'], 'Nama'); if ($w1['PerSKS'] == 'Y') { $Jumlah = $w['SKS']; } else { $Jumlah = 1; } $Besar = $w1['Jumlah']; $s2 = "insert into bipotmhsw\r\n\t\t\t\t(KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n\t\t\t\tBIPOT2ID, BIPOTNamaID, TambahanNama, Nama, TrxID, \r\n\t\t\t\tJumlah, Besar, Dibayar,\r\n\t\t\t\tCatatan, NA,\r\n\t\t\t\tLoginBuat, TanggalBuat)\r\n\t\t\t\tvalues\r\n\t\t\t\t('" . KodeID . "', '{$w1['COAID']}', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n\t\t\t\t'{$w1['BIPOT2ID']}', '{$w1['BIPOTNamaID']}', '" . $w['MKKode'] . " - " . $w['Nama'] . " - " . $w['SKS'] . " SKS', '{$Nama}', '{$w1['TrxID']}', \r\n\t\t\t\t'{$Jumlah}', '{$Besar}', 0,\r\n\t\t\t\t'Auto', 'N',\r\n\t\t\t\t'{$_SESSION['_Login']}', now())"; $r2 = _query($s2); } } } } // Ambil BIPOT Biaya Praktek Kerja $s = "select k.MKKode, k.Nama, k.SKS, j.BiayaKhusus, j.Biaya, j.NamaBiaya, j.AdaResponsi\r\n\t\t\tfrom krs k \r\n\t\t\t\tleft outer join jadwal j on k.JadwalID=j.JadwalID and j.KodeID='" . KodeID . "'\r\n\t\t\t\tleft outer join mk mk on mk.MKID=k.MKID and mk.KodeID='" . KodeID . "'\r\n\t\t\twhere k.MhswID='{$MhswID}' and k.TahunID='{$_SESSION['TahunID']}' and mk.PraktekKerja='Y' and k.KodeID='" . KodeID . "'"; $r = _query($s); while ($w = _fetch_array($r)) { $s1 = "select * \r\n\t from bipot2 \r\n\t\twhere BIPOTID = '{$mhsw['BIPOTID']}'\r\n\t\t and Otomatis = 'Y'\r\n\t\t and (PraktekKerja = 'Y')\r\n\t\t and NA = 'N'\r\n\t\torder by TrxID, Prioritas"; $r1 = _query($s1); while ($w1 = _fetch_array($r1)) { $MsgList[] = '-----------------------------------------------------------------'; $MsgList[] = "Memproses {$w1['BIPOT2ID']}, Rp. {$w1['Jumlah']}"; $oke = true; // Apakah sesuai dengan status awalnya? $pos = strpos($w1['StatusAwalID'], "." . $mhsw['StatusAwalID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status awalnya ({$w1['StatusAwalID']} ~ {$mhsw['StatusAwalID']})? {$oke}"; // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w1['StatusMhswID'], "." . $khs['StatusMhswID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status mahasiswanya ({$w1['StatusMhswID']} ~ {$khs['StatusMhswID']})? {$oke}"; // Apakah grade-nya? if ($oke) { if ($w1['GunakanGradeNilai'] == 'Y') { $pos = strpos($w1['GradeNilai'], "." . $mhsw['GradeNilai'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Gunakan Grade Nilai? {$oke}"; } } // Apakah Jumlah SKS Tahun lalu mencukupi? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { $_SKS = GetaField('gradeipk', "IPKMin <= '{$khslalu['IPS']}' and '{$khslalu['IPS']}' <= IPKMax and KodeID", KodeID, 'SKSMin'); if ($_SKS > $khslalu[SKS]) { $oke = false; } else { $oke = true; } $MsgList[] = "Jumlah SKS Tahun Mencukupi({$_SKS} ~ {$khslalu['SKS']})? {$oke}"; } } // Apakah Grade IPK-nya OK? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { if (!empty($khslalu)) { $_GradeIPK = GetaField('gradeipk', "IPKMin <= {$khslalu['IPS']} and {$khslalu['IPS']} <= IPKMax and KodeID", KodeID, 'GradeIPK'); $pos = strpos($w1['GradeIPK'], "." . $_GradeIPK . "."); $oke = $oke && !($pos === false); $MsgList[] = "Grade IPK OK ({$_GradeIPK} ~ {$w1['GradeIPK']})? {$oke}"; } else { $oke = false; } } } // Apakah dimulai pada sesi ini? if ($oke) { if ($w1['MulaiSesi'] <= $khs['Sesi'] or $w1['MulaiSesi'] == 0) { $oke = true; } else { $oke = false; } $MsgList[] = "Mulai pada sesi ini ({$khs['Sesi']} ~ {$w1['MulaiSesi']})? {$oke}"; } // Apakah ada setup berapa kali ambil? if ($oke && $w1['KaliSesi'] > 0) { $_kali = GetaField('bipotmhsw', "MhswID='{$MhswID}' and NA='N' and PMBMhswID=1 and BIPOTNamaID='{$w1['BIPOTNamaID']}' and TambahanNama='{$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS' and KodeID", KodeID, "count(BIPOTMhswID)") + 0; $oke = $_kali < $w1['KaliSesi']; $MsgList[] = "Berapa Kali Ambil - ({$_kali} ~ {$w1['KaliSesi']})? {$oke}"; } if ($oke) { $MsgList[] = "ALL OK! GO FOR IT!"; } // Simpan data if ($oke) { $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n\t\t\t\tand NA = 'N'\r\n\t\t\t\tand PMBMhswID = 1\r\n\t\t\t\tand TahunID='{$khs['TahunID']}'\r\n\t\t\t\tand BIPOTNamaID = '{$w1['BIPOTNamaID']}'\r\n\t\t\t\tand TambahanNama='{$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS'\r\n\t\t\t\tand BIPOT2ID", $w1['BIPOT2ID'], "BIPOTMhswID") + 0; if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w1['BIPOTNamaID'], 'Nama'); if ($w1['PerSKS'] == 'Y') { $Jumlah = $w['SKS']; } else { $Jumlah = 1; } $Besar = $w1['Jumlah']; $s2 = "insert into bipotmhsw\r\n\t\t\t\t(KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n\t\t\t\tBIPOT2ID, BIPOTNamaID, TambahanNama, Nama, TrxID, \r\n\t\t\t\tJumlah, Besar, Dibayar,\r\n\t\t\t\tCatatan, NA,\r\n\t\t\t\tLoginBuat, TanggalBuat)\r\n\t\t\t\tvalues\r\n\t\t\t\t('" . KodeID . "', '{$w1['COAID']}', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n\t\t\t\t'{$w1['BIPOT2ID']}', '{$w1['BIPOTNamaID']}', '" . $w[MKKode] . " - " . $w['Nama'] . " - " . $w['SKS'] . " SKS', '{$Nama}', '{$w1['TrxID']}', \r\n\t\t\t\t'{$Jumlah}', '{$Besar}', 0,\r\n\t\t\t\t'Auto', 'N',\r\n\t\t\t\t'{$_SESSION['_Login']}', now())"; $r2 = _query($s2); } } } } // Masukkan Biaya Khusus dari tiap mata kuliah (termasuk biaya khusus mata kuliah praktek kerja - bila ada) $s = "select k.MKKode, k.Nama, k.SKS, j.BiayaKhusus, j.Biaya, j.NamaBiaya from krs k left outer join jadwal j on k.JadwalID=j.JadwalID and j.KodeID='" . KodeID . "'\r\n\t\t\twhere k.MhswID='{$MhswID}' and k.TahunID='{$_SESSION['TahunID']}' and j.BiayaKhusus='Y' and k.KodeID='" . KodeID . "'"; $r = _query($s); while ($w = _fetch_array($r)) { $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n\tand NA = 'N'\r\n\tand PMBMhswID = 1\r\n\tand TahunID='{$khs['TahunID']}' \r\n\tand Nama='{$w['NamaBiaya']}'\r\n\tand TambahanNama='{$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS'\r\n\tand BIPOT2ID", 0, "BIPOTMhswID") + 0; if ($ada == 0) { // Simpan $s2 = "insert into bipotmhsw\r\n\t\t(KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n\t\tBIPOT2ID, BIPOTNamaID, Nama, TambahanNama, TrxID, \r\n\t\tJumlah, Besar, Dibayar,\r\n\t\tCatatan, NA,\r\n\t\tLoginBuat, TanggalBuat)\r\n\t\tvalues\r\n\t\t('" . KodeID . "', '', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n\t\t0, 0, '{$w['NamaBiaya']}', '{$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS', 1, \r\n\t\t1, '{$w['Biaya']}', 0,\r\n\t\t'Biaya Khusus', 'N',\r\n\t\t'{$_SESSION['_Login']}', now())"; $r2 = _query($s2); } } // Ambil BIPOT Remedial $s = "select k.MKKode, k.Nama, k.SKS\r\n\t\t\tfrom krsremedial k \r\n\t\t\twhere k.MhswID='{$MhswID}' and k.TahunID='{$_SESSION['TahunID']}' and k.KodeID='" . KodeID . "'"; $r = _query($s); while ($w = _fetch_array($r)) { $MsgList[] = '-----------------------------------------------------------------'; $MsgList[] = '---------------------------REMEDIAL---------------------------'; $s1 = "select * \r\n\t from bipot2 \r\n\t\twhere BIPOTID = '{$mhsw['BIPOTID']}'\r\n\t\t and Otomatis = 'Y'\r\n\t\t and Remedial = 'Y'\r\n\t\t and NA = 'N'\r\n\t\torder by TrxID, Prioritas"; $r1 = _query($s1); while ($w1 = _fetch_array($r1)) { $MsgList[] = '-----------------------------------------------------------------'; $MsgList[] = "Memproses {$w1['BIPOT2ID']} - {$w['MKKode']} - {$w['Nama']}, Rp. {$w1['Jumlah']}"; $oke = true; // Apakah sesuai dengan status awalnya? $pos = strpos($w1['StatusAwalID'], "." . $mhsw['StatusAwalID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status awalnya ({$w1['StatusAwalID']} ~ {$mhsw['StatusAwalID']})? {$oke}"; // Apakah sesuai dengan status mahasiswanya? $pos = strpos($w1['StatusMhswID'], "." . $khs['StatusMhswID'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Sesuai dengan status mahasiswanya ({$w1['StatusMhswID']} ~ {$khs['StatusMhswID']})? {$oke}"; // Apakah grade-nya? if ($oke) { if ($w1['GunakanGradeNilai'] == 'Y') { $pos = strpos($w1['GradeNilai'], "." . $mhsw['GradeNilai'] . "."); $oke = $oke && !($pos === false); $MsgList[] = "Gunakan Grade Nilai? {$oke}"; } } // Apakah Jumlah SKS Tahun lalu mencukupi? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { $_SKS = GetaField('gradeipk', "IPKMin <= '{$khslalu['IPS']}' and '{$khslalu['IPS']}' <= IPKMax and KodeID", KodeID, 'SKSMin'); if ($_SKS > $khslalu[SKS]) { $oke = false; } else { $oke = true; } $MsgList[] = "Jumlah SKS Tahun Mencukupi({$_SKS} ~ {$khslalu['SKS']})? {$oke}"; } } // Apakah Grade IPK-nya OK? if ($oke) { if ($w1['GunakanGradeIPK'] == 'Y') { if (!empty($khslalu)) { $_GradeIPK = GetaField('gradeipk', "IPKMin <= {$khslalu['IPS']} and {$khslalu['IPS']} <= IPKMax and KodeID", KodeID, 'GradeIPK'); $pos = strpos($w1['GradeIPK'], "." . $_GradeIPK . "."); $oke = $oke && !($pos === false); $MsgList[] = "Grade IPK OK ({$_GradeIPK} ~ {$w1['GradeIPK']})? {$oke}"; } else { $oke = false; } } } // Apakah dimulai pada sesi ini? if ($oke) { if ($w1['MulaiSesi'] <= $khs['Sesi'] or $w1['MulaiSesi'] == 0) { $oke = true; } else { $oke = false; } $MsgList[] = "Mulai pada sesi ini ({$khs['Sesi']} ~ {$w1['MulaiSesi']})? {$oke}"; } // Apakah ada setup berapa kali ambil? if ($oke && $w1['KaliSesi'] > 0) { $_kali = GetaField('bipotmhsw', "MhswID='{$MhswID}' and NA='N' and PMBMhswID=1 and BIPOTNamaID='{$w1['BIPOTNamaID']}' and TambahanNama='{$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS' and KodeID", KodeID, "count(BIPOTMhswID)") + 0; $oke = $_kali < $w1['KaliSesi']; $MsgList[] = "Berapa Kali Ambil - ({$_kali} ~ {$w1['KaliSesi']})? {$oke}"; } if ($oke) { $MsgList[] = "ALL OK! GO FOR IT!"; } // Simpan data if ($oke) { $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n\t\t\t\tand NA = 'N'\r\n\t\t\t\tand PMBMhswID = 1\r\n\t\t\t\tand TahunID='{$khs['TahunID']}'\r\n\t\t\t\tand BIPOTNamaID = '{$w1['BIPOTNamaID']}'\r\n\t\t\t\tand TambahanNama='Remedial: {$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS'\r\n\t\t\t\tand BIPOT2ID", $w1['BIPOT2ID'], "BIPOTMhswID") + 0; if ($ada == 0) { // Simpan $Nama = GetaField('bipotnama', 'BIPOTNamaID', $w1['BIPOTNamaID'], 'Nama'); if ($w1['PerSKS'] == 'Y') { $Jumlah = $w['SKS']; } else { $Jumlah = 1; } $Besar = $w1['Jumlah']; $s2 = "insert into bipotmhsw\r\n\t\t\t\t(KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n\t\t\t\tBIPOT2ID, BIPOTNamaID, TambahanNama, Nama, TrxID, \r\n\t\t\t\tJumlah, Besar, Dibayar,\r\n\t\t\t\tCatatan, NA,\r\n\t\t\t\tLoginBuat, TanggalBuat)\r\n\t\t\t\tvalues\r\n\t\t\t\t('" . KodeID . "', '{$w1['COAID']}', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n\t\t\t\t'{$w1['BIPOT2ID']}', '{$w1['BIPOTNamaID']}', 'Remedial: " . $w['MKKode'] . " - " . $w['Nama'] . " - " . $w['SKS'] . " SKS', '{$Nama}', '{$w1['TrxID']}', \r\n\t\t\t\t'{$Jumlah}', '{$Besar}', 0,\r\n\t\t\t\t'Auto', 'N',\r\n\t\t\t\t'{$_SESSION['_Login']}', now())"; $r2 = _query($s2); } } } } // Masukkan Biaya Khusus dari tiap mata kuliah remedial $s = "select k.MKKode, k.Nama, k.SKS, j.BiayaKhusus, j.Biaya, j.NamaBiaya \r\n\t\t\tfrom krsremedial k left outer join jadwalremedial j on k.JadwalRemedialID=j.JadwalRemedialID and j.KodeID='" . KodeID . "'\r\n\t\t\twhere k.MhswID='{$MhswID}' and k.TahunID='{$_SESSION['TahunID']}' and j.BiayaKhusus='Y' and k.KodeID='" . KodeID . "'"; $r = _query($s); while ($w = _fetch_array($r)) { $ada = GetaField('bipotmhsw', "KodeID='" . KodeID . "' and MhswID = '{$mhsw['MhswID']}'\r\n\tand NA = 'N'\r\n\tand PMBMhswID = 1\r\n\tand TahunID='{$khs['TahunID']}' \r\n\tand Nama='{$w['NamaBiaya']}'\r\n\tand TambahanNama='Remedial: {$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS'\r\n\tand BIPOT2ID", 0, "BIPOTMhswID") + 0; if ($ada == 0) { // Simpan $s2 = "insert into bipotmhsw\r\n\t\t(KodeID, COAID, PMBMhswID, MhswID, TahunID,\r\n\t\tBIPOT2ID, BIPOTNamaID, Nama, TambahanNama, TrxID, \r\n\t\tJumlah, Besar, Dibayar,\r\n\t\tCatatan, NA,\r\n\t\tLoginBuat, TanggalBuat)\r\n\t\tvalues\r\n\t\t('" . KodeID . "', '', 1, '{$mhsw['MhswID']}', '{$khs['TahunID']}',\r\n\t\t0, 0, '{$w['NamaBiaya']}', 'Remedial: {$w['MKKode']} - {$w['Nama']} - {$w['SKS']} SKS', 1, \r\n\t\t1, '{$w['Biaya']}', 0,\r\n\t\t'Biaya Khusus', 'N',\r\n\t\t'{$_SESSION['_Login']}', now())"; $r2 = _query($s2); } } // Uncomment lines below to print debugging messages /*echo "COUNT: ".count($MsgList); if(!empty($MsgList)) { foreach($MsgList as $Msg) { echo "$Msg<br>"; } }*/ HitungUlangBIPOTMhsw($MhswID, $TahunID); BerhasilSimpan("?mnux={$_SESSION['mnux']}&gos=&MhswID={$MhswID}&TahunID={$TahunID}", 10); }