function DftrSmt($mhswid, $mhsw)
{
TampilkanHeaderMhsw($mhsw);
$s = "select k.*,\n sm.Nama as STT\n from khs k\n left outer join statusmhsw sm on sm.StatusMhswID = k.StatusMhswID\n where k.KodeID = '" . KodeID . "'\n and k.MhswID = '{$mhswid}'\n order by k.Sesi";
$r = _query($s);
$n = 0;
echo "<table class=box cellspacing=1 width=100%>";
echo "<tr>\n <th class=ttl>Sesi</th>\n <th class=ttl>Thn Akd</th>\n <th class=ttl>Status</th>\n <th class=ttl>SKS</th>\n <th class=ttl>IPS</th>\n <th class=ttl>IPK</th>\n <th class=ttl>Biaya</th>\n <th class=ttl>Potongan</th>\n <th class=ttl>Pembayaran</th>\n <th class=ttl>Penarikan</th>\n <th class=ttl>Balance</th>\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
echo "<tr>\n <td class=inp>{$w['Sesi']}</td>\n <td class=ul1>{$w['TahunID']}</td>\n <td class=ul1>{$w['STT']}<sup>{$w['StatusMhswID']}</sup></td>\n <td class=ul1 align=right>{$w['SKS']}</td>\n <td class=ul1 align=right>{$w['IPS']}</td>\n <td class=ul1 align=right>{$w['IPK']}</td>\n <td class=ul1 align=right>{$w['Biaya']}</td>\n <td class=ul1 align=right>{$w['Potongan']}</td>\n <td class=ul1 align=right>{$w['Bayar']}</td>\n <td class=ul1 align=right>{$w['Tarik']}</td>\n <td class=ul1 align=right>{$w['Balance']}</td>\n </tr>";
}
echo "</table></p>";
}
CekBolehAksesModul();
TampilkanCariMhswnya();
if (!empty($_krsTahunID) && !empty($_krsMhswID)) {
$oke = BolehAksesData($_krsMhswID);
if ($oke) {
$oke = ValidasiDataMhsw($_krsTahunID, $_krsMhswID, $khs);
}
if ($oke) {
$oke = CekPembayaran($_krsMhswID);
}
if ($oke) {
$mhsw = GetFields("mhsw m\r\n left outer join statusawal sta on sta.StatusAwalID = m.StatusAwalID \r\n\t left outer join dosen d on d.Login = m.PenasehatAkademik", "m.KodeID = '" . KodeID . "' and m.MhswID", $_krsMhswID, "m.*, sta.Nama as STAWAL, d.Nama as namaDosen");
$thn = GetFields("tahun", "KodeID = '" . KodeID . "' and TahunID", $_krsTahunID, "*");
$gos = sqling($_REQUEST['gos']);
if (empty($gos)) {
TampilkanHeaderMhsw($thn, $mhsw, $khs);
TampilkanDaftarKRSMhsw($thn, $mhsw, $khs);
} else {
$gos();
}
}
}
// *** Functions ***
function TampilkanCariMhswnya()
{
$s = "select DISTINCT(TahunID) from tahun where KodeID='" . KodeID . "' order by TahunID DESC";
$r = _query($s);
$opttahun = "<option value=''></option>";
while ($w = _fetch_array($r)) {
$ck = $w['TahunID'] == $_SESSION['_krsTahunID'] ? "selected" : '';
$opttahun .= "<option value='{$w['TahunID']}' {$ck}>{$w['TahunID']}</option>";
global $HeaderMSHS;
if (!empty($_SESSION['DariNPM'])) {
$_SESSION['SampaiNPM'] = empty($_SESSION['SampaiNPM']) ? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM'];
$_npm = "'{$_SESSION['DariNPM']}' <= MhswID and MhswID <= '{$_SESSION['SampaiNPM']}' ";
} else {
$drmhsw = GetaField('mhsw', "NA", "N", "min(MhswID)");
$smpmhsw = GetaField('mhsw', "NA", "N", "max(MhswID)");
$_npm = "'{$drmhsw}' <= MhswID and MhswID <= '{$smpmhsw}' ";
}
$s = "select MhswID\r\n from mhsw\r\n where {$_npm}\r\n\t\torder by MhswID";
$r = _query($s);
$n = 0;
$DBFName = "dikti/MHMHS-20062.DBF";
DBFCreate($DBFName, $HeaderMSHS);
while ($w = _fetch_array($r)) {
$n++;
$_SESSION["DBF-MHSWID-{$n}"] = $w['MhswID'];
}
$_SESSION["DBF-FILES"] = $DBFName;
$_SESSION["DBF-POS"] = 0;
$_SESSION["DBF-MAX"] = $n;
echo "<p>Akan diproses <font size=+1>{$n}</font> data.</p>";
echo "<p><IFRAME src='dikti.mastermhsw.go.php' frameborder=0 height=400 width=600>\r\n </IFRAME></p>";
}
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
TampilkanJudul("Proses membuat Master Mahasiswa untuk Dikti");
TampilkanHeaderMhsw();
if (!empty($_REQUEST['gos'])) {
$_REQUEST['gos']();
}
$sub = !empty($_REQUEST['sub']) ? $_REQUEST['sub'] : 'frmPT';
$sub();
}
function mb()
{
include_once "mhsw.edt.masterbipot.php";
$sub = !empty($_REQUEST['sub']) ? $_REQUEST['sub'] : 'BPTEDT';
$sub();
}
// *** Parameters ***
$arrmhswpg = array('Pribadi->pri', 'Alamat Tetap->almt', 'Akademik->akd', 'Orang Tua->ortu', 'Asal Sekolah->sek', 'Asal Perguruan Tinggi->pt', 'Bank->bank');
//'Master Bipot->mb');
$mhswid = GetSetVar('mhswid');
$mhswpg = GetSetVar('mhswpg', 'pri');
$mnux = 'mhsw.edt';
$pref = 'mhswedt';
$token = GetSetVar($pref, 'pri');
// *** Main ***
TampilkanJudul("Data Mahasiswa");
if (!empty($_SESSION['mhswid'])) {
$datamhsw = GetFields("mhsw m\r\n left outer join prodi prd on m.ProdiID=prd.ProdiID\r\n left outer join program prg on m.ProgramID=prg.ProgramID", 'm.MhswID', $mhswid, "m.*, prd.Nama as PRD, prg.Nama as PRG");
if (!empty($datamhsw)) {
TampilkanHeaderMhsw($datamhsw);
TampilkanSubMenu($mnux, $arrmhswpg, $pref, $token);
if (!empty($token)) {
$token();
}
} else {
echo ErrorMsg("Kesalahan", "Terjadi kesalahan. Mahasiswa dengan NPM: <b>{$mhswid}</b> tidak ditemukan.");
}
}
<?php
// Author : Emanuel Setio Dewo
// Email : setio.dewo@gmail.com
// Start : 10 Sept 2008
// *** Parameters ***
$MhswID = GetSetVar('MhswID');
$mhsw = GetFields("mhsw m\r\n left outer join dosen d on m.PenasehatAkademik = d.Login and d.KodeID='" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = m.ProdiID and prd.KodeID='" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = m.ProgramID and prg.KodeID='" . KodeID . "'\r\n ", "m.KodeID='" . KodeID . "' and m.MhswID", $MhswID, "m.*, prd.Nama as _PRD, prg.Nama as _PRG,\r\n d.Nama as DSN, d.Gelar");
// *** Main ***
TampilkanJudul("Koreksi Nilai Mahasiswa");
TampilkanHeaderMhsw($MhswID, $mhsw);
$gos = empty($_REQUEST['gos']) ? "EditNilaiMhsw" : $_REQUEST['gos'];
if (!empty($mhsw)) {
$gos($MhswID, $mhsw);
}
// *** Functions ***
function TampilkanHeaderMhsw($MhswID, $w)
{
echo <<<ESD
<table class=box cellspacing=1 width=700>
<form action='?' method=POST>
<input type=hidden name='mnux' value='{$_SESSION['mnux']}' />
<input type=hidden name='gos' value='' />
<tr><td class=inp width=100>NIM:</td>
<td class=ul width=210>
<input type=text name='MhswID' value='{$_SESSION['MhswID']}' size=12 maxlength=20 />
<input type=submit name='Ambil' value='Get Data' />
</td>
<td class=inp width=100>Mahasiswa:</td>
<td class=ul><b>{$w['Nama']}</b> </td>
</tr>
function fnKonversi()
{
$MhswID = sqling($_REQUEST['MhswID']);
$mhsw = GetFields('mhsw', "MhswID='{$MhswID}' and KodeID", KodeID, '*');
TampilkanHeaderMhsw($mhsw);
}
function TampilkanDataMhsw($mhsw, $khs)
{
TampilkanHeaderMhsw($mhsw, $khs);
}
