Ejemplo n.º 1
0
function Cetak()
{
    global $_HeaderPrn, $_lf;
    $mhswid = $_REQUEST['mhswid'];
    $mhsw = GetFields("mhsw m\n    left outer join program prg on m.ProgramID=prg.ProgramID\n    left outer join prodi prd on m.ProdiID=prd.ProdiID\n    left outer join fakultas f on prd.FakultasID=f.FakultasID", 'm.MhswID', $mhswid, "m.MhswID, m.Nama, m.TempatLahir, m.TanggalLahir, m.PenasehatAkademik, \n    m.Alamat, m.Kota, m.KodePos, \n    m.ProdiID, m.ProgramID, m.BIPOTID,\n    prd.Nama as PRD, prg.Nama as PRG, f.Nama as FAK");
    $tahun = $_REQUEST['tahun'];
    $khsid = $_REQUEST['khsid'];
    $khs = GetFields("khs", 'KHSID', $khsid, '*');
    //if ($khs['Cetak'] == 'N') CetakKSS1($tahun, $mhsw, $khs);
    //else GagalCetak($mhsw, $khs);
    // Hapus Data KRS
    HapusKRS($tahun, $mhsw, $khs);
    // Import dari KRSTEMP
    ImportKRS($tahun, $mhsw, $khs);
    CetakKSS1($tahun, $mhsw, $khs);
}
Ejemplo n.º 2
0
function SetKHSAktif($khsid, $mhswid, $tahun)
{
    //$khsid = $_REQUEST['khsid'];
    $khs = GetFields('khs', 'KHSID', $khsid, '*');
    $stm = GetFields('statusmhsw', 'StatusMhswID', $khs['StatusMhswID'], '*');
    if ($stm['Nilai'] == 0) {
    } else {
        $status = $khs['StatusMhswID'] != 'A' ? ", StatusMhswID='A' " : '';
        // Set kalau sudah dicetak
        $s = "update khs set Cetak='Y', KaliCetak=KaliCetak+1 {$status}\r\n      where KHSID='{$khsid}'";
        $r = _query($s);
    }
    $sb = "update bipotmhsw set Draft='N' \r\n    where MhswID='{$mhswid}' and TahunID='{$tahun}' and Draft='Y' ";
    $rb = _query($sb);
    HapusKRS($tahun, $mhswid, $khsid);
    ImportKRS($tahun, $mhswid, $khsid);
}