function CetakMatakuliahnya($MKPaketID, $p) { $whr_pid = empty($MKPaketID) ? "" : "and mp.MKPaketID='{$MKPaketID}'"; $s = "select mk.Sesi, mk.MKKode, mk.Nama, mk.Responsi, mk.PraktekKerja, mk.TugasAkhir, mk.SKS\r\n from mkpaketisi mp left outer join mk mk on mp.MKID=mk.MKID\r\n where mk.KodeID='" . KodeID . "'\r\n\t\t{$whr_pid}\r\n\torder by mk.Sesi, mk.Nama"; $r = _query($s); $n = 0; $t = 6; $_sesi = '02q350mq3'; BuatHeaderTabel($p); while ($w = _fetch_array($r)) { /*if ($_sesi != $w['Sesi']) { $_sesi = $w['Sesi']; $p->SetFont('Helvetica', 'B', 10); $p->Ln(2); $p->Cell(170, $t+2, $w['Sesi'], 1, 1); BuatHeaderTabel($p); }*/ $n++; $p->SetFont('Helvetica', '', 10); $p->Cell(10, $t, $n . '.', 1, 0, 'R'); $p->Cell(30, $t, $w['MKKode'], 1, 0); $p->Cell(100, $t, $w['Nama'], 1, 0); $p->Cell(10, $t, $w['SKS'], 1, 0, 'C'); $p->Cell(1, $t, '', 1, 0, '', true); $p->Cell(10, $t, $w['Sesi'], 1, 0, 'C'); $p->Cell(1, $t, '', 1, 0, '', true); $p->Cell(10, $t, $w['Responsi'] == 'Y' ? 'Lab' : '', 1, 0, 'C'); $p->Cell(10, $t, $w['PraktekKerja'] == 'Y' ? 'KP' : '', 1, 0, 'C'); $p->Cell(10, $t, $w['TugasAkhir'] == 'Y' ? 'TA' : '', 1, 0, 'C'); $p->Ln($t); } }
function CetakMatakuliahnya($kur, $p) { $s = "select mk.*\r\n from mk\r\n where mk.KurikulumID = {$kur['KurikulumID']}\r\n order by mk.Sesi, mk.MKKode"; $r = _query($s); $n = 0; $t = 6; $ss = -25; $ttl = 0; while ($w = _fetch_array($r)) { if ($ss != $w['Sesi']) { if ($ss != -25) { $p->SetFont('Helvetica', '', 10); $p->Cell(180, $t, 'Jumlah SKS: ', 'LB', 0, 'R'); $p->Cell(10, $t, $ttl, 'BR', 1, 'R'); $ttl = 0; } $ss = $w['Sesi']; $p->SetFont('Helvetica', 'B', 10); $p->Ln(2); $p->Cell(190, $t + 2, $kur['Sesi'] . " : " . $w['Sesi'], 1, 1); BuatHeaderTabel($p); } $n++; $ttl += $w['SKS']; $p->SetFont('Helvetica', '', 10); $p->Cell(10, $t, $n, 1, 0); $p->Cell(30, $t, $w['MKKode'], 1, 0); $p->Cell(140, $t, $w['Nama'], 1, 0); $p->Cell(10, $t, $w['SKS'], 1, 0, 'R'); $p->Ln($t); } }
function CetakDataLulus($gels, $p) { $s = "select p.PMBID, p.Nama, p.AsalSekolah, p.NilaiUjian, p.NilaiSekolah,\n p.ProdiID, p.ProgramID,\n prg.Nama as _PRG, prd.Nama as _PRD\n from pmb p\n left outer join program prg on prg.ProgramID = p.ProgramID and prg.KodeID='" . KodeID . "'\n left outer join prodi prd on prd.ProdiID = p.ProdiID and prd.KodeID='" . KodeID . "'\n where p.KodeID = '" . KodeID . "'\n and p.PMBPeriodID = '{$gels['PMBPeriodID']}'\n and p.LulusUjian = 'Y'\n order by p.ProdiID, p.ProgramID, p.PMBID "; $r = _query($s); $n = 0; $t = 6; $pr = 'alskdjflaksjdf'; while ($w = _fetch_array($r)) { $n++; if ($pr != $w['ProdiID'] . $w['ProgramID']) { $pr = $w['ProdiID'] . $w['ProgramID']; $p->Ln(1); $p->SetFont('Helvetica', 'B', 11); $p->Cell(190, 8, "Program Studi: {$w['_PRD']} ~ {$w['_PRG']}", 0, 1); BuatHeaderTabel($p); } $p->SetFont('Helvetica', '', 10); $p->Cell(16, $t, $n, 'LB', 0, 'R'); $p->Cell(24, $t, $w['PMBID'], 'B', 0); $p->Cell(60, $t, $w['Nama'], 'B', 0); $p->Cell(70, $t, $w['AsalSekolah'], 'B', 0); $p->Cell(10, $t, $w['NilaiSekolah'], 'B', 0, 'R'); $p->Cell(10, $t, $w['NilaiUjian'], 'BR', 0, 'R'); $p->Ln($t); } }
function BuatIsinya($period, $p) { $s = "select j.*,\r\n date_format(j.Tanggal, '%d-%m-%Y') as TGL,\r\n format(j.Jumlah, 0) as JML\r\n from pmbformjual j\r\n where j.PMBPeriodID = '{$period}'\r\n and j.KodeID = '" . KodeID . "'\r\n and '{$_SESSION['TglMulai']}' <= j.Tanggal\r\n and j.Tanggal <= '{$_SESSION['TglSelesai']}'\r\n and j.NA = 'N'\r\n order by j.PMBFormulirID, j.Tanggal"; //echo "Select: $s"; $r = _query($s); $n = 0; $t = 5; $jml = 0; $_fid = 'a9879sadf'; $_fid0 = $_fid; while ($w = _fetch_array($r)) { if ($_fid != $w['PMBFormulirID']) { if ($_fid != $_fid0) { BuatTotalnya($jml, $p); } $_fid = $w['PMBFormulirID']; $jml = 0; $n = 0; BuatHeaderTabel($_fid, $p); } $n++; $jml += $w['Jumlah']; $p->SetFont('Helvetica', '', 10); $p->Cell(13, $t, $n, 'LB', 0); $p->Cell(22, $t, $w['TGL'], 'B', 0); $p->Cell(30, $t, $w['BuktiSetoran'], 'B', 0); $p->Cell(50, $t, $w['Nama'], 'B', 0); $p->Cell(22, $t, $w['JML'], 'B', 0, 'R'); $p->Cell(55, $t, $w['Keterangan'], 'BR', 0); $p->Ln($t); } BuatTotalnya($jml, $p); }
function BuatIsinya($jdwl, $p) { $t = 6; $lbr1 = 10; BuatHeaderTabel($jdwl, $p); $s = "select k.*, left(m.Nama, 22) as NamaMhsw\r\n from krs k\r\n left outer join mhsw m on k.MhswID = m.MhswID and m.KodeID = '" . KodeID . "'\r\n where k.JadwalID = '{$jdwl['JadwalID']}'\r\n order by m.MhswID"; $r = _query($s); $n = 0; $p->SetFont('Helvetica', '', 8); while ($w = _fetch_array($r)) { $n++; $p->Cell(8, $t, $n, 'LB', 0); $p->Cell(25, $t, $w['MhswID'], 'B', 0); $p->Cell(60, $t, $w['NamaMhsw'], 'B', 0); $p->Cell($lbr1, $t, $w['Presensi'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['Tugas1'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['Tugas2'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['Tugas3'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['Tugas4'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['Tugas5'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['UTS'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['UAS'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['NilaiAkhir'], 'B', 0, 'C'); $p->Cell($lbr1, $t, $w['GradeNilai'], 'BR', 0, 'C'); $p->Ln($t); } }
function CetakMatakuliahnya($ProdiID, $p) { $whr_prodi = empty($ProdiID) ? "" : "and ProdiID='{$ProdiID}'"; $s = "select k.*\r\n from kurikulum k\r\n where k.KodeID='" . KodeID . "'\r\n\t\t{$whr_prodi}\r\n\torder by k.ProdiID, k.Nama"; $r = _query($s); $n = 0; $t = 6; $ss = -25; while ($w = _fetch_array($r)) { if ($ss != $w['ProdiID']) { $ss = $w['ProdiID']; $p->SetFont('Helvetica', 'B', 10); $p->Ln(2); $p->Cell(190, $t + 2, $w['ProdiID'], 1, 1); BuatHeaderTabel($p); } $n++; $p->SetFont('Helvetica', '', 10); $p->Cell(10, $t, $n, 1, 0); $p->Cell(30, $t, $w['KurikulumKode'], 1, 0); $p->Cell(120, $t, $w['Nama'], 1, 0); $p->Cell(30, $t, $w['Sesi'], 1, 0, 'C'); $p->Ln($t); } }
function BuatIsinya($TahunID, $ProdiID, $BIPOTNamaID, $p) { $lbr = 190; $whr_prd = $ProdiID == '' ? '' : "and m.ProdiID = '{$ProdiID}' "; $s = "select b2.*, b.MhswID, b.Keterangan, b.RekeningID,\r\n date_format(b.Tanggal, '%d-%m-%Y') as TGL,\r\n m.Nama as NamaMhsw, m.ProdiID,\r\n format(b2.Jumlah, 0) as JML\r\n from bayarmhsw2 b2\r\n left outer join bayarmhsw b on b2.BayarMhswID = b.BayarMhswID\r\n left outer join mhsw m on b.MhswID = m.MhswID and m.KodeID = '" . KodeID . "'\r\n where b.KodeID = '" . KodeID . "'\r\n and b.TahunID = '{$TahunID}'\r\n and b2.BIPOTNamaID = '{$BIPOTNamaID}'\r\n and b.NA = 'N'\r\n and b2.NA = 'N'\r\n {$whr_prd}\r\n order by m.ProdiID, b.Tanggal, b.MhswID"; $r = _query($s); $n = 0; $t = 5; $_prd = 'lkasdfjasd;'; $awal = $_prd; $ttl = 0; while ($w = _fetch_array($r)) { if ($_prd != $w['ProdiID']) { if ($awal != $w['ProdiID']) { BuatFooterTabel($ttl, $p); } $_prd = $w['ProdiID']; BuatHeaderTabel($TahunID, $w['ProdiID'], $BIPOTNamaID, $p); $n = 0; $ttl = 0; } $n++; $ttl += $w['Jumlah']; $p->SetFont('Helvetica', '', 8); $p->Cell(10, $t, $n, 'LB', 0, 'R'); $p->Cell(20, $t, $w['TGL'], 'B', 0); $p->Cell(25, $t, $w['MhswID'], 'B', 0); $p->Cell(70, $t, $w['NamaMhsw'], 'B', 0); $p->Cell(30, $t, $w['JML'], 'BR', 0, 'R'); $p->Ln($t); } BuatFooterTabel($ttl, $p); }
function TampilkanIsinya($prevtahun, $tahun, $arrGelombang, $arrPejabatID, $p) { $t = 6; $lebar = 19; BuatHeaderTabel($arrPejabatID, $arrGelombang, $lebar, $prevtahun, $tahun, $p); $count = 0; for ($i = 0; $i < sizeof($arrPejabatID); $i++) { $count++; $p->SetFont('Helvetica', '', 8); $p->Cell(8, $t, $count, 1, 0, 'C'); $namapejabat = GetaField('pejabat', 'PejabatID', $arrPejabatID[$i], 'NamaInisial'); $p->Cell($lebar, $t, $namapejabat, 1, 0, 'C'); BuatEntry($arrPejabatID[$i], $t, $lebar, $arrGelombang, $prevtahun, $tahun, $p); $p->Ln($t); } }
function TampilkanIsinya($prevtahun, $tahun, $arrStatusAplikan, $arrGelombang, $p) { $t = 3; $lebar = 9; $arrCurTotal = array(); $arrPrevTotal = array(); BuatHeaderTabel($arrStatusAplikan, $lebar, $prevtahun, $tahun, $p); for ($i = 0; $i < sizeof($arrGelombang); $i++) { $p->SetFont('Helvetica', 'B', 6); $p->Cell($lebar, $t, UbahKeRomawiLimit99($arrGelombang[$i]), 1, 0, 'C'); $p->SetFont('Helvetica', '', 6); BuatEntry($arrGelombang[$i], $arrStatusAplikan, $arrPrevTotal, $arrCurTotal, $t, $lebar, $prevtahun, $tahun, $p); $p->Ln($t); } BuatTotal($arrStatusAplikan, $arrPrevTotal, $arrCurTotal, $lebar, $tahun, $p); return $arrTotal; }
function TampilkanIsinya($gel, $gels, $p) { $t = 6; $lebar = 20; $arrJumlah = array(); // Ambil Prodinya GetArrayProdi($arrProdiID, $arrProdi); GetArrayPeriode($arrPeriode, $gel); BuatHeaderTabel($arrPeriode, $lebar, $p); for ($i = 0; $i < sizeof($arrProdiID); $i++) { $p->SetFont('Helvetica', '', 10); $p->Cell(10, $t, $arrProdiID[$i], 'B', 0); $p->Cell(60, $t, $arrProdi[$i], 'B', 0); AmbilJumlah($arrProdiID[$i], $arrPeriode, $t, $lebar, $p, $arrJumlah); $p->Ln($t); } BuatTotal($arrPeriode, $arrJumlah, $lebar, $p); }
function BuatIsinya($jdwl, $p) { $t = 6; BuatHeaderTabel($p); $s = "select k.*, m.Nama as NamaMhsw\r\n from krs k\r\n left outer join mhsw m on k.MhswID = m.MhswID and m.KodeID = '" . KodeID . "'\r\n where k.JadwalID = '{$jdwl['JadwalID']}'\r\n order by m.MhswID"; $r = _query($s); $n = 0; $p->SetFont('Helvetica', '', 9); while ($w = _fetch_array($r)) { $n++; $p->Cell(10, $t, $n, 'LB', 0); $p->Cell(32, $t, $w['MhswID'], 'B', 0); $p->Cell(70, $t, $w['NamaMhsw'], 'B', 0); $p->Cell(15, $t, $w['NilaiAkhir'], 'B', 0, 'C'); $p->Cell(15, $t, $w['GradeNilai'], 'B', 0, 'C'); $p->Cell(15, $t, $w['BobotNilai'], 'BR', 0, 'C'); $p->Ln($t); } }
function TampilkanIsinya($prevtahun, $tahun, $p) { $t = 6; $lebar = 8; // Ambil Prodinya $arrStatusAplikan = array('APL', 'BLI', 'DFT', 'USM', 'LLS', 'REG'); $arrRevStatusAplikan = array('REG', 'LLS', 'USM', 'DFT', 'BLI', 'APL'); GetArrayPresenter($arrPresenterID, $arrPresenter); BuatHeaderTabel($arrStatusAplikan, $lebar, $p, $prevtahun, $tahun); for ($i = 0; $i < sizeof($arrPresenterID); $i++) { $p->SetFont('Helvetica', '', 10); $p->Cell(10, $t, $arrPresenterID[$i], 'B', 0); //$p->Cell(60, $t, $arrPresenter[$i], 'B', 0); $p->Cell($lebar, $t, '', 'B', 0); BuatEntry($arrPresenterID[$i], $arrStatusAplikan, $arrRevStatusAplikan, $t, $lebar, $p, $arrPrevPeriod, $arrCurPeriod, $prevtahun, $tahun); $p->Ln($t); } //BuatTotal($arrPeriode, $arrJumlah, $lebar, $p); }
function BuatDaftarAplikan($id, $gel, $p) { global $lbr; $presenter = empty($id) ? '' : "and a.PresenterID='{$id}'"; $current_date = date('Y-m-d'); $s = "select a.PMBID, a.Nama, a.TempatLahir, a.TanggalLahir,\r\n date_format(a.TanggalLahir, '%Y-%m-%d') as _TanggalLahir,\r\n a.Telepon, a.Kota, a.Pilihan1, a.Pilihan2, a.ProgramID, a.PresenterID, \r\n if(b.Nama like '_%', b.Nama, \r\n\t\tif(pt.Nama like '_%', pt.Nama, a.AsalSekolah)) as _NamaSekolah, \r\n\ta.LoginBuat, a.TanggalBuat\r\n from aplikan a\r\n\t\tleft outer join asalsekolah b on a.AsalSekolah=b.SekolahID\r\n\t\tleft outer join perguruantinggi pt on a.AsalSekolah=pt.PerguruanTinggiID\r\n where a.KodeID='" . KodeID . "' {$presenter} and left(a.TanggalBuat,10)='{$current_date}'\r\n order by Nama"; $r = _query($s); $nx = _num_rows($r); //$p->Cell(10, 5, $nx, 1, 1, 'C'); $t = 5; //$p->SetFont('Helvetica', 'I', 8); //$p-> Cell(10, $t, $s, 1, 1, 'C'); BuatHeaderTabel($p, $id); while ($w = _fetch_array($r)) { /*if ($pr != $w['LoginBuat']) { $pr = $w['LoginBuat']; $p->SetFont('Helvetica', 'B', 10); $p->Cell($lbr, $t, $pr, 'B', 1); $n = 0; }*/ $n++; $prodi = implode(',', array($w['Pilihan1'], $w['Pilihan2'])); $p->SetFont('Helvetica', '', 8); $p->Cell(7, $t, $n . '.', 1, 0, 'C'); $p->Cell(35, $t, $w['Nama'], 1, 0); $p->Cell(20, $t, $w['TempatLahir'], 1, 0, 'C'); $p->Cell(20, $t, $w['_TanggalLahir'], 1, 0, 'C'); $p->Cell(64, $t, substr($w['_NamaSekolah'], 0, 36), 1, 0); $p->Cell(26, $t, $prodi, 1, 0); $p->Cell(10, $t, $w['ProgramID'], 1, 0); if (empty($id)) { $p->Cell(10, $t, $w['PresenterID'], 1, 0); } $p->Ln($t); } $p->Ln(2); $p->Cell($lbr, $t, "Dicetak oleh: " . $_SESSION['_Login'] . ", " . date('Y-m-d'), 0, 1); }
function BuatHeader($jdwl, $Kolom, $p) { $NamaTahun = GetaField('tahun', "KodeID='" . KodeID . "' and TahunID='{$jdwl['TahunID']}' and ProdiID", $jdwl['ProdiID'], 'Nama'); $t = 6; $lbr = 200; $arr = array(); $arr[] = array('Mata Kuliah', ':', $jdwl['MKKode'] . ' - ' . $jdwl['Nama']); $arr[] = array('Ruang / Thn Akd', ':', ' Ruang: ' . $jdwl['RuangID'] . ' ' . ' / ' . $NamaTahun, 'Dosen Pengampu', ':', $jdwl['DSN']); $arr[] = array('Semester / SKS', ':', $jdwl['Sesi'] . ' / ' . $jdwl['SKS'], 'Hari / Tgl UTS', ':', $jdwl['HRUTS'] . ' / ' . $jdwl['_UTSTanggal'] . ' / ' . $jdwl['_UTSJamMulai'] . ' - ' . $jdwl['_UTSJamSelesai']); $arr[] = array('Program Studi', ':', $jdwl['_PRD'] . ' (' . $jdwl['_PRG'] . ')', 'Hari / Tgl UAS', ':', $jdwl['HRUAS'] . ' / ' . $jdwl['_UASTanggal'] . ' / ' . $jdwl['_UASJamMulai'] . ' - ' . $jdwl['_UASJamSelesai']); // Tampilkan $p->SetFont('Helvetica', '', 9); foreach ($arr as $a) { // Kolom 1 $p->SetFont('Helvetica', 'I', 9); $p->Cell(25, $t, $a[0], 0, 0); $p->Cell(4, $t, $a[1], 0, 0, 'C'); $p->SetFont('Helvetica', 'B', 9); $p->Cell(120, $t, $a[2], 0, 0); // Kolom 2 $p->SetFont('Helvetica', 'I', 9); $p->Cell(25, $t, $a[3], 0, 0); $p->Cell(4, $t, $a[4], 0, 0, 'C'); $p->SetFont('Helvetica', 'B', 9); $p->Cell(25, $t, $a[5], 0, 0); $p->Ln($t); } $p->Ln(4); BuatHeaderTabel($Kolom, $p); }
function TampilkanIsinya($prevtahun, $tahun, $arrStatusAplikan, $arrPresenterID, $jenistable, $p) { $t = 5; $lebar = 8; BuatHeaderTabel($arrStatusAplikan, $lebar, $prevtahun, $tahun, $jenistable, $p); $arrCurPeriod = array(); $arrTotal = array(); for ($i = 0; $i < sizeof($arrPresenterID); $i++) { $p->SetFont('Helvetica', '', 8); $p->Cell(8, $t, $arrPresenterID[$i], 'B', 0); $p->Cell($lebar, $t, '', 'B', 0); BuatEntry($arrPresenterID[$i], $arrStatusAplikan, $t, $lebar, $arrCurPeriod, $arrTotal, $prevtahun, $tahun, $jenistable, $p); $p->Ln($t); } BuatTotal($arrStatusAplikan, $arrTotal, $lebar, $jenistable, $p); return $arrTotal; }