function CtkBukti()
{
global $_lf;
//include "terbilang.php";
$nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
$maxcol = 80;
//$div = str_pad('-',$maxcol,'-').$_;
$f = fopen($nmf, 'w');
$Periode = $_REQUEST['tahun'];
$PMBID = $_REQUEST['pmbid'];
$bal = $_REQUEST['biaya'];
$BYR = $_REQUEST['byr'];
$REG = $_REQUEST['regs'];
$_bal = number_format($bal);
$x = GetFields("pmb left outer join prodi on prodi.ProdiID = pmb.ProdiID", 'PMBID', $PMBID, 'pmb.Nama as NMHS, prodi.Nama as PRD');
fwrite($f, chr(27) . chr(18) . chr(27) . chr(108) . chr(0) . $_lf);
fwrite($f, str_pad("BUKTI PENGEMBALIAN PEMBAYARAN P.M.B.", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf);
fwrite($f, str_pad("PERIODE " . NamaTahunPMB($Periode), $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf);
$isi = str_pad('PMBID : ' . $PMBID, 50, ' ') . $_lf . $_lf . str_pad('NAMA : ' . $x['NMHS'], 50, ' ') . $_lf . $_lf . str_pad('PRODI : ' . $x['PRD'], 50, ' ') . $_lf . $_lf . str_pad('BIAYA YG SUDAH DIBAYAR : Rp. ' . number_format($BYR), 50, ' ') . $_lf . $_lf . str_pad('BIAYA ADMINISTRASI : Rp. ' . $REG, 50, ' ') . $_lf . $_lf . str_pad('NILAI YG DIKEMBALIKAN : Rp. ' . $_bal, 50, ' ') . $_lf . $_lf . str_pad('TERBILANG :' . ucwords(Terbilang($bal)) . "Rupiah", 50, ' ') . $_lf . $_lf . str_pad('KETERANGAN : ' . $Keterangan, 60, ' ') . $_lf . $_lf . str_pad('Jakarta, ' . date("d-m-Y"), 50, ' ') . $_lf . $_lf . str_pad('Bagian Keuangan,', 50, ' ') . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf;
fwrite($f, $isi);
fwrite($f, "Dicetak Oleh : " . $_SESSION['_Login']);
//fwrite($f, $div);
fwrite($f, chr(12));
fclose($f);
echo "<iframe src='dwoprn.php?f={$nmf}' height=0 width=0 frameborder=0>\n </iframe>";
}
function Headerxx($tahun, $status__, $div, $maxcol, &$hal)
{
global $_lf;
$hal++;
if ($status__ == 'B') {
$TTL = "DITERIMA";
} elseif ($status__ == 'P') {
$TTL = "PINDAHAN";
} else {
$TTL = "PSSB";
}
$hdr .= str_pad('*** PENGUMUMAN PENERIMAAN MAHASISWA BARU **', $maxcol, ' ', STR_PAD_BOTH) . $_lf;
$hdr .= str_pad("--- STATUS : {$TTL} ---", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf;
$hdr .= "Periode : " . NamaTahunPMB($tahun);
$hdr .= str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf;
$hdr .= $div;
$hdr .= str_pad("NO. URUT", 10) . str_pad("NO. TES", 12) . str_pad("NAMA CALON MAHASISWA", 35) . $_lf;
$hdr .= $div;
return $hdr;
}
function Daftar()
{
global $_lf;
$s = "select p.Nama, pm.* from pmbmundur pm\r\n left outer join pmb p on p.PMBID = pm.PMBID\r\n where pm.PMBPeriodID = '{$_SESSION['pmbperiod']}'\r\n order by pm.PMBID";
$r = _query($s);
$maxcol = 120;
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, chr(27) . chr(15));
$div = str_pad('-', $maxcol, '-') . $_lf;
$n = 0;
$brs = 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, "?");
}
DftrFrm();
}
// *** Tanggal ***
if (isset($_REQUEST['Tampilkan'])) {
$pmbtglfilter = GetSetVar('pmbtglfilter', 'Y');
if (empty($_REQUEST['pmbtglfilter'])) {
$pmbtglfilter = 'N';
$_SESSION['pmbtglfilter'] = 'N';
}
}
$pmbtgl_y = GetSetVar('pmbtgl_y', date('Y'));
$pmbtgl_m = GetSetVar('pmbtgl_m', date('m'));
$pmbtgl_d = GetSetVar('pmbtgl_d', date('d'));
$_SESSION['pmbtgl'] = "{$pmbtgl_y}-{$pmbtgl_m}-{$pmbtgl_d}";
// *** Filter ***
$crfrm = GetSetVar('crfrm');
$crfrmkey = GetSetVar('crfrmkey');
if ($crfrmkey == 'Reset') {
$crfrmkey = '';
$crfrm = '';
$_SESSION['crfrmkey'] = '';
$_SESSION['crfrm'] = '';
}
// *** Parameters ***
$pmbfid = GetSetVar('pmbfid');
$pmbaktif = GetaField('pmbperiod', 'NA', 'N', 'PMBPeriodID');
$gos = empty($_REQUEST['gos']) ? 'DftrFrm' : $_REQUEST['gos'];
// *** Main ***
$NTahunPMB = NamaTahunPMB($pmbaktif);
TampilkanJudul("Daftar Formulir {$NTahunPMB}");
$gos();
function HeaderMUN($tahun, $prodi, $div, $maxcol, &$hal)
{
global $_lf;
$hal++;
$hdr = str_pad('*** DAFTAR PEMBAYARAN MAHASISWA BARU (STATUS MUNDUR) ***', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
$hdr .= "Tahun Akademik : " . NamaTahunPMB($tahun) . $_lf;
$hdr .= "Prodi : {$prodi}" . str_pad('Halaman : ' . $hal, 160, ' ', STR_PAD_LEFT) . $_lf;
$hdr .= $div;
$hdr .= str_pad("NO", 4) . str_pad("PMBID", 11) . str_pad("NIM", 11) . str_pad("NAMA", 33) . str_pad('ALAMAT', 60) . str_pad('TELEPON/HP', 20) . str_pad('STATUS', 9) . str_pad('KEWAJIBAN', 15) . str_pad('BIAYA REG', 8) . str_pad('PEMBAYARAN', 14) . str_pad('BALANCE', 12) . str_pad('NO BPM', 12) . str_pad('TGL', 16) . str_pad('NILAI', 12) . $_lf;
$hdr .= $div;
return $hdr;
}
}
function TampilkanDftrPMB()
{
$whr = '';
$whr .= empty($_SESSION['stawl']) ? '' : " and p.StatusAwalID='{$_SESSION['stawl']}' ";
$whr .= empty($_SESSION['jnsek']) ? '' : " and p.JenisSekolahID='{$_SESSION['jnsek']}' ";
$s = "select p.PMBID, p.Nama, p.JenisSekolahID, p.LulusUjian, NomerSurat,\r\n sa.Nama as STAWL, bpt.Nama as BPT\r\n from pmb p\r\n left outer join statusawal sa on p.StatusAwalID=sa.StatusAwalID\r\n left outer join bipot bpt on p.BIPOTID=bpt.BIPOTID\r\n where p.ProdiID='{$_SESSION['prodi']}' and PMBPeriodID='{$_SESSION['pmbaktif']}' {$whr}\r\n order by p.NilaiUjian DESC, p.PMBID ASC, p.Nama ASC";
$r = _query($s);
$n = 0;
echo "<p><b>Catatan:</b> Perhatikan Master Biaya & Potongan (BIPOT) calon mahasiswa. Jika masih kosong, maka harus diset terlebih dahulu oleh Kepala Admisi.</p>";
echo "<form action='cetak/pmb.pemberitahuan1.php' method=POST target=_blank>\r\n <input type=hidden name='pmbaktif' value='{$_SESSION['pmbaktif']}'>\r\n <input type=hidden name='prn' value='{$prn}'>";
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl>No.</th>\r\n <th class=ttl>No. PMB</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Status</th>\r\n <th class=ttl>Sekolah</th>\r\n <th class=ttl>Lulus?</th>\r\n <th class=ttl>BIPOT</th>\r\n <th class=ttl><input type=submit name='Cetak' value='Cetak'></th>\r\n <th class=ttl>Cetak<br />Individual</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$c = $w['LulusUjian'] == 'Y' ? 'class=ul' : 'class=nac';
$chk = $w['LulusUjian'] == 'Y' ? "checked" : '';
echo "<tr><td class=inp1>{$n}</td>\r\n <td {$c}>{$w['PMBID']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['STAWL']}</td>\r\n <td {$c}>{$w['JenisSekolahID']} </td>\r\n <td {$c} align=center><img src='img/{$w['LulusUjian']}.gif'></td>\r\n <td {$c}>{$w['BPT']}</td>\r\n <td {$c} align=center><input type=checkbox name='pmbid[]' value='{$w['PMBID']}' {$chk}></td>\r\n <td {$c} align=center><a href='cetak/pmb.pemberitahuan1.php?Lulus={$w['LulusUjian']}&pmbid[]={$w['PMBID']}&pmbaktif={$_SESSION['pmbaktif']}&Sekolah={$w['JenisSekolahID']}' target=_blank>Cetak</a></td>\r\n </tr>";
}
echo "<tr><td colspan=7> </td>\r\n <td class=ul><input type=submit name='Cetak' value='Cetak'></td></tr>\r\n </table></p>";
echo "</form>";
}
// *** Parameters ***
$pmbaktif = GetSetVar('pmbaktif');
$_stawl = GetSetVar('stawl');
$_prodi = GetSetVar('prodi');
$_jnsek = GetSetVar('jnsek');
$gos = empty($_REQUEST['gos']) ? 'DftrPMB' : $_REQUEST['gos'];
// *** Main ***
$NamaTPMB = NamaTahunPMB($_SESSION['pmbaktif']);
TampilkanJudul("Pemberitahuan Lulus USM - {$NamaTPMB}");
$gos();
