function hitungpresensi()
{
$prodi = $_SESSION['prodi'];
$_SESSION['HTG-Pos-' . $prodi]++;
$pos = $_SESSION['HTG-Pos-' . $prodi];
$max = $_SESSION['HTG-Max-' . $prodi];
$MhswID = $_SESSION['HTG-MhswID-' . $prodi . $pos];
$KHSID = $_SESSION['HTG-KHSID-' . $prodi . $pos];
$persen = $max == 0 ? 0 : number_format($pos / $max * 100);
if (!empty($MhswID)) {
echo "<p>Processing: <b>{$MhswID}</b></p>\r\n <p><font size=+4>{$persen} %</font></p>\r\n <p>Position: <b>{$pos}/{$max}</b></p>\r\n <ul>";
$s = "select KRSID, MKID, MKKode from krs where KHSID={$KHSID}";
$r = _query($s);
while ($w = _fetch_array($r)) {
$jml = GetaField('presensimhsw', 'KRSID', $w['KRSID'], "sum(Nilai)") + 0;
$sx = "update krs set _Presensi={$jml} where KRSID={$w['KRSID']} ";
$rx = _query($sx);
echo "<li>{$w['MKKode']} » {$jml}</li>";
}
echo "</ul>";
}
if ($pos < $max) {
echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
} else {
echo "<hr><p>Proses Selesai</p>";
}
}
function ProsesCopyKRS1()
{
$_JadwalID1 = $_REQUEST['_JadwalID1'];
$_JadwalID2 = $_REQUEST['_JadwalID2'];
$jdwl2 = GetFields('jadwal', 'JadwalID', $_JadwalID2, '*');
$s = "select *\r\n from krs\r\n where JadwalID='{$_JadwalID1}'\r\n order by MhswID";
$r = _query($s);
$n = 0;
echo "<ol>";
while ($w = _fetch_array($r)) {
$ada = GetaField("krs", "MhswID='{$w['MhswID']}' and JadwalID", $_JadwalID2, 'KRSID');
// Jika belum terdaftar, maka daftarkan
if (empty($ada)) {
$n++;
$str = "insert into krs\r\n (KHSID, MhswID, TahunID, JadwalID,\r\n MKID, MKKode, SKS, HargaStandar, Harga,\r\n Catatan, LoginBuat, TanggalBuat)\r\n values ({$w['KHSID']}, '{$w['MhswID']}', '{$w['TahunID']}', {$_JadwalID2},\r\n '{$jdwl2['MKID']}', '{$jdwl2['MKKode']}', '{$jdwl2['SKS']}', \r\n '{$jdwl2['HargaStandar']}', '{$jdwl2['Harga']}',\r\n 'COPY DARI JadwalID: {$_JadwalID1}', 'DEWO', now()\r\n )";
$rstr = _query($str);
} else {
$str = "<font color=RED>Sudah</font>";
}
echo "<li>{$w['MhswID']} » {$str}</li>";
}
// Hitung Jumlah Mhsw di Jadwal2
$jml = GetaField("krs", "JadwalID", $_JadwalID2, "count(*)") + 0;
$sx = "update jadwal set JumlahMhsw={$jml} where JadwalID={$_JadwalID2}";
$rx = _query($sx);
echo "Telah tercopy <font size=+2>{$n}</font> KRS</td></tr>";
}
function BuatHeadernya($MhswID, $p)
{
$mhsw = GetFields("mhsw m left outer join dosen d on m.PenasehatAkademik=d.Login and d.KodeID='" . KodeID . "'", "m.MhswID='{$MhswID}' and m.KodeID", KodeID, 'm.MhswID, m.Nama, d.Nama as DSN, d.Gelar, m.ProgramID, m.ProdiID');
$arr[] = array('NIM', ':', $mhsw['MhswID']);
$arr[] = array('Nama', ':', $mhsw['Nama'], 'Program', ':', $mhsw['ProgramID'] . ' - ' . GetaField('program', "ProgramID='{$mhsw['ProgramID']}' and KodeID", KodeID, 'Nama'));
$Dosen = empty($mhsw['DSN']) ? "(Belum diset)" : $mhsw['DSN'] . ', ' . $mhsw['Gelar'];
$arr[] = array('Dosen Pembimbing', ':', $Dosen, 'Program Studi', ':', $mhsw['ProdiID'] . ' - ' . GetaField('prodi', "ProdiID='{$mhsw['ProdiID']}' and KodeID", KodeID, 'Nama'));
// Tampilkan
$p->SetFont('Helvetica', '', 10);
$t = 5;
foreach ($arr as $a) {
// Kolom 1
$p->SetFont('Helvetica', 'I', 10);
$p->Cell(35, $t, $a[0], 0, 0);
$p->Cell(4, $t, $a[1], 0, 0, 'C');
$p->SetFont('Helvetica', 'B', 10);
$p->Cell(70, $t, $a[2], 0, 0);
// Kolom 2
$p->SetFont('Helvetica', 'I', 10);
$p->Cell(35, $t, $a[3], 0, 0);
$p->Cell(4, $t, $a[4], 0, 0, 'C');
$p->SetFont('Helvetica', 'B', 10);
$p->Cell(70, $t, $a[5], 0, 0);
$p->Ln($t);
}
$p->Ln(2);
$p->Cell(0, $t, '', 'T', 1);
}
function CreateDBFMHS()
{
global $HeaderMSHS;
if (!empty($_SESSION['DariNPM'])) {
$_SESSION['SampaiNPM'] = empty($_SESSION['SampaiNPM']) ? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM'];
$_npm = "'{$_SESSION['DariNPM']}' <= MhswID and MhswID <= '{$_SESSION['SampaiNPM']}' ";
} else {
$drmhsw = GetaField('mhsw', "NA", "N", "min(MhswID)");
$smpmhsw = GetaField('mhsw', "NA", "N", "max(MhswID)");
$_npm = "'{$drmhsw}' <= MhswID and MhswID <= '{$smpmhsw}' ";
}
$s = "select MhswID\r\n from mhsw\r\n where {$_npm}\r\n\t\torder by MhswID";
$r = _query($s);
$n = 0;
$DBFName = "dikti/MHMHS-20062.DBF";
DBFCreate($DBFName, $HeaderMSHS);
while ($w = _fetch_array($r)) {
$n++;
$_SESSION["DBF-MHSWID-{$n}"] = $w['MhswID'];
}
$_SESSION["DBF-FILES"] = $DBFName;
$_SESSION["DBF-POS"] = 0;
$_SESSION["DBF-MAX"] = $n;
echo "<p>Akan diproses <font size=+1>{$n}</font> data.</p>";
echo "<p><IFRAME src='dikti.mastermhsw.go.php' frameborder=0 height=400 width=600>\r\n </IFRAME></p>";
}
function DetailBIPOT()
{
global $_lf;
$bipotid = $_REQUEST['bipotid'];
$bpt = GetFields('bipot', 'BIPOTID', $bipotid, '*');
$prg = GetaField('program', 'ProgramID', $bpt['ProgramID'], 'Nama');
$prd = GetaField('prodi', 'ProdiID', $bpt['ProdiID'], 'Nama');
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.bipot.dwoprn";
$f = fopen($nmf, 'w');
$mxc = 114;
$grs = str_pad('-', $mxc, '-') . $_lf;
$hdr = str_pad("Daftar Biaya & Potongan {$bpt['TahunID']}", $mxc, ' ', STR_PAD_BOTH) . $_lf . str_pad($bpt['Nama'], $mxc, ' ', STR_PAD_BOTH) . $_lf . str_pad("Program: {$prg}, Prodi: {$prd}", $mxc, ' ', STR_PAD_BOTH) . $_lf . $grs . "No. Prio " . str_pad("Nama", 30) . str_pad("Jumlah", 12, ' ', STR_PAD_LEFT) . ' ' . str_pad("Penarikan", 12) . str_pad("Oto?", 5) . ' ' . str_pad("St.Awal", 12) . ' ' . str_pad("St.Mhsw", 12) . ' ' . str_pad("Grade", 5) . ' ' . $_lf . $grs;
$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='{$_SESSION['KodeID']}'\r\n order by b2.TrxID, b2.Prioritas, b2.GradeNilai";
$r = _query($s);
$n = 0;
fwrite($f, $hdr);
while ($w = _fetch_array($r)) {
$n++;
$jml = number_format($w['Jumlah']);
$sa = TRIM($w['StatusAwalID'], '.');
$sa = str_replace('.', ',', $sa);
$sm = TRIM($w['StatusMhswID'], '.');
$sm = str_replace('.', ',', $sm);
fwrite($f, str_pad($n, 4) . str_pad($w['Prioritas'], 5) . str_pad($w['Nama'], 30) . str_pad($jml, 12, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['SAAT'], 12) . str_pad($w['Otomatis'], 5, ' ', STR_PAD_BOTH) . ' ' . str_pad($sa, 12) . ' ' . str_pad($sm, 12) . ' ' . str_pad($w['GradeNilai'], 5, ' ', STR_PAD_BOTH) . $_lf);
}
fwrite($f, $grs);
fclose($f);
TampilkanFileDWOPRN($nmf);
}
function perskskhusus($mhsw, $khs, $bipot, $ada, $pmbmhswid = 1)
{
// Jumlah SKS yg diambil mhsw.
// Hrs diparsing krn dicek apkh mhsw jg mengambil jdwl dgn hrg yg berbeda?
$s = "select k.TahunID, k.MhswID,\n j.JadwalID, j.SKSAsli, j.HargaStandar, j.Harga\n from krs k\n left outer join jadwal j on k.JadwalID=j.JadwalID\n where k.MhswID='{$mhsw['MhswID']}' and k.TahunID='{$khs['TahunID']}'\n and j.HargaStandar='N' ";
$r = _query($s);
$totharga = 0;
$totsks = 0;
$mk = '';
$jml = 0;
while ($w = _fetch_array($r)) {
$jml++;
//echo "$w[MKKode]: $w[Nama] ($w[SKS] SKS), Harga Standar? $w[HargaStandar]:$w[Harga]<br />";
$totsks += $w['SKSAsli'];
$totharga += $w['Harga'];
$mk .= "{$w['MKKode']} - {$w['Nama']}: {$w['SKSAsli']} SKS dgn Harga: {$w['Harga']} \r\n";
}
if ($totharga <= 0) {
//$bpt =
$totharga = GetaField("bipot2", "BipotNamaID = 16 and BIPOT2ID", $bipot['BIPOT2ID'], "Jumlah");
$jml = 1;
}
if (empty($ada) && $totharga > 0) {
$s0 = "insert into bipotmhsw(PMBID, MhswID, TahunID, BIPOT2ID, BIPOTNamaID,\n PMBMhswID, TrxID, Jumlah, Besar, Catatan,\n LoginBuat, TanggalBuat)\n values('{$mhsw['PMBID']}', '{$mhsw['MhswID']}', '{$khs['TahunID']}', '{$bipot['BIPOT2ID']}', '{$bipot['BIPOTNamaID']}',\n '{$pmbmhswid}', '{$bipot['TrxID']}', {$jml}, '{$totharga}', '{$mk}',\n '{$_SESSION['_Login']}', now())";
$r0 = _query($s0);
} else {
$s0 = "update bipotmhsw set Besar='{$totharga}', Jumlah='{$jml}',\n PMBMhswID='{$pmbmhswid}',\n Catatan='Total SKS: {$totsks}',\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\n where BIPOTMhswID='{$ada['BIPOTMhswID']}' ";
$r0 = _query($s0);
}
}
function PRC()
{
echo "<body bgcolor=#EEFFFF>";
$tahun = $_REQUEST['tahun'];
$prodi = $_REQUEST['prodi'];
$prid = $_REQUEST['prid'];
$pss = $_SESSION['THN' . $prodi . 'POS'];
$mhswid = $_SESSION['THN' . $prodi . $pss];
// Jika ada data
if (!empty($mhswid)) {
echo "<p>#<font size=+2>" . $pss . "</font> » <b>{$tahun}</b> » " . $_SESSION['THN' . $prodi . $pss] . "</p><hr>";
$sdh = GetFields('khs', "MhswID='{$mhswid}' and TahunID", $tahun, "KHSID, MhswID");
if (empty($sdh)) {
$def = GetaField('statusmhsw', 'Def', 'Y', 'StatusMhswID');
$sesi = GetaField('khs', 'MhswID', $w['MhswID'], "max(Sesi)") + 1;
$mhsw = GetFields('mhsw', "MhswID", $mhswid, "BIPOTID");
$sp = "insert into khs (TahunID, KodeID, ProgramID, ProdiID,\r\n MhswID, StatusMhswID, Sesi, BIPOTID,\r\n LoginBuat, TanggalBuat)\r\n values ('{$tahun}', '{$_SESSION['KodeID']}', '{$w['ProgramID']}', '{$prodi}',\r\n '{$mhswid}', '{$def}', '{$sesi}', '{$mhsw['BIPOTID']}',\r\n '{$_SESSION['_Login']}', now() )";
//echo "<pre>$sp</pre>";
//$rp = _query($sp);
echo "<p><font color=green>DIPROSES</font></p>";
} else {
echo "<p><font color=gray>Sudah pernah diproses</font></p>";
}
}
// refresh page
if ($_SESSION['THN' . $prodi . 'POS'] < $_SESSION['THN' . $prodi]) {
echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
} else {
// update data tahun
$st = "update tahun set ProsesBuka=ProsesBuka+1\r\n where TahunID='{$tahun}' and ProgramID='{$prid}' and ProdiID='{$prodi}'";
$rt = _query($st);
echo "<p>Proses buka TAHUN akademik <b>{$tahun}</b> sudah <font size=+2>SELESAI</font></p>";
}
$_SESSION['THN' . $prodi . 'POS']++;
}
function frmPT()
{
global $datamhsw, $mnux, $pref;
CariPTScript();
$NamaPT = GetaField('perguruantinggi', 'PerguruanTinggiID', $datamhsw['AsalPT'], "concat(Nama, ', ', Kota)");
$lulus = $datamhsw['LulusAsalPT'] == 'Y' ? 'checked' : '';
$TglLulusAsalPT = GetDateOption($datamhsw['TglLulusAsalPT'], 'TL');
//$optjur = GetOption2('jurusansekolah', "concat(JurusanSekolahID, ' - ', Nama, ' - ', NamaJurusan)", 'JurusanSekolahID', $datamhsw['JurusanSekolah'], '', 'JurusanSekolahID');
// Edit: Ilham
// Line: 44, 55
if ($_SESSION['_LevelID'] == 120) {
// Mahasiswa
$disabled = "disabled";
$btn1 = "";
$btn2 = "";
$btn3 = "";
$TglLulusAsalPT = $datamhsw['TglLulusAsalPT'];
} else {
$disabled = "";
$btn1 = "<a href='javascript:caript(data)'>Cari</a>";
$btn2 = "<input type=submit name='Simpan' value='Simpan'>";
$btn3 = "<input type=reset name='Reset' value='Reset'>";
$TglLulusAsalPT = $TglLulusAsalPT;
}
echo "<p><table class=box cellspacing=1 cellpadding=4 width=600>\r\n <form action='?' name='data' method=POST>\r\n <input type=hidden name='mnux' value='{$_SESSION['mnux']}' />\r\n <input type=hidden name='mhswid' value='{$datamhsw['MhswID']}' />\r\n <input type=hidden name='submodul' value='{$_SESSION['submodul']}' />\r\n <input type=hidden name='sub' value='PTSav' />\r\n <input type=hidden name='BypassMenu' value='1' />\r\n\r\n <tr><td colspan=2 class=ul><b>Perguruan Tinggi Asal Mahasiswa</td></tr>\r\n\r\n <tr><td class=inp rowspan=2>Perguruan Tinggi</td><td class=ul><input type=text name='AsalPT' value='{$datamhsw['AsalPT']}' size=10 maxlength=50 {$disabled}></td></tr>\r\n <tr><td class=ul><input type=text name='NamaPT' value='{$NamaPT}' size=50 maxlength=50 {$disabled}> {$btn1}</td></tr>\r\n <tr><td class=inp>Jurusan</td><td class=ul><input type=text name='ProdiAsalPT' value='{$datamhsw['ProdiAsalPT']}' {$disabled} ></select></td></tr>\r\n <tr><td class=inp>Lulus?</td><td class=ul><input type=checkbox name='LulusAsalPT' value='Y' {$lulus} {$disabled}>\r\n <hr size=1 color=silver />\r\n Lulus tahun: {$TglLulusAsalPT}</td></tr>\r\n <tr><td class=inp>Nilai IPK</td><td class=ul><input type=text name='IPKAsalPT' value='{$datamhsw['IPKAsalPT']}' size=5 maxlength=5 {$disabled}></td></tr>\r\n <tr><td class=ul colspan=2 align=center>{$btn2}\r\n {$btn3}</td></tr>\r\n </form></table></p>";
}
function BuatHeader($jdwl, $p)
{
$NamaTahun = GetaField('tahun', "KodeID='" . KodeID . "' and TahunID='{$jdwl['TahunID']}' and ProdiID", $jdwl['ProdiID'], 'Nama');
$t = 6;
$lbr = 200;
$arr = array();
$arr[] = array('Mata Kuliah', ':', $jdwl['MKKode'] . ' - ' . $jdwl['Nama']);
$arr[] = array('Kelas / Thn Akd', ':', $jdwl['namaKelas'] . ' ( Ruang: ' . $jdwl['RuangID'] . ' ) ' . ' / ' . $NamaTahun, 'Dosen Pengasuh', ':', $jdwl['DSN']);
$arr[] = array('Semester / SKS', ':', $jdwl['Sesi'] . ' / ' . $jdwl['SKS'], 'Hari / Tgl UTS', ':', $jdwl['HRUTS'] . ' / ' . $jdwl['_UTSTanggal'] . ' / ' . $jdwl['_UTSJamMulai'] . ' - ' . $jdwl['_UTSJamSelesai']);
$arr[] = array('Program Studi', ':', $jdwl['_PRD'] . ' (' . $jdwl['_PRG'] . ')', 'Hari / Tgl UAS', ':', $jdwl['HRUAS'] . ' / ' . $jdwl['_UASTanggal'] . ' / ' . $jdwl['_UASJamMulai'] . ' - ' . $jdwl['_UASJamSelesai']);
// Tampilkan
$p->SetFont('Helvetica', '', 8);
foreach ($arr as $a) {
// Kolom 1
$p->SetFont('Helvetica', 'I', 8);
$p->Cell(25, $t, $a[0], 0, 0);
$p->Cell(4, $t, $a[1], 0, 0, 'C');
$p->SetFont('Helvetica', 'B', 8);
$p->Cell(80, $t, $a[2], 0, 0);
// Kolom 2
$p->SetFont('Helvetica', 'I', 8);
$p->Cell(25, $t, $a[3], 0, 0);
$p->Cell(4, $t, $a[4], 0, 0, 'C');
$p->SetFont('Helvetica', 'B', 8);
$p->Cell(25, $t, $a[5], 0, 0);
$p->Ln($t);
}
$p->Ln(4);
BuatHeaderTabel($p);
}
function TampilkanAmbilMhswID($MhswID, $mhsw)
{
$stawal = GetaField('statusawal', 'StatusAwalID', $mhsw['StatusAwalID'], 'Nama');
$status = GetaField('statusmhsw', 'StatusMhswID', $mhsw['StatusMhswID'], 'Nama');
if (empty($mhsw['PenasehatAkademik'])) {
$pa = '<sup>Belum diset</sup>';
} else {
$dosenpa = GetFields('dosen', "Login='******'PenasehatAkademik']}' and KodeID", KodeID, "Nama, Gelar");
$pa = "{$dosenpa['Nama']} <sup>{$dosenpa['Gelar']}</sup>";
}
echo <<<ESD
<table class=box cellspacing=1 align=center width=600>
<form name='frmMhsw' action='?' method=POST>
<input type=hidden name='mnux' value='{$_SESSION['mnux']}' />
<input type=hidden name='gos' value='' />
<tr><td class=wrn width=2 rowspan=4></td>
<td class=inp width=80>NIM/NPM:</td>
<td class=ul width=200>
<input type=text name='MhswID' value='{$MhswID}' size=20 maxlength=50 />
<input type=submit name='btnCari' value='Cari' />
</td>
<td class=inp width=80>Mahasiswa:</td>
<td class=ul>{$mhsw['Nama']} </td>
</tr>
<tr><td class=inp>Status Mhsw:</td>
<td class=ul>{$status} <sup>{$stawal}</sup></td>
<td class=inp>Dosen PA:</td>
<td class=ul>{$pa}</td>
</form>
</table>
ESD;
}
function CetakPindahan()
{
global $_lf;
$s = "select mps.*, mk.Nama as NamaMK\r\n from mhswpindahansetara mps\r\n left outer join mk mk on mps.MKID=mk.MKID\r\n where MhswPindahanID='{$_REQUEST['pin']}'\r\n order by mps.SetaraKode";
$r = _query($s);
$maxcol = 135;
$nmf = HOME_FOLDER . DS . "tmp/p.{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(20));
$div = str_pad('-', $maxcol, '-') . $_lf;
$n = 0;
$hal = 0;
$brs = 56;
$maxbrs = 49;
$dt = GetFields('mhswpindahan', 'MhswPindahanID', $_REQUEST['pin'], "Nama");
$prd = GetaField('prodi', 'ProdiID', $_REQUEST['prodi'], 'Nama');
$hdr = str_pad('*** DAFTAR PENYETARAAN MATA KULIAH PINDAHAN **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
$hdr .= "Tahun Akademik : " . NamaTahun($_REQUEST['tahun']) . $_lf;
$hdr .= "Prodi : {$prd}" . $_lf;
$hdr .= "Mahasiswa : {$dt['Nama']}" . $_lf;
$hdr .= $div;
$hdr .= str_pad("NO", 5) . str_pad("KODE", 10) . str_pad("MATA KULIAH", 35) . str_pad('SKS', 6) . str_pad('NILAI', 6) . str_pad('GRADE', 6) . str_pad('>>>', 5) . str_pad("KODE", 8) . str_pad("MATA KULIAH", 40) . str_pad('SKS', 6) . str_pad('GRADE', 4) . $_lf;
$hdr .= $div;
fwrite($f, $hdr);
while ($w = _fetch_array($r)) {
$n++;
fwrite($f, str_pad($n, 5) . str_pad($w['SetaraKode'], 10) . str_pad($w['SetaraNama'], 37) . str_pad($w['SetaraSKS'], 5) . str_pad($w['NilaiAkhir'], 7) . str_pad($w['SetaraGrade'], 4) . str_pad('>>>>', 5) . str_pad($w['MKKode'], 8) . str_pad($w['NamaMK'], 40) . str_pad($w['SKS'], 8) . str_pad($w['GradeNilai'], 4) . $_lf);
}
fwrite($f, $div);
fwrite($f, $_lf . "Dicetak Oleh : " . $_SESSION['_Login'] . ', ' . Date("d-m-Y H:i"));
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf);
}
function JalankanProses($_pmbJumlah, $_pmbProses)
{
$tmr = 1;
include_once "../baa/mhswbaru.lib.php";
// Tampilan proses
echo "\r\n <p align=center>\r\n <font size=+1>{$_pmbProses}</font> <sup>~{$_pmbJumlah}</sup><br />" . $_SESSION['_pmbPMBID_' . $_pmbProses] . "<br />" . $_SESSION['_pmbNama_' . $_pmbProses] . "</p>";
// Ambil data Cama
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $_SESSION['_pmbPMBID_' . $_pmbProses], "*");
if ($pmb['BIPOTID'] == 0) {
SetBIPOTID($pmb);
}
ProsesBIPOT2($pmb['PMBID']);
HitungUlangBIPOTPMB($pmb['PMBID']);
// Ambil BIPOT yg sudah diupdate
$pmb = GetFields('pmb', "KodeID='" . KodeID . "' and PMBID", $_SESSION['_pmbPMBID_' . $_pmbProses], "*");
$prodi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $pmb['ProdiID'], 'Nama');
$smt = GetaField('semester', 'Semester', $_SESSION['_pmbSemester'], 'Nama');
$smt = substr($smt, 0, 6);
$smt = str_pad($smt, 6, ' ', STR_PAD_RIGHT);
// Tuliskan ke file
$fn = "../" . $_SESSION['_pmbFile'];
$f = fopen($fn, 'a');
fwrite($f, $_SESSION['_pmbTahun'] . '-' . $smt . '|' . '000000|00000|' . str_pad($pmb['PMBID'], 16, ' ', STR_PAD_RIGHT) . '|' . str_pad(substr($pmb['Nama'], 0, 21), 21, ' ', STR_PAD_RIGHT) . '|' . str_pad(' ', 25, ' ', STR_PAD_RIGHT) . '|' . str_pad($pmb['ProdiID'], 10, ' ', STR_PAD_RIGHT) . '|' . str_pad(substr($prodi, 0, 25), 25, ' ', STR_PAD_RIGHT) . '|' . substr($pmb['PMBPeriodID'], 0, 4) . '|' . '00000004201390002572|' . str_pad(' ', 20, ' ', STR_PAD_RIGHT) . '|' . str_pad($pmb['TotalBiaya'] - $pmb['TotalBayar'], 10, '0', STR_PAD_LEFT) . '|' . '0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|0000000000|' . '01|' . $_SESSION['_pmbKodeInstitusi'] . '|' . $_SESSION['_pmbKodePembayaran'] . '|' . str_pad(substr($pmb['PMBID'], 0, 10), 10, '0', STR_PAD_LEFT) . '|' . 'F' . "\n");
fclose($f);
// Next...
$_SESSION['_pmbProses']++;
echo <<<SCR
<script>
window.onload=setTimeout("window.location='../{$_SESSION['mnux']}.proses.php'", {$tmr});
</script>
SCR;
}
function TuliskanData($t, $arrPrd, $tt, $tl, $tk)
{
$PRD = GetaField('prodi', 'ProdiID', $arrPrd, 'Nama');
echo "<tr><td class=inp1>{$PRD}</td><td class=ul>Mengikuti Tes</td>" . $t[1] . "<td class=ttl align=right>{$tt}</td></tr>";
echo "<tr><td class=ul> </td><td class=inp3>Lulus</td>" . $t[2] . "<td class=ttl align=right>{$tl}</td></tr>";
echo "<tr><td class=ul> </td><td class=inp4>Konfirmasi NIM</td>" . $t[3] . "<td class=ttl align=right>{$tk}</td></tr>";
}
function BuatIsinya($TahunID, $ProdiID, $p)
{
$whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' ";
$s = "select h.*,\r\n m.Nama as NamaMhsw,\r\n d.Nama as NamaPA, d.Gelar\r\n from khs h\r\n left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n where h.KodeID = '" . KodeID . "'\r\n and h.TahunID = '{$TahunID}'\r\n and h.SKS = 0\r\n {$whr_prodi}\r\n order by h.ProdiID, h.MhswID";
$r = _query($s);
$n = 0;
$t = 5;
$_prd = 'laksdjfalksdfh';
while ($w = _fetch_array($r)) {
if ($_prd != $w['ProdiID']) {
$_prd = $w['ProdiID'];
$NamaProdi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $_prd, 'Nama');
$p->AddPage();
BuatHeader($TahunID, $NamaProdi, $p);
}
$n++;
$NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA'];
$p->SetFont('Helvetica', '', 10);
$p->Cell(15, $t, $n, 'LB', 0);
$p->Cell(22, $t, $w['MhswID'], 'B', 0);
$p->Cell(60, $t, $w['NamaMhsw'], 'B', 0);
$p->Cell(10, $t, $w['Sesi'], 'B', 0, 'R');
$p->Cell(10, $t, $w['SKS'], 'B', 0, 'R');
$p->Cell(10, $t, $w['MaxSKS'], 'B', 0, 'R');
$p->Cell(60, $t, $NamaPA, 'BR', 0);
$p->Ln($t);
}
}
function TampilkanMhsw()
{
TampilkanPesan();
$s = "select k.*, m.Nama\r\n from khs k\r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n where k.TahunID='{$_SESSION['tahun']}'\r\n and k.Bayar > k.Biaya\r\n order by k.MhswID";
$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>NPM</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Total<br />Biaya</th>\r\n <th class=ttl>Total<br />Bayar</th>\r\n <th class=ttl>BPS</th>\r\n <th class=ttl>SKS</th>\r\n <th class=ttl>BPP+SKS</th>\r\n <th class=ttl>10% Denda</th>\r\n <th class=ttl>Cek</th>\r\n ";
while ($w = _fetch_array($r)) {
$n++;
$_biaya = number_format($w['Biaya']);
$_bayar = number_format($w['Bayar']);
// BPS = 11, BPP SKS = 5
$_bps = GetaField('bipotmhsw', "TahunID='{$_SESSION['tahun']}' and MhswID='{$w['MhswID']}' and BIPOTNamaID", 11, "Jumlah * Besar");
$_sks = GetaField('bipotmhsw', "TahunID='{$_SESSION['tahun']}' and MhswID='{$w['MhswID']}' and BIPOTNamaID", 5, "Jumlah * Besar");
$_bi2 = $_bps + $_sks;
$_bi10 = $_bi2 * 0.1;
//$_bi2 + ;
$bi2 = number_format($_bi2);
$bi10 = number_format($_bi10);
//$bpm = GetaField("bayarmhsw", "TahunID='$_SESSION[tahun]' and MhswID='$w[MhswID]' and Jumlah",
// $_bi10, "BayarMhswID");
$ketemu = $w['Bayar'] - $w['Biaya'] == $_bi10 ? "Ketemu" : "×";
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=right>{$_biaya}</td>\r\n <td class=ul align=right><b>{$_bayar}</td>\r\n <td class=ul align=right>" . number_format($_bps) . "</td>\r\n <td class=ul align=right>" . number_format($_sks) . "</td>\r\n <td class=ul align=right>{$bi2}</td>\r\n <td class=ul align=right>{$bi10}</td>\r\n <td class=ul>{$ketemu}</td>\r\n </tr>";
}
echo "</table></p>";
}
function PMBStat()
{
global $arrID;
$s = "select p.ProdiID, p.Nama \r\n from prodi p \r\n left outer join fakultas f on p.FakultasID=f.FakultasID\r\n where p.NA='N' and f.KodeID='{$arrID['Kode']}' \r\n order by p.ProdiID";
$r = _query($s);
$_arr = array();
// Ambil data & masukkan array
while ($w = _fetch_array($r)) {
$trm = GetaField('pmb', "PMBPeriodID='{$_SESSION['pmbperiod']}' and LulusUjian='Y' and ProdiID", $w['ProdiID'], "count(PMBID)");
$ggl = GetaField('pmb', "PMBPeriodID='{$_SESSION['pmbperiod']}' and LulusUjian='N' and ProdiID", $w['ProdiID'], "count(PMBID)");
$prc = GetaField('pmb', "PMBPeriodID='{$_SESSION['pmbperiod']}' and NIM<>'' and ProdiID", $w['ProdiID'], "count(PMBID)");
$tot = $trm + $ggl;
//echo "$w[ProdiID] - $w[Nama] : $trm+$ggl=$tot<br>";
$_arr[] = "{$w['ProdiID']},{$w['Nama']},{$trm},{$ggl},{$tot},{$prc}";
}
// Tampilkan
$ttrm = 0;
$tggl = 0;
$ttot = 0;
$c = 'class=ul';
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><td {$c} colspan=7><strong>{$arrID['Nama']}</strong></td></tr>\r\n <tr><td {$c} colspan=7>Periode PMB: <b>{$_SESSION['pmbperiod']}</b></td></tr>\r\n <tr><th class=ttl>Kode</th><th class=ttl>Program Studi</th>\r\n <th class=ttl>Lulus</th><th class=ttl>Gagal</th><th class=ttl>Total</th>\r\n <th class=ttl>Diproses</th>\r\n </tr>";
for ($i = 0; $i < sizeof($_arr); $i++) {
$_dat = explode(",", $_arr[$i]);
$ttrm += $_dat[2];
$tggl += $_dat[3];
$ttot += $_dat[4];
//<td $c><input type=button name='token' value='Proses' onClick=\"location='?mnux=pmbproses&token=PMBPRC&prid=$_dat[0]'\"></td>
echo "<tr><td {$c} align=center>{$_dat['0']}</td>\r\n <td {$c}>{$_dat['1']}</td>\r\n <td {$c} align=right>{$_dat['2']}</td>\r\n <td {$c} align=right>{$_dat['3']}</td>\r\n <td {$c} align=right>{$_dat['4']}</td>\r\n <td {$c} align=right>{$_dat['5']}</td>\r\n \r\n </tr>";
}
echo "<tr><td colspan=2 align=right><b>Total:</b>\r\n <td class=box align=right>{$ttrm}</td>\r\n <td class=box align=right>{$tggl}</td>\r\n <td class=box align=right>{$ttot}</td>\r\n </tr>\r\n </table></p>";
}
function BuatFooter($ProsesStatusMhswID, $p)
{
$t = 5;
$p->Ln($t);
$identitas = GetFields('identitas', 'Kode', KodeID, '*');
$MhswID = GetaField('prosesstatusmhsw', "ProsesStatusMhswID='{$ProsesStatusMhswID}' and KodeID", KodeID, 'MhswID');
$arr = array();
$arr[] = array('', $identitas['Kota'] . ', ' . date('d M Y'));
$arr[] = array('Mengetahui,', 'Mahasiswa,');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array('', '');
$arr[] = array(GetaField('pejabat', "KodeJabatan='PUKET4' and KodeID", KodeID, 'Nama'), GetaField('mhsw', "MhswID='{$MhswID}' and KodeID", KodeID, 'Nama'));
$arr[] = array('Biro Akademik', '');
// Tampilkan
$p->SetFont('Helvetica', '', 9);
foreach ($arr as $a) {
$p->Cell(10, $t, '', 0, 0);
$p->Cell(50, $t, $a[0], 0, 0, 'C');
$p->Cell(60, $t, '', 0, 0);
$p->Cell(50, $t, $a[1], 0, 0, 'C');
$p->Ln($t);
}
}
function Simpan($md, $id, $max)
{
TutupScript();
$gel = $_REQUEST['gel'];
$prodi = $_REQUEST['prodi'];
$DariNilai = $_REQUEST['DariNilai'] + 0;
$Diskon = $_REQUEST['Diskon'] + 0;
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($md == 0) {
$DariNilaiLama = GetaField('quotabeasiswa', "KodeID = '" . KodeID . "' and MaxQuotaID", $id, 'DariNilai');
$cari = GetaField('quotabeasiswa', "PMBPeriodID='{$gel}' and ProdiID='{$prodi}' and SampaiNilai='{$DariNilaiLama}' and KodeID", KodeID, 'MaxQuotaID');
if (!empty($cari)) {
$s = "update quotabeasiswa set SampaiNilai='{$DariNilai}' where MaxQuotaID='{$cari}'";
$r = _query($s);
}
$s = "update quotabeasiswa\n set DariNilai = '{$DariNilai}',\r\n\t\t Diskon = '{$Diskon}',\n Keterangan = '{$Keterangan}',\n NA = '{$NA}',\n LoginEdit = '{$_SESSION['_Login']}',\n TanggalEdit = now()\n where KodeID = '" . KodeID . "' and MaxQuotaID = {$id} ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} elseif ($md == 1) {
$cari = GetaField('quotabeasiswa', "PMBPeriodID='{$gel}' and ProdiID='{$prodi}' and SampaiNilai='{$max}' and KodeID", KodeID, 'MaxQuotaID');
if (!empty($cari)) {
$s = "update quotabeasiswa set SampaiNilai='{$DariNilai}' where MaxQuotaID='{$cari}'";
$r = _query($s);
}
$s = "insert into quotabeasiswa\n (PMBPeriodID, ProdiID, KodeID, DariNilai, SampaiNilai, Diskon,\n Keterangan, LoginBuat, TanggalBuat, NA)\n values\n ('{$gel}', '{$prodi}', '" . KodeID . "', '{$DariNilai}', '{$max}', '{$Diskon}',\n '{$Keterangan}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function cek()
{
global $arrID;
$_tbl = GetaField('level', 'LevelID', $_REQUEST['lid'], 'TabelUser');
$Institusi = $_REQUEST['institusi'];
$s = "select * from {$_tbl} where Login='******'Login']}' and KodeID = '{$_REQUEST['institusi']}' and NA = 'N' and Password=LEFT(PASSWORD('{$_REQUEST['Password']}'),10) limit 1";
$r = _query($s);
$_dat = _fetch_array($r);
if (empty($_dat)) {
$_SESSION['mnux'] = 'login';
$_REQUEST['lgn'] = 'gagal';
} else {
$sid = session_id();
// Set Parameter
$_SESSION['_Login'] = $_REQUEST['Login'];
$_SESSION['_Nama'] = $_dat['Nama'];
$_SESSION['_TabelUser'] = $_tbl;
$_SESSION['_LevelID'] = $_REQUEST['lid'];
$_SESSION['_Session'] = $sid;
$_SESSION['_Superuser'] = $_dat['Superuser'];
$_SESSION['_ProdiID'] = $_dat['ProdiID'];
$_SESSION['KodeID'] = $Institusi;
$_SESSION['_KodeID'] = $Institusi;
$_SESSION['mnux'] = 'login';
$_REQUEST['lgn'] = 'berhasil';
}
}
function ProsesNIM($pmbid, $pmb)
{
$StatusMhswID = 'A';
// Default
$Tahun_Akd = $_REQUEST['Tahun_Akd'];
// 1. Buat NIM Mhsw & Hitung Batas studi
$NIM = GetaField('prodi', 'ProdiID', $pmb['ProdiID'], 'GunakanNIMSementara') == 'Y' ? GetNextNIMSementara($Tahun_Akd, $pmb) : GetNextNIM($Tahun_Akd, $pmb);
$NIMSementara = GetaField('prodi', 'ProdiID', $pmb['ProdiID'], 'GunakanNIMSementara');
$Batas = HitungBatasStudi($Tahun_Akd, $pmb['ProdiID']);
//die($Batas);
// 2. Copy data PMB ke Mhsw
$s = "insert into mhsw\r\n (MhswID, Login, LevelID, KodeID, Password,\r\n NIMSementara, PMBID, PSSBID, TahunID, BIPOTID,\r\n Nama, StatusAwalID, StatusMhswID,\r\n ProgramID, ProdiID, Kelamin, WargaNegara, Kebangsaan,\r\n TempatLahir, TanggalLahir,\r\n Agama, StatusSipil,\r\n TinggiBadan, BeratBadan,\r\n Alamat, Kota, RT, RW, KodePos, Propinsi, Negara,\r\n Telepon, Handphone, Email,\r\n AlamatAsal, KotaAsal, RTAsal, RWAsal, KodePosAsal, PropinsiAsal, NegaraAsal,\r\n TeleponAsal,\r\n NamaAyah, AgamaAyah, PendidikanAyah, PekerjaanAyah, HidupAyah,\r\n NamaIbu, AgamaIbu, PendidikanIbu, PekerjaanIbu, HidupIbu,\r\n AlamatOrtu, KotaOrtu, RTOrtu, RWOrtu, KodePosOrtu, PropinsiOrtu, NegaraOrtu,\r\n TeleponOrtu, HandphoneOrtu, EmailOrtu,\r\n PendidikanTerakhir, AsalSekolah, JenisSekolahID, AlamatSekolah, KotaSekolah, \r\n JurusanSekolah, NilaiSekolah, TahunLulus, IjazahSekolah,\r\n AsalPT, MhswIDAsalPT, ProdiAsalPT, LulusAsalPT, TglLulusAsalPT,\r\n IPKAsalPT, Pilihan1, Pilihan2, Pilihan3, PrestasiTambahan,\r\n BatasStudi, LulusUjian, NilaiUjian, GradeNilai, Syarat, SyaratLengkap,\r\n TotalBiaya, TotalBayar, LoginBuat, TanggalBuat)\r\n values\r\n ('{$NIM}', '{$NIM}', '120', '" . KodeID . "', PASSWORD('{$pmb['TanggalLahir']}'),\r\n\t'{$NIMSementara}', '{$pmb['PMBID']}', '{$pmb['PSSBID']}', '{$Tahun_Akd}', '{$pmb['BIPOTID']}',\r\n '{$pmb['Nama']}', '{$pmb['StatusAwalID']}', '{$StatusMhswID}',\r\n '{$pmb['ProgramID']}', '{$pmb['ProdiID']}', '{$pmb['Kelamin']}', '{$pmb['WargaNegara']}', '{$pmb['Kebangsaan']}',\r\n '{$pmb['TempatLahir']}', '{$pmb['TanggalLahir']}',\r\n '{$pmb['Agama']}', '{$pmb['StatusSipil']}',\r\n '{$pmb['TinggiBadan']}', '{$pmb['BeratBadan']}',\r\n '{$pmb['Alamat']}', '{$pmb['Kota']}', '{$pmb['RT']}', '{$pmb['RW']}', '{$pmb['KodePos']}', '{$pmb['Propinsi']}', '{$pmb['Negara']}',\r\n '{$pmb['Telepon']}', '{$pmb['Handphone']}', '{$pmb['Email']}',\r\n '{$pmb['AlamatAsal']}', '{$pmb['KotaAsal']}', '{$pmb['RTAsal']}', '{$pmb['RWAsal']}', '{$pmb['KodePosAsal']}', '{$pmb['PropinsiAsal']}', '{$pmb['NegaraAsal']}',\r\n '{$pmb['TeleponAsal']}',\r\n '{$pmb['NamaAyah']}', '{$pmb['AgamaAyah']}', '{$pmb['PendidikanAyah']}', '{$pmb['PekerjaanAyah']}', '{$pmb['HidupAyah']}',\r\n '{$pmb['NamaIbu']}', '{$pmb['AgamaIbu']}', '{$pmb['PendidikanIbu']}', '{$pmb['PekerjaanIbu']}', '{$pmb['HidupIbu']}',\r\n '{$pmb['AlamatOrtu']}', '{$pmb['KotaOrtu']}', '{$pmb['RTOrtu']}', '{$pmb['RWOrtu']}', '{$pmb['KodePosOrtu']}', '{$pmb['PropinsiOrtu']}', '{$pmb['NegaraOrtu']}',\r\n '{$pmb['TeleponOrtu']}', '{$pmb['HandphoneOrtu']}', '{$pmb['EmailOrtu']}',\r\n '{$pmb['PendidikanTerakhir']}', '{$pmb['AsalSekolah']}', '{$pmb['JenisSekolahID']}', '{$pmb['AlamatSekolah']}', '{$pmb['KotaSekolah']}',\r\n '{$pmb['JurusanSekolah']}', '{$pmb['NilaiSekolah']}', '{$pmb['TahunLulus']}', '{$pmb['IjazahSekolah']}',\r\n '{$pmb['AsalPT']}', '{$pmb['MhswIDAsalSekolah']}', '{$pmb['ProdiAsalPT']}', '{$pmb['LulusAsalPT']}', '{$pmb['TglLulusAsalPT']}',\r\n '{$pmb['IPKAsalPT']}', '{$pmb['Pilihan1']}', '{$pmb['Pilihan2']}', '{$pmb['Pilihan3']}', '{$pmb['PrestasiTambahan']}',\r\n '{$Batas}', '{$pmb['LulusUjian']}', '{$pmb['NilaiSekolah']}', '{$pmb['GradeNilai']}', '{$pmb['Syarat']}', '{$pmb['SyaratLengkap']}',\r\n '{$pmb['TotalBiaya']}', '{$pmb['TotalBayar']}', '{$_SESSION['_Login']}', now())";
// Nilai Ujian untuk Kasih Bangsa adalah Nilai Sekolah. Ralat baris kedua di atas ini untuk mengubah ke default
$r = _query($s);
// Set NIM di data PMB
$s = "update pmb set MhswID = '{$NIM}'\r\n where KodeID='" . KodeID . "' and PMBID = '{$pmbid}' ";
$r = _query($s);
// Set Status Aplikan dari murid PMB menjadi REG
include_once "../pmb/statusaplikan.lib.php";
SetStatusAplikan('REG', GetaField('pmb', "PMBID='{$pmbid}' and KodeID", KodeID, "AplikanID"), GetaField('pmbperiod', "KodeID='" . KodeID . "' and NA", 'N', "PMBPeriodID"));
// Transfer BIPOTMhsw ke Mhsw
$s = "update bipotmhsw\r\n set MhswID = '{$NIM}',\r\n PMBMhswID = 1,\r\n TahunID = '{$Tahun_Akd}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where PMBID = '{$pmbid}'\r\n and PMBMhswID = 0\r\n and KodeID = '" . KodeID . "' ";
$r = _query($s);
// Transfer Pembayaran ke Mhsw
$s = "update bayarmhsw\r\n set MhswID = '{$NIM}',\r\n PMBMhswID = 1,\r\n TahunID = '{$Tahun_Akd}',\r\n LoginEdit = '{$_SESSION['_Login']}',\r\n TanggalEdit = now()\r\n where PMBID = '{$pmbid}'\r\n and PMBMhswID = 0\r\n and KodeID = '" . KodeID . "' ";
$r = _query($s);
// Otomatis Registrasi di Semester
$MaxSKS = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $pmb['ProdiID'], 'DefSKS') + 0;
$s = "insert into khs\r\n (KodeID, TahunID, ProgramID, ProdiID,\r\n MhswID, StatusMhswID, Sesi, BIPOTID,\r\n Biaya, Bayar, MaxSKS,\r\n Keterangan, LoginBuat, TanggalBuat)\r\n values\r\n ('" . KodeID . "', '{$Tahun_Akd}', '{$pmb['ProgramID']}', '{$pmb['ProdiID']}',\r\n '{$NIM}', '{$StatusMhswID}', 1, '{$pmb['BIPOTID']}',\r\n '{$pmb['TotalBiaya']}', '{$pmb['TotalBayar']}', {$MaxSKS},\r\n 'Auto-registrasi', '{$_SESSION['_Login']}', now())";
$r = _query($s);
// Tutup aplikasi
TutupScript();
}
function persks($mhsw, $khs, $bipot, $ada = '', $pmbmhswid = 1)
{
// Jumlah SKS yg diambil mhsw.
$jmlsks = 0;
$whr = "MhswID='{$mhsw['MhswID']}'";
if ($khs['Sesi'] == 1) {
$jmlsks = GetaField("prodi", "ProdiID", $mhsw['ProdiID'], "DefSKS") + 0;
$mhsw['MhswID'] = $mhsw['PMBID'];
$whr = "PMBID='{$mhsw['PMBID']}'";
//var_dump($ada);
} else {
//$TabelKRS = ($_REQUEST['DariKRS'] == 0)? "krs" : "krstemp"; // Apakah diakses dari modul KRS?
if ($_REQUEST['DariKRS'] > 0) {
$jmlsks = GetaField("krstemp k\r\n left outer join jadwal j on k.JadwalID=j.JadwalID", "k.MhswID='{$mhsw['MhswID']}' and k.TahunID='{$khs['TahunID']}' and j.JenisJadwalID='K' and j.JadwalSer=0 and k.NA='N' and StatusKRSID='A' and j.HargaStandar", 'Y', "sum(k.SKS)") + 0;
} else {
$jmlsks = GetaField("krs k\r\n left outer join jadwal j on k.JadwalID=j.JadwalID", "k.MhswID='{$mhsw['MhswID']}' and k.TahunID='{$khs['TahunID']}' and j.JenisJadwalID='K' and j.JadwalSer=0 and k.NA='N' and StatusKRSID='A' and j.HargaStandar", 'Y', "sum(k.SKS)") + 0;
if ($jmlsks == 0) {
$jmlsks = GetaField("krstemp k\r\n left outer join jadwal j on k.JadwalID=j.JadwalID", "k.MhswID='{$mhsw['MhswID']}' and k.TahunID='{$khs['TahunID']}' and j.JenisJadwalID='K' and j.JadwalSer=0 and k.NA='N' and StatusKRSID='A' and j.HargaStandar", 'Y', "sum(k.SKS)") + 0;
}
}
}
if (empty($ada)) {
$s0 = "insert into bipotmhsw (MhswID, PMBID, TahunID, BIPOT2ID, BIPOTNamaID,\r\n PMBMhswID, TrxID, Jumlah, Besar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values ('{$mhsw['MhswID']}', '{$mhsw['PMBID']}', '{$khs['TahunID']}', '{$bipot['BIPOT2ID']}', '{$bipot['BIPOTNamaID']}',\r\n '{$pmbmhswid}', '{$bipot['TrxID']}', '{$jmlsks}', '{$bipot['Jumlah']}', 'Total Harga: {$jmlsks} x {$bipot['Jumlah']}',\r\n '{$_SESSION['_Login']}', now())";
$r0 = _query($s0);
} else {
$s0 = "update bipotmhsw set Jumlah='{$jmlsks}', Besar='{$bipot['Jumlah']}',\r\n PMBMhswID='{$pmbmhswid}',\r\n Catatan='Total: {$jmlsks} SKS',\r\n LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n where TahunID='{$khs['TahunID']}' and {$whr} and BIPOTNamaID='{$bipot['BIPOTNamaID']}' ";
//echo "<pre>$s0</pre>";
$r0 = _query($s0);
}
}
function LokasiAssetEdt() {
global $KodeID;
$md = $_REQUEST['md']+0;
if($md==0) {
$w = GetFields('lokasiasset', 'LokasiID', $_REQUEST['jid'], '*');
$nm = "<input type=hidden name='Nama' value='$w[Nama]' size=50 maxlength=50> $w[Nama]";
$jdl="Edit Data";
}
else{
$w = array();
$w['LokasiID'] = GetaField('lokasiasset', 'KodeID', $KodeID, "max(LokasiID)+1");
$nm = "<input type=text name='Nama' value='$w[Nama]' size=50 maxlength=50>";
$jdl="Tambah Data";
}
$na = ($w['NA'] == 'Y')? 'checked' : '';
CheckFormScript("LokasiID, Nama");
echo "<p><table class=box cellspacing=1 cellpadding=4>
<form action='?' method=POST onSubmit=\"return CheckForm(this)\">
<input type=hidden name='mnux' value='lokasi.asset'>
<input type=hidden name='gos' value='LokasiAssetSav'>
<input type=hidden name='md' value='$md'>
<tr><th class=ttl colspan=2>$jdl</th></tr>
<tr><td class=inp>Ranking/Urutan</td>
<td class=ul><input type=text name='LokasiID' value='$w[LokasiID]' size=5 maxlength=5></td></tr>
<tr><td class=inp>Nama</td>
<td class=ul><b>$nm</b></td></tr>
<tr><td class=inp>NA (tidak aktif)?</td>
<td class=ul><input type=checkbox name='NA' value='Y' $na></td></tr>
<tr><td class=ul colspan=2><input type=submit name='Simpan' value='Simpan'>
<input type=reset name='Reset' value='Reset'>
<input type=button name='Batal' value='Batal' onClick=\"location='?mnux=lokasi.asset'\"></td></tr>
</form></table></p>";
}
function cekkss()
{
$mhswid = $_REQUEST['mhswid'];
$khsid = $_REQUEST['khsid'];
$tahun = $_REQUEST['tahun'];
$khs = GetFields('khs', 'KHSID', $khsid, '*');
$balance = $khs['Biaya'] - $khs['Bayar'] + $khs['Tarik'] - $khs['Potongan'];
// cek sudah lunas atau belum
if ($balance > 0) {
$acc = GetFields('keusetup', 'NA', 'N', '*');
$htg = GetaField('bipotmhsw', "MhswID='{$mshwid}' and TahunID='{$tahun}' and BIPOTNamaID", $acc['HutangNext'], "Jumlah*Besar") + 0;
if ($htg > 0) {
$Nama = GetaField('bipotnama', 'BIPOTNamaID', $acc['HutangNext'], 'Nama');
$_htg = number_format($htg);
echo ErrorMsg("Belum Lunas", "Mahasiswa tidak dapat mencetak KSS karena masih memiliki <b>{$Nama}</b> sebesar <b>{$_htg}</b>");
CetakKSS();
} else {
cetakkssgo();
}
} else {
// cek apakah ada KRS gagal?
$ggl = GetaField("krs", "NA='Y' and KHSID", $khsid, "count(KRSID)") + 0;
if ($ggl > 0) {
echo ErrorMsg("Tidak Dapat Dicetak", "KSS tidak dapat dicetak karena masih ada <b>{$ggl}</b> matakuliah yang gagal KRS.<br />\r\n Hapus terlebih dahulu matakuliah yg gagal baru kemudian cetak KSS.");
CetakKSS();
} else {
cetakkssgo();
}
}
}
function CetakKehadiranMhsw($mhsw)
{
global $_lf;
$s = "select pm.*, j.Kehadiran, j.JadwalSer, \n j.MKKode, LEFT(j.Nama, 30) as NamaMK, j.NamaKelas, j.JenisJadwalID, j.SKS,\n sum(pm.Nilai) as JML\n from presensimhsw pm\n left outer join jadwal j on pm.JadwalID=j.JadwalID\n where pm.MhswID='{$mhsw['MhswID']}' and j.TahunID='{$_SESSION['tahun']}' \n group by pm.JadwalID";
$r = _query($s);
// buat file
$nmf = "tmp\\{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
// parameter
$mxc = 114;
$mxb = 60;
$grs = str_pad('-', $mxc, '-') . $_lf;
$thn = GetaField('tahun', "ProgramID='{$mhsw['ProgramID']}' and ProdiID='{$mhsw['ProdiID']}' and TahunID", $_SESSION['tahun'], 'Nama');
$hdr = str_pad('*** Rekap Kehadiran per Mahasiswa ***', $mxc, ' ', STR_PAD_BOTH) . $_lf . "Tahun Akd : {$_SESSION['tahun']} - {$thn} " . $_lf . "Mahasiswa : {$mhsw['MhswID']} - {$mhsw['Nama']} " . $_lf . $grs . str_pad('No.', 4) . str_pad('Kode', 8) . str_pad('Matakuliah', 31) . str_pad('Kls', 4) . str_pad("Dosen", 6) . str_pad(' Hadir', 10) . $_lf . $grs;
fwrite($f, $hdr);
$n = 0;
while ($w = _fetch_array($r)) {
$n++;
$persen = $w['Kehadiran'] == 0 ? 0 : $w['JML'] / $w['Kehadiran'] * 100;
$Jen = $w['JenisJadwalID'] == 'R' ? "(R)" : '';
$_persen = number_format($persen, 2);
fwrite($f, str_pad($n . '.', 4) . str_pad($w['MKKode'], 8) . str_pad($w['NamaMK'] . $Jen, 31) . str_pad($w['NamaKelas'], 4) . str_pad($w['Kehadiran'] . ' X', 5, ' ', STR_PAD_LEFT) . str_pad($_persen . '%', 9, ' ', STR_PAD_LEFT) . $_lf);
AmbilDetail($f, $mhsw, $w);
}
fwrite($f, $grs);
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, 'lap.hadir.permhsw');
}
function AmbilJadwal($TahunID, $dsn, $p)
{
$s = "select j.*,\r\n left(j.JamMulai, 5) as _JM,\r\n left(j.JamSelesai, 5) as _JS, \r\n\t k.Nama AS namaKelas\r\n from jadwal j\r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n where j.TahunID = '{$TahunID}'\r\n and j.DosenID = '{$dsn['Login']}'\r\n and j.KodeID = '" . KodeID . "'\r\n order by j.HariID, j.JamMulai, j.JamSelesai";
$r = _query($s);
$n = 0;
$t = 6;
$hr = -25;
$ttl = 0;
while ($w = _fetch_array($r)) {
if ($hr != $w['HariID']) {
$hr = $w['HariID'];
$NamaHari = GetaField('hari', 'HariID', $hr, 'Nama');
TampilkanHeaderTabel($NamaHari, $p);
}
$n++;
$ttl += $w['SKS'];
$p->SetFont('Helvetica', '', 9);
$p->Cell(7, $t, $n, 1, 0);
$p->Cell(20, $t, $w['_JM'] . '-' . $w['_JS'], 1, 0);
$p->Cell(24, $t, $w['MKKode'], 1, 0);
$p->Cell(70, $t, $w['Nama'], 1, 0);
$p->Cell(8, $t, $w['SKS'], 1, 0, 'R');
$p->Cell(18, $t, $w['namaKelas'], 1, 0);
$p->Cell(18, $t, $w['RuangID'], 1, 0);
$p->Cell(14, $t, $w['ProgramID'], 1, 0);
$p->Cell(14, $t, $w['ProdiID'], 1, 0);
$p->Ln($t);
}
$p->SetFont('Helvetica', '', 10);
$p->Cell(100, $t, "Total SKS: " . $ttl, 0, 1);
}
function Isinya($Tanggal, $Kampus, $p)
{
$lbr = 290;
$t = 6;
JudulKolomnya($p);
$p->SetFont('Helvetica', '', 10);
$PilihanKompre = GetaField('prodi', "ProdiID='{$_SESSION['ProdiID']}' and KodeID", KodeID, 'PilihanKompre');
if ($PilihanKompre == 'Y') {
$s = "select kd.*, m.MhswID,left(m.Nama, 28) as Mhsw,m.KelasID, d.Nama as _DosenPenguji, kmu.Nama as _NamaMataUji,\r\n\t\t\tdate_format(kd.Tanggal, '%a') as _Hari, LEFT(kd.JamMulai, 5) as _JamUjian, LEFT(kd.JamSelesai, 5) as _JamSelesai, pa.Nama as _DosenPA\r\n\t\t\tfrom kompredosen kd \r\n\t\t\t\tleft outer join kompre k on kd.KompreID=k.KompreID and k.KodeID='" . KodeID . "'\r\n\t\t\t\tleft outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n\t\t\t\tleft outer join dosen pa on pa.Login = m.PenasehatAkademik\r\n\t\t\t\tleft outer join dosen d on d.Login = kd.DosenID\r\n\t\t\t\tleft outer join komprematauji kmu on kmu.KompreMataUjiID=kd.KompreMataUjiID and kmu.KodeID='" . KodeID . "'\r\n\t\t\twhere kd.KodeID = '" . KodeID . "'\r\n\t\t and k.Lulus = 'N'\r\n\t\t and kd.Tanggal = '{$Tanggal}'\r\n\t\t and kd.NA = 'N'\r\n\t\tgroup by k.MhswID\r\n\t\torder by kd.Tanggal";
} else {
$s = "select k.*, m.MhswID,left(m.Nama, 28) as Mhsw,m.KelasID, d.Nama as _DosenPenguji, \r\n\t\t\tdate_format(k.TanggalUjian, '%a') as _Hari, LEFT(k.JamMulai, 5) as _JamUjian, LEFT(k.JamSelesai, 5) as _JamSelesai, pa.Nama as _DosenPA\r\n\t\t\tfrom kompre k \r\n\t\t\t\tleft outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n\t\t\t\tleft outer join dosen pa on pa.Login = m.PenasehatAkademik\r\n\t\t\t\tleft outer join dosen d on d.Login = k.DosenID\r\n\t\t\twhere k.KodeID = '" . KodeID . "'\r\n\t\t and k.Lulus = 'N'\r\n\t\t and k.TanggalUjian = '{$Tanggal}'\r\n\t\t and k.NA = 'N'\r\n\t\tgroup by k.MhswID\r\n\t\torder by k.TanggalUjian";
}
$r = _query($s);
$n = 0;
$jum = _num_rows($r);
while ($w = _fetch_array($r)) {
$n++;
$MataUji = $PilihanKompre == 'Y' ? ' (' . $w['_NamaMataUji'] . ')' : '';
$p->Cell(8, $t, $n, 1, 0, 'C');
$p->Cell(30, $t, $w['MhswID'], 1, 0, 'C');
$p->Cell(60, $t, $w['Mhsw'], 1, 0);
$p->Cell(50, $t, $w['_DosenPA'], 1, 0);
$p->Cell(50, $t, $w['_DosenPenguji'] . $MataUji, 1, 0);
$p->Cell(55, $t, $w['_JamUjian'] . ' - ' . $w['_JamSelesai'] . ' WIB', 1, 0, 'C');
$p->Cell(20, $t, $w['RuangID'], 1, 0, 'C');
}
}
function TampilkanHeader($mhsw, $alumni)
{
$prodi = GetaField('prodi', "ProdiID='{$mhsw['ProdiID']}' and KodeID", KodeID, "Nama");
echo <<<ESD
<table class=box cellspacing=1 align=center width=600>
<tr><td class=inp width=60>Nama:</td>
<td class=ul>{$mhsw['Nama']} <sup>{$alumni['Gelar']}</sup></td>
<td class=inp width=60>NIM/NPM:</td>
<td class=ul>{$mhsw['MhswID']}</td>
</tr>
<tr><td class=inp>Prodi/Prg:</td>
<td class=ul>{$prodi} <sup>{$mhsw['ProgramID']}</sup></td>
<td class=inp>E-mail:</td>
<td class=ul>{$alumni['Email']} </td>
</tr>
<tr><td class=ul colspan=4 align=center>
<input type=button name='btnBack' value='Kembali'
onClick="location='?mnux={$_SESSION['mhswbck']}&gos='" />
<input type=button name='btnRefresh' value='Refresh'
onClick="location='?mnux={$_SESSION['mnux']}&gos='" />
</td></tr>
</table>
<p>
ESD;
}
function TampilkanDaftarSekolah()
{
global $Cari;
$Max = 50;
$arrcr = explode(',', $Cari);
$arrwhr = array();
if (!empty($arrcr[0])) {
$arrwhr[] = "Nama like '%" . TRIM($arrcr[0]) . "%' ";
}
if (!empty($arrcr[1])) {
$arrwhr[] = "Kota like '%" . TRIM($arrcr[1]) . "%' ";
}
$whr = implode(' and ', $arrwhr);
// Hitung jumlah baris
$Jml = GetaField('asalsekolah', "{$whr} and NA", 'N', "count(SekolahID)");
if ($Jml > $Max) {
$_Jml = number_format($Jml);
echo "<p><b>Catatan:</b> Jumlah Sekolah yang Anda cari mencapai: <b>{$_Jml}</b>, tetapi sistem membatasi\r\n jumlah sekolah yang ditampilkan dan hanya menampilkan: <b>{$Max}</b>.\r\n Gunakan Nama Sekolah dan Kota Sekolah dengan lebih spesifik untuk membatasi\r\n jumlah sekolah yang ditampilkan.</p>\r\n\r\n <p><b>Format Pencarian:</b> NamaSekolah, KotaSekolah</p>";
}
// Tampilkan
$s = "select SekolahID, Nama, Kota, JenisSekolahID\r\n from asalsekolah\r\n where {$whr} and NA='N'\r\n order by Nama limit {$Max}";
$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>Kode Sekolah</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Kota</th>\r\n <th class=ttl>Jenis</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
echo "<tr><td class=ul>{$n}</td>\r\n <td class=ul><a href='javascript:kembalikan(\"{$w['SekolahID']}\", \"{$w['Nama']}\", \"{$w['Kota']}\")'>{$w['SekolahID']}</a></td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['Kota']}</td>\r\n <td class=ul>{$w['JenisSekolahID']}</td>\r\n </tr>";
}
echo "</table></p>";
}
function TampilkanDaftarProgramStudi()
{
global $Cari;
$Max = 50;
$arrcr = explode(',', $Cari);
$arrwhr = array();
if (!empty($arrcr[0])) {
$arrwhr[] = "(Nama like '%" . TRIM($arrcr[0]) . "%') ";
}
$whr = implode(' and ', $arrwhr);
// Hitung jumlah baris
$Jml = GetaField('perguruantinggi', "{$whr} and NA", 'N', "count(PerguruanTinggiID)");
if ($Jml > $Max) {
$_Jml = number_format($Jml);
echo "<p><b>Catatan:</b> Jumlah program studi yang Anda cari mencapai: <b>{$_Jml}</b>, tetapi sistem membatasi\r\n jumlah program studi yang ditampilkan dan hanya menampilkan: <b>{$Max}</b>.\r\n Gunakan Nama program studi dengan lebih spesifik untuk membatasi\r\n jumlah program studi yang ditampilkan.</p>\r\n\r\n <p><b>Format Pencarian:</b> NamaProgramStudi</p>";
}
// Tampilkan
$s = "select ProdiDiktiID, Nama\r\n from prodidikti\r\n where {$whr} and NA='N'\r\n order by Nama limit {$Max}";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1 cellpadding=4 width=100%>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>Kode Prodi</th>\r\n <th class=ttl>Nama</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
echo "<tr><td class=ul>{$n}</td>\r\n <td class=ul><a href='javascript:kembalikan(\"{$w['ProdiDiktiID']}\", \"{$w['Nama']}\")'>{$w['ProdiDiktiID']}</a></td>\r\n <td class=ul>{$w['Nama']} </td>\r\n </tr>";
}
echo "</table></p>";
}
function DftrMhswBIPOT()
{
$arrBipot = BuatArrayBipot();
$whr = '';
$whr .= empty($_SESSION['stawal']) ? '' : "and p.StatusAwalID='{$_SESSION['stawal']}' ";
$s = "select p.*\r\n from pmb p\r\n where p.ProgramID='{$_SESSION['prid']}' and p.ProdiID='{$_SESSION['prodi']}'\r\n and PMBPeriodID='{$_SESSION['pmbperiod']}' {$whr}\r\n order by p.StatusAwalID, p.PMBID";
$r = _query($s);
$n = 0;
$stawal = '';
$hdr = "<tr><th class=ttl>#</th>\r\n <th class=ttl>PMBID</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Telepon</th>\r\n <th class=ttl>Sekolah</th>\r\n <th class=ttl>Nilai</th>\r\n <th class=ttl>Grade</th>\r\n <th class=ttl>Master Bipot</th>\r\n </tr>";
echo "<p><table class=box cellspacing=1 cellpadding=4>";
while ($w = _fetch_array($r)) {
if ($stawal != $w['StatusAwalID']) {
$stawal = $w['StatusAwalID'];
$_stawal = GetaField('statusawal', 'StatusAwalID', $stawal, 'Nama');
$n = 0;
echo "<tr><td class=ul colspan=10><b>{$_stawal}</b></td></tr>";
echo $hdr;
}
$optbipot = PilihanBipotMhsw($arrBipot, $w['BIPOTID']);
$n++;
$c = $w['LulusUjian'] == 'Y' ? 'class=ul' : 'class=nac';
echo "<tr><td class=inp1>{$n}</td>\r\n <td {$c}>{$w['PMBID']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['Telepon']} </td>\r\n <td {$c}>{$w['JenisSekolahID']} </td>\r\n <td {$c} align=right> {$w['NilaiUjian']}</td>\r\n <td {$c} align=center> {$w['GradeNilai']}</td>\r\n \r\n <form action='mhswbipotset.php' method=POST target=_blank>\r\n <input type=hidden name='PMBID' value='{$w['PMBID']}'>\r\n <td {$c}>{$optbipot} <input type=submit name='Simpan' value='Simpan'></td>\r\n </form>\r\n </tr>";
}
echo "</table></p>";
}
