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