$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(); }
$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(); }