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);
    }
}
Example #2
0
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);
}
Example #5
0
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);
    }
}
Example #7
0
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);
    }
}
Example #9
0
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);
}
Example #11
0
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);
}
Example #14
0
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;
}