function DftrSiswa($pid) { $p = GetFields("presensi p\r\n left outer join jadwal j on p.JadwalID = j.JadwalID\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID='" . KodeID . "'\r\n left outer join hari h on h.HariID = date_format(p.Tanggal, '%w')\r\n\tleft outer join jenisjadwal jj on jj.JenisJadwalID = j.JenisJadwalID", "p.PresensiID", $pid, "p.*, j.MKKode, j.Nama, h.Nama as _HR,\r\n concat(d.Nama, ' <sup>', d.Gelar, '</sup>') as DSN,\r\n date_format(p.Tanggal, '%d-%m-%Y') as _Tanggal,\r\n left(p.JamMulai, 5) as _JM, left(p.JamSelesai, 5) as _JS,\r\n\tjj.Nama as _NamaJenisJadwal, jj.Tambahan"); TampilkanHeader($p); CekKRSMhsw($p); TampilkanPresensiMhsw($p); }
function DftrSiswa($pid) { $p = GetFields("presensiremedial pr \r\n left outer join jadwalremedial jr on pr.JadwalRemedialID = jr.JadwalRemedialID\r\n left outer join dosen d on d.Login = jr.DosenID and d.KodeID='" . KodeID . "'\r\n left outer join hari h on h.HariID = date_format(pr.Tanggal, '%w')", "pr.PresensiRemedialID", $pid, "pr.*, jr.MKKode, jr.Nama, h.Nama as _HR,\r\n concat(d.Nama, ' <sup>', d.Gelar, '</sup>') as DSN,\r\n date_format(pr.Tanggal, '%d-%m-%Y') as _Tanggal,\r\n left(pr.JamMulai, 5) as _JM, left(pr.JamSelesai, 5) as _JS"); TampilkanHeader($p); CekKRSMhsw($p); TampilkanPresensiMhsw($p); }
function TampilkanHalaman() { TampilkanHeader(); if (!empty($_SESSION['_remTahun'])) { TampilkanRemedial(); } }
function TampilkanIsinya($page, $limit, $gel, $gels, $tahun, $nexttahun, $p) { $pagelimit = $page * $limit; $s = "select DISTINCT(a.AplikanID), m.MhswID, a.Nama, k.Nama as NamaKelas, \r\n\t if(aa.Nama like '_%', aa.Nama, \r\n\t\t\tif(pt.Nama like '_%', pt.Nama, b.AsalSekolah)) as NamaSekolah,\r\n\t b.TahunLulus, pp.Urutan, a.SumberInformasi, a.PresenterID,\r\n\t a.StatusMundur as Mundur\r\n\t from \r\n\t\tstatusaplikanmhsw sam left outer join aplikan a on sam.AplikanID=a.AplikanID\r\n\t\t\t\t left outer join pmb b on a.PMBID=b.PMBID \r\n\t\t\t\t left outer join asalsekolah aa on b.AsalSekolah=aa.SekolahID\r\n\t\t\t\t left outer join perguruantinggi pt on b.AsalSekolah=pt.PerguruanTinggiID\r\n\t\t\t\t left outer join mhsw m on b.PMBID=m.PMBID\r\n\t\t\t\t left outer join kelas k on k.KelasID=m.KelasID\r\n\t\t\t\t left outer join pmbperiod pp on a.PMBPeriodID=pp.PMBPeriodID\r\n\t where b.KodeID = '" . KodeID . "'\r\n\t\t\tand sam.StatusAplikanID='REG'\r\n\t\t\tand pp.Tahun='{$tahun}'\r\n\t order by a.PresenterID, m.MhswID\r\n\t limit {$pagelimit}, {$limit}"; $r = _query($s); $n = 0; $t = 3; TampilkanHeader($p); while ($w = _fetch_array($r)) { $n++; $p->SetFont('Helvetica', '', 6); $p->Cell(7, $t, $n, 'LB', 0, 'C'); $p->Cell(20, $t, $w['MhswID'], 1, 0, 'C'); $p->SetFillColor(255, 255, 255); if ($w['Mundur'] == 'N') { $p->SetFillColor(255, 0, 0); } $p->Cell(50, $t, $w['Nama'], 1, 0, 'L', true); $p->Cell(20, $t, $w['NamaKelas'], 1, 0, 'C'); $p->Cell(70, $t, $w['NamaSekolah'], 1, 0, 'C'); $p->Cell(12, $t, $w['TahunLulus'], 1, 0, 'C'); $p->Cell(10, $t, $w['Urutan'], 1, 0, 'C'); $p->Cell(10, $t, $w['SumberInformasi'], 1, 0, 'C'); $arrSumberInfo = explode(',', $w['SumberInformasi']); $NamaSumberInfo = GetaField('sumberinfo', 'InfoID', $arrSumberInfo[0], 'Nama'); $p->Cell(70, $t, $NamaSumberInfo, 1, 0, 'L'); $p->Cell(10, $t, $w['PresenterID'], 1, 0, 'C'); $p->Ln($t); } }
function TampilkanIsinya($gel, $gels, $p) { $s = "select p.PMBID, p.Nama, p.ProgramID,\r\n\t\tp1.Nama as _Pilihan1, p2.Nama as _Pilihan2, p3.Nama as _Pilihan3\r\n from pmb p\r\n\t\tleft outer join prodi p1 on p1.ProdiID=p.Pilihan1\r\n\t\tleft outer join prodi p2 on p2.ProdiID=p.Pilihan2\r\n\t\tleft outer join prodi p3 on p3.ProdiID=p.Pilihan3\r\n where p.KodeID = '" . KodeID . "'\r\n and p.PMBPeriodID = '{$gel}'\r\n order by p.ProgramID, p.Nama"; $r = _query($s); $n = 0; $t = 6; $ProgramID = ';laskdjf;laskdjf'; while ($w = _fetch_array($r)) { if ($ProgramID != $w['ProgramID']) { $ProgramID = $w['ProgramID']; $p->Ln(2); $p->SetFont('Helvetica', 'B', 10); $p->Cell(185, $t, $w['ProgramID'], 0, 1); TampilkanHeader($p); } $n++; $p->SetFont('Helvetica', '', 9); $p->Cell(10, $t, $n, 'LB', 0); $p->Cell(20, $t, $w['PMBID'], 'B', 0); $p->Cell(55, $t, $w['Nama'], 'B', 0); $p->Cell(35, $t, $w['_Pilihan1'], 1, 0); $p->Cell(35, $t, $w['_Pilihan2'], 1, 0); $p->Cell(35, $t, $w['_Pilihan3'], 1, 0); $p->Ln($t); } }
function TampilkanIsinya($gel, $gels, $p) { $s = "select p.PMBID, p.Nama, p.AsalSekolah, p.NilaiUjian, NilaiSekolah,\r\n\tif(a.Nama like '_%', concat(p.AsalSekolah, ' - ', a.Nama), \r\n\t\tif(pt.Nama like '_%', concat(p.AsalSekolah, ' - ', pt.Nama), p.AsalSekolah)) as _NamaSekolah, \r\n p.KotaOrtu, prd.Nama as _PRD, prg.Nama as _PRG\r\n from pmb p\r\n left outer join prodi prd on prd.ProdiID = p.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = p.ProgramID and prg.KodeID = '" . KodeID . "'\r\n\t left outer join asalsekolah a on a.SekolahID = p.AsalSekolah\r\n\t left outer join perguruantinggi pt on pt.PerguruanTinggiID = p.AsalSekolah\r\n where p.KodeID = '" . KodeID . "'\r\n and p.PMBPeriodID = '{$gel}'\r\n order by p.AsalSekolah, p.Nama "; $r = _query($s); $n = 0; $t = 6; $AS = ';laskdjf;laskdjf'; while ($w = _fetch_array($r)) { if ($AS != $w['AsalSekolah']) { $AS = $w['AsalSekolah']; $p->Ln(2); $p->SetFont('Helvetica', '', 12); $p->Cell(185, $t, $w['_NamaSekolah'], 0, 1); TampilkanHeader($p); } $n++; $p->SetFont('Helvetica', '', 9); $p->Cell(12, $t, $n, 'LB', 0); $p->Cell(20, $t, $w['PMBID'], 'B', 0); $p->Cell(50, $t, $w['Nama'], 'B', 0); $p->Cell(50, $t, $w['_PRD'], 'B', 0); $p->Cell(30, $t, $w['_PRG'], 'B', 0); $p->Cell(10, $t, $w['NilaiSekolah'], 'B', 0, 'R'); $p->Cell(10, $t, $w['NilaiUjian'], 'BR', 0, 'R'); $p->Ln($t); } }
function Edit($PMBID, $pmb) { TampilkanHeader($pmb); $optprodi = AmbilPilihanFinal($pmb); $getnilaisekolah = empty($pmb['NilaiSekolah']) ? 'N/A' : $pmb['NilaiSekolah']; $gel = GetaField('pmbperiod', "KodeID='" . KodeID . "' and NA", 'N', "PMBPeriodID"); $getnilaiujian = empty($pmb['NilaiUjianTotal']) ? GetaField('ruangusm', "PMBID='{$pmb['PMBID']}' and PMBPeriodID='{$gel}' and KodeID", KodeID, "sum(NilaiUSM)") + 0 : $pmb['NilaiUjianTotal'] + 0; $xx = GetFields('ruangusm', "PMBID='{$pmb['PMBID']}' and PMBPeriodID='{$gel}' and KodeID", KodeID, "sum(NilaiUSM) as N, count(ProdiUSMID) as J"); $rata = $xx['J'] > 0 ? number_format($xx['N'] / $xx['J'], 2) : 0; $rata = empty($rata) ? 0 : $rata; $getnilaiujianrata = empty($pmb['NilaiUjian']) ? $rata : $pmb['NilaiUjian'] + 0; $getgrade = GetaField('pmbgrade', "NilaiUjianMin <= {$getnilaiujianrata} and {$getnilaiujianrata} <= NilaiUjianMax and KodeID", KodeID, 'GradeNilai'); $optgrd = GetOption2('pmbgrade', "concat(GradeNilai, ' (', if (Keterangan is NULL, '', Keterangan), ')')", 'GradeNilai', $getgrade, "KodeID='" . KodeID . "'", 'GradeNilai'); $arrPT = explode('~', $pmb['PrestasiTambahan']); foreach ($arrPT as $Prestasi) { if (!empty($Prestasi)) { $PrestasiTambahan .= empty($PrestasiTambahan) ? $Prestasi : "<br>" . $Prestasi; } } $ck = $pmb['LulusUjian'] == 'Y' ? 'checked' : ''; echo ' <script> function cekThisForm(){ var errmsg = ""; var cek = document.getElementById("LulusUjian").checked; var nilai = document.getElementById("NilaiUjian").value; if (cek == true){ if (nilai == 0){ errmsg += "Nilai ujian masih bernilai 0 \\n"; } } if (errmsg != ""){ alert (errmsg); return false; } else { return true; } } </script> '; echo "<table class=bsc cellspacing=1 width=100%>\r\n \r\n <form action='../{$_SESSION['mnux']}.nilai.php' method=POST onsubmit='return cekThisForm()'>\r\n <input type=hidden name='PMBID' value='{$PMBID}' />\r\n <input type=hidden name='gos' value='Simpan' />\r\n "; $pmbformulir = GetFields('pmbformulir', "KodeID='" . KodeID . "' and PMBFormulirID", $pmb['PMBFormulirID'], 'USM, Wawancara'); // Bila PMB Formulir memiliki komponen ujian, ambil kolom dan isi detail USM nya if ($pmbformulir['USM'] == 'Y') { $DetailUSM = AmbilDetailUSM($pmb); echo "\r\n\t <tr><th class=ttl colspan=2>Detail Penilaian</th></tr>\r\n\t {$DetailUSM}\r\n\t <tr><th class=ttl colspan=2>Penilaian Akhir</th></tr>"; } if ($pmbformulir['Wawancara'] == 'Y') { $HasilWawancara = GetaField('wawancara w', "w.Tanggal = (select max(w2.Tanggal) from wawancara w2 where w2.PMBID='{$PMBID}' group by w2.PMBID) and w.PMBID='{$PMBID}' and w.KodeID", KodeID, "HasilWawancara"); $_HasilWawancara = !empty($HasilWawancara) ? "<td class=ul1><input type=text name='HasilWawancara' value='{$HasilWawancara}' disabled></td>" : "<td><b>Belum Wawancara</b></td>"; echo "<tr><td class=inp>Hasil Wawancara:</td>\r\n\t\t\t\t{$_HasilWawancara}\r\n\t\t\t\t</tr>"; } echo "\r\n <tr><td class=inp>Nilai Sekolah Terakhir:</td>\r\n\t <td class=ul1><input type=text name='NilaiSekolah' value='{$getnilaisekolah}' size=4 maxlength=4 style='text-align:right' disabled></td></tr>\r\n <tr><td class=inp>Prestasi Tambahan:</td>\r\n\t <td class=ul1>{$PrestasiTambahan}</td>\r\n\t </tr>"; echo "\r\n <tr><td class=inp>Catatan Lainnya:</td>\r\n\t <td class=ul1><textarea name='Catatan' cols=30 row=2>{$pmb['Catatan']}</textarea></td>\r\n\t </tr>\r\n <tr><td class=inp width=100>Pilihan Final:</td>\r\n <td class=ul1><select name='ProdiID'>{$optprodi}</select></td>\r\n </tr>\r\n <tr><td class=inp>Lulus?</td>\r\n <td class=ul1><input type=checkbox id='LulusUjian' name='LulusUjian' value='Y' {$ck} />\r\n Beri tanda centang jika lulus\r\n </td></tr>\r\n <tr><td class=inp>Grade:</td>\r\n <td class=ul1><input type=text name='GradeNilai' value='{$getgrade}' size=5 readonly></td>\t \r\n </tr>\r\n <tr><td class=ul1 colspan=2 align=center>\r\n <input type=submit name='Simpan' value='Simpan' />\r\n <input type=button name='Batal' value='Batal' onClick=\"window.close()\" />\r\n </td></tr>\r\n </form>\r\n </table>"; }
function TampilkanHalaman() { TampilkanHeader(); if (!empty($_SESSION[periode1])){ TampilkanRemedial(); } }
function fnEdit() { $mhsw = GetFields("mhsw m", "m.MhswID='{$_SESSION['mhswid']}' and m.KodeID", KodeID, "m.*"); $alumni = GetFields("alumni a", "a.MhswID='{$_SESSION['mhswid']}' and a.KodeID", KodeID, "a.*"); if (empty($mhsw) || empty($alumni)) { echo ErrorMsg('Error', "Data alumni tidak ditemukan.<br />\r\n Hubungi Sysadmin untuk informasi lebih lanjut.\r\n <hr size=1 color=silver />\r\n <input type=button name='btnKembali' value='Kembali'\r\n onClick=\"location='?mnux={$_SESSION['mhswbck']}&gos='\" />"); } else { TampilkanHeader($mhsw, $alumni); TampilkanTab($mhsw, $alumni, $_SESSION['tabalumni']); } }
function DftrPMB($gels, $gel) { TampilkanHeader($gels, $gel); global $_maxbaris, $arrUrut; include_once "class/dwolister.class.php"; $hr = "<hr size=1 color=silver />"; $rs = "rowspan=3"; $rsm = "rowspan=2"; // Urutan $_urut = $arrUrut[$_SESSION['_pmbUrut']]; $__urut = explode('~', $_urut); $urut = "order by " . $__urut[1]; // Filter formulir $whr = array(); if (!empty($_SESSION['_pmbFrmID'])) { $whr[] = "p.PMBFormulirID='{$_SESSION['_pmbFrmID']}'"; } if (!empty($_SESSION['_pmbPrg'])) { $whr[] = "p.ProgramID = '{$_SESSION['_pmbPrg']}' "; } if (!empty($_SESSION['_pmbNama'])) { $whr[] = "p.Nama like '%{$_SESSION['_pmbNama']}%'"; } if (!empty($_SESSION['_pmbNomer'])) { $whr[] = "p.PMBID like '%{$_SESSION['_pmbNomer']}%'"; } if ($_SESSION[_LevelID] == 50) { $whr[] = "p.StatusAwalID = 'PM'"; } else { $whr[] = " p.StatusAwalID != 'PM'"; } $_whr = implode(' and ', $whr); $_whr = empty($_whr) ? '' : 'and ' . $_whr; $pagefmt = "<a href='?mnux={$_SESSION['mnux']}&gos=&_pmbPage==PAGE='>=PAGE=</a>"; $pageoff = "<b>=PAGE=</b>"; $brs = "<hr size=1 color=silver />"; $gantibrs = "<tr><td bgcolor=silver height=1 colspan=11></td></tr>"; $lst = new dwolister(); $lst->tables = "pmb p \r\n left outer join pmbformulir f on p.PMBFormulirID = f.PMBFormulirID\r\n left outer join program _prg on p.ProgramID = _prg.ProgramID\r\n left outer join prodi _p1 on p.Pilihan1 = _p1.ProdiID\r\n left outer join prodi _p2 on p.Pilihan2 = _p2.ProdiID\r\n left outer join prodi _p3 on p.Pilihan3 = _p3.ProdiID\r\n left outer join statusawal _sta on p.StatusAwalID = _sta.StatusAwalID\r\n left outer join wawancara w on p.PMBID = w.PMBID and w.Tanggal = (select max(Tanggal) from wawancara where PMBID=p.PMBID group by PMBID)\r\n\tleft outer join asalsekolah a on p.AsalSekolah = a.SekolahID\r\n\tleft outer join perguruantinggi pt on p.AsalSekolah = pt.PerguruanTinggiID\r\n\twhere p.KodeID = '" . KodeID . "' \r\n and p.PMBPeriodID='{$gel}'\r\n {$_whr}\r\n {$urut}"; $lst->fields = "p.PMBID, p.Nama, p.Kelamin, p.ProdiID, p.Pilihan1, p.Pilihan2, p.Pilihan3, \r\n p.DetailNilai, p.NilaiUjian, p.GradeNilai, p.LulusUjian as LU, p.NA, p.NilaiSekolah, \r\n p.AsalSekolah, _prg.Nama as PRG, w.WawancaraID,\r\n if(a.Nama like '_%', a.Nama, \r\n\t\tif(pt.Nama like '_%', pt.Nama, p.AsalSekolah)) as _NamaSekolah,\r\n\tconcat('• ', replace(p.PrestasiTambahan, '~', '<br />• ')) as PT,\r\n f.Nama as FRM, _p1.Nama as P1, _p2.Nama as P2, _p3.Nama as P3,\r\n _sta.Nama as STA,\r\n if (p.ProdiID = p.Pilihan1, 'wrn', concat('cna', p.LulusUjian)) as _selP1,\r\n if (p.ProdiID = p.Pilihan2, 'wrn', concat('cna', p.LulusUjian)) as _selP2,\r\n if (p.ProdiID = p.Pilihan3, 'wrn', concat('cna', p.LulusUjian)) as _selP3,\r\n if (p.NilaiUjian+0 = 0, 'Belum Dihitung', concat(p.NilaiUjian, ' ( ', p.GradeNilai, ' ) ')) as _NilaiUjian,\r\n if (p.MhswID is NULL or p.MhswID = '', '', \"<img src='img/lock.jpg' width=26 title='Sudah menjadi Mahasiswa' />\") as KUNCI,\r\n\tif (p.LulusUjian='Y', \"<img src='img/printer2.gif' />\" , '') as PRINT\r\n "; $lst->page = $_SESSION['_pmbPage'] + 0; $lst->pages = $pagefmt; $lst->pageactive = $pageoff; $lst->maxrow = $_maxbaris; $lst->headerfmt = "<p><table class=box cellspacing=1 align=center width=1000>\r\n \r\n <tr>\r\n <th class=ttl>#</th>\r\n <th class=ttl>PMB #</th>\r\n <th class=ttl>\r\n Nama\r\n {$hr}\r\n Asal Sekolah\r\n </th>\r\n <th class=ttl>\r\n Formulir\r\n {$hr}\r\n Program\r\n {$hr}\r\n Status\r\n </th>\r\n <th class=ttl colspan=2>\r\n Pilihan\r\n <hr size=1 color=silver />\r\n (Pilihan akhir ditandai<br />dengan warna biru)\r\n </th>\r\n <th class=ttl>Prestasi Tambahan</th>\r\n <th class=ttl>Nilai Ujian\r\n\t <hr size=1 color=silver />\r\n\t Nilai Sekolah\r\n <hr size=1 color=silver />\r\n Grade\r\n </th>\r\n </tr>"; $lst->detailfmt = "<tr>\r\n <td class=inp width=10 {$rs}>=NOMER=</td>\r\n <td class=ul1 width=84 {$rs} align=center><b>=PMBID=<br />=KUNCI=</b></td>\r\n <td class=cna=LU=><b>=Nama=</b></td>\r\n <td class=cna=LU= width=100>=FRM=</td>\r\n <td class==_selP1= width=30>=Pilihan1= \r\n </td>\r\n <td class==_selP1= width=170>=P1= \r\n </td>\r\n <td class=cna=LU= width=200 {$rs}>\r\n =PT= \r\n </td>\r\n <td class=cna=LU= width=70 align=right><b>=_NilaiUjian=</b></td>\r\n </tr>\r\n \r\n <tr>\r\n <td class=cna=LU=>» =_NamaSekolah=</td>\r\n <td class=cna=LU=>=PRG= </td>\r\n <td class==_selP2=>=Pilihan2= </td>\r\n <td class==_selP2=>=P2= </td>\r\n <td class=cna=LU= align=right> <b>=NilaiSekolah=</b></td>\r\n </tr>\r\n\t\r\n <tr>\r\n <td class=cna=LU= align=right><img src='img/=Kelamin=.bmp' /></td>\r\n <td class=cna=LU=>=STA=</td>\r\n <td class==_selP3=>=Pilihan3= </td>\r\n <td class==_selP3=>=P3= </td>\r\n <td class=ul1 align=right>\r\n Lulus: <a href='#' onClick=\"javascript:EditNilai('=PMBID=')\" /><img src='img/=LU=.gif' /></a>\r\n\t\t\t <a href='#' onClick=\"javascript:CetakSuratKelulusan('=PMBID=', '=WawancaraID=')\" />=PRINT=</a>\r\n\t </td>\r\n </tr>\r\n " . $gantibrs; $lst->footerfmt = "</table>"; $hal = $lst->TampilkanHalaman(); $ttl = $lst->MaxRowCount; echo $lst->TampilkanData(); echo "<p align=center>Hal: {$hal} <br />(Tot: {$ttl})</p>"; }
function StatusMhsw() { TampilkanHeader(); global $arrUrutMhsw; $_maxbaris = 10; include_once "class/dwolister.class.php"; // Urutan if ($_SESSION['_LevelID'] == 1) { $edit = "<a href='#' onClick=\"location='?mnux={$_SESSION['mnux']}&gos=StatusMhswEdt&md=0&id==ProsesStatusMhswID='\" />\n <img src='img/edit.png' /></a>"; } $_urut = $arrUrutMhsw[$_SESSION['_statusmhswUrut']]; $__urut = explode('~', $_urut); $urut = "order by " . $__urut[1]; // Filter formulir $whr = array(); if (!empty($_SESSION['_statusmhswNomer'])) { $whr[] = "psm.MhswID like '%{$_SESSION['_statusmhswNomer']}%'"; } if (!empty($_SESSION['_statusmhswProdi'])) { $whr[] = "m.ProdiID = '{$_SESSION['_statusmhswProdi']}' "; } if (!empty($_SESSION['_statusmhswPrg'])) { $whr[] = "m.ProgramID = '{$_SESSION['_statusmhswPrg']}' "; } if (!empty($_SESSION['_statusmhswNama'])) { $whr[] = "m.Nama like '%{$_SESSION['_statusmhswNama']}%'"; } if (!empty($_SESSION['_statusmhswID'])) { $whr[] = "psm.StatusMhswID = '{$_SESSION['_statusmhswID']}'"; } $_whr = implode(' and ', $whr); $_whr = empty($_whr) ? '' : 'and ' . $_whr; $pagefmt = "<a href='?mnux={$_SESSION['mnux']}&gos=&_statusmhswPage==PAGE='>=PAGE=</a>"; $pageoff = "<b>=PAGE=</b>"; $brs = "<hr size=1 color=silver />"; $gantibrs = "<tr><td bgcolor=silver height=1 colspan=11></td></tr>"; $lst = new dwolister(); $lst->tables = "prosesstatusmhsw psm\n\tleft outer join mhsw m on psm.MhswID = m.MhswID\n left outer join prodi _prd on m.ProdiID = _prd.ProdiID\n\tleft outer join program _prg on m.ProgramID = _prg.ProgramID\n left outer join statusmhsw _stm on psm.StatusMhswLama = _stm.StatusMhswID\n\tleft outer join statusmhsw _stm2 on psm.StatusMhswID = _stm2.StatusMhswID\n where psm.KodeID = '" . KodeID . "' \n {$_whr}\n {$urut}"; $lst->fields = "DISTINCT(psm.ProsesStatusMhswID), psm.MhswID, m.Nama, m.Kelamin, m.ProgramID, m.ProdiID, psm.StatusMhswLama, psm.StatusMhswID, psm.NA,\n\t\t\t\t\t_prg.Nama as _PRG, \n\t\t\t\t\t_stm.Nama as NamaStatusLama, _stm2.Nama as NamaStatusBaru"; //$lst->startrow = $_SESSION['_statusmhswPage']+0; $lst->maxrow = $_maxbaris; $lst->pages = $pagefmt; $lst->pageactive = $pageoff; $lst->page = $_SESSION['_statusmhswPage'] + 0; $lst->headerfmt = "<p><table class=box cellspacing=1 align=center width=600>\n \n <tr>\n <th class=ttl colspan=2>#</th>\n <th class=ttl>NIM</th>\n <th class=ttl colspan=2>Nama</th>\n <th class=ttl>Prodi<hr size=1 color=silver />Program</th>\n\t<th class=ttl>Status Baru<hr size=1 color=silver />Status Lama</th>\n <th class=ttl> </th>\n </tr>"; $lst->detailfmt = "<tr>\n <td class=inp width=10>=NOMER=</td>\n <td class=ul1 width=10>\n {$edit}\n </td>\n <td class=ul1 width=80>=MhswID=</td>\n <td class=cna=NA=>=Nama=</td>\n <td class=cna=NA= width=10 align=center><img src='img/=Kelamin=.bmp' /></td>\n <td class=cna=NA= width=120 align=center>\n =ProdiID= \n <hr size=1 color=silver />\n =_PRG= \n </td>\n\t<td class=cna=NA= width=120 align=center>\n\t =NamaStatusBaru= \n\t <hr size=1 color=silver />\n\t <font color=silver>=NamaStatusLama=</font> </td>\n\t<td class=cna=NA= width=15 align=center><a href='#' onClick=\"PrintSurat(=ProsesStatusMhswID=)\"><img title='Surat Keterangan' src='img/printer2.gif'></a>\n\t </td>\n </tr>" . $gantibrs; $lst->footerfmt = "</table>\n <script>\n\t\tfunction PrintSurat(id)\n\t\t{\tlnk = '{$_SESSION['mnux']}.keterangan.php?_psmid='+id;\n\t\t\twin2 = window.open(lnk, '', 'width=600, height=500, scrollbars, status');\n\t\t\tif (win2.opener == null) childWindow.opener = self;\n\t\t}\n\t</script>"; $hal = $lst->TampilkanHalaman($pagefmt, $pageoff); $ttl = $lst->MaxRowCount; echo $lst->TampilkanData(); echo "<p align=center>Hal: {$hal} <br />(Tot: {$ttl})</p>"; }
function DftrForm($gel) { TampilkanHeader($gel); global $arrUrut; $_maxbaris = 10; include_once "class/dwolister.class.php"; // Urutan if ($_SESSION['_LevelID'] != 33) { $_urut = $arrUrut[$_SESSION['_pmbwebUrut']]; $__urut = explode('~', $_urut); $urut = "order by " . $__urut[1]; // Filter formulir $whr = array(); if (!empty($_SESSION['_pmbwebFrmID'])) { $whr[] = "p.PMBFormulirID='{$_SESSION['_pmbwebFrmID']}'"; } if (!empty($_SESSION['_pmbwebPrg'])) { $whr[] = "p.ProgramID = '{$_SESSION['_pmbwebPrg']}' "; } if (!empty($_SESSION['_pmbwebNama'])) { $whr[] = "p.Nama like '%{$_SESSION['_pmbwebNama']}%'"; } if (!empty($_SESSION['_pmbwebNomer'])) { $whr[] = "p.PMBWebID like '%{$_SESSION['_pmbwebNomer']}%'"; } $_whr = implode(' and ', $whr); $_whr = empty($_whr) ? '' : 'and ' . $_whr; } else { $_whr = "and p.PMBWebID = {$_SESSION['_Login']}"; } $pagefmt = "<a href='?mnux={$_SESSION['mnux']}&gos=&_pmbwebPage==PAGE='>=PAGE=</a>"; $pageoff = "<b>=PAGE=</b>"; $brs = "<hr size=1 color=silver />"; $gantibrs = "<tr><td bgcolor=silver height=1 colspan=11></td></tr>"; $lst = new dwolister(); $lst->tables = "pmbweb p \r\n left outer join pmbformulir f on p.PMBFormulirID = f.PMBFormulirID\r\n left outer join prodi _p1 on p.Pilihan1 = _p1.ProdiID\r\n left outer join prodi _p2 on p.Pilihan2 = _p2.ProdiID\r\n left outer join prodi _p3 on p.Pilihan3 = _p3.ProdiID\r\n left outer join program _prg on p.ProgramID = _prg.ProgramID\r\n left outer join statusawal _sta on p.StatusAwalID = _sta.StatusAwalID\r\n where p.KodeID = '" . KodeID . "' \r\n {$_whr}\r\n\t and p.Diproses = 'N'\r\n {$urut}"; $lst->fields = "p.PMBWebID, p.Nama, p.Kelamin, p.ProdiID, p.Pilihan1, p.Pilihan2, p.Pilihan3,\r\n f.Nama as FRM, _p1.Nama as P1, \r\n\tif(f.JumlahPilihan <= 2, concat('<br>', _p2.Nama), '') as P2, \r\n\tif(f.JumlahPilihan <= 3, concat('<br>', _p3.Nama), '') as P3,\r\n\tif(p.StatusAwalID='S', concat('<font color=blue>',_sta.Nama,'<font>') , _sta.Nama) as STA,\r\n _prg.Nama as PRG, p.NA, p.NilaiSekolah"; //$lst->startrow = $_SESSION['_pmbwebPage']+0; $lst->maxrow = $_maxbaris; $lst->pages = $pagefmt; $lst->pageactive = $pageoff; $lst->page = $_SESSION['_pmbwebPage'] + 0; $lst->headerfmt = "<p><table class=box cellspacing=1 align=center width=1000>\r\n \r\n <tr>\r\n <th class=ttl>#</th>\r\n <th class=ttl>PMB Web ID</th>\r\n <th class=ttl colspan=2>Nama</th>\r\n <th class=ttl>Status</th>\r\n\t<th class=ttl>Program</th>\r\n <th class=ttl>Pilihan</th>\r\n\t<th class=ttl>Nilai</br>Sekolah</th>\r\n\t<th class=ttl>Proses?</th>\r\n </tr>"; $lst->detailfmt = "<tr>\r\n <td class=inp width=10>=NOMER=</td>\r\n <td class=ul1 width=80>=PMBWebID=</td>\r\n <td class=cna=NA=>=Nama=</td>\r\n <td class=cna=NA= width=10 align=center><img src='img/=Kelamin=.bmp' /></td>\r\n <td class=cna=NA= width=70 align=center>=STA=</td>\r\n <td class=cna=NA= width=120 align=center>=PRG=</td>\r\n <td class=cna=NA= width=140 align=center>=P1==P2==P3=</td>\r\n <td class=cna=NA= width=100 align=center>=NilaiSekolah=</td>\r\n\t <td class=cna=NA= width=70 align=center><input type=button name='Proses' value='Proses' onClick=\"location='?mnux={$_SESSION['mnux']}&gos=Proses&pmbwebid==PMBWebID='\"></td>\r\n\t </tr>" . $gantibrs; $lst->footerfmt = "</table>"; $hal = $lst->TampilkanHalaman($pagefmt, $pageoff); $ttl = $lst->MaxRowCount; echo $lst->TampilkanData(); echo "<p align=center>Hal: {$hal} <br />(Tot: {$ttl})</p>"; }
function DftrCama($gels, $gel) { TampilkanHeader($gels, $gel); global $_maxbaris, $arrUrut; include_once "class/dwolister.class.php"; // Urutan $_urut = $arrUrut[$_SESSION['_pmbUrut']]; $__urut = explode('~', $_urut); $urut = "order by " . $__urut[1]; // Filter formulir $whr = array(); if (!empty($_SESSION['_pmbFrmID'])) { $whr[] = "p.PMBFormulirID='{$_SESSION['_pmbFrmID']}'"; } if (!empty($_SESSION['_pmbPrg'])) { $whr[] = "p.ProgramID = '{$_SESSION['_pmbPrg']}' "; } if (!empty($_SESSION['_pmbNama'])) { $whr[] = "p.Nama like '%{$_SESSION['_pmbNama']}%'"; } if (!empty($_SESSION['_pmbNomer'])) { $whr[] = "p.PMBID like '%{$_SESSION['_pmbNomer']}%'"; } if (!empty($_SESSION['_pmbPrd'])) { $whr[] = "p.ProdiID = '{$_SESSION['_pmbPrd']}'"; } $_whr = implode(' and ', $whr); $_whr = empty($_whr) ? '' : 'and ' . $_whr; $NIMSementara = GetaField('prodi', 'ProdiID', $pmb['ProdiID'], 'GunakanNIMSementara'); $pagefmt = "<a href='?mnux={$_SESSION['mnux']}&gos=&_pmbPage==PAGE='>=PAGE=</a>"; $pageoff = "<b>=PAGE=</b>"; $brs = "<hr size=1 color=silver />"; $gantibrs = "<tr><td bgcolor=silver height=1 colspan=11></td></tr>"; $lst = new dwolister(); $lst->tables = "pmb p \r\n left outer join pmbformulir f on p.PMBFormulirID = f.PMBFormulirID\r\n left outer join prodi _p on p.ProdiID = _p.ProdiID\r\n left outer join program _prg on p.ProgramID = _prg.ProgramID\r\n left outer join statusawal _sta on p.StatusAwalID = _sta.StatusAwalID\r\n\t\tleft outer join mhsw m on m.MhswID = p.MhswID\r\n where p.KodeID = '" . KodeID . "' \r\n and p.PMBPeriodID='{$gel}'\r\n {$_whr}\r\n {$urut}"; $lst->fields = "p.PMBID, p.MhswID, p.Nama, p.Kelamin, \r\n p.ProdiID, p.Pilihan1, p.Pilihan2, p.Pilihan3, \r\n f.Nama as FRM, p.LulusUjian, m.NIMSementara,\r\n _p.Nama as Prodi,\r\n _sta.Nama as STA, _prg.Nama as PRG,\r\n format(p.TotalBiaya, 0) as _TotalBiaya,\r\n format(p.TotalBayar, 0) as _TotalBayar,\r\n if (p.StatusAwalID2 = 'Y', ' - Mahasiswa Transfer', '') as _STAAWAL2,\r\n if (p.LulusUjian = 'Y', if (p.MhswID is NULL or p.MhswID = '', concat('<a href=\\'?mnux={$_SESSION['mnux']}&gos=MhswBaruEdt&PMBID=', p.PMBID, '\\'>\r\n <img src=\\'img/edit.jpg\\' width=30 title=\\'Pembayaran dan pemrosesan Cama\\' /></a>'), '<img src=\\'img/lock.jpg\\' width=30 title=\\'Sudah diproses menjadi mahasiswa\\' />'), '×') as EDT,\r\n\t if (p.LulusUjian = 'Y', concat('<a href=\\'#\\' onClick=\"javascript:CetakKartu(\\'', p.PMBID, '\\',\\'', m.NIMSementara, '\\')\" /><img src=\\'img/printer2.gif\\' /></a>'), ' ') as _ktm"; $lst->page = $_SESSION['_pmbPage'] + 0; $lst->maxrow = $_maxbaris; $lst->pages = $pagefmt; $lst->pageactive = $pageoff; $lst->headerfmt = "<p><table class=box cellspacing=1 align=center width=1000>\r\n \r\n <tr>\r\n <th class=ttl colspan=2>#</th>\r\n <th class=ttl>\r\n PMB #\r\n <hr size=1 color=silver />\r\n NIM\r\n </th>\r\n <th class=ttl colspan=2>Nama</th>\r\n <th class=ttl>\r\n Status\r\n <hr size=1 color=silver />\r\n Kelulusan\r\n </th>\r\n <th class=ttl>Formulir<hr size=1 color=silver />Program</th>\r\n <th class=ttl>Prodi</th>\r\n <th class=ttl width=100>BIPOT\r\n <a href='#' onClick=\"alert('Jumlah Biaya yg harus dibayarkan oleh Cama pada tahap 1 pembayaran')\"><img src='img/info.gif' /></a>\r\n <hr size=1 color=silver />\r\n Bayar</th>\r\n <th class=ttl> </th>\r\n </tr>"; $lst->detailfmt = "<tr>\r\n <td class=inp width=10>=NOMER=</td>\r\n <td class=ul1 width=10 align=center>\r\n =EDT=\r\n </td>\r\n <td class=ul width=80 align=center>\r\n =PMBID= \r\n <hr size=1 color=silver />\r\n <sub>=MhswID=</sub>\r\n </td>\r\n <td class=cnn=LulusUjian=>=Nama= {$gel}</td>\r\n <td class=cnn=LulusUjian= width=10 align=center><img src='img/=Kelamin=.bmp' /></td>\r\n <td class=cnn=LulusUjian= width=70 align=center>\r\n =STA=\r\n <hr size=1 color=silver />\r\n <img src='img/=LulusUjian=.gif' />\r\n </td>\r\n <td class=cnn=LulusUjian= width=120>\r\n =FRM= \r\n <hr size=1 color=silver />\r\n =PRG= =_STAAWAL2=\r\n </td>\r\n <td class=cnn=LulusUjian= width=200>\r\n =ProdiID=\r\n <hr size=1 color=silver />\r\n =Prodi= </td>\r\n <td class=cnn=LulusUjian= align=right>\r\n =_TotalBiaya=\r\n <hr size=1 color=silver />\r\n =_TotalBayar=\r\n </td>\r\n <td class=ul1 width=10 align=center>\r\n =_ktm= \r\n </td>\r\n </tr>" . $gantibrs; $lst->footerfmt = "</table>\r\n\t<script>\r\n\t\tfunction CetakKartu(pmbid,ob)\r\n\t\t{\t\r\n\t\t\tif (ob == 'Y'){\r\n\t\t\t\talert ('Mahasiswa ini masih memiliki NIM Sementara. \\n Lakukan Konversi NIM terlebih dahulu');\r\n\t\t\t} else {\r\n\t\t\t\tlnk = \"{$_SESSION['mnux']}.ktm.php?pmbid=\"+pmbid;\r\n\t\t\t\t win2 = window.open(lnk, \"\", \"width=600, height=400, scrollbars, resizable, status\");\r\n\t\t\t\t if (win2.opener == null) childWindow.opener = self;\r\n\t\t\t }\r\n\t\t}\r\n\t</script>"; $hal = $lst->TampilkanHalaman(); $ttl = $lst->MaxRowCount; echo $lst->TampilkanData(); echo "<p align=center>Hal: {$hal} <br />(Tot: {$ttl})</p>"; }
function TampilkanIsinya($bipotid, $p) { $s = "select b2.*, bn.Nama, format(b2.Jumlah, 0) as JML,\r\n t.Nama as NMTRX, s.Nama as SAAT\r\n from bipot2 b2\r\n left outer join bipotnama bn on b2.BIPOTNamaID=bn.BIPOTNamaID\r\n left outer join saat s on b2.SaatID=s.SaatID\r\n left outer join trx t on b2.TrxID=t.TrxID\r\n where b2.BIPOTID='{$bipotid}' and KodeID='" . KodeID . "'\r\n order by b2.TrxID, b2.Prioritas, b2.GradeNilai"; $r = _query($s); $n = 0; $t = 6; TampilkanHeader($p); while ($w = _fetch_array($r)) { $n++; $p->SetFont('Helvetica', '', 9); $p->Cell(12, $t, $w['Prioritas'], 'LB', 0, 'R'); $p->Cell(80, $t, $w['Nama'], 'B', 0, 'L'); $p->Cell(30, $t, $w['JML'], 'B', 0, 'R'); $p->Cell(15, $t, $w['KaliSesi'], 'B', 0, 'R'); $_GradeNilai = $w['GunakanGradeNilai'] == 'Y' ? $w['GradeNilai'] : '-'; $p->Cell(20, $t, $_GradeNilai, 'BR', 0, 'C'); $p->Ln($t); } }
function TampilkanIsinya($gel, $gels, $p) { $s = "select p.PMBID, p.Nama, p.AsalSekolah, NilaiSekolah,\r\n p.KotaOrtu, prd.Nama as _PRD, prg.Nama as _PRG\r\n from pmb p\r\n left outer join prodi prd on prd.ProdiID = p.Pilihan1 and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = p.ProgramID and prg.KodeID = '" . KodeID . "'\r\n where p.KodeID = '" . KodeID . "'\r\n and p.PMBPeriodID = '{$gel}'\r\n order by p.NilaiSekolah desc, p.Nama "; $r = _query($s); $n = 0; $t = 6; TampilkanHeader($p); while ($w = _fetch_array($r)) { $n++; $p->SetFont('Helvetica', '', 9); $p->Cell(12, $t, $n, 'LB', 0, 'C'); $p->Cell(17, $t, $w['NilaiSekolah'], 'B', 0, 'C'); $p->Cell(20, $t, $w['PMBID'], 'B', 0, 'C'); $p->Cell(50, $t, $w['Nama'], 'B', 0, 'L'); $p->Cell(50, $t, $w['_PRD'], 'B', 0, 'C'); $p->Cell(30, $t, $w['_PRG'], 'BR', 0, 'C'); // $p->Cell(10, $t, $w['NilaiUjian'], 'BR', 0, 'R'); $p->Ln($t); } }
function DftrLoginList($gel) { $a = TampilkanHeader($gel); global $arrUrut; $_maxbaris = 10; include_once "class/dwolister.class.php"; // Urutan $_urut = $arrUrut[$_SESSION['_pmbLoginUrut']]; $__urut = explode('~', $_urut); $urut = "order by " . $__urut[1]; // Filter formulir $whr = array(); if (!empty($_SESSION['_pmbLoginNama'])) { $whr[] = "a.Nama like '%{$_SESSION['_pmbLoginNama']}%'"; } $_whr = implode(' and ', $whr); $_whr = empty($_whr) ? '' : 'and ' . $_whr; $pagefmt = "<a href='?mnux={$_SESSION['mnux']}&gos=&_pmbLoginPage==PAGE='>=PAGE=</a>"; $pageoff = "<b>=PAGE=</b>"; $brs = "<hr size=1 color=silver />"; $gantibrs = "<tr><td bgcolor=silver height=1 colspan=11></td></tr>"; $lst = new dwolister(); $lst->tables = "aplikan a \n where a.KodeID = '" . KodeID . "' \n and a.PMBPeriodID='{$gel}'\n {$_whr}\n {$urut}"; $lst->fields = "a.AplikanID, a.Nama, a.JmlReset, if(a.PasswordBaru='Y', '<font color=red>Default</font>', '<font color=blue>Set</font>') as PASSSTATUS, a.NA, if(a.AplikanID='{$_SESSION['_pmbLoginAplikanID']}', 'inp1', 'ul1') as CLASS"; //$lst->startrow = $_SESSION['_pmbPage']+0; $lst->maxrow = $_maxbaris; $lst->pages = $pagefmt; $lst->pageactive = $pageoff; $lst->page = $_SESSION['_pmbLoginPage'] + 0; $lst->headerfmt = "<table class=box cellspacing=1 width=100%>\n \n <tr>\n <th class=ttl>#</th>\n <th class=ttl>PMB #</th>\n <th class=ttl>Nama</th>\n <th class=ttl>Status</th>\n <th class=ttl>Reset</th>\n </tr>"; $lst->detailfmt = "<tr>\n <td class=inp width=10>=NOMER=</td>\n <td class==CLASS= width=80>=AplikanID=</td>\n <td class==CLASS=><a href='?mnux={$_SESSION['mnux']}&gos=&_pmbLoginAplikanID==AplikanID='>=Nama=</td>\n <td class==CLASS= width=50 align=center>=PASSSTATUS=</td>\n\t<td class==CLASS= width=50 align=center>=JmlReset=x</td>\n </tr>" . $gantibrs; $lst->footerfmt = "</table>"; $hal = $lst->TampilkanHalaman($pagefmt, $pageoff); $ttl = $lst->MaxRowCount; $a .= $lst->TampilkanData(); $a .= "<p align=left>Hal: {$hal} <br />(Tot: {$ttl})</p>"; return $a; }
function TampilkanIsinya($gel, $gels, $p) { $s = "select p.PMBID, p.Nama, p.AsalSekolah,\r\n UPPER(p.Kota) as _Kota,\r\n\tif(a.Nama like '_%', a.Nama, \r\n\t\tif(pt.Nama like '_%', pt.Nama, p.AsalSekolah)) as _NamaSekolah \r\n from pmb p\r\n\t left outer join asalsekolah a on a.SekolahID = p.AsalSekolah\r\n\t left outer join perguruantinggi pt on pt.PerguruanTinggiID = p.AsalSekolah\r\n where p.KodeID = '" . KodeID . "'\r\n and p.PMBPeriodID = '{$gel}'\r\n order by UPPER(p.Kota), p.Nama "; $r = _query($s); $n = 0; $t = 6; $Kota = ';laskdjf;laskdjf'; while ($w = _fetch_array($r)) { if ($Kota != $w['_Kota']) { $Kota = $w['_Kota']; $p->Ln(2); $p->SetFont('Helvetica', 'B', 10); $p->Cell(185, $t, $w['_Kota'], 0, 1); TampilkanHeader($p); } $n++; $p->SetFont('Helvetica', '', 9); $p->Cell(15, $t, $n, 'LB', 0); $p->Cell(20, $t, $w['PMBID'], 'B', 0); $p->Cell(50, $t, $w['Nama'], 'B', 0); $p->Cell(100, $t, $w['_NamaSekolah'], 'BR', 0); $p->Ln($t); } }
echo "<p><table class=box cellspacing=2 cellpadding=4 width=600>\r\n\r\n <tr><td class=inp width=100>NPM</td>\r\n <td class=ul><b>{$w['MhswID']}</td>\r\n <td rowspan=7 class=box width=124 style='padding: 2pt' align=center valign=middle>\r\n <img src='{$foto}' height=120 /></td>\r\n </tr>\r\n\r\n <tr><td class=inp>Nama</td>\r\n <td class=ul><b>{$w['Nama']}</td></tr>\r\n <tr><td class=inp>Program</td>\r\n <td class=ul><b>{$w['ProgramID']}</td></tr>\r\n <tr><td class=inp>Program Studi</td>\r\n <td class=ul><b>{$w['ProdiID']}</td></tr>\r\n <tr><td class=inp>File Foto</td>\r\n <td class=ul>{$w['Foto']}</td></tr>\r\n <tr><td class=inp>Pilihan</td>\r\n <td class=ul>\r\n <input type=button name='Kembali' value='Kembali ke Data Mhsw'\r\n onClick=\"location='?mnux=master/mhsw.edt&mhswid={$w['MhswID']}'\" />\r\n </td></tr>\r\n </table></p>"; } function TampilkanUploadFoto($w) { $MaxFileSize = 500000; echo "<p><table class=box cellspacing=1 cellpadding=4 width=600>\r\n <form action='index.php' enctype='multipart/form-data' method=POST>\r\n <input type=hidden name='MAX_FILE_SIZE' value='{$MaxFileSize}' />\r\n <input type=hidden name='mnux' value='{$_SESSION['mnux']}'>\r\n <input type=hidden name='gos' value='aplodFoto'>\r\n <input type=hidden name='mhswid' value='{$w['MhswID']}'>\r\n <tr><td class=inp width=100>File Foto</td>\r\n <td class=ul><input type=file name='foto' size=35></td></tr>\r\n <tr><td class=ul colspan=2 align=center>\r\n <input type=submit name='Upload' value='Upload File Foto'></td></tr>\r\n </form></table></p>"; } function aplodFoto() { $MhswID = $_REQUEST['mhswid']; $upf = $_FILES['foto']['tmp_name']; $arrNama = explode('.', $_FILES['foto']['name']); $tipe = $_FILES['foto']['type']; $arrtipe = explode('/', $tipe); $extensi = $arrtipe[1]; $dest = "foto/" . $MhswID . '.' . $extensi; //echo $dest; if (move_uploaded_file($upf, $dest)) { $s = "update mhsw set Foto='{$dest}' where MhswID='{$MhswID}' "; $r = _query($s); } else { echo ErrorMsg("Gagal Upload Foto", "Tidak dapat meng-upload file foto.<br />\r\n Periksa file yg di-upload, karena besar file dibatasi cuma: <b>{$_REQUEST['MAX_FILE_SIZE']}</b> byte."); } //print_r($_FILES); } $gos = empty($_REQUEST['gos']) ? 'donothing' : $_REQUEST['gos']; $gos(); $w = GetFields('mhsw', 'MhswID', $_REQUEST['mhswid'], '*'); // *** Main *** TampilkanHeader($w); TampilkanUploadFoto($w);
function DftrForm($gel) { TampilkanHeader($gel); global $arrUrut; $_maxbaris = 10; include_once "class/dwolister.class.php"; // Urutan if ($_SESSION['_LevelID'] != 33) { $_urut = $arrUrut[$_SESSION['_pmbUrut']]; $__urut = explode('~', $_urut); $urut = "order by " . $__urut[1]; // Filter formulir $whr = array(); if (!empty($_SESSION['_pmbFrmID'])) { $whr[] = "p.PMBFormulirID='{$_SESSION['_pmbFrmID']}'"; } if (!empty($_SESSION['_pmbPrg'])) { $whr[] = "p.ProgramID = '{$_SESSION['_pmbPrg']}' "; } if (!empty($_SESSION['_pmbNama'])) { $whr[] = "p.Nama like '%{$_SESSION['_pmbNama']}%'"; } if (!empty($_SESSION['_pmbNomer'])) { $whr[] = "p.PMBID like '%{$_SESSION['_pmbNomer']}%'"; } $_whr = implode(' and ', $whr); $_whr = empty($_whr) ? '' : 'and ' . $_whr; } else { $_whr = "and p.PMBID = {$_SESSION['_Login']}"; } $pagefmt = "<a href='?mnux={$_SESSION['mnux']}&gos=&_pmbPage==PAGE='>=PAGE=</a>"; $pageoff = "<b>=PAGE=</b>"; $brs = "<hr size=1 color=silver />"; $gantibrs = "<tr><td bgcolor=silver height=1 colspan=11></td></tr>"; $lst = new dwolister(); $lst->tables = "pmb p \n left outer join pmbformulir f on p.PMBFormulirID = f.PMBFormulirID\n left outer join prodi _p1 on p.Pilihan1 = _p1.ProdiID\n left outer join prodi _p2 on p.Pilihan2 = _p2.ProdiID\n left outer join prodi _p3 on p.Pilihan3 = _p3.ProdiID\n left outer join program _prg on p.ProgramID = _prg.ProgramID\n left outer join statusawal _sta on p.StatusAwalID = _sta.StatusAwalID\n where p.KodeID = '" . KodeID . "' \n and p.PMBPeriodID='{$gel}'\n {$_whr}\n {$urut}"; $lst->fields = "p.PMBID, p.Nama, p.Kelamin, p.ProdiID, p.Pilihan1, p.Pilihan2, p.Pilihan3,\n f.Nama as FRM, _p1.Nama as P1, \n\tif(f.JumlahPilihan <= 2, _p2.Nama, '-') as P2, \n\tif(f.JumlahPilihan <= 2, p.NA, 'Y') as NA2,\n\tif(f.JumlahPilihan <= 3, _p3.Nama, '-') as P3,\n\tif(f.JumlahPilihan <= 3, p.NA, 'Y') as NA3,\n\tif(p.StatusAwalID='S', concat('<font color=blue>',_sta.Nama,'<font>') , _sta.Nama) as STA,\n _prg.Nama as PRG, p.CetakKartu, p.NA,\n\tif(f.Wawancara = 'Y' and f.USM = 'Y',\n\t\t(\n\t\tif (EXISTS(select ru.RuangUSMID from ruangusm ru where ru.PMBID=p.PMBID and KodeID='" . KodeID . "')\n\t\t\tand (EXISTS(select w.WawancaraUSMID from wawancara w where w.PMBID=p.PMBID and PMBPeriodID='{$gel}' and KodeID='" . KodeID . "')),\n\t\t\t'kursiN', 'kursiY')\n\t\t),\n\t\t(\n\t\t\tif(f.Wawancara = 'N' and f.USM = 'Y',\n\t\t\t(\n\t\t\tif (EXISTS(select ru.RuangUSMID from ruangusm ru where ru.PMBID=p.PMBID and KodeID='" . KodeID . "'),\n\t\t\t\t'kursiN', 'kursiY')\n\t\t\t),\n\t\t\t(\n\t\t\tif(f.Wawancara = 'Y' and f.USM = 'N',\n\t\t\t\t(\n\t\t\t\tif (EXISTS(select w.WawancaraUSMID from wawancara w where w.PMBID=p.PMBID and PMBPeriodID='{$gel}' and KodeID='" . KodeID . "'),\n\t\t\t\t\t'kursiN', 'kursiY')\n\t\t\t\t),'kursiN')\n\t\t\t))\n\t\t)) as _JenisKursi"; //$lst->startrow = $_SESSION['_pmbPage']+0; $lst->maxrow = $_maxbaris; $lst->pages = $pagefmt; $lst->pageactive = $pageoff; $lst->page = $_SESSION['_pmbPage'] + 0; $lst->headerfmt = "<p><table class=box cellspacing=1 align=center width=1000>\n \n <tr>\n <th class=ttl colspan=2>#</th>\n <th class=ttl>PMB #</th>\n <th class=ttl colspan=2>Nama</th>\n <th class=ttl>Status</th>\n <th class=ttl>Formulir<hr size=1 color=silver />Program</th>\n <th class=ttl>Pilihan1</th>\n <th class=ttl>Pilihan2</th>\n <th class=ttl>Pilihan3</th>\n <th class=ttl> </th>\n </tr>"; $lst->detailfmt = "<tr>\n <td class=inp width=10>=NOMER=</td>\n <td class=ul1 width=10>\n <a href='#' onClick=\"javascript:IsiFormulir(0,'{$gel}','=PMBID=')\" />\n <img src='img/edit.png' /></a>\n </td>\n <td class=ul1 width=80>=PMBID=</td>\n <td class=cna=NA=>=Nama= <img src='img/=Kelamin=.bmp' /></td>\n <td class=cna=NA= width=10 align=center><a href='#' onClick=\"PilihKursi('=PMBID=', '{$gel}')\"><img src='img/=_JenisKursi=.jpg'></a></td>\n <td class=cna=NA= width=70>=STA=</td>\n <td class=cna=NA= width=120>\n =FRM= \n <hr size=1 color=silver />\n =PRG= \n </td>\n <td class=cna=NA= width=140>=P1= </td>\n <td class=cna=NA2= width=140>=P2= </td>\n <td class=cna=NA3= width=140>=P3= </td>\n <td class=ul1 width=10 align=center>\n <a href='#' onClick=\"javascript:CetakKartu('=PMBID=')\" /><img src='img/printer2.gif' /></a><br />\n <sup>=CetakKartu=×</sup>\n </td>\n </tr>" . $gantibrs; $lst->footerfmt = "</table>"; $hal = $lst->TampilkanHalaman($pagefmt, $pageoff); $ttl = $lst->MaxRowCount; echo $lst->TampilkanData(); echo "<p align=center>Hal: {$hal} <br />(Tot: {$ttl})</p>"; }
// Author : Emanuel Setio Dewo // Email : setio.dewo@gmail.com // Start : 11 Sept 2008 // *** infrastruktur ** echo <<<SCR <script src="{$_SESSION['mnux']}.script.js"></script> SCR; // *** Parameters *** $TahunID = GetSetVar('TahunID'); $ProdiID = GetSetVar('ProdiID'); $ProgramID = GetSetVar('ProgramID'); $MKID = GetSetVar('MKID'); // *** Main TampilkanJudul("Daftar Mhsw yg Memenuhi Syarat Matakuliah"); TampilkanHeader(); $gos = empty($_REQUEST['gos']) ? 'DftrMhsw' : $_REQUEST['gos']; $gos(); // *** Functions *** function TampilkanHeader() { PraScript(); $optprodi = GetProdiUser($_SESSION['_Login'], $_SESSION['ProdiID']); $mk = GetFields('mk', 'MKID', $_SESSION['MKID'], "MKKode, Nama, SKS"); CheckFormScript("TahunID,ProdiID,MKID"); echo <<<ESD <table class=box cellspacing=1 align=center width=600> <form name='frmPra' action='?' method=POST onSubmit="return CheckForm(this)"> <input type=hidden name='mnux' value='{$_SESSION['mnux']}' /> <input type=hidden name='gos' value='DftrMhsw' />
function Edits($jdwl) { PresensiScript(); TampilkanHeader($jdwl); TampilkanPresensi($jdwl); }
include_once "../db.mysql.php"; include_once "../connectdb.php"; include_once "../parameter.php"; include_once "../cekparam.php"; include_once "../header_pdf.php"; // *** Parameters *** $lbr = 190; $mrg = 10; $id = sqling($_REQUEST['id']); $trx = $_REQUEST['trx'] + 0; // Init PDF $pdf = new PDF(); $pdf->SetTitle("Kartu Hasil Studi"); $pdf->AddPage(); if ($trx == 1) { TampilkanHeader($id, $pdf); TampilkanDetailBayar($id, $pdf); } elseif ($trx == -1) { TampilkanPenarikan($id, $pdf); } $pdf->Output(); // *** functions *** function TampilkanDetailBayar($id, $p) { global $arrID; $s = "select b2.*, bn.Nama\r\n from bayarmhsw2 b2\r\n left outer join bipotnama bn on b2.BIPOTNamaID = bn.BIPOTNamaID\r\n where b2.BayarMhswID = '{$id}'\r\n and b2.NA = 'N'\r\n order by bn.Urutan"; $r = _query($s); $t = 5; $n = 0; $ttl = 0; // Header tabel
function CetakJadwal($JadwalID, $p) { TampilkanHeader($jdwl, $p); }