PHP _fetch_array函数代码示例

function GetBipot2($pmb, $bipotid, &$total)
{
    global $_lf;
    $s0 = "select b2.*, bn.Nama, bn.DefJumlah, bn.DefBesar, bn.Diskon\r\n    from bipot2 b2\r\n    left outer join bipotnama bn on b2.BIPOTNamaID=bn.BIPOTNamaID\r\n    where b2.BIPOTID='{$bipotid}' and b2.SaatID=1\r\n      and INSTR(b2.StatusAwalID, '.{$pmb['StatusAwalID']}.')>0\r\n    order by b2.Prioritas";
    $r0 = _query($s0);
    $thn = substr($w['PMBID'], 0, 4);
    $a = '';
    $n = 0;
    $total = 0;
    while ($w0 = _fetch_array($r0)) {
        if ($w0['Jumlah'] == 0) {
        } elseif ($w0['GunakanGradeNilai'] == 'Y') {
            if (strpos($w0['GradeNilai'], ".{$pmb['GradeNilai']}.") === false) {
            } else {
                $n++;
                $a .= InsertBIPOT($n, $w0, $tot, $bipotid, $pmb);
                $total += $tot;
            }
        } else {
            $n++;
            $a .= InsertBIPOT($n, $w0, $tot, $bipotid, $pmb);
            $total += $tot;
        }
    }
    $strtotal = str_pad(' ', 57, ' ') . str_pad('-', 15, '-') . $_lf;
    $strtotal .= str_pad('Total :', 57, ' ', STR_PAD_LEFT) . str_pad(number_format($total), 15, ' ', STR_PAD_LEFT);
    return $a . $strtotal;
}

function Finalisasi($jdwl)
{
    $id = $_REQUEST['id'];
    // finalisasi jadwal
    $s = "update jadwal \n    set Final = 'Y', Gagal = 'N',\n        TglEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n    where JadwalID = {$id}";
    $r = _query($s);
    // finalisasi krs
    $s = "update krs\n    set Final = 'Y',\n        TanggalEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n    where JadwalID = {$id}";
    $r = _query($s);
    // finalisasi jadwal uts
    $s = "update jadwaluts set Final = 'Y'\n\twhere JadwalID = {$id}";
    $r = _query($s);
    $s = "update jadwaluas set Final = 'Y'\n\twhere JadwalID = {$id}";
    $r = _query($s);
    // finalisasi jadwal responsi/lab/tutorial tambahan
    $s = "select JadwalID from jadwal where JadwalRefID = '{$id}' and KodeID='" . KodeID . "'";
    $r = _query($s);
    while ($w = _fetch_array($r)) {
        $s1 = "update jadwal set Final = 'Y', Gagal = 'N',\n\t\t\tTglEdit=now(), LoginEdit = '{$_SESSION['_Login']}'\n\t\t\twhere JadwalID='{$w['JadwalID']}'";
        $r1 = _query($s1);
        $s1 = "update krs\n    set Final = 'Y',\n        TanggalEdit = now(), LoginEdit = '{$_SESSION['_Login']}'\n    where JadwalID = '{$w['JadwalID']}'";
        $r1 = _query($s1);
    }
    // Kembali
    TutupScript($id);
}

function TampilkanDaftarProgramStudi()
{
    global $Cari;
    $Max = 50;
    $arrcr = explode(',', $Cari);
    $arrwhr = array();
    if (!empty($arrcr[0])) {
        $arrwhr[] = "(Nama like '%" . TRIM($arrcr[0]) . "%') ";
    }
    $whr = implode(' and ', $arrwhr);
    // Hitung jumlah baris
    $Jml = GetaField('perguruantinggi', "{$whr} and NA", 'N', "count(PerguruanTinggiID)");
    if ($Jml > $Max) {
        $_Jml = number_format($Jml);
        echo "<p><b>Catatan:</b> Jumlah program studi yang Anda cari mencapai: <b>{$_Jml}</b>, tetapi sistem membatasi\r\n      jumlah program studi yang ditampilkan dan hanya menampilkan: <b>{$Max}</b>.\r\n      Gunakan Nama program studi dengan lebih spesifik untuk membatasi\r\n      jumlah program studi yang ditampilkan.</p>\r\n\r\n      <p><b>Format Pencarian:</b> NamaProgramStudi</p>";
    }
    // Tampilkan
    $s = "select ProdiDiktiID, Nama\r\n    from prodidikti\r\n    where {$whr} and NA='N'\r\n    order by Nama limit {$Max}";
    $r = _query($s);
    $n = 0;
    echo "<p><table class=box cellspacing=1 cellpadding=4 width=100%>\r\n    <tr><th class=ttl>#</th>\r\n    <th class=ttl>Kode Prodi</th>\r\n    <th class=ttl>Nama</th>\r\n    </tr>";
    while ($w = _fetch_array($r)) {
        $n++;
        echo "<tr><td class=ul>{$n}</td>\r\n    <td class=ul><a href='javascript:kembalikan(\"{$w['ProdiDiktiID']}\", \"{$w['Nama']}\")'>{$w['ProdiDiktiID']}</a></td>\r\n    <td class=ul>{$w['Nama']}&nbsp;</td>\r\n    </tr>";
    }
    echo "</table></p>";
}

function RekapPA($ProdiID, $p)
{
    // Buat headernya
    $t = 6;
    $p->SetFont('Helvetica', 'B', 10);
    $p->Cell(20, $t, 'Nmr', 1, 0);
    $p->Cell(40, $t, 'Kode Dosen', 1, 0);
    $p->Cell(100, $t, 'Nama Dosen', 1, 0);
    $p->Cell(20, $t, 'Mhsw', 1, 1, 'R');
    // Datanya
    $s = "select count(MhswID) as JML,\r\n      m.PenasehatAkademik,\r\n      d.Nama as NamaDosen, d.Gelar\r\n    from mhsw m\r\n      left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n    where m.KodeID = '" . KodeID . "'\r\n      and m.ProdiID = '{$ProdiID}'\r\n      and m.Keluar = 'N'\r\n    group by m.PenasehatAkademik";
    $r = _query($s);
    $n = 0;
    $t = 5;
    $p->SetFont('Helvetica', '', 9);
    while ($w = _fetch_array($r)) {
        $n++;
        $NamaDosen = empty($w['NamaDosen']) ? 'Belum diset' : $w['NamaDosen'] . ', ' . $w['Gelar'];
        $p->Cell(20, $t, $n, 'LB', 0);
        $p->Cell(40, $t, $w['PenasehatAkademik'], 'B', 0);
        $p->Cell(100, $t, $NamaDosen, 'B', 0);
        $p->Cell(20, $t, $w['JML'], 'BR', 0, 'R');
        $p->Ln($t);
    }
}

function ProsesCopyKRS1()
{
    $_JadwalID1 = $_REQUEST['_JadwalID1'];
    $_JadwalID2 = $_REQUEST['_JadwalID2'];
    $jdwl2 = GetFields('jadwal', 'JadwalID', $_JadwalID2, '*');
    $s = "select *\r\n    from krs\r\n    where JadwalID='{$_JadwalID1}'\r\n    order by MhswID";
    $r = _query($s);
    $n = 0;
    echo "<ol>";
    while ($w = _fetch_array($r)) {
        $ada = GetaField("krs", "MhswID='{$w['MhswID']}' and JadwalID", $_JadwalID2, 'KRSID');
        // Jika belum terdaftar, maka daftarkan
        if (empty($ada)) {
            $n++;
            $str = "insert into krs\r\n        (KHSID, MhswID, TahunID, JadwalID,\r\n        MKID, MKKode, SKS, HargaStandar, Harga,\r\n        Catatan, LoginBuat, TanggalBuat)\r\n        values ({$w['KHSID']}, '{$w['MhswID']}', '{$w['TahunID']}', {$_JadwalID2},\r\n        '{$jdwl2['MKID']}', '{$jdwl2['MKKode']}', '{$jdwl2['SKS']}', \r\n        '{$jdwl2['HargaStandar']}', '{$jdwl2['Harga']}',\r\n        'COPY DARI JadwalID: {$_JadwalID1}', 'DEWO', now()\r\n        )";
            $rstr = _query($str);
        } else {
            $str = "<font color=RED>Sudah</font>";
        }
        echo "<li>{$w['MhswID']} &raquo; {$str}</li>";
    }
    // Hitung Jumlah Mhsw di Jadwal2
    $jml = GetaField("krs", "JadwalID", $_JadwalID2, "count(*)") + 0;
    $sx = "update jadwal set JumlahMhsw={$jml} where JadwalID={$_JadwalID2}";
    $rx = _query($sx);
    echo "Telah tercopy <font size=+2>{$n}</font> KRS</td></tr>";
}

function DetailBIPOT()
{
    global $_lf;
    $bipotid = $_REQUEST['bipotid'];
    $bpt = GetFields('bipot', 'BIPOTID', $bipotid, '*');
    $prg = GetaField('program', 'ProgramID', $bpt['ProgramID'], 'Nama');
    $prd = GetaField('prodi', 'ProdiID', $bpt['ProdiID'], 'Nama');
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.bipot.dwoprn";
    $f = fopen($nmf, 'w');
    $mxc = 114;
    $grs = str_pad('-', $mxc, '-') . $_lf;
    $hdr = str_pad("Daftar Biaya & Potongan {$bpt['TahunID']}", $mxc, ' ', STR_PAD_BOTH) . $_lf . str_pad($bpt['Nama'], $mxc, ' ', STR_PAD_BOTH) . $_lf . str_pad("Program: {$prg}, Prodi: {$prd}", $mxc, ' ', STR_PAD_BOTH) . $_lf . $grs . "No. Prio " . str_pad("Nama", 30) . str_pad("Jumlah", 12, ' ', STR_PAD_LEFT) . ' ' . str_pad("Penarikan", 12) . str_pad("Oto?", 5) . ' ' . str_pad("St.Awal", 12) . ' ' . str_pad("St.Mhsw", 12) . ' ' . str_pad("Grade", 5) . ' ' . $_lf . $grs;
    $s = "select b2.*, bn.Nama, format(b2.Jumlah, 0) as JML,\r\n      t.Nama as NMTRX, s.Nama as SAAT\r\n      from bipot2 b2\r\n      left outer join bipotnama bn on b2.BIPOTNamaID=bn.BIPOTNamaID\r\n      left outer join saat s on b2.SaatID=s.SaatID\r\n      left outer join trx t on b2.TrxID=t.TrxID\r\n      where b2.BIPOTID='{$bipotid}' and KodeID='{$_SESSION['KodeID']}'\r\n      order by b2.TrxID, b2.Prioritas, b2.GradeNilai";
    $r = _query($s);
    $n = 0;
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        $n++;
        $jml = number_format($w['Jumlah']);
        $sa = TRIM($w['StatusAwalID'], '.');
        $sa = str_replace('.', ',', $sa);
        $sm = TRIM($w['StatusMhswID'], '.');
        $sm = str_replace('.', ',', $sm);
        fwrite($f, str_pad($n, 4) . str_pad($w['Prioritas'], 5) . str_pad($w['Nama'], 30) . str_pad($jml, 12, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['SAAT'], 12) . str_pad($w['Otomatis'], 5, ' ', STR_PAD_BOTH) . ' ' . str_pad($sa, 12) . ' ' . str_pad($sm, 12) . ' ' . str_pad($w['GradeNilai'], 5, ' ', STR_PAD_BOTH) . $_lf);
    }
    fwrite($f, $grs);
    fclose($f);
    TampilkanFileDWOPRN($nmf);
}

function VirtualBipotMhsw($MhswID, $BIPOTID)
{
    // Ambil BIPOT-nya
    $s = "select * \n    from bipot2 \n    where BIPOTID = '{$BIPOTID}'\n      and Otomatis = 'Y'\n      and NA = 'N'\n    order by TrxID, Prioritas";
    $r = _query($s);
    $total = 0;
    $mhsw = GetFields('mhsw', "KodeID='" . KodeID . "' and MhswID", $MhswID, "BIPOTID, GradeNilai, StatusMhswID, StatusAwalID");
    while ($w = _fetch_array($r)) {
        $oke = true;
        // Apakah sesuai dengan status awalnya?
        $pos = strpos($w['StatusAwalID'], "." . $mhsw['StatusAwalID'] . ".");
        $oke = $oke && !($pos === false);
        // Apakah grade-nya?
        if ($oke) {
            if ($w['GunakanGradeNilai'] == 'Y') {
                $pos = strpos($w['GradeNilai'], "." . $mhsw['GradeNilai'] . ".");
                $oke = $oke && !($pos === false);
            }
        }
        // Simpan data
        if ($oke) {
            // Cek apakah memakai script atau tidak?
            if ($w['GunakanScript'] == 'Y') {
                // BipotGunakanScript($pmb, '', $w, $ada, 0);
            } else {
                // Jika tidak ada duplikasi, maka akan di-insert. Tapi jika sudah ada, maka dicuekin aja.
                $total += $w['Jumlah'];
            }
            // end else
        }
        // end if $oke
    }
    // end while
    return $total;
}

function BuatRekapBeasiswa($tahun, $prodi)
{
    echo "<p align=center><font size=+1>Rekap Pemohon Beasiswa {$tahun}</font></p>";
    // Data
    $s = "select b.Nama, sum(bm.Besar) as BSR, sum(bm.Disetujui) as S7, count(bm.BeasiswaMhswID) as JML\r\n    from beasiswamhsw bm\r\n      left outer join beasiswa b on bm.BeasiswaID=b.BeasiswaID\r\n    where bm.TahunID='{$tahun}' and bm.NA='N'\r\n    group by bm.BeasiswaID";
    $r = _query($s);
    $n = 0;
    $_bsr = 0;
    $_s7 = 0;
    $_jml = 0;
    echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n    <tr><th class=ttl>#</th>\r\n    <th class=ttl>Jenis Beasiswa</th>\r\n    <th class=ttl>Jml Pemohon</th>\r\n    <th class=ttl>Permohonan</th>\r\n    <th class=ttl>Disetujui</th>\r\n    </tr>";
    while ($w = _fetch_array($r)) {
        $n++;
        $BSR = number_format($w['BSR']);
        $S7 = number_format($w['S7']);
        $_bsr += $w['BSR'];
        $_s7 += $w['S7'];
        $JML = number_format($w['JML']);
        $_jml += $w['JML'];
        echo "<tr><td class=inp>{$n}</td>\r\n      <td class=ul>{$w['Nama']}</td>\r\n      <td class=ul align=right>{$JML}</td>\r\n      <td class=ul align=right>{$BSR}</td>\r\n      <td class=ul align=right>{$S7}</td>\r\n      </tr>";
    }
    $bsr = number_format($_bsr);
    $s7 = number_format($_s7);
    $jml = number_format($_jml);
    echo "<tr><td class=ul colspan=2 align=right>Jumlah :</td>\r\n  <td class=ul align=right><b>{$jml}</b></td>\r\n  <td class=ul align=right><b>{$bsr}</b></td>\r\n  <td class=ul align=right><b>{$s7}</b></td></tr>\r\n  </table></p>";
}

function CekDataKRS($MhswID, $ProdiID, $KHSID)
{
    $s = "select krs.KRSID, j.HariID, krs.MKID\r\n    from krs\r\n      left outer join jadwal j on krs.JadwalID=j.JadwalID\r\n    where krs.KHSID='{$KHSID}'\r\n    order by j.HariID, krs.MKID";
    $r = _query($s);
    $sebel = '';
    while ($w = _fetch_array($r)) {
        $strpsn = '';
        $skrg = "{$w['HariID']}-{$w['MKID']}";
        if ($sebel == $skrg) {
            $strpsn = "<font size=+2 color=maroon>Dihapus</font>";
            $_SESSION["CEK-KRS-DIHAPUS"]++;
            $sx = "delete from krs where KRSID='{$w['KRSID']}' ";
            $rx = _query($sx);
        }
        echo "<li>{$w['MKID']} {$skrg} {$strpsn}</li>";
        $sebel = $skrg;
    }
    // Hitung KRS
    $jml = GetFields("krs left outer join jadwal j on krs.JadwalID=j.JadwalID", "krs.StatusKRSID='A' and j.JenisJadwalID='K' and krs.KHSID", $KHSID, "sum(krs.SKS) as TotalSKS, count(*) as JumlahMK");
    $TotalSKS = $jml['TotalSKS'] + 0;
    $JumlahMK = $jml['JumlahMK'] + 0;
    $sr = "update khs set TotalSKS={$TotalSKS}, JumlahMK={$JumlahMK} where KHSID='{$KHSID}' ";
    $rr = _query($sr);
    echo "<p>Summary &raquo; Total SKS: <b>{$TotalSKS}</b>, Jumlah MK: <b>{$JumlahMK}</b></p>";
}

function TampilkanIsinya($page, $limit, $gel, $gels, $tahun, $nexttahun, $p)
{
    $pagelimit = $page * $limit;
    $s = "select DISTINCT(a.AplikanID), m.MhswID, a.Nama, k.Nama as NamaKelas, \r\n\t  if(aa.Nama like '_%', aa.Nama, \r\n\t\t\tif(pt.Nama like '_%', pt.Nama, b.AsalSekolah)) as NamaSekolah,\r\n\t  b.TahunLulus, pp.Urutan, a.SumberInformasi, a.PresenterID,\r\n\t  a.StatusMundur as Mundur\r\n\t  from \r\n\t\tstatusaplikanmhsw sam left outer join aplikan a on sam.AplikanID=a.AplikanID\r\n\t\t\t\t left outer join pmb b on a.PMBID=b.PMBID \r\n\t\t\t\t left outer join asalsekolah aa on b.AsalSekolah=aa.SekolahID\r\n\t\t\t\t left outer join perguruantinggi pt on b.AsalSekolah=pt.PerguruanTinggiID\r\n\t\t\t\t left outer join mhsw m on b.PMBID=m.PMBID\r\n\t\t\t\t left outer join kelas k on k.KelasID=m.KelasID\r\n\t\t\t\t left outer join pmbperiod pp on a.PMBPeriodID=pp.PMBPeriodID\r\n\t  where b.KodeID = '" . KodeID . "'\r\n\t\t\tand sam.StatusAplikanID='REG'\r\n\t\t\tand pp.Tahun='{$tahun}'\r\n\t  order by a.PresenterID, m.MhswID\r\n\t  limit {$pagelimit}, {$limit}";
    $r = _query($s);
    $n = 0;
    $t = 3;
    TampilkanHeader($p);
    while ($w = _fetch_array($r)) {
        $n++;
        $p->SetFont('Helvetica', '', 6);
        $p->Cell(7, $t, $n, 'LB', 0, 'C');
        $p->Cell(20, $t, $w['MhswID'], 1, 0, 'C');
        $p->SetFillColor(255, 255, 255);
        if ($w['Mundur'] == 'N') {
            $p->SetFillColor(255, 0, 0);
        }
        $p->Cell(50, $t, $w['Nama'], 1, 0, 'L', true);
        $p->Cell(20, $t, $w['NamaKelas'], 1, 0, 'C');
        $p->Cell(70, $t, $w['NamaSekolah'], 1, 0, 'C');
        $p->Cell(12, $t, $w['TahunLulus'], 1, 0, 'C');
        $p->Cell(10, $t, $w['Urutan'], 1, 0, 'C');
        $p->Cell(10, $t, $w['SumberInformasi'], 1, 0, 'C');
        $arrSumberInfo = explode(',', $w['SumberInformasi']);
        $NamaSumberInfo = GetaField('sumberinfo', 'InfoID', $arrSumberInfo[0], 'Nama');
        $p->Cell(70, $t, $NamaSumberInfo, 1, 0, 'L');
        $p->Cell(10, $t, $w['PresenterID'], 1, 0, 'C');
        $p->Ln($t);
    }
}

function perskskhusus($mhsw, $khs, $bipot, $ada, $pmbmhswid = 1)
{
    // Jumlah SKS yg diambil mhsw.
    // Hrs diparsing krn dicek apkh mhsw jg mengambil jdwl dgn hrg yg berbeda?
    $TabelKRS = $_REQUEST['DariKRS'] == 0 ? "krs" : "krstemp";
    // Apakah diakses dari modul KRS?
    $s = "select k.TahunID, k.MhswID,\n    j.JadwalID, j.SKSAsli, j.HargaStandar, j.Harga, j.JenisJadwalID\n    from {$TabelKRS} k\n      left outer join jadwal j on k.JadwalID=j.JadwalID\n    where k.MhswID='{$mhsw['MhswID']}' and k.TahunID='{$khs['TahunID']}'\n      and j.JenisJadwalID='R' ";
    $r = _query($s);
    $totharga = 0;
    $totsks = 0;
    $mk = '';
    $jml = 0;
    while ($w = _fetch_array($r)) {
        $jml++;
        //echo "$w[MKKode]: $w[Nama] ($w[SKS] SKS), Harga Standar? $w[HargaStandar]:$w[Harga]<br />";
        $totsks += $w['SKS'];
        $totharga += $w['Harga'];
        $mk .= "{$w['MKKode']} - {$w['Nama']}: {$w['SKSAsli']} SKS dgn Harga: {$w['Harga']} \r\n";
    }
    if (empty($ada) && $totharga > 0) {
        $s0 = "insert into bipotmhsw(MhswID, TahunID, BIPOT2ID, BIPOTNamaID,\n      PMBMhswID, TrxID, Jumlah, Besar, Catatan,\n      LoginBuat, TanggalBuat)\n      values('{$mhsw['MhswID']}', '{$khs['TahunID']}', '{$bipot['BIPOT2ID']}', '{$bipot['BIPOTNamaID']}',\n      '{$pmbmhswid}', '{$bipot['TrxID']}', {$totsks}, '{$bipot['Jumlah']}', '{$mk}',\n      '{$_SESSION['_Login']}', now())";
        $r0 = _query($s0);
    } else {
        $s0 = "update bipotmhsw set Jumlah='{$totsks}', Besar='{$bipot['Jumlah']}',\n      PMBMhswID='{$pmbmhswid}',\n      Catatan='{$mk}',\n      LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\n      where BIPOTMhswID='{$ada['BIPOTMhswID']}' ";
        $r0 = _query($s0);
    }
}

function BuatIsinya2($TahunID, $ProdiID, $p)
{
    $maxentryperpage = 45;
    BuatHeader2($TahunID, 'Quota Absensi', ceil($ttl / $maxentryperpage) + 1, $p);
    $whr_prodi = empty($ProdiID) ? '' : "j.ProdiID = '{$ProdiID}' ";
    $whr_tahun = empty($TahunID) ? '' : "and j.TahunID = '{$TahunID}' ";
    $s = "select DISTINCT(p.MhswID), count(p.PresensiID) as _countAbsensi,\r\n      m.Nama as NamaMhsw, j.Nama,\r\n      d.Nama as NamaPA, d.Gelar,\r\n\t  j.MaxAbsen\r\n    from presensimhsw p\r\n\t  left outer join jadwal j on j.JadwalID=p.JadwalID and j.KodeID= '" . KodeID . "'\r\n\t  left outer join jenispresensi jp on p.JenisPresensiID=jp.JenisPresensiID\r\n\t  left outer join mhsw m on m.MhswID = p.MhswID and m.KodeID = '" . KodeID . "'\r\n\t  left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n    where \r\n      {$whr_prodi}\r\n\t  {$whr_tahun}\r\n\t  and jp.Nilai = 0\r\n\tgroup by p.MhswID, j.JadwalID\r\n    order by p.MhswID";
    $r = _query($s);
    $n = 0;
    $t = 5;
    if (_num_rows($r) > 0) {
        while ($w = _fetch_array($r)) {
            if ($w['_countAbsensi'] > $w['MaxAbsen']) {
                $n++;
                $NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA'];
                $p->SetFont('Helvetica', '', 8);
                $p->Cell(10, $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['_countAbsensi'], 'B', 0, 'C');
                $p->Cell(10, $t, $w['MaxAbsen'], 'B', 0, 'C');
                $p->Cell(75, $t, $w['Nama'], 'BR', 0);
                $p->Ln($t);
            }
        }
    } else {
        $p->SetFont('Helvetica', 'B', 8);
        $p->Cell(0, $t, '(Tidak ada mahasiswa yang dapat dicetak)', 0, 1, 'C');
    }
    $p->Ln($t);
    $p->SetFont('Helvetica', 'B', 12);
    $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $n, 0, 0);
}

function TampilkanDaftarYudisium()
{
    $optprd = GetOption2('prodi', "concat(ProdiID, ' - ', Nama)", "ProdiID", $_SESSION['prodi'], '', "ProdiID");
    $bulan1 = GetMonthOption($_SESSION['bulan1']);
    $bulan2 = GetMonthOption($_SESSION['bulan2']);
    $tahun1 = GetNumberOption(date('Y') - 10, date('Y'), $_SESSION['tahun1']);
    $tahun2 = GetNumberOption(date('Y') - 10, date('Y') + 1, $_SESSION['tahun2']);
    $TglYudisium = GetDateOption($_SESSION['TglYudisium'], 'TglYudisium');
    echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n  <form action='?' method=POST>\r\n  <tr><td class=ul colspan=2><font size=+1>Filter</font></td></tr>\r\n  <tr><td class=inp>Prodi :</td><td class=ul><select name='prodi'>{$optprd}</select> Kosongkan jika ingin melihat semua</td></tr>\r\n  <tr><td class=inp>Lulus bulan :</td><td class=ul>\r\n    <select name='bulan1'>{$bulan1}</select><select name='tahun1'>{$tahun1}</select> s/d\r\n    <select name='bulan2'>{$bulan2}</select><select name='tahun2'>{$tahun2}</select> <input type=submit name='Filter' value='Filter Daftar'></td></tr>\r\n  </form>\r\n  \r\n  <tr><td class=ul colspan=2><font size=+1>SK Yudisium</font></td></tr>\r\n  <tr><td colspan=2>Set mahasiswa yang bertanda centang dalam daftar di bawah ini dengan SK Yudisium berikut ini:</td></tr> \r\n  <form action='?' method=POST>\r\n  <input type=hidden name='mnux' value='skyudisium'>\r\n  <input type=hidden name='gos' value='SKYSAV'>\r\n  <tr><td class=inp>No SK Yudisium :</td><td class=ul><input type=text name='SKYudisium' value='{$_SESSION['SKYudisium']}' size=50 maxlength=100></td></tr>\r\n  <tr><td class=inp>Tanggal Yudisium :</td><td class=ul>{$TglYudisium} <input type=submit name='Simpan' value='Set SK Semua yg Dicentang'></td></tr>\r\n  </table></p>";
    if ($_SESSION['prodi'] != '10') {
        $_whr = "('{$_SESSION['tahun1']}-{$_SESSION['bulan1']}-01' <= ta.TglUjian) \r\n      and (ta.TglUjian <= '{$_SESSION['tahun2']}-{$_SESSION['bulan2']}-31') and ";
    } else {
        $_whr = "";
    }
    $s = "select ta.*, m.Nama\r\n    from ta ta\r\n      left outer join mhsw m on ta.MhswID=m.MhswID\r\n    where ta.Lulus='Y'\r\n      and m.ProdiID = '{$_SESSION['prodi']}'\r\n      \r\n    order by ta.MhswID";
    $r = _query($s);
    $n = 0;
    $TotalSKY = _num_rows($r) + 0;
    echo "<input type=hidden name='TotalSKY' value={$TotalSKY}>\r\n    <p><table class=box cellspacing=1 cellpadding=4>\r\n    <tr><th class=ttl>#</th>\r\n    <th class=ttl>N.P.M</th>\r\n    <th class=ttl>Nama Mahasiswa</th>\r\n    <th class=ttl>Tgl Ujian</th>\r\n    <th class=ttl>Judul</th>\r\n    <th class=ttl>SK Yudisium</th>\r\n    <th class=ttl>Tgl Yudisium</th>\r\n    <th class=ttl>Centang</th>\r\n    </tr>";
    while ($w = _fetch_array($r)) {
        $n++;
        $TglSKYudisium = FormatTanggal($w['TglSKYudisium']);
        echo "<tr><td class=inp>{$n}</td>\r\n    <td class=ul>{$w['MhswID']}</td>\r\n    <td class=ul>{$w['Nama']}</td>\r\n    <td class=ul>{$w['TglUjian']}</td>\r\n    <td class=ul>{$w['Judul']}</td>\r\n    <td class=ul>{$w['SKYudisium']}&nbsp;</td>\r\n    <td class=ul>{$TglSKYudisium}</td>\r\n    <td class=ul><input type=checkbox name='SKY[]' value='{$w['TAID']}'></td>\r\n    </tr>";
    }
    echo "</table></form></p>";
}

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 CreateDBFMHS()
{
    global $HeaderMSHS;
    if (!empty($_SESSION['DariNPM'])) {
        $_SESSION['SampaiNPM'] = empty($_SESSION['SampaiNPM']) ? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM'];
        $_npm = "'{$_SESSION['DariNPM']}' <= MhswID and MhswID <= '{$_SESSION['SampaiNPM']}' ";
    } else {
        $drmhsw = GetaField('mhsw', "NA", "N", "min(MhswID)");
        $smpmhsw = GetaField('mhsw', "NA", "N", "max(MhswID)");
        $_npm = "'{$drmhsw}' <= MhswID and MhswID <= '{$smpmhsw}' ";
    }
    $s = "select MhswID\r\n    from mhsw\r\n    where {$_npm}\r\n\t\torder by MhswID";
    $r = _query($s);
    $n = 0;
    $DBFName = "dikti/MHMHS-20062.DBF";
    DBFCreate($DBFName, $HeaderMSHS);
    while ($w = _fetch_array($r)) {
        $n++;
        $_SESSION["DBF-MHSWID-{$n}"] = $w['MhswID'];
    }
    $_SESSION["DBF-FILES"] = $DBFName;
    $_SESSION["DBF-POS"] = 0;
    $_SESSION["DBF-MAX"] = $n;
    echo "<p>Akan diproses <font size=+1>{$n}</font> data.</p>";
    echo "<p><IFRAME src='dikti.mastermhsw.go.php' frameborder=0 height=400 width=600>\r\n  </IFRAME></p>";
}