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