function ImportKRS($tahun, $mhsw, $khs)
{
$s = "select *\n from krstemp\n where TahunID='{$tahun}'\n and MhswID='{$mhsw['MhswID']}'\n and NA='N' ";
$r = _query($s);
while ($w = _fetch_array($r)) {
$s1 = "insert into krs\n (KHSID, MhswID, TahunID, JadwalID,\n MKID, MKKode, SKS,\n HargaStandar, Harga, Bayar,\n StatusKRSID,\n Dispensasi, DispensasiOleh, TanggalDispensasi, CatatanDispensasi,\n Catatan, CatatanError,\n LoginBuat, TanggalBuat,\n LoginEdit, TanggalEdit, NA)\n values\n ('{$w['KHSID']}', '{$w['MhswID']}', '{$w['TahunID']}', '{$w['JadwalID']}',\n '{$w['MKID']}', '{$w['MKKode']}', '{$w['SKS']}',\n '{$w['HargaStandar']}', '{$w['Harga']}', '{$w['Bayar']}',\n '{$w['StatusKRSID']}',\n '{$w['Dispensasi']}', '{$w['DispensasiOleh']}', '{$w['TanggalDispensasi']}', '{$w['CatatanDispensasi']}',\n '{$w['Catatan']}', '{$w['CatatanError']}',\n '{$w['LoginBuat']}', '{$w['TanggalBuat']}',\n '{$w['LoginEdit']}', '{$w['TanggalEdit']}', '{$w['NA']}')";
$r1 = _query($s1);
UpdateJumlahMhsw($w['JadwalID']);
}
}
function GagalKRSDisp1($mhsw, $datatahun, $khs)
{
$krsid = $_REQUEST['krsid'];
$JadwalID = GetaField("krstemp k", "k.KRSID", $krsid, "JadwalID");
$DispensasiOleh = sqling($_REQUEST['DispensasiOleh']);
$CatatanDispensasi = sqling($_REQUEST['CatatanDispensasi']);
$TanggalDispensasi = "{$_REQUEST['TanggalDispensasi_y']}-{$_REQUEST['TanggalDispensasi_m']}-{$_REQUEST['TanggalDispensasi_d']}";
$s = "update krstemp set NA='N', Dispensasi='Y', DispensasiOleh='{$DispensasiOleh}',\r\n TanggalDispensasi='{$TanggalDispensasi}', CatatanError=concat('Disp: ', CatatanError), CatatanDispensasi='{$CatatanDispensasi}'\r\n where KRSID='{$krsid}' ";
$r = _query($s);
// Cek apakah ada serialnya
$adaserial = GetaField('jadwal', 'JadwalSer', $JadwalID, "Count(*)") + 0;
if ($adaserial > 0) {
$s1 = "select * from jadwal where JadwalSer='{$JadwalID}' order by HariID";
$r1 = _query($s1);
while ($w = _fetch_array($r1)) {
$s2 = "insert into krstemp (KHSID, MhswID,\r\n TahunID, JadwalID,\r\n MKID, MKKode, SKS, HargaStandar, Harga,\r\n StatusKRSID, NA, CatatanError,\r\n LoginBuat, TanggalBuat)\r\n values ('{$khs['KHSID']}', '{$mhsw['MhswID']}',\r\n '{$khs['TahunID']}', '{$w['JadwalID']}',\r\n '{$w['MKID']}', '{$w['MKKode']}', 0, '{$w['HargaStandar']}', '{$w['Harga']}',\r\n 'S', 'N', 'SERIAL',\r\n '{$_SESSION['_Login']}', now())";
$r2 = _query($s2);
//echo "<pre>$s2</pre>";
UpdateJumlahMhsw($w['JadwalID']);
}
}
DftrKRS($mhsw, $datatahun, $khs);
// Update jumlah KRS
UpdateJumlahKRSMhsw($khs['MhswID'], $khs['KHSID']);
UpdateJumlahMhsw($JadwalID);
echo "<script>window.location='?mnux={$_SESSION['mnux']}';</script>";
}
function KRSOK()
{
$KRSID = $_REQUEST['KRSID'];
$JadwalID = $_REQUEST['JadwalID'];
if (!empty($_REQUEST['OKE'])) {
$k = GetFields('krspra', 'KRSID', $KRSID, '*');
// Update KRSPRA
$s = "update krspra set OKE='Y' where KRSID='{$KRSID}' ";
$r = _query($s);
// insert KRS
$s = "insert into krs (KHSID, MhswID, TahunID,\r\n JadwalID, MKID, MKKode, SKS, HargaStandar, Harga,\r\n LoginBuat, TanggalBuat)\r\n values ('{$k['KHSID']}', '{$k['MhswID']}', '{$k['TahunID']}',\r\n '{$k['JadwalID']}', '{$k['MKID']}', '{$k['MKKode']}', {$k['SKS']}, '{$k['HargaStandar']}', '{$k['Harga']}',\r\n '{$_SESSION['_Login']}', now())";
$r = _query($s);
$KRS = GetLastID();
// insert bipotmhsw
$s1 = "insert into bipotmhsw (BIPOTMhswRef, PMBMhswID, MhswID, TahunID,\r\n Nama, TrxID, Jumlah, Besar, Catatan,\r\n LoginBuat, TanggalBuat)\r\n values ({$KRS}, 1, '{$k['MhswID']}', '{$k['TahunID']}',\r\n '{$k['MKKode']}', 1, 1, '{$k['Harga']}', 'KLINIK',\r\n '{$_SESSION['_Login']}', now())";
$r1 = _query($s1);
// Jumlah mhsw
$jml = GetaField('krs', "JadwalID", $JadwalID, "count(KRSID)") + 0;
$sx = "update jadwal set JumlahMhsw={$jml} where JadwalID='{$JadwalID}' ";
$rx = _query($sx);
// Update jumlah mhsw
UpdateJumlahMhsw($JadwalID);
}
PraKRS();
}
