function DftrBipotIsi1()
{
global $mnux, $tok;
$arrbenar = GetFields('beasiswa', 'BeasiswaID', $_SESSION['beasiswaid'], "ProgramID, ProdiID");
if ($arrbenar['ProgramID'] == $_SESSION['prid'] and $arrbenar['ProdiID'] == $_SESSION['prodi']) {
$s = "select b.*\r\n\t\t\tfrom beasiswa b\r\n\t\t\twhere BIPOTID = {$_SESSION['bipotid']} and KodeID='" . KodeID . "'\r\n\t\t\torder by b.IPKMin DESC, b.IPKMax DESC";
$r = _query($s);
$ftr = "</table></p>";
$TrxID = -100;
$cnt = 0;
$a = BuatMenuBipotIsi();
while ($w = _fetch_array($r)) {
$a .= HdrBipotIsi('Beasiswa', $TrxID);
// menggunakan script?
// Tampilkan data
$cnt++;
$c = $w['NA'] == 'Y' ? 'class=nac' : 'class=ul';
$a .= "<tr>\r\n <td {$c} nowrap align=center>\r\n <a href='?mnux={$mnux}&tok={$tok}&sub1=BIPOTIsiEdt&md=0'>\r\n {$cnt}\r\n <br />\r\n <img src='img/edit.png'>\r\n </a></td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c} align=right>\r\n {$w['Jumlah']} \r\n <hr size=1 color=silver />\r\n <div align=left></div>\r\n </td>\r\n\t <td {$c} align=right>\r\n {$w['Persen']} \r\n <hr size=1 color=silver />\r\n <div align=left></div>\r\n </td>\r\n <td {$c}>{$w['StatusAwalID']}\r\n <hr size=1 color=silver />\r\n {$w['StatusMhswID']}</td>\r\n <td {$c} align=center>\r\n {$w['IPKMin']} </td>\r\n\t <td {$c} align=center>\r\n {$w['IPKMax']} </td>\r\n <td {$c} align=center><img src='img/book{$w['NA']}.gif'></td>\r\n </tr>";
$a .= "<tr><td bgcolor=silver colspan=10 height=1></td></tr>";
}
$a .= "</table></p>";
} else {
$a = '';
}
return $a;
}
function DftrBipotIsi1()
{
global $mnux, $tok;
$arrbenar = GetFields('bipot', 'BIPOTID', $_SESSION['bipotid'], "ProgramID, ProdiID");
if ($arrbenar['ProgramID'] == $_SESSION['prid'] and $arrbenar['ProdiID'] == $_SESSION['prodi']) {
$s = "select b2.*, bn.Nama, format(b2.Jumlah, 0) as JML,\r\n t.Nama as NMTRX, s.Nama as SAAT\r\n from bipot2 b2\r\n left outer join bipotnama bn on b2.BIPOTNamaID=bn.BIPOTNamaID\r\n left outer join saat s on b2.SaatID=s.SaatID\r\n left outer join trx t on b2.TrxID=t.TrxID\r\n where b2.BIPOTID='{$_SESSION['bipotid']}' and KodeID='{$_SESSION['KodeID']}'\r\n order by b2.TrxID, b2.Prioritas, b2.GradeNilai";
$r = _query($s);
$ftr = "</table></p>";
$TrxID = -100;
$cnt = 0;
$a = BuatMenuBipotIsi();
while ($w = _fetch_array($r)) {
// Buat header & footer
if ($TrxID != $w['TrxID']) {
$TrxID = $w['TrxID'];
if ($cnt > 0) {
$a .= $ftr;
}
$a .= HdrBipotIsi($w['NMTRX'], $TrxID);
}
// menggunakan script?
$scr = $w['GunakanScript'] == 'Y' ? "<img src='img/gear.gif' width=20 title='{$w['NamaScript']}'>" : " ";
// Tampilkan data
$cnt++;
$c = $w['NA'] == 'Y' ? 'class=nac' : 'class=ul';
$a .= "<tr>\r\n <td {$c} nowrap><a href='?mnux={$mnux}&tok={$tok}&sub1=BipotIsiEdt&md=0&bipot2={$w['BIPOT2ID']}&trxid={$w['TrxID']}&trxnama={$w['NMTRX']}'><img src='img/edit.png'>\r\n {$w['Prioritas']} </a></td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c} align=right>{$w['JML']}</td>\r\n <td {$c}>{$w['SAAT']}</td>\r\n <td {$c} align=center><img src='img/{$w['Otomatis']}.gif'></td>\r\n <td {$c} align=center>{$scr}</td>\r\n <td {$c} align=right>{$w['KaliSesi']}</td>\r\n <td {$c}>{$w['StatusAwalID']}</td>\r\n <td {$c}>{$w['StatusMhswID']}</td>\r\n <td {$c}><img src='img/{$w['GunakanGradeNilai']}.gif'> {$w['GradeNilai']}</td>\r\n <td {$c} align=center><img src='img/book{$w['NA']}.gif'></td>\r\n </tr>";
}
$a .= "</table></p>";
} else {
$a = '';
}
return $a;
}
function DftrBipotIsi1()
{
global $mnux, $tok;
$arrbenar = GetFields('bipot', 'BIPOTID', $_SESSION['bipotid'], "ProgramID, ProdiID");
if ($arrbenar['ProgramID'] == $_SESSION['prid'] and $arrbenar['ProdiID'] == $_SESSION['prodi']) {
$s = "select b2.*, bn.Nama, format(b2.Jumlah, 0) as JML,\r\n t.Nama as NMTRX, s.Nama as SAAT\r\n from bipot2 b2\r\n left outer join bipotnama bn on b2.BIPOTNamaID=bn.BIPOTNamaID\r\n left outer join saat s on b2.SaatID=s.SaatID\r\n left outer join trx t on b2.TrxID=t.TrxID\r\n where b2.BIPOTID='{$_SESSION['bipotid']}' and KodeID='{$_SESSION['KodeID']}'\r\n order by b2.TrxID, b2.Prioritas, b2.GradeNilai, b2.GradeIPK";
$r = _query($s);
$ftr = "</table></p>";
$TrxID = -100;
$cnt = 0;
$a = BuatMenuBipotIsi();
while ($w = _fetch_array($r)) {
// Buat header & footer
if ($TrxID != $w['TrxID']) {
$TrxID = $w['TrxID'];
if ($cnt > 0) {
$a .= $ftr;
}
$a .= HdrBipotIsi($w['NMTRX'], $TrxID);
}
// menggunakan script?
$scr = $w['GunakanScript'] == 'Y' ? "<img src='img/gear.gif' width=20 title='{$w['NamaScript']}'>" : " ";
// Tampilkan data
$cnt++;
$c = $w['NA'] == 'Y' ? 'class=nac' : 'class=ul';
$KaliSesi = (empty($w['KaliSesi']) or $w['KaliSesi'] == 0) ? '∞' : $w['KaliSesi'];
$TambahanNama = empty($w['TambahanNama']) ? '' : "({$w['TambahanNama']})";
$PerMataKuliah = $w['PerMataKuliah'] == 'Y' ? "<img src='img/permatakuliah.bmp'" : '';
$PerSKS = $w['PerSKS'] == 'Y' ? "<img src='img/persks.bmp'" : '';
$PerLab = $w['PerLab'] == 'Y' ? "<img src='img/perlab.bmp'" : '';
$Remedial = $w['Remedial'] == 'Y' ? "<sup>REMEDIAL</sup>" : '';
$PraktekKerja = $w['PraktekKerja'] == 'Y' ? "<sup>PRAKTEK KERJA</sup>" : '';
$a .= "<tr>\r\n <td {$c} nowrap align=center>\r\n <a href='?mnux={$mnux}&tok={$tok}&sub1=BipotIsiEdt&md=0&bipot2={$w['BIPOT2ID']}&trxid={$w['TrxID']}&trxnama={$w['NMTRX']}'>\r\n {$w['Prioritas']}\r\n <br />\r\n <img src='img/edit.png'>\r\n </a></td>\r\n <td {$c}>{$w['Nama']} {$TambahanNama} {$PerMataKuliah}{$PerLab}{$Remedial}{$PraktekKerja}{$PerSKS}</td>\r\n <td {$c} align=right>\r\n {$w['JML']}\r\n <hr size=1 color=silver />\r\n <div align=left>{$w['SAAT']}</div>\r\n </td>\r\n <td {$c} align=center><img src='img/{$w['Otomatis']}.gif'>\r\n <hr size=1 color=silver />\r\n {$scr}</td>\r\n <td {$c} align=right> {$w['MulaiSesi']} / {$KaliSesi}×</td>\r\n <td {$c}>{$w['StatusAwalID']}\r\n <hr size=1 color=silver />\r\n {$w['StatusMhswID']}</td>\r\n <td {$c} align=center>\r\n <img src='img/{$w['GunakanGradeNilai']}.gif'>\r\n <hr size=1 color=silver />\r\n {$w['GradeNilai']} </td>\r\n\t <td {$c} align=center>\r\n <img src='img/{$w['GunakanGradeIPK']}.gif'>\r\n <hr size=1 color=silver />\r\n {$w['GradeIPK']} </td>\r\n <td {$c} align=center><img src='img/book{$w['NA']}.gif'></td>\r\n </tr>";
$a .= "<tr><td bgcolor=silver colspan=10 height=1></td></tr>";
}
$a .= "</table></p>";
} else {
$a = '';
}
return $a;
}