function daftar()
{
global $_lf;
$s = "SELECT KRSID, mk.MKKode, mk.Nama, j.NamaKelas \r\n from krs \r\n left outer join mk on krs.MKID = mk.MKID \r\n left outer join jadwal j on krs.JadwalID = j.JadwalID\r\n where krs.tahunid = {$_SESSION['tahun']} and \r\n krs.gradenilai in (select nama from nilai where prodiid = {$_SESSION['prodi']}) \r\n and j.JenisJadwalID = 'K'\r\n and mk.prodiID = {$_SESSION['prodi']} group by krs.MKKode, j.NamaKelas order by mk.MKKode, j.NamaKelas";
$r = _query($s);
// Buat file
$MaxCol = 114;
$nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, chr(27) . chr(15));
$div = str_pad('-', $MaxCol, '-') . $_lf;
$_prodi = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama');
$_prid = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama');
$n = 0;
$hal = 1;
$n2 = 0;
$brs = 0;
$maxbrs = 50;
$jumlahrec = _num_rows($r);
$jumhal = ceil($jumlahrec / $maxbrs);
$arrGrade = GetArrayNilai("select Nama as Grade from Nilai where ProdiID = {$_SESSION['prodi']} order by Bobot DESC", "Grade");
$banyakGrade = sizeof($arrGrade);
$banyakGrade1 = $banyakGrade + 1;
echo "<p><a href='?mnux=akd.lap'>Kembali</a> | <a href=dwoprn.php?f={$nmf}>Cetak Laporan</a></p>";
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr>\r\n <th class=ttl rowspan=2>#</th>\r\n <th class=ttl rowspan=2>Kode</th>\r\n <th class=ttl rowspan=2>Nama</th>\r\n <th class=ttl rowspan=2>Kelas</th>\r\n <th class=ttl colspan={$banyakGrade1}>Grade</th>\r\n </tr>";
for ($i = 0; $i < $banyakGrade; $i++) {
$str = explode('~', $arrGrade[$i]);
$hdrGrd .= "<th class=ttl title='{$str['0']}'>{$str['0']}</th>";
$hdrctk .= str_pad($str[0], 5, ' ', STR_PAD_LEFT);
}
$hdr = str_pad("*** Laporan Rekap Jumlah Nilai Per Prodi ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
$hdr .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf;
$hdr .= "Prodi : {$_prodi}" . $_lf;
$hdr .= "Program : {$_prid}" . $_lf;
$hdr .= $div;
$hdr .= str_pad("NO", 4) . str_pad('KODE', 8) . str_pad('NAMA', 35) . str_pad('KELAS', 6) . $hdrctk . str_pad('TOTAL', 9, ' ', STR_PAD_LEFT) . $_lf . $div;
fwrite($f, $hdr);
echo "<tr>{$hdrGrd}<th class=ttl>TOTAL</td></tr>";
while ($w = _fetch_array($r)) {
$_ssum = "select j.NamaKelas, GradeNilai, count(GradeNilai) as Jumlah\r\n from krs\r\n left outer join jadwal j on j.JadwalID = krs.JadwalID\r\n where krs.MKKode='{$w['MKKode']}' and krs.TahunID = '{$_SESSION['tahun']}' and j.NamaKelas = '{$w['NamaKelas']}'\r\n group by GradeNilai";
$_rsum = _query($_ssum);
$arrJumlah = array();
while ($_wsum = _fetch_array($_rsum)) {
$_kel = $_wsum['NamaKelas'];
$_pid = $_wsum['GradeNilai'];
$_jum = $_wsum['Jumlah'];
$arrJumlah[$_pid] = $_jum + 0;
}
$n++;
/*$brs++;
if($brs > $maxbrs){
fwrite($f, $div);
fwrite($f, str_pad("Hal. : ".$hal.'/'.$jumhal, $maxcol, ' ', STR_PAD_LEFT).$_lf);
$hal++; $brs = 1;
fwrite($f, chr(12).$_lf);
fwrite($f, $hdr);
}*/
$TOTAL = $arrJumlah['A'] + $arrJumlah['A-'] + $arrJumlah['B'] + $arrJumlah['B+'] + $arrJumlah['B-'] + $arrJumlah['C'] + $arrJumlah['C+'] + $arrJumlah['D'] + $arrJumlah['E'];
echo "<tr><td class=ul>{$n}</td><td class=ul>{$w['MKKode']}</td><td class=ul>{$w['Nama']}</td><td class=ul>{$w['NamaKelas']}</td>\r\n <td class=ul align=right>" . ($arrJumlah['A'] + 0) . "</td>\r\n <td class=ul align=right>" . ($arrJumlah['A-'] + 0) . "</td>\r\n <td class=ul align=right>" . ($arrJumlah['B+'] + 0) . "</td>\r\n <td class=ul align=right>" . ($arrJumlah['B'] + 0) . "</td>\r\n <td class=ul align=right>" . ($arrJumlah['B-'] + 0) . "</td>\r\n <td class=ul align=right>" . ($arrJumlah['C'] + 0) . "</td>\r\n <td class=ul align=right>" . ($arrJumlah['C+'] + 0) . "</td>\r\n <td class=wrn align=right>" . ($arrJumlah['D'] + 0) . "</td>\r\n <td class=wrn align=right>" . ($arrJumlah['E'] + 0) . "</td>\r\n <td class=ul align=right>{$TOTAL}</td>\r\n </tr>";
$brs++;
if ($brs > $maxbrs) {
$isi .= $div;
$isi .= str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf;
$hal++;
$brs = 1;
$isi .= chr(12) . $_lf;
$isi .= $hdr;
}
if ($kdmk != $w['MKKode']) {
$kdmk = $w['MKKode'];
$_kdmk = $kdmk;
$n2++;
} else {
$_kdmk = '';
}
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, 35) . str_pad($w['NamaKelas'], 6) . str_pad($arrJumlah['A'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['A-'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['B+'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['B'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['B-'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['C'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['C+'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['D'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($arrJumlah['E'] + 0, 5, ' ', STR_PAD_LEFT) . str_pad($TOTAL, 9, ' ', STR_PAD_LEFT) . $_lf;
//echo "<tr><td colspan=$banyakGrade class=ul>" . ($arrJumlah['A']+0) . "</td></tr>";
}
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 "<td class=ul>$totA</td>
<td class=ul></td>
<td class=ul></td>
<td class=ul></td>
<td class=ul></td>
<td class=ul></td>
<td class=ul></td>
<td class=ul></td>
<td class=ul><td>";*/
echo "</table></p>";
}
function Daftar()
{
global $_lf;
$MaxThn = date('Y');
$MinThn = $MaxThn - 9;
$arrAgama = GetArrayNilai("select concat(Agama, '~', Nama) as NILAI from agama order by Agama", "NILAI");
$arrKelamin = GetArrayNilai("select concat(Kelamin, '~', Nama) as NILAI from kelamin order by Kelamin", "NILAI");
$arrStatus = GetArrayNilai("select concat(StatusMhswID, '~', Nama) as NILAI from statusmhsw where StatusMhswID in ('A', 'C', 'T', 'W') order by StatusMhswID", "NILAI");
$whr = empty($_SESSION['fakid']) ? 'where prd.FakultasID <> 9' : "where prd.FakultasID='{$_SESSION['fakid']}' ";
// Tampilkan
$maxbrs = 4;
$s = "select prd.ProdiID, prd.Nama as PRD,\r\n prd.FakultasID, fak.Nama as FAK\r\n from prodi prd\r\n left outer join fakultas fak on prd.FakultasID=fak.FakultasID\r\n {$whr}\r\n order by prd.FakultasID, prd.ProdiID";
$r = _query($s);
$TOT = 0;
$banyakagama = sizeof($arrAgama);
$banyakkelamin = sizeof($arrKelamin);
$banyakstatus = sizeof($arrStatus);
$hdrkel = '';
for ($i = 0; $i < $banyakkelamin; $i++) {
$str = explode('~', $arrKelamin[$i]);
$hdrkel .= str_pad($str[0], 4, ' ') . ' ';
//"$str[0] ";
}
$hdragm = '';
for ($i = 0; $i < sizeof($arrAgama); $i++) {
$str = explode('~', $arrAgama[$i]);
$hdragm .= str_pad($str[0], 4, ' ') . ' ';
//"$str[0] ";
}
$hdrsta = '';
for ($i = 0; $i < sizeof($arrStatus); $i++) {
$str = explode('~', $arrStatus[$i]);
$hdrsta .= str_pad($str[0], 4, ' ') . ' ';
//"$str[0] ";
}
$isi_ .= str_pad("** DAFTAR MAHASISWA TERDAFTAR KRS **", 108, ' ', STR_PAD_BOTH) . $_lf . $_lf;
$isi_ .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf;
$isi_ .= str_pad('-', 108, '-') . $_lf;
$isi_ .= "PRD ANGKATAN TOTAL KELAMIN AGAMA STATUS" . $_lf;
$isi_ .= " {$hdrkel}| {$hdragm}| {$hdrsta}" . $_lf;
$isi_ .= str_pad('-', 108, '-') . $_lf;
$TOT = 0;
$TOTK = array();
$TOTA = array();
$TOTS = array();
while ($w = _fetch_array($r)) {
$brs++;
if ($brs > $maxbrs) {
$isi_ .= str_pad('-', 108, '-') . $_lf;
$isi_ .= chr(12);
$isi_ .= str_pad("** DAFTAR MAHASISWA TERDAFTAR KRS **", 108, ' ', STR_PAD_BOTH) . $_lf . $_lf;
$isi_ .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf;
$isi_ .= str_pad('-', 108, '-') . $_lf;
$isi_ .= "PRD ANGKATAN TOTAL KELAMIN AGAMA STATUS" . $_lf;
$isi_ .= " {$hdrkel}| {$hdragm}| {$hdrsta}" . $_lf;
$isi_ .= str_pad('-', 108, '-') . $_lf;
$brs = 1;
}
$arrKel1 = $arrKelamin;
$arrAgm1 = $arrAgama;
$arrSta1 = $arrStatus;
$angk = AmbilDataAngkatan($w['ProdiID'], $w['PRD'], $_TOT, $MinThn, $MaxThn, $arrKel1, $arrAgm1, $arrSta1);
$TOT += $_TOT;
for ($i = 0; $i < $banyakkelamin; $i++) {
$TOTK[$i] += $arrKel1[$i];
}
for ($i = 0; $i < sizeof($arrAgama); $i++) {
$TOTA[$i] += $arrAgm1[$i];
}
for ($i = 0; $i < $banyakstatus; $i++) {
$TOTS[$i] += $arrSta1[$i];
}
$isi_ .= $angk;
}
$_TOT = number_format($TOT);
// Tampilkan jumlah total kelamin
$totk = '';
for ($i = 0; $i < $banyakkelamin; $i++) {
$_totk = number_format($TOTK[$i]);
$totk .= str_pad($_totk, 4, ' ', STR_PAD_LEFT) . ' ';
}
// Tampilkan jumlah total agama
$tota = '';
for ($i = 0; $i < $banyakagama; $i++) {
$_tota = number_format($TOTA[$i]);
$tota .= str_pad($_tota, 4, ' ', STR_PAD_LEFT) . ' ';
}
// Tampilkan jumlah total status
$tots = '';
for ($i = 0; $i < $banyakstatus; $i++) {
$_tots = number_format($TOTS[$i]);
$tots .= str_pad($_tots, 4, ' ', STR_PAD_LEFT) . ' ';
}
$isi_ .= str_pad('-', 108, '-') . $_lf;
$isi_ .= "GRAND TOTAL " . str_pad($_TOT, 7, ' ', STR_PAD_LEFT) . ' ' . str_pad($totk, 7, ' ', STR_PAD_LEFT) . ' ' . " {$tota} {$tots}" . $_lf;
$isi_ .= str_pad('-', 108, '-') . $_lf;
$nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, chr(27) . chr(15) . chr(27) . chr(77));
fwrite($f, $isi_);
fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 70, ' ') . str_pad('Dicetak Tanggal : ' . date("d-m-Y H:i"), 10, ' '));
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, "akd.lap.rekapmhsw");
}
function Daftar()
{
$MaxThn = date('Y');
$MinThn = $MaxThn - 9;
$arrAgama = GetArrayNilai("select concat(Agama, '~', Nama) as NILAI from agama order by Agama", "NILAI");
$arrKelamin = GetArrayNilai("select concat(Kelamin, '~', Nama) as NILAI from kelamin order by Kelamin", "NILAI");
$arrStatus = GetArrayNilai("select concat(StatusMhswID, '~', Nama) as NILAI from statusmhsw where StatusMhswID in ('A', 'C', 'T', 'W') order by StatusMhswID", "NILAI");
$whr = empty($_SESSION['fakid']) ? 'where prd.FakultasID <> 9' : "where prd.FakultasID='{$_SESSION['fakid']}' ";
// Tampilkan
$s = "select prd.ProdiID, prd.Nama as PRD,\r\n prd.FakultasID, fak.Nama as FAK\r\n from prodi prd\r\n left outer join fakultas fak on prd.FakultasID=fak.FakultasID\r\n {$whr}\r\n order by prd.FakultasID, prd.ProdiID";
$r = _query($s);
$TOT = 0;
$banyakagama = sizeof($arrAgama);
$banyakkelamin = sizeof($arrKelamin);
$banyakstatus = sizeof($arrStatus);
echo "<p><a href='?mnux=akd.lap'>Kembali</a> | <a href='?mnux=akd.lap.rekapmhsw1&bck=akd.lap'>Cetak</a></p>";
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl rowspan=2>Prd</th>\r\n <th class=ttl rowspan=2>Angkatan</th>\r\n <th class=ttl rowspan=2>Total</th>\r\n <th class=ttl colspan={$banyakkelamin}>Kelamin</th>\r\n <th class=ttl colspan={$banyakagama}>Agama</th>\r\n <th class=ttl colspan={$banyakstatus}>Status</th>\r\n </tr>";
$hdrkel = '';
for ($i = 0; $i < $banyakkelamin; $i++) {
$str = explode('~', $arrKelamin[$i]);
$hdrkel .= "<th class=ttl title='{$str['1']}'>{$str['0']}</th>";
}
$hdragm = '';
for ($i = 0; $i < sizeof($arrAgama); $i++) {
$str = explode('~', $arrAgama[$i]);
$hdragm .= "<th class=ttl title='{$str['1']}'>{$str['0']}</th>";
}
$hdrsta = '';
for ($i = 0; $i < sizeof($arrStatus); $i++) {
$str = explode('~', $arrStatus[$i]);
$hdrsta .= "<th class=ttl title='{$str['1']}'>{$str['0']}</th>";
}
echo "<tr>{$hdrkel} {$hdragm} {$hdrsta}</tr>";
$TOT = 0;
$TOTK = array();
$TOTA = array();
$TOTS = array();
while ($w = _fetch_array($r)) {
$arrKel1 = $arrKelamin;
$arrAgm1 = $arrAgama;
$arrSta1 = $arrStatus;
$angk = AmbilDataAngkatan($w['ProdiID'], $w['PRD'], $_TOT, $MinThn, $MaxThn, $arrKel1, $arrAgm1, $arrSta1);
$TOT += $_TOT;
for ($i = 0; $i < $banyakkelamin; $i++) {
$TOTK[$i] += $arrKel1[$i];
}
for ($i = 0; $i < sizeof($arrAgama); $i++) {
$TOTA[$i] += $arrAgm1[$i];
}
for ($i = 0; $i < $banyakstatus; $i++) {
$TOTS[$i] += $arrSta1[$i];
}
echo $angk;
}
$_TOT = number_format($TOT);
// Tampilkan jumlah total kelamin
$totk = '';
for ($i = 0; $i < $banyakkelamin; $i++) {
$_totk = number_format($TOTK[$i]);
$totk .= "<td class=inp2 align=right><b>{$_totk}</b></td>";
}
// Tampilkan jumlah total agama
$tota = '';
for ($i = 0; $i < $banyakagama; $i++) {
$_tota = number_format($TOTA[$i]);
$tota .= "<td class=inp2 align=right><b>{$_tota}</b></td>";
}
// Tampilkan jumlah total status
$tots = '';
for ($i = 0; $i < $banyakstatus; $i++) {
$_tots = number_format($TOTS[$i]);
$tots .= "<td class=inp2 align=right><b>{$_tots}</b></td>";
}
echo "<tr><td colspan=2 class=inp2 align=right>Grand Total :</td>\r\n <td class=inp2 align=right><b>{$_TOT}</td>\r\n {$totk} {$tota} {$tots}\r\n </tr>";
echo "</tr></table></p>";
}
