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>"; }