function TampilkanMhsw() { TampilkanPesan(); $s = "select k.*, m.Nama\r\n from khs k\r\n left outer join mhsw m on k.MhswID=m.MhswID\r\n where k.TahunID='{$_SESSION['tahun']}'\r\n and k.Bayar > k.Biaya\r\n order by k.MhswID"; $r = _query($s); $n = 0; echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>NPM</th>\r\n <th class=ttl>Nama</th>\r\n <th class=ttl>Total<br />Biaya</th>\r\n <th class=ttl>Total<br />Bayar</th>\r\n <th class=ttl>BPS</th>\r\n <th class=ttl>SKS</th>\r\n <th class=ttl>BPP+SKS</th>\r\n <th class=ttl>10% Denda</th>\r\n <th class=ttl>Cek</th>\r\n "; while ($w = _fetch_array($r)) { $n++; $_biaya = number_format($w['Biaya']); $_bayar = number_format($w['Bayar']); // BPS = 11, BPP SKS = 5 $_bps = GetaField('bipotmhsw', "TahunID='{$_SESSION['tahun']}' and MhswID='{$w['MhswID']}' and BIPOTNamaID", 11, "Jumlah * Besar"); $_sks = GetaField('bipotmhsw', "TahunID='{$_SESSION['tahun']}' and MhswID='{$w['MhswID']}' and BIPOTNamaID", 5, "Jumlah * Besar"); $_bi2 = $_bps + $_sks; $_bi10 = $_bi2 * 0.1; //$_bi2 + ; $bi2 = number_format($_bi2); $bi10 = number_format($_bi10); //$bpm = GetaField("bayarmhsw", "TahunID='$_SESSION[tahun]' and MhswID='$w[MhswID]' and Jumlah", // $_bi10, "BayarMhswID"); $ketemu = $w['Bayar'] - $w['Biaya'] == $_bi10 ? "Ketemu" : "×"; 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>{$_biaya}</td>\r\n <td class=ul align=right><b>{$_bayar}</td>\r\n <td class=ul align=right>" . number_format($_bps) . "</td>\r\n <td class=ul align=right>" . number_format($_sks) . "</td>\r\n <td class=ul align=right>{$bi2}</td>\r\n <td class=ul align=right>{$bi10}</td>\r\n <td class=ul>{$ketemu}</td>\r\n </tr>"; } echo "</table></p>"; }
function JdwlSav() { $md = $_REQUEST['md']; $JadwalID = $_REQUEST['JadwalID']; $JadwalRef = $_REQUEST['JadwalRef']; $KodeID = $_SESSION['KodeID']; $TahunID = $_SESSION['tahun']; // array prodi $arrProdiID = $_REQUEST['ProdiID']; $ProdiID = empty($arrProdiID) ? '' : '.' . implode('.', $arrProdiID) . '.'; // array program $arrProgramID = $_REQUEST['ProgramID']; $ProgramID = empty($arrProgramID) ? '' : '.' . implode('.', $arrProgramID) . '.'; $NamaKelas = $_REQUEST['NamaKelas']; $MKID = $_REQUEST['MKID']; $matakuliah = GetFields('mk', 'MKID', $MKID, '*'); $JadwalJenisID = $_REQUEST['JadwalJenisID']; $MKKode = $matakuliah['MKKode']; $Nama = $matakuliah['Nama']; $HariID = $_REQUEST['HariID']; $JamMulai = $_REQUEST['JamMulai']; $JamSelesai = $_REQUEST['JamSelesai']; $SKSAsli = $matakuliah['SKS']; $SKS = empty($_REQUEST['SKS']) ? $SKSAsli : $_REQUEST['SKS']; $DosenID = $_REQUEST['DosenID']; $RencanaKehadiran = $_REQUEST['RencanaKehadiran'] + 0; $Kehadiran = $_REQUEST['Kehadiran'] + 0; $JumlahMhsw = $_REQUEST['JumlahMhsw']; $RuangID = $_REQUEST['RuangID']; $HargaStandar = empty($_REQUEST['HargaStandar']) ? 'N' : $_REQUEST['HargaStandar']; $Harga = $_REQUEST['Harga']; $NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA']; // Simpan if ($md == 0) { $s = "update jadwal set JadwalRef='{$JadwalRef}',\r\n ProdiID='{$ProdiID}', ProgramID='{$ProgramID}', NamaKelas='{$NamaKelas}', MKID='{$MKID}',\r\n JadwalJenisID='{$JadwalJenisID}', MKKode='{$MKKode}', Nama='{$Nama}',\r\n HariID='{$HariID}', JamMulai='{$JamMulai}', JamSelesai='{$JamSelesai}',\r\n SKSAsli='{$SKSAsli}', SKS='{$SKS}', DosenID='{$DosenID}',\r\n RencanaKehadiran='{$RencanaKehadiran}', RuangID='{$RuangID}',\r\n HargaStandar='{$HargaStandar}', Harga='{$Harga}', NA='{$NA}'\r\n where JadwalID='{$JadwalID}' "; $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(); } }