function Create($dosenid, $DBFName){
$w = GetFields("dosen d left outer join prodi p on p.ProdiID = d.Homebase", "Login", $dosenid, "d.*, p.ProdiDiktiID, p.JenjangID");
$KDPT = '031010';
$KDJenPT = 'C';
//$w = _fetch_array($r);
$Kelamin = ($w['KelaminID'] == 'W') ? "P" : "L";
$Data = array(
$KDPT,
$w['ProdiDiktiID'],
$w['JenjangID'],
$w['KTP'],
$w['NIDN'],
$w['Nama'],
$w['Gelar'],
$w['TempatLahir'],
$w['TglLahir'],
$Kelamin,
$w['JabatanID'],
$w['JenjangID'],
$w['StatusKerjaID'],
$w['TglLulus'],
$w['TglBekerja'],
$w['NIPPNS'],
$w['Login']
);
InsertDataDBF($DBFName, $Data);
}
function Create($mhswid, $DBFName){
global $arrBulan;
$mhsw = GetFields('mhsw', 'MhswID', $mhswid, "Nama, ProdiID, TempatLahir, date_format(TanggalLahir, '%Y-%m-%e') as TanggalLahir, NoIjazah, date_format(TglSKKeluar, '%Y-%m-%e') as TglSKKeluar, SKKeluar, TahunID");
$ta = GetFields('ta', "NA='N' and MhswID", $mhswid, "date_format(TglSKYudisium, '%Y-%m-%e') as TglSKYudisium");
$PRD = GetFields('prodi', "ProdiID", $mhsw['ProdiID'], "NoSKBAN, date_format(TglSKBAN, '%Y-%m-%e') as TglSKBAN");
$fak = substr($mhsw['ProdiID'], 0, 1);
$Dekan = GetaField('fakultas', "FakultasID", $fak, "Pejabat");
$Rektor = GetaField('pejabat', 'JabatanID', 'REKTOR', 'Nama');
$TglLahir = BuatTanggal($mhsw['TanggalLahir']);
$TglRektor= BuatTanggal($mhsw['TglSKKeluar']);
$TglLLS = BuatTanggal($ta['TglSKYudisium']);
$TglBAN = BuatTanggal($PRD['TglSKBAN']);
$TempatLahir = strtoupper($mhsw['TempatLahir']);
$Data = array(
$mhswid,
'',
$mhsw['Nama'],
$TempatLahir,
$TglLahir,
$mhsw['NoIjazah'],
$TglLLS,
$TglRektor,
$mhsw['SKKeluar'],
$mhsw['TahunID'],
$Rektor,
$Dekan,
$PRD['NoSKBAN'],
$TglBAN,
);
InsertDataDBF($DBFName, $Data);
}
function Create($mhswid, $tahun, $DBFName)
{
$w = GetFields("khs k left outer join prodi p on p.ProdiID = k.ProdiID left outer join mhsw m on m.MhswID=k.MhswID", "k.TahunID = '{$tahun}' and k.MhswID", $mhswid, "k.*, p.ProdiDiktiID, p.JenjangID, m.TotalSKS as TotalSKSAmbil");
//$jumsks = GetaField("krs k left outer join jadwal j on j.JadwalID = k.JadwalID", "MhswID='$mhswid' and j.JenisJadwalID<>'R' and j.JadwalSer=0 and k.JadwalID", $tahun, 'sum(j.SKS)')+0;
$jumsks = GetaField("krsprc", "TahunID <", $tahun, "sum(SKS) as TSKS");
$w['TotalSKSAmbil'] = $w['TotalSKSAmbil'] > $jumsks ? $w['TotalSKSAmbil'] : $jumsks;
$KDPT = '031010';
$Data = array($w['TahunID'], $KDPT, $w['ProdiDiktiID'], $w['JenjangID'], $w['MhswID'], $w['IPS'], $w['TotalSKS'], $w['IP'], $w['TotalSKSAmbil']);
InsertDataDBF($DBFName, $Data);
}
function Create($mhswid, $DBFName)
{
//$s = "select m.*, p.ProdiDiktiID, p.JenjangID from mhsw m
// left outer join prodi p on p.ProdiID = m.ProdiID
// where MhswID = '$mhswid'";
//$r = _query($s);
$w = GetFields("mhsw m left outer join prodi p on p.ProdiID = m.ProdiID", "MhswID", $mhswid, "m.*, date_format(m.TanggalLahir, '%Y%m%d') as TanggalLahir, p.ProdiDiktiID, p.JenjangID");
$KDPT = '031010';
$KDJenPT = 'C';
//$w = _fetch_array($r);
$StatusAwal = !empty($w['AsalPT']) ? "P" : "B";
$Kelamin = $w['KelaminID'] == 'W' ? "P" : "L";
$Data = array($KDPT, $w['ProdiDiktiID'], $w['JenjangID'], $w['MhswID'], $w['Nama'], $w['TempatLahir'], $w['TanggalLahir'], $Kelamin, $w['TahunID'], $w['TahunID'] . '1', $w['BatasStudi'], $w['AsalPT'], $w['TglMasuk'], $w['TglLulus'], $w['StatusMhswID'], $StatusAwal, $w['TotalSKSPindah'], $w['MhswIDAsalPT'], $w['AsalPT'], $KDJenPT, $w['ProdiAsalPT'], '', '', '', '', '', '', '', '', '', '');
InsertDataDBF($DBFName, $Data);
}
function Create($mhswid, $tahun, $DBFName)
{
$mhsw = GetaField('mhsw', 'MhswID', $mhswid, 'ProdiID');
$s = "select k.TahunID, k.MhswID, k.GradeNilai, k.BobotNilai, k.MKKode from krs k\r\n\t\t\t\t\tleft outer join jadwal j on j.JadwalID = k.JadwalID\r\n\t\t\t\t\t\twhere MhswID = '{$mhswid}'\r\n\t\t\t\t\t\tand k.TahunID = '{$tahun}'\r\n\t\t\t\t\t\tand StatusKRSID = 'A'\r\n\t\t\t\t\t\tand j.JenisJadwalID = 'K'";
$r = _query($s);
$PD = GetFields("prodi", 'ProdiID', $mhsw, "ProdiDiktiID, JenjangID");
$KDPT = '031010';
while ($w = _fetch_array($r)) {
if ($w['GradeNilai'] == '-') {
$w['GradeNilai'] = 'T';
}
$Data = array($w['TahunID'], $KDPT, $PD['ProdiDiktiID'], $PD['JenjangID'], $w['MhswID'], $w['MKKode'], $w['GradeNilai'], $w['BobotNilai']);
InsertDataDBF($DBFName, $Data);
}
}
function Daftar()
{
global $HeaderAlamat;
$s = "select m.* from mhsw m\r\n left outer join khs k on k.MhswID = m.MhswID\r\n where k.TahunID = '{$_SESSION['tahun']}'\r\n and k.StatusMhswID = 'A'";
$r = _query($s);
$DBFName = HOME_FOLDER . DS . "tmp/" . date('m') . "Alamat-{$_SESSION['tahun']}.DBF";
DBFCreate($DBFName, $HeaderAlamat);
while ($w = _fetch_array($r)) {
$n++;
$Alamat = empty($w['Alamat']) ? $w['AlamatAsal'] : $w['Alamat'];
$Kota = empty($w['Kota']) ? $w['KotaAsal'] : $w['Kota'];
$RT = empty($w['RT']) ? $w['RTAsal'] : $w['RT'];
$RW = empty($w['RW']) ? $w['RWAsal'] : $w['RW'];
$KODEPOS = empty($w['KodePos']) ? $w['KodePosAsal'] : $w['KodePos'];
$Telepon = empty($w['Telepon']) ? $w['TeleponAsal'] : $w['Telepon'];
$RW = empty($RW) ? '' : "/{$RW}";
$Data = array($n, $w['MhswID'], $w['Nama'], $Alamat, $RT . $RW, $Kota, $KODEPOS, $Telepon);
InsertDataDBF($DBFName, $Data);
}
echo "<hr><p>Proses pembuatan file <b>Berhasil</b>. Silakan download file di:\r\n\t\t\t<input type=button name='Download' value='Download File' onClick=\"location='downloaddbf.php?fn={$DBFName}'\">\r\n\t\t\t</p>";
}
function Create($dosenid, $tahun, $prodi, $konf, $DBFName)
{
//$_prd = (empty($_SESSION['prodi'])) ? "" : "and INSTR(j.ProdiID, '.$prodi.')>0";
$s = "select j.MKKode, mk.ProdiID, j.NamaKelas, j.DosenID, j.RencanaKehadiran, j.Kehadiran, j.JadwalID,\r\n\t\t\t\t\td.NIDN\r\n\t\t\t\t\t\tfrom jadwal j\r\n\t\t\t\t\tleft outer join dosen d on j.DosenID = d.Login\r\n\t\t\t\t\tleft outer join mk on mk.MKID = j.MKID\r\n\t\t\t\t\t\twhere j.DosenID = '{$dosenid}'\r\n\t\t\t\t\t\tand TahunID = '{$tahun}'\r\n\t\t\t\t\t\tand j.JenisJadwalID = 'K'\r\n\t\t\t\t\tgroup by d.Login, MKKode, NamaKelas\r\n\t\t\t\t\torder by d.Login, MKKode, NamaKelas";
//$PD = GetFields("prodi", 'ProdiID', $prodi, "JenjangID, ProdiDiktiID");
$KDPT = '031010';
$r = _query($s);
while ($w = _fetch_array($r)) {
$DsnTam = GetaField('jadwaldosen', "JadwalID", $w['JadwalID'], "DosenID");
if (!empty($DsnTam)) {
$NID = GetaField('dosen', 'Login', $DsnTam, 'NIDN');
$NID = empty($NID) ? $DsnTam : $NID;
$Data = array($tahun, $KDPT, $PD['ProdiDiktiID'], $PD['JenjangID'], $NID, $w['MKKode'], $NamaKelas, $w['RencanaKehadiran'], $w['Kehadiran']);
InsertDataDBF($DBFName, $Data);
}
$NamaKelas = $konf[$w['NamaKelas']];
$NamaKelas = strlen($NamaKelas) == 1 ? "0" . $NamaKelas : $NamaKelas;
$PD = GetFields("prodi", 'ProdiID', $w['ProdiID'], "JenjangID, ProdiDiktiID");
$NIDN = !empty($w['NIDN']) ? $w['NIDN'] : $w['DosenID'];
$Data = array($tahun, $KDPT, $PD['ProdiDiktiID'], $PD['JenjangID'], $NIDN, $w['MKKode'], $NamaKelas, $w['RencanaKehadiran'], $w['Kehadiran']);
InsertDataDBF($DBFName, $Data);
}
}
function ProsesDetails()
{
$max = $_SESSION['parsial'];
$tot = $_SESSION['lmhsw_total'];
$n = $_SESSION['lmhsw_part'];
$_dari = $n * $max;
$_sampai = ($n + 1) * $max - 1;
// Ambil data
$_prodi = empty($_SESSION['ProdiID']) ? '' : "and m.ProdiID = '{$_SESSION['ProdiID']}'";
$s = "select m.MhswID, \r\n left(m.Nama, 50) as NamaMahasiswa, \r\n m.StatusMhswID, m.StatusAwalID,\r\n m.TotalSKS, m.IPK, m.SKKeluar, m.NoIjazah,\r\n p.ProdiDiktiID, p.JenjangID,\r\n date_format(m.TanggalLulus, '%Y%m%d') as _TanggalLulus,\r\n date_format(m.TglSKKeluar, '%Y%m%d') as _TglSKKeluar\r\n from mhsw m\r\n left outer join prodi p on p.ProdiID=m.ProdiID and p.KodeID='" . KodeID . "'\r\n where m.KodeID = '" . KodeID . "'\r\n and m.StatusMhswID in ('C', 'L', 'P')\r\n {$_prodi}\r\n order by m.MhswID\r\n limit {$_dari}, {$max}";
$r = _query($s);
$jml = _num_rows($r);
if ($jml > 0) {
$n = 0;
$h = "height=20";
$_p = $tot > 0 ? $_SESSION['lmhsw_counter'] / $tot * 100 : 0;
$__p = number_format($_p);
$_s = 100 - $_p;
echo "<img src='../img/B1.jpg' width=1 {$h} /><img src='../img/B2.jpg' width={$_p} {$h} /><img src='../img/B3.jpg' width={$_s} {$h} /><img src='../img/B1.jpg' width=1 {$h} /> <sup>» {$__p}%</sup>";
while ($w = _fetch_array($r)) {
$_SESSION['lmhsw_counter']++;
$_counter = $_SESSION['lmhsw_counter'];
echo "<script>self.parent.Prosesnya({$_counter}, '{$w['MhswID']}', '{$w['Nama']}', '{$w['NamaMK']}');</script>";
// Masukkan ke DBF
include_once "../{$_SESSION['mnux']}.header.dbf.php";
include_once "../func/dbf.function.php";
$NamaFile = $_SESSION['lmhsw_dbf'];
$StatusMhsw = $w['StatusMhswID'] == 'P' ? 'N' : $w['StatusMhswID'];
$dt = array($_SESSION['TahunID'], $_SESSION['KodePTI'], $w['JenjangID'], $w['ProdiDiktiID'], $w['MhswID'], $w['NamaMahasiswa'], $StatusMhsw, $w['_TanggalLulus'], $w['TotalSKS'], $w['IPK'], $w['SKKeluar'], $w['_TglSKKeluar'], $w['NoIjazah'], $StatusMhsw, '', '', '', '', '', '', '', '');
InsertDataDBF($NamaFile, $dt);
}
$_SESSION['lmhsw_part']++;
// Reload
echo <<<SCR
<script>
window.onLoad=setTimeout("window.location='../{$_SESSION['mnux']}.lulusmhsw.php?gos=ProsesDetails'", {$_SESSION['Timer']});
</script>
SCR;
} else {
// *** Selesai proses
echo <<<SCR
<script>
self.parent.Kembali();
</script>
SCR;
}
}
function ProsesDetails()
{
$max = $_SESSION['parsial'];
$tot = $_SESSION['amhsw_total'];
$n = $_SESSION['amhsw_part'];
$_dari = $n * $max;
$_sampai = ($n + 1) * $max - 1;
if (!empty($_SESSION['_DiktiTahunProses'])) {
$arrTahun = explode('~', $_SESSION['_DiktiTahunProses']);
foreach ($arrTahun as $tahun) {
$tahunstring .= empty($tahunstring) ? "h.TahunID='{$tahun}' " : "or h.TahunID='{$tahun}'";
}
$tahunstring = "and (" . $tahunstring . ")";
} else {
$tahunstring = '';
}
// Ambil data
$_prodi = empty($_SESSION['ProdiID']) ? '' : "and h.ProdiID = '{$_SESSION['ProdiID']}' ";
$s = "select h.MhswID, h.TahunID, m.ProdiID, p.ProdiDiktiID,\r\n p.JenjangID, h.IPS, h.SKS, h.TotalSKS, h.IP, m.TotalSKS as _TotalSKS,\r\n LEFT(m.Nama, 50) as NamaMahasiswa\r\n from khs h\r\n left outer join mhsw m on h.MhswID = m.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join prodi p on p.ProdiID = m.ProdiID and p.KodeID = '" . KodeID . "'\r\n where h.NA = 'N'\r\n {$tahunstring}\r\n {$_prodi}\r\n order by h.MhswID\r\n limit {$_dari}, {$_SESSION['parsial']}";
//echo "<pre>$s</pre>";
$r = _query($s);
$jml = _num_rows($r);
if ($jml > 0) {
$n = 0;
$h = "height=20";
$_p = $tot > 0 ? $_SESSION['amhsw_counter'] / $tot * 100 : 0;
$__p = number_format($_p);
$_s = 100 - $_p;
echo "<img src='../img/B1.jpg' width=1 {$h} /><img src='../img/B2.jpg' width={$_p} {$h} /><img src='../img/B3.jpg' width={$_s} {$h} /><img src='../img/B1.jpg' width=1 {$h} /> <sup>» {$__p}%</sup>";
while ($w = _fetch_array($r)) {
$_SESSION['amhsw_counter']++;
$_counter = $_SESSION['amhsw_counter'];
echo "\r\n <script>self.parent.Prosesnya({$_counter}, '{$w['MhswID']}', '{$w['Nama']}');</script>";
// Masukkan data
include_once "../{$_SESSION['mnux']}.header.dbf.php";
include_once "../func/dbf.function.php";
$NamaFile = $_SESSION['amhsw_dbf'];
$dt = array($_SESSION['TahunID'], $_SESSION['KodePTI'], $w['JenjangID'], $w['ProdiDiktiID'], $w['MhswID'], $w['SKS'], $w['IPS'], $w['_TotalSKS'], $w['IP'], $w['NamaMahasiswa'], '', '', '');
InsertDataDBF($NamaFile, $dt);
}
$_SESSION['amhsw_part']++;
// Reload
echo <<<SCR
<script>
window.onLoad=setTimeout("window.location='../{$_SESSION['mnux']}.mhsw.php?gos=ProsesDetails'", {$_SESSION['Timer']});
</script>
SCR;
} else {
// *** Selesai Proses
echo <<<SCR
<script>
self.parent.Kembali();
</script>
SCR;
}
}
function ProsesDetails()
{
$max = $_SESSION['parsial'];
$tot = $_SESSION['mdsn_total'];
$n = $_SESSION['mdsn_part'];
$_dari = $n * $max;
$_sampai = ($n + 1) * $max - 1;
// Ambil data
$_prodi = empty($_SESSION['ProdiID']) ? '' : "and d.Homebase='{$_SESSION['ProdiID']}' ";
$s = "select d.NIDN, d.Nama, d.Gelar,\r\n d.TempatLahir, date_format(d.TanggalLahir, '%Y%m%d') as TanggalLahir,\r\n d.KelaminID, d.KTP, d.JenjangID,\r\n d.JabatanID, d.StatusKerjaID,\r\n d.TglBekerja, \r\n d.NIPPNS, d.Homebase, p.ProdiDiktiID\r\n from dosen d\r\n left outer join prodi p on p.ProdiID = d.Homebase and p.KodeID='" . KodeID . "'\r\n where d.NA = 'N'\r\n and d.KodeID = '" . KodeID . "'\r\n {$_prodi}\r\n order by d.Login\r\n limit {$_dari}, {$max}";
$r = _query($s);
$jml = _num_rows($r);
if ($jml > 0) {
$_p = $tot > 0 ? $_SESSION['mdsn_counter'] / $tot * 100 : 0;
$__p = number_format($_p);
$_s = 100 - $_p;
$h = "height=20";
echo "<img src='../img/B1.jpg' width=1 {$h} /><img src='../img/B2.jpg' width={$_p} {$h} /><img src='../img/B3.jpg' width={$_s} {$h} /><img src='../img/B1.jpg' width=1 {$h} /> <sup>» {$__p}%</sup>";
while ($w = _fetch_array($r)) {
$_SESSION['mdsn_counter']++;
echo "<script>self.parent.Prosesnya({$_SESSION['mdsn_counter']}, '{$w['Login']}', '{$w['Nama']}');</script>";
// Masukkan data
include_once "../{$_SESSION['mnux']}.header.dbf.php";
include_once "../func/dbf.function.php";
$NamaFile = $_SESSION['mdsn_dbf'];
$Kelamin = $w['KelaminID'] == 'W' ? 'P' : 'L';
$dt = array($_SESSION['KodePTI'], $w['ProdiDiktiID'], $w['JenjangID'], $w['KTP'], $w['NIDN'], $w['Nama'], $w['Gelar'], $w['TempatLahir'], $w['TanggalLahir'], $Kelamin, $w['JabatanID'], $w['JenjangID'], $w['StatusKerjaID'], $w['NA'], $w['TglBekerja'], $w['NIPPNS'], $w['Homebase']);
InsertDataDBF($NamaFile, $dt);
}
$_SESSION['mdsn_part']++;
// reload
echo "<script>\r\n window.onLoad=setTimeout(\"window.location='../{$_SESSION['mnux']}.masterdosen.php?gos=ProsesDetails'\", {$_SESSION['Timer']});\r\n </script>\r\n ";
} else {
// Selesai
echo "<script>self.parent.Kembali();</script>";
}
}
function ProsesDetails()
{
$max = $_SESSION['parsial'];
$tot = $_SESSION['adsn_total'];
$n = $_SESSION['adsn_part'];
$_dari = $n * $max;
$_sampai = ($n + 1) * $max - 1;
// Ambil data
$_prodi = empty($_SESSION['ProdiID']) ? '' : "and j.ProdiID = '{$_SESSION['ProdiID']}' ";
if (empty($_SESSION['DariDosen'])) {
$_dosen = '';
} else {
$sampai = empty($_SESSION['SampaiDosen']) ? 'ZZZZZZZZZZZZZZZZZZZZZZZZZZZZ' : $_SESSION['SampaiDosen'];
$_dosen = "and '{$_SESSION['DariDosen']}' <= j.DosenID and j.DosenID <= '{$sampai}' ";
}
if (!empty($_SESSION['_DiktiTahunProses'])) {
$arrTahun = explode('~', $_SESSION['_DiktiTahunProses']);
foreach ($arrTahun as $tahun) {
$tahunstring .= empty($tahunstring) ? "j.TahunID='{$tahun}' " : "or j.TahunID='{$tahun}'";
}
$tahunstring = "and (" . $tahunstring . ")";
} else {
$tahunstring = '';
}
$s = "select j.DosenID, j.TahunID, j.NamaKelas, j.MKKode,\r\n j.HariID, j.JamMulai, j.JamSelesai,\r\n j.ProgramID, j.ProdiID, \r\n j.RencanaKehadiran, j.Kehadiran,\r\n p.ProdiDiktiID, p.JenjangID,\r\n d.NIDN, \r\n LEFT(d.Nama, 50) as NamaDosen,\r\n LEFT(j.Nama, 50) as NamaMatakuliah\r\n from jadwal j\r\n left outer join prodi p on p.ProdiID = j.ProdiID and p.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n where j.KodeID = '" . KodeID . "'\r\n {$tahunstring}\r\n\t\tand j.NA = 'N'\r\n {$_prodi} {$_dosen}\r\n order by j.DosenID, j.HariID, j.JamMulai\r\n limit {$_dari}, {$_SESSION['parsial']}";
$r = _query($s);
$jml = _num_rows($r);
/*
$fn = '../tmp/log.txt';
$f = fopen($fn, 'a');
fwrite($f, "$s\r\n");
fwrite($f, "$jml\r\n");
fwrite($f, "W: $w\r\n");
fclose($f);
*/
// *** Proses DBF
if ($jml > 0) {
$_p = $tot > 0 ? $_SESSION['adsn_counter'] / $tot * 100 : 0;
$__p = number_format($_p);
$_s = 100 - $_p;
$h = "height=20";
echo "<img src='../img/B1.jpg' width=1 {$h} /><img src='../img/B2.jpg' width={$_p} {$h} /><img src='../img/B3.jpg' width={$_s} {$h} /><img src='../img/B1.jpg' width=1 {$h} /> <sup>» {$__p}%</sup>";
while ($w = _fetch_array($r)) {
$_SESSION['adsn_counter']++;
echo "<script>self.parent.Prosesnya({$_SESSION['adsn_counter']}, '{$w['DosenID']}', '{$w['NamaDosen']}');</script>";
// Masukkan data
include_once "../{$_SESSION['mnux']}.header.dbf.php";
include_once "../func/dbf.function.php";
$NamaFile = $_SESSION['adsn_dbf'];
$dt = array($_SESSION['TahunID'], $_SESSION['KodePTI'], $w['JenjangID'], $w['ProdiDiktiID'], $w['NIDN'], $w['MKKode'], $w['NamaKelas'], $w['RencanaKehadiran'], $w['Kehadiran'], $w['NamaDosen'], $w['SKS'], '', $w['NamaMatakuliah']);
/*
$w['NamaDosen'], // *** Tambahan untuk STKIP PGRI Pontianak
*/
InsertDataDBF($NamaFile, $dt);
}
$_SESSION['adsn_part']++;
echo "<script>\r\n window.onLoad=setTimeout(\"window.location='../{$_SESSION['mnux']}.dosen.php?gos=ProsesDetails'\", {$_SESSION['Timer']});\r\n </script>\r\n ";
} else {
// *** Selesai Proses
echo "\r\n <script>\r\n self.parent.Kembali();\r\n </script>";
}
}
function ProsesDetails()
{
$max = $_SESSION['parsial'];
$tot = $_SESSION['kmk_total'];
$n = $_SESSION['kmk_part'];
$_dari = $n * $max;
$_sampai = ($n + 1) * $max - 1;
// Ambil data // *** Sengaja diambil dari tabel Jadwal atas request STKIP PGRI
$_prodi = empty($_SESSION['ProdiID']) ? '' : "and j.ProdiID = '{$_SESSION['ProdiID']}' ";
$s = "select j.*,\r\n p.ProdiDiktiID, p.JenjangID,\r\n d.Nama as NamaDosen, d.NIDN,\r\n mk.SKS as MKSKS, mk.Sesi, mk.Wajib,\r\n mk.SKSTatapMuka, mk.SKSPraktikum, mk.SKSPraktekLap,\r\n mk.JenisMKID, mk.JenisPilihanID, mk.JenisKurikulumID\r\n from jadwal j\r\n left outer join prodi p on p.ProdiID = j.ProdiID and p.KodeID = '" . KodeID . "'\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n left outer join mk mk on mk.MKID = j.MKID\r\n where j.KodeID = '" . KodeID . "'\r\n and j.TahunID = '{$_SESSION['TahunID']}'\r\n {$_prodi}\r\n group by j.ProdiID, j.MKKode\r\n limit {$_dari}, {$max}";
$r = _query($s);
$jml = _num_rows($r);
if ($jml > 0) {
$_p = $tot > 0 ? $_SESSION['kmk_counter'] / $tot * 100 : 0;
$__p = number_format($_p);
$_s = 100 - $_p;
$h = "height=20";
echo "<img src='../img/B1.jpg' width=1 {$h} /><img src='../img/B2.jpg' width={$_p} {$h} /><img src='../img/B3.jpg' width={$_s} {$h} /><img src='../img/B1.jpg' width=1 {$h} /> <sup>» {$__p}%</sup>";
while ($w = _fetch_array($r)) {
$_SESSION['kmk_counter']++;
echo "<script>self.parent.Prosesnya({$_SESSION['kmk_counter']}, '{$w['MKKode']}', '{$w['Nama']}');</script>";
// Masukkan data
include_once "../{$_SESSION['mnux']}.header.dbf.php";
include_once "../func/dbf.function.php";
$NamaFile = $_SESSION['kmk_dbf'];
$Kelamin = $w['KelaminID'] == 'W' ? 'P' : 'L';
$dt = array($w['TahunID'], $_SESSION['KodePTI'], $w['JenjangID'], $w['ProdiDiktiID'], $w['MKKode'], $w['Nama'], $w['SKS'], $w['SKSTatapMuka'], $w['SKSPraktikum'], $w['SKSPraktekLap'], $w['Sesi'], $w['JenisMKID'], 'Y', 'Y', $w['NIDN'], 'A', 'Y', 'Y', 'Y', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
InsertDataDBF($NamaFile, $dt);
}
$_SESSION['kmk_part']++;
// reload
echo "<script>\r\n window.onLoad=setTimeout(\"window.location='../{$_SESSION['mnux']}.kmk.php?gos=ProsesDetails'\", {$_SESSION['Timer']});\r\n </script>\r\n ";
} else {
// Selesai
echo "<script>self.parent.Kembali();</script>";
}
}
function ProsesDetails()
{
$max = $_SESSION['parsial'];
$tot = $_SESSION['mmhsw_total'];
$n = $_SESSION['mmhsw_part'];
$_dari = $n * $max;
$_sampai = ($n + 1) * $max - 1;
// Ambil data
$_prodi = empty($_SESSION['ProdiID']) ? '' : "and m.ProdiID='{$_SESSION['ProdiID']}' ";
$s = "select m.*,\r\n p.ProdiDiktiID, p.JenjangID,\r\n date_format(m.TanggalLahir, '%d-%m-%Y') as _TanggalLahir, date_format(m.TglSKMasuk, '%d-%m-%Y') as _TglSKMasuk, date_format(m.TanggalLulus, '%d-%m-%Y') as _TanggalLulus\r\n from mhsw m\r\n left outer join prodi p on p.ProdiID = m.ProdiID and m.KodeID='" . KodeID . "'\r\n\t left outer join statusmhsw sm on sm.StatusMhswID = m.StatusMhswID\r\n\twhere m.NA = 'N'\r\n and m.KodeID = '" . KodeID . "'\r\n and sm.Keluar = 'N'\r\n\t {$_prodi}\r\n order by m.Login\r\n limit {$_dari}, {$max}";
$r = _query($s);
$jml = _num_rows($r);
if ($jml > 0) {
$_p = $tot > 0 ? $_SESSION['mmhsw_counter'] / $tot * 100 : 0;
$__p = number_format($_p);
$_s = 100 - $_p;
$h = "height=20";
echo "<img src='../img/B1.jpg' width=1 {$h} /><img src='../img/B2.jpg' width={$_p} {$h} /><img src='../img/B3.jpg' width={$_s} {$h} /><img src='../img/B1.jpg' width=1 {$h} /> <sup>» {$__p}%</sup>";
while ($w = _fetch_array($r)) {
$_SESSION['mmhsw_counter']++;
echo "<script>self.parent.Prosesnya({$_SESSION['mmhsw_counter']}, '{$w['MhswID']}', '{$w['Nama']}');</script>";
// Masukkan data
include_once "../{$_SESSION['mnux']}.header.dbf.php";
include_once "../func/dbf.function.php";
$NamaFile = $_SESSION['mmhsw_dbf'];
$Kelamin = $w['Kelamin'] == 'W' ? 'P' : 'L';
$dt = array($_SESSION['KodePTI'], $w['ProdiDiktiID'], $w['JenjangID'], $w['MhswID'], $w['Nama'], '', $w['TempatLahir'], $w['_TanggalLahir'], $Kelamin, $w['TahunID'], $w['TahunID'] . '1', $w['BatasStudi'], $w['AsalPT'], $w['_TglSKMasuk'], $w['_TanggalLulus'], $w['StatusMhswID'], $StatusAwal, $w['TotalSKSPindah'], $w['MhswIDAsalPT'], $w['AsalPT'], $KodeJenjangPT, $w['ProdiAsalPT'], '', '', '', '', '', '', '', '', '', '', $w['NIMAN'], $w['Alamat'], $w['Telepon'], $w['Handphone'], $w['Email'], $w['NoIjazah']);
InsertDataDBF($NamaFile, $dt);
}
$_SESSION['mmhsw_part']++;
// reload
echo "<script>\r\n window.onLoad=setTimeout(\"window.location='../{$_SESSION['mnux']}.mastermhsw.php?gos=ProsesDetails'\", {$_SESSION['Timer']});\r\n </script>\r\n ";
} else {
// Selesai
echo "<script>self.parent.Kembali();</script>";
}
}
function ProsesDetails()
{
$max = $_SESSION['parsial'];
$tot = $_SESSION['nmhsw_total'];
$n = $_SESSION['nmhsw_part'];
$_dari = $n * $max;
$_sampai = ($n + 1) * $max - 1;
// Ambil data
$_prodi = empty($_SESSION['ProdiID']) ? '' : "and h.ProdiID = '{$_SESSION['ProdiID']}' ";
if (!empty($_SESSION['_DiktiTahunProses'])) {
$arrTahun = explode('~', $_SESSION['_DiktiTahunProses']);
foreach ($arrTahun as $tahun) {
$tahunstring .= empty($tahunstring) ? "k.TahunID='{$tahun}' " : "or k.TahunID='{$tahun}'";
}
$tahunstring = "and (" . $tahunstring . ")";
} else {
$tahunstring = '';
}
$s = "select k.TahunID, k.MhswID, k.MKKode,\r\n left(k.Nama, 50) as NamaMK, \r\n k.GradeNilai, k.BobotNilai,\r\n p.ProdiDiktiID, p.JenjangID, LEFT(m.Nama, 50) as NamaMhsw,\r\n j.DosenID, j.NamaKelas, LEFT(d.Nama, 50) as DSN\r\n from krs k\r\n left outer join khs h on h.KHSID = k.KHSID and h.KodeID = '" . KodeID . "'\r\n left outer join prodi p on p.ProdiID = h.ProdiID and p.KodeID = '" . KodeID . "'\r\n left outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n left outer join jadwal j on k.JadwalID = j.JadwalID\r\n left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n where k.NA = 'N'\r\n {$tahunstring}\r\n order by k.MhswID\r\n limit {$_dari}, {$max}";
$r = _query($s);
$jml = _num_rows($r);
if ($jml > 0) {
$n = 0;
$h = "height=20";
$_p = $tot > 0 ? $_SESSION['nmhsw_counter'] / $tot * 100 : 0;
$__p = number_format($_p);
$_s = 100 - $_p;
echo "<img src='../img/B1.jpg' width=1 {$h} /><img src='../img/B2.jpg' width={$_p} {$h} /><img src='../img/B3.jpg' width={$_s} {$h} /><img src='../img/B1.jpg' width=1 {$h} /> <sup>» {$__p}%</sup>";
while ($w = _fetch_array($r)) {
$_SESSION['nmhsw_counter']++;
$_counter = $_SESSION['nmhsw_counter'];
echo "<script>self.parent.Prosesnya({$_counter}, '{$w['MhswID']}', '{$w['NamaMhsw']}', '{$w['NamaMK']}');</script>";
// Masukkan ke DBF
// Masukkan data
include_once "../{$_SESSION['mnux']}.header.dbf.php";
include_once "../func/dbf.function.php";
$NamaFile = $_SESSION['nmhsw_dbf'];
$dt = array($w['TahunID'], $_SESSION['KodePTI'], $w['JenjangID'], $w['ProdiDiktiID'], $w['MhswID'], $w['MKKode'], $w['GradeNilai'], $w['BobotNilai'], $w['NamaKelas'], $w['NamaMhsw'], $w['NamaMK'], $w['DSN']);
InsertDataDBF($NamaFile, $dt);
}
$_SESSION['nmhsw_part']++;
// Reload
echo <<<SCR
<script>
window.onLoad=setTimeout("window.location='../{$_SESSION['mnux']}.nilaimhsw.php?gos=ProsesDetails'", {$_SESSION['Timer']});
</script>
SCR;
} else {
// *** Selesai proses
echo <<<SCR
<script>
self.parent.Kembali();
</script>
SCR;
}
}
