function RekapPA($ProdiID, $p)
{
// Datanya
$s = "select m.MhswID, m.Nama as NamaMhsw,\r\n m.PenasehatAkademik, m.ProdiID,\r\n d.Nama as NamaDosen, d.Gelar\r\n from mhsw m\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n where m.KodeID = '" . KodeID . "'\r\n and m.ProdiID = '{$ProdiID}'\r\n and m.Keluar = 'N'\r\n order by m.PenasehatAkademik";
$r = _query($s);
$n = 0;
$t = 5;
$dsn = 'lkajdsfpakjdfas';
$lbr = 190;
while ($w = _fetch_array($r)) {
if ($dsn != $w['PenasehatAkademik'] . $w['NamaDosen']) {
$NamaDosen = empty($w['NamaDosen']) ? 'Belum diset' : $w['NamaDosen'] . ', ' . $w['Gelar'];
$dsn = $w['PenasehatAkademik'] . $w['NamaDosen'];
$p->Ln(2);
$p->SetFont('Helvetica', 'B', 10);
$p->Cell($lbr, $t + 2, $NamaDosen, 0, 1);
HeaderTabel($p);
$n = 0;
}
$n++;
$p->SetFont('Helvetica', '', 9);
$p->Cell(20, $t, $n, 'LB', 0);
$p->Cell(40, $t, $w['MhswID'], 'B', 0);
$p->Cell(100, $t, $w['NamaMhsw'], 'B', 0);
$p->Cell(20, $t, $w['ProdiID'], 'BR', 0, 'R');
$p->Ln($t);
}
}
function AmbilJadwal($TahunID, $p)
{
global $lbr;
// Ambil Isinya
$s = "select j.*,\r\n j.Nama as MK,\r\n h.Nama as HR, k.KampusID, k.Nama as NamaKampus,\r\n LEFT(j.JamMulai, 5) as JM, LEFT(j.JamSelesai, 5) as JS,\r\n if (d.Nama is NULL or d.Nama = '', 'Belum diset', concat(d.Nama, ', ', d.Gelar)) as DSN,\r\n date_format(j.UASTanggal, '%d-%m-%Y') as _UASTanggal,\r\n date_format(j.UASTanggal, '%w') as _UASHari,\r\n huas.Nama as HRUAS,\r\n\t if (j.JadwalRefID != 0,'(LAB)','') as _lab,\r\n LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai,\r\n\t kl.Nama AS namaKelas\r\n from jadwal j\r\n left outer join hari h on h.HariID = j.HariID\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w')\r\n left outer join ruang r on r.RuangID = j.RuangID and r.KodeID = '" . KodeID . "'\r\n left outer join kampus k on k.KampusID = r.KampusID and k.KodeID = '" . KodeID . "' \r\n\t LEFT OUTER JOIN kelas kl ON kl.KelasID = j.NamaKelas\r\n where j.KodeID = '" . KodeID . "'\r\n and j.TahunID = '{$_SESSION['TahunID']}'\r\n order by k.KampusID, j.RuangID, j.HariID, j.JamMulai";
$r = _query($s);
$n = 0;
$_rg = 'asdijf;asldkjf';
$t = 6;
while ($w = _fetch_array($r)) {
if ($_rg != $w['RuangID']) {
$_rg = $w['RuangID'];
$p->SetFont('Helvetica', '', 10);
//$p->Cell($lbr, 8, 'Ruang: ' . $w['RuangID'] . ', Gedung: ' . $w['KampusID'], 0, 1);
$p->Cell(80, 8, 'Ruang: ' . $w['RuangID'], 0, 0);
$p->Cell(80, 8, 'Kampus: ' . $w['KampusID'], 0, 1);
HeaderTabel($p);
}
$n++;
$p->SetFont('Helvetica', '', 8);
$p->Cell(8, $t, $n, 'LB', 0, 'R');
$p->Cell(12, $t, $w['HR'], 'B');
$p->Cell(18, $t, $w['JM'] . '-' . $w['JS'], 'B');
$p->Cell(18, $t, $w['MKKode'], 'B');
$p->Cell(70, $t, $w['MK'] . ' ' . $w[_lab], 'B');
$p->Cell(8, $t, $w['SKS'], 'B', 0, 'C');
$p->Cell(10, $t, $w['namaKelas'], 'B', 0);
$p->Cell(14, $t, $w['HRUAS'], 'B', 0);
$p->Cell(17, $t, $w['_UASTanggal'], 'BR', 0);
$p->Ln($t);
}
}
function AmbilJadwal($TahunID, $ProdiID, $p)
{
global $lbr;
$NamaTahun = NamaTahun($TahunID);
// Ambil Isinya
$s = "select j.*,\r\n j.Nama as MK,\r\n h.Nama as HR, \r\n LEFT(j.JamMulai, 5) as JM, LEFT(j.JamSelesai, 5) as JS,\r\n if (d.Nama is NULL or d.Nama = '', 'Belum diset', concat(d.Nama, ', ', d.Gelar)) as DSN,\r\n date_format(j.UASTanggal, '%d-%m-%Y') as _UASTanggal,\r\n date_format(j.UASTanggal, '%w') as _UASHari,\r\n huas.Nama as HRUAS, prg.Nama as _PRG,\r\n\t if (j.JadwalRefID != 0,'(LAB)','') as _lab,\r\n LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai,\r\n\t k.Nama AS namaKelas\r\n from jadwal j\r\n left outer join hari h on h.HariID = j.HariID\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w')\r\n left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "' \r\n\t LEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n where j.KodeID = '" . KodeID . "'\r\n and j.TahunID = '{$TahunID}'\r\n and j.ProdiID = '{$ProdiID}'\r\n order by d.Nama, j.ProgramID, j.HariID, j.JamMulai";
$r = _query($s);
//die("<pre>$s</pre>");
$n = 0;
$_h = 'akjsdfh';
$_d = 'la;skdjfadshg';
$_prg = ';laskdjfl';
$t = 6;
while ($w = _fetch_array($r)) {
if ($_d != $w['DSN']) {
if ($n > 0) {
BuatFooter($p);
}
$p->AddPage();
$p->SetFont('Helvetica', '', 13);
$p->Cell($lbr, 8, "Jadwal Mengajar Dosen - Semester {$NamaTahun}", 0, 1, 'C');
$_d = $w['DSN'];
$p->SetFont('Helvetica', 'B', 10);
$p->Cell($lbr, 8, $_d, 0, 1, 'C');
// Reset
$n = 0;
$_prg = ';ladskfj;asdl';
}
$n++;
if ($_prg != $w['_PRG']) {
$_prg = $w['_PRG'];
$p->SetFont('Helvetica', 'B', 10);
$p->Cell($lbr, 8, $w['_PRG'], 1, 1);
HeaderTabel($p);
}
$p->SetFont('Helvetica', '', 8);
$p->Cell(8, $t, $n, 'LB', 0, 'R');
$p->Cell(12, $t, $w['HR'], 'B');
$p->Cell(18, $t, $w['JM'] . ' - ' . $w['JS'], 'B');
$p->Cell(18, $t, $w['MKKode'], 'B');
$p->Cell(70, $t, $w['MK'] . ' ' . $w[_lab], 'B');
$p->Cell(8, $t, $w['SKS'], 'B', 0, 'C');
$p->Cell(10, $t, $w['namaKelas'], 'B', 0);
$p->Cell(15, $t, $w['RuangID'], 'B', 0);
$p->Cell(14, $t, $w['HRUAS'], 'B', 0);
$p->Cell(17, $t, $w['_UASTanggal'], 'BR', 0);
$p->Ln($t);
}
}
