function deletedata()
{
$id = $_REQUEST['BipotMhswID'];
$s = "delete from bipotmhsw where BipotMhswID = '{$id}'";
$r = _query($s);
TampilkanTagihanKRSMhsw(5);
}
<?php
// Author: Emanuel Setio Dewo
// 24 Jan 2007
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
// *** Main ***
TampilkanJudul("Cek Tagihan KRS Mahasiswa");
TampilkanTahunProdiProgram('_cek_tagihan_krs', '');
// Tampilkan pesan
echo "<p>Tabel berikut ini membandingkan SKS yang diambil di KRS (tabel: krstemp) dengan\r\n jumlah SKS yang ditagihkan ke mhsw (tabel: bipotmhsw).\r\n Jika jumlah SKS-nya tidak sama, maka baris akan ditampilkan dengan warna merah. \r\n Jika jumlah SKS-nya sama, maka baris akan ditampilkan dengan warna putih. <input type=button name='Cetak' value='Cetak' onClick='window.print()'></p>";
if (!empty($tahun) && !empty($prodi)) {
TampilkanTagihanKRSMhsw(5);
}
// *** Functions ***
function TampilkanTagihanKRSMhsw($BNID)
{
$s = "select k.KHSID, k.MhswID, m.Nama, sum(k.SKS) as JmlSKS\r\n from krstemp k\r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n left outer join jadwal j on k.JadwalID=j.JadwalID\r\n where k.TahunID='{$_SESSION['tahun']}'\r\n and m.ProdiID='{$_SESSION['prodi']}'\r\n and k.NA='N'\r\n and j.JenisJadwalID='K'\r\n and j.JadwalSer=0\r\n group by k.MhswID";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>NPM</th>\r\n <th class=ttl>Nama Mhsw</th>\r\n <th class=ttl>SKS<br />Temp</th>\r\n <th class=ttl>SKS<br />Tagih</th>\r\n <th class=ttl>Rupiah<br />Tagih</th>\r\n <th class=ttl>Total</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$jml = GetFields('bipotmhsw', "MhswID='{$w['MhswID']}' and TahunID='{$_SESSION['tahun']}' and BIPOTNamaID", $BNID, "Jumlah, Besar");
$rupiah = number_format($jml['Besar']);
$total = number_format($jml['Besar'] * $jml['Jumlah']);
$c = $jml['Jumlah'] != $w['JmlSKS'] ? 'class=wrn' : 'class=ul';
$link = $jml['Jumlah'] != $w['JmlSKS'] ? "<a href='cetak/krs.cetak.php?khsid={$w['KHSID']}&prn=1'>{$w['MhswID']}</a>" : $w['MhswID'];
echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td {$c}>{$link}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c} align=right>{$w['JmlSKS']}</td>\r\n <td {$c} align=right>{$jml['Jumlah']}</td>\r\n <td {$c} align=right>{$rupiah}</td>\r\n <td {$c} align=right>{$total}</td>\r\n </tr>";
