function BuatHeaderKursi($jdwl, $thn, $p) { $t = 6; $lbr = 190; $p->AddPage('P'); HeaderLogo('PRESENSI UJIAN AKHIR SEMESTER', $p, 'P'); $arr = array(); $arr[] = array('Mata Kuliah', $jdwl['MKKode'] . ' ' . $jdwl['Nama']); $arr[] = array('Dosen Pengasuh', $jdwl['DSN']); $arr[] = array('Program Studi', $jdwl['_PRD'] . ' (' . $jdwl['_PRG'] . ')', 'Semester / SKS', $jdwl['Sesi'] . ' / ' . $jdwl['SKS']); $arr[] = array('Kelas / Thn Akd', $jdwl['namaKelas'] . ' / ' . $thn['Nama'], 'Hari / Tgl Ujian', $jdwl['HRUAS'] . ' / ' . $jdwl['_UASTanggal'] . ' / ' . $jdwl['_UASJamMulai'] . ' - ' . $jdwl['_UASJamSelesai']); // Tampilkan $p->SetFont('Helvetica', '', 9); foreach ($arr as $a) { $p->SetFont('Helvetica', 'I', 9); $p->Cell(30, $t, $a[0], 0, 0); $p->Cell(4, $t, ':', 0, 0, 'C'); $p->SetFont('Helvetica', 'B', 9); $p->Cell(70, $t, $a[1], 0, 0); if (!empty($a[2])) { $p->SetFont('Helvetica', 'I', 9); $p->Cell(30, $t, $a[2], 0, 0); $p->Cell(4, $t, ':', 0, 0, 'C'); $p->SetFont('Helvetica', 'B', 9); $p->Cell(70, $t, $a[3], 0, 0); } $p->Ln($t); } $p->Ln(2); }
function BuatHeadernya($klmn, $stt, $p) { global $lbr; HeaderLogo("Rekapitulasi Jumlah Mahasiswa Per Angkatan", $p, 'P'); $p->Ln($t); $t = 5; $p->SetFont('Helvetica', 'BI', 9); // Baris 1 $p->Cell(15, $t, 'Tahun', 'LTR', 0, 'C'); $p->Cell(13, $t, 'Total', 'LTR', 0, 'R'); $p->Cell(13 * sizeof($klmn), $t, 'Gender', 1, 0, 'C'); $p->Cell(13 * sizeof($stt), $t, 'Status Mhsw', 1, 0, 'C'); $p->Ln($t); // Baris 2 $p->Cell(15, $t, 'Angktn', 'LBR', 0, 'C'); $p->Cell(13, $t, 'Mhsw', 'LBR', 0, 'R'); // Kelamin foreach ($klmn as $k) { $p->Cell(13, $t, $k, 1, 0, 'R'); } // Status foreach ($stt as $_stt) { $p->Cell(13, $t, $_stt, 1, 0, 'R'); } $p->Ln($t); }
function BuatHeaderKursi($jdwl, $thn, $p) { $t = 6; $lbr = 190; $p->AddPage('P'); HeaderLogo('DAFTAR HADIR UJIAN AKHIR SEMESTER', $p, 'P'); $arr = array(); $arr[] = array('Mata Kuliah', $jdwl['MKKode'] . ' ' . $jdwl['Nama']); $arr[] = array('Dosen Pengampu', $jdwl['DSN']); $arr[] = array('Program Studi', $jdwl['_PRD'] . ' (' . $jdwl['_PRG'] . ')', '', ''); $arr[] = array('Thn Akd', $thn['Nama'], 'Semester / SKS', $jdwl['Sesi'] . ' / ' . $jdwl['SKS']); // Tampilkan $p->SetFont('Helvetica', '', 9); foreach ($arr as $a) { $p->SetFont('Helvetica', 'I', 9); $p->Cell(30, $t, $a[0], 0, 0); $p->Cell(4, $t, ':', 0, 0, 'C'); $p->SetFont('Helvetica', 'B', 9); $p->Cell(70, $t, $a[1], 0, 0); if (!empty($a[2])) { $p->SetFont('Helvetica', 'I', 9); $p->Cell(30, $t, $a[2], 0, 0); $p->Cell(4, $t, ':', 0, 0, 'C'); $p->SetFont('Helvetica', 'B', 9); $p->Cell(70, $t, $a[3], 0, 0); } $p->Ln($t); } $p->Ln(2); }
function CetakHeadernya($MKPaketID, $p) { $lbr = 190; $t = 6; if (empty($MKPaketID)) { $_pid = "(SEMUA)"; } else { $_pid = GetaField('mkpaket', "MKPaketID='{$MKPaketID}' and KodeID", KodeID, 'Nama'); } HeaderLogo("Daftar Mata Kuliah Paket: {$_pid}", $p, 'P'); }
function BuatIsinya($TahunID, $ProdiID, $p) { $maxentryperpage = 45; $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' "; $whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}' "; $s = "select h.*,\r\n m.Nama as NamaMhsw,\r\n d.Nama as NamaPA, d.Gelar\r\n from khs h\r\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n where h.KodeID = '" . KodeID . "'\r\n and h.TahunID = '{$TahunID}'\r\n and h.SKS > 0\r\n {$whr_prodi}\r\n\t {$whr_tahun}\r\n order by h.ProdiID, h.MhswID"; $r = _query($s); $n = 0; $t = 5; $_prd = 'laksdjfalksdfh'; $ttl = 0; while ($w = _fetch_array($r)) { if ($_prd != $w['ProdiID']) { $p->Ln($t); $p->SetFont('Helvetica', 'B', 12); $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $ttl, 0, 0); $p->SetFont('Helvetica', '', 10); $_prd = $w['ProdiID']; $NamaProdi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $_prd, 'Nama'); $p->AddPage(); HeaderLogo("Daftar Mahasiswa Berdasarkan Prodi", $p); BuatHeader($TahunID, $NamaProdi, 1, $p); $ttl = 0; } // Edit: Ilham // Line: 69 if ($ttl > 0 and $ttl % $maxentryperpage == 0) { $p->AddPage(); //HeaderLogo("Daftar Mahasiswa Berdasarkan Agama", $p, 'P'); HeaderLogo("Daftar Mahasiswa Berdasarkan Prodi", $p, 'P'); BuatHeader($TahunID, $NamaProdi, ceil($ttl / $maxentryperpage) + 1, $p); } $n++; $NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA']; $p->SetFont('Helvetica', '', 10); $p->Cell(15, $t, $n, 'LB', 0); $p->Cell(25, $t, $w['MhswID'], 'B', 0); $p->Cell(60, $t, $w['NamaMhsw'], 'B', 0); $p->Cell(10, $t, $w['Sesi'], 'B', 0, 'R'); $p->Cell(10, $t, $w['SKS'], 'B', 0, 'R'); $p->Cell(10, $t, $w['MaxSKS'], 'B', 0, 'R'); $p->Cell(60, $t, $NamaPA, 'BR', 0); $p->Ln($t); $ttl++; } $p->Ln($t); $p->SetFont('Helvetica', 'B', 12); $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $ttl, 0, 0); }
function _CetakLaporanPerbandinganIPS() { session_start(); include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; // *** Parameters *** include_once "../fpdf.php"; $pdf = new FPDF('L'); $pdf->SetTitle("Laporan Perbandingan IPS"); $pdf->SetAutoPageBreak(true, 5); $pdf->AddPage('L'); $pdf->SetFont('Helvetica', 'B', 9); // Tampilkan datanya HeaderLogo("LAPORAN PERBANDINGAN IPS", $pdf, 'L'); AmbilPerbandingan($_REQUEST['KelasID'], $_REQUEST['jmlsesi'] + 1, $pdf); $pdf->Output(); }
$pdf->SetAutoPageBreak(true, 4); // Buat Header Logo HeaderLogo("DAFTAR PRESENSI MAHASISWA", $pdf, 'L'); // Buat header dulu BuatHeader($jdwl, $Kolom, $pdf); // Buat rekap kehadiran dan tanda tangan BuatEnding($jdwl, $Kolom, $pdf); // Buat footer 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;
} if (empty($ProdiID)) { die(ErrorMsg("Error", "Tentukan program studi-nya dulu.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />")); } // *** Main $prds = getaField('prodi', "KodeID = '" . KodeID . "' and ProdiID", $ProdiID, 'Nama'); $jjgs = GetaField('jenjang', "JenjangID", GetaField('prodi', "KodeID = '" . KodeID . "' and ProdiID", $ProdiID, 'JenjangID'), "Nama"); $thn = NamaTahun($TahunID); $pdf = new FPDF('P', 'mm', 'A4'); $pdf->SetTitle("Jadwal Ujian Komprehensif {$thn}"); $s1 = "select DISTINCT(r.KampusID) as _KMP, k.Tanggal as _TGL \r\n\t\t\tfrom kompredosen k \r\n\t\t\t\tleft outer join ruang r on k.RuangID=r.RuangID and r.KodeID='" . KodeID . "'\r\n\t\t\twhere k.KodeID='" . KodeID . "' \r\n\t\t\torder by _KMP, k.Tanggal"; $r1 = _query($s1); while ($w1 = _fetch_array($r1)) { $pdf->AddPage('L'); $pdf->SetAutoPageBreak(true, 5); HeaderLogo("JADWAL UJIAN KOMPREHENSIF - " . strtoupper($thn), $pdf, 'L', "JENJANG " . $jjgs . " PROGRAM STUDI: " . strtoupper($prds)); BuatHeadernya($w1['_TGL'], $w1['_KMP'], $pdf); Isinya($w1['_TGL'], $w1['_KMP'], $pdf); BuatFooternya($pdf); } $pdf->Output(); // *** Functions *** function BuatHeadernya($Tanggal, $KampusID, $p) { $t = 6; $p->SetFont('Helvetica', 'B', 10); $p->Cell(30, $t, "Hari / Tanggal", 0, 0); $p->Cell(0, $t, ': ' . GetDateInWords($Tanggal), 0, 0); $p->Ln($t); $p->Cell(30, $t, "Tempat", 0, 0); $NamaKampus = GetaField('kampus', "KampusID='{$KampusID}' and KodeID", KodeID, "Nama");
function BuatHeaderDPNA($jdwl, $thn, $p) { $t = 4; $p->AddPage('L'); HeaderLogo('Daftar Lengkap Siswa dan Nilai', $p, 'P'); // Kop 2 $p->SetXY(170, 10); $p->SetFont('Helvetica', '', 8); $mrg0 = 195; $lbr0 = 85; $identitas = GetFields('identitas', 'Kode', KodeID, '*'); $p->Cell($mrg0); $p->Cell($lbr0, $t, '', 0, 1, 'C'); $p->Cell($mrg0); $p->Cell($lbr0, $t, $identitas['Yayasan'], 0, 1, 'C'); $p->Cell($mrg0); $p->SetFont('Helvetica', 'B', 9); $p->Cell($lbr0, 5, $identitas['Nama'], 0, 1, 'C'); $p->Cell($mrg0); $p->Cell($lbr0, 0, '', 1, 1); $t = 5; $p->SetFont('Helvetica', '', 9); $d = array(); $d[] = array('', '', '', '', '', '', 'Matakuliah', ':', $jdwl['Nama']); $d[] = array('', '', '', '', '', '', 'Dosen Pengasuh', ':', $jdwl['DSN']); $d[] = array('Kode Mata Kuliah', ':', $jdwl['MKKode'], 'Dosen Pengasuh', ':', $jdwl['DSN'], 'Program Studi', ':', $jdwl['_PRD']); $d[] = array('Mata Kuliah', ':', $jdwl['Nama'], 'Semester / SKS', ':', $jdwl['Sesi'] . ' / ' . $jdwl['SKS'], 'Kelas / Thn Akd.', ':', $jdwl['namaKelas'] . ' / ' . $thn['Nama']); $d[] = array('Kelas', ':', $jdwl['namaKelas'] . ' (' . $jdwl['_PRG'] . ')', 'Program Studi', ':', $jdwl['_PRD'], 'Semester / SKS', ':', $jdwl['Sesi'] . '/ ' . $jdwl['SKS']); $d[] = array('Tahun Akademik', ':', $thn['Nama'], 'Hari / Tanggal Ujian', ':', $jdwl['HRUAS'] . ' / ' . $jdwl['_UASTanggal'] . ' ' . $jdwl['_UASJamMulai'] . '-' . $jdwl['_UASJamSelesai'], 'Hari / Tgl Ujian', ':', $jdwl['HRUAS'] . ' / ' . $jdwl['_UASTanggal']); // Tampilkan //$p->Image("../img/DPNA.gif", 80, 47, 26); foreach ($d as $_d) { $p->Cell(26, $t, $_d[0], 0, 0); $p->Cell(4, $t, $_d[1], 0, 0); $p->Cell(70, $t, $_d[2], 0, 0); $p->Cell(30, $t, $_d[3], 0, 0); $p->Cell(4, $t, $_d[4], 0, 0); $p->Cell(60, $t, $_d[5], 0, 0); $p->Cell(26, $t, $_d[6], 0, 0); $p->Cell(4, $t, $_d[7], 0, 0); $p->Cell(60, $t, $_d[8], 0, 0); $p->Ln($t); } $p->Ln($t); }
include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $id = $_REQUEST['id']; $gel = $_REQUEST['gel']; $lbr = 280; $pdf = new FPDF(); $pdf->SetTitle("Formulir Pendaftaran"); // Buat semua halaman tanpa footer $pdf->AddPage('P'); $pdf->SetAutoPageBreak(true, 5); // Buat Header Logo HeaderLogo('', $pdf, 'P'); // Buat Judul $pdf->SetFont('Helvetica', 'B', 12); $pmbformulir = GetFields('pmbformulir', "PMBFormulirID='{$id}' and KodeID", KodeID, "*"); $pdf->Cell(0, 10, $pmbformulir['Nama'], 0, 1, 'C'); // Tampilkan isiannya Isinya($pmbformulir, $pdf); //Buat halaman terakhir dengan footer $pdf->Output(); // *** Functions *** function Isinya($pmbformulir, $p) { $t = 3.8; $lettersize = 8; //$style = array('width' => 0.5, 'cap' => 'round', 'join' => 'round', 'dash' => '0, 10', 'color' => array(0, 0, 0)); //SetLineStyle($style, $p);
include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $prodi = $_REQUEST['prodi']; $program = $_REQUEST['program']; $srcmhswkey = $_REQUEST['srcmhswkey']; $srcmhswval = $_REQUEST['srcmhswval']; // *** Main $pdf = new FPDF('P'); $pdf->SetTitle("Data Detail Mahasiswa"); $pdf->SetAutoPageBreak(true, 5); $pdf->SetFillColor(200, 200, 200); $pdf->AddPage('P'); HeaderLogo("Data Detail Mahasiswa", $pdf, 'P'); Isinya($prodi, $program, $srcmhswkey, $srcmhswval, $pdf); $pdf->Output(); // *** Functions *** function Isinya($prodi, $program, $srcmhswkey, $srcmhswval, $p) { $lbr = 190; $t = 6; // BuatHeader $p->SetFont('Helvetica', 'B', 10); $p->Cell(10, $t, 'No.', 1, 0, 'R'); $p->Cell(23, $t, 'NIM', 1, 0, 'L'); $p->Cell(75, $t, 'Nama Mahasiswa', 1, 0, 'L'); $p->Cell(15, $t, 'Prodi', 1, 0, 'C'); //$p->Cell(15, $t, 'Program', 1, 0, 'C'); $p->Cell(12, $t, 'Status', 1, 0, 'C');
function _CetakDistribusiMK() { session_start(); include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; // *** Parameters *** include_once "../fpdf.php"; $pdf = new FPDF('L'); $pdf->SetTitle("Distribusi MataKuliah"); $pdf->SetAutoPageBreak(true, 5); $pdf->AddPage('L'); $pdf->SetFont('Helvetica', 'B', 9); // Tampilkan datanya HeaderLogo("DISTRIBUSI MATA KULIAH MHSW. ANGK. " . $_SESSION['kelas_tahun'], $pdf, 'L'); AmbilDistribusiMK('', $_REQUEST['KelasID'] + 0, $_REQUEST['prodimk'], $pdf); $pdf->Output(); }
include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $_DosenID = $_REQUEST['_detDosenID']; $_Tahun = $_REQUEST['_detTahun']; $_Bulan = $_REQUEST['_detBulan']; $_id = $_REQUEST['_detid']; // *** Init PDF $pdf = new FPDF(); $pdf->SetTitle("Honor Dosen"); $pdf->SetAutoPageBreak(true, 5); $pdf->AddPage(); HeaderLogo("Kwitansi Pembayaran Honor Dosen", $pdf, 'P', (empty($_id) ? "" : "Minggu Ke-" . substr(GetaField('honordosen', 'HonorDosenID', $_id, 'Minggu'), 1, 1)) . " Bulan " . UbahKeBulanIndonesia($_Bulan) . " {$_Tahun}"); BuatHeaderTable($_DosenID, $_Tahun, $_Bulan, $_id, $pdf); $lbr = 190; BuatIsinya($_DosenID, $_Tahun, $_Bulan, $_id, $pdf); BuatPrintedOn('', $pdf); $pdf->Output(); // *** Functions *** function BuatIsinya($_DosenID, $_Tahun, $_Bulan, $_id, $p) { $whr_id = empty($_id) ? "" : "and p.HonorDosenID = '{$_id}'"; $s = "select h.*, m.Nama as Mgg \r\n from honordosen h\r\n left outer join minggu m on h.Minggu=m.MingguID\r\n where h.DosenID = '{$_DosenID}'\r\n\t and h.Bulan = '{$_Bulan}'\r\n and h.Tahun = '{$_Tahun}'"; /* $s = "select DISTINCT(j.MKKode), j.SKS, p.SKSHonor, j.Nama, sum(p.TunjanganSKS) as _TunjanganSKS,
$pdf = new FPDF(); $pdf->SetTitle("Tagihan Administrasi"); $pdf->SetAutoPageBreak(true, 5); 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('', '');
$pdf->SetAutoPageBreak(true, 4); // Buat Header Logo HeaderLogo("ABSENSI DAFTAR MAHASISWA", $pdf, 'L'); // Buat header dulu BuatHeader($jdwl, $pdf); // Buat rekap kehadiran dan tanda tangan BuatEnding($jdwl, $pdf); // Buat footer 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("ABSENSI DAFTAR MAHASISWA", $pdf, 'L'); // Buat header dulu BuatHeader($jdwl, $pdf); // Tampilkan datanya AmbilDetail($jdwl, $r1, $start, $pdf); // Buat rekap kehadiran dan tanda tangan BuatEnding($jdwl, $pdf); // Buat footer BuatFooter($jdwl, $i + 1, $totalpage, $pdf); } $pdf->Output(); // *** Functions *** function BuatEnding($jdwl, $p) { global $arrID; $lbrkolom = 12;
$pdf = new FPDF(); $pdf->SetTitle("Daftar Presensi Dosen"); /* if($SKS == 2) $totalentry = 14; else if($SKS == 3) $totalentry = 16; else if($SKS == 4) $totalentry = 14; else $totalentry = 14; */ $totalentry = GetaField('jadwal', "KodeID='" . KodeID . "' and JadwalID", $_REQUEST['JadwalID'], 'RencanaKehadiran'); // Buat semua halaman tanpa footer $s1 = "select k.MhswID, m.Nama\r\n\tfrom krs k\r\n\t left outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n\twhere k.JadwalID = '{$jdwl['JadwalID']}'\r\n\torder by k.MhswID"; $r1 = _query($s1); $pdf->AddPage('P'); $pdf->SetAutoPageBreak(true, 5); // Buat Header Logo HeaderLogo("DAFTAR PRESENSI DOSEN", $pdf, 'P'); // Buat header dulu BuatHeader($jdwl, $pdf); // Tampilkan datanya AmbilDetail($jdwl, $totalentry, $pdf); //Buat halaman terakhir dengan footer $pdf->Output(); // *** Functions *** function AmbilDetail($jdwl, $numberofentry, $p) { $t = 13; $p->SetFont('Helvetica', '', 9); for ($i = 1; $i <= $numberofentry; $i++) { $p->Cell(30, $t, $i, 'LBR', 0, 'C'); $p->Cell(40, $t, '', 'BR', 0); $p->Cell(80, $t, '', 'BR', 0);
$s = "select PMBID, Nama, Alamat, RuangID, Pilihan1, Pilihan2 from `pmb` where Pilihan1 = '{$prodi}' and PMBPeriodID='{$gelombang}' and (RuangID like '_%' or RuangID is not NULL)"; $r = _query($s); $n = _num_rows($r); while ($w = _fetch_array($r)) { if ($countToThree == 3) { $countToThree = 0; $pdf->AddPage('P', 'A4'); } $currentheight = $cardheight * $countToThree; $pdf->SetFont('Helvetica', 'B', 9); $pdf->SetY($currentheight + 28); $pdf->Cell($lbr1, 9, "KARTU UJIAN SELEKSI MASUK", 0, 0, 'C'); $pdf->Cell($lbr2, 9, "JADWAL UJIAN SELEKSI MASUK", 0, 1, 'C'); $pdf->Ln(9); // Tampilkan datanya HeaderLogo($currentheight, $pdf); AmbilKartu($w['PMBID'], $w['Nama'], $w['Alamat'], $w['Kota'], $w['Pilihan1'], $w['Pilihan2'], 37 + $currentheight, $pdf); AmbilJadwal($w['RuangID'], $w['Pilihan1'], $gelombang, 37 + $currentheight, $pdf); $pdf->SetY($currentheight + $cardheight); if ($countToThree != 2) { $pdf->Cell(190, 0, "", 1, 1); } $countToThree++; } $pdf->Output(); // *** Functions *** function AmbilKartu($PMBID, $Nama, $Alamat, $Kota, $Pilihan1, $Pilihan2, $Y, $p) { if (!empty($Pilihan1)) { $s1 = "select ProdiID, Nama from `prodi` where ProdiID='{$Pilihan1}' "; $r1 = _query($s1);
$pdf = new FPDF(); $pdf->SetTitle("Kartu Ujian Seleksi Masuk"); $pdf->AddPage('P', 'A4'); $pdf->SetFont('Helvetica', 'B', 9); $pdf->SetY(28); $pdf->Cell($lbr1, 9, "KARTU UJIAN SELEKSI MASUK", 0, 0, 'C'); $pdf->Cell($lbr2, 9, "JADWAL UJIAN SELEKSI MASUK", 0, 0, 'C'); $pdf->Ln(9); $s = "select PMBID, Nama, Alamat, RuangID, Pilihan1, Pilihan2, Pilihan3, PMBFormulirID, Foto from `pmb` where PMBID='{$PMBID}' and KodeID='" . KodeID . "'"; $r = _query($s); $w = _fetch_array($r); $prodi1 = $w['Pilihan1']; $s = "update pmb set CetakKartu = CetakKartu+1 where PMBID='{$PMBID}' and KodeID='" . KodeID . "'"; $r = _query($s); // Tampilkan datanya HeaderLogo($pdf); AmbilKartu($w['PMBID'], $w['Nama'], $w['Alamat'], $w['Kota'], $w['Pilihan1'], $w['Pilihan2'], $w['Pilihan3'], $w['Foto'], 37, $pdf); AmbilJadwal($w, $gelombang, 37, $pdf); $pdf->SetY(98); $pdf->Cell(190, 0, "", 1, 1); $pdf->Output(); // *** Functions *** function AmbilKartu($PMBID, $Nama, $Alamat, $Kota, $Pilihan1, $Pilihan2, $Pilihan3, $Foto, $Y, $p) { if (!empty($Pilihan1)) { $s1 = "select ProdiID, Nama from `prodi` where ProdiID='{$Pilihan1}' "; $r1 = _query($s1); $w1 = _fetch_array($r1); $Pilihan1String = $Pilihan1 . ' - ' . $w1['Nama']; } else { $Pilihan1String = '<Belum pilih>';
include_once "../connectdb.php"; include_once "../parameter.php"; 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);
include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $kurid = $_REQUEST['kurid']; if (empty($kurid)) { die(ErrorMsg("Kurikulum Belum Diset", "Tidak dapat mencetak karena kurikulum belum ditentukan atau tidak ditemukan.")); } // *** Main $pdf = new FPDF('P'); $pdf->SetTitle("Daftar Matakuliah Setara"); $pdf->SetAutoPageBreak(true, 5); $pdf->SetFillColor(200, 200, 200); $pdf->AddPage('P'); HeaderLogo("Daftar Matakuliah Setara", $pdf, 'P'); CetakMKSetara($kurid, $pdf); $pdf->Output(); // *** Functions *** function CetakMKSetara($kurid, $p) { $lbr = 190; $t = 6; $p->SetFont('Helvetica', 'B', 11); $p->Cell(10, $t, 'No.', 1, 0, 'R'); $p->Cell(30, $t, 'MKKode', 1, 0, 'L'); $p->Cell(100, $t, 'Nama Mata Kuliah', 1, 0, 'L'); $p->Cell(10, $t, 'SKS', 1, 0, 'C'); $p->Cell(10, $t, 'Sesi', 1, 0, 'C'); $p->Cell(30, $t, 'MK Setara', 1, 0, 'C'); $p->Ln($t);
include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $TahunID = GetSetVar('TahunID'); $ProdiID = GetSetVar('ProdiID'); // *** Init PDF $pdf = new FPDF(); $pdf->SetTitle("Daftar Mahasiswa Berdasarkan Asal Sekolah"); $pdf->SetAutoPageBreak(true, 5); $lbr = 190; $pdf->AddPage(); HeaderLogo("Daftar Mahasiswa Berdasarkan Asal Sekolah", $pdf, 'P'); BuatIsinya($TahunID, $ProdiID, $pdf); $pdf->Output(); // *** FUnctions *** function BuatIsinya($TahunID, $ProdiID, $p) { $maxentryperpage = 45; $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' "; $whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}' "; $s = "select h.*,\r\n m.Nama as NamaMhsw, m.AsalSekolah, a.Nama as NamaSekolah,\r\n d.Nama as NamaPA, d.Gelar\r\n from khs h\r\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n\t left outer join asalsekolah a on a.SekolahID=m.AsalSekolah\r\n\twhere h.KodeID = '" . KodeID . "'\r\n and h.SKS > 0\r\n {$whr_prodi}\r\n\t {$whr_tahun}\r\n order by a.Nama, m.AsalSekolah, h.MhswID"; $r = _query($s); $n = 0; $t = 5; $_as = 'laksdjfalksdfh'; $nas = 'aosjrnflvq13'; $ttl = 0;
include_once "../fpdf.php"; // *** Parameters *** $TahunID = GetSetVar('_jdwlTahun'); $ProdiID = GetSetVar('_jdwlProdi'); $ProgramID = GetSetVar('_jdwlProg'); $_jdwlHari = GetSetVar('_jdwlHari'); $_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', "*");
include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $TahunID = GetSetVar('TahunID'); $ProdiID = GetSetVar('ProdiID'); // *** Init PDF $pdf = new FPDF(); $pdf->SetTitle("Daftar Mahasiswa Yang Tidak Bisa Ujian"); $pdf->SetAutoPageBreak(true, 5); $lbr = 190; $pdf->AddPage(); HeaderLogo("Daftar Mahasiswa Yang Tidak Memenuhi", $pdf, 'P', 'Syarat Mengikuti Ujian Akhir Semester(UAS)'); BuatIsinya($TahunID, $ProdiID, $pdf); $pdf->Ln(8); BuatIsinya2($TahunID, $ProdiID, $pdf); $pdf->Output(); // *** FUnctions *** function BuatIsinya($TahunID, $ProdiID, $p) { $maxentryperpage = 45; BuatHeader($TahunID, 'Belum Administrasi', ceil($ttl / $maxentryperpage) + 1, $p); $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' "; $whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}' "; $s = "select h.*,\r\n m.Nama as NamaMhsw, \r\n d.Nama as NamaPA, d.Gelar,\r\n\t h.Biaya - h.Potongan - h.Bayar as _Hutang\r\n from khs h\r\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n where h.KodeID = '" . KodeID . "'\r\n and h.TahunID = '{$TahunID}'\r\n and h.Biaya - h.Potongan - h.Bayar > 0\r\n {$whr_prodi}\r\n\t {$whr_tahun}\r\n order by h.MhswID"; $r = _query($s); $n = 0; $t = 5;
// Author : Irvandy Gouttama // Email : irvandygoutama@gmail.com // Start : 02 Juni 2008 session_start(); include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** // *** Main $pdf = new FPDF('P'); $pdf->SetTitle("Daftar Rekening Dosen"); $pdf->AddPage('P'); HeaderLogo("Daftar Rekening Dosen", $pdf, 'P'); $pdf->SetFont('Helvetica', 'B', 14); Isinya($pdf); $pdf->Output(); // *** Functions *** function Isinya($p) { $lbr = 190; $t = 5; JudulKolomnya($p); $p->SetFont('Helvetica', '', 7); $s = "select d.Nama, d.Login, d.NamaBank, d.NamaAkun, d.NomerAkun \n from dosen d\n where d.NA='N'\n order by d.Nama"; $r = _query($s); $n = 0; while ($w = _fetch_array($r)) { $n++;
include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $TahunID = GetSetVar('TahunID'); $ProdiID = GetSetVar('ProdiID'); // *** Init PDF $pdf = new FPDF(); $pdf->SetTitle("Rekap Beasiswa Mahasiswa"); $pdf->SetAutoPageBreak(true, 5); $pdf->AddPage(); $tahunstring = empty($TahunID) ? '' : "Tahun {$TahunID}"; HeaderLogo("Mahasiswa Yang Mendapatkan Beasiswa {$tahunstring}", $pdf, 'P'); BuatHeaderTable($TahunID, $ProdiID, $pdf); $lbr = 190; BuatIsinya($TahunID, $ProdiID, $pdf); $pdf->Output(); // *** Functions *** function BuatIsinya($TahunID, $ProdiID, $p) { $whr_prodi = $ProdiID == '' ? '' : "and h.ProdiID = '{$ProdiID}' "; $whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}'"; $s = "select h.MhswID, m.Nama, h.ProdiID, h.IP, h.SKS, h.TotalSKS, \r\n h.Potongan,\r\n format(h.Potongan, 0) as _Potongan\r\n from khs h\r\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n where h.KodeID='" . KodeID . "'\r\n\t {$whr_tahun}\r\n {$whr_prodi}\r\n\t and h.Potongan > 0\r\n order by h.MhswID, h.Sesi"; $r = _query($s); $n = 0; $t = 5; $ttl = 0; $_mhsw = ';alskdjfa;lsdhguairgsofjhjg9e8rgjpsofjg';
include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $TahunID = GetSetVar('TahunID'); $ProdiID = GetSetVar('ProdiID'); // *** Init PDF $pdf = new FPDF(); $pdf->SetTitle("Laporan Tunggakan Mahasiswa"); $pdf->SetAutoPageBreak(true, 5); $pdf->AddPage(); $tahunstring = empty($TahunID) ? '' : "Tahun {$TahunID}"; HeaderLogo("Laporan Tunggakan Mahasiswa {$tahunstring}", $pdf, 'P'); BuatHeaderTable($TahunID, $ProdiID, $pdf); $lbr = 190; BuatIsinya($TahunID, $ProdiID, $pdf); $pdf->Output(); // *** Functions *** function BuatIsinya($TahunID, $ProdiID, $p) { $whr_prodi = empty($ProdiID) ? '' : "and k.ProdiID = '{$ProdiID}' "; $whr_tahun = empty($TahunID) ? '' : "and k.TahunID = '{$TahunID}'"; $s = "select k.MhswID, m.Nama, k.ProdiID, k.IP, k.SKS, k.TahunID, \r\n (k.Biaya - k.Potongan) as Tagihan,\r\n\t k.Bayar\r\n from khs k \r\n left outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n where k.KodeID='" . KodeID . "'\r\n\t {$whr_tahun}\r\n {$whr_prodi}\r\n\t and ((k.Biaya-k.Potongan)-k.Bayar) > 0\r\n order by k.MhswID"; $r = _query($s); $n = 0; $t = 5; $ttlselisih = 0; $_mhsw = ';alskdjfa;lsdhguairgsofjhjg9e8rgjpsofjg';
function BuatPerHalaman($prodiusmid, $gelombang, $p) { if (!empty($prodiusmid)) { $s = "select pu1.RuangID, date_format(pu1.TanggalUjian, '%d %M %Y') as _TanggalUjian, \r\n\t\t\t\tLEFT(pu1.JamMulai, 5) as _JM, LEFT(pu1.JamSelesai, 5) as _JS, pu1.PMBUSMID, pu2.Nama \r\n\t\t\t\tfrom prodiusm pu1 left outer join pmbusm pu2 on pu1.PMBUSMID= pu2.PMBUSMID\r\n\t\t\t\twhere pu1.ProdiUSMID = '{$prodiusmid}' and pu1.KodeID='" . KodeID . "'"; $r = _query($s); while ($w = _fetch_array($r)) { if (!empty($w['RuangID'])) { $arrRuangID = explode(',', $w['RuangID']); foreach ($arrRuangID as $RuangID) { $p->AddPage('P', 'A4'); $p->SetFont('Helvetica', 'B', 14); $p->SetFillColor(200, 200, 200); HeaderLogo("Denah Kursi USM - Gelombang {$gelombang}", $p, 'P'); $p->Ln(13); $p->SetFont('Helvetica', 'B', 11); $t = 3; $t2 = 2 * $t; $p->Cell(25, $t2, 'Mata Ujian', 0, 0); $p->Cell(3, $t2, ':', 0); $p->Cell(2 * strlen($w['Nama']) + 2, $t2, $w['Nama'], 0, 0, 'L'); $p->Ln($t2 + 2); $p->Cell(25, $t2, 'Waktu Ujian ', 0, 0); $p->Cell(3, $t2, ':', 0); $tanggalstring = $w['_TanggalUjian'] . ' ' . $w['_JM'] . '-' . $w['_JS']; $p->Cell(2 * strlen($tanggalstring) + 2, $t2, $tanggalstring, 0, 0, 'L'); $p->Cell(30, $t2, '', 0); $p->Cell(15, $t2, 'Ruang', 0, 0); $p->Cell(3, $t2, ':', 0); $p->Cell(2 * strlen($RuangID) + 5, $t2, $RuangID, 0, 0, 'C'); $p->Ln($t2 * 2); // header dari tabel $ruang = GetFields('ruang', "RuangID='{$RuangID}' and KodeID", KodeID, 'KapasitasUjian, KolomUjian'); $BanyakBaris = ceil($ruang['KapasitasUjian'] / $ruang['KolomUjian']); $arrSiswa = array(); $arrRuangUSMID = array(); $arrKehadiran = array(); $arrNilaiUSM = array(); $s1 = "select UrutanDiRuang, PMBID, RuangUSMID, Kehadiran, NilaiUSM from ruangusm where ProdiUSMID='{$prodiusmid}' and PMBPeriodID='{$gelombang}' and RuangID='{$RuangID}' and KodeID='" . KodeID . "'"; $r1 = _query($s1); while ($w1 = _fetch_array($r1)) { $arrSiswa[$w1['UrutanDiRuang']] = $w1['PMBID']; $arrRuangUSMID[$w1['UrutanDiRuang']] = $w1['RuangUSMID']; $arrKehadiran[$w1['UrutanDiRuang']] = $w1['Kehadiran']; $arrNilaiUSM[$w1['UrutanDiRuang']] = $w1['NilaiUSM']; } // isi Table $p->SetFont('Helvetica', 'B', 9); $t = 6; $n = 0; for ($i = 1; $i <= $BanyakBaris; $i++) { for ($j = 1; $j <= $ruang['KolomUjian']; $j++) { $n++; $XStart = $p->GetX(); $YStart = $p->GetY(); if (empty($arrSiswa[$n])) { $p->Cell(37, $t * 3 - 1, '', 1, 0, '', true); $p->SetXY($XStart, $YStart); $p->Image('../img/kursi.jpg', $XStart + 2, $YStart + 2, 10); $p->Ln($t * 2); $p->SetX($XStart); $p->Cell(37, $t, " Kolom {$j}, Baris {$i}", 0, 0); $p->SetXY($XStart + 38, $YStart); } else { $cama = GetFields('pmb', "PMBID='{$arrSiswa[$n]}' and KodeID", KodeID, '*'); $p->Cell(37, $t, $arrSiswa[$n], 0, 0, 'C'); $p->Ln($t * 3 / 4); $p->SetX($XStart); $p->Cell(37, $t, $cama['Nama'], 0, 0, 'C'); $p->SetXY($XStart, $YStart); $p->Ln($t * 2); $p->SetX($XStart); $p->Cell(30, $t, " Kolom {$j}, Baris {$i}", 0, 0); $p->SetXY($p->GetX(), $p->GetY() - 3); if ($_SESSION['_usm_jenisx'] == 1) { if ($arrKehadiran[$n] == 'Y') { if ($arrNilaiUSM[$n] == 0) { $p->Cell(5, $t, "", 1, 0, 'C'); } else { $p->Cell(5, $t, "{$arrNilaiUSM[$n]}", 1, 0, 'C'); } } else { $p->Cell(5, $t, "X", 1, 0, 'C'); } } else { if ($arrKehadiran[$n] == 'Y') { $p->Cell(5, $t, "H", 1, 0, 'C'); } else { $p->Cell(5, $t, "", 1, 0, 'C'); } } $p->SetXY($XStart, $YStart); $p->Cell(37, $t * 3 - 1, '', 1, 0); $p->SetXY($XStart + 38, $YStart); } } $p->Ln(3 * $t); } } } } } }
include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $MhswID = $_REQUEST['MhswID']; $KHSID = $_REQUEST['KHSID']; if (empty($MhswID)) { die(ErrorMsg("Error", "Tentukan Mahasiswa ID-nya dulu.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />")); } // *** Main $pdf = new FPDF('P'); $pdf->SetTitle("History Beasiswa Mahasiswa"); $pdf->AddPage('P'); HeaderLogo("History Beasiswa Mahasiswa", $pdf, 'P'); $pdf->SetFont('Helvetica', 'B', 14); Isinya($MhswID, $KHSID, $pdf); $pdf->Output(); // *** Functions *** function Isinya($MhswID, $KHSID, $p) { $lbr = 190; $t = 5; BuatHeadernya($MhswID, $p); JudulKolomnya($p); $p->SetFont('Helvetica', '', 9); $_Sesi = GetaField('khs', "KHSID='{$KHSID}' and KodeID", KodeID, 'Sesi') + 0; $s = "select bm.*\r\n from bipotmhsw bm\r\n\t\tleft outer join khs k on bm.TahunID=k.TahunID and bm.MhswID=k.MhswID and k.KodeID='" . KodeID . "'\r\n\twhere bm.KodeID='" . KodeID . "' \r\n\t\tand bm.MhswID = '{$MhswID}'\r\n\t\tand k.Sesi <= {$_Sesi}\r\n\t\tand bm.TrxID = '-1'\r\n\t\tand bm.Besar > 0\r\n order by k.TahunID"; $r = _query($s); $n = 0;
include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $MhswID = $_REQUEST['MhswID']; if (empty($MhswID)) { die(ErrorMsg("Error", "Tentukan Mahasiswa ID-nya dulu.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />")); } // *** Main $pdf = new FPDF('P'); $pdf->SetTitle("Daftar SKS Tidak Lulus Mahasiswa"); $pdf->AddPage('P'); HeaderLogo("Daftar SKS Tidak Lulus Mahasiswa", $pdf, 'P'); $pdf->SetFont('Helvetica', 'B', 14); Isinya($MhswID, $pdf); $pdf->Output(); // *** Functions *** function Isinya($MhswID, $p) { $lbr = 190; $t = 5; BuatHeadernya($MhswID, $p); JudulKolomnya($p); $p->SetFont('Helvetica', '', 9); $s = "select k.*\r\n from krs k\r\n left outer join khs h on h.KHSID = k.KHSID and h.KodeID = '" . KodeID . "'\r\n left outer join nilai n on k.GradeNilai=n.Nama and h.ProdiID=n.ProdiID and n.KodeID = '" . KodeID . "'\r\n\twhere k.MhswID = '{$MhswID}'\r\n\t\tand n.Lulus = 'N'\r\n order by k.TahunID, k.MKKode"; $r = _query($s); $n = 0; $_thn = "02n4lajwnrfvnaw34";
include_once "../dwo.lib.php"; include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../fpdf.php"; // *** Parameters *** $TAID = GetSetVar('TAID'); if (empty($TAID)) { die(ErrorMsg("Error", "Tentukan Tugas Akhir-nya dulu.\n <hr size=1 color=silver />\n <input type=button name='Tutup' value='Tutup'\n onClick='window.close()' />")); } // *** Main $pdf = new FPDF('P'); $pdf->SetTitle("Daftar Bimbingan TA Mahasisawa"); $pdf->AddPage('P'); HeaderLogo("Daftar Bimbingan TA Mahasiswa", $pdf, 'P'); $pdf->SetFont('Helvetica', 'B', 14); Isinya($TAID, $pdf); $pdf->Output(); // *** Functions *** function Isinya($TAID, $p) { $lbr = 190; $t = 5; BuatHeadernya($TAID, $p); JudulKolomnya($p); $p->SetFont('Helvetica', '', 10); $s = "select tb.Catatan, \n\t date_format(tb.TglBimbingan, '%d-%m-%y') as _TglBimbingan\n from tabimbingan tb\n where tb.TAID = '{$TAID}'\n order by tb.TglBimbingan"; $r = _query($s); $n = 0; while ($w = _fetch_array($r)) {