function BPMSav()
{
$bpmid = $_REQUEST['bpmid'];
$RekeningID = $_REQUEST['RekeningID'];
$Autodebet = empty($_REQUEST['Autodebet']) ? '0' : $_REQUEST['Autodebet'];
$Bank = $_REQUEST['Bank'];
$BuktiSetoran = $_REQUEST['BuktiSetoran'];
$Tanggal = "{$_REQUEST['Tanggal_y']}-{$_REQUEST['Tanggal_m']}-{$_REQUEST['Tanggal_d']}";
$Jumlah = $_REQUEST['Jumlah'] + 0;
$JumlahLain = $_REQUEST['JumlahLain'] + 0;
$Keterangan = sqling($_REQUEST['Keterangan']);
$MhswID = $_REQUEST['MhswID'];
$khsid = $_REQUEST['khsid'];
// Simpan
$s = "update bayarmhsw\r\n set RekeningID='{$RekeningID}', Autodebet='{$Autodebet}',\r\n Bank='{$Bank}', BuktiSetoran='{$BuktiSetoran}', Keterangan='{$Keterangan}',\r\n Jumlah={$Jumlah}, JumlahLain={$JumlahLain},\r\n Tanggal='{$Tanggal}', LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where BayarMhswID='{$bpmid}'";
$r = _query($s);
// update pembayaran
/*$_REQUEST['khsid'] = $khsid;
$_REQUEST['mhswid'] = $MhswID;
$_REQUEST['pmbmhswid'] = 1;
PrcBIPOTSesi(); */
include_once "mhswkeu.lib.php";
HitungBiayaBayarMhsw($MhswID, $khsid);
echo "<script>window.location='?mnux={$_SESSION['bck']}&gos={$_SESSION['bckgos']}&MhswID={$MhswID}&khsid={$khsid}';</script>";
}
function SkorsKHS($mhsw, $thn, $NoSurat = '', $TglSurat = '', $Keterangan = '')
{
global $KodeID;
$_StatusSkors = 'S';
$khs = GetFields("khs k left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID", "k.MhswID='{$mhsw['MhswID']}' and k.TahunID", $thn, "k.*, sm.Nama as SM");
if (!empty($khs)) {
// 1. Bekukan KRS
$s1 = "update krs set StatusKRSID='{$_StatusSkors}' where KHSID={$khs['KHSID']} ";
$r1 = _query($s1);
// 2. Kewajiban dinolkan
$_BipotRefund = array(5, 16);
for ($i = 0; $i < sizeof($_BipotRefund); $i++) {
$_b = $_BipotRefund[$i];
$s2 = "update bipotmhsw set Besar=0 where BIPOTNamaID={$_b} and TahunID='{$thn}' and MhswID='{$mhsw['MhswID']}' ";
$r2 = _query($s2);
}
// 2a. Hitung ulang
include_once "mhswkeu.lib.php";
HitungBiayaBayarMhsw($mhsw['MhswID'], $khs['KHSID']);
// 3. Set status mhsw di KHS menjadi skors
$s3 = "update khs set StatusMhswID='{$_StatusSkors}', NoSurat='{$NoSurat}', \r\n TglSurat='{$TglSurat}', Keterangan='{$Keterangan}' \r\n where KHSID='{$khs['KHSID']}' ";
$r3 = _query($s3);
return "<li>{$thn} » Diskorsing. KRS dibekukan, Kewajiban SKS dibekukan.</li>";
} elseif (!empty($thn)) {
$_sesi = GetaField('khs', "MhswID", $mhsw['MhswID'], "max(Sesi)") + 1;
// 1. Buat KHS dgn status SKORS
$s1 = "insert into khs (TahunID, KodeID, ProgramID, ProdiID, MhswID,\r\n StatusMhswID, Sesi, BIPOTID,\r\n NoSurat, TglSurat, Keterangan,\r\n LoginBuat, TanggalBuat)\r\n values ('{$thn}', '{$KodeID}', '{$mhsw['ProgramID']}', '{$mhsw['ProdiID']}', '{$mhsw['MhswID']}',\r\n '{$_StatusSkors}', '{$_sesi}', '{$mhsw['BIPOTID']}',\r\n '{$NoSurat}', '{$TglSurat}', '{$Keterangan}',\r\n '{$_SESSION['_Login']}', now())";
$r1 = _query($s1);
return "<li>{$thn} » Dibuat dgn status Skors (S). Mhsw tidak dapat melakukan kegiatan akademik.</li>";
}
}
function BeasBtl($mhsw, $beas)
{
$btl = $_REQUEST['btl'];
$beas1 = GetFields('beasiswamhsw', 'BeasiswaMhswID', $btl, '*');
$b = GetFields('beasiswa', 'BeasiswaID', $beas1['BeasiswaID'], '*');
// Batalkan Beasiswa
$s = "update beasiswamhsw set NA='Y' where BeasiswaMhswID={$btl}";
$r = _query($s);
// Enolkan potongan di BIPOTMhsw
$s1 = "update bipotmhsw set Jumlah=0, Dibayar=0 \r\n where MhswID='{$mhsw['MhswID']}'\r\n and BIPOTNamaID='{$b['BIPOTNamaID']}'\r\n and TahunID='{$beas1['TahunID']}' ";
$r1 = _query($s1);
// Hitung balance
include_once "mhswkeu.lib.php";
$KHSID = GetaField('khs', "TahunID='{$beas1['TahunID']}' and MhswID", $beas1['MhswID'], 'KHSID');
HitungBiayaBayarMhsw($beas1['MhswID'], $KHSID);
// Tampilkan pesan
echo Konfirmasi("Beasiswa Sudah Dibatalkan", "Beasiswa untuk <font size=+1>{$mhsw['Nama']}</font> pada tahun <font size=+1>{$beas1['TahunID']}</font>\r\n sudah dibatalkan.<br />\r\n Harap periksa keuangan mahasiswa untuk tahun <font size=+1>{$beas1['TahunID']}</font>");
}
function prckeu()
{
$prodi = $_SESSION['prodi'];
$_SESSION['HTG-Pos-' . $prodi]++;
$pos = $_SESSION['HTG-Pos-' . $prodi];
$max = $_SESSION['HTG-Max-' . $prodi];
$MhswID = $_SESSION['HTG-MhswID-' . $prodi . $pos];
$KHSID = $_SESSION['HTG-KHSID-' . $prodi . $pos];
$persen = $max == 0 ? 0 : number_format($pos / $max * 100);
if (!empty($MhswID)) {
echo "<p>Processing: <b>{$MhswID}</b></p>\r\n <p>Position: <b>{$pos}/{$max}</b></p>\r\n <p><font size=+4>{$persen} %</font></p>";
// Hitung
HitungBiayaBayarMhsw($MhswID, $KHSID);
}
if ($pos < $max) {
echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
} else {
echo "<hr><p>Proses Selesai</p>";
}
}
function BayarSavManual1()
{
$mhswid = $_REQUEST['mhswid'];
$pmbid = $_REQUEST['pmbid'];
$pmbmhswid = $_REQUEST['pmbmhswid'];
$khsid = $_REQUEST['khsid'];
if ($pmbmhswid == 0) {
$TahunID = GetaField('pmb', 'PMBID', $pmbid, "PMBPeriodID");
} else {
$TahunID = GetaField('khs', 'KHSID', $khsid, 'TahunID');
}
$CicilanID = $_REQUEST['CicilanID'];
$RekeningID = $_REQUEST['RekeningID'];
$BuktiSetoran = sqling($_REQUEST['BuktiSetoran']);
$BayarMhswID = $_REQUEST['bpmid'];
$Jumlah = $_REQUEST['Jumlah'] + 0;
$_Jumlah = number_format($Jumlah);
$JumlahLain = $_REQUEST['JumlahLain'] + 0;
$_JumlahLain = number_format($JumlahLain);
//$Tanggal = "$_REQUEST[Tanggal_y]-$_REQUEST[Tanggal_m]-$_REQUEST[Tanggal_d]";
$Tanggal = $_REQUEST['Tanggal'];
//echo "<font size=+1>$Tanggal</font>";
$Keterangan = sqling($_REQUEST['Keterangan']);
$md = $_REQUEST['md'] + 0;
if ($md == 0) {
$s = "update # set BuktiSetoran='{$BuktiSetoran}', Tanggal='{$Tanggal}', \r\n Jumlah='{$Jumlah}', JumlahLain='{$JumlahLain}',\r\n Keterangan='{$Keterangan}', Proses=1,\r\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where BayarMhswID='{$BayarMhswID}' ";
// update data asli
$str = str_replace('#', 'bayarmhsw', $s);
$r = _query($str);
// update data cek
$str = str_replace('#', 'bayarmhswcek', $s);
$r = _query($str);
} else {
// fase 1: tambahkan transaksi
$BayarMhswID = GetNextBPM();
$s = "insert into #\r\n (BayarMhswID, TahunID, PMBID, MhswID, RekeningID, BuktiSetoran,\r\n PMBMhswID, TrxID, Tanggal, Jumlah, JumlahLain, CicilanID, Keterangan,\r\n LoginBuat, TanggalBuat)\r\n values('{$BayarMhswID}', '{$TahunID}', '{$pmbid}', '{$mhswid}', '{$RekeningID}', '{$BuktiSetoran}',\r\n '{$pmbmhswid}', 1, '{$Tanggal}', {$Jumlah}, {$JumlahLain}, {$CicilanID}, '{$Keterangan}',\r\n '{$_SESSION['_Login']}', now())";
// Insert data asli
$str = str_replace('#', 'bayarmhsw', $s);
$r = _query($str);
// Insert data cek
$str = str_replace('#', 'bayarmhswcek', $s);
$r = _query($str);
}
// Jika cicilan, maka data cicilan di set
if ($CicilanID > 0) {
$sc = "update cicilanmhsw set SudahDibayar='Y'\r\n where CicilanID='{$CicilanID}' ";
$rc = _query($sc);
}
// Tuliskan isinya (BayarMhsw2)
$_BIPOTMhswID = $_REQUEST['arrBIPOTMhswID'];
if (!empty($_BIPOTMhswID)) {
$arrBIPOTMhswID = explode(',', $_BIPOTMhswID);
for ($i = 0; $i < sizeof($arrBIPOTMhswID); $i++) {
$_bmid = $arrBIPOTMhswID[$i];
$_jml = $_REQUEST['BIPOTMhswID_' . $_bmid] + 0;
$s1 = "insert into bayarmhsw2\r\n (BayarMhswID, BIPOTMhswID, Jumlah,\r\n LoginBuat, TanggalBuat)\r\n values ('{$BayarMhswID}', '{$_bmid}', {$_jml},\r\n '{$_SESSION['_Login']}', now())";
$r1 = _query($s1);
// Update data BIPOT
$fld = $pmbmhswid == 0 ? "PMBID" : "MhswID";
$nli = $pmbmhswid == 0 ? $pmbid : $mhswid;
$totaldibayar = GetaField("bayarmhsw2 bm2\r\n left outer join bayarmhsw bm on bm2.BayarMhswID=bm.BayarMhswID", "bm.TahunID='{$TahunID}' and bm2.BIPOTMhswID={$_bmid} and bm.{$fld}", $nli, "sum(bm2.Jumlah)") + 0;
$sbpt = "update bipotmhsw\r\n set Dibayar={$totaldibayar} where BIPOTMhswID='{$_bmid}' ";
$rbpt = _query($sbpt);
//echo "<pre>$sbpt</pre>";
}
}
if ($pmbmhswid == 1) {
// Update Total Bayar
$TotalBayar = GetaField('bayarmhsw', "TahunID='{$TahunID}' and MhswID", $mhswid, "sum(Jumlah)") + 0;
$sk = "update khs set Bayar={$TotalBayar} where KHSID={$khsid}";
$rk = _query($sk);
} else {
$TotalBayar = GetaField('bayarmhsw', "PMBMhswID=0 and PMBID", $pmbid, "sum(Jumlah)") + 0;
$sk = "update pmb set TotalSetoranMhsw={$TotalBayar} where PMBID='{$pmbid}' ";
$rk = _query($sk);
}
include_once "mhswkeu.lib.php";
HitungBiayaBayarMhsw($mhswid, $khsid);
if (!empty($_REQUEST['gosto'])) {
echo "<script>window.location='?gos={$_REQUEST['gosto']}';</script>";
}
}
function BeaPrc_xx()
{
$PRCID = array();
$PRCID = $_REQUEST['PRCID'];
for ($i = 0; $i < sizeof($PRCID); $i++) {
$id = $PRCID[$i];
$beas = GetFields('beasiswamhsw', "BeasiswaMhswID", $id, "*");
$b0 = GetFields('beasiswa', "BeasiswaID", $beas['BeasiswaID'], "*");
$khsid = GetaField('khs', "TahunID='{$beas['TahunID']}' and MhswID", $beas['MhswID'], 'KHSID');
// buat akun potongan
$sdh = GetaField("bipotmhsw", "TahunID='{$beas['TahunID']}' and BIPOTNamaID", $b0['BIPOTNamaID'], "BIPOTMhswID");
if (empty($sdh)) {
$sb = "insert into bipotmhsw (MhswID, TahunID, BIPOTNamaID, TrxID,\r\n Jumlah, Besar, Dibayar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values ('{$beas['MhswID']}', '{$beas['TahunID']}', '{$b0['BIPOTNamaID']}', -1,\r\n 1, '{$beas['Besar']}', '{$beas['Besar']}', '{$b0['Nama']}',\r\n '{$_SESSION['_Login']}', now())";
//$rb = _query($sb);
// update data
include_once "mhswkeu.lib.php";
HitungBiayaBayarMhsw($beas['MhswID'], $khsid);
// set flag bahwa sudah diproses
$s = "update beasiswamhsw set Proses='Y' where BeasiswaMhswID='{$id}' ";
//$r = _query($s);
} else {
echo $sdh . "<br />";
}
}
DftrBea();
}
function BPMSav()
{
$TGL = "{$_REQUEST['Tanggal_y']}-{$_REQUEST['Tanggal_m']}-{$_REQUEST['Tanggal_d']}";
$BuktiSetoran = sqling($_REQUEST['BuktiSetoran']);
$KRSID = $_REQUEST['KRSID'];
$krs = GetFields('krs', 'KRSID', $KRSID, '*');
$Bank = sqling($_REQUEST['Bank']);
$RekeningID = $_REQUEST['RekeningID'];
$Jumlah = $_REQUEST['Jumlah'] + 0;
$Keterangan = sqling($_REQUEST['Keterangan']);
//$jdwl = GetFields('jadwal', 'JadwalID', $krs['JadwalID'], '*');
//$Harga = $jdwl['Harga'];
$Kurang = $krs['Harga'] - $krs['Bayar'];
$Bayar = $Jumlah > $Kurang ? $Kurang : $Jumlah;
$Sisa = $Jumlah - $Kurang;
// Tambahkah BPM
$BPM = GetNextBPM();
$s = "insert into bayarmhsw\r\n (BayarMhswID, BayarMhswRef, TahunID, RekeningID, \r\n MhswID, TrxID, PMBMhswID,\r\n Bank, BuktiSetoran, Tanggal, Jumlah,\r\n Keterangan, LoginBuat, TanggalBuat, Proses)\r\n values ('{$BPM}', '{$krs['KRSID']}', '{$krs['TahunID']}', '{$RekeningID}',\r\n '{$krs['MhswID']}', 1, 1,\r\n '{$Bank}', '{$BuktiSetoran}', '{$TGL}', {$Bayar},\r\n '{$Keterangan}', '{$_SESSION['_Login']}', now(), 1)";
$r = _query($s);
// update KRS
$s0 = "update krs set Bayar=Bayar+{$Bayar} where KRSID={$KRSID}";
$r0 = _query($s0);
// update bipotmhsw
$s1 = "update bipotmhsw set Dibayar=Dibayar+{$Bayar} where BIPOTMHswRef='{$krs['KRSID']}' ";
$r1 = _query($s1);
//echo "<pre>$s1</pre>";
// Jika ada sisa, maka buat deposit mhsw
if ($Sisa > 0) {
$s2 = "insert into depositmhsw\r\n (Tanggal, MhswID, Jumlah,\r\n Catatan, LoginBuat, TglBuat)\r\n values (now(), '{$krs['MhswID']}', {$Sisa},\r\n 'Kelebihan pembayaran BPM: {$krs['MKKode']} > KRSID: {$krs['KRSID']}', '{$_SESSION['_Login']}', now())";
$r2 = _query($s2);
}
//echo "<pre>$s2</pre>";
// Hitung Ulang
HitungBiayaBayarMhsw($MhswID, $krs['KHSID']);
// Reload
echo "<script>window.location = '?mnux=klinik.biyar&gos=Biyar';</script>";
}
function BPMLulusPrcSav($mhsw)
{
$BPMID = $_REQUEST['BPMID'];
$TahunBPM = $_REQUEST['TahunBPM'];
$Tgl = "{$_REQUEST['Tgl_y']}-{$_REQUEST['Tgl_m']}-{$_REQUEST['Tgl_d']}";
$JumlahLain = $_REQUEST['JumlahLain'] + 0;
$Keterangan = $_REQUEST['Keterangan'];
// prosesing
$s = "update bayarmhsw set Tanggal='{$Tgl}', JumlahLain={$JumlahLain}, Keterangan='{$Keterangan}', Proses=1,\r\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where BayarMhswID='{$BPMID}' ";
$r = _query($s);
// hitung
$khsid = GetaField('khs', "MhswID='{$mhsw['MhswID']}' and TahunID", $TahunBPM, "KHSID") + 0;
if ($khsid > 0) {
include_once "mhswkeu.lib.php";
HitungBiayaBayarMhsw($mhsw['MhswID'], $khsid);
}
echo "<script>window.location = '?'</script>";
}
function PRCTUTUP()
{
echo "<body bgcolor=#EEFFFF>";
$tahun = $_SESSION['tahun'];
$tahun1 = $_SESSION['tahun1'];
$prodi = $_SESSION['prodi'];
$prid = $_SESSION['prid'];
$pss = $_SESSION['Tutup-Pos-' . $prodi];
$mhswid = $_SESSION['Tutup-MhswID-' . $prodi . $pss];
$khsid = $_SESSION['Tutup-KHSID-' . $prodi . $pss];
$max = $_SESSION['Tutup-Max-' . $prodi];
if ($khsid != 0 and !empty($mhswid)) {
// proses
$persen = $max == 0 ? '0' : number_format($pss / $max * 100);
echo "Proses » <b>{$pss}/{$max}</b> » {$mhswid} ({$khsid})</p>\r\n <hr>\r\n <p><font size=+2>{$persen}</font> %</p>";
// Jika yang ditutup adalah Semester Pendek
$SP = GetaField('tahun', "TahunID", $tahun, 'SP');
if ($SP == 'Y') {
} else {
// Hitung
$bia = GetaField('bipotmhsw', "TahunID='{$tahun}' and TrxID=1 and MhswID", $mhswid, "sum(Jumlah*Besar)") + 0;
$pot = GetaField('bipotmhsw', "TahunID='{$tahun}' and TrxID=-1 and MhswID", $mhswid, "sum(Jumlah*Besar)") + 0;
$byr = GetaField('bayarmhsw', "TahunID='{$tahun}' and TrxID=1 and MhswID", $mhswid, "sum(Jumlah)") + 0;
$trk = GetaField('bayarmhsw', "TahunID='{$tahun}' and TrxID=-1 and MhswID", $mhswid, "sum(Jumlah)") + 0;
echo "<p>{$bia}, {$pot}, {$byr}, {$trk} » Next: {$tahun1}</p>";
$bal = $bia + $trk - $pot - $byr;
$jmldenda = 0;
if ($bal > 0) {
// Apakah kena denda?
if ($_SESSION['Denda2'] + 0 > 0) {
//$denda = GetFields('bipotmhsw', "TahunID='$tahun' and MhswID='$mhswid' and BIPOTNamaID", $_SESSION['accDenda2'], '*');
//if (empty($denda)) {
$NamaD = GetaField('bipotnama', 'BIPOTNamaID', $_SESSION['accDenda2'], 'Nama');
$jmldenda = $bal * $_SESSION['Denda2'] / 100 + 0;
//$s0 = "insert into bipotmhsw
//(PMBID, MhswID, TahunID, BIPOTNamaID, Nama,
//TrxID, Jumlah, Besar, Dibayar, Catatan,
//LoginBuat, TanggalBuat)
//values
//(1, '$mhswid', '$tahun1', $_SESSION[accDenda2], '$NamaD',
//1, 1, $jmldenda, 0, 'TUTUP TAHUN $_SESSION[Denda2]%',
//'$_SESSION[_Login]', now())";
//$r0 = _query($s0);
}
// Transfer Hutang ke Smt berikutnya
$sdh = GetFields('bipotmhsw', "TahunID='{$tahun1}' and MhswID='{$mhswid}' and BIPOTNamaID", $_SESSION['HutangNext'], "*");
if (empty($sdh)) {
$Nama = GetaField('bipotnama', 'BIPOTNamaID', $_SESSION['HutangPrev'], 'Nama');
$s0 = "insert into bipotmhsw\r\n (PMBID, MhswID, TahunID, BIPOTNamaID, Nama,\r\n TrxID, Jumlah, Besar, Dibayar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values\r\n (1, '{$mhswid}', '{$tahun1}', {$_SESSION['accDenda2']}, '{$NamaD}',\r\n 1, 1, {$jmldenda}, 0, 'TUTUP TAHUN {$_SESSION['Denda2']}%',\r\n '{$_SESSION['_Login']}', now())";
$r0 = _query($s0);
$s = "insert into bipotmhsw\r\n (PMBMhswID, MhswID, TahunID, BIPOTNamaID, Nama,\r\n TrxID, Jumlah, Besar, Dibayar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values\r\n (1, '{$mhswid}', '{$tahun1}', {$_SESSION['HutangNext']}, '{$Nama}',\r\n 1, 1, {$bal}, 0, 'TUTUP TAHUN',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
}
// Bayarkan hutang di smt sebelumnya
//$lns = GetFields('bipotmhsw', "TahunID='$tahun' and MhswID='$mhswid' and BIPOTNamaID", $_SESSION['HutangPrev'], "*");
//if (empty($lns)) {
//$Nama = GetaField('bipotnama', 'BIPOTNamaID', $_SESSION['HutangNext'], 'Nama');
//$s = "insert into bipotmhsw
// (PMBMhswID, MhswID, TahunID, BIPOTNamaID, Nama,
// TrxID, Jumlah, Besar, Dibayar, Catatan,
// LoginBuat, TanggalBuat)
// values
// (1, '$mhswid', '$tahun', $_SESSION[HutangPrev], '$Nama',
// -1, 1, 0, $bal+$jmldenda, 'TUTUP TAHUN',
// '$_SESSION[_Login]', now())";
//$r = _query($s);
//}
// Hitung Total
include "mhswkeu.lib.php";
HitungBiayaBayarMhsw($mhswid, $khsid);
} elseif ($bal < 0) {
// Transfer Deposit
$sdh = GetFields('bipotmhsw', "TahunID='{$tahun1}' and MhswID='{$mhswid}' and BIPOTNamaID", $_SESSION['DepositNext'], "*");
if (empty($sdh)) {
$Nama = GetaField('bipotnama', 'BIPOTNamaID', $_SESSION['DepositPrev'], 'Nama');
$bal = -1 * $bal;
$s = "insert into bipotmhsw\r\n (PMBMhswID, MhswID, TahunID, BIPOTNamaID, Nama,\r\n TrxID, Jumlah, Besar, Dibayar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values\r\n (1, '{$mhswid}', '{$tahun1}', {$_SESSION['DepositPrev']}, '{$Nama}',\r\n -1, 1, {$bal}, 0, 'TUTUP TAHUN',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
}
}
}
// Tutup KHS
$s = "update khs set Tutup='Y' where KHSID={$khsid}";
$r = _query($s);
}
// refresh page
if ($_SESSION['Tutup-Pos-' . $prodi] < $_SESSION['Tutup-Max-' . $prodi]) {
echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
} else {
// update tahun
$st = "update tahun set ProsesTutup=ProsesTutup+1\r\n where ProgramID='{$prid}'\r\n and ProdiID='{$prodi}'\r\n and TahunID='{$tahun}' ";
$rt = _query($st);
echo "<p>Proses Tutup Tahun <b>{$tahun}</b> <font size=+2>SELESAI</font></p>";
}
$_SESSION['Tutup-Pos-' . $prodi]++;
}