$prodi = $w['ProdiID'];
} elseif ($prodi != $w['ProdiID']) {
$prodi = $w['ProdiID'];
if ($first == 0) {
fwrite($f, $div);
}
fwrite($f, chr(12));
fwrite($f, Headerxx($_SESSION['tahun'], $_prodi, $div, $maxcol, $hal));
$brs = 0;
$n = 1;
}
$isi = str_pad($n . '.', 5) . str_pad($w['PMBID'], 12) . str_pad($w['NIM'], 12) . str_pad($w['Nama'], 35) . str_pad($w['PRG'], 12) . str_pad($w['STT'], 10) . $_lf;
fwrite($f, $isi);
}
fwrite($f, $div);
//fwrite($f, str_pad('Halaman : '.$hal."/".$jumhal,10,' ').$_lf);
fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 20, ' ') . str_pad("Dicetak Tgl : " . date("d-m-Y H:i"), 70, ' ', STR_PAD_LEFT) . $_lf . $_lf);
fwrite($f, str_pad("Akhir laporan", 90, ' ', STR_PAD_LEFT));
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, "baa.lap");
}
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
TampilkanJudul("Laporan Jumlah Mahasiswa Generate NIM");
TampilkanTahunProdiProgram('baa.lap.jumlahmhswnim', 'Daftar');
Daftar();
?>
fwrite($f, str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf);
$hal++;
$brs = 1;
fwrite($f, chr(12) . $_lf);
fwrite($f, $hdr);
}
$smtaktif = GetaField('khs', "StatusMhswID in ('A', 'T', 'W') and MhswID", $w['MhswID'], "max(TahunID)");
//echo $smtaktif;
$isi = str_pad($n . '.', 4, ' ') . ' ' . str_pad($w['MhswID'], 12) . ' ' . str_pad($w['Nama'], 30) . ' ' . str_pad($w['TotalSKS'], 3, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['IPK'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['BatasStudi'], 6) . ' ' . str_pad($smtaktif, 6) . ' ' . str_pad($w['Telepon'], 20) . $_lf . str_pad(' ', 72, ' ') . ' ' . str_pad($w['Alamat'] . ', ' . $w['Kota'], 30);
fwrite($f, $isi . $_lf);
}
fwrite($f, $div);
fwrite($f, str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, $_lf . $_lf . str_pad('Dicetak oleh : ' . $_SESSION['_Login'], 85, ' ') . str_pad('Dibuat : ' . date("d-m-Y H:i"), 29, ' '));
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, "akd.lap");
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
// *** Main ***
TampilkanJudul("Daftar Mahasiswa Bolos KRS");
//TampilkanTahunProdiProgram('akd.lap.krsmhswbolos', 'Daftar');
TampilkanTahunProdiProgram('akd.lap.krsmhswbolos', 'Daftar', '', '', 1);
if (!empty($tahun) && !empty($prid) && !empty($prodi)) {
Daftar();
}
$r = _query($s);
//update KRSTEMP
$s1 = "update krstemp\r\n\t\t\t\tset JadwalID={$Ke_Kelas}, Catatan='Pindah Jadwal dari {$jid}', LoginEdit='{$_SESSION['_Login']}', TanggalEdit=now()\r\n\t\t\t\twhere KRSID={$krsid}";
$r1 = _query($s1);
//update Jadwal
$s0 = "update jadwal\r\n\t\t\t\tset JumlahMhsw=JumlahMhsw-1 where JadwalID = '{$Ke_kelas}'";
$r0 = _query($s0);
}
}
HitungJumlahMhsw($jid);
HitungJumlahMhsw($Ke_Kelas);
echo Konfirmasi("Telah Dipindahkan", "Sebanyak <font size=+1>{$n}</font> mhsw telah dipindah kelasnya.\r\n <hr size=1 color=silver>\r\n Option: <a href='?mnux=koreksikelas'>Kembali</a>");
}
function HitungJumlahMhsw($jid)
{
$mhswkrs = GetaField('krstemp', 'JadwalID', $jid, "count(KRSID)") + 0;
$mhsw = GetaField('krs', 'JadwalID', $jid, "count(KRSID)") + 0;
$s = "update jadwal set JumlahMhsw = '{$mhsw}', JumlahMhswKRS = '{$mhswkrs}' where JadwalID = '{$jid}' ";
$r = _query($s);
}
// *** Parameters ***
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
$gos = empty($_REQUEST['gos']) ? 'DftrJdwl' : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Koreksi Kelas");
TampilkanTahunProdiProgram('koreksikelas', '');
if (!empty($prid) && !empty($prodi)) {
$gos();
}
//fwrite($f, str_pad('Halaman : '.$hal."/".$jumhal,10,' ').$_lf);
fwrite($f, str_pad('Dicetak oleh : ' . $_SESSION['_Login'], 55, ' ') . str_pad('Dibuat : ' . date("d-m-Y H:i"), 29, ' '));
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, "akd.lap");
}
function HeaderKRS($tahun, $_prid, $_prodi, $div, $maxcol, &$hal, $RentangNPM = '')
{
global $_lf;
$RentangNPM = !empty($RentangNPM) ? $RentangNPM . $_lf : '';
$hdr = str_pad("** Daftar Mahasiswa Terdaftar KRS " . NamaTahun($_SESSION['tahun']) . " Tidak Cetak KSS **", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf;
$hdr .= "Program : {$_prid}" . $_lf;
$hdr .= "Prodi : {$_prodi}" . $_lf;
$hdr .= $RentangNPM;
$hdr .= $div;
$hdr .= "No. NPM Nama Ambil SKS IPK Batas Studi" . $_lf . $div;
return $hdr;
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
// *** Main ***
TampilkanJudul("Daftar Mahasiswa Terdaftar KRS Tidak Cetak KSS");
//TampilkanPilihanProdiAngkatan('akd.lap.dftrkrsmhswtidakkss', 'Daftar');
TampilkanTahunProdiProgram('akd.lap.dftrkrsmhswtidakkss', 'DftrAkdLapKRSMhsw', '', '', 1);
if (!empty($tahun)) {
Daftar();
}
TampilkanUrutkanJadwal('jadwal.final', 'TampilkanFinal');
$urut = '';
for ($i = 0; $i < sizeof($arrUrutkanJadwal); $i++) {
$k = explode('~', $arrUrutkanJadwal[$i]);
if ($k[0] == $_SESSION['UrutkanJadwal']) {
$urut = $k[1];
}
}
$s = "select j.*, \r\n concat(d.Nama, ', ', d.Gelar) as DSN, concat(d.Telephone, ', ', d.Handphone) as TELP\r\n from jadwal j\r\n left outer join dosen d on j.DosenID=d.Login\r\n where j.TahunID='{$_SESSION['tahun']}'\r\n and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.') > 0\r\n order by {$urut}";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1 cellpadding=1>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>Kode</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Kelas</th>\r\n <th class=ttl>Jenis</th>\r\n <th class=ttl>Program</th>\r\n <th class=ttl>Dosen</th>\r\n <th class=ttl>Final</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$c = $w['Final'] == 'Y' ? "class=inp1" : "class=ul";
echo "<tr><td class=inp>{$n}</td>\r\n <td {$c}>{$w['MKKode']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c}>{$w['NamaKelas']}</td>\r\n <td {$c}>{$w['JenisJadwalID']}</td>\r\n <td {$c}>{$w['ProgramID']}</td>\r\n <td {$c}><abbr title='Telp: {$w['TELP']}'>{$w['DSN']}</abbr></td>\r\n <td {$c} align=center><img src='img/book{$w['Final']}.gif'></td>\r\n </tr>";
}
echo "</table></p>";
}
// *** Parameters ***
$UrutkanJadwal = GetSetVar('UrutkanJadwal', 'Kode');
$tahun = GetSetVar('tahun');
$prid = GetSetVar('prid');
$prodi = GetSetVar('prodi');
$gos = empty($_REQUEST['gos']) ? "TampilkanFinal" : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Inquiry Nilai yg Telah Difinalisasi");
TampilkanTahunProdiProgram("jadwal.final", "TampilkanFinal");
if (!empty($_REQUEST['gos']) && !empty($tahun) && !empty($prodi)) {
$_REQUEST['gos']();
}
$hr = $w['HariID'];
$_hr = GetaField('hari', 'HariID', $w['HariID'], 'Nama');
echo "<tr><td class=ul colspan=8><b>{$_hr}</b></td></tr>";
echo $hdr;
}
$AssistenDosen = GetAssistenDosen($w['JadwalID']);
echo "<tr>\n <td class=inp>{$w['JadwalID']}</td>\n <td class=ul>{$w['JM']}~{$w['JS']}</td>\n <td class=ul>{$w['RuangID']} </td>\n <td class=ul>{$w['MKKode']}</td>\n <td class=ul>{$w['Nama']}</td>\n <td class=ul>{$w['NamaKelas']}</td>\n <td class=ul>{$w['JenisJadwalID']}</td>\n <td class=ul align=right>{$w['JumlahMhsw']}</td>\n <td class=ul align=right>{$w['SKS']}</td>\n <td class=ul>{$w['DSN']}</td>\n <td class=ul>{$AssistenDosen} </td>\n </tr>";
}
echo "</table></p>";
}
function GetAssistenDosen($jdwlid)
{
$s = "select jd.JadwalDosenID, d.Nama as DSN\n from jadwaldosen jd\n left outer join dosen d on jd.DosenID=d.Login\n where jd.JadwalID={$jdwlid}\n order by d.Nama";
$r = _query($s);
$a = array();
while ($w = _fetch_array($r)) {
$a[] = "{$w['DSN']}";
}
return implode(', ', $a);
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$gos = empty($_REQUEST['gos']) ? "DaftarJadwal" : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Jadwal Kuliah");
TampilkanTahunProdiProgram('inq.jadwal');
if (!empty($tahun) && !empty($prid) && !empty($prodi)) {
$gos();
}
$s = "select TahunID from khs where MhswID='{$mhswid}' and StatusMhswID='C' order by TahunID";
$r = _query($s);
$arr = array();
while ($w = _fetch_array($r)) {
$arr[] = $w['TahunID'];
}
return implode(' ', $arr);
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$dsnid = GetSetVar('dsnid');
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
// Cek filter status mhsw
$StatusMhsw = $_REQUEST['StatusMhswID'];
if (empty($StatusMhsw)) {
$_SESSION['StatusMhswID'] = '';
} else {
$StatusMhswID = implode(',', $StatusMhsw);
$_SESSION['StatusMHswID'] = $StatusMhswID;
}
// *** Main ***
TampilkanJudul("Daftar Dosen Pembimbing & Mahasiswa");
//TampilkanTahunProdiProgram('akd.lap.pamhsw');
TampilkanTahunProdiProgram('akd.lap.pamhsw', 'Daftar', '', '', 1);
TampilkanPilihanDosen('akd.lap.pamhsw');
if (!empty($tahun) && !empty($prodi)) {
TampilkanPA();
}
$tot += $hut == -1 ? $w['BAL'] : $w['LBH'];
$_bal = $hut == -1 ? $w['BAL'] : $w['LBH'];
$bal = number_format($_bal);
fwrite($f, str_pad($n, 5) . str_pad($w['MhswID'], 12) . str_pad($w['Nama'], 32) . str_pad($w['JumlahMK'], 5, ' ', STR_PAD_LEFT) . str_pad($w['TotalSKS'], 5, ' ', STR_PAD_LEFT) . str_pad($w['StatusMhswID'], 7, ' ', STR_PAD_LEFT) . str_pad($TOTSS, 17, ' ', STR_PAD_LEFT) . $_lf);
}
}
}
$_tot = number_format($tot);
fwrite($f, $grs);
fwrite($f, str_pad("Total {$strtotal} : ", 68, ' ', STR_PAD_LEFT) . str_pad($_tot, 15, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, $grs);
fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 60) . str_pad("Akhir Laporan", 100) . $_lf);
fwrite($f, chr(27) . chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, 'keu.lap');
}
// *** Parameters ***
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
$hut = GetSetVar('hut', -1);
$prid = GetSetVar('prid');
$prodi = GetSetVar('prodi');
$tahun = GetSetVar('tahun');
$status = GetSetVar('status', 'A');
// *** Main ***
TampilkanJudul("Daftar Mahasiswa yang Berhutang/Lebih Bayar");
TampilkanTahunProdiProgram('keu.lap.mhswhutang', '', '', '', 1);
TampilkanStatus();
if (!empty($tahun)) {
TampilkanLaporan();
}
$hal++;
$brs = 1;
fwrite($f, chr(12) . $_lf);
fwrite($f, $hdr);
}
$w['Alamat'] = str_replace(chr(13), ' ', $w['Alamat']);
$w['Alamat'] = str_replace(chr(10), '', $w['Alamat']);
$isi = str_pad($n . '.', 4, ' ') . ' ' . str_pad($w['MhswID'], 12) . ' ' . str_pad($w['Nama'], 25) . ' ' . str_pad($w['ASEK'], 30, ' ') . ' ' . str_pad($w['Telepon'], 15) . ' ' . str_pad($w['Alamat'], 60, ' ') . str_pad($w['RT'] . '/' . $w['RW'], 14, ' ') . str_pad($w['KodePos'], 12, ' ') . str_pad($w['Kota'], 8, ' ') . $_lf;
fwrite($f, $isi);
}
fwrite($f, $div);
fwrite($f, str_pad('Halaman : ' . $hal . "/" . $jumhal, 10, ' ') . $_lf);
fwrite($f, str_pad("Akhir laporan", 114, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 87, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 27, ' ') . $_lf);
fwrite($f, chr(12) . $_lf);
fclose($f);
TampilkanFileDWOPRN($nmf, "akd.lap");
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
// *** Main ***
TampilkanJudul("Daftar Mahasiswa");
//TampilkanTahunProdiProgram('akd.lap.mhswakd', 'Daftar');
TampilkanTahunProdiProgram('akd.lap.mhswakd', "Daftar", 'status', $_REQUEST['status'], 1);
if (!empty($tahun)) {
Daftar();
}
$Email = sqling($_REQUEST['Handphone']);
$AsalPT = $_REQUEST['AsalPT'];
$ProdiAsalPT = sqling($_REQUEST['ProdiAsalPT']);
$MhswIDAsalPT = sqling($_REQUEST['MhswIDAsalPT']);
$IPKAsalPT = $_REQUEST['IPKAsalPT'] + 0;
$MhswIDAsalPT = sqling($_REQUEST['MhswIDAsalPT']);
$TglSKPenyetaraan = "{$_REQUEST['TglSKPenyetaraan_y']}-{$_REQUEST['TglSKPenyetaraan_m']}-{$_REQUEST['TglSKPenyetaraan_d']}";
$SKPenyetaraan = sqling($_REQUEST['SKPenyetaraan']);
if ($md == 0) {
$s = "update mhswpindahan set Nama='{$Nama}', MhswID='{$MhswID}', BatasStudi='{$BatasStudi}', Alamat='{$Alamat}', Kota='{$Kota}',\n RT='{$RT}', RW='{$RW}', KodePos='{$KodePos}', Propinsi='{$Propinsi}', Negara='{$Negara}',\n Telepon='{$Telepon}', Handphone='{$Handphone}', Email='{$Email}',\n ProdiID='{$_SESSION['prodi']}', ProgramID='{$_SESSION['prid']}', MhswIDAsalPT='{$MhswIDAsalPT}',\n AsalPT='{$AsalPT}', ProdiAsalPT='{$ProdiAsalPT}', MhswIDAsalPT='{$MhswIDAsalPT}', IPKAsalPT='{$IPKAsalPT}',\n LoginEdit='{$_SESSION['_Login']}',TglSKPenyetaraan='{$TglSKPenyetaraan}', SKPenyetaraan='{$SKPenyetaraan}', TanggalEdit=now()\n where MhswPindahanID={$MhswPindahanID} ";
$r = _query($s);
$s0 = "update mhswpindahansetara set MhswID='{$MhswID}' where MhswPindahanID={$MhswPindahanID} ";
$r0 = _query($s0);
} else {
$s = "insert into mhswpindahan\n (TahunID, Nama, MhswID, Alamat, Kota, RT, RW, KodePos, StatusMhswID,\n Propinsi, Negara, Telepon, Handphone,\n Email, AsalPT, ProdiAsalPT, IPKAsalPT,\n ProdiID, ProgramID, MhswIDAsalPT,\n LoginBuat, TanggalBuat)\n values\n ('{$tahun}', '{$Nama}', '{$MhswID}', '{$Alamat}', '{$Kota}', '{$RT}', '{$RW}', '{$KodePos}', 'A',\n '{$Propinsi}', '{$Negara}', '{$Telepon}', '{$Handphone}',\n '{$Email}', '{$AsalPT}', '{$ProdiAsalPT}', '{$IPKAsalPT}',\n '{$_SESSION['prodi']}', '{$_SESSION['prid']}', '{$MhswIDAsalPT}',\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
}
//echo "<pre>$MhswPindahanID</pre>";
echo "<script>window.location = '?mnux=pindahan';</script>";
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$gos = empty($_REQUEST['gos']) ? "DaftarPindahan" : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Pendataan & Penyetaraan Mhsw Pindahan");
TampilkanTahunProdiProgram('pindahan', '');
if (!empty($tahun) && !empty($prodi)) {
$gos();
}
function DaftarJadwal()
{
$s = "select j.*, \r\n time_format(JamMulai, '%H:%i') as JM, time_format(JamSelesai, '%H:%i') as JS,\r\n concat(d.Nama, ', ', d.Gelar) as DSN\r\n from jadwal j\r\n left outer join dosen d on j.DosenID=d.Login\r\n where j.TahunID='{$_SESSION['tahun']}'\r\n and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0\r\n order by j.HariID, j.JamMulai";
$r = _query($s);
$n = 0;
$h = 256;
$hdr = "<tr><th class=ttl>#</th>\r\n <th class=ttl>Jam Kuliah</th>\r\n <th class=ttl>Ruang</th>\r\n <th class=ttl>Kode</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Kelas</th>\r\n <th class=ttl>Jenis</th>\r\n <th class=ttl>SKS</th>\r\n <th class=ttl>Dosen</th>\r\n <th class=ttl>Cetak</th>\r\n </tr>";
echo "<p><table class=box cellspacing=1 cellpadding=4>";
while ($w = _fetch_array($r)) {
$n++;
if ($h != $w['HariID']) {
$h = $w['HariID'];
$hari = GetaField('hari', 'HariID', $w['HariID'], 'Nama');
echo "<tr><td class=ul colspan=15><a name='{$h}'><font size=+1>{$hari}</font></a></td></tr>";
echo $hdr;
}
echo "<tr><td class=inp>{$n}</td>\r\n <td class=ul>{$w['JM']}-{$w['JS']}</td>\r\n <td class=ul>{$w['RuangID']} </td>\r\n <td class=ul>{$w['MKKode']}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['NamaKelas']}</td>\r\n <td class=ul>{$w['JenisJadwalID']}</td>\r\n <td class=ul>{$w['SKS']}</td>\r\n <td class=ul>{$w['DSN']}</td>\r\n <td class=ul align=center><a href='akd.lap.portoperformance.go.php?id={$w['JadwalID']}' target=_blank><img src='img/printer.gif'></a></td>\r\n </tr>";
}
echo "</table></p>";
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$gos = empty($_REQUEST['gos']) ? "DaftarJadwal" : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Daftar Penilaian Porto Folio dan Performance Mahasiswa");
TampilkanTahunProdiProgram('akd.lap.portoperformance');
if (!empty($tahun) && !empty($prodi)) {
$gos();
}
<?php
// Author: Emanuel Setio Dewo
// 30 Januari 2007
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
// *** Main ***
TampilkanJudul("Cek Perubahan Data Pembayaran Mhsw");
TampilkanTahunProdiProgram('_cek_perubahan_data_pembayaran', '');
// Tampilkan pesan
echo "<p>Berikut adalah daftar perubahan yg terjadi di pembayaran mhsw. <input type=button name='Cetak' value='Cetak' onClick='window.print()'></p>";
if (!empty($tahun)) {
TampilkanPerubahanData();
}
// *** Functions ***
function TampilkanPerubahanData()
{
$_whrprd = empty($_SESSION['prodi']) ? '' : "and m.ProdiID = '{$_SESSION['prodi']}'";
$s = "select bm.BayarMhswID, bm.MhswID,\r\n bm.BayarMhswRef, bm.TahunID, \r\n bm.TrxID, bm.PMBMhswID, bm.Bank, bm.BuktiSetoran,\r\n\t bm.Tanggal, bm.Jumlah as Jumlah1, bm.JumlahLain as JumlahLain1,\r\n\t bm.Proses, bm.Keterangan, \r\n\t bm.LoginBuat as LoginBuat1, bm.TanggalBuat as TanggalBuat1,\r\n\t bm.LoginEdit as LoginEdit1, bm.TanggalEdit as TanggalEdit1,\r\n\t \r\n bmc.BayarMhswID, \r\n\t bmc.Jumlah as Jumlah2, bmc.JumlahLain as JumlahLain2,\r\n\t bmc.LoginBuat as LoginBuat2, bmc.TanggalBuat as TanggalBuat2,\r\n\t bmc.LoginEdit as LoginEdit2, bmc.TanggalEdit as TanggalEdit2,\r\n\t m.Nama as NamaMhsw\r\n from bayarmhsw bm\r\n\t inner join bayarmhswcek bmc on bm.BayarMhswID=bmc.BayarMhswID\r\n\t inner join mhsw m on bmc.MhswID=m.MhswID\r\n\twhere bm.TahunID='{$_SESSION['tahun']}'\r\n\t {$_whrprd}\r\n\t and (bm.Jumlah <> bmc.Jumlah or bm.JumlahLain <> bmc.JumlahLain)\r\n\torder by bm.MhswID";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1>";
echo "<tr><th class=ttl rowspan=2>#</th>\r\n\t<th class=ttl rowspan=2>NPM/Nama Mhsw</th>\r\n\t<th class=ttl rowspan=2>Keterangan</th>\r\n\t<th class=ttl colspan=2>Data Sekarang</th>\r\n\t<th class=ttl rowspan=2>»</th>\r\n\t<th class=ttl colspan=2>Data Asli</th>\r\n\t<th class=ttl colspan=2>Pembuat Transaksi</th>\r\n\t<th class=ttl colspan=2>Pembuat Perubahan</th>\r\n\t</tr>";
echo "<tr><th class=ttl>Jumlah</th>\r\n <th class=ttl>Lain2</th>\r\n\t<th class=ttl>Jumlah</th>\r\n\t<th class=ttl>Lain2</th>\r\n\t<th class=ttl>Oleh</th>\r\n\t<th class=ttl>Tgl</th>\r\n\t<th class=ttl>Oleh</th>\r\n\t<th class=ttl>Tgl</th>\r\n\t</tr>";
while ($w = _fetch_array($r)) {
$n++;
$c = "class=ul";
$Jumlah1 = number_format($w['Jumlah1']);
$JumlahLain1 = number_format($w['JumlahLain1']);
$Jumlah2 = number_format($w['Jumlah2']);
$brs++;
if ($brs > $maxbrs) {
fwrite($f, $div);
fwrite($f, str_pad('Halaman : ' . $hal . "/" . $jumhal, 10, ' ') . $_lf);
$hal++;
$brs = 1;
fwrite($f, chr(12));
fwrite($f, $hdr);
}
$CUTI = GetArrayTable("select TahunID from khs where MhswID='{$w['MhswID']}' and StatusMhswID='C' order by TahunID", 'TahunID', 'TahunID');
$isi = str_pad($n . '.', 4, ' ') . ' ' . str_pad($w['MhswID'], 12) . ' ' . str_pad($w['Nama'], 25) . ' ' . str_pad($w['TotalSKS'], 4, ' ') . str_pad($w['IPK'], 5) . ' ' . str_pad($w['BatasStudi'], 6, ' ') . $CUTI . $_lf;
fwrite($f, $isi);
}
fwrite($f, $div);
fwrite($f, str_pad('Halaman : ' . $hal . "/" . $jumhal, 10, ' ') . $_lf);
fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 87, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 27, ' ') . $_lf);
fwrite($f, str_pad("Akhir laporan", 114, ' ', STR_PAD_LEFT));
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, "akd.lap");
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
// *** Main ***
TampilkanJudul("Daftar Mahasiswa Cuti Kuliah");
TampilkanTahunProdiProgram('akd.lap.mhswcuti', 'Daftar');
if (!empty($tahun)) {
Daftar();
}
while ($w = _fetch_array($r)) {
$n++;
$optmetode = GetOptionPenilaian($arrmetode, $w['Penilaian'], 'Penilaian');
$c = $w['Final'] == 'Y' ? 'class=nac' : 'class=ul';
$donlot = $w['Final'] == 'Y' ? " " : "<a href='jadwal.disket.sav.php?gos=DownloadFileNilai&JadwalID={$w['JadwalID']}&LGN={$_SESSION['_Login']}&KodeID={$_SESSION['KodeID']}'><img src='img/disket.gif'></a>";
echo "<tr><td class=inp>{$n}</td>\r\n\t <td {$c}>{$w['DSN']}</td>\r\n\t <td {$c}>{$w['MKKode']}</td>\r\n\t <td {$c}>{$w['Nama']}</td>\r\n\t <td {$c}>{$w['NamaKelas']}</td>\r\n\t <td {$c} align=right>{$w['SKS']}</td>\r\n\t <td {$c}>{$w['RuangID']}</td>\r\n\t <td {$c}>{$w['HR']}</td>\r\n\t <td {$c}>{$w['JamMulai']}~{$w['JamSelesai']}</td>\r\n\t \r\n\t <form action='jadwal.disket.sav.php' method=POST target=_blank>\r\n\t <input type=hidden name='JadwalID' value='{$w['JadwalID']}'>\r\n\t <input type=hidden name='gos' value='SimpanPenilaian'>\r\n\t <td class=ul>{$optmetode}</td>\r\n\t </form>\r\n\t <td class=ul align=center><a href='cetak/cetak.label.disket.php?JadwalID={$w['JadwalID']}&tahun={$_SESSION['tahun']}&prodi={$_SESSION['prodi']}&prid={$_SESSION['prid']}&asal=1' title='Cetak Label Disket'>Label</a></td>\r\n\t <td class=ul align=center>{$donlot}</td>\r\n\t <td class=ul align=center><a href=prg/isinilai.exe>Prg</a></td>\r\n\t </tr>";
}
echo "</table></p>";
}
function GetOptionPenilaian($arr, $def, $key)
{
$a = '';
for ($i = 0; $i < sizeof($arr); $i++) {
$val = $arr[$i];
$sel = $val == $def ? 'selected' : '';
$a .= "<option value='{$val}' {$sel}>{$val}</option>";
}
return "<select name='{$key}' onChange='this.form.submit()'>{$a}</select>";
}
// *** Parameters ***
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
$gos = empty($_REQUEST['gos']) ? 'DftrJdwl' : $_REQUEST['gos'];
// *** Main ***
$NTahun = NamaTahun($tahun);
TampilkanJudul("Penjadwalan Kuliah {$NTahun}");
TampilkanTahunProdiProgram('jadwal.disket', '');
if (!empty($_SESSION['prodi']) && !empty($_SESSION['prid']) && !empty($_SESSION['KodeID']) && !empty($tahun)) {
$gos();
}
fwrite($f, str_pad('Halaman : ' . $hal . "/" . $jumhal, 10, ' ') . $_lf);
fwrite($f, chr(12));
fwrite($f, $hdr);
}
fwrite($f, str_pad($n, 5) . str_pad($w['Login'], 10) . str_pad($w['DSN'], 44) . str_pad($w['STTDSN'], 10) . $_lf);
}
fwrite($f, $grs);
$_n = number_format($n);
fwrite($f, "Jumlah dosen: {$_n} orang" . $_lf);
fwrite($f, str_pad('Halaman : ' . $hal . "/" . $jumhal, 10, ' ') . $_lf);
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, 'akd.lap');
}
function FilterStatus()
{
$statdos = GetOption2('statusdosen', "concat(StatusDosenID, ' - ', Nama)", 'StatusDosenID', $_SESSION['statusdosen'], '', 'StatusDosenID');
echo "<p><form action='?' method='POST'>\r\n\t\t\t\t<input type='hidden' name='mnux' value='akd.lap.dosenaktif'>\r\n\t\t\t\t<input type='hidden' name='gos' value='DaftarDosenAktif'>\r\n\t\t\t\t<table class=box cellpadding=4 cellspacing=1>\r\n\t\t\t\t<tr><td class=inp>Status Dosen</td><td class=ul><select name=statusdosen onChange='this.form.submit()'>{$statdos}</select></td></tr>\r\n\t\t\t\t</table>\r\n\t\t\t\t</form></p>";
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$statusdosen = GetSetVar('statusdosen');
// *** Main ***
TampilkanJudul("Daftar Dosen Aktif Mengajar");
TampilkanTahunProdiProgram('akd.lap.dosenaktif', 'DaftarDosenAktif');
FilterStatus();
if (!empty($tahun)) {
DaftarDosenAktif();
}
<?php
// Author: SIAKAD TEAM
// 24 Jan 2007
TampilkanJudul("Cek Tagihan KRS Mahasiswa");
TampilkanTahunProdiProgram('_cek_tagihan_doble', '');
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$gos = empty($_REQUEST['gos']) ? "TampilkanTagihanKRSMhsw" : $_REQUEST['gos'];
$gos();
// *** Main ***
// Tampilkan pesan
echo "<p>Tabel berikut ini membandingkan SKS yang diambil di KRS (tabel: krstemp) dengan\r\n jumlah SKS yang ditagihkan ke mhsw (tabel: bipotmhsw).\r\n Jika jumlah SKS-nya tidak sama, maka baris akan ditampilkan dengan warna merah. \r\n Jika jumlah SKS-nya sama, maka baris akan ditampilkan dengan warna putih. <input type=button name='Cetak' value='Cetak' onClick='window.print()'></p>";
if (!empty($tahun) && !empty($prodi)) {
TampilkanTagihanKRSMhsw(5);
}
// *** Functions ***
function TampilkanTagihanKRSMhsw($BNID)
{
$s = "select MhswID, bn.Nama as NamaTagihan, bm.BipotMhswID as BIPOTID, bm.Dibayar as Bayar\r\n from bipotmhsw bm\r\n left outer join bipotnama bn on bn.BipotNamaID = bm.BipotNamaID\r\n where bm.TahunID='{$_SESSION['tahun']}'\r\n and left(MhswID, 2)='{$_SESSION['prodi']}'\r\n and bn.BipotNamaID = '35'\r\n order by MhswID";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>NPM</th>\r\n <th class=ttl>JUM</th>\r\n <th class=ttl>Nama Tagihan</th>\r\n <th class=ttl>Bayar</th>\r\n <th class=ttl>Delete</th>\r\n </tr>";
$c = "class=ul";
while ($w = _fetch_array($r)) {
$n++;
$jum = GetaField('bipotmhsw', "TahunID = '{$_SESSION['tahun']}' and BipotNamaID = '35' and MhswID", $w['MhswID'], 'count(MhswID)');
if ($jum == 1) {
$c = "class=wrn";
}
//var_dump($arrAda);
if (count($arrAda) == $_SESSION['banyak']) {
$n++;
$brs++;
if ($brs > $maxbrs) {
$hal++;
$brs = 1;
$isi .= $div;
$isi .= chr(12);
$isi .= $hdr;
}
$isi .= str_pad($n . '.', 4, ' ') . ' ' . str_pad($mhsw['MhswID'], 12) . ' ' . str_pad($mhsw['Nama'], 29) . ' ' . $Tahuns . $_lf;
}
return $isi;
}
//Parameter
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
$angkat = GetSetVar('angkat');
$pilstatus = array(0 => "Bolos~P", 1 => "Cuti~C");
$_pilstatus = GetSetVar('_pilstatus', 0);
$banyak = GetSetVar('banyak', 2);
//Main
TampilkanJudul("Daftar Mahasiswa Cuti atau Bolos Kuliah");
TampilkanTahunProdiProgram('akd.lap.statuscutibolos', 'Daftar');
TampilkanPilihanStatus();
if (!empty($tahun)) {
Daftar();
}
echo "</table></p>";
}
function BuatSumNilai($w)
{
$_ssum = "select GradeNilai, count(GradeNilai) as Jumlah\r\n from krs\r\n where KRSID='{$w['KRSID']}'\r\n group by GradeNilai";
$_rsum = _query($_ssum);
$arrJumlah = array();
while ($_wsum = _fetch_array($_rsum)) {
$_pid = $_wsum['GradeNilai'];
$_jum = $_wsum['Jumlah'];
$arrJumlah[$_pid] = $_jum + 0;
}
return $arrJumlah;
}
function GetArrayNilai($sql, $nilai)
{
$a = array();
$r = _query($sql);
while ($w = _fetch_array($r)) {
$a[] = $w[$nilai];
}
return $a;
}
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
TampilkanJudul("Rekapitulasi Nilai Mahasiswa");
TampilkanTahunProdiProgram('akd.lap.rekapjmlnilai', 'daftar');
if (!empty($tahun) and !empty($prodi)) {
daftar();
}
$prodi = empty($strprodi) ? '' : GetArrayTable("select Nama from prodi where ProdiID in ({$strprodi}) order by ProdiID", "ProdiID", "Nama", ', ');
} else {
$prodi = '';
}
$nmprodi = GetaField('prodi', 'ProdiID', $_prodi, 'Nama');
echo "<tr><td class=ul colspan=15><b>{$prodi}</b></td></tr>";
echo $hdr;
}
// Ambil data dosen
if (!empty($w['DosenID'])) {
$arrdosen = explode('.', TRIM($w['DosenID'], '.'));
$strdosen = implode(',', $arrdosen);
$dosen = empty($strdosen) ? '' : GetArrayTable("select concat('» ', Nama) as NM from dosen where Login in ({$strdosen}) order by Nama", "Login", "NM", '<br /> ');
} else {
$dosen = '';
}
$c = "class=ul";
echo "<tr><td class=inp>{$nmr}</td>\r\n\t <td {$c} nowrap>{$w['MKKode']}</td>\r\n\t\t<td {$c}>{$w['Nama']}</td>\r\n\t\t<td {$c}>{$w['NamaKelas']} </td>\r\n\t\t<td {$c}>{$w['SKS']} ({$w['SKSAsli']})</td>\t\t\r\n\t\t<td {$c}>{$w['ProgramID']}</td>\r\n\t\t<td {$c}>{$w['RuangID']}</td>\r\n\t\t<td {$c}>{$w['HR']}</td>\r\n\t\t<td {$c}>{$w['JM']}~{$w['JS']}</td>\r\n\t\t<td {$c}>{$dosen} </td>\r\n\t\t<td {$c}> </td>\r\n\t\t<td {$c}> </td>\r\n\t\t<td {$c}> </td>\r\n\t\t<td {$c}> </td>\r\n\t\t</tr>";
}
echo "</table></p>";
}
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prid = GetSetVar('prid');
$prodi = GetSetVar('prodi');
$gos = empty($_REQUEST['gos']) ? 'DftrDsn' : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Honor Dosen");
TampilkanTahunProdiProgram("dosen.honor", "DftrDsn", '', '');
$gos();
$nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
$mxc = 80;
$mxb = 50;
$grs = str_pad('-', $mxc, '-') . $_lf;
$_prd = empty($_SESSION['prodi']) ? "Semua" : GetaField("prodi", 'ProdiID', $_SESSION['prodi'], 'Nama');
$hdr = str_pad("Daftar SK Koreksi Nilai {$_SESSION['tahun']}", $mxc, ' ', STR_PAD_BOTH) . $_lf . str_pad("Program Studi: {$_prd} ({$_SESSION['prodi']})", $mxc, ' ', STR_PAD_BOTH) . $_lf . $grs . str_pad("No.", 5) . str_pad("Nomer SK", 25) . str_pad("N P M", 15) . str_pad("Nama Mahasiswa", 26) . str_pad("Lama", 5) . str_pad("Baru", 5) . $_lf . $grs;
fwrite($f, $hdr);
$whr = empty($_SESSION['prodi']) ? "" : "and m.ProdiID='{$_SESSION['prodi']}' ";
$s = "select kn.*, LEFT(m.Nama, 25) as Nama, \r\n m.ProdiID, m.ProgramID, mk.MKKode, mk.Nama as NamaMK\r\n from koreksinilai kn\r\n left outer join mhsw m on kn.MhswID=m.MhswID\r\n left outer join mk mk on kn.MKID=mk.MKID\r\n where kn.TahunID='{$_SESSION['tahun']}'\r\n {$whr}\r\n order by SK";
$r = _query($s);
$n = 0;
while ($w = _fetch_array($r)) {
$n++;
fwrite($f, str_pad($n, 5) . str_pad($w['SK'], 25) . str_pad($w['MhswID'], 15) . str_pad($w['Nama'], 26) . str_pad($w['GradeLama'], 5) . str_pad($w['GradeNilai'], 5) . $_lf);
}
fwrite($f, $grs);
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, 'akd.lap');
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
// *** Main ***
TampilkanJudul("Daftar Koreksi Nilai Mahasiswa");
TampilkanTahunProdiProgram('akd.lap.koreksinilai', 'KoreksiNilai');
if (!empty($tahun)) {
KoreksiNilai();
}
} else {
$_n = '';
$_pmbid = '';
$_nama = '';
$TBIA = '';
}
$TotalBayar += $w['Jumlah'];
$TBYR = number_format($w['Jumlah']);
$Tgl = FormatTanggal($w['Tanggal']);
$isi = str_pad($_n, 4, ' ') . ' ' . str_pad($_pmbid, 12, ' ') . ' ' . str_pad($_nama, 25) . ' ' . str_pad($w['MhswID'], 15, ' ') . ' ' . str_pad($Tgl, 12) . ' ' . str_pad($TBIA, 15, ' ', STR_PAD_LEFT) . ' ' . str_pad($TBYR, 15, ' ', STR_PAD_LEFT);
fwrite($f, $isi . $_lf);
}
fwrite($f, $div);
$_TotalBiaya = number_format($TotalBiaya);
$_TotalBayar = number_format($TotalBayar);
fwrite($f, str_pad('Total :', 72, ' ', STR_PAD_LEFT) . ' ' . str_pad($_TotalBiaya, 15, ' ', STR_PAD_LEFT) . ' ' . str_pad($_TotalBayar, 15, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, $div);
fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 100) . str_pad("Akhir Laporan", 100) . $_lf);
fclose($f);
TampilkanFileDWOPRN($nmf, "keu.lap");
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
// *** Main ***
TampilkanJudul("Daftar Pembayaran Mahasiswa");
TampilkanTahunProdiProgram('keu.lap.barubayar', 'Daftar');
if (!empty($tahun)) {
Daftar();
}
<td class=ul><input type=text name='DariNPM' value='$_SESSION[DariNPM]' size=20 maxlength=50></td>
<td class=inp>Sampai NPM :</td>
<td class=ul><input type=text name='SampaiNPM' value='$_SESSION[SampaiNPM]' size=20 maxlength=50></td>
<td class=ul><input type=radio name=alamat value=1 $chck1>Alamat <input type=radio name=alamat value=0 $chck2>Tanpa Alamat</td>
<td class=ul><input type=submit Name='Cetak' value='Cetak'></td>
</form></table></p>
</td></tr>
</table></p>";
}
//Parameter
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$alamat = GetSetVar('alamat', 1);
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
//Tampilkan
TampilkanJudul('Cetak Label');
TampilkanTahunProdiProgram('cetak.label', '');
//$gos = (empty($_SESSION['gos']))
if (!empty($_SESSION['tahun']) && !empty($_SESSION['prodi']) && !empty($_SESSION['prid'])) {
TampilkanJenisLabel();
//CetakLabelJadwal();
}
?>
// ambil detail biaya
$sb = "select BIPOTNamaID, (Jumlah*Besar)+0 as JML from bipotmhsw \r\n where MhswID='{$w['MhswID']}' and TahunID='{$_SESSION['tahun']}'\r\n and BIPOTNamaID in ({$whr_bn_id})";
$rb = _query($sb);
$TOT1 = 0;
$bn_mhsw = array();
while ($wb = _fetch_array($rb)) {
$bn_mhsw[$wb['BIPOTNamaID']] = $wb['JML'];
$TOT1 += $wb['JML'] + 0;
}
$bn_str = '';
for ($i = 0; $i < sizeof($bn_id); $i++) {
$jml = $bn_mhsw[$bn_id[$i]];
$bn_tot[$i] += $jml;
$bn_str .= "<td class=ul align=right>" . number_format($jml) . "</td>";
}
$TOTS += $TOT1;
$bn_str .= "<td class=inp1 align=right> " . number_format($TOT1) . "</td>";
// tampilkan
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>{$w['AmbilSKS']}</td>\r\n <td {$cips} align=right>{$w['IPS']}</td>\r\n <td class=ul align=right>{$w['TotalSKS']}</td>\r\n <td {$cipk} align=right>{$w['IPK']}</td>\r\n {$bn_str}\r\n </tr>";
}
// Tampilkan Total
echo "<tr><td class=ul colspan=7 align=right><b>TOTAL :</td>";
foreach ($bn_tot as &$tot) {
echo "<td class=ul align=right><b>" . number_format($tot) . "</td>";
}
echo "<td class=inp1 align=right><font size=+1>" . number_format($TOTS) . "</td>";
echo "</table></p>";
}
//TampilkanPilihanProdiProgram('beasiswa', '');
TampilkanTahunProdiProgram('beasiswa', '');
TampilkanFilterIPKIPS('beasiswa');
include_once "sisfokampus.php";
HeaderSisfoKampus("Mengecek Pembayaran Bahasa Inggris");
// *** Functions ***
function DaftarJadwal()
{
$s = "select KRSID, GradeNilai from krs where\r\n MhswID = '241996029'\r\n order by krs.TahunID";
$r = _query($s);
echo "<p>Berikut adalah daftar jadwal tahun: {$_SESSION['tahun']}, Prodi: {$_SESSION['prodi']}</p>";
echo "<ol>";
while ($w = _fetch_array($r)) {
$Bobot = GetaField("Nilai", "Nama", $w['GradeNilai'], "Bobot");
$sx = "update krs set BobotNilai={$Bobot} where KRSID={$w['KRSID']} ";
$rx = _query($sx);
}
echo "</ol>";
}
// *** Parameters ***
$arrID['Kode'] = 'UKRIDA';
$_SESSION['KodeID'] = 'UKRIDA';
$_SESSION['_ProdiID'] = '10,21,22,24,31,32,41,50,99';
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$gos = $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Import Pembayaran dari Tabel _pembayaran");
TampilkanTahunProdiProgram('', 'DaftarJadwal');
if (!empty($gos)) {
$gos();
}
$_SESSION['_ProdiID'] = '';
}
if ($nmmk != $w['Nama']) {
$nmmk = $w['Nama'];
$_nmmk = $nmmk;
} else {
$_nmmk = '';
}
if ($n_ != $n2) {
$n_ = $n2;
$_n_ = $n_ . ".";
} else {
$_n_ = '';
}
$isi .= str_pad($_n_, 4) . str_pad($_kdmk, 8) . str_pad($_nmmk, 40) . str_pad($w['NamaKelas'], 6) . str_pad($w['Jumlah'], 22, ' ', STR_PAD_LEFT) . str_pad($w['JumlahMhsw'], 26, ' ', STR_PAD_LEFT) . $_lf;
}
fwrite($f, $isi);
fwrite($f, $div);
fwrite($f, str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, str_pad('Dicetak oleh : ' . $_SESSION['_Login'], 85, ' ') . str_pad('Dibuat : ' . date("d-m-Y H:i"), 29, ' '));
fwrite($f, chr(12));
fclose($f);
echo "</table></p>";
}
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
TampilkanJudul("Rekapitulasi Jumlah Mahasiswa Terdaftar KRS");
TampilkanTahunProdiProgram('akd.lap.rekapmhswkrs', 'daftar');
if (!empty($tahun) and !empty($prodi)) {
daftar();
}
$r = _query($s);
DftrJdwl();
} else {
$s = "insert into jadwal (JadwalRef, ProdiID, ProgramID, KodeID, TahunID,\r\n NamaKelas, MKID, JadwalJenisID, MKKode, Nama,\r\n HariID, JamMulai, JamSelesai,\r\n SKSAsli, SKS, DosenID,\r\n RencanaKehadiran, RuangID,\r\n HargaStandar, Harga, NA)\r\n values ('{$JadwalRef}', '{$ProdiID}', '{$ProgramID}', '{$KodeID}', '{$TahunID}',\r\n '{$NamaKelas}', '{$MKID}', '{$JadwalJenisID}', '{$MKKode}', '{$Nama}',\r\n '{$HariID}', '{$JamMulai}', '{$JamSelesai}',\r\n '{$SKSAsli}', '{$SKS}', '{$DosenID}',\r\n '{$RencanaKehadiran}', '{$RuangID}',\r\n '{$HargaStandar}', '{$Harga}', '{$NA}') ";
$r = _query($s);
TampilkanPesan("Sudah Disimpan. <hr size=1 color=silver>");
DftrJdwl();
}
}
function TampilkanPesan($msg)
{
echo <<<EOF
<SCRIPT LANGUAGE="JavaScript1.2">
win2 = window.open("pesan.html.php?Pesan={$msg}", "", "width=600, height=600, scrollbars, status");
win2.creator = self;
</SCRIPT>
EOF;
}
// *** Parameters ***
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
//$tahun = GetaField('tahun', "KodeID='$_SESSION[KodeID]' and ProgramID='$prid' and NA='N' and ProdiID", $prodi, 'TahunID');
//$_SESSION['tahun'] = $tahun;
$gos = empty($_REQUEST['gos']) ? 'DftrJdwl' : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Penjadwalan Kuliah {$thnid}");
TampilkanTahunProdiProgram('jadwal', '');
if (!empty($_SESSION['prodi']) && !empty($_SESSION['prid']) && !empty($_SESSION['KodeID']) && !empty($tahun)) {
$gos();
}
$isi .= str_pad($w['SKS'], 2, ' ', STR_PAD_LEFT) . ' ';
$isi .= str_pad($w['TanggalDispensasi'], 12, ' ', STR_PAD_LEFT) . ' ';
$isi .= str_pad($Catatan, 30, ' ') . ' ';
$isi .= $_lf;
fwrite($f, $isi);
}
$hal++;
fwrite($f, $div);
fwrite($f, str_pad("Dicetak oleh: " . $_SESSION['_Login'] . ', ' . date("d-m-Y H:i"), 50, ' '));
//str_pad("(Akhir Laporan) Hal. : ".$hal.'/'.$jumhal, 100, ' ', STR_PAD_LEFT));
// Tutup & tampilkan
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, 'akd.lap');
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$DariNPM = GetSetVar('DariNPM');
$SampaiNPM = GetSetVar('SampaiNPM');
// *** Main ***
TampilkanJudul("Daftar KRS Mahasiswa Yang Dispensasi");
//TampilkanTahunProdiProgram('akd.lap.krsmhsw', 'DftrAkdLapKRSMhsw');
TampilkanTahunProdiProgram('akd.lap.krsmhsw.dispen', 'DftrAkdLapKRSMhswDispen', '', '', 1);
if (!empty($tahun)) {
DftrAkdLapKRSMhswDispen();
}
?>
<?php
// Author: SIAKAD TEAM
// 17/01/2007, setio.dewo@gmail.com
// Desc: Untuk memblokir pencetakan LRS bagi mahasiswa dengan catatan tertentu
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prid = GetSetVar('prid');
$prodi = GetSetVar('prodi');
$BlokNPM = GetSetVar('BlokNPM');
$gos = empty($_REQUEST['gos']) ? 'TampilkanDaftarBlok' : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Blok Pencetakan LRS/Blanko");
TampilkanTahunProdiProgram($_SESSION['mnux'], '');
TampilkanBlokNPM();
if (!empty($tahun)) {
if (!empty($gos)) {
$gos();
}
//TampilkanDaftarBlok();
}
// *** Functions ***
function TampilkanBlokNPM()
{
echo "<p><table class=box cellspacing=1>\r\n <form action='?' method=POST>\r\n <input type=hidden name='mnux' value='{$_SESSION['mnux']}'>\r\n <input type=hidden name='gos' value='BlokNPM'>\r\n <tr><td class=inp>Blok NPM :</td>\r\n <td class=ul><input type=text name='BlokNPM' value='{$_SESSION['BlokNPM']}' size=20 maxlength=50></td>\r\n <td class=inp>Keterangan Blok :</td>\r\n <td class=ul><input type=text name='KeteranganBlok' size=40 maxlength=100></td>\r\n <td class=ul><input type=submit name='Blok' value='Blok'></td></tr>\r\n </form></table></p>";
}
function BlokNPM()
{
$BlokNPM = $_REQUEST['BlokNPM'];
$KeteranganBlok = $_REQUEST['KeteranganBlok'];
$s = "update khs set Blok='Y', KeteranganBlok='{$KeteranganBlok}'\r\n where TahunID='{$_SESSION['tahun']}'\r\n and MhswID='{$BlokNPM}' ";
<?php
// Author: Emanuel Setio Dewo
// 24 Jan 2007
// *** Parameters ***
$tahun = GetSetVar('tahun');
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
// *** Main ***
TampilkanJudul("Cek Tagihan KRS Mahasiswa");
TampilkanTahunProdiProgram('_cek_tagihan_krs', '');
// Tampilkan pesan
echo "<p>Tabel berikut ini membandingkan SKS yang diambil di KRS (tabel: krstemp) dengan\r\n jumlah SKS yang ditagihkan ke mhsw (tabel: bipotmhsw).\r\n Jika jumlah SKS-nya tidak sama, maka baris akan ditampilkan dengan warna merah. \r\n Jika jumlah SKS-nya sama, maka baris akan ditampilkan dengan warna putih. <input type=button name='Cetak' value='Cetak' onClick='window.print()'></p>";
if (!empty($tahun) && !empty($prodi)) {
TampilkanTagihanKRSMhsw(5);
}
// *** Functions ***
function TampilkanTagihanKRSMhsw($BNID)
{
$s = "select k.KHSID, k.MhswID, m.Nama, sum(k.SKS) as JmlSKS\r\n from krstemp k\r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n left outer join jadwal j on k.JadwalID=j.JadwalID\r\n where k.TahunID='{$_SESSION['tahun']}'\r\n and m.ProdiID='{$_SESSION['prodi']}'\r\n and k.NA='N'\r\n and j.JenisJadwalID='K'\r\n and j.JadwalSer=0\r\n group by k.MhswID";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>NPM</th>\r\n <th class=ttl>Nama Mhsw</th>\r\n <th class=ttl>SKS<br />Temp</th>\r\n <th class=ttl>SKS<br />Tagih</th>\r\n <th class=ttl>Rupiah<br />Tagih</th>\r\n <th class=ttl>Total</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$jml = GetFields('bipotmhsw', "MhswID='{$w['MhswID']}' and TahunID='{$_SESSION['tahun']}' and BIPOTNamaID", $BNID, "Jumlah, Besar");
$rupiah = number_format($jml['Besar']);
$total = number_format($jml['Besar'] * $jml['Jumlah']);
$c = $jml['Jumlah'] != $w['JmlSKS'] ? 'class=wrn' : 'class=ul';
$link = $jml['Jumlah'] != $w['JmlSKS'] ? "<a href='cetak/krs.cetak.php?khsid={$w['KHSID']}&prn=1'>{$w['MhswID']}</a>" : $w['MhswID'];
echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td {$c}>{$link}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c} align=right>{$w['JmlSKS']}</td>\r\n <td {$c} align=right>{$jml['Jumlah']}</td>\r\n <td {$c} align=right>{$rupiah}</td>\r\n <td {$c} align=right>{$total}</td>\r\n </tr>";
// Update KRSPRA
$s = "update krspra set OKE='Y' where KRSID='{$KRSID}' ";
$r = _query($s);
// insert KRS
$s = "insert into krs (KHSID, MhswID, TahunID,\r\n JadwalID, MKID, MKKode, SKS, HargaStandar, Harga,\r\n LoginBuat, TanggalBuat)\r\n values ('{$k['KHSID']}', '{$k['MhswID']}', '{$k['TahunID']}',\r\n '{$k['JadwalID']}', '{$k['MKID']}', '{$k['MKKode']}', {$k['SKS']}, '{$k['HargaStandar']}', '{$k['Harga']}',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
$KRS = GetLastID();
// insert bipotmhsw
$s1 = "insert into bipotmhsw (BIPOTMhswRef, PMBMhswID, MhswID, TahunID,\r\n Nama, TrxID, Jumlah, Besar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values ({$KRS}, 1, '{$k['MhswID']}', '{$k['TahunID']}',\r\n '{$k['MKKode']}', 1, 1, '{$k['Harga']}', 'KLINIK',\r\n '{$_SESSION['_Login']}', now())";
$r1 = _query($s1);
// Jumlah mhsw
$jml = GetaField('krs', "JadwalID", $JadwalID, "count(KRSID)") + 0;
$sx = "update jadwal set JumlahMhsw={$jml} where JadwalID='{$JadwalID}' ";
$rx = _query($sx);
// Update jumlah mhsw
UpdateJumlahMhsw($JadwalID);
}
PraKRS();
}
// *** Parameters ***
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
$JadwalID = GetSetVar('JadwalID');
$gos = empty($_REQUEST['gos']) ? 'DftrJdwl' : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Jadwal Klinik {$tahun}");
TampilkanTahunProdiProgram('jadwal.klinik', '');
if (!empty($_SESSION['prodi']) && !empty($_SESSION['prid']) && !empty($_SESSION['KodeID']) && !empty($tahun)) {
$gos();
}