function BuatIsinya($khs, $p)
{
global $arrHari;
BuatHeaderDetail($p);
$s = "select k.MKKode, k.SKS, j.NamaKelas, k.KRSID,\r\n left(k.Nama, 40) as MKNama,\r\n d.Nama as DSN, d.Gelar as GLR,\r\n dayofweek(jt.Tanggal) as HRUTS,\r\n date_format(jt.Tanggal, '%d-%m-%y') as TGLUTS,\r\n\t j.MaxAbsen\r\n from krs k\r\n left outer join jadwal j on j.JadwalID = k.JadwalID\r\n\t left outer join jadwaluts jt on jt.JadwalID = j.JadwalID\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n where k.KHSID = {$khs['KHSID']}\r\n order by j.UTSTanggal, k.MKKode";
$r = _query($s);
$t = 8;
$n = 0;
$l = 'TB';
$_sks = 0;
$p->SetFont('Helvetica', '', 7);
while ($w = _fetch_array($r)) {
$HitungMangkir = GetaField('presensimhsw p
left outer join presensi p2 on p.PresensiID=p2.PresensiID
left outer join jadwal j on j.JadwalID=p.JadwalID
left outer join jenispresensi jp on p.JenisPresensiID=jp.JenisPresensiID', "p.KRSID='{$w['KRSID']}' and p2.Pertemuan <= (j.RencanaKehadiran/2) and jp.Nilai", 0, "count(p.PresensiID)");
if ($HitungMangkir <= $w['MaxAbsen']) {
$n++;
$_sks += $w['SKS'];
$p->SetFont('Helvetica', '', 7);
$p->Cell(20, $t, $w['MKKode'], $l, 0);
$p->Cell(65, $t, $w['MKNama'], $l, 0);
$p->Cell(8, $t, $w['SKS'], $l, 0, 'C');
$p->Cell(45, $t, $w['DSN'] . ', ' . $w['GLR'], $l, 0);
$p->Cell(15, $t, $arrHari[$w['HRUTS'] - 1], $l, 0);
$p->Cell(15, $t, $w['TGLUTS'], $l, 0);
$p->Cell(15, $t, '...', $l, 0, 'C');
$p->Cell(10, $t, '...', $l, 0, 'C');
$p->Ln($t);
} else {
$p->SetFont('Helvetica', '', 7);
$p->Cell(20, $t, $w['MKKode'], $l, 0, '', true);
$p->Cell(65, $t, $w['MKNama'], $l, 0, '', true);
$p->Cell(8, $t, $w['SKS'], $l, 0, 'C', true);
$p->Cell(45, $t, $w['DSN'] . ', ' . $w['GLR'], $l, 0, '', true);
$p->SetFont('Helvetica', 'B', 7);
$p->Cell(55, $t, "TIDAK MEMENUHI PERSYARATAN", $l, 0, 'C', true);
$p->Ln($t);
}
}
BuatFooter($khs, $n, $_sks, $p);
}
function BuatIsinya($khs, $p)
{
global $mrg;
BuatHeaderDetail($p);
$s = "select k.*, left(k.Nama, 35) as MKNama,\n format((k.SKS * k.BobotNilai), 2) as NXK,\n\t jj.Tambahan, jj.Nama as _NamaJenisJadwal\n from krs k left outer join jadwal j on j.JadwalID=k.JadwalID\n\t\t\t left outer join jenisjadwal jj on jj.JenisJadwalID=j.JenisJadwalID\n where k.KHSID = {$khs['KHSID']}\n order by k.MKKode";
$r = _query($s);
$t = 5;
$n = 0;
$p->SetFont('Times', '', 8);
$_sks = 0;
$_nxk = 0;
while ($w = _fetch_array($r)) {
$n++;
$_sks += $w['SKS'];
$_nxk += $w['NXK'];
$p->Cell($mrg);
$p->Cell(10, $t, $n, 'LB', 0, 'R');
$p->Cell(24, $t, $w['MKKode'], 'B', 0);
$TagTambahan = $w['Tambahan'] == 'Y' ? "( {$w['_NamaJenisJadwal']} )" : "";
$p->Cell(70, $t, $w['MKNama'] . ' ' . $TagTambahan, 'B', 0);
$p->Cell(15, $t, $w['SKS'], 'B', 0, 'R');
$p->Cell(15, $t, $w['GradeNilai'], 'B', 0, 'C');
$p->Cell(15, $t, $w['BobotNilai'], 'B', 0, 'R');
$p->Cell(15, $t, $w['NXK'], 'B', 0, 'R');
$p->Cell(2, $t, '', 'BR', 0);
$p->Ln($t);
}
// Tampilkan jumlahnya
$__nxk = number_format($_nxk, 2);
$p->Cell($mrg);
$p->Cell(104, $t, 'Jumlah :', 'LB', 0, 'R');
$p->Cell(15, $t, $_sks, 'B', 0, 'R');
$p->Cell(45, $t, $__nxk, 'B', 0, 'R');
$p->Cell(2, $t, '', 'BR', 0);
$p->Ln($t);
}
