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>"; }