Пример #1
0
function Daftar()
{
    global $_lf;
    if (empty($_SESSION['prodi'])) {
        $__prodi = '';
    } else {
        $__prodi = "and prd.ProdiID = '{$_SESSION['prodi']}'";
    }
    $__prg = empty($_SESSION['prid']) ? '' : "and prg.ProgramID = '{$_SESSION['prid']}'";
    $s = "select p.PMBID, p.Nama, p.NIM, p.ProdiID, p.LulusUjian, p.NilaiUjian,\r\n      prg.Nama as PRG, prd.Nama as PRODI, sa.Nama as STT, sa.TanpaTest,\r\n      bp.Nama as BPT\r\n      from pmb p\r\n      left outer join program prg on p.ProgramID=prg.ProgramID\r\n      left outer join prodi prd on p.ProdiID=prd.ProdiID\r\n      left outer join statusawal sa on p.StatusAwalID=sa.StatusAwalID\r\n      left outer join bipot bp on p.BIPOTID=bp.BIPOTID\r\n      where p.PMBPeriodID like '%{$_SESSION['tahun']}%' and p.NIM <> 0 {$__prodi} {$__prg}\r\n      order by prd.ProdiID, p.NIM";
    $r = _query($s);
    $maxcol = 90;
    $maxbrs = 53;
    $hal = 0;
    $brs = 54;
    $first = 1;
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10));
    $div = str_pad('-', $maxcol, '-') . $_lf;
    $n = 0;
    while ($w = _fetch_array($r)) {
        $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama');
        $n++;
        $brs++;
        if ($brs > $maxbrs) {
            if ($first == 0) {
                fwrite($f, $div . chr(12));
            }
            $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal);
            fwrite($f, $hd);
            $brs = 0;
            $first = 0;
            $prodi = $w['ProdiID'];
        } elseif ($prodi != $w['ProdiID']) {
            $prodi = $w['ProdiID'];
            if ($first == 0) {
                fwrite($f, $div);
            }
            fwrite($f, chr(12));
            fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal));
            $brs = 0;
            $n = 1;
        }
        $isi = str_pad($n . '.', 5) . str_pad($w['PMBID'], 12) . str_pad($w['NIM'], 12) . str_pad($w['Nama'], 35) . str_pad($w['PRG'], 12) . str_pad($w['STT'], 10) . $_lf;
        fwrite($f, $isi);
    }
    fwrite($f, $div);
    //fwrite($f, str_pad('Halaman : '.$hal."/".$jumhal,10,' ').$_lf);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 20, ' ') . str_pad("Dicetak Tgl : " . date("d-m-Y H:i"), 70, ' ', STR_PAD_LEFT) . $_lf . $_lf);
    fwrite($f, str_pad("Akhir laporan", 90, ' ', STR_PAD_LEFT));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "baa.lap");
}
function daftar()
{
    global $_lf;
    $whr = !empty($_SESSION['prodi']) ? "and m.ProdiID='{$_SESSION['prodi']}'" : '';
    $s = "select k.MhswID, k.ProdiID, m.Nama, m.ProgramID as program, k.Biaya, k.Bayar, k.Potongan, k.Tarik from khs k left outer join mhsw m \r\n\t      on m.MhswID = k.MhswID where\r\n       k.TahunID = '{$_SESSION['tahun']}' \r\n\t\t\t and m.TahunID = '{$_SESSION['angk']}'\r\n\t\t\t {$whr}\r\n\t\t\t order by k.MhswID, k.ProdiID";
    $r = _query($s);
    $maxcol = 80;
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10));
    $div = str_pad('-', $maxcol, '-') . $_lf;
    $n = 0;
    $hal = 0;
    $nprd = 0;
    $brs = 56;
    $maxbrs = 49;
    $jumlahrec = _num_rows($r);
    $jumhal = ceil($jumlahrec / $maxbrs);
    $prodi = "";
    $first = 1;
    $ctt = 1;
    while ($w = _fetch_array($r)) {
        $bal = $w['Biaya'] - $w['Bayar'] - $w['Potongan'] + $w['Tarik'];
        $bipot = GetFields('bipotmhsw', "Dibayar = 0 and TahunID = '{$_SESSION['tahun']}' and TrxID = 1 and MhswID", $w['MhswID'], 'sum(Besar * Jumlah) as TOT');
        $pot = GetFields('bipotmhsw', "TahunID = '{$_SESSION['tahun']}' and TrxID = -1 and MhswID", $w['MhswID'], 'Besar as POT');
        $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama');
        $n++;
        $brs++;
        $_sum = $bipot['TOT'] - $pot['POT'];
        if ($brs > $maxbrs) {
            if ($first == 0) {
                fwrite($f, $div . chr(12));
            }
            $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal);
            fwrite($f, $hd);
            $brs = 0;
            $first = 0;
            $prodi = $w['ProdiID'];
        } elseif ($prodi != $w['ProdiID']) {
            $prodi = $w['ProdiID'];
            if ($first == 0) {
                fwrite($f, $div);
                fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 18, ' ', STR_PAD_LEFT) . $_lf);
                fwrite($f, $div);
                //fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($tot_),18, ' ', STR_PAD_LEFT).$_lf);
            }
            fwrite($f, chr(12));
            fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal));
            $sum = 0;
            $brs = 0;
            $n = 1;
        }
        $isi = str_pad($n, 6) . str_pad($w['MhswID'], 12) . str_pad($w['Nama'], 35) . str_pad($w['program'], 6) . str_pad(number_format($bal), 12, ' ', STR_PAD_LEFT) . '    ' . $_lf;
        fwrite($f, $isi);
        $sum += $bal;
        $sumtotal += $bal;
        $tot_ += $pot['POT'];
        $summ += $bipot['TOT'];
        $summm = $summ - $tot_;
    }
    fwrite($f, $div);
    fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 18, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, $div);
    fwrite($f, str_pad("## TOTAL KESELURUHAN : ", 53) . str_pad(number_format($sumtotal), 18, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, $div);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 50, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 30, ' ') . $_lf);
    fwrite($f, str_pad("Akhir laporan", 79, ' ', STR_PAD_LEFT));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "akd.lap");
}
Пример #3
0
function daftar()
{
    global $_lf;
    $whr = array();
    if (!empty($_SESSION['prodi'])) {
        $whr[] = "mhsw.ProdiID='{$_SESSION['prodi']}'";
    }
    if (!empty($_SESSION['prid'])) {
        $whr[] = "mhsw.ProgramID='{$_SESSION['prid']}'";
    }
    if (!empty($_SESSION['angkatan'])) {
        $whr[] = "mhsw.TahunID='{$_SESSION['angkatan']}'";
    }
    if (!empty($_SESSION['stts'])) {
        $whr[] = "k.StatusMhswID='{$_SESSION['stts']}'";
    } else {
        $whr[] = "k.StatusMhswID in ('A', 'P', 'C', 'T')";
    }
    $_whr = implode(" and ", $whr);
    if (!empty($_whr)) {
        $_whr = " and " . $_whr;
    }
    $s = "select mhsw.MhswID, mhsw.Nama, k.IPS, mhsw.TotalSKS, mhsw.ProdiID, k.StatusMhswID from khs k \r\n          left outer join mhsw on k.MhswID = mhsw.MhswID\r\n          where mhsw.TotalSKS >= {$_SESSION['jmlsks']} \r\n          and k.TahunID = '{$_SESSION['tahun']}' {$_whr} order by mhsw.ProdiID, mhsw.MhswID";
    $r = _query($s);
    $maxcol = 80;
    $nmf = "tmp/{$_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;
    $jumlahrec = _num_rows($r);
    $jumhal = ceil($jumlahrec / $maxbrs);
    $prodi = "";
    $first = 1;
    // Buat header
    /*$_prodi = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama');
      $_prid = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama');
      $hdr = str_pad("*** Daftar Mahasiswa SKS Lebih Atau Sama Dengan $_SESSION[jmlsks] ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf.$_lf;
      $hdr .= "Tahun    : " . NamaTahun($_SESSION['tahun']) . $_lf; 
      $hdr .= "Program  : $_prid" . $_lf;
      $hdr .= "Prodi    : $_prodi" .$_lf;
      $hdr .= $div;
      $hdr .= "No.  NPM          Nama                         Total SKS".$_lf . $div;
      
      fwrite($f, $hdr);
      $jumlahrec = _num_rows($r);
      $jumhal = ceil($jumlahrec/$maxbrs);*/
    while ($w = _fetch_array($r)) {
        $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama');
        if ($brs > $maxbrs) {
            if ($first == 0) {
                fwrite($f, $div . chr(12));
            }
            $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal);
            fwrite($f, $hd);
            $brs = 0;
            $first = 0;
            $prodi = $w['ProdiID'];
        } elseif ($prodi != $w['ProdiID']) {
            $prodi = $w['ProdiID'];
            if ($first == 0) {
                fwrite($f, $div);
            }
            fwrite($f, chr(12));
            fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal));
            $brs = 0;
            $n = 1;
        }
        if ($w['ProdiID'] == 10) {
            $w['TotalSKS'] = SKSFK($w['MhswID']);
        }
        if (!empty($w['TotalSKS'])) {
            $n++;
            $brs++;
            $Status = GetaField('statusmhsw', "StatusMhswID", $w['StatusMhswID'], 'Nama');
            $isi = str_pad($n . '.', 4, ' ') . ' ' . str_pad($w['MhswID'], 12) . ' ' . str_pad($w['Nama'], 30) . ' ' . str_pad($w['TotalSKS'], 13, ' ', STR_PAD_LEFT) . ' ' . str_pad($Status, 13, ' ', STR_PAD_LEFT);
            fwrite($f, $isi . $_lf);
        }
    }
    fwrite($f, $div);
    fwrite($f, str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, str_pad('Dicetak oleh : ' . $_SESSION['_Login'], 55, ' ') . str_pad('Dibuat : ' . date("d-m-Y H:i"), 29, ' '));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "akd.lap");
}
Пример #4
0
function daftar()
{
    global $_lf;
    $_prodi = !empty($_SESSION['prodi']) ? "and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0" : '';
    $_prid = !empty($_SESSION['prid']) ? "and INSTR(j.ProgramID, '.{$_SESSION['prid']}.')>0" : '';
    $_jenis = !empty($_SESSION['jenis']) ? "and j.JenisJadwalID = '{$_SESSION['jenis']}'" : '';
    $_Kode = !empty($_SESSION['Kode']) ? "and j.MKKode = '{$_SESSION['Kode']}'" : '';
    $_seksi = !empty($_SESSION['seksi']) ? "and j.NamaKelas = '{$_SESSION['seksi']}'" : '';
    $s = "select j.MKKode, mk.Nama as MKNAMA, j.NamaKelas, j.DosenID, d.Nama as DSNNAMA, j.JadwalID, j.JenisJadwalID, mk.ProdiID\r\n        from jadwal j \r\n        left outer join mk on j.MKID = mk.MKID\r\n        left outer join dosen d on j.DosenID = d.Login\r\n        where j.TahunID = '{$_SESSION['tahun']}'\r\n        and j.JadwalSer = 0\r\n        {$_prodi} {$_prid} {$_jenis} {$_Kode} {$_seksi}\r\n        group by MKKode, NamaKelas\r\n        order by mk.ProdiID, j.MKKode, j.NamaKelas\r\n        ";
    $r = _query($s);
    $maxcol = 121;
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10));
    $div = str_pad('-', $maxcol, '-') . $_lf;
    $n = 0;
    $hal = 0;
    $nprd = 0;
    $brs = 26;
    $maxbrs = 25;
    $jumlahrec = _num_rows($r);
    $jumhal = ceil($jumlahrec / $maxbrs);
    $prodi = "";
    $first = 1;
    $ctt = 1;
    while ($w = _fetch_array($r)) {
        $_nprodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama');
        if ($brs > $maxbrs) {
            if ($first == 0) {
                fwrite($f, $div . chr(12));
            }
            $hd = Headerxx($_SESSION['tahun'], $_nprodi, $w['JenisJadwalID'], $div, $maxcol, $hal);
            fwrite($f, $hd);
            $brs = 0;
            $first = 0;
            $prodi = $w['ProdiID'];
        } elseif ($prodi != $w['ProdiID']) {
            $prodi = $w['ProdiID'];
            if ($first == 0) {
                fwrite($f, $div);
            }
            fwrite($f, chr(12));
            fwrite($f, Headerxx($_SESSION['tahun'], $_nprodi, $w['JenisJadwalID'], $div, $maxcol, $hal));
            $brs = 0;
            $n = 1;
        }
        $Jml = GetaField('krs', "JadwalID", $w['JadwalID'], "count(MhswID)") + 0;
        if ($Jml > 0) {
            $n++;
            $brs++;
            $isi = str_pad($n, 4) . str_pad($w['MKKode'], 8) . str_pad($w['MKNAMA'], 35) . str_pad($w['NamaKelas'], 6) . str_pad($Jml, 9, ' ', STR_PAD_BOTH) . str_pad($w['DosenID'], 5) . str_pad($w['DSNNAMA'], 35) . str_pad('|', 10) . str_pad('|', 10) . $_lf . $div;
            fwrite($f, $isi);
        }
    }
    //fwrite($f, $div);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 95, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 70, ' ') . $_lf);
    fwrite($f, str_pad("Akhir laporan", 120, ' ', STR_PAD_LEFT));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "akd.lap");
}
Пример #5
0
function Cetak()
{
    global $_lf;
    $whr .= empty($_REQUEST['prodi']) ? '' : "and m.ProdiID='{$_REQUEST['prodi']}'";
    $s = "select m.MhswID, ta.Judul, m.Nama, ta.GradeNilai, ta.TahunID, date_format(ta.TglSKYudisium, '%d-%m-%y') as TglSKYudisium,\r\n        m.NoProdi, m.NoIdentitas, m.ProdiID, date_format(m.TglSKKeluar, '%d-%m-%Y') as TglSKKeluar\r\n    from ta ta\r\n      left outer join mhsw m on m.MhswID=ta.MhswID\r\n    where ta.Lulus='Y'\r\n      and ('{$_REQUEST['tahun1']}-{$_REQUEST['bulan1']}-01' <= ta.TglSKYudisium)\r\n      and (ta.TglSKYudisium <= '{$_REQUEST['tahun2']}-{$_REQUEST['bulan2']}-31')\r\n      and ta.NA = 'N'\r\n      {$whr}\r\n    order by m.ProdiID, m.MhswID, ta.TglSKYudisium";
    $r = _query($s);
    $maxcol = 200;
    $rand = rand(1, 1000);
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.{$rand}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(77) . chr(27) . chr(15) . chr(27) . chr(108) . chr(10)) . $_lf;
    $div = str_pad('-', $maxcol, '-') . $_lf;
    $stt = array('10' => "K-S.Ked", '11' => "D-Dokter", '61' => "T-Tesis");
    $n = 0;
    $hal = 0;
    $nprd = 0;
    $brs = 72;
    $maxbrs = 70;
    $jumlahrec = _num_rows($r);
    $jumhal = ceil($jumlahrec / $maxbrs);
    $prodi = "";
    $first = 1;
    while ($w = _fetch_array($r)) {
        $ss = GetFields("krs krs\r\n    left outer join mk mk on krs.MKID=mk.MKID\r\n    left outer join jenispilihan jp on mk.JenisPilihanID=jp.JenisPilihanID", "jp.TA='Y' and krs.TahunID='{$w['TahunID']}' and krs.MhswID", $w['MhswID'], "mk.Nama as MKNama, mk.MKKode as MKKode");
        $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama');
        $fak = substr($w['ProdiID'], 0, 1);
        $_fak = GetaField('fakultas', 'FakultasID', $fak, 'Nama');
        $n++;
        $brs++;
        if ($brs > $maxbrs) {
            if ($first == 0) {
                fwrite($f, $div . chr(12));
            }
            $hd = Headerxx($_fak, $_prodi, $div, $maxcol, $hal);
            fwrite($f, $hd);
            $brs = 0;
            $first = 0;
            $prodi = $w['ProdiID'];
        } elseif ($prodi != $w['ProdiID']) {
            $prodi = $w['ProdiID'];
            if ($first == 0) {
                fwrite($f, $div);
            }
            fwrite($f, chr(12));
            fwrite($f, Headerxx($_fak, $_prodi, $div, $maxcol, $hal));
            $brs = 0;
            $n = 1;
        }
        $Judul = PutuskanJudul($w['Judul']);
        $jd = array();
        for ($j = 0; $j < sizeof($Judul); $j++) {
            $kirinya = $j == 0 ? "" : str_pad(' ', 127, ' ');
            $sp = $j == 0 ? '' : $_lf;
            $jd[$j] = $kirinya . $Judul[$j] . $sp;
            $brs++;
        }
        $st = $stt[$w['ProdiID']];
        $st = empty($st) ? "S-Skripsi" : $st;
        //var_dump($jd);exit;
        $isi = str_pad($n, 5) . str_pad($w['TglSKKeluar'], 12) . str_pad($w['MhswID'], 12) . str_pad($w['Nama'], 40) . str_pad($ss['MKKode'], 10) . str_pad($ss['MKNama'], 16) . str_pad($st, 14) . str_pad($w['GradeNilai'], 6, ' ', STR_PAD_BOTH) . str_pad($w['TglSKYudisium'], 12) . str_pad($jd[0], 50) . str_pad($w['NoProdi'], 5, ' ', STR_PAD_LEFT) . str_pad($w['NoIdentitas'], 8, ' ', STR_PAD_LEFT) . $_lf;
        fwrite($f, $isi);
        fwrite($f, $jd[1]);
        fwrite($f, $jd[2]);
        fwrite($f, $jd[3]);
        $Juduls = '';
    }
    fwrite($f, $div);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 30, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 170, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, str_pad("Akhir laporan", 200, ' ', STR_PAD_LEFT));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "wisuda.nomer");
}
Пример #6
0
function Daftar()
{
    global $_lf;
    if (empty($_SESSION['pmbperiod'])) {
        echo ErrorMsg("Priode Belum Ditentukan", "Masukkan priode yang ingin ditampilkan");
    } else {
        $_stst = empty($_SESSION['status']) ? "StatusAwalID in ('B', 'P', 'S')" : "StatusAwalID = '{$_SESSION['status']}'";
        $q = "SELECT PMBID, Nama, GradeNilai, ProdiID, StatusAwalID\r\n    FROM pmb WHERE PMBPeriodID = '{$_SESSION['pmbperiod']}' AND LulusUjian = 'Y'\r\n     and {$_stst}\r\n\t\tORDER BY StatusAwalID, ProdiID, PMBID";
        $_q = _query($q);
        //echo "<pre>$q</pre>";
        $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['pmbperiod']}.dwoprn";
        $n = 0;
        $brs = 41;
        $maxcol = 80;
        $div = str_pad('-', $maxcol, '-') . $_lf;
        $maxbrs = 40;
        $first = 1;
        $f = fopen($nmf, 'w');
        $status_ = '';
        fwrite($f, chr(27) . chr(18));
        while ($w = _fetch_array($_q)) {
            $n++;
            $brs++;
            if ($brs > $maxbrs) {
                if ($first == 0) {
                    fwrite($f, $div . chr(12));
                }
                $hd = Headerxx($_SESSION['pmbperiod'], $w['StatusAwalID'], $div, $maxcol, $hal);
                fwrite($f, $hd);
                $brs = 0;
                $first = 0;
                $status_ = $w['StatusAwalID'];
            } elseif ($status_ != $w['StatusAwalID']) {
                $status_ = $w['StatusAwalID'];
                echo $w['StatusAwalID'];
                if ($first == 0) {
                    fwrite($f, $div);
                    fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 66, ' ') . str_pad("Akhir Laporan", 54) . $_lf . $_lf);
                    fwrite($f, str_pad(' ', 50) . str_pad("Jakarta, " . date("d-m-Y"), 60, ' ') . $_lf);
                    fwrite($f, str_pad(' ', 52) . str_pad("Wakil Rektor I", 60, ' ') . $_lf . $_lf . $_lf . $_lf);
                    fwrite($f, str_pad(' ', 50) . str_pad("Kho I Eng, Dipl.-Inform", 60, ' ') . $_lf);
                    fwrite($f, chr(12));
                }
                //echo "$brs";
                fwrite($f, chr(12));
                fwrite($f, Headerxx($_SESSION['pmbperiod'], $w['StatusAwalID'], $div, $maxcol, $hal));
                $brs = 0;
                $n = 1;
            }
            if ($pr != $w['ProdiID']) {
                $pr = $w['ProdiID'];
                $NamaProdi = GetaField('prodi', "ProdiID", $pr, 'Nama');
                fwrite($f, '   >> ' . $NamaProdi . $_lf);
                $brs++;
            }
            $isi = str_pad($n . '.', 10) . str_pad($w['PMBID'], 12) . str_pad($w['Nama'], 35) . $_lf;
            fwrite($f, $isi);
        }
        fwrite($f, $div);
        fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 66, ' ') . str_pad("Akhir Laporan", 54) . $_lf . $_lf);
        fwrite($f, str_pad(' ', 50) . str_pad("Jakarta, " . date("d-m-Y"), 60, ' ') . $_lf);
        fwrite($f, str_pad(' ', 52) . str_pad("Wakil Rektor I", 60, ' ') . $_lf . $_lf . $_lf . $_lf);
        fwrite($f, str_pad(' ', 50) . str_pad("Kho I Eng, Dipl.-Inform", 60, ' '));
        fwrite($f, chr(12));
        fclose($f);
        TampilkanFileDWOPRN($nmf, "akd.lap");
    }
}
function daftar()
{
    global $_lf, $urutanstts;
    $whr = array();
    if (!empty($_SESSION['prodi'])) {
        $whr[] = "ProdiID='{$_SESSION['prodi']}'";
    }
    if (!empty($_SESSION['prid'])) {
        $whr[] = "ProgramID='{$_SESSION['prid']}'";
    }
    $_whr = implode(" and ", $whr);
    if (!empty($_whr)) {
        $_whr = " and " . $_whr;
    }
    $_u = explode('~', $urutanstts[$_SESSION['_urutanstts']]);
    $_key = $_u[0];
    //var_dump($_u);
    if ($_key == "Calon Mahasiswa") {
        $key = "and StatusMundur = 'N'";
    } else {
        if ($_key == "Calon Mahasiswa Mundur") {
            $key = "and StatusMundur = 'Y'";
        } else {
            $key = '';
        }
    }
    $s = "select PMBID, ProdiID, left(Alamat, 57) as Alamat ,TotalBiayaMhsw, \r\n        TotalSetoranMhsw, Kota, BIPOTID, Kodepos, GradeNilai, StatusMundur, \r\n        left(Telepon, 18) as Telepon, NIM, left(Nama,32) as Nama, Concat(RT,'/',RW) as RTRW, StatusAwalID\r\n        from pmb\r\n          where \r\n            PMBPeriodID  = '{$_SESSION['tahun']}' \r\n        and LulusUjian   = 'Y' \r\n        and StatusAwalID in ('B', 'P', 'S')\r\n        {$_whr}\r\n        {$key}\r\n        group by PMBID, StatusMundur\r\n        order by StatusMundur ASC, ProdiID, NIM DESC, PMBID";
    $r = _query($s);
    // echo "<pre>$s</pre>";
    $maxcol = 232;
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(77) . chr(27) . chr(108) . chr(10));
    $div = str_pad('-', $maxcol, '-') . $_lf;
    $div2 = str_pad('=', $maxcol, '=') . $_lf;
    $n = 0;
    $hal = 0;
    $nprd = 0;
    $brs = 56;
    $maxbrs = 49;
    $jumlahrec = _num_rows($r);
    $jumhal = ceil($jumlahrec / $maxbrs);
    $prodi = "";
    $first = 1;
    $fm = 1;
    $mundur = 'N';
    while ($w = _fetch_array($r)) {
        $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama');
        $n++;
        $brs++;
        if ($brs > $maxbrs) {
            if ($first == 0) {
                fwrite($f, $div . chr(12));
            }
            $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal);
            fwrite($f, $hd);
            $brs = 0;
            $first = 0;
            $prodi = $w['ProdiID'];
        } elseif ($prodi != $w['ProdiID']) {
            $prodi = $w['ProdiID'];
            if ($first == 0) {
                fwrite($f, $div);
                fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf);
                fwrite($f, $div);
            }
            fwrite($f, chr(12));
            fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal));
            $brs = 0;
            $sum = 0;
            $n = 1;
        } elseif ($mundur != $w['StatusMundur']) {
            $mundur = $w['StatusMundur'];
            if ($first == 0) {
                fwrite($f, $div);
                fwrite($f, str_pad("## TOTAL : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf);
                fwrite($f, $div);
            }
            fwrite($f, $div);
            fwrite($f, str_pad("## TOTAL : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf);
            fwrite($f, $div);
            fwrite($f, chr(12));
            fwrite($f, HeaderMUN($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal));
            $brs = 0;
            $n = 1;
        }
        $Alamat = str_replace(chr(13), ' ', $w['Alamat']);
        $Alamat = str_replace(chr(10), '', $Alamat);
        $BiayaPMB = GetBipot2($w, $w['BIPOTID'], $tot);
        //echo $BiayaPMB;
        $isi_ = AmbilBPM($_SESSION['tahun'], $w['PMBID'], $brs);
        $dskn = AmbilDiskon($w['PMBID']);
        $BIAYA = BiayaBipot($w['PMBID']);
        $STATUS = GetaField('statusawal', 'StatusAwalID', $w['StatusAwalID'], 'Nama');
        $Balance = -$BiayaPMB + $dskn + $BIAYA + 0;
        $TOTBAL += $Balance;
        $_Balance = number_format($Balance);
        $isi = str_pad($n, 4) . str_pad($w['PMBID'], 11) . str_pad($w['NIM'], 11) . str_pad($w['Nama'], 33) . str_pad($Alamat, 60) . str_pad($w['Telepon'], 20) . str_pad($STATUS, 6) . str_pad(number_format($BiayaPMB), 12, ' ', STR_PAD_LEFT) . str_pad(number_format($dskn), 12, ' ', STR_PAD_LEFT) . str_pad(number_format($BIAYA + 0), 12, ' ', STR_PAD_LEFT) . str_pad($_Balance, 12, ' ', STR_PAD_LEFT) . '  ' . $isi_[0] . $_lf;
        fwrite($f, $isi);
        if (count($isi_) > 1) {
            for ($i = 1; $i <= count($isi_); $i++) {
                $ct = str_pad(' ', 195) . $isi_[$i] . $_lf;
                fwrite($f, $ct);
            }
        }
        //fwrite($f, $isi_);
        $sum += $Balance;
    }
    fwrite($f, $div);
    fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, $div2);
    fwrite($f, str_pad("## GRAND TOTAL : ", 53) . str_pad(number_format($TOTBAL), 140, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, $div2);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 176, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 30, ' ') . $_lf);
    fwrite($f, str_pad("Akhir laporan", 200, ' ', STR_PAD_LEFT));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "akd.lap");
}