// 05/03/2007
// *** Functions ***
function CetakDaftarBPM()
{
if (empty($_SESSION['tahun'])) {
die(ErrorMsg("Tahun Akademik Kosong", "Tentukan Tahun Akademik terlebih dahulu untuk melihat laporan."));
}
$s = "select bm.*, m.Nama\r\n from bayarmhsw bm\r\n left outer join mhsw m on bm.MhswID=m.MhswID\r\n where m.ProdiID='11'\r\n and bm.TahunID='{$_SESSION['tahun']}'\r\n and (bm.Jumlah + bm.JumlahLain) > 0\r\n order by bm.BayarMhswID";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1 cellpadding=4>";
echo "<tr><th class=ttl>#</th>\r\n <th class=ttl>No. BPM</th>\r\n <th class=ttl>Tanggal</th>\r\n <th class=ttl>Keterangan</th>\r\n <th class=ttl>N.P.M</th>\r\n <th class=ttl>Nama Mahasiswa</th>\r\n <th class=ttl>Jumlah</th>\r\n <th class=ttl>Lain2</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$tgl = FormatTanggal($w['Tanggal']);
$jml = number_format($w['Jumlah']);
$jml2 = number_format($w['JumlahLain']);
$c = $w['Proses'] == 1 ? "class=ul" : "class=nac";
$c = $jml + $jml2 > 0 ? $c : "class=nac";
echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td {$c}>{$w['BayarMhswID']}</td>\r\n <td {$c}>{$tgl}</td>\r\n <td {$c}>{$w['Keterangan']}</td>\r\n <td {$c}>{$w['MhswID']}</td>\r\n <td {$c}>{$w['Nama']}</td>\r\n <td {$c} align=right>{$jml}</td>\r\n <td {$c} align=right>{$jml2}</td>\r\n </tr>";
}
echo "</table></p>";
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
// *** Main ***
TampilkanJudul("Daftar BPM Klinik");
TampilkanTahunSaja($_SESSION['mnux'], "CetakDaftarBPM", 'klinik.lap');
if (!empty($_REQUEST['gos'])) {
$_REQUEST['gos']();
}
// *** Functions ***
function CetakKuliahKlinik()
{
$s = "select j.*\r\n from jadwal j\r\n where INSTR(j.ProdiID, '.11.')>0\r\n and j.NamaKelas = 'KLINIK'\r\n order by RuangID, TglMulai, JenisJadwalID, NamaKelas";
$r = _query($s);
$n = 0;
$rg = 'qwertyuiop';
echo "<p><table class=box cellspacing=1>";
$hdr = "<tr><th class=ttl>#</th>\r\n <th class=ttl>Kode</th>\r\n <th class=ttl>Matakuliah</th>\r\n <th class=ttl>Jenis</th>\r\n <th class=ttl>Kelas</th>\r\n <th class=ttl>Mulai</th>\r\n <th class=ttl>Selesai</th>\r\n <th class=ttl>Jml Mhsw</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
if ($rg != $w['RuangID']) {
$rg = $w['RuangID'];
echo "<tr><td class=ul colspan=5><font size=+1>{$w['RuangID']}</font></td></tr>";
echo $hdr;
}
$TM = FormatTanggal($w['TglMulai']);
$TS = FormatTanggal($w['TglSelesai']);
$jml = number_format($w['JumlahMhsw']);
echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td class=ul>{$w['MKKode']}</td>\r\n <td class=ul>{$w['Nama']}</td>\r\n <td class=ul>{$w['JenisJadwalID']}</td>\r\n <td class=ul>{$w['NamaKelas']}</td>\r\n <td class=ul>{$TM}</td>\r\n <td class=ul>{$TS}</td>\r\n <td class=ul align=right>{$jml}</td>\r\n </tr>";
}
echo "</table></p>";
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
// *** Main ***
TampilkanJudul("Daftar Kuliah Klinik");
TampilkanTahunSaja($_SESSION['mnux'], "CetakKuliahKlinik", 'klinik.lap');
if (!empty($_REQUEST['gos'])) {
$_REQUEST['gos']();
}
// Author: Emanuel Setio Dewo
// 05/03/2007
// *** Functions ***
function CetakBelumBayar()
{
if (empty($_SESSION['tahun'])) {
die(ErrorMsg("Tahun Akademik Kosong", "Tentukan Tahun Akademik terlebih dahulu untuk melihat laporan."));
}
$s = "select k.*, m.Nama\r\n from krs k\r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n where k.Harga > k.Bayar\r\n and m.ProdiID = '11'\r\n order by m.MhswID";
$r = _query($s);
$n = 0;
echo "<p><table class=box cellspacing=1>";
echo "<tr><th class=ttl>#</th>\r\n <th class=ttl>N.P.M</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Harga</th>\r\n <th class=ttl>Dibayar</th>\r\n <th class=ttl>Kurang</th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$hrg = number_format($w['Harga']);
$byr = number_format($w['Bayar']);
$krg = $w['Harga'] - $w['Bayar'];
$krg = number_format($krg);
echo "<tr>\r\n <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>{$hrg}</td>\r\n <td class=ul align=right>{$byr}</td>\r\n <td class=ul align=right>{$krg}</td>\r\n </tr>";
}
echo "</table></p>";
}
// *** Parameters ***
$tahun = GetSetVar('tahun');
// *** Main ***
TampilkanJudul("Daftar Mhsw Klinik Belum Bayar");
TampilkanTahunSaja($_SESSION['mnux'], "CetakBelumBayar", 'klinik.lap');
if (!empty($_REQUEST['gos'])) {
$_REQUEST['gos']();
}
