function BuatHeader($TahunID, $ProdiID, $p) { global $lbr; $NamaTahun = NamaTahun($TahunID); $NamaProdi = GetaField('prodi', "KodeID = '" . KodeID . "' and ProdiID", $ProdiID, 'Nama'); $p->SetFont('Helvetica', 'B', 12); $p->Cell($lbr, 6, "Rekap Kehadiran Kuliah - {$NamaTahun}", 0, 1, 'C'); $p->SetFont('Helvetica', 'I', 10); $p->Cell($lbr, 6, "Program Studi {$NamaProdi}", 0, 1, 'C'); }
function CetakTandaTerima() { global $_lf; $_whr = array(); if (!empty($_SESSION['prodi'])) { $_whr[] = "m.ProdiID='{$_SESSION['prodi']}'"; } $whr = empty($_whr) ? '' : " and " . implode(' and ', $_whr); $s = "select ta.MhswID, m.*\r\n from ta ta\r\n left outer join mhsw m on m.MhswID = ta.MhswID\r\n left outer join prodi p on m.ProdiID=p.ProdiID \r\n left outer join wisudawan w on w.MhswID = ta.MhswID\r\n where m.KodeID='{$_SESSION['KodeID']}'\r\n and m.noijazah != ' '\r\n and m.TglSKKeluar = '{$_SESSION['TglSK']}'\r\n and ta.Lulus = 'Y'\r\n {$whr}\r\n order by ta.MhswID"; $r = _query($s); $maxcol = 114; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); $prn = $_SESSION['_Printer'] == 0 ? chr(27) . chr(15) . chr(27) . chr(108) . chr(5) : chr(27) . chr(38) . chr(107) . chr(50) . chr(83) . chr(27) . chr(38) . chr(108) . chr(54) . chr(68) . chr(27) . chr(40) . chr(115) . chr(51) . chr(66); fwrite($f, $prn); $div = str_pad('-', $maxcol, '-') . $_lf; // parameter2 $n = 0; $hal = 1; $brs = 0; $maxbrs = 46; $Njur = GetFields("prodi p left outer join Fakultas f on f.FakultasID = p.FakultasID", "p.ProdiID", $_SESSION['prodi'], "p.Nama as pnama, f.Nama as fnama"); $NamaFakJur = !empty($Njur) ? $Njur['fnama'] . '/' . $Njur['pnama'] : "Semua Prodi"; $hdr = str_pad("** TANDA TERIMA PENGAMBILAN IJAZAH **", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf . "SEMESTER : " . NamaTahun($_SESSION['tahun']) . $_lf . "Fak/Jur : " . $NamaFakJur . $_lf . "TGL SK REKTOR : " . $_SESSION['TglSK'] . $_lf . $div . "No NIM NAMA NO.IJAZAH TGL.TERIMA TTD IJAZAH TTD TRANSKRIP" . $_lf . $div . $_lf; $jump = 0; $jumw = 0; $Titik = "..........."; fwrite($f, $hdr); while ($w = _fetch_array($r)) { $n++; $brs++; if ($brs > $maxbrs) { fwrite($f, $div); fwrite($f, str_pad('Halaman : ' . $hal . "/" . $jumhal, 10, ' ') . $_lf); $hal++; $brs = 1; fwrite($f, chr(12)); fwrite($f, $hdr . $_lf); } $isi = str_pad($n . '.', 4, ' ') . str_pad($w['MhswID'], 11, ' ') . str_pad($w['Nama'], 33, ' ') . str_pad($w['NoIjazah'], 15, ' ') . str_pad($Titik, 14, ' ') . str_pad($Titik, 15, ' ') . str_pad($Titik, 13, ' ') . $_lf . $_lf; fwrite($f, $isi); } //$jumtotP = GetaField('wisudawan w left outer join mhsw m on w.MhswID = m.MhswID',"m.Kelamin = 'P' and WisudaID", $wsd['WisudaID'], "count(m.MhswID)"); //$jumtotW = GetaField('wisudawan w left outer join mhsw m on w.MhswID = m.MhswID',"m.Kelamin = 'W' and WisudaID", $wsd['WisudaID'], "count(m.MhswID)"); fwrite($f, $div); // fwrite($f, "Jumlah Seluruh Peserta/Jurusan : - Pria = $jump - Wanita = $jumw" . $_lf); //fwrite($f, $div); //fwrite($f, "Jumlah Seluruh Peserta Seluruhnya : - Pria = $jumtotP - Wanita = $jumtotW" . $_lf); //fwrite($f, $div); fwrite($f, str_pad("Dicetak oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 50, ' ') . str_pad("Akhir Laporan", 60, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "form.tandaterima"); }
function HeaderKrs($tahun, $_prid, $_prodi, $div, $maxcol, &$hal, $RentangNPM = '') { global $_lf; $hdr = str_pad("*** Daftar KRS Mahasiswa Dispensasi ***", $maxcol, ' ', STR_PAD_BOTH) . $_lf; $hdr .= str_pad("Program : {$_prid}", $maxcol, ' ') . $_lf; $hdr .= str_pad("Program Studi : {$_prodi}", $maxcol, ' ') . $_lf; $hdr .= str_pad("Semester : " . NamaTahun($_SESSION['tahun']), 50, ' ') . $_lf . $RentangNPM . $_lf . $div; $hdr .= "No. NPM NAMA Kode Nama Matakuliah SKS TGL DISPEN CATATAN DISPEN " . $_lf; $hdr .= $div; return $hdr; }
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal) { global $_lf; $hal++; $hdr = str_pad('*** REKAPITULASI TAGIHAN KRS - AUTODEBET **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf; $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf; $hdr .= "Prodi : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf; $hdr .= $div; $hdr .= str_pad("NO", 6) . str_pad("NIM", 12) . str_pad("NAMA", 35) . str_pad('PRG ', 3) . str_pad(" TAGIH", 12) . $_lf; $hdr .= $div; return $hdr; }
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal) { global $_lf; $hal++; $hdr = str_pad('*** LAPORAN KEWAJIBAN PER ANGKATAN **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf; $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf; $hdr .= "Prodi : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf; $hdr .= $div; $hdr .= str_pad("NO", 6) . str_pad("NIM", 12) . str_pad("NAMA", 35) . str_pad('PRG ', 3) . str_pad(" TAGIH", 12) . $_lf; $hdr .= $div; return $hdr; }
function HeaderKRS($tahun, $_prid, $_prodi, $div, $maxcol, &$hal, $RentangNPM = '') { global $_lf; $RentangNPM = !empty($RentangNPM) ? $RentangNPM . $_lf : ''; $hdr = str_pad("** Daftar Mahasiswa Terdaftar KRS " . NamaTahun($_SESSION['tahun']) . " Tidak Cetak KSS **", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf; $hdr .= "Program : {$_prid}" . $_lf; $hdr .= "Prodi : {$_prodi}" . $_lf; $hdr .= $RentangNPM; $hdr .= $div; $hdr .= "No. NPM Nama Ambil SKS IPK Batas Studi" . $_lf . $div; return $hdr; }
function HeaderKrs($tahun, $_prid, $_prodi, $div, $maxcol, &$hal, $RentangNPM = '') { global $_lf; $hal++; $hdr = str_pad("*** Daftar KRS Mahasiswa ***", $maxcol, ' ', STR_PAD_BOTH) . $_lf; $hdr .= str_pad("Program : {$_prid}", $maxcol, ' ') . $_lf; $hdr .= str_pad("Program Studi : {$_prodi}", 40, ' ') . str_pad("Halaman : {$hal}", 50, ' ', STR_PAD_LEFT) . $_lf; $hdr .= str_pad("Semester : " . NamaTahun($_SESSION['tahun']), 50, ' ') . $_lf . $RentangNPM . $_lf . $div; $hdr .= "No. NPM NAMA T.SKS SKS IPS Kode Nama Matakuliah SKS" . $_lf; $hdr .= $div; return $hdr; }
function HeaderPindahan($tahun, $prodi, $div, $maxcol, &$hal) { global $_lf; $hal++; $hdr = str_pad('*** DAFTAR PENYETARAAN MATA KULIAH PINDAHAN **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf; $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf; $hdr .= "Prodi : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf; $hdr .= $div; $hdr .= str_pad("NO", 6) . str_pad("KODE", 8) . str_pad("MATA KULIAH", 35) . str_pad('SKS', 6) . str_pad('NILAI', 6) . str_pad('GRADE', 4) . str_pad('>>>', 5) . str_pad("KODE", 8) . str_pad("MATA KULIAH", 35) . str_pad('SKS', 6) . str_pad('NILAI', 6) . str_pad('GRADE', 4) . $_lf; $hdr .= $div; return $hdr; }
function Cetak() { global $_lf; echo "<body bgcolor=#EEFFFF>"; // Parameters $pos = $_SESSION['KHS-POS']; $max = $_SESSION['KHS-MAX']; $nmf = $_SESSION['KHS-FILE']; $_khsid = $_SESSION['khsid']; $khsid = $_khsid[$pos]; if ($pos < $max) { // Buat file $f = fopen($nmf, 'a'); // Buat KHS $khs = GetFields("khs khs\r\n left outer join mhsw m on khs.MhswID=m.MhswID\r\n left outer join program prg on khs.ProgramID=prg.ProgramID\r\n left outer join prodi prd on khs.ProdiID=prd.ProdiID", "khs.JumlahMK <> 0 and khs.KHSID", $khsid, "khs.*, m.Nama as NamaMhsw, m.BatasStudi, prg.Nama as PRG, prd.Nama as PRD"); $thn = GetFields("tahun", "ProgramID='{$khs['ProgramID']}' and ProdiID='{$khs['ProdiID']}' and TahunID", $khs['TahunID'], "*"); $bal = $khs['Biaya'] - $khs['Potongan'] - ($khs['Bayar'] + $khs['Tarik']); $prsBal = $bal + $bal * 5 / 100; $_bal = number_format($prsBal); $peringatan = " Anda masih memiliki utang sebesar Rp.{$_bal}. {$_lf} \r\n Anda tidak akan mendapat KHS dan juga tidak dapat mendaftar KRS {$_lf}\r\n sebelum utang ini anda lunasi. {$_lf}\r\n Lakukan pembayaran di Bank sesuai dengan prosedur yang berlaku."; fwrite($f, chr(27) . chr(64) . chr(27) . chr(18) . chr(27) . chr(67) . chr(33)); // chr67+chr33 -> membuat menjadi 33 baris // Buat header $mrghdr = str_pad(' ', 18, ' '); $_BatasStudi = NamaTahun($khs['BatasStudi']); $hdr = $_lf . $_lf . $_lf . $_lf . $mrghdr . $thn['Nama'] . $_lf . $mrghdr . $khs['PRG'] . '/' . $khs['PRD'] . $_lf . $mrghdr . $khs['MhswID'] . $_lf . $mrghdr . $khs['NamaMhsw'] . $_lf . $mrghdr . $_BatasStudi . $_lf . $_lf . $_lf . $_lf . $_lf; fwrite($f, $hdr); /*if ($bal <= 0) { $isi = $_lf . GetIsiKHS($khsid, $khs); } else { $isi = $_lf . "$peringatan" . $_lf.$_lf.$_lf.$_lf.$_lf.$_lf.$_lf; }*/ if ($bal <= 0) { $isi = $_lf . GetIsiKHS($khsid, $khs); } else { $isi = $_lf . "{$peringatan}" . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf; } fwrite($f, $isi); $tgl = date('d-m-Y'); fwrite($f, str_pad(' ', 67) . $tgl . $_lf); fwrite($f, chr(12)); // Tutup file fclose($f); // refresh page echo "<p>Proses KHS: <font size=+2>{$pos}/{$max}</font><br />\r\n\t{$khsid} » {$khs['NamaMhsw']}</p>"; echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>"; } else { echo "<p>Pembuatan file Cetak KHS telah selesai.<br />\r\n\tUntuk memulai mencetak klik: <a href='{$nmf}'><img src='img/printer.gif' border=0></a></p>"; //echo "<p>Untuk Preview Hasil Cetak klik di <a href=blanko.preview.php?nmf=$nmf target=_blank>sini</a></p>"; echo "<p>Untuk melihat preview klik <a href=blanko.preview.php?nmf={$nmf} target=_blank><img src='img/view.png' border=0></a></p>"; } $_SESSION['KHS-POS']++; }
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal) { global $_lf; $hal++; $hdr = str_pad('*** DAFTAR MAHASISWA BARU **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf; $hdr .= "Tahun Akademik :" . NamaTahun($tahun) . $_lf; $hdr .= "Prodi : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf; $hdr .= $div; $hdr .= str_pad("NO", 5) . str_pad("PMBID", 12) . str_pad("NIM/NPM", 12) . str_pad('NAMA', 35) . str_pad("PROGRAM", 12) . str_pad("STATUS", 10) . $_lf; $hdr .= $div; return $hdr; }
function Headerxx($tahun, $prodi, $jenis, $div, $maxcol, &$hal) { global $_lf; $hal++; $NamaJenis = $jenis == 'K' ? "" : '(RESPONSI)'; $hdr = str_pad("*** TANDA TERIMA DISKET NILAI {$NamaJenis} ***", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf; $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf; $hdr .= "Prodi : {$prodi}" . str_pad('Halaman : ' . $hal, 85, ' ', STR_PAD_LEFT) . $_lf; $hdr .= $div; $hdr .= str_pad("NO", 4) . str_pad("KODE MK", 8) . str_pad("NAMA MK", 35) . str_pad('KELAS', 6) . str_pad("JML MHSW", 9) . str_pad("NMR", 5) . str_pad("NAMA DOSEN", 35) . str_pad("| DISKET", 10) . str_pad("| FINAL", 10) . $_lf; $hdr .= $div; return $hdr; }
function Cetak($t = 'UTS') { global $_lf; $jdwl = GetFields('jadwal', 'JadwalID', $_REQUEST['jdwlid'], "*"); $dsn = TRIM($jdwl['DosenID'], '.'); $arrdsn = explode('.', $dsn); $strdsn = empty($arrdsn) ? "GaAdaNih" : implode(',', $arrdsn); $nmdsn = GetArrayTable("select concat(Nama, ', ', Gelar) as DSN from dosen where Login in ({$strdsn}) order by Nama", "Login", "DSN"); // Buat file //$nmf = HOME_FOLDER . DS . "tmp/uts.$_REQUEST[jdwlid].dwoprn"; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); $maxkol = 80; $maxbrs = 40; fwrite($f, chr(27) . chr(77)); // Buat header $div = str_pad('-', $maxkol, '-') . $_lf; $NamaTahun = NamaTahun($jdwl['TahunID']); $adagrade = $t == 'FINAL' ? 'Grade' : ''; $adanilai = $t == 'FINAL' ? ' ' : "Nilai "; $hdr = $_lf . $_lf . str_pad("*** Hasil Nilai {$t} ***", $maxkol, ' ', STR_PAD_BOTH) . $_lf . $_lf . "Semester : " . $NamaTahun . $_lf . "Matakuliah : " . str_pad($jdwl['MKKode'] . ' - ' . $jdwl['Nama'], 30) . $_lf . "Kelas : " . $jdwl['NamaKelas'] . $_lf . "Dosen Pengampu : " . $nmdsn . $_lf . $div . "No. NPM Nama Mahasiswa {$adanilai}{$adagrade}" . $_lf . $div; fwrite($f, $hdr); // Tuliskan isinya $s = "select krs.*, LEFT(m.Nama, 30) as NamaMhsw\r\n from krs krs\r\n left outer join mhsw m on krs.MhswID=m.MhswID\r\n where krs.JadwalID='{$jdwl['JadwalID']}'\r\n order by krs.MhswID"; $r = _query($s); $n = 0; $brs = 0; while ($w = _fetch_array($r)) { $n++; $brs++; $grd = $t == 'FINAL' ? $w['GradeNilai'] : ''; fwrite($f, str_pad($n . '.', 4) . str_pad($w['MhswID'], 15) . ' ' . str_pad($w['NamaMhsw'], 30) . ' ' . str_pad($w[$t], 3, ' ', STR_PAD_LEFT) . ' ' . str_pad($grd, 3) . $_lf); if ($brs > $maxbrs) { $hal++; fwrite($f, $div); $brs = 1; fwrite($f, "Hal. " . $hal . $_lf); fwrite($f, chr(12)); fwrite($f, $hdr); } } fwrite($f, $div); fwrite($f, str_pad(' ', 50) . "Paraf Dosen" . $_lf . $_lf . $_lf . $lf); fwrite($f, str_pad(' ', 50) . $nmdsn); // Tutup file fwrite($f, chr(12)); fclose($f); // Cetak include_once "dwoprn.php"; DownloadDWOPRN($nmf); }
function PerolehanSKS($mhsw) { $_lf = chr(13) . chr(10); $nmf = $_SESSION["PERO-FILE"]; $f = fopen($nmf, 'a'); fwrite($f, chr(27) . chr(18)); // Tampilkan Header $div = str_pad('-', 79, '-') . $_lf; $hdr = str_pad("*** DAFTAR PEROLEHAN SKS ***", 79, ' ', STR_PAD_BOTH) . $_lf . $_lf . "NPM / NAMA : " . $mhsw['MhswID'] . ' ' . $mhsw['Nama'] . $_lf . "FAK / JUR : " . $mhsw['FAK'] . ' / ' . $mhsw['PRD'] . $_lf . "Masa Studi : " . NamaTahun($mhsw['BatasStudi']) . $_lf . "Penasehat Akd. : " . $mhsw['PA'] . $_lf . $div . "No. Kode Matakuliah SKS Nilai" . $_lf . $div; fwrite($f, $hdr); // matakuliah yg diambil $s = "select concat(LEFT(krs.MKKode, 3), ' ', SUBSTRING(krs.MKKode, 4, 3)) as MKKode, \r\n LEFT(mk.Nama, 45) as NamaMK, LEFT(mk.Nama_en, 40) as NamaMK1,\r\n krs.BobotNilai, krs.GradeNilai, krs.SKS\r\n from krsprc krs\r\n left outer join mk mk on krs.MKID=mk.MKID\r\n where \r\n\tkrs.MhswID='{$mhsw['MhswID']}' and krs.BobotNilai > 0\r\n\t\r\n\tand (GradeNilai <> '-' and GradeNilai <> '' and not GradeNilai is NULL)\r\n\t\r\n order by krs.MKKode asc, krs.BobotNilai desc"; $r = _query($s); $n = 0; $brs = 0; $maxbrs = 42; $hal = 0; $mk = ''; $_sks = 0; $_bbt = 0; while ($w = _fetch_array($r)) { if ($mk != $w['MKKode']) { $mk = $w['MKKode']; $n++; $brs++; $NamaMK = $_SESSION['bhs'] == 'id' ? $w['NamaMK'] : $w['NamaMK1']; $_sks += $w['SKS']; $_bbt += $w['SKS'] * $w['BobotNilai']; fwrite($f, str_pad($n . '.', 4) . ' ' . str_pad($w['MKKode'], 10) . ' ' . str_pad($NamaMK, 45) . ' ' . str_pad($w['SKS'], 4, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['GradeNilai'], 3, ' ') . $_lf); if ($brs >= $maxbrs) { $brs = 0; $hal++; fwrite($f, $div . str_pad("Hal. " . $hal, 79, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, chr(12)); fwrite($f, $hdr); } } } $_ipk = $_sks > 0 ? $_bbt / $_sks : 0; fwrite($f, $div); fwrite($f, "Jumlah Kredit yang Telah Diambil: {$_sks} SKS, IPK: " . number_format($_ipk, 2) . $_lf . $div); fwrite($f, str_pad("Dicetak Oleh : " . $_SESSION['_Login'] . ', ' . Date("d-m-Y H:i"), 30, ' ') . $_lf); fwrite($f, chr(12)); fclose($f); }
function Daftar() { global $_lf; if (!empty($_SESSION['DariNPM'])) { $_SESSION['SampaiNPM'] = empty($_SESSION['SampaiNPM']) ? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM']; $_npm = "and '{$_SESSION['DariNPM']}' <= m.MhswID and m.MhswID <= '{$_SESSION['SampaiNPM']}' "; } else { $_npm = ''; } $prd = empty($_SESSION['prodi']) ? '' : "and m.ProdiID = '{$_SESSION['prodi']}'"; $s = "select m.* from mhsw m \r\n where m.StatusMhswID = '{$_SESSION['status']}' {$prd} {$_npm} "; $r = _query($s); $nmf = "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(77)); // parameter $mxc = 160; $mxb = 50; $brs = 1; $grs = str_pad('-', $mxc, '-') . $_lf; $n = 0; $NamJur = GetaField('prodi', "ProdiID", $_SESSION['prodi'], "Nama"); $NamaJudul = $_SESSION['status'] == 'D' ? "Drop Out (DO)" : "Keluar"; $hdr = str_pad("** Daftar Mahasiswa {$NamaJudul}", $mxc, ' ', STR_PAD_BOTH) . $_lf . $_lf . "SEMESTER : " . NamaTahun($_SESSION['tahun']) . $_lf . "JURUSAN : " . $NamJur . $_lf . $grs . "No. NIM NAMA NO SK TANGGAL SK CATATAN" . $_lf . $grs; fwrite($f, $hdr); while ($w = _fetch_array($r)) { $n++; $brs++; if ($brs >= $mxb) { $brs = 0; fwrite($f, str_pad("Bersambung...", $mxc, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, chr(12)); fwrite($f, $hdr); } $isi = str_pad($n . '. ', 4) . str_pad($w['MhswID'], 10) . str_pad($w['Nama'], 40) . str_pad($w['SKKeluar'], 30) . str_pad($w['TglSKKeluar'], 15) . str_pad($w['CatatanKeluar'], 30) . $_lf; fwrite($f, $isi); } fwrite($f, $grs); fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 60) . str_pad("Akhir Laporan", 100)); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, 'akd.lap', 0); }
function CetakLabelDisket() { global $_lf, $_HeaderPrn; $tahun = $_REQUEST['tahun']; $prodi = $_REQUEST['prodi']; $prid = $_REQUEST['prid']; $jadwalid = $_REQUEST['JadwalID']; $asal = $_REQUEST['asal'] + 0; $labeldskt = HOME_FOLDER . DS . "tmp/labeldisket.dwoprn"; $mrg = str_pad(' ', 5, ' '); $jenisctk = $asal > 0 ? "and j.JadwalID = {$jadwalid}" : ""; $s = "select j.MKKode, j.Nama, j.NamaKelas, j.SKS, j.SKSAsli, mk.Sesi, j.JenisJadwalID, j.DosenID,\r\n concat(d.Nama, ', ', d.Gelar) as DSN,\r\n time_format(j.JamMulai, '%H:%i') as JM, time_format(j.JamSelesai, '%H:%i') as JS\r\n from jadwal j\r\n left outer join dosen d on j.DosenID=d.Login\r\n left outer join mk mk on j.MKID=mk.MKID\r\n where j.TahunID='{$tahun}'\r\n and INSTR(j.ProgramID, '.{$prid}.') > 0\r\n and INSTR(j.ProdiID, '.{$prodi}.') > 0\r\n\t\t\t{$jenisctk}\r\n\t\tgroup by j.MKKode, j.NamaKelas, j.JenisJadwalID\r\n order by j.MKKode, j.NamaKelas, j.JenisJadwalID"; $r = _query($s); //echo "<pre>$s</pre>"; //exit; $f = fopen($labeldskt, 'w'); $n = 0; fwrite($f, $_HeaderPrn); while ($w = _fetch_array($r)) { $rps = $w['JenisJadwalID'] == 'K' ? '' : "(R)"; $n++; fwrite($f, chr(27) . chr(15)); fwrite($f, $mrg . NamaTahun($tahun) . $_lf); fwrite($f, chr(27) . chr(119) . '0' . $_lf); fwrite($f, chr(27) . chr(15)); fwrite($f, $mrg . $w['MKKode'] . ' ' . $w['Nama'] . ' ' . $rps . $_lf); fwrite($f, $mrg . "KELAS : " . $w['NamaKelas'] . $_lf); fwrite($f, $mrg . $w['DosenID'] . ' ' . $w['DSN'] . $_lf); //fwrite($f, $mrg . $w['HR'].', '.$w['JM'].' - '.$w['JS'].$_lf); fwrite($f, chr(27) . chr(18)); fwrite($f, $_HeaderPrn); fwrite($f, $_lf . $_lf . $_lf); } fwrite($f, chr(27) . chr(18) . chr(67) . chr(66)); fclose($f); include_once "dwoprn.php"; DownloadDWOPRN($labeldskt); }
function Daftar() { global $_lf, $pilstatus; $whr = array(); if (!empty($_SESSION['prodi'])) { $whr[] = "m.ProdiID='{$_SESSION['prodi']}'"; } if (!empty($_SESSION['prid'])) { $whr[] = "m.ProgramID='{$_SESSION['prid']}'"; } if (!empty($_SESSION['angkat'])) { $whr[] = "m.TahunID='{$_SESSION['angkat']}'"; } $_whr = implode(" and ", $whr); if (!empty($_whr)) { $_whr = " and " . $_whr; } $_u = explode('~', $pilstatus[$_SESSION['_pilstatus']]); $_key = $_u[1]; // Query $pilta = GetArrayTable("select TahunID from khs where TahunID <= '{$_SESSION['tahun']}' and right(TahunID, 1) <> 3 group by TahunID order by TahunID DESC limit 0,{$_SESSION['banyak']}", 'TahunID', 'TahunID'); $s = "select m.MhswID, LEFT(m.Nama, 25) as Nama, count(khs.MhswID) as tot, KHSID\r\n from khs \r\n left outer join mhsw m on khs.MhswID=m.MhswID\r\n where khs.TahunID in ({$pilta}) {$_whr}\r\n\t and khs.StatusMhswID = '{$_key}' \r\n\tgroup by khs.MhswID\r\n order by khs.MhswID "; //echo "<pre>$s</pre>"; $r = _query($s); // Buat file $MaxCol = 114; $nmf = "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(77)); $div = str_pad('-', $MaxCol, '-') . $_lf; // parameter2 $_prodi = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama'); $_prid = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama'); $n = 0; $hal = 1; $brs = 0; $maxbrs = 50; $_Tgl = Date("d-m-Y H:i"); $Head = $_key == 'C' ? "*** Daftar Mahasiswa Cuti {$_SESSION['banyak']} Semester Berturut-turut ***" : "*** Daftar Mahasiswa Bolos {$_SESSION['banyak']} Semester Berturut-turut ***"; // Buat header $hdr = str_pad($Head, $MaxCol, ' ', STR_PAD_BOTH) . $_lf . $_lf; $hdr .= "Priode : " . NamaTahun($_SESSION['tahun']) . $_lf; $hdr .= "Prodi \t: {$_prodi}" . $_lf; $hdr .= "Program : {$_prid}" . $_lf; $hdr .= $div; $hdr .= "No. NPM Nama SEMESTER" . $_lf . $div; fwrite($f, $hdr); // Tampilkan while ($w = _fetch_array($r)) { //if($w['tot'] >= $_SESSION['banyak']){ //$n++; $brs++; //if ($brs > $maxbrs) { // $hal++; $brs =1; // fwrite($f, $div); // fwrite($f, chr(12)); // fwrite($f, $hdr); //} $MH = CariBerurutan($_key, $pilta, $w, $hdr, $brs, $maxbrs, $div, $n); //$DET = GetFields("mhsw", "MhswID", $MH, "Nama, MhswID"); //$isi = str_pad($n.'.', 4, ' ') . ' ' . //str_pad($DET['MhswID'], 12) . ' '. //str_pad($DET['Nama'], 29) . ' '. //$pilta. //$_lf; fwrite($f, $MH); //} } fwrite($f, $div); fwrite($f, str_pad("Akhir laporan", 0, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 20, ' ') . str_pad("Dicetak Tgl : " . $_Tgl, 90, ' ', STR_PAD_LEFT) . $_lf . $_lf); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap"); }
function BuatHeaderDulu($jdwl, $p) { global $lbr; $NamaTahun = NamaTahun($jdwl['TahunID']); $NamaProdi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $jdwl['ProdiID'], 'Nama'); $TagTambahan = $jdwl['Tambahan'] == 'Y' ? "<b>( {$jdwl['_NamaJenisJadwal']} )</b>" : ""; $arr = array(); $arr[] = array('Matakuliah', ':', $jdwl['MKKode'], 'Dosen Pengasuh', ':', $jdwl['DSN']); $arr[] = array('Matakuliah', ':', $jdwl['Nama'] . ' ' . $TagTambahan, 'Kelas', ':', $jdwl['namaKelas'] . ' / ' . $jdwl['ProgramID']); $arr[] = array('Semester / SKS', ':', $jdwl['Sesi'] . ' / ' . $jdwl['SKS'], 'Program Studi', ':', $NamaProdi); $arr[] = array('Tahun Akademik', ':', $NamaTahun, 'Kehadiran', ':', $jdwl['Kehadiran'] . ' / ' . $jdwl['RencanaKehadiran']); $p->AddPage('P'); $p->SetFont('Helvetica', 'B', 12); $p->Cell($lbr, 6, "Laporan Kehadiran Mahasiswa", 0, 1, 'C'); $t = 5; $p->SetFont('Helvetica', '', 9); foreach ($arr as $a) { $p->Cell(25, $t, $a[0], 0, 0); $p->Cell(4, $t, $a[1], 0, 0); $p->Cell(80, $t, $a[2], 0, 0); $p->Cell(25, $t, $a[3], 0, 0); $p->Cell(4, $t, $a[4], 0, 0); $p->Cell(50, $t, $a[5], 0, 0); $p->Ln($t); } $p->Ln(4); }
// Jika sdh ada data, maka edit if (!empty($beaBMDID)) { $s = "update beasiswamhswdetail set Beasiswa={$Beasiswa}, LoginEdit='{$_SESSION['_Login']}',\r\n TanggalEdit=now()\r\n where BeasiswaMhswDetailID={$beaBMDID}"; $r = _query($s); } else { if ($Beasiswa > 0) { $jml = GetaField('bipotmhsw', "MhswID='{$bm['MhswID']}' and TahunID='{$bm['TahunID']}' and BIPOTNamaID", $_bnid, "sum(Jumlah * Besar)") + 0; $s = "insert into beasiswamhswdetail\r\n (BeasiswaMhswID, MhswID, BIPOTNamaID, Jumlah, Beasiswa,\r\n LoginBuat, TanggalBuat)\r\n values ({$beaBMID}, '{$bm['MhswID']}', {$_bnid}, {$jml}, {$Beasiswa},\r\n '{$_SESSION['_Login']}', now())"; $r = _query($s); } } //echo "$i. " . $BNID[$i] . " » $beaBMDID <br />"; } UpdateBesarBeasiswaMhsw($beaBMID); DftrBea(); } function UpdateBesarBeasiswaMhsw($BMID) { $jml = GetaField('beasiswamhswdetail', 'BeasiswaMhswID', $BMID, "sum(Beasiswa)") + 0; $s = "update beasiswamhsw set Besar={$jml} where BeasiswaMhswID={$BMID}"; $r = _query($s); } // *** Parameters *** $prodi = GetSetVar('prodi'); $prid = GetSetVar('prid'); $tahun = GetSetVar('tahun'); $BeasiswaID = GetSetVar('BeasiswaID'); // *** Main *** $NTahun = NamaTahun($tahun); TampilkanJudul("Daftar Penerima Beasiswa {$NTahun}"); TampilkanTahunProdiProgram('beasiswa', '');
function daftar() { global $_lf; DaftarJadwal(); $s = "SELECT k.MKKode, mk.Nama, j.NamaKelas, j.JumlahMhswKRS as Jumlah, j.JumlahMhsw, \r\n\t\t\t\t(j.JumlahMhswKRS - j.JumlahMhsw) as Selisih\r\n\t\t\t\tFROM krstemp k\r\n\t\t\t\tLEFT OUTER JOIN jadwal j ON j.JadwalID = k.JadwalID\r\n\t\t\t\tLEFT OUTER JOIN mhsw m ON k.MhswID = m.MhswID\r\n\t\t\t\tLEFT OUTER JOIN mk ON k.MKID = mk.MKID\r\n\t\t\t\tWHERE k.tahunid = {$_SESSION['tahun']}\r\n\t\t\t\tAND m.ProdiID = '{$_SESSION['prodi']}'\r\n\t\t\t\t\r\n\t\t\t\tAND j.JadwalSer = '0'\r\n\t\t\t\tAND j.JenisJadwalID = 'K'\r\n\t\t\t\tGROUP BY j.JadwalID\r\n\t\t\t\tORDER BY k.MKKode ASC"; $r = _query($s); $MaxCol = 114; $nmf = "tmp/{$_SESSION['_Login']}.{$_SESSION['prodi']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15)); $div = str_pad('-', $MaxCol, '-') . $_lf; $_prodi = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama'); $_prid = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama'); $n = 0; $hal = 1; $n2 = 0; $brs = 0; $maxbrs = 50; $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec / $maxbrs); echo "<p><a href='?mnux=akd.lap'>Kembali</a> | <a href=dwoprn.php?f={$nmf}>Cetak Laporan</a></p>"; echo "<p><font color=red>* </font><i>Jumlah Mahasiswa yang mendaftar KRS</i></p>"; echo "<p><font color=red>** </font><i>Jumlah Mahasiswa yang sudah mencetak KSS</i></p>"; echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr>\r\n <th class=ttl>#</th>\r\n <th class=ttl>Kode</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Kelas</th>\r\n\t\t<th class=ttl>Jml Terdaftar KRS<font color=red> *</font></th>\r\n\t\t<th class=ttl>Jml Terdaftar Kuliah<font color=red> **</font></th>\r\n\t\t<th class=ttl>Selisih</th>\r\n </tr>"; $hdr = str_pad("*** Laporan Rekap Jumlah Mahasiswa KRS dan Terdaftar KRS ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf; $hdr .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf; $hdr .= "Prodi : {$_prodi}" . $_lf; $hdr .= "Program : {$_prid}" . $_lf; $hdr .= "* Jumlah Mahasiswa yang mendaftar KRS" . $_lf; $hdr .= "** Jumlah Mahasiswa yang sudah mencetak KSS" . $_lf; $hdr .= $div; $hdr .= str_pad("NO", 4) . str_pad('KODE', 8) . str_pad('NAMA', 40) . str_pad('KELAS', 6) . str_pad('JML TERDAFTAR KRS *', 22, ' ', STR_PAD_LEFT) . str_pad('JML TERDAFTAR KULIAH **', 26, ' ', STR_PAD_LEFT) . $_lf . $div; fwrite($f, $hdr); while ($w = _fetch_array($r)) { $n++; $_selisih = $w['Jumlah'] - $w['JumlahMhsw']; $selisih = $_selisih == 0 ? " " : $_selisih; echo "<tr>\r\n\t\t<td class=inp>{$n}</td>\r\n\t\t<td class=ul>{$w['MKKode']}</td>\r\n\t\t<td class=ul>{$w['Nama']}</td>\r\n\t\t<td class=ul>{$w['NamaKelas']}</td>\r\n\t\t<td class=ul align=right>{$w['Jumlah']}</td>\r\n\t\t<td class=ul align=right>{$w['JumlahMhsw']}</td>\r\n\t\t<td class=ul align=right>{$selisih}</td></tr>"; $brs++; if ($brs > $maxbrs) { $isi .= $div; $isi .= str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf; $hal++; $brs = 1; $isi .= chr(12) . $_lf; $isi .= $hdr; } if ($kdmk != $w['MKKode']) { $kdmk = $w['MKKode']; $_kdmk = $kdmk; $n2++; } else { $_kdmk = ''; } if ($nmmk != $w['Nama']) { $nmmk = $w['Nama']; $_nmmk = $nmmk; } else { $_nmmk = ''; } if ($n_ != $n2) { $n_ = $n2; $_n_ = $n_ . "."; } else { $_n_ = ''; } $isi .= str_pad($_n_, 4) . str_pad($_kdmk, 8) . str_pad($_nmmk, 40) . str_pad($w['NamaKelas'], 6) . str_pad($w['Jumlah'], 22, ' ', STR_PAD_LEFT) . str_pad($w['JumlahMhsw'], 26, ' ', STR_PAD_LEFT) . $_lf; } fwrite($f, $isi); fwrite($f, $div); fwrite($f, str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, str_pad('Dicetak oleh : ' . $_SESSION['_Login'], 85, ' ') . str_pad('Dibuat : ' . date("d-m-Y H:i"), 29, ' ')); fwrite($f, chr(12)); fclose($f); echo "</table></p>"; }
function Daftar(){ global $_lf; $prodix = (empty($_SESSION['prodi'])) ? '' : "and k.prodiid = '$_SESSION[prodi]'"; if ((!empty($_SESSION['DariNPM'])) and (!empty($_SESSION['SampaiNPM']))) { $_SESSION['SampaiNPM'] = (empty($_SESSION['SampaiNPM']))? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM']; $_npm = "and '$_SESSION[DariNPM]' <= k.MhswID and k.MhswID <= '$_SESSION[SampaiNPM]' "; } else $_npm = ''; $jen = $_REQUEST['jen']; if ($jen == 1) { /*$Qjen = "and (Biaya - Bayar - Potongan + Tarik) > 0";*/ $p='>'; $jdls = "Hutang";} elseif ($jen == -1) {$Qjen = /*"and (Biaya - Bayar - Potongan + Tarik) < 0";*/ $p='<='; $jdls = "Deposit";} else {$Qjen = ''; $jdls = 'Hutang/Deposit';} $s1 = "select k.*, m.Nama from khs k left outer join mhsw m on k.mhswid = m.mhswid where k.tahunid = '$_SESSION[tahun]' and k.statusmhswid in ('A') $_npm $prodix order by k.MhswID"; BuatArrayHeader($hdr, $hdrid); for ($i=0; $i<sizeof($hdr); $i++) { $gab[$i] = "$hdr[$i]"; } $MaxCol = 262; $maxbrs = 11; $brs = 0; //var_dump($gab); $nmf = HOME_FOLDER . DS . "tmp/rinci.$_SESSION[_Login].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; $margin = str_pad(' ',33,' '); //$tes = str_ $sprhdr = str_pad("*** Laporan Rincian Kewajiban dan Pembayaran Mahasiswa ***",$MaxCol,' ',STR_PAD_BOTH).$_lf.$_lf.$_lf; $hdr = $margin. str_pad($gab[1],16,' ').str_pad($gab[4],16,' ').str_pad($gab[3],16,' ').str_pad($gab[15],16,' ').str_pad($gab[19],16,' ').str_pad(substr("Pot.U.K",0,11),16,' ').str_pad('|',3,' ').str_pad($gab[1],16,' ').str_pad($gab[4],16,' ').str_pad($gab[3],16,' ').str_pad($gab[15],16,' ').str_pad($gab[19],16,' ').str_pad("Ujian Skripsi",16,' ').str_pad(' ',16,' ').str_pad(' ',16,' ').$_lf; $hdr .= str_pad("No.",5,' ').str_pad("NPM",10,' ').str_pad('Nama',18,' ').str_pad($gab[7],16,' ').str_pad($gab[2],16,' ').str_pad($gab[8],16,' ').str_pad($gab[16],16,' ').str_pad(substr($gab[20],0,17),16,' ').str_pad("Pot Mhsw Baru",16,' ').str_pad("|",3,' ').str_pad($gab[7],16,' ').str_pad($gab[2],16,' ').str_pad($gab[8],16,' ').str_pad($gab[16],16,' ').str_pad(substr($gab[20],0,17),16,' ').str_pad("Lain-Lain",16,' ').str_pad(' TARIK',16,' ').str_pad($jdls,15,' ',STR_PAD_LEFT).$_lf; $hdr .= $margin. str_pad($gab[0],16,' ').str_pad($gab[17],16,' ').str_pad($gab[13],16,' ').str_pad($gab[18],16,' ').str_pad($gab[9],16,' ').str_pad("Total Tagih",16,' ').str_pad('|',3,' ').str_pad($gab[0],16,' ').str_pad($gab[17],16,' ').str_pad($gab[13],16,' ').str_pad($gab[18],16,' ').str_pad($gab[9],16,' ').str_pad("Total Bayar",16,' ').str_pad(' ',16,' ').str_pad(' ',30,' ').$_lf; $hdr2 = " TAGIHAN | PEMBAYARAN ".$_lf; $n = 0; $r1 = _query($s1); $pec = array(); $pec2 = array(); //$_hdr = implode('', $gab); //$idnya = Getafield('bipotnama','trxid',1,'Bipotnamaid'); //$ff2 = str_pad("No.",4,' ') . str_pad("NPM",11,' ').$_hdr.str_pad("Total",12,' ').str_pad('Bayar',12,' ').str_pad('Saldo',12,' ').$_lf; if (empty($_SESSION['prodi'])){} else { $prodis = GetaField('prodi','ProdiID',$_SESSION['prodi'],'Nama'); $prodiini = "Fakultas : " . str_pad($_SESSION['prodi']. " - " . $prodis, 30,' '). $_lf; } fwrite($f, $sprhdr); fwrite($f, str_pad("Jenis : ". $jdls, 30, ' ').$_lf); fwrite($f, str_pad("Periode : ". NamaTahun($_SESSION['tahun']),30,' ').$_lf); fwrite($f, $prodiini); fwrite($f, str_pad("Tanggal : ". date("d-m-Y"),30,' ').$_lf); fwrite($f, $div); fwrite($f, $hdr2); fwrite($f, $div); fwrite($f, $hdr); fwrite($f, $div); while ($w = _fetch_array($r1)){ //$detail = GetDetailBayar($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid); //$detailb = GetDetailBayar2($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid); $detail = GetDetailBayar($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid); $detail2 = GetDetailBayar2($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid); $totw = array_sum($detail); $totq = array_sum($detail2); $diskon = GetaField('bipotmhsw', "TrxID=-1 and TahunID='$_SESSION[tahun]' and MhswID", $w['MhswID'], 'Jumlah')+0; $saldo = $totw - $totq - $diskon; if ($saldo > 0) { $n++; $brs++; if($brs > $maxbrs){ $hal++; $brs = 1; fwrite($f, chr(12)); fwrite($f, $sprhdr); fwrite($f,$div); fwrite($f, $hdr2); fwrite($f,$div); fwrite($f,$hdr); fwrite($f,$div); } $Pot = GetFields("bipotmhsw","trxid = -1 and tahunid = '$_SESSION[tahun]' and mhswid",$w['MhswID'],"Besar,Dibayar"); $lain = GetFields("bayarmhsw","tahunid = '$_SESSION[tahun]' and MhswID",$w['MhswID'],"Sum(JumlahLain) as JML"); //$totw = array_sum($detail); //$totq = array_sum($detail2); $angkatan = Getafield('mhsw',"mhswid",$w['MhswID'],'left(Nama,16)'); $bm = GetFields("khs","TahunID = '$_SESSION[tahun]' and mhswid",$w['MhswID'],"Biaya, Potongan, Bayar"); //$saldo = $totw - $totq; //$bm['Bayar']- $bm['Biaya'] + $bm['Potongan'] - $w['Tarik']; $isi_ = str_pad($w['MhswID'],11,' ').str_pad($angkatan,34).$_lf; $isi_ .= str_pad(' ',11,' ').str_pad(' ',22,' ').$_lf; $isi_ .= str_pad(' ',11,' ').str_pad(' ',22,' ').$_lf; $isi = str_pad("$n.",5,' ').str_pad($w['MhswID'],10,' ').str_pad($angkatan,16).str_pad(number_format($detail[1]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[4]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[3]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[15]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[19]),16,' ',STR_PAD_LEFT).str_pad(number_format($Pot['Dibayar']),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[1]),17,' ',STR_PAD_LEFT).str_pad(number_format($detail2[4]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[3]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[15]),19,' ',STR_PAD_LEFT).str_pad(number_format($detail2[19]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[14]),16,' ',STR_PAD_LEFT).str_pad(number_format(0),16,' ',STR_PAD_LEFT).str_pad(' ',16,' ',STR_PAD_LEFT).$_lf; $isi .= str_pad(' ',11,' ').str_pad(' ',20,' '). str_pad(number_format($detail[7]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[2]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[8]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[16]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[20]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[12]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[7]),17,' ',STR_PAD_LEFT).str_pad(number_format($detail2[2]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[8]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[16]),19,' ',STR_PAD_LEFT).str_pad(number_format($detail2[20]),16,' ',STR_PAD_LEFT).str_pad(number_format($lain['JML']),16,' ',STR_PAD_LEFT).str_pad(number_format($w['Tarik']),16,' ',STR_PAD_LEFT).str_pad(number_format($saldo),16,' ',STR_PAD_LEFT).$_lf; $isi .= str_pad(' ',11,' ').str_pad(' ',20,' '). str_pad(number_format($detail[0]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[17]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[13]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[18]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[9]),16,' ',STR_PAD_LEFT).str_pad(number_format($bm['Biaya']),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[0]),17,' ',STR_PAD_LEFT).str_pad(number_format($detail2[17]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[13]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[18]),19,' ',STR_PAD_LEFT).str_pad(number_format($detail2[9]),16,' ',STR_PAD_LEFT).str_pad(number_format($bm['Bayar']),16,' ',STR_PAD_LEFT).str_pad(number_format(0),16,' ',STR_PAD_LEFT).str_pad(' ',16,' ',STR_PAD_LEFT).$_lf.$div; $tot = array_sum($detail); $GTot += $tot; $Gbayar += $w['Bayar']; fwrite($f,$isi); //.str_pad(number_format($tot),12,' ',STR_PAD_LEFT).str_pad(number_format($w['Bayar']),12,' ',STR_PAD_LEFT).str_pad(number_format($saldo),12,' ',STR_PAD_LEFT).$_lf; $total1 += $detail[1] + $detail[7] + $detail[0]; $total2 += $detail[4] + $detail[2] + $detail[17]; $total3 += $detail[3] + $detail[8] + $detail[13]; $total4 += $detail[15] + $detail[16] + $detail[18]; $total5 += $detail[19] + $detail[20] + $detail[9]; $total6 += $detail[14] + $detail[12] + ($bm['Biaya']- $bm['Potongan']); $totalb1 += $detail2[1] + $detail2[7] + $detail2[0]; $totalb2 += $detail2[4] + $detail2[2] + $detail2[17]; $totalb3 += $detail2[3] + $detail2[8] + $detail2[13]; $totalb4 += $detail2[15] + $detail2[16] + $detail2[18]; $totalb5 += $detail2[19] + $detail2[20] + $detail2[9]; $totalb6 += $detail2[14] + $detail2[12] + $bm['Bayar']; $gtotal += $saldo; $tar += $w['Tarik']; } } for ($k=0; $k<sizeof($totl);$k++) $tott[$k] = str_pad(number_format($totl[$k]),12,' ',STR_PAD_LEFT); $gsal = $gtot - $Gbayar; $ffs = str_pad(' ',4,' ').str_pad("Jumlah Total",25,' ').str_pad(number_format($total1),17,' ',STR_PAD_LEFT). str_pad(number_format($total2),16,' ',STR_PAD_LEFT). str_pad(number_format($total3),16,' ',STR_PAD_LEFT). str_pad(number_format($total4),16,' ',STR_PAD_LEFT). str_pad(number_format($total5),16,' ',STR_PAD_LEFT). str_pad(number_format($total6),16,' ',STR_PAD_LEFT). str_pad(number_format($totalb1),16,' ',STR_PAD_LEFT). str_pad(number_format($totalb2),16,' ',STR_PAD_LEFT). str_pad(number_format($totalb3),16,' ',STR_PAD_LEFT). str_pad(number_format($totalb4),19,' ',STR_PAD_LEFT). str_pad(number_format($totalb5),17,' ',STR_PAD_LEFT). str_pad(number_format($totalb6),15,' ',STR_PAD_LEFT). str_pad(number_format($tar),16,' ',STR_PAD_LEFT). str_pad(number_format($gtotal),16,' ',STR_PAD_LEFT). $_lf; //fwrite($f, $div); fwrite($f, $ffs); fwrite($f, $div); fwrite($f, str_pad("Dicetak : ".date("d-m-Y H:i"),10,' ').str_pad("Akhir laporan",236, ' ', STR_PAD_LEFT).$_lf); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "keu.lap.rincimahasiswa"); }
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal) { global $_lf; $hal++; $hdr = str_pad('*** DAFTAR JUMLAH SKS MAHASISWA **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf; $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf; $hdr .= "Prodi : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf; $hdr .= "Minimal SKS : {$_SESSION['jmlsks']}" . $_lf; $hdr .= $div; $hdr .= str_pad("NO", 6) . str_pad("NIM", 12) . str_pad("NAMA", 35) . str_pad('TOTAL SKS', 17) . str_pad('STATUS', 13) . $_lf; $hdr .= $div; return $hdr; }
function TampilkanPA() { global $_lf; $whr = array(); if (!empty($_SESSION['dsnid'])) { $whr[] = "m.PenasehatAkademik='{$_SESSION['dsnid']}' "; } if (!empty($_SESSION['DariNPM']) && !empty($_SESSION['SampaiNPM'])) { $whr[] = " '{$_SESSION['DariNPM']}' <= m.MhswID and m.MhswID <= '{$_SESSION['SampaiNPM']}' "; } // Status Mhsw if (!empty($_SESSION['StatusMhswID'])) { $arrsm = explode(',', $_SESSION['StatusMhswID']); $strsm = ''; foreach ($arrsm as $val) { $strsm .= ",'{$val}'"; } $strsm = TRIM($strsm, ','); $whr[] = "k.StatusMhswID in ({$strsm})"; } $_whr = implode(" and ", $whr); if (!empty($_whr)) { $_whr = " and " . $_whr; } $s = "select m.MhswID, m.Nama, m.TotalSKS, m.IPK, m.PenasehatAkademik,\r\n m.BatasStudi, k.StatusMhswID, k.TotalSKS as SKSSemester, k.IPS,\r\n concat(d.Nama, ', ', d.Gelar) as DSN, sm.Nama as STT\r\n from khs k \r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n left outer join dosen d on m.PenasehatAkademik=d.Login\r\n left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID\r\n where k.TahunID='{$_SESSION['tahun']}' and k.ProdiID='{$_SESSION['prodi']}'\r\n and m.StatusMhswID in ('A')\r\n {$_whr}\r\n order by m.PenasehatAkademik, m.MhswID"; $r = _query($s); // Cetak $nmf = "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(5)); $mxb = 52; $mxc = 114; $grs = str_pad('-', $mxc, '-') . $_lf; $dsn = 'qwertyuiop'; $n = 0; $hal = 0; $brs = 0; $def = $dsn; $smt = GetaField('tahun', "ProdiID='{$_SESSION['prodi']}' and ProgramID='{$_SESSION['prid']}' and TahunID", $_SESSION['tahun'], 'Nama'); $fp = GetaField("prodi p left outer join fakultas f on p.FakultasID=f.FakultasID", "p.ProdiID", $_SESSION['prodi'], "concat(f.Nama, '/', p.Nama)"); $tgl = date('d-m-Y H:i'); $jumlahrec = _num_rows($r); $jumhal = ceil($jumlahrec / 35); while ($w = _fetch_array($r)) { if ($brs > $mxb) { fwrite($f, chr(12)); $brs = 0; $hal++; } if ($dsn != $w['PenasehatAkademik']) { $hal++; if ($dsn != $def) { fwrite($f, $grs . "Dicetak oleh: {$_SESSION['_Login']}" . $_lf); fwrite($f, chr(12)); } $dsn = $w['PenasehatAkademik']; fwrite($f, str_pad('*** Daftar P.A. dan Mahasiswa ***', $mxc, ' ', STR_PAD_BOTH) . $_lf . $_lf . str_pad('Semester : ' . $smt, $mxc / 2) . str_pad("Tanggal : {$tgl}", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf . str_pad('Fak/Jur : ' . $fp, $mxc / 2) . str_pad("Form : AKD518", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf . str_pad('P.A. : ' . $w['PenasehatAkademik'] . ' - ' . $w['DSN'], $mxc / 2) . str_pad("Hal. {$hal}", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf . $grs); fwrite($f, " Ambil Total" . $_lf); fwrite($f, "No. N.P.M Nama Mahasiswa SKS Status IPK SKS Batas Studi Cuti " . $_lf . $grs); $n = 0; $brs = 0; } $n++; $brs++; $bs = NamaTahun($w['BatasStudi']); $ct = AmbilDaftarCutiMhsw($w['MhswID']); fwrite($f, str_pad($n . '.', 5) . str_pad($w['MhswID'], 15) . str_pad($w['Nama'], 30) . str_pad($w['SKSSemester'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['STT'], 10) . str_pad($w['IPK'], 6, ' ', STR_PAD_LEFT) . str_pad($w['TotalSKS'], 6, ' ', STR_PAD_LEFT) . ' ' . str_pad($bs, 20) . $ct . $_lf); } fwrite($f, $grs . "Dicetak oleh: {$_SESSION['_Login']}"); for ($i = $brs; $i <= $mxb; $i++) { fwrite($f, $_lf); } fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, 'akd.lap'); }
function CetakFormulirCuti($mhswid, $mhsw, $tahun) { global $_lf, $KodeID; // Data mhsw //$krs = GetFields("krs", "StatusKRSID='A' and MhswID", $mhsw['MhswID'], "sum(SKS) as TSKS, format(sum(SKS*BobotNilai)/sum(SKS), 2) as IPK"); //$_ips = GetFields('krs left join jadwal j on krs.JadwalID = j.JadwalID', "(j.JenisJadwalID is null or j.JenisJadwalID <> 'R') and StatusKRSID='A' and (GradeNilai<>'-' or GradeNilai <> '' and not GradeNilai is NULL) and krs.Final = 'Y' and krs.MhswID",$mhswid, //"sum(krs.SKS * BobotNilai)/sum(krs.SKS) as IPS, sum(krs.SKS) as SKS"); $thn = GetFields('tahun', "ProgramID='{$mhsw['ProgramID']}' and ProdiID='{$mhsw['ProdiID']}' and TahunID", $tahun, "*"); $khs = GetFields('khs', "TahunID='{$tahun}' and MhswID", $mhswid, "*"); $regakhr = GetaField('khs', "TahunID < '{$tahun}' and StatusMhswID='A' and MhswID", $mhswid, 'TahunID', "Order By TahunID DESC"); //$_Balance = $khs['Biaya'] - $khs['Potongan'] + $khs['Tarik'] - $khs['Bayar']; $bolos = GetAfield('khs left outer join tahun on tahun.TahunID = khs.TahunID', "khs.TahunID < '{$tahun}' and tahun.ProdiID = '{$khs['ProdiID']}' and khs.TahunID > '{$regakhr}' and tahun.SP = 'N' and StatusMhswID = 'P' and MhswID", $mhswid, "count(khs.TahunID)"); $_Balance = HitungHutang($mhswid, $regakhr); if ($_Balance >= 0) { $jdl = "Kewajiban Keuangan"; } else { $jdl = "Deposit Sebesar"; $_Balance = str_replace('-', '', $_Balance); } $bls = $bolos != 0 ? "(Bolos {$bolos} semester)" : ''; $Balance = number_format($_Balance); $pernah = GetArrayTable("select TahunID from khs where MhswID='{$mhswid}' and StatusMhswID='C' order by TahunID", "TahunID", "TahunID", ', '); $pernah = empty($pernah) ? '-' : $pernah; $TglLahir = FormatTanggal($mhsw['TanggalLahir']); // Buat file $nmf = HOME_FOLDER . DS . "tmp/cuti.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(18)); fwrite($f, chr(27) . chr(108) . chr(5)); // margin fwrite($f, $_lf . $_lf); // Tuliskan data $mrg = ' '; fwrite($f, str_pad("Formulir Permohonan Cuti Kuliah", 79, ' ', STR_PAD_BOTH) . $_lf . $_lf); fwrite($f, "Saya, yang bertandatangan di bawah ini:" . $_lf); fwrite($f, $mrg . str_pad("Nama Mahasiswa", 25, ' ') . " : " . $mhsw['Nama'] . $_lf); fwrite($f, $mrg . str_pad("NPM", 25, ' ') . " : " . $mhsw['MhswID'] . $_lf); fwrite($f, $mrg . str_pad("Tempat, Tgl Lahir", 25, ' ') . " : " . $mhsw['TempatLahir'] . ', ' . $TglLahir . $_lf); fwrite($f, $mrg . str_pad("SKS yang telah diambil", 25, ' ') . " : " . $mhsw['TotalSKS'] . ' SKS' . $_lf); fwrite($f, $mrg . str_pad("Registrasi Akhir", 25, ' ') . " : " . NamaTahun($regakhr) . " {$bls}" . $_lf); fwrite($f, $mrg . str_pad("IPK (Index Prestasi Kum.)", 25, ' ') . " : " . $mhsw['IPK'] . $_lf); fwrite($f, $mrg . str_pad("Alamat", 25, ' ') . " : " . $mhsw['Alamat'] . $_lf); fwrite($f, $mrg . str_pad(' ', 25, ' ') . ' ' . $mhsw['Kota'] . ' ' . $mhsw['KodePos'] . $_lf); fwrite($f, $mrg . str_pad($jdl, 25, ' ') . " : Rp. " . $Balance . $_lf); fwrite($f, $mrg . str_pad("Pernah cuti kuliah", 25, ' ') . " : " . $pernah . $_lf . $_lf); fwrite($f, "Mengajukan permohonan cuti kuliah pada semester {$thn['Nama']} karena:" . $_lf . $_lf); $garis = $mrg . str_pad('_', 75, '_'); fwrite($f, $garis . $_lf . $_lf . $garis . $_lf . $_lf); // footer 1 fwrite($f, str_pad(' ', 45, ' ') . "Jakarta, " . date('d-m-Y') . $_lf); fwrite($f, str_pad("Disetujui/Tidak Disetujui", 45, ' ') . "Mahasiswa" . $_lf); fwrite($f, "Pimpinan Fakultas," . $_lf . $_lf . $_lf . $_lf . $_lf); fwrite($f, str_pad("( )", 45, ' ') . "( {$mhsw['Nama']} )" . $_lf . $_lf); // footer 2 $pa = GetaField('dosen', 'Login', $mhsw['PenasehatAkademik'], "concat(Nama, ', ', Gelar)"); $kaperpus = GetaField('pejabat', 'JabatanID', 'KAPERPUS', 'Nama'); fwrite($f, str_pad("Mengetahui :", 45, ' ') . $_lf); fwrite($f, str_pad("Perpustakaan {$KodeID} :", 45, ' ') . $_lf); fwrite($f, str_pad("Mahasiswa ini tidak memiliki ", 45, ' ') . "Mengetahui :" . $_lf); fwrite($f, str_pad("pinjaman buku yg belum dikembalikan.", 45, ' ') . "P.A." . $_lf); fwrite($f, $_lf . $_lf . $_lf . $_lf); fwrite($f, str_pad("({$kaperpus})", 45, ' ') . "({$pa})" . $_lf); fwrite($f, $_lf . $_lf); fwrite($f, "Catatan: Formulir ini harus dikembalikan ke TU Fakultas untuk dibuatkan" . $_lf); fwrite($f, "SK Cuti Kuliah"); fwrite($f, chr(12)); // Jangan lupa tutup file fclose($f); TampilkanFileDWOPRN($nmf, 'cuti'); }
function Daftar() { global $_HeaderPrn, $_lf; $s = "select bm.*, bn.Nama, \r\n (bm.Jumlah * bm.Besar) as TOT,\r\n format(bm.Jumlah * bm.Besar, 0) as TOTS,\r\n format(bm.Dibayar, 0) as BYR,\r\n bm.TrxID, b2.Prioritas,\r\n format(bm.Besar, 0) as BSR\r\n from bipotmhsw bm\r\n left outer join bipotnama bn on bn.BIPOTNamaID=bm.BIPOTNamaID\r\n left outer join bipot2 b2 on bm.BIPOT2ID=b2.BIPOT2ID\r\n left outer join rekening rek on bn.RekeningID=rek.RekeningID\r\n where bm.MhswID='{$_SESSION['mhswid']}' and bm.TahunID='{$_SESSION['tahun']}' and bm.trxid = 1\r\n order by bm.TrxID, b2.Prioritas"; $r = _query($s); $MaxCol = 114; // Buat file $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; // parameter2 $n = 0; $hal = 0; $brs = 0; $maxbrs = 45; // Buat header $GK = GetFields('khs', "MhswID = '{$_SESSION['mhswid']}' and TahunID", $_SESSION['tahun'], '*'); $NamaTahun = NamaTahun($_SESSION['tahun']); $namamhsw = GetaField('mhsw', 'mhswid', $_SESSION['mhswid'], 'Nama'); $hdr = str_pad("*** RINCIAN PEMBAYARAN MAHASISWA ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf . $_lf; $hdr .= str_pad("SEMESTER : " . $NamaTahun, 30, ' ') . str_pad('Jumlah SKS : ' . $GK['TotalSKS'], 84, ' ', STR_PAD_LEFT) . $_lf; $hdr .= str_pad("NIM : " . $_SESSION['mhswid'] . ' ' . $namamhsw, 50, ' ') . $_lf; $hdr .= $div; $hdr .= "NAMA KEWAJIBAN PEMBAYARAN" . $_lf . $div; fwrite($f, $hdr); // Tampilkan $pmbid = ''; $TotalBiaya = 0; $Totbayar = number_format($w['TOT']); while ($w = _fetch_array($r)) { //$CekAuto = Getafield('bayarmhsw',"MhswID = '$_SESSION[mhswid]'' and Jumlah <> 0 and tahunid",$_SESSION['tahun'],'BuktiSetoran'); if ($w['BYR'] == 0) { $khscek = Getafield('khs', "mhswid = '{$_SESSION['mhswid']}' and tahunid", $_SESSION['tahun'], 'bayar'); $auto = $khscek != '0' ? " AUTODEBET" : 0; } else { $auto = str_pad("Rp.", 9, ' ', STR_PAD_LEFT) . str_pad($w['BYR'], 13, ' ', STR_PAD_LEFT); } $khsbyr = Getafield('khs', "mhswid = '{$_SESSION['mhswid']}' and tahunid", $_SESSION['tahun'], 'bayar'); $keterangan = $auto == " AUTODEBET" ? " Proses Autodebet" : ''; $TOTAL += $w['TOT']; $isi = str_pad($w['Nama'], 20, ' ') . ' ' . str_pad(':', 1) . ' ' . str_pad("Rp.", 2, ' ') . ' ' . str_pad(number_format($w['TOT']), 10, ' ', STR_PAD_LEFT) . ' ' . $auto . str_pad($keterangan, 15, ' ', STR_PAD_LEFT); fwrite($f, $isi . $_lf); } fwrite($f, $div); $_TotalBiaya = number_format($TOTAL); $_TotalBayar = number_format($khsbyr); fwrite($f, str_pad('Total : Rp.', 26, ' ', STR_PAD_LEFT) . ' ' . str_pad($_TotalBiaya, 11, ' ', STR_PAD_LEFT) . ' ' . str_pad('Rp.', 8, ' ', STR_PAD_LEFT) . ' ' . str_pad($_TotalBayar, 12, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, str_pad("Potongan : Rp. ", 27, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($GK['Potongan']), 10, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, str_pad("Tarik : Rp. ", 27, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($GK['Tarik']), 10, ' ', STR_PAD_LEFT) . $_lf); fwrite($f, str_pad("Jumlah Lain : ", 27, ' ', STR_PAD_LEFT) . str_pad('Rp. ', 21, ' ', STR_PAD_LEFT) . str_pad(number_format($GK['JumlahLain']), 12, ' ', STR_PAD_LEFT) . $_lf . $_lf . $_lf . $_lf); //CEK BPM $s1 = "select bm.*, date_format(Tanggal, '%d/%m/%Y') as TGL,\r\n date_format(TanggalBuat, '%d/%m/%Y') as TGLTRX, date_format(TanggalEdit, '%d/%m/%Y') as TGLINPT,\r\n format(Jumlah, 0) as JML\r\n from bayarmhsw bm\r\n where bm.MhswID='{$_SESSION['mhswid']}' and bm.TahunID='{$_SESSION['tahun']}' and bm.Proses = 1\r\n order by bm.BayarMhswID"; //echo $s; $r1 = _query($s1); //$hdr = str_pad("*** RINCIAN PEMBAYARAN MAHASISWA ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf; //$hdr1 .= str_pad("SEMESTER : ".$NamaTahun,30,' ').$_lf; //$hdr1 .= str_pad("NIM : ".$_SESSION['mhswid'].' '.$namamhsw,50,' ').$_lf; $hdr1 .= $div; $hdr1 .= "NO BPM TGL CETAK TGL INPUT TGL BANK NILAI JML LAIN RINCIAN KETERANGAN" . $_lf . $div; fwrite($f, $hdr1); while ($w1 = _fetch_array($r1)) { $tot += $w1['Jumlah']; $pross = $w1['Proses'] == 0 ? 0 : $w1['Jumlah']; $pross2 = $w1['Proses'] == 0 ? 0 : $w1['JumlahLain']; $n++; $isi1 = str_pad("{$n}.", 3, ' ') . ' ' . str_pad($w1['BayarMhswID'], 13, ' ') . ' ' . str_pad($w1['TGLTRX'], 13, ' ') . ' ' . str_pad($w1['TGLINPT'], 13, ' ') . ' ' . str_pad($w1['TGL'], 13, ' ') . ' ' . str_pad(number_format($pross), 10, ' ', STR_PAD_LEFT) . str_pad(number_format($pross2), 13, ' ', STR_PAD_LEFT) . ' ' . $_lf; fwrite($f, $isi1) . $_lf; } fwrite($f, $div); $balance = $GK['Bayar'] - $GK['Biaya'] + $GK['Potongan'] - $GK['Tarik']; $_balance = number_format($balance); $BYR = number_format($GK['Bayar']); $BIA = number_format($GK['Biaya']); $POT = number_format($GK['Potongan']); $TRK = number_format($GK['Tarik']); $JMLL = number_format($GK['JumlahLain']); $hdr2 = $div; $hdr2 .= " TOTAL BIAYA TOTAL BAYAR TOTAL POTONGAN TOTAL TARIK BALANCE JUMLAH LAIN " . $_lf; $hdr2 .= $div; fwrite($f, $hdr2); $isi2 = str_pad(' ', 5, ' ') . str_pad($BIA, 12, ' ', STR_PAD_LEFT) . str_pad($BYR, 16, ' ', STR_PAD_LEFT) . str_pad($POT, 18, ' ', STR_PAD_LEFT) . str_pad($TRK, 16, ' ', STR_PAD_LEFT) . str_pad($_balance, 16, ' ', STR_PAD_LEFT) . str_pad($JMLL, 16, ' ', STR_PAD_LEFT) . $_lf; fwrite($f, $isi2); fwrite($f, $div); fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 100) . str_pad("Akhir Laporan", 100) . $_lf); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "keu.lap"); }
function Daftar() { global $pilihanYN, $_lf; $_u = explode('~', $pilihanYN[$_SESSION['_pilihanYN']]); $_key = $_u[1]; $cek = empty($_key) ? '' : "and k.Cetak = '{$_key}'"; $s = "select k.MhswID, m.TahunID as ANGK, m.Nama, k.StatusMhswID, m.ProdiID,\r\n k.TotalSKS, k.JumlahMK, sm.Nilai\r\n from khs k\r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n left outer join prodi p on m.ProdiID=p.ProdiID\r\n left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID\r\n where k.TahunID='{$_SESSION['tahun']}' and p.FakultasID='{$_SESSION['fakid']}' {$cek}\r\n\t and m.StatusMhswID not in ('L','D','K')\r\n order by m.ProdiID, m.TahunID, k.MhswID"; $r = _query($s); $n = 0; $angk = '0000'; $prd = 'qwertyuiop'; $total = _num_rows($r) + 0; $nmf = "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10)); $maxkol = 114; $div = str_pad('-', $maxkol, '-') . $_lf; $brs = 0; $maxbrs = 50; $ThnAKA = NamaTahun($_SESSION['tahun']); $laporan = $_key == 'Y' ? "Mahasiswa Cetak Kartu" : "Mahasiswa Tidak Cetak Kartu"; $hdr = str_pad("** Daftar Mahasiswa Cetak KSS SEMESTER {$ThnAKA} **", $maxkol, ' ', STR_PAD_BOTH) . $_lf . $_lf . "Laporan : " . $laporan . $_lf . $div; fwrite($f, $hdr); echo "<p><a href=dwoprn.php?f={$nmf}>Cetak Laporan</a></p>"; //echo "<p><a href=?mnux=akd.lap.mhswkss&gos=daftar&prn=1>Cetak Laporan</a></p>"; echo "<p><table class=box cellspacing=1 cellpadding=4>"; while ($w = _fetch_array($r)) { $n++; $brs++; if ($brs > $maxbrs) { $isi .= $div; $isi .= str_pad("Bersambung...", $maxkol, ' ', STR_PAD_LEFT); //$isi .= str_pad('Halaman : '.$hal."/".$jumhal,10,' ').$_lf; $hal++; $brs = 1; $isi .= chr(12) . $_lf; $isi .= $hdr; } if ($prd != $w['ProdiID']) { $prd = $w['ProdiID']; $_prd = GetaField('prodi', 'ProdiID', $prd, 'Nama'); echo "<tr><td class=ttl colspan=6><font size=+1>{$_prd}</font></td></tr>"; echo "<tr><th class=ttl>#</th>\r\n <th class=ttl>N.P.M</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Status</th>\r\n <th class=ttl>MK</th>\r\n <th class=ttl>SKS</th>\r\n </tr>"; $isi = str_pad("FAKULTAS : " . $_prd, 30) . $_lf . $div . str_pad("No.", 5) . str_pad("NIM", 10) . str_pad("NAMA", 30) . str_pad("STATUS", 8) . str_pad("MK", 3) . str_pad("SKS", 4) . $_lf . $div; } if ($angk != $w['ANGK']) { $angk = $w['ANGK']; echo "<tr><td class=ul colspan=6><font size=+1>{$angk}</font></td></tr>"; $isi .= str_pad("» ANGKATAN " . $angk, 30) . $_lf . $_lf; $n = 1; } echo "<tr><td class=inp>{$n}</td>\r\n <td class=ul>{$w['MhswID']}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['StatusMhswID']}</td>\r\n <td class=ul align=right>{$w['JumlahMK']}</td>\r\n <td class=ul align=right>{$w['TotalSKS']}</td>\r\n </tr>"; $isi .= str_pad($n . '. ', 5) . str_pad($w['MhswID'], 10) . str_pad($w['Nama'], 30) . str_pad($w['StatusMhswID'], 6) . str_pad($w['JumlahMK'], 4, ' ', STR_PAD_LEFT) . str_pad($w['TotalSKS'], 4, ' ', STR_PAD_LEFT) . $_lf; } echo "</table></p>"; $_total = number_format($total); echo "<p>Total: <font size=+1>{$_total}</font></p>"; fwrite($f, $isi); fwrite($f, $div); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 87, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 27, ' ') . $_lf); fwrite($f, chr(12)); fclose($f); //if ($_REQUEST['prn'] == 1) { //include_once "dwoprn.php"; echo "<p><a href=dwoprn.php?f={$nmf}>Cetak Laporan</a></p>"; //DownloadDWOPRN($nmf); //} }
function Cetak() { global $arrBulan; $mxb = 15; $mxc = 112; $g = chr(13) . chr(10); $grs = str_pad('-', $mxc, '-') . $g; // parameter $tahun = $_SESSION['tahun']; $_tahun = NamaTahun($tahun); $DosenID = $_SESSION['DosenID']; $prodi = $_SESSION['prodi']; $_prodi = GetaField('prodi', 'ProdiID', $prodi, 'Nama'); $PeriodeMinggu = $_SESSION['PeriodeMinggu']; $PeriodeBulan = $_SESSION['PeriodeBulan']; $PeriodeTahun = $_SESSION['PeriodeTahun']; $bulan = $arrBulan[$PeriodeBulan + 0]; // bank $arrBank = array("and d.NamaBank='INA PERDANA' ", "and d.NamaBank <> 'INA PERDANA' and d.NamaBank<>'' "); $arrNamaBank = array("INA PERDANA", "Lain2"); // buat file $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15)); fwrite($f, chr(27) . chr(108) . chr(5)); $SpasiHdr = str_pad(' ', 25); $tgl = date('d-m-Y H:i'); $hdr1 = str_pad("** Daftar Rekap Honor Dosen per Bank ***", $mxc, ' ', STR_PAD_BOTH) . $g . str_pad("Bulan: {$bulan} {$PeriodeTahun}", $mxc, ' ', STR_PAD_BOTH) . $g . str_pad("Semester : {$_tahun}", $mxc / 2) . $SpasiHdr . "Tanggal : {$tgl}" . $g . str_pad("Prodi : {$_prodi}", $mxc / 2) . $SpasiHdr . "Dicetak : {$_SESSION['_Login']}" . $g; $hdr2 = $grs . "No. " . str_pad("Dosen", 35) . str_pad("No.Rekening", 24) . str_pad("Bank & Atas Nama", 24) . str_pad("Jumlah", 15, ' ', STR_PAD_LEFT) . $g . $grs; //**** Cetakan berlangsung 2x *** // for ($i = 0; $i < 2; $i++) { // Data $_bank = $arrBank[$i]; $s = "select hd.*, \r\n LEFT(concat(d.Nama, ', ', d.Gelar), 34) as DSN, d.NamaBank, d.NamaAkun, d.NomerAkun,\r\n d.GolonganID, d.JabatanID, jb.Nama as JAB\r\n from honordosen hd\r\n left outer join dosen d on hd.DosenID=d.Login\r\n left outer join statusdosen sd on d.StatusDosenID=sd.StatusDosenID\r\n left outer join jabatan jb on d.JabatanID=jb.JabatanID\r\n where hd.TahunID='{$tahun}' {$_bank}\r\n and hd.Tahun='{$PeriodeTahun}'\r\n and hd.Bulan='{$PeriodeBulan}'\r\n and hd.Minggu='{$PeriodeMinggu}'\r\n and hd.ProdiID='{$prodi}'\r\n and sd.HonorMengajar='Y'\r\n and (hd.TunjanganJabatan1 +hd.TunjanganJabatan2 +hd.TunjanganSKS +hd.TunjanganTransport +hd.TunjanganTetap\r\n +hd.Tambahan -hd.Potongan) >0\r\n order by d.NamaBank, d.Nama"; //echo "<pre>$s</p>"; $r = _query($s); $n = 0; $_TOT = 0; $brs = 0; $h = 1; fwrite($f, str_replace('=HAL=', $h, $hdr1)); fwrite($f, str_pad("Bank : " . $arrNamaBank[$i], $mxc / 2) . $SpasiHdr . "Halaman : {$h}" . $g); fwrite($f, $hdr2); while ($w = _fetch_array($r)) { $brs++; $n++; if ($brs >= $mxb) { $brs = 1; // Tuliskan Total //$_totals = number_format($_TOT); //fwrite($f, $grs); //fwrite($f, str_pad("Total: ", 82, ' ', STR_PAD_LEFT). //str_pad($_totals, 20, ' ', STR_PAD_LEFT). $g); fwrite($f, str_pad("Bersambung...", $mxc, ' ', STR_PAD_LEFT)); fwrite($f, chr(12)); // Header fwrite($f, str_replace('=HAL=', $h, $hdr1)); fwrite($f, "Bank : " . $arrNamaBank[$i] . $g); fwrite($f, $hdr2); } $TOT = $w['TunjanganJabatan1'] + $w['TunjanganJabatan2'] + $w['TunjanganSKS'] + $w['TunjanganTransport'] + $w['TunjanganTetap'] + $w['Tambahan'] - $w['Potongan']; $TOT1 = $TOT - $TOT * $w['Pajak'] / 100; $_TOT += $TOT1; $_total = number_format($TOT1); fwrite($f, str_pad($n, 4, ' ') . str_pad($w['DSN'], 35) . str_pad($w['NomerAkun'], 24) . str_pad($w['NamaAkun'], 24) . str_pad($_total, 15, ' ', STR_PAD_LEFT) . $g . str_pad(' ', 4, ' ') . str_pad($w['DosenID'] . ' ' . $w['GolonganID'] . '.' . $w['JAB'], 35) . $w['NamaBank'] . $g . $g); } // Tuliskan Total $_totals = number_format($_TOT); fwrite($f, $grs); fwrite($f, str_pad("Total: ", 82, ' ', STR_PAD_LEFT) . str_pad($_totals, 20, ' ', STR_PAD_LEFT) . $g); fwrite($f, chr(12)); } // END Loop fclose($f); // Tampilkan include "dwoprn.php"; DownloadDWOPRN($nmf); }
function BuatExcel() { $jdwl = GetFields('jadwal', 'JadwalID', $_REQUEST['jdwlid'], "*"); $dsn = TRIM($jdwl['DosenID'], '.'); $arrdsn = explode('.', $dsn); $strdsn = empty($arrdsn) ? "GaAdaNih" : implode(',', $arrdsn); $nmdsn = GetArrayTable("select concat(Nama, ', ', Gelar) as DSN from dosen where Login in ({$strdsn}) order by Nama", "Login", "DSN"); $NamaTahun = NamaTahun($jdwl['TahunID']); // Olah nilai dari GET value di URL $_strTM = $jdwl['tugasmandiri'] == 0 ? '' : $jdwl['tugasmandiri']; // query database nilai yang ingin ditampilkan $s = "SELECT k.*, m.Nama AS NamaMhsw\r\n\t\t FROM krs k\r\n\t\t LEFT OUTER JOIN mhsw m ON k.MhswID=m.MhswID\r\n\t\t WHERE k.JadwalID='{$_REQUEST['jdwlid']}'\r\n\t\t ORDER BY k.MhswID"; $r = _query($s); // Buat file Excel include_once "Spreadsheet/Excel/Writer.php"; $xls =& new Spreadsheet_Excel_Writer(); $xls->send("daftarnilai.xls"); $sheet =& $xls->addWorksheet('Nilai Mahasiswa'); // Format untuk title cell $formattitle =& $xls->addFormat(); $formattitle->setAlign('center'); $formattitle->setBold(); $formattitle->setSize(16); // Format untuk header cell $formatheader =& $xls->addFormat(); $formatheader->setBorder(1); $formatheader->setAlign('center'); $formatheader->setBold(); // Format untuk data cell $format =& $xls->addFormat(); $format->setAlign('center'); $format->setBorder(1); // Format spesifik untuk nama mahasiswa $formatmhs =& $xls->addFormat(); $formatmhs->setAlign('left'); $formatmhs->setBorder(1); // Cetak header file excel $sheet->setMerge(0, 3, 0, 7); $sheet->write(0, 3, "Hasil Nilai Mahasiswa", $formattitle); $sheet->setMerge(2, 0, 2, 1); $sheet->write(2, 0, "Semester:"); $sheet->write(2, 2, "{$NamaTahun}"); $sheet->setMerge(3, 0, 3, 1); $sheet->write(3, 0, "Matakuliah:"); $sheet->write(3, 2, "{$jdwl['MKKode']} - {$jdwl['Nama']}"); $sheet->setMerge(4, 0, 4, 1); $sheet->write(4, 0, "Kelas:"); $sheet->write(4, 2, "{$jdwl['NamaKelas']}"); $sheet->setMerge(5, 0, 5, 1); $sheet->write(5, 0, "Dosen Pengampu:"); $sheet->write(5, 2, "{$nmdsn}"); $sheet->setMerge(6, 0, 7, 0); $sheet->setColumn(0, 0, 4); $sheet->write(6, 0, "#", $formatheader); $sheet->write(7, 0, "", $formatheader); $sheet->write(8, 0, "", $formatheader); $sheet->setMerge(6, 1, 7, 1); $sheet->setColumn(1, 1, 11); $sheet->write(6, 1, "NPM", $formatheader); $sheet->write(7, 1, "", $formatheader); $sheet->write(8, 1, "", $formatheader); $sheet->setMerge(6, 2, 7, 2); $sheet->setColumn(2, 2, 32); $sheet->write(6, 2, "Mahasiswa", $formatheader); $sheet->write(7, 2, "", $formatheader); $sheet->write(8, 2, "", $formatheader); $sheet->setMerge(6, 3, 6, 7); $sheet->write(6, 3, "Tugas Mandiri {$_strTM}%", $formatheader); $sheet->write(6, 4, "", $formatheader); $sheet->write(6, 5, "", $formatheader); $sheet->write(6, 6, "", $formatheader); $sheet->write(6, 7, "", $formatheader); $sheet->setColumn(3, 7, 5.5); $sheet->write(7, 3, "1", $formatheader); $sheet->write(7, 4, "2", $formatheader); $sheet->write(7, 5, "3", $formatheader); $sheet->write(7, 6, "4", $formatheader); $sheet->write(7, 7, "5", $formatheader); $sheet->write(8, 3, "{$jdwl['Tugas1']}%", $formatheader); $sheet->write(8, 4, "{$jdwl['Tugas2']}%", $formatheader); $sheet->write(8, 5, "{$jdwl['Tugas3']}%", $formatheader); $sheet->write(8, 6, "{$jdwl['Tugas4']}%", $formatheader); $sheet->write(8, 7, "{$jdwl['Tugas5']}%", $formatheader); $sheet->setMerge(6, 8, 7, 8); $sheet->setColumn(8, 11, 6); // Set column from 8 to 10 -> Pres, UTS, UAS, Resp $sheet->write(6, 8, "Pres", $formatheader); $sheet->write(7, 8, "", $formatheader); $sheet->write(8, 8, "{$jdwl['Presensi']}%", $formatheader); $sheet->setMerge(6, 9, 7, 9); $sheet->write(6, 9, "UTS", $formatheader); $sheet->write(7, 9, "", $formatheader); $sheet->write(8, 9, "{$jdwl['UTS']}%", $formatheader); $sheet->setMerge(6, 10, 7, 10); $sheet->write(6, 10, "UAS", $formatheader); $sheet->write(7, 10, "", $formatheader); $sheet->write(8, 10, "{$jdwl['UAS']}%", $formatheader); $sheet->setMerge(6, 11, 7, 11); $sheet->write(6, 11, "Resp", $formatheader); $sheet->write(7, 11, "", $formatheader); $sheet->write(8, 11, "{$jdwl['Responsi']}%", $formatheader); $sheet->setMerge(6, 12, 6, 13); $sheet->write(6, 12, "Nilai Akhir", $formatheader); $sheet->write(6, 13, "", $formatheader); $sheet->setColumn(12, 13, 6.45); $sheet->write(7, 12, "Nilai", $formatheader); $sheet->write(7, 13, "Grade", $formatheader); $sheet->write(8, 13, "", $formatheader); // Cetak data while ($w = _fetch_array($r)) { $nomer++; $row = $nomer + 8; // Ditambah 6 karena row 0-5 digunakan untuk header $sheet->write($row, 0, "{$nomer}", $format); $sheet->write($row, 1, "{$w['MhswID']}", $format); $sheet->write($row, 2, "{$w['NamaMhsw']}", $formatmhs); $sheet->write($row, 3, "{$w['Tugas1']}", $format); $sheet->write($row, 4, "{$w['Tugas2']}", $format); $sheet->write($row, 5, "{$w['Tugas3']}", $format); $sheet->write($row, 6, "{$w['Tugas4']}", $format); $sheet->write($row, 7, "{$w['Tugas5']}", $format); $sheet->write($row, 8, "{$w['Presensi']}", $format); $sheet->write($row, 9, "{$w['UTS']}", $format); $sheet->write($row, 10, "{$w['UAS']}", $format); $sheet->write($row, 11, "{$w['Responsi']}", $format); $sheet->write($row, 12, "{$w['NilaiAkhir']}", $format); $sheet->write($row, 13, "{$w['GradeNilai']}", $format); } $xls->close(); }
include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../header_pdf.php"; include_once "../util.lib.php"; // *** Parameters *** $TahunID = GetSetVar('TahunID'); $ProdiID = GetSetVar('ProdiID'); if (empty($TahunID)) { die(ErrorMsg("Error", "Tentukan tahun akademik-nya dulu.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />")); } if (empty($ProdiID)) { die(ErrorMsg("Error", "Tentukan Program Studi-nya dulu.\r\n <hr size=1 color=silver />\r\n <input type=button name='Tutup' value='Tutup'\r\n onClick='window.close()' />")); } // *** Main $prds = getaField('prodi', "KodeID = '" . KodeID . "' and ProdiID", $ProdiID, 'Nama'); $thn = NamaTahun($TahunID); $pdf = new PDF('P', 'mm', 'A4'); $pdf->SetTitle("Jadwal Ujian Sidang Komprehensif Tahun {$thn}"); $pdf->AddPage(); $pdf->SetFont('Helvetica', 'B', 14); $pdf->Cell($t, 9, "Jadwal Ujian Sidang Komprehensif - {$thn}", 0, 1, 'C'); $pdf->Cell($t, 9, "Program Studi {$prds}", 0, 1, 'C'); Isinya($pdf); $pdf->Output(); // *** Functions *** function Isinya($p) { $lbr = 290; $t = 5; JudulKolomnya($p); $p->SetFont('Helvetica', '', 8);
function Cetak() { global $_lf; // Setup Parameter $khsid = $_REQUEST['khsid']; $khs = GetFields('khs khs left outer join program prg on khs.ProgramID=prg.ProgramID left outer join prodi prd on khs.ProdiID=prd.ProdiID left outer join mhsw m on khs.MhswID=m.MhswID', 'KHSID', $khsid, "khs.*, m.BatasStudi, m.Nama as NamaMhsw, m.ProdiID, m.Autodebet, prg.Nama as PRG, prd.Nama as PRD"); $_REQUEST['mhswid'] = $khs['MhswID']; $_REQUEST['pmbmhswid'] = 1; $_REQUEST['DariKRS'] = 1; // Menandai bahwa ini dieksekusi dari modul KRS $MhswID = $_REQUEST['mhswid']; $thn = GetFields("tahun", "ProgramID='{$khs['ProgramID']}' and ProdiID='{$khs['ProdiID']}' and TahunID", $khs['TahunID'], "*"); $angmhsw = GetaField('mhsw', 'MhswID', $MhswID, 'TahunID'); // Menetapkan KRS atau KPRS $skrg = date('Y-m-d'); // Jika autodebet if ($khs['Autodebet'] == 'Y') { $tglad = FormatTanggal($thn['TglAutodebetSelesai']); $tglad2 = FormatTanggal($thn['TglAutodebetSelesai2']); $str1 = "Anda harus menyetor ke rekening Anda paling lambat {$tglad}."; $str2 = "untuk di-autodebet oleh bank. Lewat tgl tersebut akan didenda 10%"; $str3 = "dari BPP SKS. Pembayaran BPP & Denda paling lambat tgl {$tglad2}."; $str4 = "Lewat tanggal tersebut Anda harus CUTI KULIAH."; } else { // KRS if ($khs['Sesi'] <= 1) { $str1 = ''; $str2 = ''; } elseif ($angmhsw >= 2002) { $tglad = FormatTanggal($thn['TglAutodebetSelesai']); $tglad2 = FormatTanggal($thn['TglAutodebetSelesai2']); $str1 = "Anda harus menyetor ke rekening Anda paling lambat {$tglad}."; $str2 = "untuk di-autodebet oleh bank. Lewat tgl tersebut akan didenda 10%"; $str3 = "dari BPP SKS. Pembayaran BPP & Denda paling lambat tgl {$tglad2}."; $str4 = "Lewat tanggal tersebut Anda harus CUTI KULIAH."; } elseif ($thn['TglKRSMulai'] <= $skrg and $skrg <= $thn['TglCetakKSS1']) { $tglkrsselesai = FormatTanggal($thn['TglKRSSelesai']); $tglcetakkss = FormatTanggal($thn['TglCetakKSS1']); $tglbayarselesai = FormatTanggal($thn['TglBayarSelesai']); $str1 = "Cetak KSS paling lambat tanggal {$tglcetakkss}"; $str2 = "dengan menyerahkan KRS ini ke BAA. Lewat tgl tersebut,"; $str3 = "mahasiswa terkena denda 10% sampai tanggal {$tglbayarselesai}."; $str4 = "Sesudah tanggal ini, jika belum cetak KSS, Anda harus CUTI KULIAH."; } elseif ($thn['TglUbahKRSMulai'] <= $skrg and $skrg <= $thn['TglCetakKSS2']) { $tglkrsselesai = FormatTanggal($thn['TglUbahKRSSelesai']); $tglcetakkss = FormatTanggal($thn['TglCetakKSS2']); $str1 = "Cetak ulang KSS paling lambat tanggal {$tglcetakkss}"; $str2 = "dengan menyerahkan KPRS ini ke BAA."; $str3 = "Lewat tanggal tersebut tidak ada perubahan rencana studi"; $str4 = "yang tercetak di KRS."; } else { $str1 = "Masa pencetakan KRS/KPRS sudah lewat."; $str2 = "Anda harus cuti kuliah."; } } // Hitung BIPOT mhsw dulu PrcBIPOTSesi(); // Buat file $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(18) . chr(27) . chr(15) . chr(27) . chr(67) . chr(33)); // chr67+chr33 -> membuat menjadi 33 baris // Format Kertas $brs = 0; $maxbrs = 10; // Buat header $mrghdr = str_pad(' ', 28); $mrg = str_pad(' ', 10); $spasihdr = 35; $BatasStudi = NamaTahun($khs['BatasStudi'], $khs['ProdiID']); $hdr = $_lf . $_lf . $_lf . $_lf . $mrghdr . $khs['TahunID'] . ' ' . $thn['Nama'] . $_lf . $mrghdr . str_pad($khs['PRD'], $spasihdr) . $str1 . $_lf . $mrghdr . str_pad($khs['MhswID'], $spasihdr) . $str2 . $_lf . $mrghdr . str_pad($khs['NamaMhsw'], $spasihdr) . $str3 . $_lf . $mrghdr . str_pad($BatasStudi, $spasihdr) . $str4 . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf; fwrite($f, $hdr); // Tampilkan isi KRS $s = "select krs.*, j.MKKode, j.Nama, j.NamaKelas, j.JenisJadwalID, j.JadwalSer, \r\n time_format(j.JamMulai, '%H:%i') as JM,\r\n time_format(j.JamSelesai, '%H:%i') as JS,\r\n h.Nama as HR\r\n from krstemp krs\r\n left outer join jadwal j on krs.JadwalID=j.JadwalID\r\n left outer join hari h on j.HariID=h.HariID\r\n where krs.KHSID='{$khsid}' and krs.NA='N'\r\n order by j.MKKode, j.NamaKelas, j.HariID, j.JenisJadwalID"; $r = _query($s); $sks = 0; while ($w = _fetch_array($r)) { $brs++; if ($brs > $maxbrs) { fwrite($f, $mrg . "Bersambung..."); fwrite($f, chr(12)); fwrite($f, $hdr); $brs = 1; } $sks += ($w['JenisJadwalID'] == 'R' or $w['StatusKRSID'] == 'S' and $w['JadwalSer'] > 0) ? 0 : $w['SKS']; $_sks = $w['JenisJadwalID'] != 'K' ? '' : $w['SKS']; $skstampil = $_sks == 0 ? '' : $_sks; $w['Nama'] .= $w['JenisJadwalID'] != 'K' ? " ({$w['JenisJadwalID']})" : ''; if ($w['StatusKRSID'] == 'S' and $w['JadwalSer'] > 0) { $w['Nama'] = ''; $w['MKKode'] = ''; } $isi = $mrg . str_pad($w['MKKode'], 8) . str_pad($w['Nama'], 40) . str_pad($skstampil, 4, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['NamaKelas'], 8) . str_pad($w['HR'], 8) . $w['JM'] . '-' . $w['JS'] . ' ' . $w['CatatanError'] . $_lf; fwrite($f, $isi); } fwrite($f, str_pad("Total SKS : ", 58, ' ', STR_PAD_LEFT) . str_pad($sks, 4, ' ', STR_PAD_LEFT) . $_lf); // Ambil KRS GAGAL $s = "select krs.*, j.MKKode, j.Nama, j.NamaKelas, j.JenisJadwalID,\r\n time_format(j.JamMulai, '%H:%i') as JM,\r\n time_format(j.JamSelesai, '%H:%i') as JS,\r\n h.Nama as HR\r\n from krstemp krs\r\n left outer join jadwal j on krs.JadwalID=j.JadwalID\r\n left outer join hari h on j.HariID=h.HariID\r\n where krs.KHSID='{$khsid}' and krs.NA='Y'\r\n order by j.MKKode, j.JenisJadwalID"; $r = _query($s); if (_num_rows($r) > 0) { fwrite($f, $mrg . "KRS GAGAL:" . $_lf); $_sks = $w['JenisJadwalID'] != 'K' ? '' : $w['SKS']; $w['Nama'] .= $w['JenisJadwalID'] != 'K' ? " ({$w['JenisJadwalID']})" : ''; while ($w = _fetch_array($r)) { $isi = $mrg . str_pad($w['MKKode'], 8) . str_pad($w['Nama'], 40) . str_pad($_sks, 4, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['NamaKelas'], 3) . str_pad($w['HR'], 10) . $w['JM'] . '-' . $w['JS'] . ' ' . $w['CatatanError'] . $_lf; fwrite($f, $isi); } fwrite($f, $_lf); } // Ambil BIPOT mhsw Lama $s = "select bm.*, LEFT(bn.Nama, 14) as BNama\r\n from bipotmhsw bm\r\n left outer join bipotnama bn on bm.BIPOTNamaID=bn.BIPOTNamaID\r\n where bm.MhswID='{$MhswID}' and bm.TahunID='{$khs['TahunID']}'\r\n and (bm.Jumlah * bm.Besar) > bm.Dibayar\r\n order by bn.Urutan"; //fwrite($f, $s); if ($khs['Sesi'] <= 1) { $s = "select bm.*, LEFT(bn.Nama, 14) as BNama\r\n from bipotmhsw bm\r\n left outer join bipotnama bn on bm.BIPOTNamaID=bn.BIPOTNamaID\r\n where bm.MhswID='{$MhswID}' and bm.TahunID='{$khs['TahunID']}'\r\n order by bn.Urutan"; } $r = _query($s); $tbia = 0; $arrbia = array(); $col = 0; $mcol = 4; fwrite($f, $_lf); while ($w = _fetch_array($r)) { $bia = $w['TrxID'] * $w['Jumlah'] * $w['Besar']; $tbia += $bia; $_bia = number_format($bia); $isi = str_pad($w['BNama'], 15) . str_pad($_bia, 12, ' ', STR_PAD_LEFT) . ' '; if ($col < $mcol) { } else { fwrite($f, $_lf); $col = 0; } if ($col == 0) { fwrite($f, $mrg); } $col++; fwrite($f, $isi); } fwrite($f, $_lf . $mrg . "Tot Biaya: Rp " . str_pad(number_format($tbia), 12, ' ', STR_PAD_LEFT) . $_lf); $tgl = date('d-m-Y H:i'); fwrite($f, str_pad("Dicetak oleh: {$_SESSION['_Login']}, {$tgl}", 114, ' ', STR_PAD_LEFT) . $_lf); // Tutup file fwrite($f, chr(12)); fclose($f); // Tambahkan counter cetak KRS $s = "update khs set CetakKRS=CetakKRS+1 where KHSID={$khs['KHSID']}"; $r = _query($s); if (empty($_REQUEST['prn'])) { TampilkanFileDWOPRN($nmf, "krs"); } else { include_once "dwoprn.php"; DownloadDWOPRN($nmf); } }
function Daftar() { global $_lf; $MaxThn = date('Y'); $MinThn = $MaxThn - 9; $arrAgama = GetArrayNilai("select concat(Agama, '~', Nama) as NILAI from agama order by Agama", "NILAI"); $arrKelamin = GetArrayNilai("select concat(Kelamin, '~', Nama) as NILAI from kelamin order by Kelamin", "NILAI"); $arrStatus = GetArrayNilai("select concat(StatusMhswID, '~', Nama) as NILAI from statusmhsw where StatusMhswID in ('A', 'C', 'T', 'W') order by StatusMhswID", "NILAI"); $whr = empty($_SESSION['fakid']) ? 'where prd.FakultasID <> 9' : "where prd.FakultasID='{$_SESSION['fakid']}' "; // Tampilkan $maxbrs = 4; $s = "select prd.ProdiID, prd.Nama as PRD,\r\n prd.FakultasID, fak.Nama as FAK\r\n from prodi prd\r\n left outer join fakultas fak on prd.FakultasID=fak.FakultasID\r\n {$whr}\r\n order by prd.FakultasID, prd.ProdiID"; $r = _query($s); $TOT = 0; $banyakagama = sizeof($arrAgama); $banyakkelamin = sizeof($arrKelamin); $banyakstatus = sizeof($arrStatus); $hdrkel = ''; for ($i = 0; $i < $banyakkelamin; $i++) { $str = explode('~', $arrKelamin[$i]); $hdrkel .= str_pad($str[0], 4, ' ') . ' '; //"$str[0] "; } $hdragm = ''; for ($i = 0; $i < sizeof($arrAgama); $i++) { $str = explode('~', $arrAgama[$i]); $hdragm .= str_pad($str[0], 4, ' ') . ' '; //"$str[0] "; } $hdrsta = ''; for ($i = 0; $i < sizeof($arrStatus); $i++) { $str = explode('~', $arrStatus[$i]); $hdrsta .= str_pad($str[0], 4, ' ') . ' '; //"$str[0] "; } $isi_ .= str_pad("** DAFTAR MAHASISWA TERDAFTAR KRS **", 108, ' ', STR_PAD_BOTH) . $_lf . $_lf; $isi_ .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf; $isi_ .= str_pad('-', 108, '-') . $_lf; $isi_ .= "PRD ANGKATAN TOTAL KELAMIN AGAMA STATUS" . $_lf; $isi_ .= " {$hdrkel}| {$hdragm}| {$hdrsta}" . $_lf; $isi_ .= str_pad('-', 108, '-') . $_lf; $TOT = 0; $TOTK = array(); $TOTA = array(); $TOTS = array(); while ($w = _fetch_array($r)) { $brs++; if ($brs > $maxbrs) { $isi_ .= str_pad('-', 108, '-') . $_lf; $isi_ .= chr(12); $isi_ .= str_pad("** DAFTAR MAHASISWA TERDAFTAR KRS **", 108, ' ', STR_PAD_BOTH) . $_lf . $_lf; $isi_ .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf; $isi_ .= str_pad('-', 108, '-') . $_lf; $isi_ .= "PRD ANGKATAN TOTAL KELAMIN AGAMA STATUS" . $_lf; $isi_ .= " {$hdrkel}| {$hdragm}| {$hdrsta}" . $_lf; $isi_ .= str_pad('-', 108, '-') . $_lf; $brs = 1; } $arrKel1 = $arrKelamin; $arrAgm1 = $arrAgama; $arrSta1 = $arrStatus; $angk = AmbilDataAngkatan($w['ProdiID'], $w['PRD'], $_TOT, $MinThn, $MaxThn, $arrKel1, $arrAgm1, $arrSta1); $TOT += $_TOT; for ($i = 0; $i < $banyakkelamin; $i++) { $TOTK[$i] += $arrKel1[$i]; } for ($i = 0; $i < sizeof($arrAgama); $i++) { $TOTA[$i] += $arrAgm1[$i]; } for ($i = 0; $i < $banyakstatus; $i++) { $TOTS[$i] += $arrSta1[$i]; } $isi_ .= $angk; } $_TOT = number_format($TOT); // Tampilkan jumlah total kelamin $totk = ''; for ($i = 0; $i < $banyakkelamin; $i++) { $_totk = number_format($TOTK[$i]); $totk .= str_pad($_totk, 4, ' ', STR_PAD_LEFT) . ' '; } // Tampilkan jumlah total agama $tota = ''; for ($i = 0; $i < $banyakagama; $i++) { $_tota = number_format($TOTA[$i]); $tota .= str_pad($_tota, 4, ' ', STR_PAD_LEFT) . ' '; } // Tampilkan jumlah total status $tots = ''; for ($i = 0; $i < $banyakstatus; $i++) { $_tots = number_format($TOTS[$i]); $tots .= str_pad($_tots, 4, ' ', STR_PAD_LEFT) . ' '; } $isi_ .= str_pad('-', 108, '-') . $_lf; $isi_ .= "GRAND TOTAL " . str_pad($_TOT, 7, ' ', STR_PAD_LEFT) . ' ' . str_pad($totk, 7, ' ', STR_PAD_LEFT) . ' ' . " {$tota} {$tots}" . $_lf; $isi_ .= str_pad('-', 108, '-') . $_lf; $nmf = "tmp/{$_SESSION['_Login']}.dwoprn"; $f = fopen($nmf, 'w'); fwrite($f, chr(27) . chr(15) . chr(27) . chr(77)); fwrite($f, $isi_); fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 70, ' ') . str_pad('Dicetak Tanggal : ' . date("d-m-Y H:i"), 10, ' ')); fwrite($f, chr(12)); fclose($f); TampilkanFileDWOPRN($nmf, "akd.lap.rekapmhsw"); }