function DefPil()
{
global $mnux, $pref, $token;
TampilkanPilihanProdi($mnux, '', $pref, "Pil");
if (!empty($_SESSION['prodi'])) {
TampilkanPilihanWajib();
}
}
function DefKur()
{
global $mnux, $pref, $token;
TampilkanPilihanProdi($mnux, '', $pref, "Kur");
if (!empty($_SESSION['prodi'])) {
TampilkanKurikulum();
}
}
function DefMaxSKS()
{
global $mnux, $pref, $token;
TampilkanPilihanProdi($mnux, '', $pref, "MaxSKS");
if (!empty($_SESSION['prodi'])) {
TampilkanMaxSKS();
}
}
function DefJen()
{
global $mnux, $pref, $token;
TampilkanPilihanProdi($mnux, '', $pref, "Jen");
if (!empty($_SESSION['prodi'])) {
TampilkanMenuJen();
TampilkanJenisMK();
}
}
function DefKons()
{
global $mnux, $pref, $token;
TampilkanPilihanProdi($mnux, '', $pref, "Kons");
if (!empty($_SESSION['prodi'])) {
TampilkanMenuKons();
TampilkanKons();
}
}
function DefJenKur()
{
global $mnux, $pref, $token;
TampilkanPilihanProdi($mnux, '', $pref, "Pil");
if (!empty($_SESSION['prodi'])) {
TampilkanMenuJenisKurikulum();
TampilkanJenisKurikulum();
}
}
function Defpred()
{
global $mnux, $pref, $token;
TampilkanPilihanProdi($mnux, '', $pref, "pred");
//TampilkanPilihanProdi($mnux, '', $pref, "MK");
if (!empty($_SESSION['prodi'])) {
//TampilkanMenuPred();
TampilkanPred();
}
}
function DefPkt()
{
global $mnux, $pref, $token;
//TampilkanPilihanKurikulum();
TampilkanPilihanProdi($mnux, '', $pref, "Pkt");
if (!empty($_SESSION['prodi'])) {
TampilkanMenuPaket();
TampilkanPaket();
}
}
$Pangkat = sqling($_REQUEST['Pangkat']);
$Nama = sqling($_REQUEST['Nama']);
$TunjanganFungsional = $_REQUEST['TunjanganFungsional'] + 0;
$TunjanganSKS = $_REQUEST['TunjanganSKS'] + 0;
$TunjanganTransport = $_REQUEST['TunjanganTransport'] + 0;
$TunjanganTetap = $_REQUEST['TunjanganTetap'] + 0;
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
$md = $_REQUEST['md'] + 0;
$balik = "<script>window.location='?mnux=golongan';</script>";
if ($md == 0) {
$s = "update golongan\r\n set Pangkat='{$Pangkat}', Nama='{$Nama}',\r\n TunjanganFungsional={$TunjanganFungsional},\r\n TunjanganSKS={$TunjanganSKS},\r\n TunjanganTransport={$TunjanganTransport},\r\n TunjanganTetap={$TunjanganTetap},\r\n NA='{$NA}'\r\n where GolonganID='{$_GID}' and ProdiID='{$_SESSION['prodi']}' and KategoriID='{$_KID}' ";
$r = _query($s);
echo $balik;
} else {
$ada = GetFields("golongan", "GolonganID='{$_GID}' and KategoriID", $_KID, '*');
if (empty($ada)) {
} else {
echo ErrorMsg("Data sudah Ada", "Data untuk golongan: <font size=+1>{$_GID}</font> dan Kategori: <font size=+1>{$_KID}</font>\r\n sudah ada. Anda tidak boleh memasukkan golongan & kategori ini lebih dari 1 kali.\r\n <hr size=1 color=silver>\r\n Pilihan: <input type=button name='Kembali' value='Kembali' onClick=\"location='?'\">");
}
}
}
// *** Parameters ***
$prodi = GetSetVar('prodi');
$gos = empty($_REQUEST['gos']) ? "DaftarGolongan" : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Master Golongan");
//TampilkanPilihanProdi($mnux='', $gos='', $pref='', $token='') {
TampilkanPilihanProdi('golongan');
if (!empty($prodi)) {
$gos();
}
function DataCAMAPerProdi()
{
global $_lf, $_maxbaris, $divider, $divider1, $_pmbaktif, $arrID;
TampilkanPilihanProdi('pmblap', 'DataCAMAPerProdi');
$maxcol = 235;
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, chr(27) . chr(15) . chr(27) . chr(77) . chr(15) . chr(27) . chr(108) . chr(5));
$whr = !empty($_SESSION['prodi']) ? "and p.ProdiID='{$_SESSION['prodi']}'" : '';
$s = "select p.PMBID, LEFT(p.Nama, 20) as Nama, p.ProdiID, p.PSSBID, \r\n LEFT(asek.Nama, 50) as AsalSekolah,\r\n LEFT(asek.Kota, 15) as KotaSekolah,\r\n p.Pilihan2,\r\n p.JenisSekolahID, p.NilaiUjian, p.GradeNilai, p.DetailNilai,\r\n p.Kelamin, p.Agama, LEFT(p.Kebangsaan, 3) as BANGSA,\r\n p.TahunLulus, p.StatusAwalID,\r\n LEFT(js.NamaJurusan, 10) as JurusanSekolah,\r\n LEFT(p.Alamat, 60) as Alamat,\r\n LEFT(p.Kota, 25) as Kota,\r\n LEFT(p.Telepon, 15) as Telephone\r\n from pmb p\r\n left outer join asalsekolah asek on p.AsalSekolah=asek.SekolahID\r\n left outer join jurusansekolah js on p.JurusanSekolah=js.JurusanSekolahID\r\n where PMBPeriodID='{$_pmbaktif}' {$whr}\r\n order by p.ProdiID, p.PSSBID, p.PMBID, p.NilaiUjian desc";
$r = _query($s);
$dvd = str_pad('-', $maxcol, '-') . $_lf;
// Buat header
$header .= $_lf . $_lf;
$header .= str_pad($arrID['Nama'], $maxcol, ' ', STR_PAD_BOTH) . $_lf;
$header .= str_pad("Data Calon Mhsw per Program Studi ({$_pmbaktif})", $maxcol, ' ', STR_PAD_BOTH) . $_lf;
$header .= str_pad($tgl, $maxcol, ' ', STR_PAD_LEFT) . $_lf;
$header .= str_pad($_LegendTest, $maxcol, ' ', STR_PAD_LEFT) . $_lf;
$header .= $dvd;
$header .= 'No. ';
$header .= str_pad('No. PMB', 15);
$header .= str_pad('PSSBID', 15);
$header .= str_pad('Nama', 30, ' ');
$header .= "Kel|Agm|WNG|";
$header .= str_pad("Asal Sekolah", 31);
$header .= str_pad("Kota Sek.", 16);
$header .= str_pad("Jurusan", 11);
$header .= 'Alamat ';
$header .= $_lf;
fwrite($f, $header);
fwrite($f, $dvd);
// Buat isinya
$nmr = 0;
$brs = 0;
$max = 45;
//$mrg = ' ';
$prd = '';
$first = true;
while ($w = _fetch_array($r)) {
$brs++;
if ($prd != $w['ProdiID']) {
if (!empty($prd)) {
fwrite($f, $dvd);
fwrite($f, chr(12));
fwrite($f, $header);
fwrite($f, $dvd);
}
//fwrite($f, $dvd);
$prd = $w['ProdiID'];
$NamaProdi = GetaField('prodi', "ProdiID", $prd, 'Nama');
fwrite($f, $NamaProdi . $_lf);
$nmr = 0;
$brs = 0;
$first = false;
}
if ($brs >= $max) {
$brs = 0;
fwrite($f, chr(12));
fwrite($f, $dvd);
fwrite($f, $header);
fwrite($f, $dvd);
}
$nmr++;
//$w['Alamat'] = substr($w['Alamat'], 1, 30);
$w['Alamat'] = str_replace("\n", ' ', $w['Alamat']);
$w['Alamat'] = str_replace("\r", '', $w['Alamat']);
$isi = str_pad($nmr . '.', 5, ' ') . str_pad($w['PMBID'], 15, ' ') . str_pad($w['PSSBID'], 15) . str_pad($w['Nama'], 30, ' ') . str_pad($w['Kelamin'], 4, ' ', STR_PAD_BOTH) . str_pad($w['Agama'], 4, ' ', STR_PAD_BOTH) . str_pad($w['BANGSA'], 4, ' ', STR_PAD_BOTH) . str_pad($w['AsalSekolah'], 30) . ' ' . str_pad($w['KotaSekolah'], 15) . ' ' . str_pad($w['JurusanSekolah'], 10) . ' ' . str_pad($w['Alamat'], 65, ' ') . ' ' . str_pad($w['Kota'], 18) . ' ' . str_pad($w['Telephone'], 15) . $_lf;
fwrite($f, $isi);
}
// Download file
fwrite($f, $dvd);
fwrite($f, "Dicetak Oleh : " . $_SESSION['_Login'] . ', ' . Date("d-m-Y H:i") . $_lf);
fwrite($f, str_pad('Akhir laporan.', $maxcol, ' ', STR_PAD_LEFT));
fclose($f);
TampilkanFileDWOPRN($nmf, 'pmblap');
}
{
$md = $_REQUEST['md'] + 0;
$GolonganID = $_REQUEST['GolonganID'];
$KategoriID = $_REQUEST['KategoriID'];
$Pangkat = $_REQUEST['Pangkat'];
$TunjanganFungsional = $_REQUEST['TunjanganFungsional'] + 0;
$TunjanganSKS = $_REQUEST['TunjanganSKS'] + 0;
$TunjanganTransport = $_REQUEST['TunjanganTransport'] + 0;
$TunjanganTetap = $_REQUEST['TunjanganTetap'] + 0;
$NA = empty($_REQUEST['NA']) ? 'N' : $_REQUEST['NA'];
if ($md == 0) {
$s = "update golongan set Pangkat='{$Pangkat}',\r\n TunjanganFungsional='{$TunjanganFungsional}', TunjanganSKS='{$TunjanganSKS}',\r\n TunjanganTransport='{$TunjanganTransport}', TunjanganTetap='{$TunjanganTetap}',\r\n NA='{$NA}'\r\n where KodeID='{$_SESSION['KodeID']}'\r\n and GolonganID='{$GolonganID}' and KategoriID='{$KategoriID}'\r\n and ProdiID='{$_SESSION['prodi']}' ";
$r = _query($s);
} else {
$ada = GetFields("golongan", "KodeID='{$_SESSION['KodeID']}'\r\n and GolonganID='{$GolonganID}' and KategoriID='{$KategoriID}' and ProdiID", $_SESSION['prodi'], '*');
if (empty($ada)) {
} else {
echo ErrorMsg("Tidak Dapat Disimpan", "Golongan: <b>{$GolonganID}</b> <br />\r\n Kategori: <b>{$KategoriID}</b> <br />\r\n Program Studi: <b>{$_SESSION['prodi']}</b> <br />\r\n Data sudah ada. Tidak dapat disimpan data yang identik.");
}
}
DftrGolongan($_SESSION['prodi']);
}
// *** Parameters ***
$prodi = GetSetVar('prodi');
$gos = empty($_REQUEST['gos']) ? 'DftrGolongan' : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Honor dan Gaji Dosen");
TampilkanPilihanProdi('honorgaji', 'DftrGolongan', '', '');
if (!empty($prodi)) {
$gos($prodi);
}
