function AmbilDetail($mhsw, $khs)
{
$s = "select *\r\n from bayarmhsw bm\r\n where bm.TahunID='{$khs['TahunID']}' and bm.MhswID='{$mhsw['MhswID']}'\r\n and bm.TrxID=-1\r\n order by bm.Tanggal";
$r = _query($s);
$str = '';
if (_num_rows($r) > 0) {
$n = 0;
$str = "<table class=bsc cellspacing=1 cellpadding=1>";
while ($w = _fetch_array($r)) {
$n++;
$tgl = FormatTanggal($w['Tanggal']);
$jml = number_format($w['Jumlah']);
$proses = $w['Proses'] == 0 ? "<a href='?mnux=mhswkeu.ambil&gos=TrxAmbilPros&khsid={$khs['KHSID']}&bayarmhswid={$w['BayarMhswID']}' title='Proses Pembayaran'><img src='img/gear.gif'> Proses</a>" : "<a href='?mnux=mhswkeu.ambil&gos=TrxAmbilPros&khsid={$khs['KHSID']}&bayarmhswid={$w['BayarMhswID']}&Rep=1' title='Proses Reprint'><img src='img/printer.gif'> Reprint</a>";
$str .= "<tr><td class=inp>{$n}</td>\r\n <td class=ul valign=middle>{$proses}</td>\r\n <td class=ul>{$w['BayarMhswID']}</td>\r\n <td class=ul>{$tgl}</td>\r\n <td class=ul>{$jml}</td>\r\n </tr>";
}
$str .= "</table>";
} else {
$str = " ";
}
return $str;
}
function TampilkanHeader()
{
$ta = GetFields('ta', 'TAID', $_SESSION['TAID'], '*');
$dsn = GetFields('dosen', "Login = '******'Pembimbing']}' and KodeID", KodeID, "Nama, Gelar");
$mhsw = GetFields('mhsw', "MhswID = '{$ta['MhswID']}' and KodeID", KodeID, "*");
$TglMulai = FormatTanggal($ta['TglMulai']);
$TglSelesai = FormatTanggal($ta['TglSelesai']);
$b1 = empty($dsn) ? '(Belum diset)' : "{$dsn['Nama']} <sup>{$dsn['Gelar']}</sup>";
echo <<<ESD
<table class=box cellspacing=1 width=100%>
<tr><td class=inp width=100>NIM:</td>
<td class=ul>{$ta['MhswID']} </td>
<td class=inp width=100>Nama Mahasiswa:</td>
<td class=ul>{$mhsw['Nama']} </td>
</tr>
<tr><td class=inp>Tahun Akademik:</td>
<td class=ul>{$ta['TahunID']} </td>
<td class=inp>Batas Waktu:</td>
<td class=ul>{$TglMulai} ~ {$TglSelesai}</td>
</tr>
<tr><td class=inp>Judul:</td>
<td class=ul colspan=3>{$ta['Judul']} </td>
</tr>
<tr><td class=inp>Deskripsi/Abstrak:</td>
<td class=ul colspan=3>{$ta['Deskripsi']} </td>
</tr>
<tr><td class=inp>Pembimbing Utama:</td>
<td class=ul colspan=3>{$b1}</td>
</tr>
</table>
ESD;
TampilkanDaftarPembimbing($_SESSION['TAID'], $mhsw);
}
function TampilkanDaftarYudisium()
{
$optprd = GetOption2('prodi', "concat(ProdiID, ' - ', Nama)", "ProdiID", $_SESSION['prodi'], '', "ProdiID");
$bulan1 = GetMonthOption($_SESSION['bulan1']);
$bulan2 = GetMonthOption($_SESSION['bulan2']);
$tahun1 = GetNumberOption(date('Y') - 10, date('Y'), $_SESSION['tahun1']);
$tahun2 = GetNumberOption(date('Y') - 10, date('Y') + 1, $_SESSION['tahun2']);
$TglYudisium = GetDateOption($_SESSION['TglYudisium'], 'TglYudisium');
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <form action='?' method=POST>\r\n <tr><td class=ul colspan=2><font size=+1>Filter</font></td></tr>\r\n <tr><td class=inp>Prodi :</td><td class=ul><select name='prodi'>{$optprd}</select> Kosongkan jika ingin melihat semua</td></tr>\r\n <tr><td class=inp>Lulus bulan :</td><td class=ul>\r\n <select name='bulan1'>{$bulan1}</select><select name='tahun1'>{$tahun1}</select> s/d\r\n <select name='bulan2'>{$bulan2}</select><select name='tahun2'>{$tahun2}</select> <input type=submit name='Filter' value='Filter Daftar'></td></tr>\r\n </form>\r\n \r\n <tr><td class=ul colspan=2><font size=+1>SK Yudisium</font></td></tr>\r\n <tr><td colspan=2>Set mahasiswa yang bertanda centang dalam daftar di bawah ini dengan SK Yudisium berikut ini:</td></tr> \r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='skyudisium'>\r\n <input type=hidden name='gos' value='SKYSAV'>\r\n <tr><td class=inp>No SK Yudisium :</td><td class=ul><input type=text name='SKYudisium' value='{$_SESSION['SKYudisium']}' size=50 maxlength=100></td></tr>\r\n <tr><td class=inp>Tanggal Yudisium :</td><td class=ul>{$TglYudisium} <input type=submit name='Simpan' value='Set SK Semua yg Dicentang'></td></tr>\r\n </table></p>";
if ($_SESSION['prodi'] != '10') {
$_whr = "('{$_SESSION['tahun1']}-{$_SESSION['bulan1']}-01' <= ta.TglUjian) \r\n and (ta.TglUjian <= '{$_SESSION['tahun2']}-{$_SESSION['bulan2']}-31') and ";
} else {
$_whr = "";
}
$s = "select ta.*, m.Nama\r\n from ta ta\r\n left outer join mhsw m on ta.MhswID=m.MhswID\r\n where ta.Lulus='Y'\r\n and m.ProdiID = '{$_SESSION['prodi']}'\r\n \r\n order by ta.MhswID";
$r = _query($s);
$n = 0;
$TotalSKY = _num_rows($r) + 0;
echo "<input type=hidden name='TotalSKY' value={$TotalSKY}>\r\n <p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>N.P.M</th>\r\n <th class=ttl>Nama Mahasiswa</th>\r\n <th class=ttl>Tgl Ujian</th>\r\n <th class=ttl>Judul</th>\r\n <th class=ttl>SK Yudisium</th>\r\n <th class=ttl>Tgl Yudisium</th>\r\n <th class=ttl>Centang</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$TglSKYudisium = FormatTanggal($w['TglSKYudisium']);
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['TglUjian']}</td>\r\n <td class=ul>{$w['Judul']}</td>\r\n <td class=ul>{$w['SKYudisium']} </td>\r\n <td class=ul>{$TglSKYudisium}</td>\r\n <td class=ul><input type=checkbox name='SKY[]' value='{$w['TAID']}'></td>\r\n </tr>";
}
echo "</table></form></p>";
}
function KalendarAkd()
{
$t = GetFields('tahun', "ProdiID='{$_SESSION['prodi']}' and ProgramID='{$_SESSION['prid']}' and TahunID", $_SESSION['tahun'], '*');
if (empty($t)) {
echo ErrorMsg("Kalendar Akademik Tidak Ada", "Kalendar Akademik <font size=+1>{$_SESSION['tahun']}</font> tidak ada atau\n belum dibuat.<br />\n Hubungi MIS/IT untuk informasi lebih lanjut");
} else {
$_prd = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama');
$_prg = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama');
$TglKRSMulai = FormatTanggal($t['TglKRSMulai']);
$TglKRSSelesai = FormatTanggal($t['TglKRSSelesai']);
$TglUbahKRSMulai = FormatTanggal($t['TglUbahKRSMulai']);
$TglUbahKRSSelesai = FormatTanggal($t['TglUbahKRSSelesai']);
$TglCuti = FormatTanggal($t['TglCuti']);
$TglMundur = FormatTanggal($t['TglMundur']);
$TglKembaliUangKuliah = FormatTanggal($t['TglKembaliUangKuliah']);
$TglBayarMulai = FormatTanggal($t['TglBayarMulai']);
$TglBayarSelesai = FormatTanggal($t['TglBayarSelesai']);
$TglKuliahMulai = FormatTanggal($t['TglKuliahMulai']);
$TglKuliahSelesai = FormatTanggal($t['TglKuliahSelesai']);
$TglUTSMulai = FormatTanggal($t['TglUTSMulai']);
$TglUTSSelesai = FormatTanggal($t['TglUTSSelesai']);
$TglUASMulai = FormatTanggal($t['TglUASMulai']);
$TglUASSelesai = FormatTanggal($t['TglUASSelesai']);
$TglNilai = FormatTanggal($t['TglNilai']);
echo "<p><table class=box cellspacing=1>\n <tr><td class=ul colspan=2><font size=+1>Kalendar Akademik</font></th></tr>\n <tr><td class=inp>Tahun Akademik</td>\n <td class=ul>{$t['TahunID']}</td></tr>\n <tr><td class=inp>Nama Tahun</td>\n <td class=ul>{$t['Nama']}</td></tr>\n <tr><td class=inp>Program</td>\n <td class=ul>{$_prg}</td></tr>\n <tr><td class=inp>Program Studi</td>\n <td class=ul>{$_prd}</td></tr>\n <tr><td class=inp>Tidak Aktif?</td><td class=ul><img src='img/book{$t['NA']}.gif'></td></tr>\n \n <tr><td class=ul colspan=2><font size=+1>KRS</font></td></tr>\n <tr><td class=inp>Mulai KRS</td>\n <td class=ul>{$TglKRSMulai}</td></tr>\n <tr><td class=inp>Selesai KRS</td>\n <td class=ul>{$TglKRSSelesai}</td></tr>\n <tr><td class=inp>Mulai Ubah KRS</td><td class=ul>{$TglUbahKRSMulai}</td></tr>\n <tr><td class=inp>Selesai Ubah KRS</td><td class=ul>{$TglUbahKRSSelesai}</td></tr>\n <tr><td class=inp>Batas Pengajuan Cuti</td><td class=ul>{$TglCuti}</td></tr>\n <tr><td class=inp>Batas Pengajuan Mundur Kuliah</td><td class=ul>{$TglMundur}</td></tr>\n <tr><td class=inp>Batas Pengambilan Kelebihan Uang Kuliah</td><td class=ul>{$TglKembaliUangKuliah}</td></tr>\n \n <tr><td class=ul colspan=2><font size=+1>Masa Pembayaran</font></td></tr>\n <tr><td class=inp>Mulai Pembayaran</td><td class=ul>{$TglBayarMulai}</td></tr>\n <tr><td class=inp>Selesai Pembayaran</td><td class=ul>{$TglBayarSelesai}</td></tr>\n \n <tr><td class=ul colspan=2><font size=+1>Periode Perkuliahan</font></td></tr>\n <tr><td class=inp>Mulai Kuliah</td><td class=ul>{$TglKuliahMulai}</td></tr>\n <tr><td class=inp>Selesai Kuliah</td><td class=ul>{$TglKuliahSelesai}</td></tr>\n \n <tr><td class=ul colspan=2><font size=+1>Periode Ujian Tengah Semester</font></td></tr>\n <tr><td class=inp>Mulai UTS</td><td class=ul>{$TglUTSMulai}</td></tr>\n <tr><td class=inp>Selesai UTS</td><td class=ul>{$TglUTSSelesai}</td></tr>\n \n <tr><td class=ul colspan=2><font size=+1>Periode Ujian Akhir Semester</font></td></tr>\n <tr><td class=inp>Mulai UAS</td><td class=ul>{$TglUASMulai}</td></tr>\n <tr><td class=inp>Selesai UAS</td><td class=ul>{$TglUASSelesai}</td></tr>\n <tr><td class=inp>Batas Akhir Penilaian</td><td class=ul>{$TglNilai}</td></tr>\n <tr><td class=inp>Catatan</td>\n <td class=ul>{$t['Catatan']} </td></tr>\n \n </table></p>";
}
}
function BuatPanitera()
{
global $prodi_asal, $prodi_panitera;
$sked = $_REQUEST['sked'];
$mhsw = GetFields('mhsw', "MhswID", $sked, '*');
if (!empty($mhsw)) {
if ($mhsw['ProdiID'] == $prodi_asal) {
$ada = GetFields('mhsw', "ProdiID='{$prodi_panitera}' and PMBID", $sked, '*');
if (!empty($ada)) {
die(ErrorMsg("Mhsw Sudah Terdaftar", "Mahasiswa dengan NPM S.Ked <b>{$sked}</b> telah terdaftar di program Kepaniteraan.\r\n <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>"));
}
//if ($mhsw['LulusUjian'] == 'N')
if ($mhsw['StatusMhswID'] != 'L') {
die(ErrorMsg("Mhsw Belum Lulus", "Mahasiswa dengan NPM S.Ked <b>{$sked}</b> belum lulus S.Ked.\r\n <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>"));
}
$tgl = FormatTanggal($mhsw['TanggalLulus']);
CheckFormScript("SKMasuk");
$TGL = GetDateOption(date('Y-m-d'), 'TGL');
echo Konfirmasi("Pembuatan NPM Kepaniteraan", "<p><form action='?' method=POST onSubmit=\"return CheckForm(this)\">\r\n <input type=hidden name='mnux' value='mhsw.panitera.baru'>\r\n <input type=hidden name='sked' value='{$sked}'>\r\n <input type=hidden name='gos' value='BuatPanitera1'>\r\n <table class=bsc>\r\n\t\t <tr><td class=ul>NPM SKed</td>\r\n\t\t <td class=ul><b>{$mhsw['MhswID']}</td></tr>\r\n\t\t <tr><td class=ul>Nama Mhsw</td>\r\n\t\t <td class=ul><b>{$mhsw['Nama']}</td></tr>\r\n\t\t <tr><td class=ul>Lulus Tanggal</td>\r\n\t\t <td class=ul><b>{$tgl}</td></tr>\r\n\t\t <tr><td class=ul>Nilai Akhir</td>\r\n\t\t <td class=ul><b>{$mhsw['GradeNilai']} ({$mhsw['NilaiUjian']})</td></tr>\r\n\t\t <tr><td class=ul>SK Masuk Panitera</td>\r\n\t\t <td class=ul><input type=text name='SKMasuk' size=30 maxlength=50></td></tr>\r\n\t\t <tr><td class=ul>Tanggal SK Masuk</td>\r\n\t\t <td class=ul>{$TGL}</td></tr>\r\n\t\t </table></p>\r\n\t\t\r\n\t Pilihan: <input type=submit name='Simpan' value='Simpan'>\r\n\t <input type=button name='Batal' value='Batalkan Proses' onClick=\"location='?mnux=mhsw.panitera.baru&gos='\">\r\n </form>");
} else {
echo ErrorMsg("Mhsw Bukan Dari Kedokteran", "Mahasiswa dengan Nama <b>{$mhsw['Nama']}</b> (<b>{$sked}</b>) bukan dari Fakultas Kedokteran.<br />\r\n\t Mahasiswa ini tidak dapat diproses menjadi mahasiswa Kepaniteraan.\r\n\t <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>");
}
} else {
echo ErrorMsg("Mhsw Tidak Ditemukan", "Mhsw dengan NPM <b>{$sked}</b> tidak ditemukan, atau bukan dari fakultas Kedokteran.\r\n\t <hr size=1 color=silver>\r\n\t Pilihan: <a href='?mnux=mhsw.panitera.baru'>Kembali</a>");
}
}
function GetHeaderJadwalKlinik($JdwlID = 0)
{
$jdwl = GetFields('jadwal j', "j.JadwalID", $JdwlID, "j.*");
$TM = FormatTanggal($jdwl['TglMulai']);
$TS = FormatTanggal($jdwl['TglSelesai']);
echo "<p><table class=box>\r\n <tr><td class=inp>ID</td>\r\n <td class=ul>{$jdwl['JadwalID']}</td>\r\n <td class=inp>RS</td>\r\n <td class=ul>{$jdwl['RuangID']}</td>\r\n <td class=inp>Kelas</td>\r\n <td class=ul>{$jdwl['NamaKelas']}</td>\r\n <td class=inp>Kapasitas</td>\r\n <td class=ul>{$jdwl['Kapasitas']}</td>\r\n </tr>\r\n <tr><td class=inp>Kode</td>\r\n <td class=ul>{$jdwl['MKKode']}</td>\r\n <td class=inp>Matakuliah</td>\r\n <td class=ul>{$jdwl['Nama']}</td>\r\n <td class=inp>SKS</td>\r\n <td class=ul>{$jdwl['SKS']}</td>\r\n <td class=inp>Periode</td>\r\n <td class=ul>{$TM} - {$TS}</td>\r\n </table></p>";
return $jdwl;
}
function HeaderAnjunganMhsw($mhsw)
{
$tglLahir = FormatTanggal($mhsw['TanggalLahir']);
$foto = $mhsw['Foto'];
$foto = empty($foto) ? "img/tux001.jpg" : $foto;
$PA = GetaField('dosen', "Login", $mhsw['PenasehatAkademik'], "concat(Nama, ', ', Gelar)");
echo "<p><table class=bsc>\r\n <tr><td class=ttl colspan=4>Data Pribadi</td></tr>\r\n <tr><td class=inp>Nomer Pokok Mhsw</td>\r\n <td class=ul>{$mhsw['MhswID']}</td>\r\n <td class=inp>Program</td>\r\n <td class=ul>{$mhsw['ProgramID']} - {$mhsw['PRG']}</td>\r\n <td class=bsc rowspan=8 valign=top><img src='../{$foto}' vspace=10 hspace=10 height=150 width=120></td>\r\n </tr>\r\n <tr><td class=inp>Nama Mhsw</td>\r\n <td class=ul>{$mhsw['Nama']}</td>\r\n <td class=inp>Program Studi</td>\r\n <td class=ul>{$mhsw['ProdiID']} - {$mhsw['PRD']}</td>\r\n </tr>\r\n <tr><td class=inp>Angkatan</td>\r\n <td class=ul>{$mhsw['TahunID']}</td>\r\n <td class=inp>Status Mhsw</td>\r\n <td class=ul>{$mhsw['STA']} </td>\r\n </tr>\r\n <tr><td class=inp>Batas Studi</td>\r\n <td class=ul>{$mhsw['BatasStudi']} </td>\r\n <td class=inp>Pembimbing Akademik</td>\r\n <td class=ul>{$PA} </td>\r\n </tr>\r\n <tr><td class=inp>Jenis Kelamin</td>\r\n <td class=ul>{$mhsw['KEL']} </td>\r\n <td class=inp>Agama</td>\r\n <td class=ul>{$mhsw['AGM']} </td>\r\n </tr>\r\n <tr><td class=inp>Tempat, Tgl Lahir</td>\r\n <td class=ul>{$mhsw['TempatLahir']}, {$tglLahir}</td>\r\n <td class=inp>Status Perkawinan</td>\r\n <td class=ul>{$mhsw['KWN']} </td>\r\n </tr>\r\n\t<tr><td class=ttl colspan=4> </td></tr></table></p>";
}
function DftrUjian()
{
global $arrUjian;
$_jj = empty($_SESSION['jenjad']) ? '' : "and j.JenisJadwalID='{$_SESSION['jenjad']}' ";
switch ($_SESSION['ujian']) {
case 0:
$ord = "j.HariID, j.JamMulai, j.MKKode, j.NamaKelas";
break;
case 1:
$ord = "j.UTSTanggal, j.UTSJamMulai, j.MKKode, j.NamaKelas";
break;
case 2:
$ord = "j.UASTanggal, j.UASJamMulai, j.MKKode, j.NamaKelas";
break;
}
$s = "select j.*\n from jadwal j\n where j.TahunID='{$_SESSION['tahun']}' and j.NamaKelas<>'KLINIK'\n and INSTR(j.ProgramID, '.{$_SESSION['prid']}.')>0\n and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0 {$_jj} \n and j.JadwalSer = 0 \n\t order by {$ord}";
$r = _query($s);
$tgl = '';
echo "<p><table class=box cellspacing=1>\n <tr><th class=ttl>Edit</th>\n <th class=ttl>Tanggal</th>\n <th class=ttl>Jam</th>\n <th class=ttl>Ruang</th>\n <th class=ttl>ID</th>\n <th class=ttl>Kode</th>\n <th class=ttl>Matakuliah</th>\n <th class=ttl>Kelas</th>\n <th class=ttl>Jenis</th>\n <th class=ttl>SKS</th>\n <th class=ttl>Mhsw</th>\n <th class=ttl title='Minimal Kehadiran Mhsw'>Min</th>\n <th class=ttl>Dosen</th>\n <th class=ttl title='Daftar Hadir Ujian'><img src='img/printer.gif'></th>\n <th class=ttl title='Daftar Mhsw Tidak Boleh Ujian'><img src='img/printer.gif'></th> \n </tr>";
$nmujian = $arrUjian[$_SESSION['ujian']];
while ($w = _fetch_array($r)) {
if ($tgl != $w[$nmujian . "Tanggal"]) {
$tgl = $w[$nmujian . "Tanggal"];
$Tanggal = $tgl == "0000-00-00" ? "-" : FormatTanggal($tgl);
} else {
$Tanggal = "\"";
}
if ($w[$nmujian . "Tanggal"] == "0000-00-00") {
$c = "class=nac";
$Tanggal = "x";
$dhu = " ";
$JAM = " ";
} else {
$c = "class=ul";
$dhu = "<a href='jadwal.cetakdh.php?JadwalID={$w['JadwalID']}&ctk={$_SESSION['ujian']}' title='Daftar Hadir Ujian' target=_blank>DHU</a>";
$xdhu = $_SESSION['ujian'] == 2 ? "<a href='jadwal.cetakdh.php?JadwalID={$w['JadwalID']}&ctk=2&hak=1' title='Mhsw Tidak Ujian' target=_blank>MTU</a>" : ' ';
$JAM = substr($w[$nmujian . "JamMulai"], 0, 5) . "-" . substr($w[$nmujian . "JamSelesai"], 0, 5);
}
// Array dosen
$arrdosen = explode('.', TRIM($w['DosenID'], '.'));
$strdosen = implode(',', $arrdosen);
$dosen = empty($strdosen) ? '' : GetArrayTable("select Nama from dosen where Login in ({$strdosen}) order by Nama", "Login", "Nama", '<br />');
$RuangID = $w[$nmujian . "RuangID"];
if (empty($RuangID)) {
$RG = '';
} else {
$arrrg = explode(',', $RuangID);
for ($i = 0; $i < sizeof($arrrg); $i++) {
$arrrg[$i] = substr($arrrg[$i], 0, strpos($arrrg[$i], ':'));
}
$RG = implode(',', $arrrg);
}
echo "<tr>\n <td class=ul><a href='?mnux=jadwal.ujian&gos=JUEdt&JadwalID={$w['JadwalID']}&ujian={$_SESSION['ujian']}'><img src='img/edit.png'></a></td>\n <td {$c} align=center>{$Tanggal}</td>\n <td {$c}>{$JAM}</td>\n <td {$c}>{$RG} </td>\n <td class=inp>{$w['JadwalID']}</td>\n <td {$c}>{$w['MKKode']}</td>\n <td {$c}>{$w['Nama']}</td>\n <td {$c}>{$w['NamaKelas']} </td>\n <td {$c}>{$w['JenisJadwalID']}</td>\n <td {$c} align=right>{$w['SKS']}</td>\n <td {$c} align=right>{$w['JumlahMhsw']}/{$w['Kapasitas']}</td>\n <td {$c} align=right title='Min {$w['KehadiranMin']}x dari {$w['Kehadiran']}x tatap muka'>{$w['KehadiranMin']}/{$w['Kehadiran']}</td>\n <td {$c}>{$dosen}</td>\n <td {$c}>{$dhu}</td>\n <td {$c}>{$xdhu}</td>\n </tr>";
}
echo "</table></p>";
}
function BuatJudulLaporan($_fid, $p)
{
$lbr = 190;
$t = 6;
$Mulai = FormatTanggal($_SESSION['TglMulai']);
$Selesai = FormatTanggal($_SESSION['TglSelesai']);
$p->SetFont('Helvetica', 'B', 14);
$p->Cell($lbr, $t, "Laporan Penjualan Formulir", 0, 1, 'C');
$p->Cell($lbr, $t, "Periode: {$Mulai} ~ {$Selesai}", 0, 1, 'C');
$p->Ln(2);
}
function TADSN($mhsw, $ta)
{
$TM = FormatTanggal($ta['TglMulai']);
$TS = FormatTanggal($ta['TglSelesai']);
$TU = FormatTanggal($ta['TglUjian']);
$_TU = $TU == '00/00/0000' ? " " : $TU;
$pemb = GetaField('dosen', "Login", $ta['Pembimbing'], "concat(Nama, ', ', Gelar)");
$peng = GetaField('dosen', "Login", $ta['Penguji'], "concat(Nama, ', ', Gelar)");
//echo "<p><a href='?mnux=ta'>Kembali ke Data Tugas Akhir</a></p>";
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><td class=inp>Batas Tanggal</td><td class=ul>{$TM} ~ {$TS}</td>\r\n <td class=inp>Tgl Ujian</td><td class=ul>{$_TU}</td></tr>\r\n <tr><td class=inp>Pembimbing Utama <a href='?mnux=ta&gos=TAEdt&taid={$ta['TAID']}&md=0'><img src='img/edit.png'></a></td>\r\n <td class=ul>{$pemb} </td>\r\n <td class=inp>Penguji Utama <img src='img/edit.png'></td>\r\n <td class=ul>{$peng} </td></tr>\r\n <tr><td class=inp>Judul</td>\r\n <td class=ul colspan=3>{$ta['Judul']}</td></tr>\r\n <tr><td class=inp>Opsi</td>\r\n <td class=ul colspan=3><input type=button name='Kembali' value='Kembali ke Data Mhsw' onClick=\"location='?mnux=ta'\"></td></tr>\r\n </table></p>";
DaftarPendamping($mhsw, $ta);
}
function AmbilDetail($f, $mhsw, $w)
{
global $_lf;
$s = "select pm.*, jp.Nama, jp.Nilai, p.Tanggal\n from presensimhsw pm\n left outer join presensi p on pm.PresensiID=p.PresensiID\n left outer join jenispresensi jp on pm.JenisPresensiID=jp.JenisPresensiID\n where pm.MhswID='{$mhsw['MhswID']}' and pm.JadwalID={$w['JadwalID']}\n and pm.JenisPresensiID <> 'H'\n order by p.Tanggal";
$r = _query($s);
$n = 0;
while ($w = _fetch_array($r)) {
$n++;
$tgl = FormatTanggal($w['Tanggal']);
fwrite($f, str_pad(' ', 12) . str_pad($n . '.', 4) . str_pad($tgl, 14) . str_pad($w['Nama'], 10) . $_lf);
}
}
function TampilkanHeaderMatakuliahKlinik($mhsw, $krs, $mnux = '')
{
$jdwl = GetFields('jadwal', 'JadwalID', $krs['JadwalID'], '*');
$mk = GetFields('mk', 'MKID', $krs['MKID'], '*');
$RS = GetaField('rumahsakit', 'RSID', $jdwl['RuangID'], 'Nama');
$TM = FormatTanggal($jdwl['TglMulai']);
$TS = FormatTanggal($jdwl['TglSelesai']);
$bia = number_format($jdwl['Harga']);
$byr = number_format($krs['Bayar']);
$sisa = $jdwl['Harga'] - $krs['Bayar'];
$ss = number_format($sisa);
echo "<p><table class=box>\r\n <tr><td class=inp>Matakuliah</td>\r\n <td class=ul colspan=3>{$krs['MKKode']} - <b>{$mk['Nama']}</b> ({$mk['Singkatan']})</td>\r\n <td class=inp>SKS</td>\r\n <td class=ul>{$mk['SKS']}</td>\r\n </tr>\r\n <tr><td class=inp>Rumah Sakit</td>\r\n <td class=ul>{$jdwl['RuangID']} - <b>{$RS}</b></td>\r\n <td class=inp>Dari</td>\r\n <td class=ul>{$TM}</td>\r\n <td class=inp>Sampai</td>\r\n <td class=ul>{$TS}</td></tr>\r\n <tr><td class=inp>Biaya</td>\r\n <td class=ul>{$bia}</td>\r\n <td class=inp>Dibayar</td>\r\n <td class=ul>{$byr}</td>\r\n <td class=inp>Kekurangan</td>\r\n <td class=ul><b>{$ss}</b></td>\r\n </tr>\r\n <tr><td colspan=3><input type=button name='Kembali' value='Kembali' onClick=\"location='?mnux={$mnux}'\"></td></tr>\r\n </table></p>";
}
function fnKonfirmasi($jid)
{
TampilkanJudul("Jadwalkan {$_SESSION['_jdwlU']}");
$w = GetFields('jadwal', 'JadwalID', $jid, '*');
$d = GetFields('dosen', "Login = '******'DosenID']}' and KodeID", KodeID, "Nama, Gelar");
$tgl = FormatTanggal($_SESSION['_jdwlTgl']);
echo <<<ESD
<table class=box width=100%>
<form name='frmUJIAN' action='../{$_SESSION['mnux']}.edit.php' method=POST>
<input type=hidden name='jid' value='{$jid}' />
<input type=hidden name='gos' value='fnSimpan' />
<input type=hidden name='_jdwlRuang' value='{$_SESSION['_jdwlRuang']}' />
<input type=hidden name='_jdwlTgl' value='{$_SESSION['_jdwlTgl']}' />
<input type=hidden name='_jdwlU' value='{$_SESSION['_jdwlU']}' />
<tr><td class=inp>Kode:</td>
<td class=ul>{$w['MKKode']} </td>
<td class=inp>Matakuliah:</td>
<td class=ul>{$w['Nama']} </td>
</tr>
<tr><td class=inp>SKS:</td>
<td class=ul>{$w['SKS']} <sup>sks</sup></td>
<td class=inp>Kelas:</td>
<td class=ul>{$w['NamaKelas']} </td>
</tr>
<tr><td class=inp>Prodi:</td>
<td class=ul>{$w['ProdiID']} <sup>{$w['ProgramID']}</sup></td>
<td class=inp>Dosen:</td>
<td class=ul>{$d['Nama']} <sup>{$d['Gelar']}</sup></td>
</tr>
<tr><th class=ttl colspan=4>Dijadwalkan Di:</th></tr>
<tr><td class=inp>Tanggal:</td>
<td class=ul>{$tgl}</td>
<td class=inp>Ruang:</td>
<td class=ul>{$_SESSION['_jdwlRuang']} </td>
</tr>
<tr><td class=inp>Jam Mulai:</td>
<td class=ul><input type=text name='JamMulai' size=5 maxlength=5 /></td>
<td class=inp>Selesai:</td>
<td class=ul><input type=text name='JamSelesai' size=5 maxlength=5 /></td>
</tr>
<tr><td class=ul colspan=4 align=center>
<input type=submit name='btnSimpan' value='Jadwalkan' />
<input type=button name='btnTutup' value='Tutup'
onClick="window.close()" />
</td></tr>
</form>
</table>
ESD;
}
function TampilkanDeposit()
{
global $_lf;
$mxb = 55;
$mxc = 112;
$grs = str_pad('-', $mxc, '-') . $_lf;
$DariTanggal = FormatTanggal($_SESSION['DTGL']);
$SampaiTanggal = FormatTanggal($_SESSION['STGL']);
$hdr = str_pad("Daftar Deposit Mahasiswa", $mxc, ' ', STR_PAD_BOTH) . $_lf . str_pad("Periode: {$DariTanggal} sampai {$SampaiTanggal}", $mxc, ' ', STR_PAD_BOTH) . $_lf . $grs . str_pad('No.', 5) . str_pad('Tanggal', 12) . str_pad('N.P.M', 15) . str_pad('Nama Mahasiswa', 30) . str_pad('Jumlah', 15, ' ', STR_PAD_LEFT) . str_pad('Dipakai', 15, ' ', STR_PAD_LEFT) . str_pad('Sisa', 15, ' ', STR_PAD_LEFT) . $_lf . $grs;
// Query
$s = "select dm.DepositMhswID, dm.Tanggal, dm.MhswID,\r\n dm.Jumlah, dm.Dipakai, (dm.Jumlah - dm.Dipakai) as Sisa, dm.Tutup,\r\n LEFT(m.Nama, 29) as Nama, m.ProdiID\r\n from depositmhsw dm\r\n left outer join mhsw m on dm.MhswID=m.MhswID\r\n where '{$_SESSION['DTGL']}' <= dm.Tanggal and dm.Tanggal <= '{$_SESSION['STGL']}'\r\n order by dm.Tanggal";
$r = _query($s);
$n = 0;
$b = 0;
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, $hdr);
$_Jumlah = 0;
$_Dipakai = 0;
$_Sisa = 0;
while ($w = _fetch_array($r)) {
$n++;
$b++;
if ($b >= $mxb) {
$mxb = 0;
fwrite($f, $grs . chr(12));
fwrite($f, $hdr);
}
$TGL = FormatTanggal($w['Tanggal']);
// Jumlahkan
$_Jumlah += $w['Jumlah'];
$_Dipakai += $w['Dipakai'];
$_Sisa += $w['Sisa'];
// Format tampilan
$Jumlah = number_format($w['Jumlah']);
$Dipakai = number_format($w['Dipakai']);
$Sisa = number_format($w['Sisa']);
$Tutup = $w['Sisa'] == 0 ? chr(215) : '';
fwrite($f, str_pad($n, 5) . str_pad($TGL, 12) . str_pad($w['MhswID'], 15) . str_pad($w['Nama'], 30) . str_pad($Jumlah, 15, ' ', STR_PAD_LEFT) . str_pad($Dipakai, 15, ' ', STR_PAD_LEFT) . str_pad($Sisa, 15, ' ', STR_PAD_LEFT) . str_pad($Tutup, 4, ' ', STR_PAD_LEFT) . $_lf);
}
$__Jumlah = number_format($_Jumlah);
$__Dipakai = number_format($_Dipakai);
$__Sisa = number_format($_Sisa);
fwrite($f, $grs);
fwrite($f, str_pad("Jumlah : ", 62, ' ', STR_PAD_LEFT) . str_pad($__Jumlah, 15, ' ', STR_PAD_LEFT) . str_pad($__Dipakai, 15, ' ', STR_PAD_LEFT) . str_pad($__Sisa, 15, ' ', STR_PAD_LEFT) . $_lf);
fclose($f);
TampilkanFileDWOPRN($nmf, 'klinik.lap');
}
function BuatIsinya($TahunID, $ProdiID, $p)
{
$s = "select b2.*, bn.Singkatan, bn.Urutan, b.Tanggal\r\n from bayarmhsw2 b2\r\n left outer join bayarmhsw b on b2.BayarMhswID = b.BayarMhswID\r\n left outer join bipotnama bn on b2.BIPOTNamaID = bn.BIPOTNamaID\r\n where b.KodeID = '" . KodeID . "'\r\n and b.TahunID = '{$TahunID}'\r\n and '{$_SESSION['TglMulai']}' <= b.Tanggal\r\n and b.Tanggal <= '{$_SESSION['TglSelesai']}'\r\n and b.NA = 'N'\r\n and b2.NA = 'N'\r\n order by bn.Urutan";
$r = _query($s);
$arrNama = array();
$arrTGL = array();
$arrJML = array();
$arrTTL = array();
while ($w = _fetch_array($r)) {
if (array_search($w['Singkatan'], $arrNama) === false) {
$arrNama[] = $w['Singkatan'];
}
if (array_search($w['Tanggal'], $arrTGL) === false) {
$arrTGL[] = $w['Tanggal'];
}
$arrJML[$w['Tanggal']][$w['Singkatan']] += $w['Jumlah'];
$arrTTL[$w['Singkatan']] += $w['Jumlah'];
}
// Tampilkan
$t = 4;
$lbr0 = 18;
$lbr = 20;
$p->SetFont('Helvetica', 'B', 8);
$p->Cell($lbr0, $t, 'Tanggal', 1, 0);
foreach ($arrNama as $Nama) {
$p->Cell($lbr, $t, $Nama, 1, 0, 'C');
}
$p->Ln($t);
// Data
$p->SetFont('Helvetica', '', 8);
foreach ($arrTGL as $tgl) {
$_tgl = FormatTanggal($tgl);
$p->Cell($lbr0, $t, $_tgl, 1, 0);
foreach ($arrNama as $nama) {
$jml = number_format($arrJML[$tgl][$nama]);
$p->Cell($lbr, $t, $jml, 1, 0, 'R');
}
$p->Ln($t);
}
$p->Ln(2);
// Tampilkan Total
$p->Cell($lbr0, $t, 'Total:', 1, 0, 'R');
foreach ($arrNama as $nama) {
$jml = number_format($arrTTL[$nama]);
$p->Cell($lbr, $t, $jml, 1, 0, 'R');
}
$p->Ln($t);
}
function AlumniKrjDaftar($a)
{
echo "<p>Berikut adalah riwayat pekerjaan alumni:</p>";
$s = "select ak.*\r\n from alumnikerja ak\r\n where ak.MhswID='{$a['MhswID']}'\r\n order by ak.MulaiKerja desc";
$r = _query($s);
$n = 0;
echo "<p><a href='?mnux=alumni.det&alumnisub=AlumniKrj&gos=AlumniKrjEdt&AlumniID={$a['MhswID']}&md=1'>Pekerjaan Baru</a></p>";
echo "<p><table class=box>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>Perusahaan</th>\r\n <th class=ttl>Pekerjaan/Jabatan</th>\r\n <th class=ttl>Masa Kerja</th>\r\n <th class=ttl>Telepon</th>\r\n <th class=ttl>Fax</th>\r\n <th class=ttl>Website</th>\r\n <th class=ttl>Status</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$MK = FormatTanggal($w['MulaiKerja']);
$KK = $w['NA'] == 'Y' ? '- ' . FormatTanggal($w['KeluarKerja']) : '';
echo "<tr><td class=inp nowrap>{$n}\r\n <a href='?mnux=alumni.det&alumnisub=AlumniKrj&gos=AlumniKrjEdt&AlumniID={$a['MhswID']}&md=0&AlumniKerjaID={$w['AlumniKerjaID']}'><img src='img/edit.png'></a></td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['Jabatan']}</td>\r\n <td class=ul>{$MK} {$KK}</td>\r\n <td class=ul>{$w['Telepon']} </td>\r\n <td class=ul>{$w['Facsimile']} </td>\r\n <td class=ul>{$w['Website']}</td>\r\n <td class=ul align=center><img src='img/book{$w['NA']}.gif'></td>\r\n </tr>";
}
echo "</table></p>";
}
function TampilkanDetailHistory($mhsw)
{
global $urutanklinik;
TampilkanPilihanUrutanKlinik();
$_u = explode('~', $urutanklinik[$_SESSION['_urutanklinik']]);
$_key = $_u[1];
$s = "select k.*, mk.Nama, j.RuangID, j.TglMulai, j.TglSelesai\r\n from krs k\r\n left outer join mk on k.MKID=mk.MKID\r\n left outer join jadwal j on k.JadwalID=j.JadwalID\r\n where MhswID='{$mhsw['MhswID']}'\r\n order by {$_key}";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1>\r\n <tr><th class=ttl>No</th>\r\n <th class=ttl>Kode</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Rumah<br />Sakit</th>\r\n <th class=ttl>Periode</th>\r\n <th class=ttl>Grade</th>\r\n <th class=ttl>Bobot</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$TM = FormatTanggal($w['TglMulai']);
$TS = FormatTanggal($w['TglSelesai']);
echo "<tr><td class=inp>{$n}</td>\r\n <td class=ul>{$w['MKKode']}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['RuangID']}</td>\r\n <td class=ul>{$TM}~{$TS}</td>\r\n <td class=ul align=center>{$w['GradeNilai']}</td>\r\n <td class=ul align=right>{$w['BobotNilai']}</td>\r\n </tr>";
}
echo "</table></p>";
}
function TampilkanHutangMhsw1($mhsw)
{
TampilkanHeaderMhswKlinik($mhsw);
echo "<p><a href='?mnux=klinik.hutang&gos=HTGEDT&md=1&MhswID={$mhsw['MhswID']}'>Tambah Hutang Mahasiswa</a></p>";
// Ambil data
$s = "select *\r\n from hutangmhsw hm\r\n where hm.MhswID='{$mhsw['MhswID']}'\r\n order by hm.Tanggal";
$r = _query($s);
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl colspan=2>#</th>\r\n <th class=ttl>Tanggal</th>\r\n <th class=ttl>Jumlah</th>\r\n <th class=ttl>Dibayar</th>\r\n <th class=ttl>Catatan</th>\r\n </tr>";
$n = 0;
while ($w = _fetch_array($r)) {
$n++;
$c = $w['NA'] == 'Y' ? 'class=nac' : 'class=ul';
$tgl = FormatTanggal($w['Tanggal']);
$jml = number_format($w['Jumlah']);
$byr = number_format($w['Dibayar']);
echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td class=ul><a href='?mnux={$_SESSION['mnux']}&gos=HTGEDT&md=0&HTGID={$w['HutangMhswID']}'><img src='img/edit.png'></a></td>\r\n <td {$c}>{$tgl}</td>\r\n <td {$c} align=right>{$jml}</td>\r\n <td {$c} align=right>{$byr}</td>\r\n <td {$c}>{$w['Catatan']}</td>\r\n </tr>";
}
echo "</table></p>";
}
function CetakDaftarBPM()
{
if (empty($_SESSION['tahun'])) {
die(ErrorMsg("Tahun Akademik Kosong", "Tentukan Tahun Akademik terlebih dahulu untuk melihat laporan."));
}
$s = "select bm.*, m.Nama\r\n from bayarmhsw bm\r\n left outer join mhsw m on bm.MhswID=m.MhswID\r\n where m.ProdiID='11'\r\n and bm.TahunID='{$_SESSION['tahun']}'\r\n and (bm.Jumlah + bm.JumlahLain) > 0\r\n order by bm.BayarMhswID";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1 cellpadding=4>";
echo "<tr><th class=ttl>#</th>\r\n <th class=ttl>No. BPM</th>\r\n <th class=ttl>Tanggal</th>\r\n <th class=ttl>Keterangan</th>\r\n <th class=ttl>N.P.M</th>\r\n <th class=ttl>Nama Mahasiswa</th>\r\n <th class=ttl>Jumlah</th>\r\n <th class=ttl>Lain2</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$tgl = FormatTanggal($w['Tanggal']);
$jml = number_format($w['Jumlah']);
$jml2 = number_format($w['JumlahLain']);
$c = $w['Proses'] == 1 ? "class=ul" : "class=nac";
$c = $jml + $jml2 > 0 ? $c : "class=nac";
echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td {$c}>{$w['BayarMhswID']}</td>\r\n <td {$c}>{$tgl}</td>\r\n <td {$c}>{$w['Keterangan']}</td>\r\n <td {$c}>{$w['MhswID']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c} align=right>{$jml}</td>\r\n <td {$c} align=right>{$jml2}</td>\r\n </tr>";
}
echo "</table></p>";
}
function CetakKuliahKlinik()
{
$s = "select j.*\r\n from jadwal j\r\n where INSTR(j.ProdiID, '.11.')>0\r\n and j.NamaKelas = 'KLINIK'\r\n order by RuangID, TglMulai, JenisJadwalID, NamaKelas";
$r = _query($s);
$n = 0;
$rg = 'qwertyuiop';
echo "<p><table class=box cellspacing=1>";
$hdr = "<tr><th class=ttl>#</th>\r\n <th class=ttl>Kode</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Jenis</th>\r\n <th class=ttl>Kelas</th>\r\n <th class=ttl>Mulai</th>\r\n <th class=ttl>Selesai</th>\r\n <th class=ttl>Jml Mhsw</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
if ($rg != $w['RuangID']) {
$rg = $w['RuangID'];
echo "<tr><td class=ul colspan=5><font size=+1>{$w['RuangID']}</font></td></tr>";
echo $hdr;
}
$TM = FormatTanggal($w['TglMulai']);
$TS = FormatTanggal($w['TglSelesai']);
$jml = number_format($w['JumlahMhsw']);
echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td class=ul>{$w['MKKode']}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['JenisJadwalID']}</td>\r\n <td class=ul>{$w['NamaKelas']}</td>\r\n <td class=ul>{$TM}</td>\r\n <td class=ul>{$TS}</td>\r\n <td class=ul align=right>{$jml}</td>\r\n </tr>";
}
echo "</table></p>";
}
function TampilkanBPM()
{
$ada = GetFields('bayarmhsw', 'BayarMhswID', $_SESSION['bpmid'], '*');
if (!empty($ada)) {
// Tampilkan header
$EditBPM = '';
$mhsw = GetFields('mhsw', 'MhswID', $ada['MhswID'], '*');
$khsid = GetaField('khs', "MhswID='{$ada['MhswID']}' and TahunID", $ada['TahunID'], 'KHSID');
if (strpos('.1.60.70.', ".{$_SESSION['_LevelID']}.") === false) {
$strOps = '';
} else {
$EditBPM = "<input type=button name='Edit' value='Edit BPM' onClick=\"location='?mnux=bpm.edt&bpmid={$_SESSION['bpmid']}&bck=bpm.inq&bckgos='\">";
$KeuMhsw = "<input type=button name='Keu' value='Keuangan Mhsw' onClick=\"location='?mnux=mhswkeu.det&gos=MhswKeuSesi&mhswid={$ada['MhswID']}&khsid={$khsid}'\">";
$strOps = "<tr><td class=inp>Pilihan</td><td class=ul colspan=5>{$EditBPM} {$KeuMhsw}</td></tr>";
//http://localhost/?mnux=mhswkeu.det&gos=MhswKeuSesi&mhswid=222004001&khsid=85520
}
$auto = $ada['Autodebet'] > 0 ? 'Y' : 'N';
$pros = $ada['Proses'] > 0 ? 'Y' : 'N';
$jml = $ada['Proses'] > 0 ? number_format($ada['Jumlah']) : 0;
$jmllain = $ada['Proses'] > 0 ? number_format($ada['JumlahLain']) : 0;
$TanggalBuat = FormatTanggal($ada['TanggalBuat']);
$TanggalBayar = FormatTanggal($ada['Tanggal']);
$TanggalEntry = FormatTanggal($ada['TanggalEdit']);
echo "<p><table class=box cellspacing=1 cellpadding=1>\r\n <tr><td class=inp>No BPM :</td>\r\n <td class=ul>{$ada['BayarMhswID']}</td>\r\n <td class=inp>Bank - Bukti Setoran :</td>\r\n <td class=ul>{$ada['Bank']} - {$ada['BuktiSetoran']}</td>\r\n <td class=inp>Tanggal Cetak BPM :</td>\r\n <td class=ul>{$TanggalBuat}</td></tr>\r\n <tr><td class=inp>Rekening :</td>\r\n <td class=ul>{$ada['RekeningID']}</td>\r\n <td class=inp>Tahun Akd :</td>\r\n <td class=ul>{$ada['TahunID']}</td>\r\n <td class=inp>Tanggal Bayar ke Bank :</td>\r\n <td class=ul>{$TanggalBayar}</td></tr>\r\n <tr><td class=inp>N.P.M :</td>\r\n <td class=ul>{$ada['MhswID']}</td>\r\n <td class=inp>Nama Mahasiswa :</td>\r\n <td class=ul>{$mhsw['Nama']}</td>\r\n <td class=inp>Tanggal Entry :</td>\r\n <td class=ul>{$TanggalEntry}</td></tr>\r\n <tr><td class=inp>Autodebet?</td>\r\n <td class=ul><img src='img/{$auto}.gif'></td>\r\n <td class=inp>Sudah diproses?</td>\r\n <td class=ul colspan=3><img src='img/{$pros}.gif'></td></tr>\r\n <tr><td class=inp>Jumlah</td>\r\n <td class=ul><font size=+1>{$jml}</font></td>\r\n <td class=inp>Jumlah Lain</td>\r\n <td class=ul colspan=3><font size=+1>{$jmllain}</font></td></tr>\r\n {$strOps}\r\n </table></p>";
// Tampilkan detail pembayaran
echo "<p>Berikut adalah detail pembayaran BPM ini:</p>\r\n <p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>Keterangan</th>\r\n <th class=ttl>Dibayarkan</th></tr>";
$s = "select bm2.*, bn.Nama\r\n from bayarmhsw2 bm2\r\n left outer join bipotmhsw bm on bm.BIPOTMhswID=bm2.BIPOTMhswID\r\n left outer join bipotnama bn on bm.BIPOTNamaID=bn.BIPOTNamaID\r\n where bm2.BayarMhswID='{$_SESSION['bpmid']}'\r\n order by bn.Urutan";
$r = _query($s);
$n = 0;
while ($w = _fetch_array($r)) {
$n++;
$jml = number_format($w['Jumlah']);
echo "<tr><td class=inp>{$n}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul align=right>{$jml}</td>\r\n </tr>";
}
echo "</table></p>";
} else {
echo ErrorMsg('BPM Tidak Ditemukan', "BPM dengan no: <font size=+1>{$_SESSION['bpmid']}</font> tidak ditemukan.");
}
}
function BPMMhswLulus($mhsw)
{
// tampilkan menu
echo "<p><a href='?mnux=bpmlulus&gos=BPMLulusAdd'>Tambahkan BPM</a></p>";
// tampilkan BPM lama
$s = "select *\r\n from bayarmhsw bm\r\n where MhswID='{$_SESSION['mhswid']}'\r\n order by TahunID desc";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>No. BPM</th>\r\n <th class=ttl>No. Rekening</th>\r\n <th class=ttl>Tanggal</th>\r\n <th class=ttl>Jumlah</th>\r\n <th class=ttl>Jumlah Lain</th>\r\n <th class=ttl>Cetak BPM</th>\r\n <th class=ttl>Status</th>\r\n\t\t<th class=ttl>Edit</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$c = $w['Proses'] == 0 ? "class=ul" : "class=nac";
$st = $w['Proses'] == 0 ? "<a href='?mnux=bpmlulus&gos=BPMLulusPrc&BPMID={$w['BayarMhswID']}'><img src='img/N.gif' title='Belum Diproses'></a>" : "<img src='img/Y.gif' title='Sudah Diproses'>";
$ctk = $w['Proses'] == 0 ? "<a href='cetak/bpmlulus.cetak.php?BPMID={$w['BayarMhswID']}' target=_blank><img src='img/printer.gif'></a>" : " ";
$edt = $w['Proses'] == 0 ? " " : "<a href='?mnux=bpmlulus&gos=BPMLulusEdt&BPMID={$w['BayarMhswID']}'><img src='img/edit.png' title='Edit BPM'></a>";
$Jumlah = number_format($w['Jumlah']);
$JumlahLain = number_format($w['JumlahLain']);
$tgl = FormatTanggal($w['Tanggal']);
echo "<tr>\r\n <td {$c}>{$n}</td>\r\n <td {$c}>{$w['BayarMhswID']}</td>\r\n <td {$c}>{$w['RekeningID']}</td>\r\n <td {$c}>{$tgl}</td>\r\n <td {$c} align=right>{$Jumlah}</td>\r\n <td {$c} align=right>{$JumlahLain}</td>\r\n <td {$c} align=center>{$ctk}</td>\r\n <td {$c} align=center>{$st}</td>\r\n\t\t\t<td {$c} align=center>{$edt}</td>\r\n </tr>";
}
echo "</table>";
}
function HeaderKRSMhsw($mhsw, $datatahun, $khs)
{
global $_LevelPaketKRS, $_LevelMundurKRS;
$KRSMulai = FormatTanggal($datatahun['TglKRSMulai']);
$KRSSelesai = FormatTanggal($datatahun['TglKRSSelesai']);
$UbahKRSMulai = FormatTanggal($datatahun['TglUbahKRSMulai']);
$UbahKRSSelesai = FormatTanggal($datatahun['TglUbahKRSSelesai']);
$Cuti = FormatTanggal($datatahun['TglCuti']);
$Mundur = FormatTanggal($datatahun['TglMundur']);
$KuliahMulai = FormatTanggal($datatahun['TglKuliahMulai']);
$KuliahSelesai = FormatTanggal($datatahun['TglKuliahSelesai']);
$BayarMulai = FormatTanggal($datatahun['TglBayarMulai']);
$BayarSelesai = FormatTanggal($datatahun['TglBayarSelesai']);
$PA = GetaField('dosen', "Login", $mhsw['PenasehatAkademik'], "concat(Nama, ', ', Gelar)");
// Dapat mengakses Paket KRS?
if (strpos($_LevelPaketKRS, '.' . $_SESSION['_LevelID'] . '.') === false) {
$btn = '';
$bnt1 = '';
} else {
$btn = "<input type=button name='Paket' value='Paket KRS' onClick=\"location='?mnux=krs&gos=PaketKRS'\">";
$btn1 = "<input type=button name='Cetak' value='Cetak KRS' onClick=\"location='cetak/krs.cetak.php?khsid={$khs['KHSID']}&prn=1'\">";
}
//if ($datatahun['TglKRSSelesai'] < date("Y-m-d")) {
//''if ($_SESSION['_LevelID'] != 1) {
//''$btn1 ='';
/*} else*/
//$btn1 = "<input type=button name='Cetak' value='Cetak KRS' onClick=\"location='krs.cetak.php?khsid=$khs[KHSID]&prn=1'\">";
//}
if ($datatahun['TglKRSMulai'] <= date('Y-m-d') && date('Y-m-d') <= $datatahun['TglKRSSelesai'] || $datatahun['TglUbahKRSMulai'] <= date('Y-m-d') && date('Y-m-d') <= $datatahun['TglUbahKRSSelesai'] || ($datatahun['TglKRSOnlineMulai'] <= date('Y-m-d') && date('Y-m-d') <= $datatahun['TglKRSOnlineSelesai'] || $_SESSION['_LevelID'] == 41) || $_SESSION['_LevelID'] == 1) {
$btn1 = "<input type=button name='Cetak' value='Cetak KRS' onClick=\"location='cetak/krs.cetak.php?khsid={$khs['KHSID']}&prn=1'\">";
} else {
$btn1 = '';
}
$SesiLalu = $khs['Sesi'] <= 1 ? 1 : $khs['Sesi'] - 1;
$khslalu = GetFields('khs', "MhswID='{$mhsw['MhswID']}' and Sesi", $SesiLalu, "*");
$ipslalu = number_format($khslalu['IPS'], 2);
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><td class=inp2><b>Mhsw</b></td>\r\n <td class=inp>NPM</td><td class=ul>{$mhsw['MhswID']}</td>\r\n <td class=inp>Nama</td><td class=ul>{$mhsw['Nama']}</td>\r\n <td class=inp>Program</td><td class=ul>{$mhsw['PRG']} ({$mhsw['ProgramID']})</td>\r\n <td class=inp>Prodi</td><td class=ul>{$mhsw['PRD']} ({$mhsw['ProdiID']})</td>\r\n </tr>\r\n <tr><td class=inp2><b>Sesi</b></td>\r\n <td class=inp>Tahun Akd</td><td class=ul>{$khs['TahunID']} Smt: {$khs['Sesi']}</td>\r\n <td class=inp>Status</td><td class=ul>{$khs['SM']} ({$khs['StatusMhswID']})</td>\r\n <td class=inp>Tot SKS</td><td class=ul>{$khs['TotalSKS']} <abbr title='dari maksimal'>dr</abbr> {$khs['MaxSKS']} SKS, {$khs['JumlahMK']} MK</td>\r\n <td class=inp>IPS Lalu</td><td class=ul>{$ipslalu}, IPK: {$mhsw['IPK']}</td>\r\n </tr>\r\n <tr><td class=inp2><b>Batas</b></td>\r\n <td class=inp>Isi KRS</td><td class=ul>{$KRSMulai}~{$KRSSelesai}</td>\r\n <td class=inp>Ubah KRS</td><td class=ul>{$UbahKRSMulai}~{$UbahKRSSelesai}</td>\r\n <td class=inp>Pengajuan Cuti & Mundur</td><td class=ul>{$Cuti} & {$Mundur}</td>\r\n <td class=inp>Kuliah</td><td class=ul>{$KuliahMulai}~{$KuliahSelesai}</td></tr>\r\n </tr>\r\n <tr><td class=inp2><b>Pilihan</b></td>\r\n <td class=ul colspan=2 nowrap>\r\n {$btn} {$btn1}\r\n <input type=button name='Kembali' value='Kembali' onClick=\"location='?mnux=krs'\">\r\n </td>\r\n <td class=inp>Batas Studi</td><td class=ul>{$mhsw['BatasStudi']} </td>\r\n <td class=inp>Pembayaran</td><td class=ul>{$BayarMulai}~{$BayarSelesai}</td>\r\n <td class=inp>Penasehat</td><td class=ul>{$PA} </td>\r\n </tr>\r\n </table>";
}
function TuliskanDataUtama($mhsw, $khs, &$arr)
{
$mrg = str_pad(' ', 15);
$TGL = FormatTanggal($mhsw['TanggalLahir']);
$SKRG = date('d-m-Y');
$thn = GetFields("tahun", "ProgramID='{$mhsw['ProgramID']}' and ProdiID='{$mhsw['ProdiID']}' and TahunID", $khs['TahunID'], "Nama, date_format(TglAkhirKSS, '%d-%m-%Y') as TNIL");
$rek = GetaField('pejabat', 'JabatanID', 'REKTOR', 'Nama');
$pa = GetaField('dosen d', "d.Login", $mhsw['PenasehatAkademik'], "concat(d.Nama, ', ', d.Gelar)");
$Alamat = empty($mhsw['Alamat']) ? $mhsw['AlamatAsal'] : $mhsw['Alamat'];
$Kota = empty($mhsw['Kota']) ? $mhsw['KotaAsal'] : $mhsw['Kota'];
if (strlen($Alamat) > 45) {
$needle = ' ';
$piece = $pos = strripos($Alamat, $needle);
$Alamat1 = substr($Alamat, 0, $piece);
$Alamat2 = strstr($Alamat, substr($Alamat, $piece, $piece));
$Alamat2 = str_pad($Alamat2, 25);
} else {
$Alamat1 = $Alamat;
$Alamat2 = '';
}
$Alamat1 = str_replace(chr(13), ' ', $Alamat1);
$Alamat1 = str_replace(chr(10), '', $Alamat1);
$arr[0] .= $mrg . str_pad($thn['Nama'], 59);
$arr[1] .= $mrg . str_pad($mhsw['MhswID'], 59);
$arr[2] .= $mrg . str_pad($mhsw['Nama'], 59);
$arr[3] .= $mrg . str_pad($mhsw['TempatLahir'] . ', ' . $TGL, 59);
$arr[4] .= $mrg . str_pad($Alamat1, 59);
//$arr[5] .= $mrg . str_pad($Alamat2, 59);
$arr[5] .= $mrg . str_pad($Kota . ' ' . $mhsw['KodePos'], 59);
$arr[6] .= $mrg . str_pad($mhsw['FAK'] . '/ ' . $mhsw['PRD'], 59);
$arr[7] .= $mrg . str_pad($pa, 59);
$arr[8] .= $mrg . str_pad(' ', 30) . str_pad($SKRG, 29);
$arr[9] .= str_pad(' ', 74);
$arr[10] .= str_pad(' ' . $thn['TNIL'], 74);
$arr[11] .= str_pad(' ', 74);
$arr[12] .= str_pad(' ', 74);
$arr[13] .= str_pad($rek, 65, ' ', STR_PAD_LEFT);
}
function CetakNilaiKlinik()
{
include "sisfokampus.php";
HeaderSisfoKampus();
$JadwalID = $_REQUEST['JadwalID'];
$jdwl = GetFields("jadwal j\r\n left outer join rumahsakit rs on j.RuangID=rs.RSID", "JadwalID", $JadwalID, "j.*, rs.Nama as NamaRS");
// tampilkan header
echo "<p><center><font size=+1>Daftar Nilai Matakuliah Klinik</font><br />\r\n <font size=+2>{$jdwl['Nama']} ({$jdwl['MKKode']})</font></center></p>";
$TM = FormatTanggal($jdwl['TglMulai']);
$TS = FormatTanggal($jdwl['TglSelesai']);
echo "<p><center>Rumah Sakit: <font size=+1>{$jdwl['NamaRS']}</font><br />\r\n Periode: <font size=+1>{$TM} ~ {$TS}</font></center></p>";
$s = "select k.KRSID, k.MhswID, m.Nama, k.GradeNilai, k.BobotNilai\r\n from krs k\r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n where k.JadwalID='{$JadwalID}'\r\n order by k.MhswID";
$r = _query($s);
$n = 0;
echo "<p align=center><table class=box cellspacing=1>\r\n <tr><th class=ttl>No</th>\r\n <th class=ttl>N P M</th>\r\n <th class=ttl>Nama Mahasiswa</th>\r\n <th class=ttl>Grade<br />Nilai</th>\r\n <th class=ttl>Bobot<br />Nilai</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
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 align=center>{$w['GradeNilai']}</td>\r\n <td class=ul align=right>{$w['BobotNilai']}</td>\r\n </tr>";
}
echo "</table></p>";
echo "<p align=center>Total Mahasiswa: <font size=+1>{$n}</font></p>";
echo "<script>window.print()</script>";
}
function DftrTA($mhsw)
{
// Tampilkan menu tambah
if ($mhsw['ProdiID'] != '11' && $mhsw['ProdiID'] != '10') {
echo "<p><a href='?mnux=ta&gos=TAEdt&md=1&crmhswid={$mhsw['MhswID']}'><img src='img/edit.png'>\n Daftarkan tugas akhir</a></p>";
$s = "select t.*, concat(d.Nama, ', ', d.Gelar) as DSN\n from ta t\n left outer join dosen d on t.Pembimbing=d.Login\n where t.MhswID='{$mhsw['MhswID']}'\n order by t.TglMulai desc";
$r = _query($s);
$n = 0;
if (_num_rows($r) > 0) {
$n++;
echo "<p><table class=box cellspacing=1 cellpadding=4>\n <tr><th class=ttl>#</th>\n <th class=ttl>Tahun</th>\n <th class=ttl>Waktu</th>\n <th class=ttl>Judul</th>\n <th class=ttl colspan=2>Pembimbing</th>\n <th class=ttl>Batal?</th>\n <th class=ttl>Ujian</th>\n <th class=ttl colspan=2>Penguji</th>\n <th class=ttl title='Cetak Undangan Dosen Penguji'>Und</th>\n <th class=ttl>Lulus?</th>\n </tr>";
while ($w = _fetch_array($r)) {
// data TA
$TM = FormatTanggal($w['TglMulai']);
$TS = FormatTanggal($w['TglSelesai']);
$c = $w['NA'] == 'Y' ? 'class=nac' : 'class=ul';
$pemb2 = AmbilPembimbing($w['TAID'], 0);
// data ujian
$TU = FormatTanggal($w['TglUjian']);
$_TU = $TU == '00/00/0000' ? " " : $TU;
$Penguji = GetaField('dosen', "Login", $w['Penguji'], "concat(Nama, ', ', Gelar)");
$Penguji = empty($Penguji) ? " " : $Penguji;
$peng2 = AmbilPembimbing($w['TAID'], 1);
// Jika batal
if ($w['NA'] == 'Y') {
$lls = "<img src='img/kali.png'>";
} else {
$lls = $w['Lulus'] == 'Y' ? "<img src='img/Y.gif'>" : "<a href='?mnux=ta&gos=TALLS&taid={$w['TAID']}&crmhswid={$mhsw['MhswID']}'><img src='img/{$w['Lulus']}.gif'><br />Nilai</a>";
}
echo "<tr><td class=inp rowspan=2>{$n}</td>\n <td {$c} rowspan=2><a href='?mnux=ta&gos=TAEdt&taid={$w['TAID']}&crmhswid={$mhsw['MhswID']}&md=0'><img src='img/edit.png'>\n {$w['TahunID']}</a></td>\n <td {$c} rowspan=2>{$TM} <br /> {$TS}</td>\n <td {$c} rowspan=2>{$w['Judul']}</td>\n <td {$c} colspan=2>{$w['DSN']}</td>\n \n <td class=ul align=center rowspan=2><img src='img/book{$w['NA']}.gif'></td>\n <td {$c} rowspan=2><a href='?mnux=ta&gos=TAUjn&taid={$w['TAID']}&crmhswid={$mhsw['MhswID']}'><img src='img/check.gif'> Set Ujian</a><br />\n {$_TU}</td>\n <td {$c} colspan=2>{$Penguji}</td>\n <td class=ul rowspan=2 align=center>\n <a href='ta.und.php?taid={$w['TAID']}'><img src='img/printer.gif'></a></td>\n <td {$c} rowspan=2 align=center>{$lls}</td>\n </tr>\n \n <tr>\n <td class=inp1 title='Edit Pembimbing Pendamping'><a href='?mnux=ta.dsn&taid={$w['TAID']}&tipta=0'><img src='img/edit.png'></a></td>\n <td {$c} nowrap>{$pemb2} </td>\n <td class=inp1 title='Edit Penguji Pendamping'><a href='?mnux=ta.dsn&taid={$w['TAID']}&tipta=1'><img src='img/edit.png'></a></td>\n <td {$c} nowrap>{$peng2} </td>\n </tr>";
}
echo "</table></p>";
}
} else {
CheckMhswFK($mhsw);
}
}
function TampilkanHeaderMhsw($thn, $mhsw, $khs)
{
$KRSMulai = FormatTanggal($thn['TglKRSMulai']);
$KRSSelesai = FormatTanggal($thn['TglKRSSelesai']);
$BayarMulai = FormatTanggal($thn['TglBayarMulai']);
$BayarSelesai = FormatTanggal($thn['TglBayarSelesai']);
$GelarPA = GetaField('dosen', "KodeID='" . KodeID . "' and Login", $mhsw['PenasehatAkademik'], 'Gelar');
// batas waktu
$skrg = date('Y-m-d');
if ($thn['TglKRSMulai'] <= $skrg && $skrg <= $thn['TglKRSSelesai']) {
if ($_SESSION['_LevelID'] == 120) {
$CetakKRS = "<a href='#' onClick=\"alert('Hubungi Staf TU/Adm Akademik untuk mencetak LRS/KRS.')\"><img src='img/printer2.gif' /></a>";
$CetakLRS = '';
} else {
$CetakKRS = "<input type=button name='CetakKRS' value='Cetak KRS' onClick=\"javascript:CetakKRS({$khs['KHSID']})\" />";
$CetakLRS = "<input type=button name='CetakLRS' value='Cetak LRS' onClick=\"javascript:CetakLRS({$khs['KHSID']})\"/>";
}
} else {
$CetakKRS = ' ';
$CetakLRS = ' ';
}
$keu = BuatSummaryKeu($mhsw, $khs);
echo "<table class=box cellspacing=1 align=center width=800>\r\n <tr><td class=wrn width=2 rowspan=4></td>\r\n <td class=inp width=80>Mahasiswa:</td>\r\n <td class=ul width=200>{$mhsw['Nama']} <sup>({$mhsw['MhswID']})</sup></td>\r\n <td class=inp width=80>Sesi:</td>\r\n <td class=ul>{$khs['Sesi']}</td>\r\n <td class=inp width=80>Status:</td>\r\n <td class=ul width=100>{$khs['STA']} <sup>({$khs['StatusMhswID']})</sup></td>\r\n </tr>\r\n <tr>\r\n <td class=inp title='Dosen Pembimbing Akademik'>Pemb. Akd:</td>\r\n <td class=ul>{$mhsw['namaDosen']} <sup>{$GelarPA}</sup> </td>\r\n <td class=inp>Jml SKS:</td>\r\n <td class=ul>{$khs['SKS']}<sub title='Maksimum SKS yg boleh diambil'>−{$khs['MaxSKS']}</sub></td>\r\n <td class=inp>Status Awal:</td>\r\n <td class=ul>{$mhsw['STAWAL']} <sup>({$mhsw['StatusAwalID']})</sup></td>\r\n </tr>\r\n <tr><td class=ul colspan=6>{$keu}</td></tr>\r\n </table>";
}
function DaftarPrestasi($m, $pres = 1)
{
$s = "select *\r\n from prestasi\r\n where MhswID='{$m['MhswID']}' and JenisPrestasi={$pres}\r\n order by Tanggal desc";
$r = _query($s);
$n = 0;
$hdrSkorsing = $pres == -1 ? "<th class=ttl>Skors?</th>" : '';
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl colspan=2>#</th>\r\n <th class=ttl>Tanggal</th>\r\n <th class=ttl>Judul</th>\r\n <th class=ttl>Keterangan</th>\r\n <th class=ttl>Hapus</th>\r\n {$hdrSkorsing}\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$c = $w['NA'] == 'Y' ? 'class=nac' : 'class=ul';
$tgl = FormatTanggal($w['Tanggal']);
if ($pres == -1) {
$strSkorsing = "<td class=ul><a href='?mnux=skorsing.det&mhswid={$m['MhswID']}'>» Skorsing</a></td>";
} else {
$strSkorsing = '';
}
echo "<tr><td class=inp>{$n}</td>\r\n <td class=ul align=center><a href='?mnux=mhsw.prestasi.det&gos=PresEdt&md=0&presid={$w['PrestasiID']}'><img src='img/edit.png'></a></td>\r\n <td {$c}>{$tgl}</td>\r\n <td {$c}>{$w['Judul']}</td>\r\n <td {$c}>{$w['Keterangan']}</td>\r\n <td class=ul align=right><a href='?mnux={$_SESSION['mnux']}&gos=PresDel&presid={$w['PrestasiID']}'><img src='img/del.gif'></a></td>\r\n {$strSkorsing}\r\n <tr>";
}
echo "</table></p>";
}
function BuatHeadernya($TahunID, $ProdiID, $p)
{
global $lbr;
$t = 6;
$TglMulai = FormatTanggal($_SESSION['TglMulai']);
$TglSelesai = FormatTanggal($_SESSION['TglSelesai']);
$p->SetFont('Helvetica', 'B', 12);
$p->Cell($lbr, $t, "Laporan Pembayaran Mahasiswa", 0, 1, 'C');
$p->Cell($lbr, $t, "Rentang Pembayaran: {$TglMulai} sampai {$TglSelesai}", 0, 1, 'C');
$p->Ln(2);
$t = 6;
$p->SetFont('Helvetica', 'BI', 10);
$p->Cell(10, $t, 'Nmr', 1, 0);
$p->Cell(22, $t, 'Tanggal', 1, 0);
$p->Cell(23, $t, 'N I M', 1, 0);
$p->Cell(46, $t, 'Nama Mahasiswa', 1, 0);
$p->Cell(23, $t, 'Jumlah', 1, 0);
$p->Cell(22, $t, 'Bank/Tunai', 1, 0);
$p->Cell(44, $t, 'Nomer Bukti Setoran', 1, 0);
$p->Ln($t);
}
function TrxSkorsing2($mhsw)
{
$Tahun1 = $_REQUEST['Tahun1'];
$Tahun2 = $_REQUEST['Tahun2'];
$Tahun3 = $_REQUEST['Tahun3'];
$Tahun4 = $_REQUEST['Tahun4'];
$NoSurat = sqling($_REQUEST['NoSurat']);
$TglSurat = "{$_REQUEST['TglSurat_y']}-{$_REQUEST['TglSurat_m']}-{$_REQUEST['TglSurat_d']}";
$Keterangan = sqling($_REQUEST['Keterangan']);
$_TglSurat = FormatTanggal($TglSurat);
$hdr = HeaderSkorsing($mhsw);
echo "<p><table class=box cellspacing=1>{$hdr}\r\n <tr><td class=inp>No Surat</td><td class=ul colspan=3><b>{$NoSurat}</td></tr>\r\n <tr><td class=inp>Tanggal Surat</td><td class=ul colspan=3><b>{$_TglSurat}</td></tr>\r\n <tr><td class=inp>Keterangan</td><td class=ul colspan=3>{$Keterangan}</td></tr>\r\n </table>";
echo "<p><table class=box cellspacing=1>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>Tahun</th>\r\n <th class=ttl>Smt</th>\r\n <th class=ttl>Status</th>\r\n <th class=ttl>Juml<br />MK</th>\r\n <th class=ttl>SKS<br />Diambil</th>\r\n <th class=ttl>Catatan</th>\r\n </tr>";
echo "<form action='?' method=POST>\r\n <input type=hidden name='mnux' value='skorsing.det'>\r\n <input type=hidden name='gos' value='TrxSkorsing3'>\r\n <input type=hidden name='Tahun1' value='{$Tahun1}'>\r\n <input type=hidden name='Tahun2' value='{$Tahun2}'>\r\n <input type=hidden name='Tahun3' value='{$Tahun3}'>\r\n <input type=hidden name='Tahun4' value='{$Tahun4}'>\r\n <input type=hidden name='NoSurat' value='{$NoSurat}'>\r\n <input type=hidden name='TglSurat' value='{$TglSurat}'>\r\n <input type=hidden name='Keterangan' value='{$Keterangan}'>\r\n ";
CekTahunSkors($mhsw, $Tahun1, 1);
CekTahunSkors($mhsw, $Tahun2, 2);
CekTahunSkors($mhsw, $Tahun3, 3);
CekTahunSkors($mhsw, $Tahun4, 4);
echo "<tr><td class=inp> </td><td class=ul colspan=6><input type=submit name='Proses' value='Proses Skorsing'>\r\n <input type=button name='Batalkan' value='Batalkan Proses' onClick=\"location='?mnux=skorsing'\"></td></tr>";
echo "</form></table></p>";
}