function BuatFooter($khs, $mhsw, $p)
{
global $arrID;
$t = 6;
// Yang diambil
$p->Cell(100, $t, "Jumlah SKS yang diambil:", 'LB', 0, 'R');
$p->Cell(10, $t, $khs['SKS'], 'B', 0, 'C');
$p->Cell(82, $t, ' ', 'BR', 1);
// Yang sudah ditempuh
$jumkrs = GetaField('krs', "MhswID='{$mhsw['MhswID']}' and TahunID < '{$khs['TahunID']}' and Tinggi='*' and KodeID", KodeID, "sum(SKS)");
$p->Cell(100, $t, "Jumlah SKS yang telah ditempuh:", 'LB', 0, 'R');
$p->Cell(10, $t, $jumkrs, 'B', 0, 'C');
$p->Cell(82, $t, ' ', 'BR', 1);
// Tanda tangan
$pjbt = GetFields('pejabat', "KodeID='" . KodeID . "' and KodeJabatan", 'PUKET1', "*");
$p->Ln(4);
$p->Cell(10);
$p->Cell(50, $t, $arrID['Kota'] . ", " . date('d M Y'), 0, 1);
$p->Cell(10);
$p->Cell(50, $t, "Mengetahui,", 0, 0);
$p->Cell(60);
$p->Cell(50, $t, "Mahasiswa,", 0, 1);
$p->Ln(20);
$p->Cell(10);
$p->SetFont('Helvetica', 'B', 9);
$p->Cell(50, $t, $mhsw['PA'], 0, 0);
$p->Cell(60);
$p->SetFont('Helvetica', '', 9);
$p->Cell(50, $t, ucwords(strtolower($mhsw['Nama'])), 0, 1);
$p->Cell(10);
$p->SetFont('Helvetica', 'B', 9);
$p->Cell(50, $t, 'Penasehat Akademik', 0, 0);
//$pjbt['Jabatan']
}
function Gagalkan($jdwl)
{
$id = $_REQUEST['id'];
$NilaiGagal = $_REQUEST['NilaiGagal'];
if (empty($NilaiGagal)) {
echo ErrorMsg("Nilai Belum Diset", "Anda harus mengeset nilai gagal penilaian dosen untuk matakuliah ini.<br>\r\n Proses Gagal Nilai Dosen tidak dilakukan.");
} else {
// Gagalkan jadwal
$Nilai = GetFields('nilai', 'NilaiID', $NilaiGagal, '*');
$BobotNilai = $Nilai['Bobot'];
$GradeNilai = $Nilai['Nama'];
$CatatanGagal = sqling($_REQUEST['CatatanGagal']);
$s = "update jadwalremedial set Gagal='Y', Final = 'Y', \r\n CatatanGagal = '{$CatatanGagal}', NilaiGagal = '{$GradeNilai}'\r\n where JadwalID = '{$id}' ";
$r = _query($s);
// Set semua nilai mahasiswa
$s1 = "update krsremedial set GradeNilai='{$GradeNilai}', BobotNilai={$BobotNilai}, Final='Y'\r\n where JadwalRemedialID='{$id}' and NA = 'N' ";
$r1 = _query($s1);
// Anggap Remedial sudah beres dan bisa di-remedialkan lagi bila diperlukan lagi nanti
$s = "select KRSID from krsremedial where JadwalRemedialID='{$JadwalRemedialID}' and KodeID='" . KodeID . "'";
$r = _query($s);
while ($w = _fetch_array($r)) {
$s1 = "update krs set SedangRemedial = 'N' where KRSID='{$w['KRSID']}' and KodeID='" . KodeIID . "'";
$r1 = _query($s1);
}
// Kembali
TutupScript($id);
}
}
function KoreksiKelas()
{
$jid = $_REQUEST['jid'];
$jdwl = GetFields("jadwal j \r\n left outer join dosen d on j.DosenID=d.Login\r\n left outer join hari h on j.HariID=h.HariID", "j.JadwalID", $jid, "j.*, h.Nama as HR, concat(d.Nama, ', ', d.Gelar) as DSN,\r\n time_format(j.JamMulai, '%H:%i') as JM,\r\n time_format(j.JamSelesai, '%H:%i') as JS");
TampilkanHeaderKoreksiKelas($jdwl);
TampilkanDaftarMhsw($jdwl);
}
function VirtualBipotMhsw($MhswID, $BIPOTID)
{
// Ambil BIPOT-nya
$s = "select * \n from bipot2 \n where BIPOTID = '{$BIPOTID}'\n and Otomatis = 'Y'\n and NA = 'N'\n order by TrxID, Prioritas";
$r = _query($s);
$total = 0;
$mhsw = GetFields('mhsw', "KodeID='" . KodeID . "' and MhswID", $MhswID, "BIPOTID, GradeNilai, StatusMhswID, StatusAwalID");
while ($w = _fetch_array($r)) {
$oke = true;
// Apakah sesuai dengan status awalnya?
$pos = strpos($w['StatusAwalID'], "." . $mhsw['StatusAwalID'] . ".");
$oke = $oke && !($pos === false);
// Apakah grade-nya?
if ($oke) {
if ($w['GunakanGradeNilai'] == 'Y') {
$pos = strpos($w['GradeNilai'], "." . $mhsw['GradeNilai'] . ".");
$oke = $oke && !($pos === false);
}
}
// Simpan data
if ($oke) {
// Cek apakah memakai script atau tidak?
if ($w['GunakanScript'] == 'Y') {
// BipotGunakanScript($pmb, '', $w, $ada, 0);
} else {
// Jika tidak ada duplikasi, maka akan di-insert. Tapi jika sudah ada, maka dicuekin aja.
$total += $w['Jumlah'];
}
// end else
}
// end if $oke
}
// end while
return $total;
}
function CetakPresensiMhsw($id, $p)
{
$jdwl = GetFields("jadwal j\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = j.ProdiID and prd.KodeID = '" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w')\r\n left outer join jenisjadwal jj on jj.JenisJadwalID = j.JenisJadwalID \r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n\t", "j.JadwalID", $id, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN,\r\n prd.Nama as _PRD, prg.Nama as _PRG,\r\n mk.Sesi,\r\n date_format(j.UASTanggal, '%d-%m-%Y') as _UASTanggal,\r\n date_format(j.UASTanggal, '%w') as _UASHari,\r\n huas.Nama as HRUAS,\r\n LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai,\r\n\tjj.Nama as _NamaJenisJadwal, jj.Tambahan, k.Nama AS namaKelas\r\n ");
BuatHeaderDulu($jdwl, $p);
BuatIsinya($jdwl, $p);
BuatFooter($jdwl, $p);
}
function SyaratSav()
{
$md = $_REQUEST['md'] + 0;
$Nama = sqling($_REQUEST['Nama']);
$_StatusAwalID = array();
$_StatusAwalID = $_REQUEST['StatusAwalID'];
$StatusAwalID = empty($_StatusAwalID) ? '' : "." . implode('.', $_StatusAwalID) . ".";
$_ProdiID = array();
$_ProdiID = $_REQUEST['ProdiID'];
$ProdiID = empty($_ProdiID) ? '' : "." . implode('.', $_ProdiID) . ".";
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update pmbsyarat set ProdiID='{$ProdiID}', StatusAwalID='{$StatusAwalID}', NA='{$NA}'\r\n where PMBSyaratID='{$_REQUEST['syid']}' and KodeID='{$_SESSION['KodeID']}' ";
$r = _query($s);
} else {
$ada = GetFields('pmbsyarat', "KodeID='{$_SESSION['KodeID']}' and PMBSyaratID", $_REQUEST['syid'], '*');
if (empty($ada)) {
$s = "insert into pmbsyarat (PMBSyaratID, KodeID, Nama, StatusAwalID, ProdiID, NA)\r\n values ('{$_REQUEST['syid']}', '{$_SESSION['KodeID']}', '{$Nama}', '{$StatusAwalID}', '{$ProdiID}', '{$NA}')";
$r = _query($s);
} else {
echo ErrorMsg("Gagal Simpan", "Anda tidak bisa menyimpan syarat dengan ID <b>{$_REQUEST['syid']}</b> karena telah digunakan:\r\n <p><table class=bsc cellspacing=1 cellpadding=4>\r\n <tr><td class=ul>ID</td><td class=ul><b>{$ada['PMBSyaratID']}</b></td></tr>\r\n <tr><td class=ul>Nama</td><td class=ul><b>{$ada['Nama']}</b></td></tr>\r\n </table></p>");
}
}
DftrSyarat();
}
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 RSSAV()
{
$md = $_REQUEST['md'] + 0;
$RSID = $_REQUEST['RSID'];
$Nama = sqling($_REQUEST['Nama']);
$Alamat = sqling($_REQUEST['Alamat']);
$Kota = sqling($_REQUEST['Kota']);
$KodePos = sqling($_REQUEST['KodePos']);
$Propinsi = sqling($_REQUEST['Propinsi']);
$Negara = sqling($_REQUEST['Negara']);
$Telephone = sqling($_REQUEST['Telephone']);
$Fax = sqling($_REQUEST['Fax']);
$Website = sqling($_REQUEST['Website']);
$Email = sqling($_REQUEST['Email']);
$Kontak = sqling($_REQUEST['Kontak']);
$JabatanKontak = sqling($_REQUEST['JabatanKontak']);
$HandphoneKontak = sqling($_REQUEST['HandphoneKontak']);
$EmailKontak = sqling($_REQUEST['EmailKontak']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update rumahsakit\r\n set Nama='{$Nama}',\r\n Alamat='{$Alamat}', Kota='{$Kota}',\r\n KodePos='{$KodePos}', Propinsi='{$Propinsi}',\r\n Negara='{$Negara}', Telephone='{$Telephone}', Fax='{$Fax}',\r\n Website='{$Website}', Email='{$Email}',\r\n Kontak='{$Kontak}', JabatanKontak='{$JabatanKontak}',\r\n HandphoneKontak='{$HandphoneKontak}', EmailKontak='{$EmailKontak}',\r\n NA='{$NA}'\r\n where RSID='{$RSID}' ";
$r = _query($s);
TampilkanDaftarRS();
} else {
$ada = GetFields("rumahsakit", "RSID", $RSID, "RSID, Nama");
if (empty($ada)) {
$s = "insert into rumahsakit\r\n (RSID, Nama, Alamat, Kota, KodePos, Propinsi,\r\n Negara, Telephone, Fax,\r\n Website, Email,\r\n Kontak, JabatanKontak,\r\n HandphoneKontak, EmailKontak, NA)\r\n values\r\n ('{$RSID}', '{$Nama}', '{$Alamat}', '{$Kota}', '{$KodePos}', '{$Propinsi}',\r\n '{$Negara}', '{$Telephone}', '{$Fax}',\r\n '{$Website}', '{$Email}',\r\n '{$Kontak}', '{$JabatanKontak}',\r\n '{$Handphone}', '{$EmailKontak}', '{$NA}')";
$r = _query($s);
echo "<script>window.location='?mnux=rumahsakit';</script>";
} else {
echo ErrorMsg("Tidak Dapat Disimpan", "Data Rumahsakit tidak dapat disimpan karena Kode: <font size=+1>{$RSID}</font>\r\n telah digunakan oleh <b>{$ada['Nama']}</b>.<br />\r\n Gunakan kode lain.\r\n <hr size=1>\r\n Pilihan: <a href='?mnux=rumahsakit'>Kembali</a>");
}
}
}
function Simpan($md, $id, $bck)
{
TutupScript();
$Nama = sqling($_REQUEST['Nama']);
$p = array();
$p = $_REQUEST['ProdiID'];
if (!empty($p)) {
$ProdiID = implode('.', $p);
$ProdiID = empty($ProdiID) ? '' : '.' . $ProdiID . '.';
} else {
$ProdiID = '';
}
$Keterangan = sqling($_REQUEST['Keterangan']);
$NA = empty($_REQUEST['NA']) ? 'N' : 'Y';
if ($md == 0) {
$s = "update pmbsyarat\n set Nama = '{$Nama}',\n ProdiID = '{$ProdiID}',\n Keterangan = '{$Keterangan}',\n NA = '{$NA}',\n LoginEdit = '{$_SESSION['_Login']}',\n TanggalEdit = now()\n where KodeID = '" . KodeID . "' and PMBSyaratID = '{$id}' ";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} elseif ($md == 1) {
// Cek ID-nya dulu
$ada = GetFields('pmbsyarat', "KodeID='" . KodeID . "' and PMBSyaratID", $id, '*');
if (!empty($ada)) {
die(ErrorMsg('Error', "Syarat dengan kode <b>{$id}</b> sudah ada.<br />\n Gunakan kode yang lain.\n <hr size=1 color=silver />\n <input type=button name='Tutup' value='Tutup' onClick=\"window.close()\" />"));
}
$s = "insert into pmbsyarat\n (PMBSyaratID, KodeID, Nama, ProdiID,\n Keterangan, LoginBuat, TanggalBuat, NA)\n values\n ('{$id}', '" . KodeID . "', '{$Nama}', '{$ProdiID}',\n '{$Keterangan}', '{$_SESSION['_Login']}', now(), '{$NA}')";
$r = _query($s);
echo "<script>ttutup('{$_SESSION['mnux']}');</script>";
} else {
die(ErrorMsg('Error', "Mode edit tidak ditemukan."));
}
}
function KampSav()
{
$md = $_REQUEST['md'] + 0;
$KampusID = $_REQUEST['KampusID'];
$Nama = sqling($_REQUEST['Nama']);
$KodeID = $_REQUEST['KodeID'];
$Alamat = sqling($_REQUEST['Alamat']);
$Kota = sqling($_REQUEST['Kota']);
$Telepon = sqling($_REQUEST['Telepon']);
$Fax = sqling($_REQUEST['Fax']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
// simpan
if ($md == 0) {
$s = "update kampus set Nama='{$Nama}', KodeID='{$KodeID}',\r\n Alamat='{$Alamat}', Kota='{$Kota}', Telepon='{$Telepon}', Fax='{$Fax}', NA='{$NA}'\r\n where KampusID='{$KampusID}' ";
$r = _query($s);
} else {
$ada = GetFields('kampus', 'KampusID', $KampusID, '*');
if (!empty($ada)) {
echo ErrorMsg("Gagal Simpan", "Kampus dengan kode: <b>{$KampusID}</b> telah ada dengan nama <b>{$ada['Nama']}</b>.<br>\r\n Gunakan kode kampus lain.");
} else {
$s = "insert into kampus (KampusID, Nama, KodeID,\r\n Alamat, Kota, Telepon, Fax, NA)\r\n values ('{$KampusID}', '{$Nama}', '{$KodeID}',\r\n '{$Alamat}', '{$Kota}', '{$Telepon}', '{$Fax}', '{$NA}')";
$r = _query($s);
}
}
DftrKampus();
}
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 Header()
{
$mrg = 19;
$pjg = 150;
$identitas = GetFields('identitas', "Kode", KodeID, '*');
$logo = file_exists("../img/logo.jpg") ? "../img/logo.jpg" : "img/logo.jpg";
//$this->Image($logo, 18, 14, 24);
//$this->SetFont("Times", '', 11);
//$this->Cell($mrg);
//$this->Cell($pjg, 6, $identitas['Yayasan'], 0, 1, 'C');
$this->SetFont("Times", 'B', 16);
$this->Cell($mrg);
$this->Cell($pjg, 7, $identitas['Nama'], 0, 1, 'C');
$this->SetFont("Times", 'I', 10);
$this->Cell($mrg);
$this->Cell($pjg, 5, $identitas['Alamat1'] . ' ' . $identitas['Alamat2'], 0, 1, 'C');
//$this->Cell($mrg);
//$this->Cell($pjg, 5, $identitas['Alamat2'], 0, 1, 'C');
//$this->Cell($pjg, 5, $identitas['Kota'], 0, 1, 'C');
$this->SetFont("Times", 'I', 7);
$this->Cell($mrg);
$this->Cell($pjg, 5, "Telp. " . $identitas['Telepon'] . ", Fax. " . $identitas['Fax'] . ", Website:" . $identitas['Website'] . ", Email:" . $identitas['Email'], 0, 1, 'C');
$this->Cell(5);
$this->Cell(180, 0, "", 1, 1);
$this->Ln(2);
}
function TampilkanPresensiMhsw($p)
{
$s = "select pm.*, mhsw.Nama\r\n from presensimhsw pm\r\n left outer join mhsw on mhsw.MhswID = pm.MhswID and mhsw.KodeID = '" . KodeID . "'\r\n where pm.PresensiID = '{$p['PresensiID']}'\r\n order by pm.MhswID";
$r = _query($s);
$def = GetFields('jenispresensi', 'Def', 'Y', '*');
$opt0 = GetOption2('jenispresensi', "Nama", 'JenisPresensiID', $def['JenisPresensiID'], '', 'JenisPresensiID');
echo "<table class=box cellspacing=1 width=100%>";
echo "<script>\r\n function ttutup() {\r\n opener.location='../index.php?mnux={$_SESSION['mnux']}&gos=Edit&JadwalID={$p['JadwalID']}';\r\n self.close();\r\n return false;\r\n }\r\n </script>";
echo "<tr>\r\n <form action='../{$_SESSION['mnux']}.mhswedit.php' method=POST>\r\n <input type=hidden name='gos' value='SimpanSemua' />\r\n <input type=hidden name='pid' value='{$p['PresensiID']}' />\r\n \r\n <td class=ul colspan=5>Set semua ke:\r\n <select name='Stt'>{$opt0}</select>\r\n <input type=submit name='SetStt' value='Set Status' />\r\n <input type=button name='Refresh' value='Refresh' \r\n onClick=\"location='../{$_SESSION['mnux']}.mhswedit.php?pid={$p['PresensiID']}'\" />\r\n <input type=button name='Tutup' value='Tutup' onClick=\"ttutup()\" />\r\n </td>\r\n \r\n </form>\r\n </tr>";
$n = 0;
$arr = GetArrPre();
while ($w = _fetch_array($r)) {
$n++;
$optpre = GetOptPre($arr, $w['JenisPresensiID']);
echo "\r\n <tr><td class=inp width=10>{$n}</td>\r\n <td class=inp1 width=94><b>{$w['MhswID']}</b></td>\r\n <td class=ul1 width=260>{$w['Nama']}</td>\r\n <td class=ul><select id='PresensiMhsw_{$w['PresensiMhswID']}'\r\n onChange='javascript:SetPresensiMhsw({$w['PresensiMhswID']})'>{$optpre}</select></td>\r\n </tr>";
}
echo <<<SCR
</table>
<script>
function SetPresensiMhsw(id) {
var status = document.getElementById("PresensiMhsw_"+id).value;
lnk = "../{$_SESSION['mnux']}.mhswedit.save.php?id="+id+"&st="+status;
win2 = window.open(lnk, "", "width=0, height=0, scrollbars, status");
if (win2.opener == null) childWindow.opener = self;
}
</script>
SCR;
}
function Edit()
{
$mhsw = GetFields('mhsw', "KodeID='" . KodeID . "' and MhswID", $_SESSION['MhswID'], '*');
$optbpt = GetOption2('bipot', 'Tahun', 'Tahun Desc', $mhsw['BIPOTID'], "KodeID='" . KodeID . "' and ProgramID='{$mhsw['ProgramID']}' and ProdiID='{$mhsw['ProdiID']}'", 'BIPOTID');
echo <<<ESD
<table class=bsc width=100%>
<form action='../{$_SESSION['mnux']}.bipotmhsw.php' method=POST>
<input type=hidden name='gos' value='Simpan' />
<input type=hidden name='MhswID' value='{$_SESSION['MhswID']}' />
<tr><td class=inp>NIM:</td>
<td class=ul1><b>{$mhsw['MhswID']}</b></td>
</tr>
<tr><td class=inp>Mahasiswa:</td>
<td class=ul1><b>{$mhsw['Nama']}</b></td>
</tr>
<tr><td class=inp>Angkatan:</td>
<td class=ul1><b>{$mhsw['TahunID']}</b></td>
</tr>
<tr><td class=inp>Bipot:</td>
<td class=ul1>
<select name='BIPOTID'>{$optbpt}</select>
</td></tr>
<tr><td class=ul1 colspan=2 align=center>
<input type=submit name='Simpan' value='Simpan' />
<input type=button name='Batal' value='Batal'
onClick="window.close()" />
</td></tr>
</form>
</table>
ESD;
}
function HeaderLogo($jdl, $p, $orientation = 'P')
{
$pjg = 110;
$logo = file_exists("../img/logo.jpg") ? "../img/logo.jpg" : "img/logo.jpg";
$identitas = GetFields('identitas', 'Kode', KodeID, 'Nama, Alamat1, Telepon, Fax');
$p->Image($logo, 12, 8, 18);
$p->SetY(5);
$p->SetFont("Helvetica", '', 8);
$p->Cell($pjg, 5, $identitas['Yayasan'], 0, 1, 'C');
$p->SetFont("Helvetica", 'B', 10);
$p->Cell($pjg, 7, $identitas['Nama'], 0, 0, 'C');
//Judul
if ($orientation == 'L') {
$p->SetFont("Helvetica", 'B', 16);
$p->Cell(20, 7, '', 0, 0);
$p->Cell($pjg, 7, $jdl, 0, 1, 'C');
} else {
$p->SetFont("Helvetica", 'B', 12);
$p->Cell(80, 7, $jdl, 0, 1, 'R');
}
$p->SetFont("Helvetica", 'I', 6);
$p->Cell($pjg, 3, $identitas['Alamat1'], 0, 1, 'C');
$p->Cell($pjg, 3, "Telp. " . $identitas['Telepon'] . ", Fax. " . $identitas['Fax'], 0, 1, 'C');
$p->Ln(3);
if ($orientation == 'L') {
$length = 275;
} else {
$length = 190;
}
$p->Cell($length, 0, '', 1, 1);
$p->Ln(2);
}
function Edit($md, $Kode, $bck)
{
if ($md == 0) {
$jdl = "Edit Komponen";
$w = GetFields('pmbusm', "KodeID='" . KodeID . "' and PMBUSMID", $Kode, "*");
$_usm = "<input type=hidden name='Kode' value='{$w['PMBUSMID']}' /><b>{$w['PMBUSMID']}</b>";
} elseif ($md == 1) {
$jdl = "Tambah Komponen";
$w = array();
$w['NA'] = 'N';
$_usm = "<input type=text name='Kode' size=10 maxlength=10 />";
} else {
die(ErrorMsg('Error', "Mode edit tidak dikenali."));
}
TampilkanJudul($jdl);
// Parameters
$na = $w['NA'] == 'Y' ? 'checked' : '';
if (empty($w['CaraPenempatan'])) {
$Urut = 'checked';
} else {
$Urut = $w['CaraPenempatan'] == 'Urut' ? 'checked' : '';
$Acak = $w['CaraPenempatan'] == 'Acak' ? 'checked' : '';
$Manual = $w['CaraPenempatan'] == 'Manual' ? 'checked' : '';
}
CheckFormScript('Kode,Nama');
echo "<p><table class=bsc cellspacing=1 align=center width=100%>\n <form action='../{$_SESSION['mnux']}.usm.edit.php' method=POST onSubmit='return CheckForm(this)'>\n <input type=hidden name='gos' value='Simpan' />\n <input type=hidden name='md' value='{$md}' />\n <input type=hidden name='bck' value='{$bck}' />\n \n <tr><td class=inp>Kode USM:</td>\n <td class=ul1>{$_usm}</td>\n </tr>\n <tr><td class=inp>Nama Ujian:</td>\n <td class=ul1><input type=text name='Nama' value='{$w['Nama']}'\n size=30 maxlength=50 /></td>\n </tr>\r\n <tr><td class=inp>Cara Penempatan Cama:</td>\r\n\t <td class=ul1><input type=radio name='CaraPenempatan' value='Urut' {$Urut}>Urut\r\n\t\t\t\t<br><input type=radio name='CaraPenempatan' value='Acak' {$Acak}>Acak\r\n\t\t\t\t<br><input type=radio name='CaraPenempatan' value='Manual' {$Manual}>Manual</td>\r\n\t </tr>\n <tr><td class=inp>Keterangan:</td>\n <td class=ul1>\n <textarea name='Keterangan' cols=30 rows=4>{$w['Keterangan']}</textarea>\n </td></tr>\n <tr><td class=inp>NA (tidak aktif)?</td>\n <td class=ul1>\n <input type=checkbox name='NA' value='Y' {$na} /> *) Beri centang jika tidak aktif\n </td>\n </tr>\n \n <tr><td class=ul1 colspan=2 align=center>\n <input type=submit name='Simpan' value='Simpan' />\n <input type=button name='Batal' value='Batal'\n onClick=\"window.close()\" />\n </td>\n </tr>\n </form>\n </table></p>";
}
function SekSav()
{
$md = $_REQUEST['md'] + 0;
$SekolahID = $_REQUEST['SekolahID'];
$Nama = sqling($_REQUEST['Nama']);
$JenisSekolahID = $_REQUEST['JenisSekolahID'];
$Alamat1 = sqling($_REQUEST['Alamat1']);
$Alamat2 = sqling($_REQUEST['Alamat2']);
$Kota = sqling($_REQUEST['Kota']);
$KodePos = $_REQUEST['KodePos'];
$Telephone = sqling($_REQUEST['Telephone']);
$Fax = sqling($_REQUEST['Fax']);
$Website = sqling($_REQUEST['Website']);
$Email = sqling($_REQUEST['Email']);
$Kontak = sqling($_REQUEST['Kontak']);
$JabatanKontak = sqling($_REQUEST['JabatanKontak']);
$HandphoneKontak = sqling($_REQUEST['HandphoneKontak']);
$EmailKontak = sqling($_REQUEST['EmailKontak']);
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update asalsekolah set Nama='{$Nama}', Alamat1='{$Alamat1}', Alamat2='{$Alamat2}',\r\n JenisSekolahID='{$JenisSekolahID}', Kota='{$Kota}', KodePos='{$KodePos}', NA='{$NA}',\r\n Website='{$Website}', Email='{$Email}', Telephone='{$Telephone}', Fax='{$Fax}',\r\n Kontak='{$Kontak}', JabatanKontak='{$JabatanKontak}',\r\n HandphoneKontak='{$HandphoneKontak}', EmailKontak='{$EmailKontak}'\r\n where SekolahID='{$SekolahID}'";
$r = _query($s);
} else {
$ada = GetFields('asalsekolah', 'SekolahID', $SekolahID, '*');
if (!empty($ada)) {
echo ErrorMsg("Data tidak dapat disimpan", "Data tidak dapat disimpan karena kode sekolah <b>{$SekolahID}</b> telah digunakan oleh\r\n sekolah <b>{$ada['Nama']}</b>.<br>\r\n Gunakan kode sekolah yg lain.");
} else {
$s = "insert into asalsekolah (SekolahID, Nama, JenisSekolahID, Alamat1, Alamat2, Kota, KodePos, NA,\r\n Telephone, Fax, Website, Email, \r\n Kontak, JabatanKontak, HandphoneKontak, EmailKontak)\r\n values('{$SekolahID}', '{$Nama}', '{$JenisSekolahID}', '{$Alamat1}', '{$Alamat2}', '{$Kota}', '{$KodePos}', '{$NA}',\r\n '{$Telephone}', '{$Fax}', '{$Website}', '{$Email}',\r\n '{$Kontak}', '{$JabatanKontak}', '{$HandphoneKontak}', '{$EmailKontak}')";
$r = _query($s);
}
}
TutupScript();
}
function ProsesTransferDep()
{
$s = "select *\r\n from _transferdeposit\r\n order by TahunID, MhswID";
$r = _query($s);
$jml = _num_rows($r);
echo "<p>Ada <font size=+2>{$jml}</font> data yg akan diproses.</p>";
echo "<ol>";
$bn_dep = 32;
// transfer deposit. Lihat di BipotNama
$bn_nm = "Transfer Deposit";
while ($w = _fetch_array($r)) {
$_dep = number_format($w['Jumlah']);
$ada = GetFields('bipotmhsw', "TahunID='{$w['TahunID']}' and BIPOTNamaID={$bn_dep} and MhswID", $w['MhswID'], "*");
if (empty($ada)) {
$str = "Diproses ";
$s0 = "insert into bipotmhsw\r\n (PMBMhswID, MhswID, TahunID, \r\n BIPOTNamaID, Nama, TrxID, Draft,\r\n Jumlah, Besar, Dibayar,\r\n Catatan, LoginBuat, TanggalBuat)\r\n values (1, '{$w['MhswID']}', '{$w['TahunID']}',\r\n {$bn_dep}, '{$bn_nm}', -1, 'N',\r\n 1, {$w['Jumlah']}, {$w['Jumlah']}, \r\n 'import-061030', 'import-061030', now())";
//$str .= $s0;
$r0 = _query($s0);
} else {
$str = "<font color=red>Sudah</font>";
}
echo "<li>{$w['MhswID']} - {$w['TahunID']} » {$_dep} » {$str}</li>";
}
echo "</ol>";
}
function Hitung1()
{
$_SESSION['HTG-POS']++;
$pos = $_SESSION['HTG-POS'];
$max = $_SESSION['HTG-TOTAL'];
$KHSID = $_SESSION['HTG-KHSID-' . $pos];
$MhswID = $_SESSION['HTG-MhswID-' . $pos];
$Status = $_SESSION['HTG-Status-' . $pos];
$arr = GetFields("krs", "StatusKRSID='A' and KHSID", $KHSID, "count(*) as JumlahMK, sum(SKS) as TotalSKS");
$persen = number_format($pos / $_SESSION['HTG-TOTAL'] * 100, 2);
// Simpan data
$JumlahMK = $arr['JumlahMK'] + 0;
$TotalSKS = $arr['TotalSKS'] + 0;
if ($Status == 'P' && $JumlahMK > 0) {
$_Status = ", StatusMhswID='A' ";
} elseif ($Status == 'A' && $JumlahMK == 0) {
$_Status = ", StatusMhswID='P' ";
} else {
$_Status = '';
}
$s = "update khs set JumlahMK={$JumlahMK}, TotalSKS={$TotalSKS} {$_Status}\r\n where KHSID={$KHSID}";
$r = _query($s);
echo "<p>{$persen} %</p>\r\n <p>{$pos}. {$MhswID} ({$KHSID}) [{$Status}] » {$arr['JumlahMK']} ({$arr['TotalSKS']})</p>\r\n <p><pre>{$s}</pre></p>";
if ($pos < $max) {
echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
} else {
echo "<hr><p>Proses Selesai. <a href='?'>Kembali</a></p>";
}
}
function BugsEdt()
{
global $arrPrioritas, $arrStatus;
$md = $_REQUEST['md'] + 0;
if ($md == 0) {
$bid = $_REQUEST['bid'];
$be = GetFields('bugserror', 'ID', $bid, '*');
$judul = "Edit Catatan Bugs & Error";
} else {
$be = array();
$be['ID'] = 0;
$be['Judul'] = '';
$be['Bugs'] = '';
$be['Prioritas'] = 1;
$be['StatusID'] = 1;
$be['Keterangan'] = '';
$be['NA'] = 'N';
$judul = "Tambah Catatan Bugs & Error";
}
$_na = $be['NA'] == 'Y' ? 'checked' : '';
//$optprio = BuatOpsi("Prioritas", $arrPrioritas, $be['Prioritas']);
//$optstat = BuatOpsi("StatusID", $arrStatus, $be['StatusID']);
CheckFormScript('Judul,Bugs');
if (strpos('.1.2.', ".{$_SESSION['_LevelID']}.") === false) {
$prio = GetaField('bugsprioritas', 'ID', $be['Prioritas'], 'Nama');
$stat = GetaField('bugsstatus', 'ID', $be['StatusID'], 'Nama');
$str = "<tr><td class=inp>Prioritas</td><td class=ul>{$prio} <input type=hidden name='Prioritas' value='{$be['Prioritas']}'></td></tr>\r\n <tr><td class=inp>Status</td><td class=ul>{$stat} <input type=hidden name='StatusID' value='{$be['StatusID']}'></td></tr>";
} else {
$optprio = GetOption2('bugsprioritas', "concat(ID, ' - ', Nama)", "ID", $be['Prioritas'], '', "ID");
$optstat = GetOption2('bugsstatus', "concat(ID, ' - ', Nama)", 'ID', $be['StatusID'], '', 'ID');
$str = "<tr><td class=inp>Prioritas</td><td class=ul><select name='Prioritas'>{$optprio}</select></td></tr>\r\n <tr><td class=inp>Status</td><td class=ul><select name='StatusID'>{$optstat}</select></td></tr>\r\n <tr><td class=ul colspan=2>Keterangan Developer:<br />\r\n <textarea name='Keterangan' cols=100 rows=10>{$be['Keterangan']}</textarea></td></tr>";
}
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <form action='?' method=POST name='BugsErrorRec' onSubmit='return CheckForm(this)'>\r\n <input type=hidden name='mnux' value='bugserror'>\r\n <input type=hidden name='gos' value='BugsSav'>\r\n <input type=hidden name='bid' value='{$be['ID']}'>\r\n <input type=hidden name='md' value='{$md}'>\r\n <input type=hidden name='BypassMenu' value='1'>\r\n <tr><td class=ul colspan=2><font size=+1>{$judul}</font></td></tr>\r\n <tr><td class=inp>Judul Catatan</td><td class=ul><input type=text name='Judul' value='{$be['Judul']}' size=40 maxlength=50></td></tr>\r\n <tr><td class=inp>Bugs/Error</td><td class=ul><textarea name='Bugs' cols=40 rows=6>{$be['Bugs']}</textarea></td></tr>\r\n {$str}\r\n <tr><td class=ul colspan=2><input type=submit name='Simpan' value='Simpan'>\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux=bugserror'\"></td></tr>\r\n </form></table></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 NilEdt()
{
global $mnux, $pref;
$md = $_REQUEST['md'] + 0;
if ($md == 0) {
$w = GetFields('nilai', "NilaiID", $_REQUEST['NID'], '*');
$jdl = "Edit Nilai";
} else {
$w = array();
$w['NilaiID'] = 0;
$w['KodeID'] = $_SESSION['KodeID'];
$w['ProdiID'] = $_SESSION['prodi'];
$w['Nama'] = '';
$w['Bobot'] = 0;
$w['Lulus'] = 'N';
$w['NilaiMin'] = 0;
$w['NilaiMax'] = 0;
$w['MaxSKS'] = 0;
$w['HitungIPK'] = 'N';
$w['Deskripsi'] = '';
$w['NA'] = 'N';
$jdl = "Tambah Nilai";
}
$_na = $w['NA'] == 'Y' ? 'checked' : '';
$_Lulus = $w['Lulus'] == 'Y' ? 'checked' : '';
$_HitungIPK = $w['HitungIPK'] == 'Y' ? 'checked' : '';
$snm = session_name();
$sid = session_id();
// Tampilkan formulir
CheckFormScript("Nama,Bobot,NilaiMin,NilaiMax");
echo "<p><table class=box cellspacing=1 cellpadding=4>\n <form action='?' method=POST onSubmit=\"return CheckForm(this)\">\n <input type=hidden name='mnux' value='{$mnux}'>\n <input type=hidden name='{$pref}' value='{$_SESSION[$pref]}'>\n <input type=hidden name='sub' value='NilSav'>\n <input type=hidden name='md' value='{$md}'>\n <input type=hidden name='NilaiID' value='{$w['NilaiID']}'>\n <input type=hidden name='KodeID' value='{$w['KodeID']}'>\n <input type=hidden name='ProdiID' value='{$w['ProdiID']}'>\n\n <tr><th class=ttl colspan=2>{$jdl}</th></tr>\n <tr><td class=inp1>Nilai</td><td class=ul><input type=text name='Nama' value='{$w['Nama']}' size=5 maxlength=5></td></tr>\n <tr><td class=inp1>Bobot</td><td class=ul><input type=text name='Bobot' value='{$w['Bobot']}' size=5 maxlength=5></td></tr>\n <tr><td class=inp1>Lulus?</td><td class=ul><input type=checkbox name='Lulus' value='Y' {$_Lulus}></td></tr>\n <tr><td class=inp1>Batas Bawah</td><td class=ul><input type=text name='NilaiMin' value='{$w['NilaiMin']}' size=5 maxlength=5></td></tr>\n <tr><td class=inp1>Batas Atas</td><td class=ul><input type=text name='NilaiMax' value='{$w['NilaiMax']}' size=5 maxlength=5></td></tr>\n <tr><td class=inp1>Max Pengambilan SKS</td><td class=ul><input type=text name='MaxSKS' value='{$w['MaxSKS']}' size=4 maxlength=3></td></tr>\n <tr><td class=inp1>Hitung dlm IPK?</td><td class=ul><input type=checkbox name='HitungIPK' value='Y' {$_HitungIPK}></td></tr>\n <tr><td class=inp1>Deskripsi</td><td class=ul><input type=text name='Deskripsi' value='{$w['Deskripsi']}' size=50 maxlength=200></td></tr>\n <tr><td colspan=2><input type=submit name='Simpan' value='Simpan'>\n <input type=reset name='Reset' value='Reset'>\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux={$mnux}&{$pref}={$_SESSION[$pref]}&{$snm}={$sid}'\"></td></tr>\n\n </form></table></p>";
}
function KurEdt()
{
global $mnux, $pref, $arrID;
$md = $_REQUEST['md'] + 0;
if ($md == 0) {
$w = GetFields('kurikulum', 'KurikulumID', $_REQUEST['kurid'], '*');
$jdl = "Edit Kurikulum";
} else {
$w = array();
$w['KurikulumID'] = 0;
$w['ProdiID'] = $_SESSION['prodi'];
$w['KodeID'] = $arrID['Kode'];
$w['KurikulumKode'] = '';
$w['Nama'] = '';
$w['Sesi'] = '';
$w['JmlSesi'] = '';
$w['NA'] = 'N';
$jdl = "Tambah Kurikulum";
}
$_na = $w['NA'] == 'Y' ? 'checked' : '';
$snm = session_name();
$sid = session_id();
// Tampilkan form
CheckFormScript("KurikulumKode,Nama,Sesi,JmlSesi");
echo "<table class=box cellspacing=1 cellpadding=4>\r\n <form action='?' method=POST onSubmit=\"return CheckForm(this)\">\r\n <input type=hidden name='mnux' value='{$mnux}'>\r\n <input type=hidden name='{$pref}' value='{$_SESSION[$pref]}'>\r\n <input type=hidden name='md' value='{$md}'>\r\n <input type=hidden name='sub' value='KurSav'>\r\n <input type=hidden name='prodi' value='{$_SESSION['prodi']}'>\r\n <input type=hidden name='KurikulumID' value='{$w['KurikulumID']}'>\r\n <input type=hidden name='KodeID' value='{$w['KodeID']}'>\r\n <input type=hidden name='BypassMenu' value='1' />\r\n \r\n <tr><td class=ul colspan=2><b>{$arrID['Nama']}</b></td></tr>\r\n <tr><th class=ttl colspan=2>{$jdl}</th></tr>\r\n <tr><td class=inp>Kode/Tahun:</td><td class=ul><input type=text name='KurikulumKode' value='{$w['KurikulumKode']}' size=20 maxlength=20></td></tr>\r\n <tr><td class=inp>Nama Kurikulum:</td><td class=ul><input type=text name='Nama' value='{$w['Nama']}' size=40 maxlength=50></td></tr>\r\n <tr><td class=inp>Nama Sesi:</td><td class=ul><input type=text name='Sesi' value='{$w['Sesi']}' size=20 maxlength=20></td></tr>\r\n <tr><td class=inp>Jumlah Sesi/Tahun:</td><td class=ul><input type=text name='JmlSesi' value='{$w['JmlSesi']}' size=5 maxlength=2></td></tr>\r\n <tr><td class=inp>Tidak aktif?</td><td class=ul><input type=checkbox name='NA' value='Y' {$_na}></td></tr>\r\n <tr><td colspan=2 align=center>\r\n <input type=submit name='Simpan' value='Simpan'>\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux={$mnux}&{$pref}={$_SESSION[$pref]}&{$snm}={$sid}'\"></td></tr>\r\n </form></table>";
}
function CekDataKRS($MhswID, $ProdiID, $KHSID)
{
$s = "select krs.KRSID, j.HariID, krs.MKID\r\n from krs\r\n left outer join jadwal j on krs.JadwalID=j.JadwalID\r\n where krs.KHSID='{$KHSID}'\r\n order by j.HariID, krs.MKID";
$r = _query($s);
$sebel = '';
while ($w = _fetch_array($r)) {
$strpsn = '';
$skrg = "{$w['HariID']}-{$w['MKID']}";
if ($sebel == $skrg) {
$strpsn = "<font size=+2 color=maroon>Dihapus</font>";
$_SESSION["CEK-KRS-DIHAPUS"]++;
$sx = "delete from krs where KRSID='{$w['KRSID']}' ";
$rx = _query($sx);
}
echo "<li>{$w['MKID']} {$skrg} {$strpsn}</li>";
$sebel = $skrg;
}
// Hitung KRS
$jml = GetFields("krs left outer join jadwal j on krs.JadwalID=j.JadwalID", "krs.StatusKRSID='A' and j.JenisJadwalID='K' and krs.KHSID", $KHSID, "sum(krs.SKS) as TotalSKS, count(*) as JumlahMK");
$TotalSKS = $jml['TotalSKS'] + 0;
$JumlahMK = $jml['JumlahMK'] + 0;
$sr = "update khs set TotalSKS={$TotalSKS}, JumlahMK={$JumlahMK} where KHSID='{$KHSID}' ";
$rr = _query($sr);
echo "<p>Summary » Total SKS: <b>{$TotalSKS}</b>, Jumlah MK: <b>{$JumlahMK}</b></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 AlumniKrjEdt($a)
{
$md = $_REQUEST['md'] + 0;
if ($md == 0) {
$AlumniKerjaID = $_REQUEST['AlumniKerjaID'];
$k = GetFields('alumnikerja', 'AlumniKerjaID', $AlumniKerjaID, '*');
$jdl = "Edit Pekerjaan";
} else {
$k = array();
$k['AlumniKerjaID'] = 0;
$k['Nama'] = '';
$k['Jabatan'] = '';
$k['MulaiKerja'] = date('Y-m-d');
$k['KeluarKerja'] = date('Y-m-d');
$k['Alamat'] = '';
$k['Kota'] = '';
$k['KodePos'] = '';
$k['Propinsi'] = '';
$k['Negara'] = '';
$k['Telepon'] = '';
$k['Facsimile'] = '';
$k['Website'] = '';
$k['NA'] = 'N';
$jdl = "Tambah Pekerjaan Baru";
}
$MK = GetDateOption($k['MulaiKerja'], 'MK');
$KK = GetDateOption($k['KeluarKerja'], 'KK');
$na = $k['NA'] == 'Y' ? 'checked' : '';
// Tampilkan form
echo "<p><table class=box>\r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='alumni.det'>\r\n <input type=hidden name='AlumniID' value='{$a['MhswID']}'>\r\n <input type=hidden name='alumnisub' value='AlumniKrj'>\r\n <input type=hidden name='slnt' value='alumni.sav'>\r\n <input type=hidden name='slntx' value='AlumniKrjSav'>\r\n <input type=hidden name='AlumniKerjaID' value='{$k['AlumniKerjaID']}'>\r\n <input type=hidden name='md' value='{$md}'>\r\n \r\n <tr><th class=ttl colspan=2>{$jdl}</th></tr>\r\n <tr><td class=inp>Nama Perusahaan</td>\r\n <td class=ul><input type=text name='Nama' value='{$k['Nama']}' size=40 maxlength=50></td>\r\n </tr>\r\n <tr><td class=inp>Jabatan/Pekerjaan</td>\r\n <td class=ul><input type=text name='Jabatan' value='{$k['Jabatan']}' size=40 maxlength=50></td>\r\n </tr>\r\n <tr><td class=inp>Alamat Prsh</td>\r\n <td class=ul><textarea name='Alamat' cols=40 rows=3>{$k['Alamat']}</textarea></td>\r\n </tr>\r\n <tr><td class=inp>Kota</td>\r\n <td class=ul><input type=text name='Kota' value='{$k['Kota']}' size=20 maxlength=20></td>\r\n </tr>\r\n <tr><td class=inp>Kode Pos</td>\r\n <td class=ul><input type=text name='KodePos' value='{$k['KodePos']}' size=20 maxlength=20></td>\r\n </tr>\r\n <tr><td class=inp>Propinsi</td>\r\n <td class=ul><input type=text name='Propinsi' value='{$k['Propinsi']}' size=20 maxlength=50></td>\r\n </tr>\r\n <tr><td class=inp>Negara</td>\r\n <td class=ul><input type=text name='Negara' value='{$k['Negara']}' size=20 maxlength=30></td>\r\n </tr>\r\n <tr><td class=inp>Telepon</td>\r\n <td class=ul><input type=text name='Telepon' value='{$k['Telepon']}' size=40 maxlength=40></td></tr>\r\n <tr><td class=inp>Facsimile</td>\r\n <td class=ul><input type=text name='Facsimile' value='{$k['Facsimile']}' size=40 maxlength=40></td></tr>\r\n <tr><td class=inp>Website</td>\r\n <td class=ul><input type=text name='Website' value='{$k['Website']}' size=40 maxlength=50></td></tr>\r\n \r\n <tr><td class=inp>Mulai Kerja</td>\r\n <td class=ul>{$MK}</td></tr>\r\n <tr><td class=inp>Keluar Kerja</td>\r\n <td class=ul>{$KK}</td></tr>\r\n <tr><td class=inp>Sudah keluar?</td>\r\n <td class=ul><input type=checkbox name='NA' value='Y' {$na}></td></tr>\r\n <tr><td class=ul colspan=2><input type=submit name='Simpan' value='Simpan'>\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux=alumni.det&alumnisub=AlumniKrj'\">\r\n </td></tr>\r\n </form>\r\n </table></p>";
}
function EditKelas()
{
$md = $_REQUEST['md'] + 0;
$kid = $_REQUEST['kid'];
if ($md == 0) {
$jdl = 'Edit Kelas';
$w = GetFields('kelas', 'KelasID', $kid, '*');
$strkid = "\r\n\t\t\t<tr>\r\n\t\t\t\t<td class=inp>Kelas ID: </td>\r\n\t\t\t\t<td class=ul1><input type=text name='dkid' value='{$kid}' size=2 disabled>\r\n\t\t\t\t\t\t\t<input type=hidden name='kid' value='{$kid}'></td>\t\t\t\t\r\n\t\t\t</tr>";
} else {
if ($md == 1) {
$jdl = 'Tambah Kelas';
$w = array();
$strkid = "";
} else {
die(ErrorMsg('Error', "Mode edit tidak dikenali. Hubungi Sysadmin untuk informasi lebih lanjut."));
}
}
TampilkanJudul($jdl);
echo "<br>";
$optprodi = GetOption2('prodi', "concat(ProdiID, ' - ', Nama)", 'ProdiID', $w['ProdiID'], "KodeID='" . KodeID . "'", 'ProdiID');
$optprogram = GetOption2('program', "concat(ProgramID, ' - ', Nama)", 'ProgramID', $w['ProgramID'], "KodeID='" . KodeID . "'", 'ProgramID');
$opttahun = GetOption2('tahun', "concat(TahunID, ' (', ProdiID, if(ProdiID='','','-'), ProgramID, ')')", 'TahunID', $w['TahunID'], "NA='N'", 'TahunID');
CheckFormScript("InputNama,InputTahun,InputProdi,InputProgram,InputKapMax");
echo "<table class=box cellspacing=1 align=center>\r\n\t\t\t\t<form action='?' method=POST onSubmit=\"return CheckForm(this)\">\r\n\t\t\t\t\t<input type=hidden name='mnux' value='{$_SESSION['mnux']}' />\r\n\t\t\t\t\t<input type=hidden name='gos' value='SavKelas' />\r\n\t\t\t\t\t<input type=hidden name='md' value='{$md}'/>\r\n\t\t\t\t\t<input type=hidden name='kid' value='{$kid}' />\r\n\t\t\t\t\t\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<td class=inp>Nama Kelas:</td>\r\n\t\t\t\t\t\t<td class=ul1><input type=text name='InputNama' value='{$w['Nama']}'></td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<td class=inp>Tahun Akademik:</td>\r\n\t\t\t\t\t\t<td class=ul1><input type=text name='InputTahun' value='{$_SESSION['opk_tahun']}' size=3 maxlength=10></td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<td class=inp>Program Studi:</td>\r\n\t\t\t\t\t\t<td class=ul1><select name='InputProdi'>{$optprodi}</select></td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<td class=inp>Program:</td>\r\n\t\t\t\t\t\t<td class=ul1><select name='InputProgram'>{$optprogram}</select></td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<td class=inp>Kapasitas Maksimum Kelas: </td>\r\n\t\t\t\t\t\t<td class=ul1><input type=text name='InputKapMax' value='{$w['KapasitasMaksimum']}' size=2 maxlength=4></td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t\t<tr>\r\n\t\t\t\t\t\t<td class=ul1 colspan=2 align=center>\r\n\t\t\t\t\t\t\t<input type=submit name='SimpanKelas' value='Simpan Kelas' />\r\n\t\t\t\t\t\t\t<input type=reset name='Reset' value='Reset' />\r\n\t\t\t\t\t\t\t<input type=button name='Batal' value='Batal'\r\n\t\t\t\t\t\t\t\tonClick=\"self.close();\" /></td>\r\n\t\t\t\t\t</tr>\r\n\t\t\t\t</table>\r\n\t\t\t</form>";
}
function AkademikSav()
{
// Cek Kelengkapan
$_syarat = array();
$_syarat = $_REQUEST['PMBSyaratID'];
$syarat = empty($_syarat) ? '' : '.' . implode('.', $_syarat) . '.';
// Cek Kelengkapan
$mhsw = GetFields('mhsw', 'MhswID', $_REQUEST['mhswid'], 'StatusAwalID, ProdiID, Syarat, SyaratLengkap');
$s = "select PMBSyaratID, Nama\r\n from pmbsyarat\r\n where NA='N' and KodeID='{$_SESSION['KodeID']}'\r\n and INSTR(StatusAwalID, '.{$mhsw['StatusAwalID']}.') >0\r\n and INSTR(ProdiID, '.{$mhsw['ProdiID']}.') >0\r\n order by PMBSyaratID";
$r = _query($s);
$lkp = True;
if (!empty($_syarat)) {
while ($w = _fetch_array($r)) {
if (array_search($w['PMBSyaratID'], $_syarat) === false) {
$lkp = false;
}
}
} else {
$lkp = false;
}
$Lengkap = $lkp == true ? 'Y' : 'N';
// Simpan
$s = "update mhsw set PenasehatAkademik='{$_REQUEST['PenasehatAkademik']}', ProgramID='{$_REQUEST['ProgramID']}',\r\n StatusAwalID='{$_REQUEST['StatusAwalID']}', StatusMhswID='{$_REQUEST['StatusMhswID']}',\r\n Syarat='{$syarat}', SyaratLengkap='{$Lengkap}', BatasStudi='{$_REQUEST['BatasStudi']}'\r\n where MhswID='{$_REQUEST['mhswid']}' ";
$r = _query($s);
}
function BipotNamaEdt()
{
global $mnux, $tok;
$md = $_REQUEST['md'] + 0;
if ($md == 0) {
$w = GetFields('bipotnama', 'BIPOTNamaID', $_REQUEST['bnid'], '*');
$Jdl = "Edit Nama Biaya dan Potongan";
} else {
$w = array();
$w['BIPOTNamaID'] = 0;
$w['Urutan'] = 0;
$w['Nama'] = '';
$w['RekeningID'] = '';
$w['TrxID'] = 1;
$w['Baris'] = 0;
$w['DipotongBeasiswa'] = 'N';
$w['Catatan'] = '';
$w['NA'] = 'N';
$Jdl = "Tambah Nama Biaya & Potongan";
}
$NA = $w['NA'] == 'Y' ? 'checked' : '';
$Detil = $w['Detil'] == 'Y' ? 'checked' : '';
$Denda = $w['KenaDenda'] == 'Y' ? 'checked' : '';
$DipotongBeasiswa = $w['DipotongBeasiswa'] == 'Y' ? 'checked' : '';
$opttrx = GetOption2('trx', "Concat(TrxID, '. ', Nama)", 'TrxID, Nama', $w['TrxID'], '', 'TrxID');
$optrek = GetOption2('rekening', "concat(RekeningID, ' - ', Nama)", 'RekeningID', $w['RekeningID'], "KodeID='{$_SESSION['KodeID']}'", 'RekeningID');
// Tampilkan
CheckFormScript("Nama,TrxID");
echo "<p><table class=box cellspacing=1 cellpadding=4 width=600>\r\n <form action='?' method=POST onSubmit=\"return CheckForm(this)\">\r\n <input type=hidden name='mnux' value='{$mnux}'>\r\n <input type=hidden name='tok' value='{$tok}'>\r\n <input type=hidden name='sub' value='BipotNamaSav'>\r\n <input type=hidden name='md' value='{$md}'>\r\n <input type=hidden name='bnid' value='{$w['BIPOTNamaID']}'>\r\n <tr><th class=ttl colspan=2>{$Jdl}</th></tr>\r\n <tr><td class=inp>Urutan</td><td class=ul><input type=text name='Urutan' value='{$w['Urutan']}' size=3 maxlength=3> <font color=red>*)</font></td></tr>\r\n <tr><td class=inp>Nama</td><td class=ul><input type=text name='Nama' value='{$w['Nama']}' size=40 maxlength=50></td></tr>\r\n <tr><td class=inp>Masukkan ke rekening</td><td class=ul><select name='RekeningID'>{$optrek}</select></td></tr>\r\n <tr><td class=inp>Jenis Transaksi</td><td class=ul><select name='TrxID'>{$opttrx}</select></td></tr>\r\n <tr><td class=inp>Di baris</td>\r\n <td class=ul><input type=text name='Baris' value='{$w['Baris']}' size=3 maxlength=3> Pada baris ke berapa dalam cetakan.</td></tr>\r\n <tr><td class=inp>Dipotong Beasiswa</td>\r\n <td class=ul><input type=checkbox name='DipotongBeasiswa' value='Y' {$DipotongBeasiswa}> Apakah dapat dipotong beasiswa?</td></tr>\r\n <tr><td class=inp>Tidak aktif (NA)?</td><td class=ul><input type=checkbox name='NA' value='Y' {$NA}></td></tr>\r\n <tr><td class=inp>Catatan</td><td class=ul><textarea name='Catatan' cols=30 rows=2>{$w['Catatan']}</textarea></td></tr>\r\n <tr><td colspan=2><input type=submit name='Simpan' value='Simpan'>\r\n <input type=reset name='Reset' value='Reset'>\r\n <input type=button name='Batal' value='Batal' onClick=\"location='?mnux={$mnux}&tok={$tok}&sub='\"></td></tr>\r\n </form></table></p>";
echo CatatanBipotNama();
}
function LokasiAssetSav() {
global $DefaultGOS, $KodeID;
$md = $_REQUEST['md']+0;
$Nama = strtoupper(sqling($_REQUEST['Nama']));
$LokasiID = $_REQUEST['LokasiID']+0;
$NA = (empty($_REQUEST['NA']))? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update lokasiasset set LokasiID='$LokasiID', Nama='$Nama', LoginEdit='$_SESSION[_Nama]', TanggalEdit='$Actiondate', NA='$NA'
where LokasiID=$LokasiID";
$r = _query($s);
$DefaultGOS();
}
else {
$ada = GetFields('lokasiasset', "KodeID='$KodeID' and LokasiID", $LokasiID, '*');
if (empty($ada)) {
$s = "insert into lokasiasset (LokasiID, Nama, KodeID, LoginAdd, TanggalAdd, NA)
values ('$KelompokAssetID', '$Nama', '$KodeID', '$_SESSION[_Nama]', '$Actiondate', '$NA')";
$r = _query($s);
echo "<script>window.location = '?mnux=lokasi.asset'; </script>";
}
else {
echo ErrorMsg("Gagal Simpan",
"Data pejabat <b>$JabatanID</b> sudah ada.<br />
Anda tidak dapat memasukkan jabatan ini lebih dari 1 kali.");
$DefaultGOS();
}
}
}
