function JalankanProses($_pmbJumlah, $_pmbProses)
{
$tmr = 1;
include_once "../baa/mhswbaru.lib.php";
// Tampilan proses
echo "\r\n <p align=center>\r\n <font size=+1>{$_pmbProses}</font> <sup>~{$_pmbJumlah}</sup><br />" . $_SESSION['_pmbPMBID_' . $_pmbProses] . "<br />" . $_SESSION['_pmbNama_' . $_pmbProses] . "</p>";
// Ambil data Cama
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $_SESSION['_pmbPMBID_' . $_pmbProses], "*");
if ($pmb['BIPOTID'] == 0) {
SetBIPOTID($pmb);
}
ProsesBIPOT2($pmb['PMBID']);
HitungUlangBIPOTPMB($pmb['PMBID']);
// Ambil BIPOT yg sudah diupdate
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $_SESSION['_pmbPMBID_' . $_pmbProses], "*");
$prodi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $pmb['ProdiID'], 'Nama');
$smt = GetaField('semester', 'Semester', $_SESSION['_pmbSemester'], 'Nama');
$smt = substr($smt, 0, 6);
$smt = str_pad($smt, 6, ' ', STR_PAD_RIGHT);
// Tuliskan ke file
$fn = "../" . $_SESSION['_pmbFile'];
$f = fopen($fn, 'a');
fwrite($f, $_SESSION['_pmbTahun'] . '-' . $smt . '|' . '000000|00000|' . str_pad($pmb['PMBID'], 16, ' ', STR_PAD_RIGHT) . '|' . str_pad(substr($pmb['Nama'], 0, 21), 21, ' ', STR_PAD_RIGHT) . '|' . str_pad(' ', 25, ' ', STR_PAD_RIGHT) . '|' . str_pad($pmb['ProdiID'], 10, ' ', STR_PAD_RIGHT) . '|' . str_pad(substr($prodi, 0, 25), 25, ' ', STR_PAD_RIGHT) . '|' . substr($pmb['PMBPeriodID'], 0, 4) . '|' . '00000004201390002572|' . str_pad(' ', 20, ' ', STR_PAD_RIGHT) . '|' . str_pad($pmb['TotalBiaya'] - $pmb['TotalBayar'], 10, '0', STR_PAD_LEFT) . '|' . '0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|' . '01|' . $_SESSION['_pmbKodeInstitusi'] . '|' . $_SESSION['_pmbKodePembayaran'] . '|' . str_pad(substr($pmb['PMBID'], 0, 10), 10, '0', STR_PAD_LEFT) . '|' . 'F' . "\n");
fclose($f);
// Next...
$_SESSION['_pmbProses']++;
echo <<<SCR
<script>
window.onload=setTimeout("window.location='../{$_SESSION['mnux']}.proses.php'", {$tmr});
</script>
SCR;
}
function JalankanProses($_upJumlah, $_upProses)
{
$arr = $_SESSION['_up_' . $_upProses];
$dat = explode('|', $arr);
// persentase
$_sudah = $_upJumlah > 0 ? $_upProses / $_upJumlah * 100 : 0;
$_sisa = 100 - $_sudah;
// Parameter
$BayarMhswID = 'BTN-' . $dat[23];
$NamaTahun = $dat[0];
$PMBID = $dat[3];
$NamaMhsw = $dat[4];
$ProdiID = $dat[6];
$NamaProdi = $dat[7];
$Angkatan = $dat[8];
$RekeningID = "4201390002572";
$Jumlah = $dat[10] + 0;
$NamaBIPOT = $dat[11];
$BuktiSetoran = $dat[23] . '|' . $dat[24];
$Catatan = $dat[27];
// Prosesnya
$thn = explode('-', $NamaTahun);
$Tahun = $thn[0];
$Semester = substr($thn[1], 1, 2) == 'GA' ? 1 : 2;
$TahunID = $Tahun . $Semester;
// Cek, apakah sudah dibayarkan sebelumnya atau belum?
$ada = GetaField('bayarmhsw', "KodeID='" . KodeID . "' and BayarMhswID", $BayarMhswID, "count(BayarMhswID)") + 0;
if ($ada > 0) {
echo "<p style='text-align:center;background:red'>Sudah pernah dibayarkan</p>";
} else {
include_once "../baa/mhswbaru.lib.php";
// Tambahkan di catatan pembayaran
$s = "insert into bayarmhsw\r\n (BayarMhswID, KodeID, TahunID, RekeningID, PMBID, TrxID, PMBMhswID,\r\n Bank, BuktiSetoran, Tanggal, Jumlah,\r\n Keterangan, LoginBuat, TanggalBuat, NA)\r\n values\r\n ('{$BayarMhswID}', '" . KodeID . "', '{$TahunID}', '{$RekeningID}', '{$PMBID}', 1, 0,\r\n 'BTN', '{$BuktiSetoran}', now(), {$Jumlah},\r\n '{$Catatan}', '{$_SESSION['_Login']}', now(), 'N')";
$r = _query($s);
die("<pre>{$s}</pre>");
// Update summary
HitungUlangBIPOTPMB($PMBID);
}
// Tampilan proses
$_Jumlah = number_format($Jumlah);
// Tampilan proses
echo "\r\n <p align=center>\r\n <font size=+1>{$_upProses}</font> <sup>~{$_upJumlah}</sup><br />\r\n <img src='../img/B1.jpg' height=20 width=1 /><img src='../img/B2.jpg' height=20 width={$_sudah} /><img src='../img/B3.jpg' height=20 width={$_sisa} /><img src='../img/B1.jpg' height=20 width=1 />\r\n <br />\r\n Tahun Akd: {$TahunID} <br />\r\n PMBID: {$PMBID} <br />\r\n Nama: <b>{$NamaMhsw}</b><br />\r\n Prodi: <b>{$NamaProdi}</b> <sup>{$ProdiID}</sup><br />\r\n Rekening: <b>{$RekeningID}</b><br />\r\n Jumlah: <b>{$_Jumlah}</b><br />\r\n Catatan: <b>{$Catatan}</b><br />\r\n </p>";
// Next...
$tmr = 1000;
$_SESSION['_upProses']++;
echo <<<SCR
<script>
window.onload=setTimeout("window.location='../{$_SESSION['mnux']}.upload.php'", {$tmr});
</script>
SCR;
}
function Simpan($pmbid, $md, $id)
{
$BIPOTNamaID = $_REQUEST['BIPOTNamaID'] + 0;
$Jumlah = $_REQUEST['Jumlah'] + 0;
$Besar = $_REQUEST['Besar'] + 0;
$Dibayar = $_REQUEST['Dibayar'] + 0;
$Catatan = sqling($_REQUEST['Catatan']);
// Simpan
if ($md == 0) {
$s = "update bipotmhsw\n set Jumlah = '{$Jumlah}',\n Besar = '{$Besar}',\n Dibayar = '{$Dibayar}',\n Catatan = '{$Catatan}',\n LoginEdit = '{$_SESSION['_Login']}',\n TanggalEdit = now()\n where BIPOTMhswID = '{$id}' ";
$r = _query($s);
} elseif ($md == 1) {
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $pmbid, '*');
$bn = GetFields('bipotnama', 'BIPOTNamaID', $BIPOTNamaID, '*');
$s = "insert into bipotmhsw\n (KodeID, PMBMhswID, PMBID, TahunID,\n BIPOT2ID, BIPOTNamaID, Nama, TrxID,\n Jumlah, Besar, Dibayar, Catatan,\n LoginBuat, TanggalBuat)\n values\n ('" . KodeID . "', 0, '{$pmbid}', '{$pmb['PMBPeriodID']}',\n 0, {$BIPOTNamaID}, '{$bn['Nama']}', {$bn['TrxID']},\n {$Jumlah}, {$Besar}, {$Dibayar}, '{$Catatan}',\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
} else {
die(ErrorMsg('Error', "Mode edit <b>{$md}</b> tidak dikenali.<br />\n Hubungi Sysadmin untuk informasi lebih lanjut.\n <hr size=1 color=silver />\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
include_once "../{$_SESSION['mnux']}.lib.php";
HitungUlangBIPOTPMB($pmbid);
TutupScript($pmbid);
}
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 Simpan($pmbid, $md, $bayar, $bipotmhsw)
{
$RekeningID = sqling($_REQUEST['RekeningID']);
$Tanggal = "{$_REQUEST['Tanggal_y']}-{$_REQUEST['Tanggal_m']}-{$_REQUEST['Tanggal_d']}";
$Bank = sqling($_REQUEST['Bank']);
$BuktiSetoran = sqling($_REQUEST['BuktiSetoran']);
$Keterangan = sqling($_REQUEST['Keterangan']);
$CNT = $_REQUEST['CNT'] + 0;
// Cek jika tidak ada detailnya
if ($CNT == 0) {
die(ErrorMsg('Error', "Tidak ada detail biaya.<br />\r\n Data tidak bisa disimpan.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
// Cek dulu jumlah yg dibayarkan
$jml = 0;
$PembayaranValid = TRUE;
for ($i = 1; $i <= $CNT; $i++) {
$jml += $_REQUEST['BYR_' . $i] + 0;
$byr = $_REQUEST['BYR_' . $i] + 0;
$subttl = $_REQUEST['SUBTTL_' . $i] + 0;
//if ($subttl < $byr)
//$PembayaranValid = FALSE;
}
if ($jml <= 0) {
die(ErrorMsg('Error', "Jumlah yang Anda bayarkan: <font size=+1>{$jml}</font>.<br />\r\n Tidak ada yang perlu dibayarkan.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" /"));
}
if ($PembayaranValid == FALSE) {
die(ErrorMsg('Error', "Pembayaran: <font size=+1>TIDAK VALID</font>.<br />\r\n Pembayaran tidak boleh melebihi Sub Total.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" /"));
}
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $pmbid, '*');
// Oke, mulai simpan datanya
// 1. Ambil nomer terakhir yang ada
$BayarMhswID = GetNextBPM();
// 2. Buat header bukti pembayaran
$s = "insert into bayarmhsw\r\n (BayarMhswID, TahunID, KodeID,\r\n RekeningID, PMBID, TrxID, PMBMhswID,\r\n Bank, BuktiSetoran, Tanggal,\r\n Jumlah, Keterangan,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$BayarMhswID}', '{$pmb['PMBPeriodID']}', '" . KodeID . "',\r\n '{$RekeningID}', '{$pmb['PMBID']}', 1, 0,\r\n '{$Bank}', '{$BuktiSetoran}', '{$Tanggal}',\r\n {$jml}, '{$Keterangan}',\r\n '{$_SESSION['_LoginBuat']}', now())";
$r = _query($s);
// 3. Simpan detailnya
for ($i = 1; $i <= $CNT; $i++) {
$_j = $_REQUEST['BYR_' . $i] + 0;
if ($_j > 0) {
// Simpan
$id = $_REQUEST['BYRID_' . $i] + 0;
$byrmhsw = GetFields('bipotmhsw', "BIPOTMhswID", $id, '*');
// Simpan dulu detail pembayarannya
$s = "insert into bayarmhsw2\r\n (BayarMhswID, BIPOTMhswID, BIPOTNamaID, Jumlah,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('{$BayarMhswID}', {$id}, '{$byrmhsw['BIPOTNamaID']}', {$_j},\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
// Update detail biayanya
$s = "update bipotmhsw\r\n set Dibayar = Dibayar + {$_j}\r\n where BIPOTMhswID = {$id}";
$r = _query($s);
}
}
HitungUlangBIPOTPMB($pmbid);
TutupScript($pmbid);
}
function Simpan($pmbid, $md, $id, $tagihanid)
{
$BIPOTNamaID = $_REQUEST['BIPOTNamaID'] + 0;
$Jumlah = $_REQUEST['Jumlah'] + 0;
$Besar = $_REQUEST['Besar'] + 0;
$Dibayar = $_REQUEST['Dibayar'] + 0;
$Catatan = sqling($_REQUEST['Catatan']);
$tagihanid = $_REQUEST['tagihanid'];
//$cek_tagihan = GetaField("bipotmhswx", "MhswID='$MhswID' and TahunID='$TahunID' and NA='N' and TrxID", 1, "TagihanID", "order by BIPOTMhswID desc");
$cek_sisa = GetaField("bipotmhsw", "NA='N' and TagihanID", $tagihanid, "sum(TrxID*Jumlah*Besar)");
$trxBIPOTID = GetaField('pmb', "PMBID", $pmbid, 'BIPOTID');
$trxbipot = GetaField('bipot2', "BIPOTID = '" . $trxBIPOTID . "' and BIPOTNamaID", $BIPOTNamaID, "TrxID");
//echo $trxbipot;
if ($trxbipot < 0 && !empty($tagihanid) && $cek_sisa - $Jumlah * $Besar < 0) {
die(ErrorMsg('Stop', "Potongan tidak boleh melebihi biaya.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
// Simpan
if ($md == 0) {
$s = "update bipotmhsw set Jumlah = '{$Jumlah}', Besar = '{$Besar}', Dibayar = '{$Dibayar}', Catatan = '{$Catatan}', LoginEdit = '{$_SESSION['_Login']}', TanggalEdit = now() where BIPOTMhswID = '{$id}' ";
$r = _query($s);
$s = "update bayarmhsw2 set Jumlah = '{$Dibayar}' where BIPOTMhswID = '{$id}' and BIPOTNamaID = '{$BIPOTNamaID}'";
$r = _query($s);
$BayarMhswID = GetaField('bayarmhsw2', "BIPOTMhswID = '{$id}' and BIPOTNamaID", $BIPOTNamaID, 'BayarMhswID');
$TotalDibayar = GetaField('bayarmhsw2', "BIPOTMhswID = '{$id}' and NA = 'N' and BIPOTNamaID", $BIPOTNamaID, 'sum(Jumlah)') + 0;
$s = "update bayarmhsw set Jumlah = {$TotalDibayar} where BayarMhswID = '{$BayarMhswID}'";
$r = _query($s);
} elseif ($md == 1) {
$BIPOTID = GetaField('pmb', "PMBID", $pmbid, 'BIPOTID');
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $pmbid, '*');
$bn = GetFields('bipotnama', 'BIPOTNamaID', $BIPOTNamaID, '*');
$b2 = GetFields('bipot2', "BIPOTID = '{$BIPOTID}' and BIPOTNamaID", $BIPOTNamaID, '*');
$s = "insert into bipotmhsw\r\n (KodeID, PMBMhswID, PMBID, TagihanID, TahunID,\r\n BIPOT2ID, BIPOTNamaID, Nama, TrxID,\r\n Jumlah, Besar, Dibayar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', 0, '{$pmbid}', '{$tagihanid}','{$pmb['PMBPeriodID']}',\r\n '{$b2['BIPOT2ID']}', {$BIPOTNamaID}, '{$bn['Nama']}', {$bn['TrxID']},\r\n {$Jumlah}, {$Besar}, {$Dibayar}, '{$Catatan}',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
//22 juli 2013
//jika insert tagihan
// $idt = mysql_insert_id();
// if ($bn[TrxID] == 1) {
// $s = "update bipotmhsw set TagihanID = '" . $idt . "' where BIPOTMhswID='" . $idt . "'";
// $r = _query($s);
// } else {
// //jika insert potongan
// $cek_tagihan = GetaField("bipotmhsw", "PMBID='$pmbid' and NA='N' and TrxID", 1, "TagihanID", "order by BIPOTMhswID desc");
// $s = "update bipotmhsw set TagihanID = '" . $cek_tagihan . "' where BIPOTMhswID='" . $idt . "'";
// $r = _query($s);
// }
} else {
die(ErrorMsg('Error', "Mode edit <b>{$md}</b> tidak dikenali.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n Opsi: <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
include_once "../{$_SESSION['mnux']}.lib.php";
HitungUlangBIPOTPMB($pmbid);
TutupScript($pmbid);
}
