Exemple #1
0
                $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");
    }
}
$pmbperiod = GetSetVar('pmbperiod');
$status = GetSetVar('status');
TampilkanJudul("Buat Pengumuman");
TampilCariPeriode("buatpengumuman", "TampilPengumuman");
if (!empty($_SESSION['pmbperiod']) and $Tampilkan = 'Tampilkan') {
    //TampilPengumuman();
    //echo "<p><a href=dwoprn.php?f=$nmf>Cetak Laporan</a></p>";
    Daftar();
}
Exemple #2
0
    $maxbrs = 50;
    $hdr = str_pad('*** Validitas PMB Mundur ***', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf;
    $hdr .= "Periode : " . NamaTahunPMB($_SESSION['pmbperiod']) . $_lf;
    $hdr .= $div;
    $hdr .= str_pad('NO.', 4) . str_pad('PMBID', 12) . str_pad('NAMA', 30) . str_pad('TGL PROSES', 12) . str_pad('NO SURAT', 10) . str_pad('TGL SURAT', 12) . str_pad('ALASAN', 20) . str_pad('BIAYA ADMINISTRASI', 18) . $_lf . $div;
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        if ($brs >= $maxbrs) {
            fwrite($f, $div);
            fwrite($f, "Bersambung ke ...");
            fwrite($f, chr(12));
            $brs = 1;
            fwrite($f, $hdr);
        }
        $isi = str_pad($n . '.', 4) . str_pad($w['PMBID'], 12) . str_pad($w['Nama'], 30) . str_pad($w['TglProses'], 12) . str_pad($w['NoSurat'], 10) . str_pad($w['TglSurat'], 12) . str_pad($w['Alasan'], 20) . str_pad(number_format($w['BiayaAdministrasi']), 18, ' ', STR_PAD_LEFT) . $_lf;
        fwrite($f, $isi);
    }
    fwrite($f, $div);
    fwrite($f, str_pad("Dicetak Oleh : " . $_SESSION['_Login'] . ', ' . date("d-m-Y H:i"), 40) . str_pad("Akhir Laporan", 73, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "?");
}
$pmbperiod = GetSetVar('pmbperiod');
TampilkanJudul('Validitas PMB Mundur');
TampilCariPeriode('pmb.validitas', 'Daftar');
if (!empty($pmbperiod)) {
    Daftar();
}