PHP GetaField函数代码示例

function hitungpresensi()
{
    $prodi = $_SESSION['prodi'];
    $_SESSION['HTG-Pos-' . $prodi]++;
    $pos = $_SESSION['HTG-Pos-' . $prodi];
    $max = $_SESSION['HTG-Max-' . $prodi];
    $MhswID = $_SESSION['HTG-MhswID-' . $prodi . $pos];
    $KHSID = $_SESSION['HTG-KHSID-' . $prodi . $pos];
    $persen = $max == 0 ? 0 : number_format($pos / $max * 100);
    if (!empty($MhswID)) {
        echo "<p>Processing: <b>{$MhswID}</b></p>\r\n      <p><font size=+4>{$persen} %</font></p>\r\n      <p>Position: <b>{$pos}/{$max}</b></p>\r\n      <ul>";
        $s = "select KRSID, MKID, MKKode from krs where KHSID={$KHSID}";
        $r = _query($s);
        while ($w = _fetch_array($r)) {
            $jml = GetaField('presensimhsw', 'KRSID', $w['KRSID'], "sum(Nilai)") + 0;
            $sx = "update krs set _Presensi={$jml} where KRSID={$w['KRSID']} ";
            $rx = _query($sx);
            echo "<li>{$w['MKKode']} &raquo; {$jml}</li>";
        }
        echo "</ul>";
    }
    if ($pos < $max) {
        echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
    } else {
        echo "<hr><p>Proses Selesai</p>";
    }
}

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 BuatHeadernya($MhswID, $p)
{
    $mhsw = GetFields("mhsw m left outer join dosen d on m.PenasehatAkademik=d.Login and d.KodeID='" . KodeID . "'", "m.MhswID='{$MhswID}' and m.KodeID", KodeID, 'm.MhswID, m.Nama, d.Nama as DSN, d.Gelar, m.ProgramID, m.ProdiID');
    $arr[] = array('NIM', ':', $mhsw['MhswID']);
    $arr[] = array('Nama', ':', $mhsw['Nama'], 'Program', ':', $mhsw['ProgramID'] . ' - ' . GetaField('program', "ProgramID='{$mhsw['ProgramID']}' and KodeID", KodeID, 'Nama'));
    $Dosen = empty($mhsw['DSN']) ? "(Belum diset)" : $mhsw['DSN'] . ', ' . $mhsw['Gelar'];
    $arr[] = array('Dosen Pembimbing', ':', $Dosen, 'Program Studi', ':', $mhsw['ProdiID'] . ' - ' . GetaField('prodi', "ProdiID='{$mhsw['ProdiID']}' and KodeID", KodeID, 'Nama'));
    // Tampilkan
    $p->SetFont('Helvetica', '', 10);
    $t = 5;
    foreach ($arr as $a) {
        // Kolom 1
        $p->SetFont('Helvetica', 'I', 10);
        $p->Cell(35, $t, $a[0], 0, 0);
        $p->Cell(4, $t, $a[1], 0, 0, 'C');
        $p->SetFont('Helvetica', 'B', 10);
        $p->Cell(70, $t, $a[2], 0, 0);
        // Kolom 2
        $p->SetFont('Helvetica', 'I', 10);
        $p->Cell(35, $t, $a[3], 0, 0);
        $p->Cell(4, $t, $a[4], 0, 0, 'C');
        $p->SetFont('Helvetica', 'B', 10);
        $p->Cell(70, $t, $a[5], 0, 0);
        $p->Ln($t);
    }
    $p->Ln(2);
    $p->Cell(0, $t, '', 'T', 1);
}

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>";
}

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 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?
    $s = "select k.TahunID, k.MhswID,\n    j.JadwalID, j.SKSAsli, j.HargaStandar, j.Harga\n    from krs 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.HargaStandar='N' ";
    $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['SKSAsli'];
        $totharga += $w['Harga'];
        $mk .= "{$w['MKKode']} - {$w['Nama']}: {$w['SKSAsli']} SKS dgn Harga: {$w['Harga']} \r\n";
    }
    if ($totharga <= 0) {
        //$bpt =
        $totharga = GetaField("bipot2", "BipotNamaID = 16 and BIPOT2ID", $bipot['BIPOT2ID'], "Jumlah");
        $jml = 1;
    }
    if (empty($ada) && $totharga > 0) {
        $s0 = "insert into bipotmhsw(PMBID, MhswID, TahunID, BIPOT2ID, BIPOTNamaID,\n      PMBMhswID, TrxID, Jumlah, Besar, Catatan,\n      LoginBuat, TanggalBuat)\n      values('{$mhsw['PMBID']}', '{$mhsw['MhswID']}', '{$khs['TahunID']}', '{$bipot['BIPOT2ID']}', '{$bipot['BIPOTNamaID']}',\n      '{$pmbmhswid}', '{$bipot['TrxID']}', {$jml}, '{$totharga}', '{$mk}',\n      '{$_SESSION['_Login']}', now())";
        $r0 = _query($s0);
    } else {
        $s0 = "update bipotmhsw set Besar='{$totharga}', Jumlah='{$jml}',\n      PMBMhswID='{$pmbmhswid}',\n      Catatan='Total SKS: {$totsks}',\n      LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\n      where BIPOTMhswID='{$ada['BIPOTMhswID']}' ";
        $r0 = _query($s0);
    }
}

function PRC()
{
    echo "<body bgcolor=#EEFFFF>";
    $tahun = $_REQUEST['tahun'];
    $prodi = $_REQUEST['prodi'];
    $prid = $_REQUEST['prid'];
    $pss = $_SESSION['THN' . $prodi . 'POS'];
    $mhswid = $_SESSION['THN' . $prodi . $pss];
    // Jika ada data
    if (!empty($mhswid)) {
        echo "<p>#<font size=+2>" . $pss . "</font> &raquo; <b>{$tahun}</b> &raquo; " . $_SESSION['THN' . $prodi . $pss] . "</p><hr>";
        $sdh = GetFields('khs', "MhswID='{$mhswid}' and TahunID", $tahun, "KHSID, MhswID");
        if (empty($sdh)) {
            $def = GetaField('statusmhsw', 'Def', 'Y', 'StatusMhswID');
            $sesi = GetaField('khs', 'MhswID', $w['MhswID'], "max(Sesi)") + 1;
            $mhsw = GetFields('mhsw', "MhswID", $mhswid, "BIPOTID");
            $sp = "insert into khs (TahunID, KodeID, ProgramID, ProdiID,\r\n        MhswID, StatusMhswID, Sesi, BIPOTID,\r\n        LoginBuat, TanggalBuat)\r\n        values ('{$tahun}', '{$_SESSION['KodeID']}', '{$w['ProgramID']}', '{$prodi}',\r\n        '{$mhswid}', '{$def}', '{$sesi}', '{$mhsw['BIPOTID']}',\r\n        '{$_SESSION['_Login']}', now()  )";
            //echo "<pre>$sp</pre>";
            //$rp = _query($sp);
            echo "<p><font color=green>DIPROSES</font></p>";
        } else {
            echo "<p><font color=gray>Sudah pernah diproses</font></p>";
        }
    }
    // refresh page
    if ($_SESSION['THN' . $prodi . 'POS'] < $_SESSION['THN' . $prodi]) {
        echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
    } else {
        // update data tahun
        $st = "update tahun set ProsesBuka=ProsesBuka+1\r\n      where TahunID='{$tahun}' and ProgramID='{$prid}' and ProdiID='{$prodi}'";
        $rt = _query($st);
        echo "<p>Proses buka TAHUN akademik <b>{$tahun}</b> sudah <font size=+2>SELESAI</font></p>";
    }
    $_SESSION['THN' . $prodi . 'POS']++;
}

function frmPT()
{
    global $datamhsw, $mnux, $pref;
    CariPTScript();
    $NamaPT = GetaField('perguruantinggi', 'PerguruanTinggiID', $datamhsw['AsalPT'], "concat(Nama, ', ', Kota)");
    $lulus = $datamhsw['LulusAsalPT'] == 'Y' ? 'checked' : '';
    $TglLulusAsalPT = GetDateOption($datamhsw['TglLulusAsalPT'], 'TL');
    //$optjur = GetOption2('jurusansekolah', "concat(JurusanSekolahID, ' - ', Nama, ' - ', NamaJurusan)", 'JurusanSekolahID', $datamhsw['JurusanSekolah'], '', 'JurusanSekolahID');
    // Edit: Ilham
    // Line: 44, 55
    if ($_SESSION['_LevelID'] == 120) {
        // Mahasiswa
        $disabled = "disabled";
        $btn1 = "";
        $btn2 = "";
        $btn3 = "";
        $TglLulusAsalPT = $datamhsw['TglLulusAsalPT'];
    } else {
        $disabled = "";
        $btn1 = "<a href='javascript:caript(data)'>Cari</a>";
        $btn2 = "<input type=submit name='Simpan' value='Simpan'>";
        $btn3 = "<input type=reset name='Reset' value='Reset'>";
        $TglLulusAsalPT = $TglLulusAsalPT;
    }
    echo "<p><table class=box cellspacing=1 cellpadding=4 width=600>\r\n  <form action='?' name='data' method=POST>\r\n  <input type=hidden name='mnux' value='{$_SESSION['mnux']}' />\r\n  <input type=hidden name='mhswid' value='{$datamhsw['MhswID']}' />\r\n  <input type=hidden name='submodul' value='{$_SESSION['submodul']}' />\r\n  <input type=hidden name='sub' value='PTSav' />\r\n  <input type=hidden name='BypassMenu' value='1' />\r\n\r\n  <tr><td colspan=2 class=ul><b>Perguruan Tinggi Asal Mahasiswa</td></tr>\r\n\r\n  <tr><td class=inp rowspan=2>Perguruan Tinggi</td><td class=ul><input type=text name='AsalPT' value='{$datamhsw['AsalPT']}' size=10 maxlength=50 {$disabled}></td></tr>\r\n    <tr><td class=ul><input type=text name='NamaPT' value='{$NamaPT}' size=50 maxlength=50 {$disabled}> {$btn1}</td></tr>\r\n  <tr><td class=inp>Jurusan</td><td class=ul><input type=text name='ProdiAsalPT' value='{$datamhsw['ProdiAsalPT']}' {$disabled} ></select></td></tr>\r\n  <tr><td class=inp>Lulus?</td><td class=ul><input type=checkbox name='LulusAsalPT' value='Y' {$lulus} {$disabled}>\r\n    <hr size=1 color=silver />\r\n    Lulus tahun: {$TglLulusAsalPT}</td></tr>\r\n  <tr><td class=inp>Nilai IPK</td><td class=ul><input type=text name='IPKAsalPT' value='{$datamhsw['IPKAsalPT']}' size=5 maxlength=5 {$disabled}></td></tr>\r\n  <tr><td class=ul colspan=2 align=center>{$btn2}\r\n    {$btn3}</td></tr>\r\n  </form></table></p>";
}

function BuatHeader($jdwl, $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('Kelas / Thn Akd', ':', $jdwl['namaKelas'] . ' ( Ruang: ' . $jdwl['RuangID'] . ' ) ' . ' / ' . $NamaTahun, 'Dosen Pengasuh', ':', $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', '', 8);
    foreach ($arr as $a) {
        // Kolom 1
        $p->SetFont('Helvetica', 'I', 8);
        $p->Cell(25, $t, $a[0], 0, 0);
        $p->Cell(4, $t, $a[1], 0, 0, 'C');
        $p->SetFont('Helvetica', 'B', 8);
        $p->Cell(80, $t, $a[2], 0, 0);
        // Kolom 2
        $p->SetFont('Helvetica', 'I', 8);
        $p->Cell(25, $t, $a[3], 0, 0);
        $p->Cell(4, $t, $a[4], 0, 0, 'C');
        $p->SetFont('Helvetica', 'B', 8);
        $p->Cell(25, $t, $a[5], 0, 0);
        $p->Ln($t);
    }
    $p->Ln(4);
    BuatHeaderTabel($p);
}

function TampilkanAmbilMhswID($MhswID, $mhsw)
{
    $stawal = GetaField('statusawal', 'StatusAwalID', $mhsw['StatusAwalID'], 'Nama');
    $status = GetaField('statusmhsw', 'StatusMhswID', $mhsw['StatusMhswID'], 'Nama');
    if (empty($mhsw['PenasehatAkademik'])) {
        $pa = '<sup>Belum diset</sup>';
    } else {
        $dosenpa = GetFields('dosen', "Login='{$mhsw['PenasehatAkademik']}' and KodeID", KodeID, "Nama, Gelar");
        $pa = "{$dosenpa['Nama']} <sup>{$dosenpa['Gelar']}</sup>";
    }
    echo <<<ESD
  <table class=box cellspacing=1 align=center width=600>
  <form name='frmMhsw' action='?' method=POST>
  <input type=hidden name='mnux' value='{$_SESSION['mnux']}' />
  <input type=hidden name='gos' value='' />
  
  <tr><td class=wrn width=2 rowspan=4></td>
      <td class=inp width=80>NIM/NPM:</td>
      <td class=ul width=200>
        <input type=text name='MhswID' value='{$MhswID}' size=20 maxlength=50 />
        <input type=submit name='btnCari' value='Cari' />
        </td>
      <td class=inp width=80>Mahasiswa:</td>
      <td class=ul>{$mhsw['Nama']}&nbsp;</td>
      </tr>
  <tr><td class=inp>Status Mhsw:</td>
      <td class=ul>{$status} <sup>{$stawal}</sup></td>
      <td class=inp>Dosen PA:</td>
      <td class=ul>{$pa}</td>
  </form>
  </table>
ESD;
}

function CetakPindahan()
{
    global $_lf;
    $s = "select mps.*, mk.Nama as NamaMK\r\n    from mhswpindahansetara mps\r\n    left outer join mk mk on mps.MKID=mk.MKID\r\n    where MhswPindahanID='{$_REQUEST['pin']}'\r\n    order by mps.SetaraKode";
    $r = _query($s);
    $maxcol = 135;
    $nmf = HOME_FOLDER . DS . "tmp/p.{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(20));
    $div = str_pad('-', $maxcol, '-') . $_lf;
    $n = 0;
    $hal = 0;
    $brs = 56;
    $maxbrs = 49;
    $dt = GetFields('mhswpindahan', 'MhswPindahanID', $_REQUEST['pin'], "Nama");
    $prd = GetaField('prodi', 'ProdiID', $_REQUEST['prodi'], 'Nama');
    $hdr = str_pad('*** DAFTAR PENYETARAAN MATA KULIAH PINDAHAN **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Tahun Akademik : " . NamaTahun($_REQUEST['tahun']) . $_lf;
    $hdr .= "Prodi          : {$prd}" . $_lf;
    $hdr .= "Mahasiswa      : {$dt['Nama']}" . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 5) . str_pad("KODE", 10) . str_pad("MATA KULIAH", 35) . str_pad('SKS', 6) . str_pad('NILAI', 6) . str_pad('GRADE', 6) . str_pad('>>>', 5) . str_pad("KODE", 8) . str_pad("MATA KULIAH", 40) . str_pad('SKS', 6) . str_pad('GRADE', 4) . $_lf;
    $hdr .= $div;
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        $n++;
        fwrite($f, str_pad($n, 5) . str_pad($w['SetaraKode'], 10) . str_pad($w['SetaraNama'], 37) . str_pad($w['SetaraSKS'], 5) . str_pad($w['NilaiAkhir'], 7) . str_pad($w['SetaraGrade'], 4) . str_pad('>>>>', 5) . str_pad($w['MKKode'], 8) . str_pad($w['NamaMK'], 40) . str_pad($w['SKS'], 8) . str_pad($w['GradeNilai'], 4) . $_lf);
    }
    fwrite($f, $div);
    fwrite($f, $_lf . "Dicetak Oleh : " . $_SESSION['_Login'] . ', ' . Date("d-m-Y H:i"));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf);
}

function JalankanProses($_pmbJumlah, $_pmbProses)
{
    $tmr = 1;
    include_once "../baa/mhswbaru.lib.php";
    // Tampilan proses
    echo "\r\n  <p align=center>\r\n  <font size=+1>{$_pmbProses}</font> <sup>~{$_pmbJumlah}</sup><br />" . $_SESSION['_pmbPMBID_' . $_pmbProses] . "<br />" . $_SESSION['_pmbNama_' . $_pmbProses] . "</p>";
    // Ambil data Cama
    $pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $_SESSION['_pmbPMBID_' . $_pmbProses], "*");
    if ($pmb['BIPOTID'] == 0) {
        SetBIPOTID($pmb);
    }
    ProsesBIPOT2($pmb['PMBID']);
    HitungUlangBIPOTPMB($pmb['PMBID']);
    // Ambil BIPOT yg sudah diupdate
    $pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $_SESSION['_pmbPMBID_' . $_pmbProses], "*");
    $prodi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $pmb['ProdiID'], 'Nama');
    $smt = GetaField('semester', 'Semester', $_SESSION['_pmbSemester'], 'Nama');
    $smt = substr($smt, 0, 6);
    $smt = str_pad($smt, 6, ' ', STR_PAD_RIGHT);
    // Tuliskan ke file
    $fn = "../" . $_SESSION['_pmbFile'];
    $f = fopen($fn, 'a');
    fwrite($f, $_SESSION['_pmbTahun'] . '-' . $smt . '|' . '000000|00000|' . str_pad($pmb['PMBID'], 16, ' ', STR_PAD_RIGHT) . '|' . str_pad(substr($pmb['Nama'], 0, 21), 21, ' ', STR_PAD_RIGHT) . '|' . str_pad(' ', 25, ' ', STR_PAD_RIGHT) . '|' . str_pad($pmb['ProdiID'], 10, ' ', STR_PAD_RIGHT) . '|' . str_pad(substr($prodi, 0, 25), 25, ' ', STR_PAD_RIGHT) . '|' . substr($pmb['PMBPeriodID'], 0, 4) . '|' . '00000004201390002572|' . str_pad(' ', 20, ' ', STR_PAD_RIGHT) . '|' . str_pad($pmb['TotalBiaya'] - $pmb['TotalBayar'], 10, '0', STR_PAD_LEFT) . '|' . '0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|' . '01|' . $_SESSION['_pmbKodeInstitusi'] . '|' . $_SESSION['_pmbKodePembayaran'] . '|' . str_pad(substr($pmb['PMBID'], 0, 10), 10, '0', STR_PAD_LEFT) . '|' . 'F' . "\n");
    fclose($f);
    // Next...
    $_SESSION['_pmbProses']++;
    echo <<<SCR
    <script>
    window.onload=setTimeout("window.location='../{$_SESSION['mnux']}.proses.php'", {$tmr});
    </script>
SCR;
}

function TuliskanData($t, $arrPrd, $tt, $tl, $tk)
{
    $PRD = GetaField('prodi', 'ProdiID', $arrPrd, 'Nama');
    echo "<tr><td class=inp1>{$PRD}</td><td class=ul>Mengikuti Tes</td>" . $t[1] . "<td class=ttl align=right>{$tt}</td></tr>";
    echo "<tr><td class=ul>&nbsp;</td><td class=inp3>Lulus</td>" . $t[2] . "<td class=ttl align=right>{$tl}</td></tr>";
    echo "<tr><td class=ul>&nbsp;</td><td class=inp4>Konfirmasi NIM</td>" . $t[3] . "<td class=ttl align=right>{$tk}</td></tr>";
}

function BuatIsinya($TahunID, $ProdiID, $p)
{
    $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' ";
    $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    order by h.ProdiID, h.MhswID";
    $r = _query($s);
    $n = 0;
    $t = 5;
    $_prd = 'laksdjfalksdfh';
    while ($w = _fetch_array($r)) {
        if ($_prd != $w['ProdiID']) {
            $_prd = $w['ProdiID'];
            $NamaProdi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $_prd, 'Nama');
            $p->AddPage();
            BuatHeader($TahunID, $NamaProdi, $p);
        }
        $n++;
        $NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA'];
        $p->SetFont('Helvetica', '', 10);
        $p->Cell(15, $t, $n, 'LB', 0);
        $p->Cell(22, $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);
    }
}

function TampilkanMhsw()
{
    TampilkanPesan();
    $s = "select k.*, m.Nama\r\n    from khs k\r\n      left outer join mhsw m on k.MhswID=m.MhswID\r\n    where k.TahunID='{$_SESSION['tahun']}'\r\n      and k.Bayar > k.Biaya\r\n    order by k.MhswID";
    $r = _query($s);
    $n = 0;
    echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n  <tr><th class=ttl>#</th>\r\n  <th class=ttl>NPM</th>\r\n  <th class=ttl>Nama</th>\r\n  <th class=ttl>Total<br />Biaya</th>\r\n  <th class=ttl>Total<br />Bayar</th>\r\n  <th class=ttl>BPS</th>\r\n  <th class=ttl>SKS</th>\r\n  <th class=ttl>BPP+SKS</th>\r\n  <th class=ttl>10% Denda</th>\r\n  <th class=ttl>Cek</th>\r\n  ";
    while ($w = _fetch_array($r)) {
        $n++;
        $_biaya = number_format($w['Biaya']);
        $_bayar = number_format($w['Bayar']);
        // BPS = 11, BPP SKS = 5
        $_bps = GetaField('bipotmhsw', "TahunID='{$_SESSION['tahun']}' and MhswID='{$w['MhswID']}' and BIPOTNamaID", 11, "Jumlah * Besar");
        $_sks = GetaField('bipotmhsw', "TahunID='{$_SESSION['tahun']}' and MhswID='{$w['MhswID']}' and BIPOTNamaID", 5, "Jumlah * Besar");
        $_bi2 = $_bps + $_sks;
        $_bi10 = $_bi2 * 0.1;
        //$_bi2 + ;
        $bi2 = number_format($_bi2);
        $bi10 = number_format($_bi10);
        //$bpm = GetaField("bayarmhsw", "TahunID='$_SESSION[tahun]' and MhswID='$w[MhswID]' and Jumlah",
        //  $_bi10, "BayarMhswID");
        $ketemu = $w['Bayar'] - $w['Biaya'] == $_bi10 ? "Ketemu" : "&times;";
        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 align=right>{$_biaya}</td>\r\n    <td class=ul align=right><b>{$_bayar}</td>\r\n    <td class=ul align=right>" . number_format($_bps) . "</td>\r\n    <td class=ul align=right>" . number_format($_sks) . "</td>\r\n    <td class=ul align=right>{$bi2}</td>\r\n    <td class=ul align=right>{$bi10}</td>\r\n    <td class=ul>{$ketemu}</td>\r\n    </tr>";
    }
    echo "</table></p>";
}