PHP BuatHeader函数代码示例

function BuatIsinya($TahunID, $ProdiID, $p)
{
    $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' ";
    $s = "select h.*,\r\n      m.Nama as NamaMhsw,\r\n      d.Nama as NamaPA, d.Gelar\r\n    from khs h\r\n      left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n      left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n    where h.KodeID = '" . KodeID . "'\r\n      and h.TahunID = '{$TahunID}'\r\n      and h.SKS = 0\r\n      {$whr_prodi}\r\n    order by h.ProdiID, h.MhswID";
    $r = _query($s);
    $n = 0;
    $t = 5;
    $_prd = 'laksdjfalksdfh';
    while ($w = _fetch_array($r)) {
        if ($_prd != $w['ProdiID']) {
            $_prd = $w['ProdiID'];
            $NamaProdi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $_prd, 'Nama');
            $p->AddPage();
            BuatHeader($TahunID, $NamaProdi, $p);
        }
        $n++;
        $NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA'];
        $p->SetFont('Helvetica', '', 10);
        $p->Cell(15, $t, $n, 'LB', 0);
        $p->Cell(22, $t, $w['MhswID'], 'B', 0);
        $p->Cell(60, $t, $w['NamaMhsw'], 'B', 0);
        $p->Cell(10, $t, $w['Sesi'], 'B', 0, 'R');
        $p->Cell(10, $t, $w['SKS'], 'B', 0, 'R');
        $p->Cell(10, $t, $w['MaxSKS'], 'B', 0, 'R');
        $p->Cell(60, $t, $NamaPA, 'BR', 0);
        $p->Ln($t);
    }
}

function BuatIsinya($TahunID, $ProdiID, $p)
{
    $maxentryperpage = 45;
    BuatHeader($TahunID, 'Belum Administrasi', ceil($ttl / $maxentryperpage) + 1, $p);
    $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' ";
    $whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}' ";
    $s = "select h.*,\r\n      m.Nama as NamaMhsw, \r\n      d.Nama as NamaPA, d.Gelar,\r\n\t  h.Biaya - h.Potongan - h.Bayar as _Hutang\r\n    from khs h\r\n      left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n      left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n    where h.KodeID = '" . KodeID . "'\r\n      and h.TahunID = '{$TahunID}'\r\n      and h.Biaya - h.Potongan - h.Bayar > 0\r\n      {$whr_prodi}\r\n\t  {$whr_tahun}\r\n    order by h.MhswID";
    $r = _query($s);
    $n = 0;
    $t = 5;
    if (_num_rows($r) > 0) {
        while ($w = _fetch_array($r)) {
            $n++;
            $NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA'];
            $p->SetFont('Helvetica', '', 8);
            $p->Cell(15, $t, $n, 'LB', 0);
            $p->Cell(25, $t, $w['MhswID'], 'B', 0);
            $p->Cell(70, $t, $w['NamaMhsw'], 'B', 0);
            $p->Cell(30, $t, $w['_Hutang'], 'B', 0, 'R');
            $p->Cell(50, $t, 'Administrasi', 'B', 0);
            $p->Ln($t);
        }
    } else {
        $p->SetFont('Helvetica', 'B', 8);
        $p->Cell(0, $t, '(Tidak ada mahasiswa yang dapat dicetak)', 0, 1, 'C');
    }
    $p->Ln($t);
    $p->SetFont('Helvetica', 'B', 10);
    $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $n, 0, 0);
    $p->Ln($t);
}

function Cetak()
{
    $_lf = chr(13) . chr(10);
    $id = $_REQUEST['id'];
    $jdwl = GetFields("jadwal j\r\n    left outer join dosen d on j.DosenID=d.Login", "j.JadwalID", $id, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN");
    $_prodi = TRIM($jdwl['ProdiID'], '.');
    $_prodi = explode('.', $_prodi);
    $_prodi = $_prodi[0];
    $prodi = GetFields('prodi', 'ProdiID', $_prodi, "ProdiID, Nama, FakultasID");
    $fak = GetaField('fakultas', 'FakultasID', $prodi['FakultasID'], 'Nama');
    $nmf = "tmp/{$_SESSION['_Login']}.jdwl.php";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15));
    fwrite($f, chr(27) . chr(108) . chr(5));
    $mxc = 135;
    $mxb = 21;
    $grs = str_pad("-", $mxc, "-") . $_lf;
    $s = "select k.MhswID, left(m.Nama, 31) as Nama\r\n    from krs k\r\n      left outer join mhsw m on k.MhswID=m.MhswID\r\n      left outer join khs khs on k.KHSID=khs.KHSID\r\n    where k.JadwalID={$id}\r\n    order by k.MhswID";
    $r = _query($s);
    //echo "<pre>$r</pre>";
    //exit;
    $n = 0;
    $brs = 0;
    $hal = 1;
    $satu = Garis(12, '-');
    $dua = Garis(12);
    $header0 = str_pad('** Daftar Penilaian Portofolio & Performance ***', $mxc, ' ', STR_PAD_BOTH) . $_lf;
    $header = $grs . str_pad(' ', 50, ' ') . GarisHeader(12) . $_lf . str_pad(' ', 50, ' ') . $satu . $_lf . str_pad("No.  N.P.M        Nama Mahasiswa ", 50, ' ') . Kosong(12) . str_pad('=', 50, '=') . Garis(12, '=') . $_lf;
    fwrite($f, $header0);
    $header1 = BuatHeader($mxc, $jdwl, $prodi, $fak, $hal);
    fwrite($f, $header1);
    fwrite($f, $header);
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        if ($brs >= $mxb) {
            $hal++;
            $brs = 1;
            fwrite($f, "Dicetak oleh: {$_SESSION['_Login']}");
            fwrite($f, chr(12));
            fwrite($f, $header0);
            fwrite($f, BuatHeader($mxc, $jdwl, $prodi, $fak, $hal));
            fwrite($f, $header1);
            fwrite($f, $header);
        }
        fwrite($f, str_pad($n, 5) . str_pad($w['MhswID'], 13) . str_pad($w['Nama'], 32) . $dua . $_lf);
        fwrite($f, str_pad('-', 50, '-') . $satu . $_lf);
    }
    fwrite($f, str_pad("Akhir cetakan", $mxc, ' ', STR_PAD_LEFT) . $_lf);
    for ($i = $brs; $i <= $mxb; $i++) {
        fwrite($f, $_lf . $_lf);
    }
    fwrite($f, "Dicetak oleh: {$_SESSION['_Login']}");
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf);
}

function Cetak()
{
    global $_lf;
    // Parameters
    $jdwlid = $_REQUEST['JadwalID'];
    $jdwl = GetFields("jadwal", 'JadwalID', $jdwlid, "*");
    if (empty($jdwl)) {
        die("Data tidak ditemukan.");
    }
    // Buat File
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15));
    $hal = 0;
    $n = 0;
    $brs = 0;
    $maxbaris = 20;
    $mrgisi = str_pad(' ', 11, ' ');
    //$hdr = BuatHeader($jdwl, $);
    // Daftar mhsw
    $s = "select m.Nama as NamaM,krs.Mhswid as IDM \r\n    from krstemp as krs left outer join mhsw m on m.MhswID = krs.MhswID\r\n        where \r\n\tkrs.JadwalID = '{$jdwlid}' \r\n\tand krs.NA = 'N'\r\n\torder by krs.Mhswid";
    $r = _query($s);
    $jumrec = _num_rows($r);
    $jumhal = ceil($jumrec / $maxbaris);
    $hdr = BuatHeader($jdwl, $jumhal, $hal);
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        if ($brs >= $maxbaris) {
            fwrite($f, chr(12));
            fwrite($f, BuatHeader($jdwl, $jumhal, $hal));
            $brs = 0;
        }
        //$brs++; $n++;
        //fwrite($f, str_pad($n.'. ', 4) . $w['IDM'] . ' » ' . $w['NamaM']);
        //fwrite($f, $_lf);
        $brs++;
        $n++;
        $item = $mrgisi . str_pad($n . '. ', 5) . str_pad($w['IDM'], 12) . $w['NamaM'];
        //if ($brs == 2) $item2 = "                   Jumlah Tatap Muka : " . $jdwl['Kehadiran'] . 'x';
        // else $item2 = '';
        //fwrite($f, $mrgisi . str_pad($n.'. ', 5) . $w['MhswID']. '   ' . str_pad($NamaMhsw, 50));
        if (!empty($item)) {
            fwrite($f, $item . $item2 . $_lf . $_lf);
        }
    }
    //fclose($f);
    //TampilkanFileDWOPRN($nmf);
    for ($i = $brs; $i < $maxbaris; $i++) {
        fwrite($f, $mrgisi . str_pad(' ', 5) . "** Tidak diperkenankan menambah pada baris ini **" . $_lf . $_lf);
    }
    fwrite($f, $_lf . "Dicetak Oleh : " . $_SESSION['_Login'] . ', ' . Date("d-m-Y H:i"));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf);
}

function CetakNilai($jid, $p)
{
    $JadwalID = GetSetVar('JadwalID');
    $jdwl = GetFields("jadwal j\r\n    left outer join dosen d on d.Login = j.DosenID and d.KodeID = '" . KodeID . "'\r\n    left outer join prodi prd on prd.ProdiID = j.ProdiID and prd.KodeID = '" . KodeID . "'\r\n    left outer join program prg on prg.ProgramID = j.ProgramID and prg.KodeID = '" . KodeID . "'\r\n    left outer join mk mk on mk.MKID = j.MKID\r\n    left outer join hari huas on huas.HariID = date_format(j.UASTanggal, '%w') \r\n\tLEFT OUTER JOIN kelas k ON k.KelasID = j.NamaKelas\r\n    ", "j.JadwalID", $JadwalID, "j.*, concat(d.Nama, ', ', d.Gelar) as DSN, d.NIDN,\r\n    prd.Nama as _PRD, prg.Nama as _PRG,\r\n    mk.Sesi,\r\n    date_format(j.UASTanggal, '%d-%m-%Y') as _UASTanggal,\r\n    date_format(j.UASTanggal, '%w') as _UASHari,\r\n    huas.Nama as HRUAS,\r\n    LEFT(j.UASJamMulai, 5) as _UASJamMulai, LEFT(j.UASJamSelesai, 5) as _UASJamSelesai, k.Nama AS namaKelas\r\n    ");
    $TahunID = $jdwl['TahunID'];
    $thn = GetFields('tahun', "KodeID = '" . KodeID . "' and ProdiID = '{$jdwl['ProdiID']}' and ProgramID = '{$jdwl['ProgramID']}' and TahunID", $TahunID, "*");
    // Buat Header
    BuatHeader($jdwl, $thn, $p);
    BuatIsinya($jdwl, $p);
    BuatFooter($jdwl, $p);
}

function BuatIsinya($TahunID, $ProdiID, $p)
{
    $maxentryperpage = 45;
    $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' ";
    $whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}' ";
    $s = "select h.*,\r\n      m.Nama as NamaMhsw,\r\n      d.Nama as NamaPA, d.Gelar\r\n    from khs h\r\n      left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n      left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n    where h.KodeID = '" . KodeID . "'\r\n      and h.TahunID = '{$TahunID}'\r\n      and h.SKS > 0\r\n      {$whr_prodi}\r\n\t  {$whr_tahun}\r\n    order by h.ProdiID, h.MhswID";
    $r = _query($s);
    $n = 0;
    $t = 5;
    $_prd = 'laksdjfalksdfh';
    $ttl = 0;
    while ($w = _fetch_array($r)) {
        if ($_prd != $w['ProdiID']) {
            $p->Ln($t);
            $p->SetFont('Helvetica', 'B', 12);
            $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $ttl, 0, 0);
            $p->SetFont('Helvetica', '', 10);
            $_prd = $w['ProdiID'];
            $NamaProdi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $_prd, 'Nama');
            $p->AddPage();
            HeaderLogo("Daftar Mahasiswa Berdasarkan Prodi", $p);
            BuatHeader($TahunID, $NamaProdi, 1, $p);
            $ttl = 0;
        }
        // Edit: Ilham
        // Line: 69
        if ($ttl > 0 and $ttl % $maxentryperpage == 0) {
            $p->AddPage();
            //HeaderLogo("Daftar Mahasiswa Berdasarkan Agama", $p, 'P');
            HeaderLogo("Daftar Mahasiswa Berdasarkan Prodi", $p, 'P');
            BuatHeader($TahunID, $NamaProdi, ceil($ttl / $maxentryperpage) + 1, $p);
        }
        $n++;
        $NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA'];
        $p->SetFont('Helvetica', '', 10);
        $p->Cell(15, $t, $n, 'LB', 0);
        $p->Cell(25, $t, $w['MhswID'], 'B', 0);
        $p->Cell(60, $t, $w['NamaMhsw'], 'B', 0);
        $p->Cell(10, $t, $w['Sesi'], 'B', 0, 'R');
        $p->Cell(10, $t, $w['SKS'], 'B', 0, 'R');
        $p->Cell(10, $t, $w['MaxSKS'], 'B', 0, 'R');
        $p->Cell(60, $t, $NamaPA, 'BR', 0);
        $p->Ln($t);
        $ttl++;
    }
    $p->Ln($t);
    $p->SetFont('Helvetica', 'B', 12);
    $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $ttl, 0, 0);
}

function BuatIsinya($TahunID, $ProdiID, $p)
{
    $maxentryperpage = 45;
    $whr_prodi = empty($ProdiID) ? '' : "and h.ProdiID = '{$ProdiID}' ";
    $whr_tahun = empty($TahunID) ? '' : "and h.TahunID = '{$TahunID}' ";
    $s = "select h.*,\r\n      m.Nama as NamaMhsw, m.AsalSekolah, a.Nama as NamaSekolah,\r\n      d.Nama as NamaPA, d.Gelar\r\n    from khs h\r\n      left outer join mhsw m on m.MhswID = h.MhswID and m.KodeID = '" . KodeID . "'\r\n      left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "'\r\n\t  left outer join asalsekolah a on a.SekolahID=m.AsalSekolah\r\n\twhere h.KodeID = '" . KodeID . "'\r\n      and h.SKS > 0\r\n      {$whr_prodi}\r\n\t  {$whr_tahun}\r\n    order by a.Nama, m.AsalSekolah,  h.MhswID";
    $r = _query($s);
    $n = 0;
    $t = 5;
    $_as = 'laksdjfalksdfh';
    $nas = 'aosjrnflvq13';
    $ttl = 0;
    while ($w = _fetch_array($r)) {
        if ($_as != $w['AsalSekolah']) {
            if ($n != 0) {
                $p->SetFont('Helvetica', 'B', 12);
                $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $ttl, 0, 1);
                $p->Ln($t);
            }
            $p->SetFont('Helvetica', '', 10);
            $_as = $w['AsalSekolah'];
            $NamaSekolah = $w['AsalSekolah'];
            if ($_nas != $w['NamaSekolah']) {
                $_nas = $w['NamaSekolah'];
                $NamaSekolah = GetaField('asalsekolah', "SekolahID", $_as, 'Nama');
            }
            BuatHeader($TahunID, $NamaSekolah, 1, $p);
            $ttl = 0;
        }
        $n++;
        $NamaPA = empty($w['NamaPA']) ? '(Belum diset)' : $w['NamaPA'];
        $p->SetFont('Helvetica', '', 10);
        $p->Cell(15, $t, $ttl + 1, 'LB', 0);
        $p->Cell(25, $t, $w['MhswID'], 'B', 0);
        $p->Cell(60, $t, $w['NamaMhsw'], 'B', 0);
        $p->Cell(10, $t, $w['Sesi'], 'B', 0, 'R');
        $p->Cell(10, $t, $w['SKS'], 'B', 0, 'R');
        $p->Cell(10, $t, $w['MaxSKS'], 'B', 0, 'R');
        $p->Cell(60, $t, $NamaPA . $w['AsalSekolah'], 'BR', 0);
        $p->Ln($t);
        $ttl++;
    }
    $p->Ln($t);
    $p->SetFont('Helvetica', 'B', 12);
    $p->Cell(100, $t, 'Jumlah Mahasiswa: ' . $ttl, 0, 0);
}

function BuatIsinya($KurikulumID, $ProdiID, $p)
{
    $t = 4;
    $jumsesi = GetaField('mk', "KodeID='" . KodeID . "' and KurikulumID = '{$KurikulumID}' and ProdiID", $ProdiID, 'MAX(Sesi)');
    $s = "select * from jenismk where ProdiID = '{$ProdiID}' and NA = 'N' order by Singkatan";
    $q = _query($s);
    $p->addPage('P', 'A4');
    BuatHeader($jumsesi, $ProdiID, $p);
    for ($i = 1; $i <= $jumsesi; $i++) {
        $totalT[$i] = 0;
        $totalP[$i] = 0;
        $totalS[$i] = 0;
    }
    $totalTall = 0;
    $totalPall = 0;
    $totalSall = 0;
    while ($w = _fetch_array($q)) {
        $p->SetFont('Helvetica', '', 5);
        $p->Cell(5, $t, "", 1, 0);
        $p->Cell(185, $t, $w[Singkatan], 1, 1);
        $s2 = "select * from mk where ProdiID = '{$ProdiID}' and KurikulumID = '{$KurikulumID}' and NA = 'N' and JenisMKID = {$w['JenisMKID']} order by Nama";
        $q2 = _query($s2);
        $n = 0;
        $lbrSks = 125 / $jumsesi / 3;
        for ($i = 1; $i <= $jumsesi; $i++) {
            $sesiTjum[$i] = 0;
            $sesiPjum[$i] = 0;
            $sesijum[$i] = 0;
        }
        $subTjum = 0;
        $subPjum = 0;
        $subjum = 0;
        while ($w2 = _fetch_array($q2)) {
            $n++;
            $p->Cell(5, $t, $n, 1, 0);
            $p->Cell(30, $t, $w2[Nama], 1, 0);
            $p->Cell(15, $t, $w2[MKKode], 1, 0, 'C');
            $sksTjum = 0;
            $sksPjum = 0;
            $sksjum = 0;
            for ($i = 1; $i <= $jumsesi; $i++) {
                if ($w2[Sesi] == $i) {
                    $sksT = $w2[SKSTatapMuka];
                    $sksP = $w2[SKSPraktikum];
                    $sks = $w2[SKS];
                    $sksTjum += $sksT;
                    $sksPjum += $sksP;
                    $sksjum += $sks;
                    // HITUNG SUB TOTAL SESI
                    $sesiTjum[$i] += $sksT;
                    $sesiPjum[$i] += $sksP;
                    $sesijum[$i] += $sks;
                } else {
                    $sksT = "";
                    $sksP = "";
                    $sks = "";
                }
                $p->Cell($lbrSks, $t, $sksT, 1, 0, 'C');
                $p->Cell($lbrSks, $t, $sksP, 1, 0, 'C');
                $p->Cell($lbrSks, $t, $sks, 1, 0, 'C');
            }
            $p->Cell(5, $t, $sksTjum, 1, 0, 'C');
            $p->Cell(5, $t, $sksPjum, 1, 0, 'C');
            $p->Cell(5, $t, $sksjum, 1, 0, 'C');
            $p->ln($t);
            $subTjum += $sksTjum;
            $subPjum += $sksPjum;
            $subjum += $sksjum;
        }
        // BUAT TABEL SUB TOTAL
        $p->SetFont('Helvetica', 'B', 5);
        $p->Cell(5, $t, "", 1, 0);
        $p->Cell(30, $t, "SUB TOTAL", 1, 0);
        $p->Cell(15, $t, "", 1, 0, 'C');
        for ($i = 1; $i <= $jumsesi; $i++) {
            if ($sesijum[$i] == 0) {
                $sesiTjum[$i] = "";
                $sesiPjum[$i] = "";
                $sesijum[$i] = "";
            }
            $p->Cell($lbrSks, $t, $sesiTjum[$i], 1, 0, 'C');
            $p->Cell($lbrSks, $t, $sesiPjum[$i], 1, 0, 'C');
            $p->Cell($lbrSks, $t, $sesijum[$i], 1, 0, 'C');
            $totalT[$i] += $sesiTjum[$i] + 0;
            $totalP[$i] += $sesiPjum[$i] + 0;
            $totalS[$i] += $sesijum[$i] + 0;
        }
        $p->Cell(5, $t, $subTjum, 1, 0, 'C');
        $p->Cell(5, $t, $subPjum, 1, 0, 'C');
        $p->Cell(5, $t, $subjum, 1, 0, 'C');
        $p->ln($t);
        $totalTall += $subTjum;
        $totalPall += $subPjum;
        $totalSall += $subjum;
    }
    // BUAT TABEL TOTAL
    $p->SetFont('Helvetica', 'B', 5);
    $p->SetFillColor(200, 200, 200);
    $p->Cell(5, $t, "", 1, 0, 'L', true);
    $p->Cell(30, $t, "TOTAL", 1, 0, 'L', true);
//.........这里部分代码省略.........

$TahunID = GetSetVar('_jdwlTahun');
$ProdiID = GetSetVar('_jdwlProdi');
$ProgramID = GetSetVar('_jdwlProg');
$_jdwlHari = GetSetVar('_jdwlHari');
$_jdwlKelas = GetSetVar('_jdwlKelas');
$_jdwlSemester = GetSetVar('_jdwlSemester');
$thn = GetFields('tahun', "TahunID='{$TahunID}' and KodeID='" . KodeID . "' and ProdiID='{$ProdiID}' and ProgramID", $ProgramID, "*");
$lbr = 280;
$pdf = new FPDF('L');
$pdf->SetTitle("Jadwal Kuliah - {$TahunID}");
$pdf->SetAutoPageBreak(true, 5);
$pdf->AddPage('L');
$pdf->SetFont('Helvetica', 'B', 14);
HeaderLogo("Jadwal Kuliah", $pdf, 'L');
// Buat header dulu
BuatHeader($thn, $pdf);
// Tampilkan datanya
AmbilJadwal($thn, $pdf);
// Buat footer
BuatFooter($thn, $pdf);
$pdf->Output();
// *** Functions ***
function BuatFooter($thn, $p)
{
    global $arrID;
    $mrg = 220;
    $t = 6;
    // Tanda tangan
    $pjbt = GetFields('pejabat', "KodeID='" . KodeID . "' and KodeJabatan", 'PUKET1', "*");
    $p->Ln(4);
    $p->Cell($mrg);

include_once "../dwo.lib.php";
include_once "../db.mysql.php";
include_once "../connectdb.php";
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
// *** Parameters ***
$TahunID = GetSetVar('TahunID');
$DosenID = GetSetVar('DosenID');
$dsn = GetFields('dosen', "Login='{$DosenID}' and KodeID", KodeID, "*");
// *** Main ***
$pdf = new PDF();
$pdf->SetTitle("Jadwal Dosen");
$pdf->AddPage();
// Buat header dulu
BuatHeader($TahunID, $dsn, $pdf);
// Tampilkan datanya
AmbilJadwal($TahunID, $dsn, $pdf);
$pdf->Output();
// *** Functions ***
function BuatHeader($TahunID, $dsn, $p)
{
    $lbr = 190;
    $t = 5;
    $p->SetFont('Helvetica', 'B', 14);
    $p->Cell($lbr, $t, "Jadwal Mengajar - {$TahunID}", 0, 1, 'C');
    $p->Cell($lbr, $t, "Dosen: {$dsn['Nama']}, {$dsn['Gelar']}", 0, 1, 'C');
    $p->Ln(2);
}
function AmbilJadwal($TahunID, $dsn, $p)
{

function Cetak()
{
    global $_lf, $arrUjian;
    // Parameters
    $ctk = $_REQUEST['ctk'] + 0;
    $jdwlid = $_REQUEST['JadwalID'];
    $jdwl = GetFields("jadwal", 'JadwalID', $jdwlid, "*");
    $pserial = GetaField("jadwal", "MKKode = '{$jdwl['MKKode']}' and TahunID='{$jdwl['TahunID']}' and NamaKelas='{$jdwl['NamaKelas']}' and JenisJadwalID='{$jdwl['JenisJadwalID']}' and JadwalSer", $jdwlid, "JadwalID") + 0;
    if (empty($jdwl)) {
        die("Data tidak ditemukan.");
    }
    // Buat File
    $nmf = HOME_FOLDER . DS . "tmp/{$jdwlid}.dwoprn";
    $f = fopen($nmf, 'w');
    $hal = 0;
    $n = 0;
    $brs = 0;
    $maxbaris = 20;
    $dsntambah = !empty($_REQUEST['DSN']) ? GetaField('dosen', 'Login', $_REQUEST['DSN'], "concat(Nama, ' ', Gelar)") : '';
    //echo $dsntambah;
    $serial = $jdwl['JadwalSer'] == 0 ? $jdwlid : $jdwl['JadwalSer'];
    // Daftar mhsw
    //GetArrayTable($sql, $key, $label, $separator=', ', $diapit=''
    //$statusmhswaktif = GetArrayTable("select StatusMhswID from statusmhsw where Nilai=1 order by StatusMhswID",
    //  "StatusMhswID", "StatusMhswID", ',', "'");
    // Hitung Jumlah Jadwal-ID Serialnya :
    $mTahunID = $jdwl[TahunID];
    $mMKKode = $jdwl[MKKode];
    $mNamaKelas = $jdwl[NamaKelas];
    $mJenisJadwalID = $jdwl[JenisJadwalID];
    $DaftarJadwalID = _query("select jadwalID from jadwal \r\n                            where TahunID='{$mTahunID}' and \r\n                                  MKKode='{$mMKKode}' and\r\n                                  NamaKelas='{$mNamaKelas}' and\r\n                                  JenisJadwalID='{$mJenisJadwalID}' order by JadwalID");
    $ID = "(";
    while ($rID = _fetch_array($DaftarJadwalID)) {
        if ($ID == "(") {
            $ID = $ID . $rID[JadwalID];
        } else {
            $ID = $ID . "," . $rID[JadwalID];
        }
    }
    $ID = $ID . ")";
    //$DaftarTatapMuka=_query("select count(*) as TatapMuka from presensi where JadwalID in $ID");
    $pres = GetaField("presensi", "JadwalID", $jdwlid, "count(*)");
    if ($pserial != 0) {
        $presserial = GetaField("presensi", "JadwalID", $pserial, "count(*)");
    }
    $prestot = $pres + $presserial;
    //$RecordTatapMuka = _fetch_array($DaftarTatapMuka);
    $tatapmuka = $prestot;
    //echo $pserial;
    //$tatapmuka = GetaField("presensi", "JadwalSer", $jdwlid, "count()")
    $s = "select m.MhswID, m.Nama, krs.KRSID, \r\n    khs.Biaya, khs.Potongan, khs.Bayar, khs.Tarik\r\n    from krs krs \r\n      left outer join mhsw m on krs.MhswID=m.MhswID\r\n      left outer join khs khs on krs.KHSID=khs.KHSID\r\n    where krs.JadwalID='{$serial}' and khs.Cetak='Y'\r\n      and krs.StatusKRSID='A'\r\n      and m.StatusMhswID in ('A')\r\n    order by m.mhswid";
    $r = _query($s);
    $mrgisi = '         ';
    $jumrec = _num_rows($r);
    $jumhal = ceil($jumrec / $maxbaris);
    $ctk = $_REQUEST['ctk'] + 0;
    $nmujian = $arrUjian[$ctk];
    // Kuliah atau Ujian?
    if ($ctk == 0) {
        $RG = $jdwl['RuangID'];
        $JumlahRG = 1;
        $Batas = 1000;
    } else {
        $_RG = $jdwl[$nmujian . "RuangID"];
        $RG = explode(',', $_RG);
        $JumlahRG = sizeof($RG);
        $_ruang1 = explode(':', $RG[0]);
        $Batas = empty($_ruang1[1]) ? 1000 : $_ruang1[1];
        //echo $Batas;
    }
    $RGKE = 0;
    $RG_ = 0;
    //echo $DSNTAM;
    $hdr = BuatHeader($jdwl, $ctk, $hal, $jumhal, $RG[$RGKE], $dsntambah);
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        $RG_++;
        if ($RG_ > $Batas) {
            $RGKE++;
            $RG_ = 1;
            $_ruang1 = explode(':', $RG[0]);
            $Batas = empty($_ruang1[1]) ? 1000 : $_ruang1[1];
            // echo $Batas;
            $brs = $maxbaris + 2;
            $n = 0;
        }
        if ($brs >= $maxbaris) {
            fwrite($f, chr(12));
            fwrite($f, BuatHeader($jdwl, $ctk, $hal, $jumhal, $RG[$RGKE], $dsntambah));
            $brs = 0;
        }
        $item = '';
        if ($ctk == 0) {
            $brs++;
            $n++;
            $item = $mrgisi . str_pad($n . '. ', 5) . str_pad($w['MhswID'], 12) . $w['Nama'];
        } else {
            $balance = -$w['Biaya'] - $w['Tarik'] + $w['Potongan'] + $w['Bayar'];
            if ($balance < 0) {
                $NamaMhsw = "Anda masih memiliki hutang.";
//.........这里部分代码省略.........

include_once "../header_pdf.php";
// *** Parameters ***
$khsid = $_REQUEST['khsid'];
$khs = GetFields("khs", "KHSID", $khsid, "*");
if (empty($khs)) {
    die(ErrorMsg("Error", "Data mahasiswa tidak ditemukan.<br />\r\n    Hubungi Sysadmin untuk informasi lebih lanjut.\r\n    <hr size=1 color=silver />\r\n    <input type=button name='Tutup' value='Tutup'\r\n      onClick=\"window.close()\" />"));
}
$mhsw = GetFields("mhsw m\r\n  left outer join dosen d on d.Login = m.PenasehatAkademik and d.KodeID = '" . KodeID . "' ", "m.KodeID='" . KodeID . "' and m.MhswID", $khs['MhswID'], "m.MhswID, m.Nama, m.PenasehatAkademik, m.StatusAwalID, m.StatusMhswID,\r\n  m.TotalSKS,\r\n  if (d.Nama is NULL or d.Nama = '', 'Belum diset', concat(d.Nama, ', ', d.Gelar)) as PA");
$lbr = 190;
$pdf = new PDF();
$pdf->SetTitle("Borang Rencana Studi");
$pdf->AddPage();
$pdf->SetFont('Helvetica', 'B', 16);
$pdf->Cell($lbr, 9, "Borang Rencana Studi", 0, 1, 'C');
// Buat header dulu
BuatHeader($khs, $mhsw, $pdf);
// Tampilkan datanya
AmbilKRS($khs, $mhsw, $pdf);
// Buat footer
BuatFooter($khs, $mhsw, $pdf);
$pdf->Output();
// *** Functions ***
function BuatFooter($khs, $mhsw, $p)
{
    global $arrID;
    $t = 6;
    // Yang diambil
    $p->Cell(100, $t, "Jumlah SKS yang diambil:", 'LB', 0, 'R');
    $p->Cell(10, $t, $khs['SKS'], 'B', 0, 'C');
    $p->Cell(82, $t, ' ', 'BR', 1);
    // Yang sudah ditempuh

    HeaderLogo("DAFTAR PRESENSI MAHASISWA", $pdf, 'L');
    // Buat header dulu
    BuatHeader($jdwl, $Kolom, $pdf);
    // Buat rekap kehadiran dan tanda tangan
    BuatEnding($jdwl, $Kolom, $pdf);
    // Buat footer
    BuatFooter($jdwl, $i + 2, $totalpage, $pdf);
} else {
    $s1 = "select k.MhswID, m.Nama\r\n\t\tfrom krs k\r\n\t\t  left outer join mhsw m on m.MhswID = k.MhswID and m.KodeID = '" . KodeID . "'\r\n\t\twhere k.JadwalID = '{$jdwl['JadwalID']}'\r\n\t\torder by k.MhswID\r\n\t\tlimit {$start}, {$maxentryperpage}";
    $r1 = _query($s1);
    $pdf->AddPage('L');
    $pdf->SetAutoPageBreak(true, 5);
    // Buat Header Logo
    HeaderLogo("DAFTAR PRESENSI MAHASISWA", $pdf, 'L');
    // Buat header dulu
    BuatHeader($jdwl, $Kolom, $pdf);
    // Tampilkan datanya
    AmbilDetail($jdwl, $r1, $start, $Kolom, $pdf);
    // Buat rekap kehadiran dan tanda tangan
    BuatEnding($jdwl, $Kolom, $pdf);
    // Buat footer
    BuatFooter($jdwl, $i + 1, $totalpage, $pdf);
}
$pdf->Output();
// *** Functions ***
function BuatEnding($jdwl, $Kolom, $p)
{
    global $arrID;
    $lbrkolom = 12;
    $t = 8;
    // Footer

include_once "../dwo.lib.php";
include_once "../db.mysql.php";
include_once "../connectdb.php";
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
// *** Parameters ***
$TahunID = GetSetVar('TahunID');
$DosenID = GetSetVar('DosenID');
$dsn = GetFields('dosen', "Login='{$DosenID}' and KodeID", KodeID, "*");
// *** Main ***
$pdf = new PDF();
$pdf->SetTitle("Jadwal Dosen");
$pdf->AddPage();
// Buat header dulu
BuatHeader($dsn, $pdf);
// Tampilkan datanya
DaftarMhsw($dsn, $pdf);
$pdf->Output();
// *** Functions ***
function BuatHeader($dsn, $p)
{
    $lbr = 190;
    $t = 6;
    $p->SetFont('Helvetica', 'B', 14);
    $p->Cell($lbr, $t, "Daftar Mahasiswa", 0, 1, 'C');
    $p->SetFont('Helvetica', 'B', 12);
    $p->Cell($lbr, $t, "Dosen PA: {$dsn['Nama']}, {$dsn['Gelar']}", 0, 1, 'C');
    $p->Ln(2);
}
function DaftarMhsw($dsn, $p)

function CetakKartu($arrID, $w)
{
    BuatHeader($arrID);
}