function AmbilFooter($p)
{
$p->SetFont('Helvetica', 'B', 12);
$t = 7;
$identitas = GetFields('identitas', 'Kode', KodeID, '*');
$p->Cell(270, $t, $identitas['Kota'] . ', ' . AmbilBulan(date('m')) . ' ' . date('Y'), 0, 1);
$p->Cell(270, $t, '', 0, 1);
$p->Cell(270, $t, 'BAAK', 0, 1);
}
function Isinya($p)
{
$lbr = 290;
$t = 5;
JudulKolomnya($p);
$p->SetFont('Helvetica', '', 8);
$s = "select k.*, m.MhswID,left(m.Nama, 28) as Mhsw,m.KelasID\r\n \t\tfrom kompre k\r\n left outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n\twhere k.KodeID = '" . KodeID . "'\r\n and k.TahunID = '{$_SESSION['TahunID']}'\r\n\t and k.Lulus = 'N'\r\n\t and k.NA = 'N'\r\n Group by k.MhswID";
$r = _query($s);
$n = 0;
$jum = _num_rows($r);
while ($w = _fetch_array($r)) {
$hari = AmbilHari($w[_Hari]);
$n++;
$ss = "select k.*, LEFT(k.JamMulai, 5) as JM, LEFT(k.JamSelesai, 5) as JS, d.Nama as _Dosen\r\n\t\tfrom kompredosen k left outer join dosen d on k.DosenID=d.Login \r\n\t\twhere k.KompreID = '{$w['KompreID']}' and k.NA = 'N'\r\n\t\torder by k.Tanggal, k.JamMulai, k.JamSelesai";
$qq = _query($ss);
$nn = _num_rows($qq);
$tt = $nn * $t;
$p->Cell(5, $tt, '', '', 0);
$p->Cell(8, $tt, $n, 1, 0);
$p->Cell(20, $tt, $w['MhswID'], 1, 0);
$p->Cell(60, $tt, $w['Mhsw'], 1, 0);
while ($ww = _fetch_array($qq)) {
$p->Cell(40, $t, $ww['_Dosen'], 1, 0);
$p->Cell(55, $t, GetDateInWords($ww['Tanggal']) . " / " . $ww['JM'] . " - " . $ww['JS'] . " / " . $ww['RuangID'], 1, 1);
$p->Cell(93);
}
//$p->Cell(55, $t, '', 'T', 0);
$p->SetX(10);
}
$bulan = AmbilBulan(date('m'));
$p->Ln($t);
$identitas = GetFields('identitas', 'Kode', KodeID, "*");
$pejabat = GetFields('pejabat', "KodeJabatan='KABAA' and KodeID", KodeID, 'Nama, Jabatan');
$p->Cell(5, $t, '', '', 0);
$p->Cell(50, $t, $identitas['Kota'] . ', ' . date('d') . " " . $bulan . " " . date('Y'), '', 0, 'C');
$p->Ln($t * 4);
$p->Cell(50, $t, $pejabat[Nama], 0, 0, 'C');
$p->Ln($t);
$p->Cell(50, $t, $pejabat[Jabatan], 0, 0, 'C');
}
