function DftrUTS() { // Buat Header echo "<table class=box cellspacing=1 align=center width=800>"; $hdr = "\r\n <tr><th class=ttl width=50>#</th>\r\n <th class=ttl>Matakuliah</th>\r\n\t <th class=ttl width=50>Kelas</th>\r\n <th class=ttl width=20>Edit</th>\r\n\t <th class=ttl width=75>Ujian</th>\r\n <th class=ttl width=75>Jam</th>\r\n\t <th class=ttl width=40 title='Pembagian Kursi'>Kursi</th>\r\n <th class=ttl width=20 title='Hapus Jadwal'>Del</th>\r\n </tr>"; $whr_prg = empty($_SESSION['_utsProg']) ? '' : "and j.ProgramID = '{$_SESSION['_utsProg']}'"; $s = "select j.JadwalID, j.ProdiID, j.ProgramID, j.HariID,\r\n j.RuangID, j.MKKode, j.Nama, j.NamaKelas, j.DosenID, j.SKS,\r\n concat(d.Nama, ' <sup>', d.Gelar, '</sup>') as DSN,\r\n LEFT(j.JamMulai, 5) as _JM, LEFT(j.JamSelesai, 5) as _JS,\r\n h.Nama as HR, mk.Sesi, j.Final, \r\n j.JumlahMhsw, j.Kapasitas, \r\n j.BiayaKhusus, j.Biaya, format(j.Biaya, 0) as _Biaya\r\n from jadwal j\r\n left outer join hari h on j.HariID = h.HariID\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n\t left outer join jenisjadwal jj on jj.JenisJadwalID = j.JenisJadwalID\r\n\twhere j.KodeID = '" . KodeID . "'\r\n and j.TahunID = '{$_SESSION['_utsTahun']}'\r\n and j.ProdiID = '{$_SESSION['_utsProdi']}'\r\n {$whr_prg} {$whr_hr} {$whr_smt} {$whr_kls} {$whr_kd}\r\n and j.NA = 'N'\r\n\t and jj.Tambahan = 'N'\r\n order by j.UTSTanggal, j.UTSJamMulai, j.UTSJamSelesai, j.Nama"; $r = _query($s); $n = 0; $HariID = -320; $kanan = "<img src='img/kanan.gif' />"; echo $hdr; while ($w = _fetch_array($r)) { $n++; if ($w['Final'] == 'Y') { $c = "class=nac"; } else { $c = "class=ul"; } // Ambil dosen2 $dsn = AmbilDosen2($w['JadwalID']); // Tampilkan data $JumlahJadwalUTS = GetaField('jadwaluts', "JadwalID='{$w['JadwalID']}' and KodeID", KodeID, "count(JadwalUTSID)"); $rowspan = "rowspan=" . ($JumlahJadwalUTS == 0 ? 1 : $JumlahJadwalUTS); echo "<tr>\r\n <td class=inpx align=center width=20 {$rowspan}>{$n}</font></br>\r\n <div align=center><sub title='ID Jadwal'>#{$w['JadwalID']}</div></sub>\r\n </td>\r\n <td {$c} {$rowspan}><b>{$w['Nama']}</b> <sup>{$w['MKKode']}</sup><br>\r\n\t\t<div align=left>\r\n\t\t\t(<b>{$w['HR']}</b>, {$w['_JM']}→{$w['_JS']})\r\n\t\t\t</div>\r\n\t\t<div align=right>\r\n\t\t\t<b>Dosen:</b><i> {$w['DSN']}\r\n\t\t\t{$dsn}</i></div>\r\n </td>\r\n <td {$c} align=center {$rowspan}>\r\n <br>\r\n\t\t<b>{$w['NamaKelas']}</b> <br>\r\n\t\t </br>\r\n\t\t<div valign=bottom># Mhsw: <b>{$w['JumlahMhsw']}</b></div>\r\n </td>"; if ($JumlahJadwalUTS == 0) { if ($w['Final'] == 'Y') { echo "\r\n\t\t<td {$c} colspan=5 align=center><b>Belum terjadwal.</b></td>"; } else { echo "\r\n\t <td {$c} colspan=5 align=center><b>Belum terjadwal.</b> <a href='#' onClick=\"javascript:JdwlEdt(1, {$w['JadwalID']})\">>> Tambah <<</a></td>"; } } else { $s1 = "select ju.JadwalUTSID,\r\n\t date_format(ju.Tanggal, '%d-%m-%y') as _UTSTanggal,\r\n\t\t\t huts.Nama as _UTSHari, ju.JumlahMhsw as _JumlahMhswUTS,\r\n\t\t\t LEFT(ju.JamMulai, 5) as _UTSJamMulai, LEFT(ju.JamSelesai, 5) as _UTSJamSelesai\r\n\t\t\t\tfrom jadwaluts ju left outer join hari huts on huts.HariID = date_format(ju.Tanggal, '%w')\r\n\t\t\t\twhere ju.JadwalID='{$w['JadwalID']}' and ju.KodeID='" . KodeID . "'"; $r1 = _query($s1); while ($w1 = _fetch_array($r1)) { if ($w['Final'] == 'Y') { $edt = "<img src='img/lock.jpg' width=26 title='Sudah difinalisasi. Sudah tidak dapat diedit.' />"; $del = "×"; $editkursi = "<a href='#' onClick=\"alert('Penempatan kursi mahasiswa sudah tidak dapat dilakukan.')\"><img src='img/kursi.jpg'></a>"; } else { $edt = "<a href='#' onClick=\"javascript:JdwlEdt(0, {$w['JadwalID']}, {$w1['JadwalUTSID']})\" title='Edit jadwal'><img src='img/edit.jpg' width=20 /></a>"; $del = $w1['JumlahMhsw'] > 0 ? "<abbr title='Tidak dapat dihapus karena sudah ada Mhsw yang mendaftar'>×</abbr>" : "<a href='#' onClick=\"javascript:JdwlDel({$w['JadwalID']},{$w1['JadwalUTSID']})\" title='Hapus jadwal'><img src='img/del.gif' /></a>"; $editkursi = "<a href='#' onClick=\"EdtKursi('{$w1['JadwalUTSID']}')\"><img src='img/kursi.jpg'></a>"; } echo "\r\n\t\t <td {$c} align=center>\r\n\t\t\t{$edt}\r\n\t\t\t</td>\r\n\t\t <td {$c} align=center>\r\n\t\t\t<sup>{$w1['_UTSHari']}</sup><br />\r\n\t\t\t{$w1['_UTSTanggal']}\r\n\t\t\t</td>\r\n\t\t <td {$c} align=center>\r\n\t\t\t<sup>{$w1['_UTSJamMulai']}</sup>→<sub>{$w1['_UTSJamSelesai']}</sub>\r\n\t\t\t</td>\r\n\t\t \r\n\t\t <td {$c} align=center valign=center nowrap>\r\n\t\t\t{$editkursi}\r\n\t\t\t<div valign=bottom># Mhsw: <b>{$w1['_JumlahMhswUTS']}</b></div>\r\n\t\t\t</td>\r\n\t\t <td class=ul1 align=center>\r\n\t\t\t{$del}\r\n\t\t </tr>"; } } } echo "</table></p>"; }
function DftrKuliah() { // Buat Header echo "<table class=box cellspacing=1 align=center width=960>"; $hdr = "<tr><th class=ttl width=50 colspan=2>#</th>\r\n <th class=ttl width=60>Ruang</th>\r\n <th class=ttl width=75>Jam</th>\r\n <th class=ttl width=80>Kode <sup>Smt</sup></th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl width=50>Kelas</th>\r\n <th class=ttl width=20>SKS</th>\r\n <th class=ttl width=200>Dosen</th>\r\n <th class=ttl width=40>Cetak</th>\r\n <th class=ttl width=20 title='Hapus Jadwal'>Del</th>\r\n </tr>"; $whr_prg = empty($_SESSION['_jdwlProg']) ? '' : "and j.ProgramID = '{$_SESSION['_jdwlProg']}'"; $whr_hr = $_SESSION['_jdwlHari'] == '' ? '' : "and j.HariID = '{$_SESSION['_jdwlHari']}'"; $whr_smt = empty($_SESSION['_jdwlSemester']) ? '' : "and mk.Sesi = '{$_SESSION['_jdwlSemester']}' "; $whr_kls = $_SESSION['_jdwlKelas'] == '' ? '' : "and j.NamaKelas like '{$_SESSION['_jdwlKelas']}%' "; $whr_kd = $_SESSION['_jdwlMKKode'] == '' ? '' : "and j.MKKode like '{$_SESSION['_jdwlMKKode']}%' "; $s = "select j.JadwalID, j.JadwalRefID, j.ProdiID, j.ProgramID, j.HariID, j.AdaResponsi,\r\n j.RuangID, j.MKKode, j.Nama, j.NamaKelas, j.DosenID, j.SKS, j.JenisJadwalID, \r\n concat(d.Nama, ' <sup>', d.Gelar, '</sup>') as DSN,\r\n LEFT(j.JamMulai, 5) as _JM, LEFT(j.JamSelesai, 5) as _JS,\r\n h.Nama as HR, mk.Sesi, j.Final,\r\n j.JumlahMhsw, j.Kapasitas,\r\n j.BiayaKhusus, j.Biaya, format(j.Biaya, 0) as _Biaya,\r\n\t k.Nama as _NamaKelas\r\n from jadwal j\r\n left outer join hari h on j.HariID = h.HariID\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n\t left outer join kelas k on k.KelasID = j.NamaKelas\r\n where j.KodeID = '" . KodeID . "'\r\n and j.TahunID = '{$_SESSION['_jdwlTahun']}'\r\n and j.ProdiID = '{$_SESSION['_jdwlProdi']}'\r\n {$whr_prg} {$whr_hr} {$whr_smt} {$whr_kls} {$whr_kd}\r\n and j.NA = 'N'\r\n order by j.HariID, j.RuangID, j.JamMulai, j.JamSelesai"; $r = _query($s); $n = 0; $HariID = -320; $kanan = "<img src='img/kanan.gif' />"; while ($w = _fetch_array($r)) { $n++; if ($HariID != $w['HariID']) { $HariID = $w['HariID']; echo "<tr>\r\n <td class=ul1 colspan=15><font size=+1>{$w['HR']}</font> <sup><a name='Hari_{$HariID}'>{$HariID}</a></sup></td>\r\n </tr>"; echo $hdr; } if ($w['Final'] == 'Y') { $edt = "<img src='img/lock.jpg' width=26 title='Sudah difinalisasi. Sudah tidak dapat diedit.' />"; $del = "×"; $c = "class=nac"; $pindah = ' '; $dosen = ' '; $print = ' '; $LabTag = ''; } else { if ($w['JenisJadwalID'] != 'K') { $edt = "<a href='#' onClick=\"javascript:JdwlLabEdt(0, '{$w['JadwalRefID']}', '{$w['JadwalID']}')\" title='Edit jadwal'><img src='img/edit.jpg' width=20 /></a>"; $del = "×"; $c = "class=cnaY"; $pindah = "<a href='#' onClick=\"javascript:PindahLabKelas({$w['JadwalID']})\" title='Pindahkan peserta kuliah ke Jadwal Lain'>⋈</a>"; $dosen = ' '; $print = ' '; $LabTag = "<b>( " . GetaField('jenisjadwal', "JenisJadwalID", $w['JenisJadwalID'], 'Nama') . " )</b>"; } else { $edt = "<a href='#' onClick=\"javascript:JdwlEdt(0, {$w['JadwalID']})\" title='Edit jadwal'><img src='img/edit.jpg' width=20 /></a>"; // Jika sudah ada mahasiswa yang mendaftar, maka jadwal tidak boleh dihapus $del = $w['JumlahMhsw'] > 0 ? "<abbr title='Tidak dapat dihapus karena sudah ada Mhsw yang mendaftar'>×</abbr>" : "<a href='#' onClick=\"javascript:JdwlDel({$w['JadwalID']})\" title='Hapus jadwal'><img src='img/del.gif' /></a>"; $c = "class=ul"; $pindah = "<a href='#' onClick=\"javascript:PindahKelas({$w['JadwalID']})\" title='Pindahkan peserta kuliah ke Jadwal Lain'>⋈</a>"; $dosen = "<a href='#' onClick=\"javascript:JdwlDsnEdt({$w['JadwalID']})\"><img src='img/edit.png' /></a>"; $print = "{$kanan} <a href='#' onClick=\"javascript:CetakDPNA({$w['JadwalID']})\">Daftar</a><br />\r\n {$kanan} <a href='#' onClick=\"javascript:CetakKursiUAS({$w['JadwalID']})\">Kursi UAS</a>"; $LabTag = ''; } } // Ambil dosen2 $dsn = AmbilDosen2($w['JadwalID']); // Tampilkan data //⋈ $HRG = $w['BiayaKhusus'] == 'Y' ? "<div align=right><sup>Biaya: Rp. <b>{$w['_Biaya']}</b></sup></div>" : ''; if ($w['AdaResponsi'] == 'Y') { $FieldResponsi = AmbilResponsi($w['JadwalID']); $FieldResponsi .= "<br><a href='#' onClick=\"JdwlLabEdt(1, '{$w['JadwalID']}', '0')\"><font size=0.8m>Tambah Jadwal Ekstra(Lab, Responsi, dll.)</font></a>"; } else { $FieldResponsi = ''; } echo "<tr>\r\n <td class=inp width=20>{$n}</td>\r\n <td class=ul width=26 align=center>\r\n {$edt}\r\n <br />\r\n <sub title='ID Jadwal'>#{$w['JadwalID']}</sub>\r\n </td>\r\n <td {$c}>\r\n {$w['RuangID']}\r\n <div align=right><sub align=right>{$w['ProgramID']}</sub></div>\r\n </td>\r\n <td {$c} align=center>\r\n <sup>{$w['_JM']}</sup>→<sub>{$w['_JS']}</sub>\r\n </td>\r\n <td {$c}>{$w['MKKode']}<sup>{$w['Sesi']}</sup>\r\n\t\t</td>\r\n <td {$c}>\r\n {$w['Nama']} {$LabTag}\r\n {$FieldResponsi}\r\n\t\t{$HRG}\r\n </td>\r\n <td {$c} align=center>\r\n {$w['_NamaKelas']} <br />\r\n {$w['JumlahMhsw']}<sup title='Kapasitas Kelas'>→{$w['Kapasitas']}</sup><br />\r\n </td>\r\n <td {$c} align=right>{$w['SKS']}</td>\r\n <td {$c}>\r\n {$w['DSN']}\r\n {$dsn}\r\n <div align=right>\r\n {$dosen}\r\n </div>\r\n </td>\r\n <td {$c} align=left valign=bottom nowrap>\r\n {$print}\r\n </td>\r\n <td class=ul1 align=center valign=bottom>\r\n {$del}\r\n </tr>"; } echo "</table></p>"; }