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);