function Daftar() { global $_lf; if (empty($_SESSION['prodi'])) { $__prodi = ''; } else { $__prodi = "and prd.ProdiID = '{$_SESSION['prodi']}'"; } $__prg = empty($_SESSION['prid']) ? '' : "and prg.ProgramID = '{$_SESSION['prid']}'"; $s = "select p.PMBID, p.Nama, p.NIM, p.ProdiID, p.LulusUjian, p.NilaiUjian,\r\n prg.Nama as PRG, prd.Nama as PRODI, sa.Nama as STT, sa.TanpaTest,\r\n bp.Nama as BPT\r\n from pmb p\r\n left outer join program prg on p.ProgramID=prg.ProgramID\r\n left outer join prodi prd on p.ProdiID=prd.ProdiID\r\n left outer join statusawal sa on p.StatusAwalID=sa.StatusAwalID\r\n left outer join bipot bp on p.BIPOTID=bp.BIPOTID\r\n where p.PMBPeriodID like '%{$_SESSION['tahun']}%' and p.NIM <> 0 {$__prodi} {$__prg}\r\n order by prd.ProdiID, p.NIM"; $r = _query($s); $maxcol = 90; $maxbrs = 53; $hal = 0; $brs = 54; $first = 1; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10)); $div = str_pad('-', $maxcol, '-') . $_lf; $n = 0; while ($w = _fetch_array($r)) { $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama'); $n++; $brs++; if ($brs > $maxbrs) { if ($first == 0) { fwrite($f, $div . chr(12)); } $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal); fwrite($f, $hd); $brs = 0; $first = 0; $prodi = $w['ProdiID']; } elseif ($prodi != $w['ProdiID']) { $prodi = $w['ProdiID']; if ($first == 0) { fwrite($f, $div); } fwrite($f, chr(12)); fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal)); $brs = 0; $n = 1; } $isi = str_pad($n . '.', 5) . str_pad($w['PMBID'], 12) . str_pad($w['NIM'], 12) . str_pad($w['Nama'], 35) . str_pad($w['PRG'], 12) . str_pad($w['STT'], 10) . $_lf; fwrite($f, $isi); } fwrite($f, $div); //fwrite($f, str_pad('Halaman : '.$hal."/".$jumhal,10,' ').$_lf); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 20, ' ') . str_pad("Dicetak Tgl : " . date("d-m-Y H:i"), 70, ' ', STR_PAD_LEFT) . $_lf . $_lf); fwrite($f, str_pad("Akhir laporan", 90, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "baa.lap"); }
function daftar() { global $_lf; $whr = !empty($_SESSION['prodi']) ? "and m.ProdiID='{$_SESSION['prodi']}'" : ''; $s = "select k.MhswID, k.ProdiID, m.Nama, m.ProgramID as program, k.Biaya, k.Bayar, k.Potongan, k.Tarik from khs k left outer join mhsw m \r\n\t on m.MhswID = k.MhswID where\r\n k.TahunID = '{$_SESSION['tahun']}' \r\n\t\t\t and m.TahunID = '{$_SESSION['angk']}'\r\n\t\t\t {$whr}\r\n\t\t\t order by k.MhswID, k.ProdiID"; $r = _query($s); $maxcol = 80; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10)); $div = str_pad('-', $maxcol, '-') . $_lf; $n = 0; $hal = 0; $nprd = 0; $brs = 56; $maxbrs = 49; $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec / $maxbrs); $prodi = ""; $first = 1; $ctt = 1; while ($w = _fetch_array($r)) { $bal = $w['Biaya'] - $w['Bayar'] - $w['Potongan'] + $w['Tarik']; $bipot = GetFields('bipotmhsw', "Dibayar = 0 and TahunID = '{$_SESSION['tahun']}' and TrxID = 1 and MhswID", $w['MhswID'], 'sum(Besar * Jumlah) as TOT'); $pot = GetFields('bipotmhsw', "TahunID = '{$_SESSION['tahun']}' and TrxID = -1 and MhswID", $w['MhswID'], 'Besar as POT'); $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama'); $n++; $brs++; $_sum = $bipot['TOT'] - $pot['POT']; if ($brs > $maxbrs) { if ($first == 0) { fwrite($f, $div . chr(12)); } $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal); fwrite($f, $hd); $brs = 0; $first = 0; $prodi = $w['ProdiID']; } elseif ($prodi != $w['ProdiID']) { $prodi = $w['ProdiID']; if ($first == 0) { fwrite($f, $div); fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 18, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); //fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($tot_),18, ' ', STR_PAD_LEFT).$_lf); } fwrite($f, chr(12)); fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal)); $sum = 0; $brs = 0; $n = 1; } $isi = str_pad($n, 6) . str_pad($w['MhswID'], 12) . str_pad($w['Nama'], 35) . str_pad($w['program'], 6) . str_pad(number_format($bal), 12, ' ', STR_PAD_LEFT) . ' ' . $_lf; fwrite($f, $isi); $sum += $bal; $sumtotal += $bal; $tot_ += $pot['POT']; $summ += $bipot['TOT']; $summm = $summ - $tot_; } fwrite($f, $div); fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 18, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); fwrite($f, str_pad("## TOTAL KESELURUHAN : ", 53) . str_pad(number_format($sumtotal), 18, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 50, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 30, ' ') . $_lf); fwrite($f, str_pad("Akhir laporan", 79, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap"); }
function daftar() { global $_lf; $whr = array(); if (!empty($_SESSION['prodi'])) { $whr[] = "mhsw.ProdiID='{$_SESSION['prodi']}'"; } if (!empty($_SESSION['prid'])) { $whr[] = "mhsw.ProgramID='{$_SESSION['prid']}'"; } if (!empty($_SESSION['angkatan'])) { $whr[] = "mhsw.TahunID='{$_SESSION['angkatan']}'"; } if (!empty($_SESSION['stts'])) { $whr[] = "k.StatusMhswID='{$_SESSION['stts']}'"; } else { $whr[] = "k.StatusMhswID in ('A', 'P', 'C', 'T')"; } $_whr = implode(" and ", $whr); if (!empty($_whr)) { $_whr = " and " . $_whr; } $s = "select mhsw.MhswID, mhsw.Nama, k.IPS, mhsw.TotalSKS, mhsw.ProdiID, k.StatusMhswID from khs k \r\n left outer join mhsw on k.MhswID = mhsw.MhswID\r\n where mhsw.TotalSKS >= {$_SESSION['jmlsks']} \r\n and k.TahunID = '{$_SESSION['tahun']}' {$_whr} order by mhsw.ProdiID, mhsw.MhswID"; $r = _query($s); $maxcol = 80; $nmf = "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(20)); $div = str_pad('-', $maxcol, '-') . $_lf; $n = 0; $hal = 0; $brs = 56; $maxbrs = 49; $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec / $maxbrs); $prodi = ""; $first = 1; // Buat header /*$_prodi = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama'); $_prid = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama'); $hdr = str_pad("*** Daftar Mahasiswa SKS Lebih Atau Sama Dengan $_SESSION[jmlsks] ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf.$_lf; $hdr .= "Tahun : " . NamaTahun($_SESSION['tahun']) . $_lf; $hdr .= "Program : $_prid" . $_lf; $hdr .= "Prodi : $_prodi" .$_lf; $hdr .= $div; $hdr .= "No. NPM Nama Total SKS".$_lf . $div; fwrite($f, $hdr); $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec/$maxbrs);*/ while ($w = _fetch_array($r)) { $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama'); if ($brs > $maxbrs) { if ($first == 0) { fwrite($f, $div . chr(12)); } $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal); fwrite($f, $hd); $brs = 0; $first = 0; $prodi = $w['ProdiID']; } elseif ($prodi != $w['ProdiID']) { $prodi = $w['ProdiID']; if ($first == 0) { fwrite($f, $div); } fwrite($f, chr(12)); fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal)); $brs = 0; $n = 1; } if ($w['ProdiID'] == 10) { $w['TotalSKS'] = SKSFK($w['MhswID']); } if (!empty($w['TotalSKS'])) { $n++; $brs++; $Status = GetaField('statusmhsw', "StatusMhswID", $w['StatusMhswID'], 'Nama'); $isi = str_pad($n . '.', 4, ' ') . ' ' . str_pad($w['MhswID'], 12) . ' ' . str_pad($w['Nama'], 30) . ' ' . str_pad($w['TotalSKS'], 13, ' ', STR_PAD_LEFT) . ' ' . str_pad($Status, 13, ' ', STR_PAD_LEFT); fwrite($f, $isi . $_lf); } } fwrite($f, $div); fwrite($f, str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, str_pad('Dicetak oleh : ' . $_SESSION['_Login'], 55, ' ') . str_pad('Dibuat : ' . date("d-m-Y H:i"), 29, ' ')); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap"); }
function daftar() { global $_lf; $_prodi = !empty($_SESSION['prodi']) ? "and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0" : ''; $_prid = !empty($_SESSION['prid']) ? "and INSTR(j.ProgramID, '.{$_SESSION['prid']}.')>0" : ''; $_jenis = !empty($_SESSION['jenis']) ? "and j.JenisJadwalID = '{$_SESSION['jenis']}'" : ''; $_Kode = !empty($_SESSION['Kode']) ? "and j.MKKode = '{$_SESSION['Kode']}'" : ''; $_seksi = !empty($_SESSION['seksi']) ? "and j.NamaKelas = '{$_SESSION['seksi']}'" : ''; $s = "select j.MKKode, mk.Nama as MKNAMA, j.NamaKelas, j.DosenID, d.Nama as DSNNAMA, j.JadwalID, j.JenisJadwalID, mk.ProdiID\r\n from jadwal j \r\n left outer join mk on j.MKID = mk.MKID\r\n left outer join dosen d on j.DosenID = d.Login\r\n where j.TahunID = '{$_SESSION['tahun']}'\r\n and j.JadwalSer = 0\r\n {$_prodi} {$_prid} {$_jenis} {$_Kode} {$_seksi}\r\n group by MKKode, NamaKelas\r\n order by mk.ProdiID, j.MKKode, j.NamaKelas\r\n "; $r = _query($s); $maxcol = 121; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10)); $div = str_pad('-', $maxcol, '-') . $_lf; $n = 0; $hal = 0; $nprd = 0; $brs = 26; $maxbrs = 25; $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec / $maxbrs); $prodi = ""; $first = 1; $ctt = 1; while ($w = _fetch_array($r)) { $_nprodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama'); if ($brs > $maxbrs) { if ($first == 0) { fwrite($f, $div . chr(12)); } $hd = Headerxx($_SESSION['tahun'], $_nprodi, $w['JenisJadwalID'], $div, $maxcol, $hal); fwrite($f, $hd); $brs = 0; $first = 0; $prodi = $w['ProdiID']; } elseif ($prodi != $w['ProdiID']) { $prodi = $w['ProdiID']; if ($first == 0) { fwrite($f, $div); } fwrite($f, chr(12)); fwrite($f, Headerxx($_SESSION['tahun'], $_nprodi, $w['JenisJadwalID'], $div, $maxcol, $hal)); $brs = 0; $n = 1; } $Jml = GetaField('krs', "JadwalID", $w['JadwalID'], "count(MhswID)") + 0; if ($Jml > 0) { $n++; $brs++; $isi = str_pad($n, 4) . str_pad($w['MKKode'], 8) . str_pad($w['MKNAMA'], 35) . str_pad($w['NamaKelas'], 6) . str_pad($Jml, 9, ' ', STR_PAD_BOTH) . str_pad($w['DosenID'], 5) . str_pad($w['DSNNAMA'], 35) . str_pad('|', 10) . str_pad('|', 10) . $_lf . $div; fwrite($f, $isi); } } //fwrite($f, $div); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 95, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 70, ' ') . $_lf); fwrite($f, str_pad("Akhir laporan", 120, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap"); }
function Cetak() { global $_lf; $whr .= empty($_REQUEST['prodi']) ? '' : "and m.ProdiID='{$_REQUEST['prodi']}'"; $s = "select m.MhswID, ta.Judul, m.Nama, ta.GradeNilai, ta.TahunID, date_format(ta.TglSKYudisium, '%d-%m-%y') as TglSKYudisium,\r\n m.NoProdi, m.NoIdentitas, m.ProdiID, date_format(m.TglSKKeluar, '%d-%m-%Y') as TglSKKeluar\r\n from ta ta\r\n left outer join mhsw m on m.MhswID=ta.MhswID\r\n where ta.Lulus='Y'\r\n and ('{$_REQUEST['tahun1']}-{$_REQUEST['bulan1']}-01' <= ta.TglSKYudisium)\r\n and (ta.TglSKYudisium <= '{$_REQUEST['tahun2']}-{$_REQUEST['bulan2']}-31')\r\n and ta.NA = 'N'\r\n {$whr}\r\n order by m.ProdiID, m.MhswID, ta.TglSKYudisium"; $r = _query($s); $maxcol = 200; $rand = rand(1, 1000); $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.{$rand}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(77) . chr(27) . chr(15) . chr(27) . chr(108) . chr(10)) . $_lf; $div = str_pad('-', $maxcol, '-') . $_lf; $stt = array('10' => "K-S.Ked", '11' => "D-Dokter", '61' => "T-Tesis"); $n = 0; $hal = 0; $nprd = 0; $brs = 72; $maxbrs = 70; $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec / $maxbrs); $prodi = ""; $first = 1; while ($w = _fetch_array($r)) { $ss = GetFields("krs krs\r\n left outer join mk mk on krs.MKID=mk.MKID\r\n left outer join jenispilihan jp on mk.JenisPilihanID=jp.JenisPilihanID", "jp.TA='Y' and krs.TahunID='{$w['TahunID']}' and krs.MhswID", $w['MhswID'], "mk.Nama as MKNama, mk.MKKode as MKKode"); $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama'); $fak = substr($w['ProdiID'], 0, 1); $_fak = GetaField('fakultas', 'FakultasID', $fak, 'Nama'); $n++; $brs++; if ($brs > $maxbrs) { if ($first == 0) { fwrite($f, $div . chr(12)); } $hd = Headerxx($_fak, $_prodi, $div, $maxcol, $hal); fwrite($f, $hd); $brs = 0; $first = 0; $prodi = $w['ProdiID']; } elseif ($prodi != $w['ProdiID']) { $prodi = $w['ProdiID']; if ($first == 0) { fwrite($f, $div); } fwrite($f, chr(12)); fwrite($f, Headerxx($_fak, $_prodi, $div, $maxcol, $hal)); $brs = 0; $n = 1; } $Judul = PutuskanJudul($w['Judul']); $jd = array(); for ($j = 0; $j < sizeof($Judul); $j++) { $kirinya = $j == 0 ? "" : str_pad(' ', 127, ' '); $sp = $j == 0 ? '' : $_lf; $jd[$j] = $kirinya . $Judul[$j] . $sp; $brs++; } $st = $stt[$w['ProdiID']]; $st = empty($st) ? "S-Skripsi" : $st; //var_dump($jd);exit; $isi = str_pad($n, 5) . str_pad($w['TglSKKeluar'], 12) . str_pad($w['MhswID'], 12) . str_pad($w['Nama'], 40) . str_pad($ss['MKKode'], 10) . str_pad($ss['MKNama'], 16) . str_pad($st, 14) . str_pad($w['GradeNilai'], 6, ' ', STR_PAD_BOTH) . str_pad($w['TglSKYudisium'], 12) . str_pad($jd[0], 50) . str_pad($w['NoProdi'], 5, ' ', STR_PAD_LEFT) . str_pad($w['NoIdentitas'], 8, ' ', STR_PAD_LEFT) . $_lf; fwrite($f, $isi); fwrite($f, $jd[1]); fwrite($f, $jd[2]); fwrite($f, $jd[3]); $Juduls = ''; } fwrite($f, $div); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 30, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 170, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, str_pad("Akhir laporan", 200, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "wisuda.nomer"); }
function Daftar() { global $_lf; if (empty($_SESSION['pmbperiod'])) { echo ErrorMsg("Priode Belum Ditentukan", "Masukkan priode yang ingin ditampilkan"); } else { $_stst = empty($_SESSION['status']) ? "StatusAwalID in ('B', 'P', 'S')" : "StatusAwalID = '{$_SESSION['status']}'"; $q = "SELECT PMBID, Nama, GradeNilai, ProdiID, StatusAwalID\r\n FROM pmb WHERE PMBPeriodID = '{$_SESSION['pmbperiod']}' AND LulusUjian = 'Y'\r\n and {$_stst}\r\n\t\tORDER BY StatusAwalID, ProdiID, PMBID"; $_q = _query($q); //echo "<pre>$q</pre>"; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['pmbperiod']}.dwoprn"; $n = 0; $brs = 41; $maxcol = 80; $div = str_pad('-', $maxcol, '-') . $_lf; $maxbrs = 40; $first = 1; $f = fopen($nmf, 'w'); $status_ = ''; fwrite($f, chr(27) . chr(18)); while ($w = _fetch_array($_q)) { $n++; $brs++; if ($brs > $maxbrs) { if ($first == 0) { fwrite($f, $div . chr(12)); } $hd = Headerxx($_SESSION['pmbperiod'], $w['StatusAwalID'], $div, $maxcol, $hal); fwrite($f, $hd); $brs = 0; $first = 0; $status_ = $w['StatusAwalID']; } elseif ($status_ != $w['StatusAwalID']) { $status_ = $w['StatusAwalID']; echo $w['StatusAwalID']; if ($first == 0) { 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, ' ') . $_lf); fwrite($f, chr(12)); } //echo "$brs"; fwrite($f, chr(12)); fwrite($f, Headerxx($_SESSION['pmbperiod'], $w['StatusAwalID'], $div, $maxcol, $hal)); $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"); } }
function daftar() { global $_lf, $urutanstts; $whr = array(); if (!empty($_SESSION['prodi'])) { $whr[] = "ProdiID='{$_SESSION['prodi']}'"; } if (!empty($_SESSION['prid'])) { $whr[] = "ProgramID='{$_SESSION['prid']}'"; } $_whr = implode(" and ", $whr); if (!empty($_whr)) { $_whr = " and " . $_whr; } $_u = explode('~', $urutanstts[$_SESSION['_urutanstts']]); $_key = $_u[0]; //var_dump($_u); if ($_key == "Calon Mahasiswa") { $key = "and StatusMundur = 'N'"; } else { if ($_key == "Calon Mahasiswa Mundur") { $key = "and StatusMundur = 'Y'"; } else { $key = ''; } } $s = "select PMBID, ProdiID, left(Alamat, 57) as Alamat ,TotalBiayaMhsw, \r\n TotalSetoranMhsw, Kota, BIPOTID, Kodepos, GradeNilai, StatusMundur, \r\n left(Telepon, 18) as Telepon, NIM, left(Nama,32) as Nama, Concat(RT,'/',RW) as RTRW, StatusAwalID\r\n from pmb\r\n where \r\n PMBPeriodID = '{$_SESSION['tahun']}' \r\n and LulusUjian = 'Y' \r\n and StatusAwalID in ('B', 'P', 'S')\r\n {$_whr}\r\n {$key}\r\n group by PMBID, StatusMundur\r\n order by StatusMundur ASC, ProdiID, NIM DESC, PMBID"; $r = _query($s); // echo "<pre>$s</pre>"; $maxcol = 232; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(77) . chr(27) . chr(108) . chr(10)); $div = str_pad('-', $maxcol, '-') . $_lf; $div2 = str_pad('=', $maxcol, '=') . $_lf; $n = 0; $hal = 0; $nprd = 0; $brs = 56; $maxbrs = 49; $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec / $maxbrs); $prodi = ""; $first = 1; $fm = 1; $mundur = 'N'; while ($w = _fetch_array($r)) { $_prodi = GetaField('prodi', 'ProdiID', $w['ProdiID'], 'Nama'); $n++; $brs++; if ($brs > $maxbrs) { if ($first == 0) { fwrite($f, $div . chr(12)); } $hd = Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal); fwrite($f, $hd); $brs = 0; $first = 0; $prodi = $w['ProdiID']; } elseif ($prodi != $w['ProdiID']) { $prodi = $w['ProdiID']; if ($first == 0) { fwrite($f, $div); fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); } fwrite($f, chr(12)); fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal)); $brs = 0; $sum = 0; $n = 1; } elseif ($mundur != $w['StatusMundur']) { $mundur = $w['StatusMundur']; if ($first == 0) { fwrite($f, $div); fwrite($f, str_pad("## TOTAL : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); } fwrite($f, $div); fwrite($f, str_pad("## TOTAL : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div); fwrite($f, chr(12)); fwrite($f, HeaderMUN($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal)); $brs = 0; $n = 1; } $Alamat = str_replace(chr(13), ' ', $w['Alamat']); $Alamat = str_replace(chr(10), '', $Alamat); $BiayaPMB = GetBipot2($w, $w['BIPOTID'], $tot); //echo $BiayaPMB; $isi_ = AmbilBPM($_SESSION['tahun'], $w['PMBID'], $brs); $dskn = AmbilDiskon($w['PMBID']); $BIAYA = BiayaBipot($w['PMBID']); $STATUS = GetaField('statusawal', 'StatusAwalID', $w['StatusAwalID'], 'Nama'); $Balance = -$BiayaPMB + $dskn + $BIAYA + 0; $TOTBAL += $Balance; $_Balance = number_format($Balance); $isi = str_pad($n, 4) . str_pad($w['PMBID'], 11) . str_pad($w['NIM'], 11) . str_pad($w['Nama'], 33) . str_pad($Alamat, 60) . str_pad($w['Telepon'], 20) . str_pad($STATUS, 6) . str_pad(number_format($BiayaPMB), 12, ' ', STR_PAD_LEFT) . str_pad(number_format($dskn), 12, ' ', STR_PAD_LEFT) . str_pad(number_format($BIAYA + 0), 12, ' ', STR_PAD_LEFT) . str_pad($_Balance, 12, ' ', STR_PAD_LEFT) . ' ' . $isi_[0] . $_lf; fwrite($f, $isi); if (count($isi_) > 1) { for ($i = 1; $i <= count($isi_); $i++) { $ct = str_pad(' ', 195) . $isi_[$i] . $_lf; fwrite($f, $ct); } } //fwrite($f, $isi_); $sum += $Balance; } fwrite($f, $div); fwrite($f, str_pad("## TOTAL PER PRODI : ", 53) . str_pad(number_format($sum), 140, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div2); fwrite($f, str_pad("## GRAND TOTAL : ", 53) . str_pad(number_format($TOTBAL), 140, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, $div2); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 176, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 30, ' ') . $_lf); fwrite($f, str_pad("Akhir laporan", 200, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap"); }