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)) {
