function CetakLabel()
{
global $_HeaderPrn, $_EjectPrn, $_lf, $arrHari;
$FDHU = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}DHU.dwoprn";
// *** Data ***
$prodi = $_REQUEST['prodi'];
$dataTest = GetFields('pmbusm', "PMBUSMID", $_REQUEST['pmbusmid'], '*');
$dataProd = GetFields('prodiusm', "ProdiUSMID", $_REQUEST['prodiusmid'], "*, date_format(TanggalUjian, '%d/%m/%Y') as TGL, \r\n date_format(TanggalUjian, '%H:%i') as JAM,\r\n date_format(TanggalUjian, '%w') as HR");
// *** Cetak ***
$s = "select p.PMBID, p.Nama, p.PSSBID, p.StatusAwalID\r\n from pmb p\r\n where p.PMBPeriodID='{$_REQUEST['pmbaktif']}' and p.ProdiID='{$prodi}'\r\n \r\n order by p.PMBID";
$r = _query($s);
$hal = 1;
$jmlbrs = 0;
$maxbrs = 20;
$f = fopen($FDHU, 'w');
fwrite($f, $_HeaderPrn);
CetakHeader($f, $dataTest, $dataProd, $hal);
// isi
while ($w = _fetch_array($r)) {
$jmlbrs++;
//$pssb = GetaField('pssb', "PSSBID", $w['PSSBID'], 'MhswID');
$tanda = $w['StatusAwalID'] != 'B' ? '(PSSB)' : '';
fwrite($f, str_pad($jmlbrs, 9, ' ', STR_PAD_LEFT) . '. ' . str_pad($w['PMBID'], 15) . ' ' . str_pad($w['Nama'] . ' ' . $tanda, 50) . $_lf . $_lf);
if ($jmlbrs % $maxbrs == 0) {
fwrite($f, chr(12));
$hal++;
CetakHeader($f, $dataTest, $dataProd, $hal);
}
}
fwrite($f, " Anda tidak diperkenankan menambah pada baris ini." . $_lf . $_lf);
for ($i = $jmlbrs; $i <= $maxbrs - 1; $i++) {
fwrite($f, $_lf . $_lf);
}
fwrite($f, chr(12));
fclose($f);
include_once "dwoprn.php";
DownloadDWOPRN($FDHU);
}
session_start();
include_once "../dwo.lib.php";
include_once "../db.mysql.php";
include_once "../connectdb.php";
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
// *** Parameters ***
$PMBPeriodID = GetSetVar('PMBPeriodID');
$gels = GetFields('pmbperiod', "KodeID='" . KodeID . "' and PMBPeriodID", $PMBPeriodID, "*");
$lbr = 190;
// *** Cetak ***
$pdf = new PDF();
$pdf->SetTitle("Pengumuman PMB");
$pdf->AddPage('P');
CetakHeader($gels, $pdf);
CetakDataLulus($gels, $pdf);
CetakFooter($pdf);
$pdf->Output();
// *** Function ***
function CetakFooter($p)
{
global $arrID;
$t = 6;
$mrg = 120;
$lbr = 80;
$p->Ln(3);
$p->Cell($mrg);
$p->Cell($lbr, $t, $arrID['Kota'] . ', ' . date('d-m-Y'), 0, 1);
$ketua = GetFields('pejabat', "KodeID = '" . KodeID . "' and KodeJabatan", 'KETUA', "*");
$p->Cell($mrg);
