function CetakPresensiMhsw($id, $p)
{
$jdwl = GetFields("jadwal j\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = j.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w')\r\n left outer join jenisjadwal jj on jj.JenisJadwalID = j.JenisJadwalID \r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n\t", "j.JadwalID", $id, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN,\r\n prd.Nama as _PRD, prg.Nama as _PRG,\r\n mk.Sesi,\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 LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai,\r\n\tjj.Nama as _NamaJenisJadwal, jj.Tambahan, k.Nama AS namaKelas\r\n ");
BuatHeaderDulu($jdwl, $p);
BuatIsinya($jdwl, $p);
BuatFooter($jdwl, $p);
}
function CetakNilai($jid, $p)
{
$JadwalID = GetSetVar('JadwalID');
$jdwl = GetFields("jadwal j\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = j.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w') \r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n ", "j.JadwalID", $JadwalID, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN, d.NIDN,\r\n prd.Nama as _PRD, prg.Nama as _PRG,\r\n mk.Sesi,\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 LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai, k.Nama AS namaKelas\r\n ");
$TahunID = $jdwl['TahunID'];
$thn = GetFields('tahun', "KodeID = '" . KodeID . "' and ProdiID = '{$jdwl['ProdiID']}' and ProgramID = '{$jdwl['ProgramID']}' and TahunID", $TahunID, "*");
// Buat Header
BuatHeader($jdwl, $thn, $p);
BuatIsinya($jdwl, $p);
BuatFooter($jdwl, $p);
}
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);
}
}
function BuatHalaman($Y, $kwi, $gels, $p)
{
if ($Y != 0) {
$p->SetY($Y);
}
$p->Image("../img/kwitansi.jpg", 8, $Y + 8, 190);
if ($Y != 0) {
$p->SetY($Y + 10);
}
$p->SetFont('Helvetica', 'B', 14);
$p->Cell(30);
$p->Cell(@$lbr, 9, "", 0, 1, 'C');
BuatIsinya($kwi, $gels, $p);
BuatFooter($kwi, $gels, $p);
}
function BuatIsinya($TahunID, $ProdiID, $p)
{
global $lbr;
$t = 6;
$whr_prodi = $ProdiID == '' ? '' : "and k.ProdiID = '{$ProdiID}' ";
$s = "select m.Nama as _nama, k.MhswID as _MhswID, date_format(bm.Tanggal,'%d-%m-%Y') as _tgl, k.Biaya as _biaya, k.Bayar as _bayar, bm.Keterangan as _ket\r\n \t\tfrom khs k left outer join bayarmhsw bm on k.TahunID = bm.TahunID and bm.MhswID = k.MhswID\r\n \t\tleft outer join mhsw m on k.MhswID = m.MhswID\r\n \t\twhere k.TahunID = '{$TahunID}' and k.Sesi = '1' {$whr_prodi} group by k.MhswID order by m.Nama";
$q = _query($s);
BuatHeaderTable($TahunID, $ProdiID, $p);
$n = 0;
$rec = 0;
$totalJum = 0;
$totalSisa = 0;
while ($w = _fetch_array($q)) {
$n++;
$rec++;
if ($rec >= 20) {
$rec = 1;
BuatHeaderTable($TahunID, $ProdiID, $p);
}
//$s2 = "select date_format(bm.Tanggal,'%d-%m-%Y') as _tgl, k.Biaya as _biaya, k.Bayar as _bayar from khs k left outer join bayarmhsw bm on k.TahunID = bm.TahunID and bm.MhswID = k.MhswID
// where k.MhswID = '$w[MhswID]' and k.Sesi = '1'";
//$q2 = _query($s2);
//$w2 = _fetch_array($q2);
$sisa = $w[_biaya] - $w[_bayar] == 0 ? 'Lunas' : number_format($w[_biaya] - $w[_bayar], 0, '.', ',');
$p->SetFont('Helvetica', '', 9);
$p->Cell(8, $t, $n, 1, 0, 'C');
$p->Cell(80, $t, $w[_nama], 1, 0, 'C');
$p->Cell(30, $t, $w[_MhswID], 1, 0, 'C');
$p->Cell(30, $t, $w[_tgl], 1, 0, 'C');
$p->Cell(30, $t, number_format($w[_bayar], 0, '.', ','), 1, 0, 'C');
$p->Cell(30, $t, number_format($w[_bayar], 0, '.', ','), 1, 0, 'C');
$p->Cell(30, $t, $sisa, 1, 0, 'C');
$p->Cell(40, $t, $w[_ket], 1, 1, 'C');
$totalJum += $w[_bayar];
$totalSisa += $w[_biaya] - $w[_bayar];
}
// buat jumlah
$p->SetFont('Helvetica', 'B', 9);
$p->Cell(178, $t, '', 0, 0, 'C');
$p->Cell(30, $t, number_format($totalJum, 0, '.', ','), 1, 0, 'C');
$p->Cell(30, $t, number_format($totalSisa, 0, '.', ','), 1, 1, 'C');
// buat footer
BuatFooter($p);
}
$_jdwlKelas = GetSetVar('_jdwlKelas');
$_jdwlSemester = GetSetVar('_jdwlSemester');
$thn = GetFields('tahun', "TahunID='{$TahunID}' and KodeID='" . KodeID . "' and ProdiID='{$ProdiID}' and ProgramID", $ProgramID, "*");
$lbr = 280;
$pdf = new FPDF('L');
$pdf->SetTitle("Jadwal Kuliah - {$TahunID}");
$pdf->SetAutoPageBreak(true, 5);
$pdf->AddPage('L');
$pdf->SetFont('Helvetica', 'B', 14);
HeaderLogo("Jadwal Kuliah", $pdf, 'L');
// Buat header dulu
BuatHeader($thn, $pdf);
// Tampilkan datanya
AmbilJadwal($thn, $pdf);
// Buat footer
BuatFooter($thn, $pdf);
$pdf->Output();
// *** Functions ***
function BuatFooter($thn, $p)
{
global $arrID;
$mrg = 220;
$t = 6;
// Tanda tangan
$pjbt = GetFields('pejabat', "KodeID='" . KodeID . "' and KodeJabatan", 'PUKET1', "*");
$p->Ln(4);
$p->Cell($mrg);
$p->Cell(60, $t, $arrID['Kota'] . ", " . date('d M Y'), 0, 1);
$p->Cell($mrg);
$p->Cell(60, $t, $pjbt['Jabatan'], 0, 1);
$p->Ln(15);
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(ja.Tanggal) as HRUAS,\r\n date_format(ja.Tanggal, '%d-%m-%y') as TGLUAS,\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 jadwaluas ja on ja.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.UASTanggal, 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 jenispresensi jp on p.JenisPresensiID=jp.JenisPresensiID', "p.KRSID='{$w['KRSID']}' 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['HRUAS'] - 1], $l, 0);
$p->Cell(15, $t, $w['TGLUAS'], $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);
}
include_once "../cekparam.php";
include_once "../fpdf.php";
// *** Parameters ***
$ProsesStatusMhswID = $_REQUEST['_psmid'];
if (empty($ProsesStatusMhswID)) {
die(ErrorMsg("Gagal", "Tidak ditemukan copy dari transaksi perubahan status mahasiswa yang dicari.</br>\r\n\t\t\t\t\t\t\tHarap menghubungi Kepala Bagian Administrasi untuk mengurus hal ini."));
}
// *** Init PDF
$pdf = new FPDF();
$pdf->SetTitle("Surat Bukti Perubahan Status Mahasiswa");
$pdf->SetAutoPageBreak(true, 5);
$lbr = 190;
$pdf->AddPage();
HeaderLogo("Surat Bukti Perubahan Status Mahasiswa", $pdf, 'P');
BuatIsinya($ProsesStatusMhswID, $pdf);
BuatFooter($ProsesStatusMhswID, $pdf);
$pdf->Output();
// *** FUnctions ***
function BuatIsinya($ProsesStatusMhswID, $p)
{
$s = "select *\r\n\t\tfrom prosesstatusmhsw where ProsesStatusMhswID='{$ProsesStatusMhswID}' and KodeID='" . KodeID . "'";
$r = _query($s);
$n = 0;
$t = 5;
while ($w = _fetch_array($r)) {
$n++;
$p->SetFont('Helvetica', 'BI', 10);
$p->Cell(100, $t, "SK: {$w['SK']}", 0, 1);
$p->Ln($t);
$p->SetFont('Helvetica', '', 10);
$p->Cell(100, $t, "Nama Mahasiswa yang tertera di bawah ini:", 0, 1);
if (empty($khs)) {
die(ErrorMsg("Error", "Data mahasiswa tidak ditemukan.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick=\"window.close()\" />"));
}
$mhsw = GetFields("mhsw m\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "' ", "m.KodeID='" . KodeID . "' and m.MhswID", $khs['MhswID'], "m.MhswID, m.Nama, m.PenasehatAkademik, m.StatusAwalID, m.StatusMhswID,\r\n m.TotalSKS,\r\n if (d.Nama is NULL or d.Nama = '', 'Belum diset', concat(d.Nama, ', ', d.Gelar)) as PA");
$lbr = 190;
$pdf = new PDF();
$pdf->SetTitle("Borang Rencana Studi");
$pdf->AddPage();
$pdf->SetFont('Helvetica', 'B', 16);
$pdf->Cell($lbr, 9, "Borang Rencana Studi", 0, 1, 'C');
// Buat header dulu
BuatHeader($khs, $mhsw, $pdf);
// Tampilkan datanya
AmbilKRS($khs, $mhsw, $pdf);
// Buat footer
BuatFooter($khs, $mhsw, $pdf);
$pdf->Output();
// *** Functions ***
function BuatFooter($khs, $mhsw, $p)
{
global $arrID;
$t = 6;
// Yang diambil
$p->Cell(100, $t, "Jumlah SKS yang diambil:", 'LB', 0, 'R');
$p->Cell(10, $t, $khs['SKS'], 'B', 0, 'C');
$p->Cell(82, $t, ' ', 'BR', 1);
// Yang sudah ditempuh
$jumkrs = GetaField('krs', "MhswID='{$mhsw['MhswID']}' and TahunID < '{$khs['TahunID']}' and Tinggi='*' and KodeID", KodeID, "sum(SKS)");
$p->Cell(100, $t, "Jumlah SKS yang telah ditempuh:", 'LB', 0, 'R');
$p->Cell(10, $t, $jumkrs, 'B', 0, 'C');
$p->Cell(82, $t, ' ', 'BR', 1);
BuatFooter($jdwl, $i + 2, $totalpage, $pdf);
} else {
$s1 = "select k.MhswID, m.Nama\r\n\t\tfrom krs k\r\n\t\t left outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n\t\twhere k.JadwalID = '{$jdwl['JadwalID']}'\r\n\t\torder by k.MhswID\r\n\t\tlimit {$start}, {$maxentryperpage}";
$r1 = _query($s1);
$pdf->AddPage('L');
$pdf->SetAutoPageBreak(true, 5);
// Buat Header Logo
HeaderLogo("DAFTAR PRESENSI MAHASISWA", $pdf, 'L');
// Buat header dulu
BuatHeader($jdwl, $Kolom, $pdf);
// Tampilkan datanya
AmbilDetail($jdwl, $r1, $start, $Kolom, $pdf);
// Buat rekap kehadiran dan tanda tangan
BuatEnding($jdwl, $Kolom, $pdf);
// Buat footer
BuatFooter($jdwl, $i + 1, $totalpage, $pdf);
}
$pdf->Output();
// *** Functions ***
function BuatEnding($jdwl, $Kolom, $p)
{
global $arrID;
$lbrkolom = 12;
$t = 8;
// Footer
$p->Cell(78, $t, 'Jumlah Mahasiswa Hadir :', 'LBR', 0, 'R');
$p->Cell($lbrkolom, $t, '', 'BR', 0);
for ($i = 0; $i < $Kolom; $i++) {
$p->Cell($lbrkolom, $t, '', 'BR', 0);
}
$p->Ln($t);
function BuatIsinya($KurikulumID, $ProdiID, $p)
{
$t = 4;
$jumsesi = GetaField('mk', "KodeID='" . KodeID . "' and KurikulumID = '{$KurikulumID}' and ProdiID", $ProdiID, 'MAX(Sesi)');
$s = "select * from jenismk where ProdiID = '{$ProdiID}' and NA = 'N' order by Singkatan";
$q = _query($s);
$p->addPage('P', 'A4');
BuatHeader($jumsesi, $ProdiID, $p);
for ($i = 1; $i <= $jumsesi; $i++) {
$totalT[$i] = 0;
$totalP[$i] = 0;
$totalS[$i] = 0;
}
$totalTall = 0;
$totalPall = 0;
$totalSall = 0;
while ($w = _fetch_array($q)) {
$p->SetFont('Helvetica', '', 5);
$p->Cell(5, $t, "", 1, 0);
$p->Cell(185, $t, $w[Singkatan], 1, 1);
$s2 = "select * from mk where ProdiID = '{$ProdiID}' and KurikulumID = '{$KurikulumID}' and NA = 'N' and JenisMKID = {$w['JenisMKID']} order by Nama";
$q2 = _query($s2);
$n = 0;
$lbrSks = 125 / $jumsesi / 3;
for ($i = 1; $i <= $jumsesi; $i++) {
$sesiTjum[$i] = 0;
$sesiPjum[$i] = 0;
$sesijum[$i] = 0;
}
$subTjum = 0;
$subPjum = 0;
$subjum = 0;
while ($w2 = _fetch_array($q2)) {
$n++;
$p->Cell(5, $t, $n, 1, 0);
$p->Cell(30, $t, $w2[Nama], 1, 0);
$p->Cell(15, $t, $w2[MKKode], 1, 0, 'C');
$sksTjum = 0;
$sksPjum = 0;
$sksjum = 0;
for ($i = 1; $i <= $jumsesi; $i++) {
if ($w2[Sesi] == $i) {
$sksT = $w2[SKSTatapMuka];
$sksP = $w2[SKSPraktikum];
$sks = $w2[SKS];
$sksTjum += $sksT;
$sksPjum += $sksP;
$sksjum += $sks;
// HITUNG SUB TOTAL SESI
$sesiTjum[$i] += $sksT;
$sesiPjum[$i] += $sksP;
$sesijum[$i] += $sks;
} else {
$sksT = "";
$sksP = "";
$sks = "";
}
$p->Cell($lbrSks, $t, $sksT, 1, 0, 'C');
$p->Cell($lbrSks, $t, $sksP, 1, 0, 'C');
$p->Cell($lbrSks, $t, $sks, 1, 0, 'C');
}
$p->Cell(5, $t, $sksTjum, 1, 0, 'C');
$p->Cell(5, $t, $sksPjum, 1, 0, 'C');
$p->Cell(5, $t, $sksjum, 1, 0, 'C');
$p->ln($t);
$subTjum += $sksTjum;
$subPjum += $sksPjum;
$subjum += $sksjum;
}
// BUAT TABEL SUB TOTAL
$p->SetFont('Helvetica', 'B', 5);
$p->Cell(5, $t, "", 1, 0);
$p->Cell(30, $t, "SUB TOTAL", 1, 0);
$p->Cell(15, $t, "", 1, 0, 'C');
for ($i = 1; $i <= $jumsesi; $i++) {
if ($sesijum[$i] == 0) {
$sesiTjum[$i] = "";
$sesiPjum[$i] = "";
$sesijum[$i] = "";
}
$p->Cell($lbrSks, $t, $sesiTjum[$i], 1, 0, 'C');
$p->Cell($lbrSks, $t, $sesiPjum[$i], 1, 0, 'C');
$p->Cell($lbrSks, $t, $sesijum[$i], 1, 0, 'C');
$totalT[$i] += $sesiTjum[$i] + 0;
$totalP[$i] += $sesiPjum[$i] + 0;
$totalS[$i] += $sesijum[$i] + 0;
}
$p->Cell(5, $t, $subTjum, 1, 0, 'C');
$p->Cell(5, $t, $subPjum, 1, 0, 'C');
$p->Cell(5, $t, $subjum, 1, 0, 'C');
$p->ln($t);
$totalTall += $subTjum;
$totalPall += $subPjum;
$totalSall += $subjum;
}
// BUAT TABEL TOTAL
$p->SetFont('Helvetica', 'B', 5);
$p->SetFillColor(200, 200, 200);
$p->Cell(5, $t, "", 1, 0, 'L', true);
$p->Cell(30, $t, "TOTAL", 1, 0, 'L', true);
$p->Cell(15, $t, "", 1, 0, 'C', 'L', true);
for ($i = 1; $i <= $jumsesi; $i++) {
if ($totalS[$i] == 0) {
$totalT[$i] = "";
$totalP[$i] = "";
$totalS[$i] = "";
}
$p->Cell($lbrSks, $t, $totalT[$i], 1, 0, 'C', true);
$p->Cell($lbrSks, $t, $totalP[$i], 1, 0, 'C', true);
$p->Cell($lbrSks, $t, $totalS[$i], 1, 0, 'C', true);
}
$p->Cell(5, $t, $totalTall, 1, 0, 'C', true);
$p->Cell(5, $t, $totalPall, 1, 0, 'C', true);
$p->Cell(5, $t, $totalSall, 1, 0, 'C', true);
$p->ln($t * 2);
BuatFooter($p);
}
if (empty($MhswID)) {
$s = "select MhswID from khs where TahunID='{$TahunID}' and KodeID='" . KodeID . "' order by MhswID";
$r = _query($s);
while ($w = _fetch_array($r)) {
$pdf->AddPage();
HeaderLogo('TAGIHAN ADMINISTRASI', $pdf, 'P');
BuatHeader($TahunID, $w['MhswID'], $pdf);
TampilkanDetailBiaya($TahunID, $w['MhswID'], $pdf);
BuatFooter($TahunID, $w['MhswID'], $pdf);
}
} else {
$pdf->AddPage();
HeaderLogo('TAGIHAN ADMINISTRASI', $pdf, 'P');
BuatHeader($TahunID, $MhswID, $pdf);
TampilkanDetailBiaya($TahunID, $MhswID, $pdf);
BuatFooter($TahunID, $MhswID, $pdf);
}
$pdf->Output();
// *** functions ***
function BuatFooter($TahunID, $MhswID, $p)
{
$t = 5;
$p->Ln(2 * $t);
$identitas = GetFields('identitas', 'Kode', KodeID, '*');
$arr = array();
$arr[] = array('', $identitas['Kota'] . ', ' . date('d M Y'));
$arr[] = array('Mengetahui,', 'Mahasiswa,');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array('', '');
if (empty($PMBID)) {
$s = "select PMBID from pmb where KodeID='" . KodeID . "' order by PMBID";
$r = _query($s);
while ($w = _fetch_array($r)) {
$pdf->AddPage();
HeaderLogo('TAGIHAN ADMINISTRASI', $pdf, 'P');
BuatHeader($w['PMBID'], $pdf);
TampilkanDetailBiaya($w['PMBID'], $pdf);
BuatFooter($w['PMBID'], $pdf);
}
} else {
$pdf->AddPage();
HeaderLogo('TAGIHAN ADMINISTRASI', $pdf, 'P');
BuatHeader($PMBID, $pdf);
TampilkanDetailBiaya($PMBID, $pdf);
BuatFooter($PMBID, $pdf);
}
$pdf->Output();
// *** functions ***
function BuatFooter($PMBID, $p)
{
$t = 5;
$p->Ln(2 * $t);
$identitas = GetFields('identitas', 'Kode', KodeID, '*');
$arr = array();
$arr[] = array('', $identitas['Kota'] . ', ' . date('d M Y'));
$arr[] = array('Mengetahui,', 'Mahasiswa,');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array('', '');
$MhswID = sqling($_REQUEST['MhswID']);
if (!empty($MhswID)) {
$whr_mhsw = "and h.MhswID = '{$MhswID}' ";
} else {
$whr_mhsw = "and LEFT(m.TahunID, 4) = LEFT('{$_SESSION['Angkatan']}', 4)";
}
// Init PDF
$pdf = new PDF();
$pdf->SetTitle("Kartu Hasil Studi");
// *** Main ***
$s = "select h.KHSID, h.MhswID, m.Nama, h.IP, h.IPS, h.Sesi,\n h.TahunID, m.ProgramID, m.ProdiID,\n prd.NamaSesi,\n prd.Nama as _PRD, prg.Nama as _PRG, t.Nama as _THN,\n if (d.Nama is NULL or d.Nama = '', 'Belum diset', concat(d.Nama, ', ', d.Gelar)) as _PA,\n (h.Biaya - h.Bayar + h.Tarik - h.Potongan) as _Sisa\n from khs h\n left outer join prodi prd on prd.ProdiID = h.ProdiID and prd.KodeID = '" . KodeID . "'\n left outer join program prg on prg.ProgramID = h.ProgramID and prg.KodeID = '" . KodeID . "'\n left outer join tahun t on t.TahunID = h.TahunID and t.ProdiID = h.ProdiID and t.KodeID = '" . KodeID . "'\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\n where h.TahunID = '{$_SESSION['TahunID']}'\n and h.ProdiID = '{$_SESSION['ProdiID']}'\n {$whr_mhsw}\n order by h.MhswID";
$r = _query($s);
while ($w = _fetch_array($r)) {
BuatHeaderKHS($w, $pdf);
BuatIsinya($w, $pdf);
BuatFooter($w, $pdf);
}
$pdf->Output();
// *** Functions ***
function BuatFooter($khs, $p)
{
global $arrID, $mrg;
$SKSPerolehan = GetaField("krs k left outer join khs h on k.KHSID=h.KHSID and h.KodeID='" . KodeID . "'", "k.MhswID='{$khs['MhswID']}' and k.Tinggi='*' and (h.Sesi <= {$khs['Sesi']} or k.KHSID=0) and k.KodeID", KodeID, "sum(k.SKS)");
$SKSLulus = GetaField("krs k left outer join khs h on k.KHSID=h.KHSID and h.KodeID='" . KodeID . "'", "k.MhswID='{$khs['MhswID']}' and k.Tinggi='*' and (h.Sesi <= {$khs['Sesi']} or k.KHSID=0) and k.GradeNilai != 'E' and k.KodeID", KodeID, "sum(k.SKS)");
$MaxSKS = GetaField('maxsks', "KodeID='" . KodeID . "' and NA = 'N'\n and DariIP <= {$khs['IPS']} and {$khs['IPS']} <= SampaiIP and ProdiID", $khs['ProdiID'], 'SKS') + 0;
// Pejabat
$pjbt = GetFields('pejabat', "KodeID='" . KodeID . "' and KodeJabatan", 'KABAA', "*");
// Array Isi
$tgl = date('d M Y');
$arr = array();
$arr[] = array('Index Prestasi Semester', ':', $khs['IPS'], $arrID['Kota'] . ', ' . $tgl);
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
// *** Parameters ***
$TahunID = GetSetVar('TahunID');
$ProdiID = GetSetVar('ProdiID');
$lbr = 190;
$pdf = new PDF();
$pdf->SetTitle("Jadwal Matakuliah per Ruang - {$TahunID}");
$pdf->AddPage();
// Buat header dulu
BuatHeader($TahunID, $pdf);
// Tampilkan datanya
AmbilJadwal($TahunID, $pdf);
// Buat footer
BuatFooter($pdf);
$pdf->Output();
// *** Functions ***
function BuatFooter($p)
{
global $arrID;
$mrg = 130;
$t = 6;
// Tanda tangan
$pjbt = GetFields('pejabat', "KodeID='" . KodeID . "' and KodeJabatan", 'KABAA', "*");
$p->Ln(4);
$p->Cell($mrg);
$p->Cell(60, $t, $arrID['Kota'] . ", " . date('d M Y'), 0, 1);
$p->Cell($mrg);
$p->Cell(60, $t, $pjbt['Jabatan'], 0, 1);
$p->Ln(10);
