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