function DftrBea1()
{
global $pref, $token;
// Ambil header
$s0 = "select bn.BIPOTNamaID, bn.Nama\r\n from bipotnama bn\r\n where bn.DipotongBeasiswa='Y'\r\n order by bn.Nama";
$r0 = _query($s0);
$arrBN = array();
$arrNama = array();
while ($w0 = _fetch_array($r0)) {
$arrBN[] = $w0['BIPOTNamaID'];
$arrNama[] = $w0['Nama'];
}
// Prasyarat
$hdrprs = '';
if (!empty($_SESSION['BeasiswaID'])) {
$beas = GetFields('beasiswa', 'BeasiswaID', $_SESSION['BeasiswaID'], '*');
$prs = TRIM($beas['Prasyarat'], '~');
if (!empty($prs)) {
$hdrprs .= "<td class=ul>»</td>";
$_prs = explode('~', $prs);
foreach ($_prs as &$v) {
$v = trim($v);
$_v = str_replace(' ', "<br />", $v);
$hdrprs .= "<th class=ttl>{$_v}</th>";
}
}
}
// Data
$whr = array();
if (!empty($_SESSION['prid'])) {
$whr[] = "m.ProgramID='{$_SESSION['prid']}'";
}
if (!empty($_SESSION['prodi'])) {
$whr[] = "m.ProdiID='{$_SESSION['prodi']}'";
}
if (!empty($_SESSION['BeasiswaID'])) {
$whr[] = "bm.BeasiswaID='{$_SESSION['BeasiswaID']}'";
}
$_whr = empty($whr) ? '' : ' and ' . implode(' and ', $whr);
$s = "select bm.BeasiswaMhswID, bm.Proses, bm.BeasiswaID, bm.Prasyarat, bm.NA,\r\n m.MhswID, m.Nama, m.ProdiID, format(bm.Besar, 0) as BSR, \r\n bm.IPS, bm.IPK, bm.Hutang\r\n from beasiswamhsw bm\r\n left outer join mhsw m on bm.MhswID=m.MhswID\r\n where bm.TahunID='{$_SESSION['tahun']}' and bm.KodeID='{$_SESSION['KodeID']}'\r\n {$_whr}\r\n order by m.ProdiID, m.Nama";
$r = _query($s);
$n = 0;
$prd = '';
// Tampilkan
$btn = _num_rows($r) > 0 ? "<input type=submit name='Proses' value='Proses'>" : '';
$hdrbn = '';
for ($i = 0; $i < sizeof($arrNama); $i++) {
$hdrbn .= "<th class=ttl>" . $arrNama[$i] . "</th>";
}
$hdr = "<tr><th class=ttl>#</th>\r\n <th class=ttl>NPM</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Beasiswa</th>\r\n <th class=ttl>IPS</th>\r\n <th class=ttl>IPK</th>\r\n <th class=ttl>Hutang<br />Smt Lalu</th>\r\n <th class=ttl>Wanprestasi</th>\r\n <th class=ttl>Total<br />Permohonan</th>\r\n <th class=ttl>Proses</th>\r\n <th class=ttl>Hapus</th>\r\n <th class=ttl>Edit</th>\r\n {$hdrbn}\r\n {$hdrprs}\r\n </tr>";
echo "<p><table class=box cellspacing=1 cellpadding=4>";
while ($w = _fetch_array($r)) {
if ($prd != $w['ProdiID']) {
$prd = $w['ProdiID'];
$nmprd = GetaField('prodi', 'ProdiID', $prd, 'Nama');
echo "<tr><td class=ul colspan=6><b>{$w['ProdiID']} - {$nmprd}</b></td></tr>" . $hdr;
}
if ($w['NA'] == 'Y') {
$hps = " ";
$prs = "×";
$edt = " ";
} else {
if ($w['Proses'] == 'Y') {
$hps = " ";
$prs = "<img src='img/Y.gif'>";
$edt = " ";
} else {
$hps = "<a href='?mnux=beasiswa&{$pref}={$token}&sub=HpsBeaMhsw&id={$w['BeasiswaMhswID']}'><img src='img/del.gif'></a>";
$prs = "<input type=checkbox name='PRCID' value='{$w['BeasiswaMhswID']}' onChange=\"location='?mnux=beasiswa&{$pref}={$token}&sub=BeaPrc&BMID={$w['BeasiswaMhswID']}#{$w['BeasiswaMhswID']}'\">";
$edt = "<a href='?mnux=beasiswa&{$pref}={$token}&sub=EditDetailBeasiswaMhsw&beaBMID={$w['BeasiswaMhswID']}'><img src='img/edit.png'></a>";
}
}
$n++;
$DetailBeasiswa = AmbilDetailBeasiswa($arrBN, $w['BeasiswaMhswID']);
$Prasyarat = AmbilPrasyaratBeasiswa($_prs, $w);
$c = $w['NA'] == 'Y' ? "class=nac" : "class=ul";
$Hutang = number_format($w['Hutang']);
$wanp = GetaField('prestasi', "JenisPrestasi = -1 and MhswID", $w['MhswID'], 'Judul');
$_wanp = empty($wanp) ? " " : $wanp;
echo "<tr><td class=inp><a name='{$w['BeasiswaMhswID']}'>{$n}</a></td>\r\n <td {$c}>{$w['MhswID']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['BeasiswaID']}</td>\r\n <td {$c} align=right>{$w['IPS']}</td>\r\n <td {$c} align=right>{$w['IPK']}</td>\r\n <td {$c} align=right>{$Hutang}</td>\r\n <td {$c} align=center>{$_wanp}</td>\r\n <td {$c} align=right>{$w['BSR']}</td>\r\n <td {$c} align=center>{$prs}</td>\r\n <td {$c} align=center>{$hps}</td>\r\n <td {$c} align=center>{$edt}</td>\r\n {$DetailBeasiswa}\r\n {$Prasyarat}\r\n </tr>";
}
echo "<tr><td colspan=5></td><td class=ul></td></tr>\r\n </table></p>";
}
function AmbilDataPemohon($tahun, $prodi = '', $BeasiswaID)
{
global $KodeID, $arrID;
// Ambil header
$s0 = "select bn.BIPOTNamaID, bn.Nama\r\n from bipotnama bn\r\n where bn.DipotongBeasiswa='Y'\r\n order by bn.Nama";
$r0 = _query($s0);
$arrBN = array();
$arrNama = array();
while ($w0 = _fetch_array($r0)) {
$arrBN[] = $w0['BIPOTNamaID'];
$arrNama[] = $w0['Nama'];
}
$hdrbn = '';
for ($i = 0; $i < sizeof($arrNama); $i++) {
$hdrbn .= "<th class=ttl>" . $arrNama[$i] . "</th>";
}
// Prasyarat
$hdrprs = '';
if (!empty($_SESSION['BeasiswaID'])) {
$beas = GetFields('beasiswa', 'BeasiswaID', $_SESSION['BeasiswaID'], '*');
$prs = TRIM($beas['Prasyarat'], '~');
if (!empty($prs)) {
$hdrprs .= "<td class=ul>»</td>";
$_prs = explode('~', $prs);
foreach ($_prs as &$v) {
$v = trim($v);
$_v = str_replace(' ', "<br />", $v);
$hdrprs .= "<th class=ttl>{$_v}</th>";
}
}
}
// Data
$Bea = GetFields('beasiswa', 'BeasiswaID', $BeasiswaID, '*');
$Beasiswa = $Bea['Nama'];
$whr = '';
if (!empty($prodi)) {
$whr .= "and m.ProdiID='{$prodi}' ";
}
if (empty($prodi)) {
$hdrprd = "<b>Semua Program Studi</b>";
} else {
$_prodi = GetaField('prodi', 'ProdiID', $prodi, 'Nama');
$hdrprd = "<b>Program Studi: {$_prodi}</b>";
}
echo "<p><center><font size=+1>Daftar Pemohon<br />{$Beasiswa} {$tahun}</font><br />{$hdrprd}</center></p>";
$s = "select bm.*, m.ProdiID, m.Nama\r\n from beasiswamhsw bm\r\n left outer join mhsw m on bm.MhswID=m.MhswID\r\n where bm.TahunID='{$tahun}'\r\n and bm.KodeID='{$KodeID}'\r\n and bm.BeasiswaID='{$BeasiswaID}'\r\n and bm.NA='N' \r\n {$whr}\r\n order by m.ProdiID, m.MhswID";
$r = _query($s);
$n = 0;
$_prd = "qwertyuiop0123456789";
$_tot = 0;
echo "<p><table class=box cellspacing=1 cellpadding=4>";
$hdr = "<tr><th class=ttl>#</th>\r\n <th class=ttl>N P M</th>\r\n <th class=ttl>Nama Mahasiswa</th>\r\n <th class=ttl>IPS</th>\r\n <th class=ttl>IPK</th>\r\n <th class=ttl>Hutang<br />Smg Lalu</th>\r\n <th class=ttl>Total<br />Permohonan</th>\r\n {$hdrbn}\r\n {$hdrprs}\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
if ($_prd != $w['ProdiID']) {
$_prd = $w['ProdiID'];
$prd = GetaField('prodi', 'ProdiID', $_prd, 'Nama');
echo "<tr><td class=ul colspan=10><font size=+1>{$prd}</font></td></tr>";
echo $hdr;
}
$DetailBeasiswa = AmbilDetailBeasiswa($arrBN, $w['BeasiswaMhswID']);
$bsr = number_format($w['Besar']);
$_tot += $w['Besar'];
$Prasyarat = AmbilPrasyaratBeasiswa($_prs, $w);
$Hutang = number_format($w['Hutang']);
echo "<tr><td class=inp>{$n}</td>\r\n <td class=ul>{$w['MhswID']}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul align=right>{$w['IPS']}</td>\r\n <td class=ul align=right>{$w['IPK']}</td>\r\n <td class=ul align=right>{$Hutang}</td>\r\n <td class=ul align=right>{$bsr}</td>\r\n {$DetailBeasiswa}\r\n {$Prasyarat}\r\n </tr>";
}
$tot = number_format($_tot);
echo "</tr><td class=ul align=right colspan=3>Total :</td>\r\n <td class=ul align=right><b>{$tot}</td></tr>";
echo "</table></p>";
}
