Example #1
0
function BuatHeader($TahunID, $ProdiID, $p)
{
    global $lbr;
    $NamaTahun = NamaTahun($TahunID);
    $NamaProdi = GetaField('prodi', "KodeID = '" . KodeID . "' and ProdiID", $ProdiID, 'Nama');
    $p->SetFont('Helvetica', 'B', 12);
    $p->Cell($lbr, 6, "Rekap Kehadiran Kuliah - {$NamaTahun}", 0, 1, 'C');
    $p->SetFont('Helvetica', 'I', 10);
    $p->Cell($lbr, 6, "Program Studi {$NamaProdi}", 0, 1, 'C');
}
function CetakTandaTerima()
{
    global $_lf;
    $_whr = array();
    if (!empty($_SESSION['prodi'])) {
        $_whr[] = "m.ProdiID='{$_SESSION['prodi']}'";
    }
    $whr = empty($_whr) ? '' : " and " . implode(' and ', $_whr);
    $s = "select ta.MhswID, m.*\r\n    from ta ta\r\n      left outer join mhsw m on m.MhswID = ta.MhswID\r\n      left outer join prodi p on m.ProdiID=p.ProdiID \r\n      left outer join wisudawan w on w.MhswID = ta.MhswID\r\n    where m.KodeID='{$_SESSION['KodeID']}'\r\n    and m.noijazah != ' '\r\n    and m.TglSKKeluar = '{$_SESSION['TglSK']}'\r\n    and ta.Lulus = 'Y'\r\n    {$whr}\r\n    order by ta.MhswID";
    $r = _query($s);
    $maxcol = 114;
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    $prn = $_SESSION['_Printer'] == 0 ? chr(27) . chr(15) . chr(27) . chr(108) . chr(5) : chr(27) . chr(38) . chr(107) . chr(50) . chr(83) . chr(27) . chr(38) . chr(108) . chr(54) . chr(68) . chr(27) . chr(40) . chr(115) . chr(51) . chr(66);
    fwrite($f, $prn);
    $div = str_pad('-', $maxcol, '-') . $_lf;
    // parameter2
    $n = 0;
    $hal = 1;
    $brs = 0;
    $maxbrs = 46;
    $Njur = GetFields("prodi p left outer join Fakultas f on f.FakultasID = p.FakultasID", "p.ProdiID", $_SESSION['prodi'], "p.Nama as pnama, f.Nama as fnama");
    $NamaFakJur = !empty($Njur) ? $Njur['fnama'] . '/' . $Njur['pnama'] : "Semua Prodi";
    $hdr = str_pad("** TANDA TERIMA PENGAMBILAN IJAZAH **", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf . "SEMESTER       : " . NamaTahun($_SESSION['tahun']) . $_lf . "Fak/Jur        : " . $NamaFakJur . $_lf . "TGL SK REKTOR  : " . $_SESSION['TglSK'] . $_lf . $div . "No   NIM       NAMA                             NO.IJAZAH      TGL.TERIMA    TTD IJAZAH    TTD TRANSKRIP" . $_lf . $div . $_lf;
    $jump = 0;
    $jumw = 0;
    $Titik = "...........";
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        if ($brs > $maxbrs) {
            fwrite($f, $div);
            fwrite($f, str_pad('Halaman : ' . $hal . "/" . $jumhal, 10, ' ') . $_lf);
            $hal++;
            $brs = 1;
            fwrite($f, chr(12));
            fwrite($f, $hdr . $_lf);
        }
        $isi = str_pad($n . '.', 4, ' ') . str_pad($w['MhswID'], 11, ' ') . str_pad($w['Nama'], 33, ' ') . str_pad($w['NoIjazah'], 15, ' ') . str_pad($Titik, 14, ' ') . str_pad($Titik, 15, ' ') . str_pad($Titik, 13, ' ') . $_lf . $_lf;
        fwrite($f, $isi);
    }
    //$jumtotP = GetaField('wisudawan w left outer join mhsw m on w.MhswID = m.MhswID',"m.Kelamin = 'P' and WisudaID", $wsd['WisudaID'], "count(m.MhswID)");
    //$jumtotW = GetaField('wisudawan w left outer join mhsw m on w.MhswID = m.MhswID',"m.Kelamin = 'W' and WisudaID", $wsd['WisudaID'], "count(m.MhswID)");
    fwrite($f, $div);
    // fwrite($f, "Jumlah Seluruh Peserta/Jurusan : - Pria = $jump  - Wanita = $jumw" . $_lf);
    //fwrite($f, $div);
    //fwrite($f, "Jumlah Seluruh Peserta Seluruhnya : - Pria = $jumtotP  - Wanita = $jumtotW" . $_lf);
    //fwrite($f, $div);
    fwrite($f, str_pad("Dicetak oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 50, ' ') . str_pad("Akhir Laporan", 60, ' ', STR_PAD_LEFT));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "form.tandaterima");
}
function HeaderKrs($tahun, $_prid, $_prodi, $div, $maxcol, &$hal, $RentangNPM = '')
{
    global $_lf;
    $hdr = str_pad("*** Daftar KRS Mahasiswa Dispensasi ***", $maxcol, ' ', STR_PAD_BOTH) . $_lf;
    $hdr .= str_pad("Program       : {$_prid}", $maxcol, ' ') . $_lf;
    $hdr .= str_pad("Program Studi : {$_prodi}", $maxcol, ' ') . $_lf;
    $hdr .= str_pad("Semester      : " . NamaTahun($_SESSION['tahun']), 50, ' ') . $_lf . $RentangNPM . $_lf . $div;
    $hdr .= "No. NPM          NAMA            Kode    Nama Matakuliah               SKS   TGL DISPEN   CATATAN DISPEN                 " . $_lf;
    $hdr .= $div;
    return $hdr;
}
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal)
{
    global $_lf;
    $hal++;
    $hdr = str_pad('*** REKAPITULASI TAGIHAN KRS - AUTODEBET **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf;
    $hdr .= "Prodi          : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 6) . str_pad("NIM", 12) . str_pad("NAMA", 35) . str_pad('PRG   ', 3) . str_pad("       TAGIH", 12) . $_lf;
    $hdr .= $div;
    return $hdr;
}
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal)
{
    global $_lf;
    $hal++;
    $hdr = str_pad('*** LAPORAN KEWAJIBAN PER ANGKATAN **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf;
    $hdr .= "Prodi          : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 6) . str_pad("NIM", 12) . str_pad("NAMA", 35) . str_pad('PRG   ', 3) . str_pad("       TAGIH", 12) . $_lf;
    $hdr .= $div;
    return $hdr;
}
function HeaderKRS($tahun, $_prid, $_prodi, $div, $maxcol, &$hal, $RentangNPM = '')
{
    global $_lf;
    $RentangNPM = !empty($RentangNPM) ? $RentangNPM . $_lf : '';
    $hdr = str_pad("** Daftar Mahasiswa Terdaftar KRS " . NamaTahun($_SESSION['tahun']) . " Tidak Cetak KSS **", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf;
    $hdr .= "Program  : {$_prid}" . $_lf;
    $hdr .= "Prodi    : {$_prodi}" . $_lf;
    $hdr .= $RentangNPM;
    $hdr .= $div;
    $hdr .= "No.  NPM          Nama                     Ambil SKS   IPK  Batas Studi" . $_lf . $div;
    return $hdr;
}
function HeaderKrs($tahun, $_prid, $_prodi, $div, $maxcol, &$hal, $RentangNPM = '')
{
    global $_lf;
    $hal++;
    $hdr = str_pad("*** Daftar KRS Mahasiswa ***", $maxcol, ' ', STR_PAD_BOTH) . $_lf;
    $hdr .= str_pad("Program       : {$_prid}", $maxcol, ' ') . $_lf;
    $hdr .= str_pad("Program Studi : {$_prodi}", 40, ' ') . str_pad("Halaman : {$hal}", 50, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= str_pad("Semester      : " . NamaTahun($_SESSION['tahun']), 50, ' ') . $_lf . $RentangNPM . $_lf . $div;
    $hdr .= "No. NPM          NAMA          T.SKS SKS IPS  Kode    Nama Matakuliah               SKS" . $_lf;
    $hdr .= $div;
    return $hdr;
}
function HeaderPindahan($tahun, $prodi, $div, $maxcol, &$hal)
{
    global $_lf;
    $hal++;
    $hdr = str_pad('*** DAFTAR PENYETARAAN MATA KULIAH PINDAHAN **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf;
    $hdr .= "Prodi          : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 6) . str_pad("KODE", 8) . str_pad("MATA KULIAH", 35) . str_pad('SKS', 6) . str_pad('NILAI', 6) . str_pad('GRADE', 4) . str_pad('>>>', 5) . str_pad("KODE", 8) . str_pad("MATA KULIAH", 35) . str_pad('SKS', 6) . str_pad('NILAI', 6) . str_pad('GRADE', 4) . $_lf;
    $hdr .= $div;
    return $hdr;
}
Example #9
0
function Cetak()
{
    global $_lf;
    echo "<body bgcolor=#EEFFFF>";
    // Parameters
    $pos = $_SESSION['KHS-POS'];
    $max = $_SESSION['KHS-MAX'];
    $nmf = $_SESSION['KHS-FILE'];
    $_khsid = $_SESSION['khsid'];
    $khsid = $_khsid[$pos];
    if ($pos < $max) {
        // Buat file
        $f = fopen($nmf, 'a');
        // Buat KHS
        $khs = GetFields("khs khs\r\n      left outer join mhsw m on khs.MhswID=m.MhswID\r\n      left outer join program prg on khs.ProgramID=prg.ProgramID\r\n      left outer join prodi prd on khs.ProdiID=prd.ProdiID", "khs.JumlahMK <> 0 and khs.KHSID", $khsid, "khs.*, m.Nama as NamaMhsw, m.BatasStudi, prg.Nama as PRG, prd.Nama as PRD");
        $thn = GetFields("tahun", "ProgramID='{$khs['ProgramID']}' and ProdiID='{$khs['ProdiID']}' and TahunID", $khs['TahunID'], "*");
        $bal = $khs['Biaya'] - $khs['Potongan'] - ($khs['Bayar'] + $khs['Tarik']);
        $prsBal = $bal + $bal * 5 / 100;
        $_bal = number_format($prsBal);
        $peringatan = "    Anda masih memiliki utang sebesar Rp.{$_bal}. {$_lf} \r\n    Anda tidak akan mendapat KHS dan juga tidak dapat mendaftar KRS {$_lf}\r\n    sebelum utang ini anda lunasi. {$_lf}\r\n    Lakukan pembayaran di Bank sesuai dengan prosedur yang berlaku.";
        fwrite($f, chr(27) . chr(64) . chr(27) . chr(18) . chr(27) . chr(67) . chr(33));
        // chr67+chr33 -> membuat menjadi 33 baris
        // Buat header
        $mrghdr = str_pad(' ', 18, ' ');
        $_BatasStudi = NamaTahun($khs['BatasStudi']);
        $hdr = $_lf . $_lf . $_lf . $_lf . $mrghdr . $thn['Nama'] . $_lf . $mrghdr . $khs['PRG'] . '/' . $khs['PRD'] . $_lf . $mrghdr . $khs['MhswID'] . $_lf . $mrghdr . $khs['NamaMhsw'] . $_lf . $mrghdr . $_BatasStudi . $_lf . $_lf . $_lf . $_lf . $_lf;
        fwrite($f, $hdr);
        /*if ($bal <= 0) {
            $isi = $_lf . GetIsiKHS($khsid, $khs);
          } else { 
            $isi = $_lf . "$peringatan" . $_lf.$_lf.$_lf.$_lf.$_lf.$_lf.$_lf;
          }*/
        if ($bal <= 0) {
            $isi = $_lf . GetIsiKHS($khsid, $khs);
        } else {
            $isi = $_lf . "{$peringatan}" . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf;
        }
        fwrite($f, $isi);
        $tgl = date('d-m-Y');
        fwrite($f, str_pad(' ', 67) . $tgl . $_lf);
        fwrite($f, chr(12));
        // Tutup file
        fclose($f);
        // refresh page
        echo "<p>Proses KHS: <font size=+2>{$pos}/{$max}</font><br />\r\n\t{$khsid} &raquo; {$khs['NamaMhsw']}</p>";
        echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 2);</script>";
    } else {
        echo "<p>Pembuatan file Cetak KHS telah selesai.<br />\r\n\tUntuk memulai mencetak klik: <a href='{$nmf}'><img src='img/printer.gif' border=0></a></p>";
        //echo "<p>Untuk Preview Hasil Cetak klik di <a href=blanko.preview.php?nmf=$nmf target=_blank>sini</a></p>";
        echo "<p>Untuk melihat preview klik <a href=blanko.preview.php?nmf={$nmf} target=_blank><img src='img/view.png' border=0></a></p>";
    }
    $_SESSION['KHS-POS']++;
}
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal)
{
    global $_lf;
    $hal++;
    $hdr = str_pad('*** DAFTAR MAHASISWA BARU **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Tahun Akademik :" . NamaTahun($tahun) . $_lf;
    $hdr .= "Prodi          : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 5) . str_pad("PMBID", 12) . str_pad("NIM/NPM", 12) . str_pad('NAMA', 35) . str_pad("PROGRAM", 12) . str_pad("STATUS", 10) . $_lf;
    $hdr .= $div;
    return $hdr;
}
function Headerxx($tahun, $prodi, $jenis, $div, $maxcol, &$hal)
{
    global $_lf;
    $hal++;
    $NamaJenis = $jenis == 'K' ? "" : '(RESPONSI)';
    $hdr = str_pad("*** TANDA TERIMA DISKET NILAI {$NamaJenis} ***", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf;
    $hdr .= "Prodi          : {$prodi}" . str_pad('Halaman : ' . $hal, 85, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 4) . str_pad("KODE MK", 8) . str_pad("NAMA MK", 35) . str_pad('KELAS', 6) . str_pad("JML MHSW", 9) . str_pad("NMR", 5) . str_pad("NAMA DOSEN", 35) . str_pad("| DISKET", 10) . str_pad("| FINAL", 10) . $_lf;
    $hdr .= $div;
    return $hdr;
}
function Cetak($t = 'UTS')
{
    global $_lf;
    $jdwl = GetFields('jadwal', 'JadwalID', $_REQUEST['jdwlid'], "*");
    $dsn = TRIM($jdwl['DosenID'], '.');
    $arrdsn = explode('.', $dsn);
    $strdsn = empty($arrdsn) ? "GaAdaNih" : implode(',', $arrdsn);
    $nmdsn = GetArrayTable("select concat(Nama, ', ', Gelar) as DSN from dosen where Login in ({$strdsn}) order by Nama", "Login", "DSN");
    // Buat file
    //$nmf = HOME_FOLDER  .  DS . "tmp/uts.$_REQUEST[jdwlid].dwoprn";
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    $maxkol = 80;
    $maxbrs = 40;
    fwrite($f, chr(27) . chr(77));
    // Buat header
    $div = str_pad('-', $maxkol, '-') . $_lf;
    $NamaTahun = NamaTahun($jdwl['TahunID']);
    $adagrade = $t == 'FINAL' ? 'Grade' : '';
    $adanilai = $t == 'FINAL' ? '       ' : "Nilai  ";
    $hdr = $_lf . $_lf . str_pad("*** Hasil Nilai {$t} ***", $maxkol, ' ', STR_PAD_BOTH) . $_lf . $_lf . "Semester       : " . $NamaTahun . $_lf . "Matakuliah     : " . str_pad($jdwl['MKKode'] . ' - ' . $jdwl['Nama'], 30) . $_lf . "Kelas          : " . $jdwl['NamaKelas'] . $_lf . "Dosen Pengampu : " . $nmdsn . $_lf . $div . "No. NPM             Nama Mahasiswa               {$adanilai}{$adagrade}" . $_lf . $div;
    fwrite($f, $hdr);
    // Tuliskan isinya
    $s = "select krs.*, LEFT(m.Nama, 30) as NamaMhsw\r\n    from krs krs\r\n      left outer join mhsw m on krs.MhswID=m.MhswID\r\n    where krs.JadwalID='{$jdwl['JadwalID']}'\r\n    order by krs.MhswID";
    $r = _query($s);
    $n = 0;
    $brs = 0;
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        $grd = $t == 'FINAL' ? $w['GradeNilai'] : '';
        fwrite($f, str_pad($n . '.', 4) . str_pad($w['MhswID'], 15) . ' ' . str_pad($w['NamaMhsw'], 30) . ' ' . str_pad($w[$t], 3, ' ', STR_PAD_LEFT) . '  ' . str_pad($grd, 3) . $_lf);
        if ($brs > $maxbrs) {
            $hal++;
            fwrite($f, $div);
            $brs = 1;
            fwrite($f, "Hal. " . $hal . $_lf);
            fwrite($f, chr(12));
            fwrite($f, $hdr);
        }
    }
    fwrite($f, $div);
    fwrite($f, str_pad(' ', 50) . "Paraf Dosen" . $_lf . $_lf . $_lf . $lf);
    fwrite($f, str_pad(' ', 50) . $nmdsn);
    // Tutup file
    fwrite($f, chr(12));
    fclose($f);
    // Cetak
    include_once "dwoprn.php";
    DownloadDWOPRN($nmf);
}
function PerolehanSKS($mhsw)
{
    $_lf = chr(13) . chr(10);
    $nmf = $_SESSION["PERO-FILE"];
    $f = fopen($nmf, 'a');
    fwrite($f, chr(27) . chr(18));
    // Tampilkan Header
    $div = str_pad('-', 79, '-') . $_lf;
    $hdr = str_pad("*** DAFTAR PEROLEHAN SKS ***", 79, ' ', STR_PAD_BOTH) . $_lf . $_lf . "NPM / NAMA      : " . $mhsw['MhswID'] . '  ' . $mhsw['Nama'] . $_lf . "FAK / JUR       : " . $mhsw['FAK'] . ' / ' . $mhsw['PRD'] . $_lf . "Masa Studi      : " . NamaTahun($mhsw['BatasStudi']) . $_lf . "Penasehat Akd.  : " . $mhsw['PA'] . $_lf . $div . "No.  Kode       Matakuliah                                       SKS   Nilai" . $_lf . $div;
    fwrite($f, $hdr);
    // matakuliah yg diambil
    $s = "select concat(LEFT(krs.MKKode, 3), ' ', SUBSTRING(krs.MKKode, 4, 3)) as MKKode, \r\n    LEFT(mk.Nama, 45) as NamaMK, LEFT(mk.Nama_en, 40) as NamaMK1,\r\n    krs.BobotNilai, krs.GradeNilai, krs.SKS\r\n    from krsprc krs\r\n      left outer join mk mk on krs.MKID=mk.MKID\r\n    where \r\n\tkrs.MhswID='{$mhsw['MhswID']}' and krs.BobotNilai > 0\r\n\t\r\n\tand (GradeNilai <> '-' and GradeNilai <> '' and not GradeNilai is NULL)\r\n\t\r\n    order by krs.MKKode asc, krs.BobotNilai desc";
    $r = _query($s);
    $n = 0;
    $brs = 0;
    $maxbrs = 42;
    $hal = 0;
    $mk = '';
    $_sks = 0;
    $_bbt = 0;
    while ($w = _fetch_array($r)) {
        if ($mk != $w['MKKode']) {
            $mk = $w['MKKode'];
            $n++;
            $brs++;
            $NamaMK = $_SESSION['bhs'] == 'id' ? $w['NamaMK'] : $w['NamaMK1'];
            $_sks += $w['SKS'];
            $_bbt += $w['SKS'] * $w['BobotNilai'];
            fwrite($f, str_pad($n . '.', 4) . ' ' . str_pad($w['MKKode'], 10) . ' ' . str_pad($NamaMK, 45) . '  ' . str_pad($w['SKS'], 4, ' ', STR_PAD_LEFT) . '    ' . str_pad($w['GradeNilai'], 3, ' ') . $_lf);
            if ($brs >= $maxbrs) {
                $brs = 0;
                $hal++;
                fwrite($f, $div . str_pad("Hal. " . $hal, 79, ' ', STR_PAD_LEFT) . $_lf);
                fwrite($f, chr(12));
                fwrite($f, $hdr);
            }
        }
    }
    $_ipk = $_sks > 0 ? $_bbt / $_sks : 0;
    fwrite($f, $div);
    fwrite($f, "Jumlah Kredit yang Telah Diambil: {$_sks} SKS, IPK: " . number_format($_ipk, 2) . $_lf . $div);
    fwrite($f, str_pad("Dicetak Oleh : " . $_SESSION['_Login'] . ', ' . Date("d-m-Y H:i"), 30, ' ') . $_lf);
    fwrite($f, chr(12));
    fclose($f);
}
function Daftar()
{
    global $_lf;
    if (!empty($_SESSION['DariNPM'])) {
        $_SESSION['SampaiNPM'] = empty($_SESSION['SampaiNPM']) ? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM'];
        $_npm = "and '{$_SESSION['DariNPM']}' <= m.MhswID and m.MhswID <= '{$_SESSION['SampaiNPM']}' ";
    } else {
        $_npm = '';
    }
    $prd = empty($_SESSION['prodi']) ? '' : "and m.ProdiID = '{$_SESSION['prodi']}'";
    $s = "select m.* from mhsw m \r\n        where m.StatusMhswID = '{$_SESSION['status']}' {$prd} {$_npm} ";
    $r = _query($s);
    $nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(77));
    // parameter
    $mxc = 160;
    $mxb = 50;
    $brs = 1;
    $grs = str_pad('-', $mxc, '-') . $_lf;
    $n = 0;
    $NamJur = GetaField('prodi', "ProdiID", $_SESSION['prodi'], "Nama");
    $NamaJudul = $_SESSION['status'] == 'D' ? "Drop Out (DO)" : "Keluar";
    $hdr = str_pad("** Daftar Mahasiswa {$NamaJudul}", $mxc, ' ', STR_PAD_BOTH) . $_lf . $_lf . "SEMESTER         : " . NamaTahun($_SESSION['tahun']) . $_lf . "JURUSAN          : " . $NamJur . $_lf . $grs . "No.   NIM         NAMA                                        NO SK                 TANGGAL SK     CATATAN" . $_lf . $grs;
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        if ($brs >= $mxb) {
            $brs = 0;
            fwrite($f, str_pad("Bersambung...", $mxc, ' ', STR_PAD_LEFT) . $_lf);
            fwrite($f, chr(12));
            fwrite($f, $hdr);
        }
        $isi = str_pad($n . '. ', 4) . str_pad($w['MhswID'], 10) . str_pad($w['Nama'], 40) . str_pad($w['SKKeluar'], 30) . str_pad($w['TglSKKeluar'], 15) . str_pad($w['CatatanKeluar'], 30) . $_lf;
        fwrite($f, $isi);
    }
    fwrite($f, $grs);
    fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 60) . str_pad("Akhir Laporan", 100));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, 'akd.lap', 0);
}
function CetakLabelDisket()
{
    global $_lf, $_HeaderPrn;
    $tahun = $_REQUEST['tahun'];
    $prodi = $_REQUEST['prodi'];
    $prid = $_REQUEST['prid'];
    $jadwalid = $_REQUEST['JadwalID'];
    $asal = $_REQUEST['asal'] + 0;
    $labeldskt = HOME_FOLDER . DS . "tmp/labeldisket.dwoprn";
    $mrg = str_pad(' ', 5, ' ');
    $jenisctk = $asal > 0 ? "and j.JadwalID = {$jadwalid}" : "";
    $s = "select j.MKKode, j.Nama, j.NamaKelas, j.SKS, j.SKSAsli, mk.Sesi, j.JenisJadwalID, j.DosenID,\r\n    concat(d.Nama, ', ', d.Gelar) as DSN,\r\n    time_format(j.JamMulai, '%H:%i') as JM, time_format(j.JamSelesai, '%H:%i') as JS\r\n    from jadwal j\r\n      left outer join dosen d on j.DosenID=d.Login\r\n      left outer join mk mk on j.MKID=mk.MKID\r\n    where j.TahunID='{$tahun}'\r\n      and INSTR(j.ProgramID, '.{$prid}.') > 0\r\n      and INSTR(j.ProdiID, '.{$prodi}.') > 0\r\n\t\t\t{$jenisctk}\r\n\t\tgroup by j.MKKode, j.NamaKelas, j.JenisJadwalID\r\n    order by j.MKKode, j.NamaKelas, j.JenisJadwalID";
    $r = _query($s);
    //echo "<pre>$s</pre>";
    //exit;
    $f = fopen($labeldskt, 'w');
    $n = 0;
    fwrite($f, $_HeaderPrn);
    while ($w = _fetch_array($r)) {
        $rps = $w['JenisJadwalID'] == 'K' ? '' : "(R)";
        $n++;
        fwrite($f, chr(27) . chr(15));
        fwrite($f, $mrg . NamaTahun($tahun) . $_lf);
        fwrite($f, chr(27) . chr(119) . '0' . $_lf);
        fwrite($f, chr(27) . chr(15));
        fwrite($f, $mrg . $w['MKKode'] . ' ' . $w['Nama'] . ' ' . $rps . $_lf);
        fwrite($f, $mrg . "KELAS : " . $w['NamaKelas'] . $_lf);
        fwrite($f, $mrg . $w['DosenID'] . ' ' . $w['DSN'] . $_lf);
        //fwrite($f, $mrg . $w['HR'].', '.$w['JM'].' - '.$w['JS'].$_lf);
        fwrite($f, chr(27) . chr(18));
        fwrite($f, $_HeaderPrn);
        fwrite($f, $_lf . $_lf . $_lf);
    }
    fwrite($f, chr(27) . chr(18) . chr(67) . chr(66));
    fclose($f);
    include_once "dwoprn.php";
    DownloadDWOPRN($labeldskt);
}
function Daftar()
{
    global $_lf, $pilstatus;
    $whr = array();
    if (!empty($_SESSION['prodi'])) {
        $whr[] = "m.ProdiID='{$_SESSION['prodi']}'";
    }
    if (!empty($_SESSION['prid'])) {
        $whr[] = "m.ProgramID='{$_SESSION['prid']}'";
    }
    if (!empty($_SESSION['angkat'])) {
        $whr[] = "m.TahunID='{$_SESSION['angkat']}'";
    }
    $_whr = implode(" and ", $whr);
    if (!empty($_whr)) {
        $_whr = " and " . $_whr;
    }
    $_u = explode('~', $pilstatus[$_SESSION['_pilstatus']]);
    $_key = $_u[1];
    // Query
    $pilta = GetArrayTable("select TahunID from khs where TahunID <= '{$_SESSION['tahun']}' and right(TahunID, 1) <> 3 group by TahunID order by TahunID DESC limit 0,{$_SESSION['banyak']}", 'TahunID', 'TahunID');
    $s = "select m.MhswID, LEFT(m.Nama, 25) as Nama, count(khs.MhswID) as tot, KHSID\r\n    from khs \r\n      left outer join mhsw m on khs.MhswID=m.MhswID\r\n    where khs.TahunID in ({$pilta}) {$_whr}\r\n\t  and khs.StatusMhswID = '{$_key}' \r\n\tgroup by khs.MhswID\r\n    order by khs.MhswID ";
    //echo "<pre>$s</pre>";
    $r = _query($s);
    // Buat file
    $MaxCol = 114;
    $nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(77));
    $div = str_pad('-', $MaxCol, '-') . $_lf;
    // parameter2
    $_prodi = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama');
    $_prid = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama');
    $n = 0;
    $hal = 1;
    $brs = 0;
    $maxbrs = 50;
    $_Tgl = Date("d-m-Y H:i");
    $Head = $_key == 'C' ? "*** Daftar Mahasiswa Cuti {$_SESSION['banyak']} Semester Berturut-turut ***" : "*** Daftar Mahasiswa Bolos {$_SESSION['banyak']} Semester Berturut-turut ***";
    // Buat header
    $hdr = str_pad($Head, $MaxCol, ' ', STR_PAD_BOTH) . $_lf . $_lf;
    $hdr .= "Priode  : " . NamaTahun($_SESSION['tahun']) . $_lf;
    $hdr .= "Prodi \t: {$_prodi}" . $_lf;
    $hdr .= "Program : {$_prid}" . $_lf;
    $hdr .= $div;
    $hdr .= "No.  NPM          Nama                          SEMESTER" . $_lf . $div;
    fwrite($f, $hdr);
    // Tampilkan
    while ($w = _fetch_array($r)) {
        //if($w['tot'] >= $_SESSION['banyak']){
        //$n++; $brs++;
        //if ($brs > $maxbrs) {
        //  $hal++; $brs =1;
        //  fwrite($f, $div);
        //  fwrite($f, chr(12));
        //  fwrite($f, $hdr);
        //}
        $MH = CariBerurutan($_key, $pilta, $w, $hdr, $brs, $maxbrs, $div, $n);
        //$DET = GetFields("mhsw", "MhswID", $MH, "Nama, MhswID");
        //$isi = str_pad($n.'.', 4, ' ') . ' ' .
        //str_pad($DET['MhswID'], 12) . ' '.
        //str_pad($DET['Nama'], 29) . ' '.
        //$pilta.
        //$_lf;
        fwrite($f, $MH);
        //}
    }
    fwrite($f, $div);
    fwrite($f, str_pad("Akhir laporan", 0, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 20, ' ') . str_pad("Dicetak Tgl : " . $_Tgl, 90, ' ', STR_PAD_LEFT) . $_lf . $_lf);
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "akd.lap");
}
Example #17
0
function BuatHeaderDulu($jdwl, $p)
{
    global $lbr;
    $NamaTahun = NamaTahun($jdwl['TahunID']);
    $NamaProdi = GetaField('prodi', "KodeID='" . KodeID . "' and ProdiID", $jdwl['ProdiID'], 'Nama');
    $TagTambahan = $jdwl['Tambahan'] == 'Y' ? "<b>( {$jdwl['_NamaJenisJadwal']} )</b>" : "";
    $arr = array();
    $arr[] = array('Matakuliah', ':', $jdwl['MKKode'], 'Dosen Pengasuh', ':', $jdwl['DSN']);
    $arr[] = array('Matakuliah', ':', $jdwl['Nama'] . ' ' . $TagTambahan, 'Kelas', ':', $jdwl['namaKelas'] . ' / ' . $jdwl['ProgramID']);
    $arr[] = array('Semester / SKS', ':', $jdwl['Sesi'] . ' / ' . $jdwl['SKS'], 'Program Studi', ':', $NamaProdi);
    $arr[] = array('Tahun Akademik', ':', $NamaTahun, 'Kehadiran', ':', $jdwl['Kehadiran'] . ' / ' . $jdwl['RencanaKehadiran']);
    $p->AddPage('P');
    $p->SetFont('Helvetica', 'B', 12);
    $p->Cell($lbr, 6, "Laporan Kehadiran Mahasiswa", 0, 1, 'C');
    $t = 5;
    $p->SetFont('Helvetica', '', 9);
    foreach ($arr as $a) {
        $p->Cell(25, $t, $a[0], 0, 0);
        $p->Cell(4, $t, $a[1], 0, 0);
        $p->Cell(80, $t, $a[2], 0, 0);
        $p->Cell(25, $t, $a[3], 0, 0);
        $p->Cell(4, $t, $a[4], 0, 0);
        $p->Cell(50, $t, $a[5], 0, 0);
        $p->Ln($t);
    }
    $p->Ln(4);
}
Example #18
0
        // Jika sdh ada data, maka edit
        if (!empty($beaBMDID)) {
            $s = "update beasiswamhswdetail set Beasiswa={$Beasiswa}, LoginEdit='{$_SESSION['_Login']}',\r\n        TanggalEdit=now()\r\n        where BeasiswaMhswDetailID={$beaBMDID}";
            $r = _query($s);
        } else {
            if ($Beasiswa > 0) {
                $jml = GetaField('bipotmhsw', "MhswID='{$bm['MhswID']}' and TahunID='{$bm['TahunID']}' and BIPOTNamaID", $_bnid, "sum(Jumlah * Besar)") + 0;
                $s = "insert into beasiswamhswdetail\r\n          (BeasiswaMhswID, MhswID, BIPOTNamaID, Jumlah, Beasiswa,\r\n          LoginBuat, TanggalBuat)\r\n          values ({$beaBMID}, '{$bm['MhswID']}', {$_bnid}, {$jml}, {$Beasiswa},\r\n          '{$_SESSION['_Login']}', now())";
                $r = _query($s);
            }
        }
        //echo "$i. " . $BNID[$i] . " &raquo; $beaBMDID <br />";
    }
    UpdateBesarBeasiswaMhsw($beaBMID);
    DftrBea();
}
function UpdateBesarBeasiswaMhsw($BMID)
{
    $jml = GetaField('beasiswamhswdetail', 'BeasiswaMhswID', $BMID, "sum(Beasiswa)") + 0;
    $s = "update beasiswamhsw set Besar={$jml} where BeasiswaMhswID={$BMID}";
    $r = _query($s);
}
// *** Parameters ***
$prodi = GetSetVar('prodi');
$prid = GetSetVar('prid');
$tahun = GetSetVar('tahun');
$BeasiswaID = GetSetVar('BeasiswaID');
// *** Main ***
$NTahun = NamaTahun($tahun);
TampilkanJudul("Daftar Penerima Beasiswa {$NTahun}");
TampilkanTahunProdiProgram('beasiswa', '');
function daftar()
{
    global $_lf;
    DaftarJadwal();
    $s = "SELECT k.MKKode, mk.Nama, j.NamaKelas, j.JumlahMhswKRS as Jumlah, j.JumlahMhsw, \r\n\t\t\t\t(j.JumlahMhswKRS - j.JumlahMhsw) as Selisih\r\n\t\t\t\tFROM krstemp k\r\n\t\t\t\tLEFT OUTER JOIN jadwal j ON j.JadwalID = k.JadwalID\r\n\t\t\t\tLEFT OUTER JOIN mhsw m ON k.MhswID = m.MhswID\r\n\t\t\t\tLEFT OUTER JOIN mk ON k.MKID = mk.MKID\r\n\t\t\t\tWHERE k.tahunid = {$_SESSION['tahun']}\r\n\t\t\t\tAND m.ProdiID = '{$_SESSION['prodi']}'\r\n\t\t\t\t\r\n\t\t\t\tAND j.JadwalSer = '0'\r\n\t\t\t\tAND j.JenisJadwalID = 'K'\r\n\t\t\t\tGROUP BY j.JadwalID\r\n\t\t\t\tORDER BY k.MKKode ASC";
    $r = _query($s);
    $MaxCol = 114;
    $nmf = "tmp/{$_SESSION['_Login']}.{$_SESSION['prodi']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15));
    $div = str_pad('-', $MaxCol, '-') . $_lf;
    $_prodi = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], 'Nama');
    $_prid = GetaField('program', 'ProgramID', $_SESSION['prid'], 'Nama');
    $n = 0;
    $hal = 1;
    $n2 = 0;
    $brs = 0;
    $maxbrs = 50;
    $jumlahrec = _num_rows($r);
    $jumhal = ceil($jumlahrec / $maxbrs);
    echo "<p><a href='?mnux=akd.lap'>Kembali</a> | <a href=dwoprn.php?f={$nmf}>Cetak Laporan</a></p>";
    echo "<p><font color=red>*  </font><i>Jumlah Mahasiswa yang mendaftar KRS</i></p>";
    echo "<p><font color=red>** </font><i>Jumlah Mahasiswa yang sudah mencetak KSS</i></p>";
    echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n    <tr>\r\n    <th class=ttl>#</th>\r\n    <th class=ttl>Kode</th>\r\n    <th class=ttl>Nama</th>\r\n    <th class=ttl>Kelas</th>\r\n\t\t<th class=ttl>Jml Terdaftar KRS<font color=red> *</font></th>\r\n\t\t<th class=ttl>Jml Terdaftar Kuliah<font color=red> **</font></th>\r\n\t\t<th class=ttl>Selisih</th>\r\n    </tr>";
    $hdr = str_pad("*** Laporan Rekap Jumlah Mahasiswa KRS dan Terdaftar KRS ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Periode   : " . NamaTahun($_SESSION['tahun']) . $_lf;
    $hdr .= "Prodi     : {$_prodi}" . $_lf;
    $hdr .= "Program   : {$_prid}" . $_lf;
    $hdr .= "*  Jumlah Mahasiswa yang mendaftar KRS" . $_lf;
    $hdr .= "** Jumlah Mahasiswa yang sudah mencetak KSS" . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 4) . str_pad('KODE', 8) . str_pad('NAMA', 40) . str_pad('KELAS', 6) . str_pad('JML TERDAFTAR KRS *', 22, ' ', STR_PAD_LEFT) . str_pad('JML TERDAFTAR KULIAH **', 26, ' ', STR_PAD_LEFT) . $_lf . $div;
    fwrite($f, $hdr);
    while ($w = _fetch_array($r)) {
        $n++;
        $_selisih = $w['Jumlah'] - $w['JumlahMhsw'];
        $selisih = $_selisih == 0 ? "&nbsp;" : $_selisih;
        echo "<tr>\r\n\t\t<td class=inp>{$n}</td>\r\n\t\t<td class=ul>{$w['MKKode']}</td>\r\n\t\t<td class=ul>{$w['Nama']}</td>\r\n\t\t<td class=ul>{$w['NamaKelas']}</td>\r\n\t\t<td class=ul align=right>{$w['Jumlah']}</td>\r\n\t\t<td class=ul align=right>{$w['JumlahMhsw']}</td>\r\n\t\t<td class=ul align=right>{$selisih}</td></tr>";
        $brs++;
        if ($brs > $maxbrs) {
            $isi .= $div;
            $isi .= str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf;
            $hal++;
            $brs = 1;
            $isi .= chr(12) . $_lf;
            $isi .= $hdr;
        }
        if ($kdmk != $w['MKKode']) {
            $kdmk = $w['MKKode'];
            $_kdmk = $kdmk;
            $n2++;
        } else {
            $_kdmk = '';
        }
        if ($nmmk != $w['Nama']) {
            $nmmk = $w['Nama'];
            $_nmmk = $nmmk;
        } else {
            $_nmmk = '';
        }
        if ($n_ != $n2) {
            $n_ = $n2;
            $_n_ = $n_ . ".";
        } else {
            $_n_ = '';
        }
        $isi .= str_pad($_n_, 4) . str_pad($_kdmk, 8) . str_pad($_nmmk, 40) . str_pad($w['NamaKelas'], 6) . str_pad($w['Jumlah'], 22, ' ', STR_PAD_LEFT) . str_pad($w['JumlahMhsw'], 26, ' ', STR_PAD_LEFT) . $_lf;
    }
    fwrite($f, $isi);
    fwrite($f, $div);
    fwrite($f, str_pad("Hal. : " . $hal . '/' . $jumhal, $maxcol, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, str_pad('Dicetak oleh : ' . $_SESSION['_Login'], 85, ' ') . str_pad('Dibuat : ' . date("d-m-Y H:i"), 29, ' '));
    fwrite($f, chr(12));
    fclose($f);
    echo "</table></p>";
}
function Daftar(){
  global $_lf;
  $prodix = (empty($_SESSION['prodi'])) ? '' : "and k.prodiid = '$_SESSION[prodi]'";
  if ((!empty($_SESSION['DariNPM'])) and (!empty($_SESSION['SampaiNPM']))) {
    $_SESSION['SampaiNPM'] = (empty($_SESSION['SampaiNPM']))? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM'];
    $_npm = "and '$_SESSION[DariNPM]' <= k.MhswID and k.MhswID <= '$_SESSION[SampaiNPM]' ";
  } else $_npm = '';
  $jen = $_REQUEST['jen'];
  if ($jen == 1) { /*$Qjen = "and (Biaya - Bayar - Potongan + Tarik) > 0";*/ $p='>'; $jdls = "Hutang";}
  elseif ($jen == -1) {$Qjen = /*"and (Biaya - Bayar - Potongan + Tarik) < 0";*/ $p='<='; $jdls = "Deposit";}
  else {$Qjen = ''; $jdls = 'Hutang/Deposit';}
  $s1 = "select k.*, m.Nama from khs k 
         left outer join mhsw m on k.mhswid = m.mhswid where k.tahunid = '$_SESSION[tahun]' 
         and k.statusmhswid in ('A') 
         
         $_npm
         $prodix
         order by k.MhswID";
  BuatArrayHeader($hdr, $hdrid);
  for ($i=0; $i<sizeof($hdr); $i++) {
    $gab[$i] = "$hdr[$i]"; 
  }
  $MaxCol = 262;
  $maxbrs = 11;
  $brs = 0;
  //var_dump($gab);
  $nmf = HOME_FOLDER  .  DS . "tmp/rinci.$_SESSION[_Login].dwoprn";
  $f = fopen($nmf, 'w');
  fwrite($f, chr(27).chr(77).chr(27).chr(15).chr(27).chr(108).chr(10)).$_lf;
  $div = str_pad('-', $MaxCol, '-').$_lf;
  $margin = str_pad(' ',33,' ');
  //$tes = str_
  $sprhdr = str_pad("*** Laporan Rincian Kewajiban dan Pembayaran Mahasiswa ***",$MaxCol,' ',STR_PAD_BOTH).$_lf.$_lf.$_lf;
  $hdr  = $margin.                                                          str_pad($gab[1],16,' ').str_pad($gab[4],16,' ').str_pad($gab[3],16,' ').str_pad($gab[15],16,' ').str_pad($gab[19],16,' ').str_pad(substr("Pot.U.K",0,11),16,' ').str_pad('|',3,' ').str_pad($gab[1],16,' ').str_pad($gab[4],16,' ').str_pad($gab[3],16,' ').str_pad($gab[15],16,' ').str_pad($gab[19],16,' ').str_pad("Ujian Skripsi",16,' ').str_pad(' ',16,' ').str_pad(' ',16,' ').$_lf;
  $hdr .= str_pad("No.",5,' ').str_pad("NPM",10,' ').str_pad('Nama',18,' ').str_pad($gab[7],16,' ').str_pad($gab[2],16,' ').str_pad($gab[8],16,' ').str_pad($gab[16],16,' ').str_pad(substr($gab[20],0,17),16,' ').str_pad("Pot Mhsw Baru",16,' ').str_pad("|",3,' ').str_pad($gab[7],16,' ').str_pad($gab[2],16,' ').str_pad($gab[8],16,' ').str_pad($gab[16],16,' ').str_pad(substr($gab[20],0,17),16,' ').str_pad("Lain-Lain",16,' ').str_pad('     TARIK',16,' ').str_pad($jdls,15,' ',STR_PAD_LEFT).$_lf;
  $hdr .= $margin.                                                          str_pad($gab[0],16,' ').str_pad($gab[17],16,' ').str_pad($gab[13],16,' ').str_pad($gab[18],16,' ').str_pad($gab[9],16,' ').str_pad("Total Tagih",16,' ').str_pad('|',3,' ').str_pad($gab[0],16,' ').str_pad($gab[17],16,' ').str_pad($gab[13],16,' ').str_pad($gab[18],16,' ').str_pad($gab[9],16,' ').str_pad("Total Bayar",16,' ').str_pad(' ',16,' ').str_pad(' ',30,' ').$_lf;
  $hdr2  = "                                                                            TAGIHAN                                              |                                                         PEMBAYARAN                                                                  ".$_lf;
  $n = 0;
  $r1 = _query($s1);
  $pec = array();
  $pec2 = array();
  //$_hdr = implode('', $gab); 
  //$idnya = Getafield('bipotnama','trxid',1,'Bipotnamaid');
  //$ff2 = str_pad("No.",4,' ') . str_pad("NPM",11,' ').$_hdr.str_pad("Total",12,' ').str_pad('Bayar',12,' ').str_pad('Saldo',12,' ').$_lf;
  if (empty($_SESSION['prodi'])){}
  else {
    $prodis = GetaField('prodi','ProdiID',$_SESSION['prodi'],'Nama');
    $prodiini = "Fakultas : " . str_pad($_SESSION['prodi']. " - " . $prodis, 30,' '). $_lf;
  }
  fwrite($f, $sprhdr);
  fwrite($f, str_pad("Jenis    : ". $jdls, 30, ' ').$_lf);
  fwrite($f, str_pad("Periode  : ". NamaTahun($_SESSION['tahun']),30,' ').$_lf);
  fwrite($f, $prodiini);
  fwrite($f, str_pad("Tanggal  : ". date("d-m-Y"),30,' ').$_lf);
  fwrite($f, $div);
  fwrite($f, $hdr2);
  fwrite($f, $div);
  fwrite($f, $hdr);
  fwrite($f, $div);
  while ($w = _fetch_array($r1)){
    //$detail = GetDetailBayar($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid);
    //$detailb = GetDetailBayar2($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid);
    $detail = GetDetailBayar($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid);
    $detail2 = GetDetailBayar2($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid);
    $totw = array_sum($detail);
    $totq = array_sum($detail2);
    $diskon = GetaField('bipotmhsw', "TrxID=-1 and TahunID='$_SESSION[tahun]' and MhswID", $w['MhswID'], 'Jumlah')+0;
    $saldo = $totw - $totq - $diskon;
    
    if ($saldo > 0) { 
    
    $n++; $brs++;
    if($brs > $maxbrs){
        $hal++; $brs = 1;
        fwrite($f, chr(12));
        fwrite($f, $sprhdr);
        fwrite($f,$div);
        fwrite($f, $hdr2);
			  fwrite($f,$div);
			  fwrite($f,$hdr);
			  fwrite($f,$div);
				 
		}
		$Pot = GetFields("bipotmhsw","trxid = -1 and tahunid = '$_SESSION[tahun]' and mhswid",$w['MhswID'],"Besar,Dibayar");
		$lain = GetFields("bayarmhsw","tahunid = '$_SESSION[tahun]' and MhswID",$w['MhswID'],"Sum(JumlahLain) as JML");
    
    //$totw = array_sum($detail);
    //$totq = array_sum($detail2);
    $angkatan = Getafield('mhsw',"mhswid",$w['MhswID'],'left(Nama,16)');
    $bm = GetFields("khs","TahunID = '$_SESSION[tahun]' and mhswid",$w['MhswID'],"Biaya, Potongan, Bayar");
    //$saldo = $totw - $totq; //$bm['Bayar']- $bm['Biaya'] + $bm['Potongan'] - $w['Tarik'];
    $isi_ = str_pad($w['MhswID'],11,' ').str_pad($angkatan,34).$_lf;
    $isi_ .= str_pad(' ',11,' ').str_pad(' ',22,' ').$_lf;
    $isi_ .= str_pad(' ',11,' ').str_pad(' ',22,' ').$_lf;
     
    $isi  = str_pad("$n.",5,' ').str_pad($w['MhswID'],10,' ').str_pad($angkatan,16).str_pad(number_format($detail[1]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[4]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[3]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[15]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[19]),16,' ',STR_PAD_LEFT).str_pad(number_format($Pot['Dibayar']),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[1]),17,' ',STR_PAD_LEFT).str_pad(number_format($detail2[4]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[3]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[15]),19,' ',STR_PAD_LEFT).str_pad(number_format($detail2[19]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[14]),16,' ',STR_PAD_LEFT).str_pad(number_format(0),16,' ',STR_PAD_LEFT).str_pad(' ',16,' ',STR_PAD_LEFT).$_lf;
    $isi .= str_pad(' ',11,' ').str_pad(' ',20,' ').                                str_pad(number_format($detail[7]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[2]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[8]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[16]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[20]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[12]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[7]),17,' ',STR_PAD_LEFT).str_pad(number_format($detail2[2]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[8]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[16]),19,' ',STR_PAD_LEFT).str_pad(number_format($detail2[20]),16,' ',STR_PAD_LEFT).str_pad(number_format($lain['JML']),16,' ',STR_PAD_LEFT).str_pad(number_format($w['Tarik']),16,' ',STR_PAD_LEFT).str_pad(number_format($saldo),16,' ',STR_PAD_LEFT).$_lf;
    $isi .= str_pad(' ',11,' ').str_pad(' ',20,' ').                                str_pad(number_format($detail[0]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[17]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[13]),15,' ',STR_PAD_LEFT).str_pad(number_format($detail[18]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail[9]),16,' ',STR_PAD_LEFT).str_pad(number_format($bm['Biaya']),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[0]),17,' ',STR_PAD_LEFT).str_pad(number_format($detail2[17]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[13]),16,' ',STR_PAD_LEFT).str_pad(number_format($detail2[18]),19,' ',STR_PAD_LEFT).str_pad(number_format($detail2[9]),16,' ',STR_PAD_LEFT).str_pad(number_format($bm['Bayar']),16,' ',STR_PAD_LEFT).str_pad(number_format(0),16,' ',STR_PAD_LEFT).str_pad(' ',16,' ',STR_PAD_LEFT).$_lf.$div;
    $tot = array_sum($detail);
    $GTot += $tot;
    $Gbayar += $w['Bayar'];
    
    fwrite($f,$isi); //.str_pad(number_format($tot),12,' ',STR_PAD_LEFT).str_pad(number_format($w['Bayar']),12,' ',STR_PAD_LEFT).str_pad(number_format($saldo),12,' ',STR_PAD_LEFT).$_lf;
    $total1 += $detail[1] + $detail[7] + $detail[0];
    $total2 += $detail[4] + $detail[2] + $detail[17];
    $total3 += $detail[3] + $detail[8] + $detail[13];
    $total4 += $detail[15] + $detail[16] + $detail[18];
    $total5 += $detail[19] + $detail[20] + $detail[9];
    $total6 += $detail[14] + $detail[12] + ($bm['Biaya']- $bm['Potongan']);
    $totalb1 += $detail2[1] + $detail2[7] + $detail2[0];
    $totalb2 += $detail2[4] + $detail2[2] + $detail2[17];
    $totalb3 += $detail2[3] + $detail2[8] + $detail2[13];
    $totalb4 += $detail2[15] + $detail2[16] + $detail2[18];
    $totalb5 += $detail2[19] + $detail2[20] + $detail2[9];
    $totalb6 += $detail2[14] + $detail2[12] + $bm['Bayar'];
    $gtotal += $saldo;
    $tar += $w['Tarik'];
  }
  }
  for ($k=0; $k<sizeof($totl);$k++) $tott[$k] = str_pad(number_format($totl[$k]),12,' ',STR_PAD_LEFT);
  $gsal = $gtot - $Gbayar;
  
  $ffs = str_pad(' ',4,' ').str_pad("Jumlah Total",25,' ').str_pad(number_format($total1),17,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($total2),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($total3),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($total4),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($total5),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($total6),16,' ',STR_PAD_LEFT).
                                                           
                                                           
                                                           str_pad(number_format($totalb1),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($totalb2),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($totalb3),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($totalb4),19,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($totalb5),17,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($totalb6),15,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($tar),16,' ',STR_PAD_LEFT).
                                                           str_pad(number_format($gtotal),16,' ',STR_PAD_LEFT).
                                                           $_lf;
  //fwrite($f, $div);
  fwrite($f, $ffs);
  fwrite($f, $div);
  fwrite($f, str_pad("Dicetak : ".date("d-m-Y H:i"),10,' ').str_pad("Akhir laporan",236, ' ', STR_PAD_LEFT).$_lf);
  fwrite($f, chr(12));
  fclose($f);
  TampilkanFileDWOPRN($nmf, "keu.lap.rincimahasiswa");
}
function Headerxx($tahun, $prodi, $div, $maxcol, &$hal)
{
    global $_lf;
    $hal++;
    $hdr = str_pad('*** DAFTAR JUMLAH SKS MAHASISWA **', $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf;
    $hdr .= "Tahun Akademik : " . NamaTahun($tahun) . $_lf;
    $hdr .= "Prodi          : {$prodi}" . str_pad('Halaman : ' . $hal, 42, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= "Minimal SKS    : {$_SESSION['jmlsks']}" . $_lf;
    $hdr .= $div;
    $hdr .= str_pad("NO", 6) . str_pad("NIM", 12) . str_pad("NAMA", 35) . str_pad('TOTAL SKS', 17) . str_pad('STATUS', 13) . $_lf;
    $hdr .= $div;
    return $hdr;
}
function TampilkanPA()
{
    global $_lf;
    $whr = array();
    if (!empty($_SESSION['dsnid'])) {
        $whr[] = "m.PenasehatAkademik='{$_SESSION['dsnid']}' ";
    }
    if (!empty($_SESSION['DariNPM']) && !empty($_SESSION['SampaiNPM'])) {
        $whr[] = " '{$_SESSION['DariNPM']}' <= m.MhswID and m.MhswID <= '{$_SESSION['SampaiNPM']}' ";
    }
    // Status Mhsw
    if (!empty($_SESSION['StatusMhswID'])) {
        $arrsm = explode(',', $_SESSION['StatusMhswID']);
        $strsm = '';
        foreach ($arrsm as $val) {
            $strsm .= ",'{$val}'";
        }
        $strsm = TRIM($strsm, ',');
        $whr[] = "k.StatusMhswID in ({$strsm})";
    }
    $_whr = implode(" and ", $whr);
    if (!empty($_whr)) {
        $_whr = " and " . $_whr;
    }
    $s = "select m.MhswID, m.Nama, m.TotalSKS, m.IPK, m.PenasehatAkademik,\r\n    m.BatasStudi, k.StatusMhswID, k.TotalSKS as SKSSemester, k.IPS,\r\n    concat(d.Nama, ', ', d.Gelar) as DSN, sm.Nama as STT\r\n    from khs k \r\n      left outer join mhsw m on k.MhswID=m.MhswID\r\n      left outer join dosen d on m.PenasehatAkademik=d.Login\r\n      left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID\r\n    where k.TahunID='{$_SESSION['tahun']}' and k.ProdiID='{$_SESSION['prodi']}'\r\n      and m.StatusMhswID in ('A')\r\n      {$_whr}\r\n    order by m.PenasehatAkademik, m.MhswID";
    $r = _query($s);
    // Cetak
    $nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(5));
    $mxb = 52;
    $mxc = 114;
    $grs = str_pad('-', $mxc, '-') . $_lf;
    $dsn = 'qwertyuiop';
    $n = 0;
    $hal = 0;
    $brs = 0;
    $def = $dsn;
    $smt = GetaField('tahun', "ProdiID='{$_SESSION['prodi']}' and ProgramID='{$_SESSION['prid']}' and TahunID", $_SESSION['tahun'], 'Nama');
    $fp = GetaField("prodi p left outer join fakultas f on p.FakultasID=f.FakultasID", "p.ProdiID", $_SESSION['prodi'], "concat(f.Nama, '/', p.Nama)");
    $tgl = date('d-m-Y H:i');
    $jumlahrec = _num_rows($r);
    $jumhal = ceil($jumlahrec / 35);
    while ($w = _fetch_array($r)) {
        if ($brs > $mxb) {
            fwrite($f, chr(12));
            $brs = 0;
            $hal++;
        }
        if ($dsn != $w['PenasehatAkademik']) {
            $hal++;
            if ($dsn != $def) {
                fwrite($f, $grs . "Dicetak oleh: {$_SESSION['_Login']}" . $_lf);
                fwrite($f, chr(12));
            }
            $dsn = $w['PenasehatAkademik'];
            fwrite($f, str_pad('*** Daftar P.A. dan Mahasiswa ***', $mxc, ' ', STR_PAD_BOTH) . $_lf . $_lf . str_pad('Semester  : ' . $smt, $mxc / 2) . str_pad("Tanggal : {$tgl}", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf . str_pad('Fak/Jur   : ' . $fp, $mxc / 2) . str_pad("Form : AKD518", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf . str_pad('P.A.      : ' . $w['PenasehatAkademik'] . ' - ' . $w['DSN'], $mxc / 2) . str_pad("Hal. {$hal}", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf . $grs);
            fwrite($f, "                                                  Ambil                  Total" . $_lf);
            fwrite($f, "No.  N.P.M          Nama Mahasiswa                  SKS Status       IPK   SKS Batas Studi          Cuti " . $_lf . $grs);
            $n = 0;
            $brs = 0;
        }
        $n++;
        $brs++;
        $bs = NamaTahun($w['BatasStudi']);
        $ct = AmbilDaftarCutiMhsw($w['MhswID']);
        fwrite($f, str_pad($n . '.', 5) . str_pad($w['MhswID'], 15) . str_pad($w['Nama'], 30) . str_pad($w['SKSSemester'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['STT'], 10) . str_pad($w['IPK'], 6, ' ', STR_PAD_LEFT) . str_pad($w['TotalSKS'], 6, ' ', STR_PAD_LEFT) . ' ' . str_pad($bs, 20) . $ct . $_lf);
    }
    fwrite($f, $grs . "Dicetak oleh: {$_SESSION['_Login']}");
    for ($i = $brs; $i <= $mxb; $i++) {
        fwrite($f, $_lf);
    }
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, 'akd.lap');
}
Example #23
0
function CetakFormulirCuti($mhswid, $mhsw, $tahun)
{
    global $_lf, $KodeID;
    // Data mhsw
    //$krs = GetFields("krs", "StatusKRSID='A' and MhswID", $mhsw['MhswID'], "sum(SKS) as TSKS, format(sum(SKS*BobotNilai)/sum(SKS), 2) as IPK");
    //$_ips = GetFields('krs left join jadwal j on krs.JadwalID = j.JadwalID', "(j.JenisJadwalID is null or j.JenisJadwalID <> 'R') and StatusKRSID='A' and (GradeNilai<>'-' or GradeNilai <> '' and not GradeNilai is NULL) and krs.Final = 'Y' and krs.MhswID",$mhswid,
    //"sum(krs.SKS * BobotNilai)/sum(krs.SKS) as IPS, sum(krs.SKS) as SKS");
    $thn = GetFields('tahun', "ProgramID='{$mhsw['ProgramID']}' and ProdiID='{$mhsw['ProdiID']}' and TahunID", $tahun, "*");
    $khs = GetFields('khs', "TahunID='{$tahun}' and MhswID", $mhswid, "*");
    $regakhr = GetaField('khs', "TahunID < '{$tahun}' and StatusMhswID='A' and MhswID", $mhswid, 'TahunID', "Order By TahunID DESC");
    //$_Balance = $khs['Biaya'] - $khs['Potongan'] + $khs['Tarik'] - $khs['Bayar'];
    $bolos = GetAfield('khs left outer join tahun on tahun.TahunID = khs.TahunID', "khs.TahunID < '{$tahun}' and tahun.ProdiID = '{$khs['ProdiID']}' and khs.TahunID > '{$regakhr}' and tahun.SP = 'N' and StatusMhswID = 'P' and MhswID", $mhswid, "count(khs.TahunID)");
    $_Balance = HitungHutang($mhswid, $regakhr);
    if ($_Balance >= 0) {
        $jdl = "Kewajiban Keuangan";
    } else {
        $jdl = "Deposit Sebesar";
        $_Balance = str_replace('-', '', $_Balance);
    }
    $bls = $bolos != 0 ? "(Bolos {$bolos} semester)" : '';
    $Balance = number_format($_Balance);
    $pernah = GetArrayTable("select TahunID from khs where MhswID='{$mhswid}' and StatusMhswID='C' order by TahunID", "TahunID", "TahunID", ', ');
    $pernah = empty($pernah) ? '-' : $pernah;
    $TglLahir = FormatTanggal($mhsw['TanggalLahir']);
    // Buat file
    $nmf = HOME_FOLDER . DS . "tmp/cuti.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(18));
    fwrite($f, chr(27) . chr(108) . chr(5));
    // margin
    fwrite($f, $_lf . $_lf);
    // Tuliskan data
    $mrg = '   ';
    fwrite($f, str_pad("Formulir Permohonan Cuti Kuliah", 79, ' ', STR_PAD_BOTH) . $_lf . $_lf);
    fwrite($f, "Saya, yang bertandatangan di bawah ini:" . $_lf);
    fwrite($f, $mrg . str_pad("Nama Mahasiswa", 25, ' ') . " : " . $mhsw['Nama'] . $_lf);
    fwrite($f, $mrg . str_pad("NPM", 25, ' ') . " : " . $mhsw['MhswID'] . $_lf);
    fwrite($f, $mrg . str_pad("Tempat, Tgl Lahir", 25, ' ') . " : " . $mhsw['TempatLahir'] . ', ' . $TglLahir . $_lf);
    fwrite($f, $mrg . str_pad("SKS yang telah diambil", 25, ' ') . " : " . $mhsw['TotalSKS'] . ' SKS' . $_lf);
    fwrite($f, $mrg . str_pad("Registrasi Akhir", 25, ' ') . " : " . NamaTahun($regakhr) . " {$bls}" . $_lf);
    fwrite($f, $mrg . str_pad("IPK (Index Prestasi Kum.)", 25, ' ') . " : " . $mhsw['IPK'] . $_lf);
    fwrite($f, $mrg . str_pad("Alamat", 25, ' ') . " : " . $mhsw['Alamat'] . $_lf);
    fwrite($f, $mrg . str_pad(' ', 25, ' ') . '   ' . $mhsw['Kota'] . ' ' . $mhsw['KodePos'] . $_lf);
    fwrite($f, $mrg . str_pad($jdl, 25, ' ') . " : Rp. " . $Balance . $_lf);
    fwrite($f, $mrg . str_pad("Pernah cuti kuliah", 25, ' ') . " : " . $pernah . $_lf . $_lf);
    fwrite($f, "Mengajukan permohonan cuti kuliah pada semester {$thn['Nama']} karena:" . $_lf . $_lf);
    $garis = $mrg . str_pad('_', 75, '_');
    fwrite($f, $garis . $_lf . $_lf . $garis . $_lf . $_lf);
    // footer 1
    fwrite($f, str_pad(' ', 45, ' ') . "Jakarta, " . date('d-m-Y') . $_lf);
    fwrite($f, str_pad("Disetujui/Tidak Disetujui", 45, ' ') . "Mahasiswa" . $_lf);
    fwrite($f, "Pimpinan Fakultas," . $_lf . $_lf . $_lf . $_lf . $_lf);
    fwrite($f, str_pad("(                            )", 45, ' ') . "( {$mhsw['Nama']} )" . $_lf . $_lf);
    // footer 2
    $pa = GetaField('dosen', 'Login', $mhsw['PenasehatAkademik'], "concat(Nama, ', ', Gelar)");
    $kaperpus = GetaField('pejabat', 'JabatanID', 'KAPERPUS', 'Nama');
    fwrite($f, str_pad("Mengetahui :", 45, ' ') . $_lf);
    fwrite($f, str_pad("Perpustakaan {$KodeID} :", 45, ' ') . $_lf);
    fwrite($f, str_pad("Mahasiswa ini tidak memiliki ", 45, ' ') . "Mengetahui :" . $_lf);
    fwrite($f, str_pad("pinjaman buku yg belum dikembalikan.", 45, ' ') . "P.A." . $_lf);
    fwrite($f, $_lf . $_lf . $_lf . $_lf);
    fwrite($f, str_pad("({$kaperpus})", 45, ' ') . "({$pa})" . $_lf);
    fwrite($f, $_lf . $_lf);
    fwrite($f, "Catatan: Formulir ini harus dikembalikan ke TU Fakultas untuk dibuatkan" . $_lf);
    fwrite($f, "SK Cuti Kuliah");
    fwrite($f, chr(12));
    // Jangan lupa tutup file
    fclose($f);
    TampilkanFileDWOPRN($nmf, 'cuti');
}
function Daftar()
{
    global $_HeaderPrn, $_lf;
    $s = "select bm.*, bn.Nama, \r\n      (bm.Jumlah * bm.Besar) as TOT,\r\n      format(bm.Jumlah * bm.Besar, 0) as TOTS,\r\n      format(bm.Dibayar, 0) as BYR,\r\n      bm.TrxID, b2.Prioritas,\r\n      format(bm.Besar, 0) as BSR\r\n    from bipotmhsw bm\r\n      left outer join bipotnama bn on bn.BIPOTNamaID=bm.BIPOTNamaID\r\n      left outer join bipot2 b2 on bm.BIPOT2ID=b2.BIPOT2ID\r\n      left outer join rekening rek on bn.RekeningID=rek.RekeningID\r\n    where bm.MhswID='{$_SESSION['mhswid']}' and bm.TahunID='{$_SESSION['tahun']}' and bm.trxid = 1\r\n    order by bm.TrxID, b2.Prioritas";
    $r = _query($s);
    $MaxCol = 114;
    // Buat file
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10));
    $div = str_pad('-', $MaxCol, '-') . $_lf;
    // parameter2
    $n = 0;
    $hal = 0;
    $brs = 0;
    $maxbrs = 45;
    // Buat header
    $GK = GetFields('khs', "MhswID = '{$_SESSION['mhswid']}' and TahunID", $_SESSION['tahun'], '*');
    $NamaTahun = NamaTahun($_SESSION['tahun']);
    $namamhsw = GetaField('mhsw', 'mhswid', $_SESSION['mhswid'], 'Nama');
    $hdr = str_pad("*** RINCIAN PEMBAYARAN MAHASISWA ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf . $_lf;
    $hdr .= str_pad("SEMESTER : " . $NamaTahun, 30, ' ') . str_pad('Jumlah SKS : ' . $GK['TotalSKS'], 84, ' ', STR_PAD_LEFT) . $_lf;
    $hdr .= str_pad("NIM      : " . $_SESSION['mhswid'] . ' ' . $namamhsw, 50, ' ') . $_lf;
    $hdr .= $div;
    $hdr .= "NAMA                        KEWAJIBAN             PEMBAYARAN" . $_lf . $div;
    fwrite($f, $hdr);
    // Tampilkan
    $pmbid = '';
    $TotalBiaya = 0;
    $Totbayar = number_format($w['TOT']);
    while ($w = _fetch_array($r)) {
        //$CekAuto = Getafield('bayarmhsw',"MhswID = '$_SESSION[mhswid]'' and Jumlah <> 0 and tahunid",$_SESSION['tahun'],'BuktiSetoran');
        if ($w['BYR'] == 0) {
            $khscek = Getafield('khs', "mhswid = '{$_SESSION['mhswid']}' and tahunid", $_SESSION['tahun'], 'bayar');
            $auto = $khscek != '0' ? "      AUTODEBET" : 0;
        } else {
            $auto = str_pad("Rp.", 9, ' ', STR_PAD_LEFT) . str_pad($w['BYR'], 13, ' ', STR_PAD_LEFT);
        }
        $khsbyr = Getafield('khs', "mhswid = '{$_SESSION['mhswid']}' and tahunid", $_SESSION['tahun'], 'bayar');
        $keterangan = $auto == "      AUTODEBET" ? "         Proses Autodebet" : '';
        $TOTAL += $w['TOT'];
        $isi = str_pad($w['Nama'], 20, ' ') . ' ' . str_pad(':', 1) . ' ' . str_pad("Rp.", 2, ' ') . ' ' . str_pad(number_format($w['TOT']), 10, ' ', STR_PAD_LEFT) . ' ' . $auto . str_pad($keterangan, 15, ' ', STR_PAD_LEFT);
        fwrite($f, $isi . $_lf);
    }
    fwrite($f, $div);
    $_TotalBiaya = number_format($TOTAL);
    $_TotalBayar = number_format($khsbyr);
    fwrite($f, str_pad('Total       : Rp.', 26, ' ', STR_PAD_LEFT) . ' ' . str_pad($_TotalBiaya, 11, ' ', STR_PAD_LEFT) . ' ' . str_pad('Rp.', 8, ' ', STR_PAD_LEFT) . ' ' . str_pad($_TotalBayar, 12, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, str_pad("Potongan    : Rp. ", 27, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($GK['Potongan']), 10, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, str_pad("Tarik       : Rp. ", 27, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($GK['Tarik']), 10, ' ', STR_PAD_LEFT) . $_lf);
    fwrite($f, str_pad("Jumlah Lain :     ", 27, ' ', STR_PAD_LEFT) . str_pad('Rp. ', 21, ' ', STR_PAD_LEFT) . str_pad(number_format($GK['JumlahLain']), 12, ' ', STR_PAD_LEFT) . $_lf . $_lf . $_lf . $_lf);
    //CEK BPM
    $s1 = "select bm.*, date_format(Tanggal, '%d/%m/%Y') as TGL,\r\n    date_format(TanggalBuat, '%d/%m/%Y') as TGLTRX, date_format(TanggalEdit, '%d/%m/%Y') as TGLINPT,\r\n    format(Jumlah, 0) as JML\r\n    from bayarmhsw bm\r\n    where bm.MhswID='{$_SESSION['mhswid']}' and bm.TahunID='{$_SESSION['tahun']}' and bm.Proses = 1\r\n    order by bm.BayarMhswID";
    //echo $s;
    $r1 = _query($s1);
    //$hdr = str_pad("*** RINCIAN PEMBAYARAN MAHASISWA ***", $MaxCol, ' ', STR_PAD_BOTH) . $_lf;
    //$hdr1 .= str_pad("SEMESTER : ".$NamaTahun,30,' ').$_lf;
    //$hdr1 .= str_pad("NIM      : ".$_SESSION['mhswid'].' '.$namamhsw,50,' ').$_lf;
    $hdr1 .= $div;
    $hdr1 .= "NO  BPM            TGL CETAK     TGL INPUT      TGL BANK        NILAI      JML LAIN   RINCIAN      KETERANGAN" . $_lf . $div;
    fwrite($f, $hdr1);
    while ($w1 = _fetch_array($r1)) {
        $tot += $w1['Jumlah'];
        $pross = $w1['Proses'] == 0 ? 0 : $w1['Jumlah'];
        $pross2 = $w1['Proses'] == 0 ? 0 : $w1['JumlahLain'];
        $n++;
        $isi1 = str_pad("{$n}.", 3, ' ') . ' ' . str_pad($w1['BayarMhswID'], 13, ' ') . ' ' . str_pad($w1['TGLTRX'], 13, ' ') . ' ' . str_pad($w1['TGLINPT'], 13, ' ') . ' ' . str_pad($w1['TGL'], 13, ' ') . ' ' . str_pad(number_format($pross), 10, ' ', STR_PAD_LEFT) . str_pad(number_format($pross2), 13, ' ', STR_PAD_LEFT) . ' ' . $_lf;
        fwrite($f, $isi1) . $_lf;
    }
    fwrite($f, $div);
    $balance = $GK['Bayar'] - $GK['Biaya'] + $GK['Potongan'] - $GK['Tarik'];
    $_balance = number_format($balance);
    $BYR = number_format($GK['Bayar']);
    $BIA = number_format($GK['Biaya']);
    $POT = number_format($GK['Potongan']);
    $TRK = number_format($GK['Tarik']);
    $JMLL = number_format($GK['JumlahLain']);
    $hdr2 = $div;
    $hdr2 .= "      TOTAL BIAYA     TOTAL BAYAR    TOTAL POTONGAN     TOTAL TARIK         BALANCE     JUMLAH LAIN      " . $_lf;
    $hdr2 .= $div;
    fwrite($f, $hdr2);
    $isi2 = str_pad(' ', 5, ' ') . str_pad($BIA, 12, ' ', STR_PAD_LEFT) . str_pad($BYR, 16, ' ', STR_PAD_LEFT) . str_pad($POT, 18, ' ', STR_PAD_LEFT) . str_pad($TRK, 16, ' ', STR_PAD_LEFT) . str_pad($_balance, 16, ' ', STR_PAD_LEFT) . str_pad($JMLL, 16, ' ', STR_PAD_LEFT) . $_lf;
    fwrite($f, $isi2);
    fwrite($f, $div);
    fwrite($f, str_pad("Dicetak Oleh : {$_SESSION['_Login']}, " . date("d-m-Y H:i"), 100) . str_pad("Akhir Laporan", 100) . $_lf);
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "keu.lap");
}
Example #25
0
function Daftar()
{
    global $pilihanYN, $_lf;
    $_u = explode('~', $pilihanYN[$_SESSION['_pilihanYN']]);
    $_key = $_u[1];
    $cek = empty($_key) ? '' : "and k.Cetak = '{$_key}'";
    $s = "select k.MhswID, m.TahunID as ANGK, m.Nama, k.StatusMhswID, m.ProdiID,\r\n    k.TotalSKS, k.JumlahMK, sm.Nilai\r\n    from khs k\r\n      left outer join mhsw m on k.MhswID=m.MhswID\r\n      left outer join prodi p on m.ProdiID=p.ProdiID\r\n      left outer join statusmhsw sm on k.StatusMhswID=sm.StatusMhswID\r\n    where k.TahunID='{$_SESSION['tahun']}' and p.FakultasID='{$_SESSION['fakid']}' {$cek}\r\n\t      and m.StatusMhswID not in ('L','D','K')\r\n    order by m.ProdiID, m.TahunID, k.MhswID";
    $r = _query($s);
    $n = 0;
    $angk = '0000';
    $prd = 'qwertyuiop';
    $total = _num_rows($r) + 0;
    $nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . chr(10));
    $maxkol = 114;
    $div = str_pad('-', $maxkol, '-') . $_lf;
    $brs = 0;
    $maxbrs = 50;
    $ThnAKA = NamaTahun($_SESSION['tahun']);
    $laporan = $_key == 'Y' ? "Mahasiswa Cetak Kartu" : "Mahasiswa Tidak Cetak Kartu";
    $hdr = str_pad("** Daftar Mahasiswa Cetak KSS SEMESTER {$ThnAKA} **", $maxkol, ' ', STR_PAD_BOTH) . $_lf . $_lf . "Laporan   : " . $laporan . $_lf . $div;
    fwrite($f, $hdr);
    echo "<p><a href=dwoprn.php?f={$nmf}>Cetak Laporan</a></p>";
    //echo "<p><a href=?mnux=akd.lap.mhswkss&gos=daftar&prn=1>Cetak Laporan</a></p>";
    echo "<p><table class=box cellspacing=1 cellpadding=4>";
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        if ($brs > $maxbrs) {
            $isi .= $div;
            $isi .= str_pad("Bersambung...", $maxkol, ' ', STR_PAD_LEFT);
            //$isi .= str_pad('Halaman : '.$hal."/".$jumhal,10,' ').$_lf;
            $hal++;
            $brs = 1;
            $isi .= chr(12) . $_lf;
            $isi .= $hdr;
        }
        if ($prd != $w['ProdiID']) {
            $prd = $w['ProdiID'];
            $_prd = GetaField('prodi', 'ProdiID', $prd, 'Nama');
            echo "<tr><td class=ttl colspan=6><font size=+1>{$_prd}</font></td></tr>";
            echo "<tr><th class=ttl>#</th>\r\n        <th class=ttl>N.P.M</th>\r\n        <th class=ttl>Nama</th>\r\n        <th class=ttl>Status</th>\r\n        <th class=ttl>MK</th>\r\n        <th class=ttl>SKS</th>\r\n        </tr>";
            $isi = str_pad("FAKULTAS : " . $_prd, 30) . $_lf . $div . str_pad("No.", 5) . str_pad("NIM", 10) . str_pad("NAMA", 30) . str_pad("STATUS", 8) . str_pad("MK", 3) . str_pad("SKS", 4) . $_lf . $div;
        }
        if ($angk != $w['ANGK']) {
            $angk = $w['ANGK'];
            echo "<tr><td class=ul colspan=6><font size=+1>{$angk}</font></td></tr>";
            $isi .= str_pad("ยป  ANGKATAN " . $angk, 30) . $_lf . $_lf;
            $n = 1;
        }
        echo "<tr><td class=inp>{$n}</td>\r\n      <td class=ul>{$w['MhswID']}</td>\r\n      <td class=ul>{$w['Nama']}</td>\r\n      <td class=ul>{$w['StatusMhswID']}</td>\r\n      <td class=ul align=right>{$w['JumlahMK']}</td>\r\n      <td class=ul align=right>{$w['TotalSKS']}</td>\r\n      </tr>";
        $isi .= str_pad($n . '. ', 5) . str_pad($w['MhswID'], 10) . str_pad($w['Nama'], 30) . str_pad($w['StatusMhswID'], 6) . str_pad($w['JumlahMK'], 4, ' ', STR_PAD_LEFT) . str_pad($w['TotalSKS'], 4, ' ', STR_PAD_LEFT) . $_lf;
    }
    echo "</table></p>";
    $_total = number_format($total);
    echo "<p>Total: <font size=+1>{$_total}</font></p>";
    fwrite($f, $isi);
    fwrite($f, $div);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 87, ' ') . str_pad("Dicetak : " . date("d-m-Y H:i"), 27, ' ') . $_lf);
    fwrite($f, chr(12));
    fclose($f);
    //if ($_REQUEST['prn'] == 1) {
    //include_once "dwoprn.php";
    echo "<p><a href=dwoprn.php?f={$nmf}>Cetak Laporan</a></p>";
    //DownloadDWOPRN($nmf);
    //}
}
function Cetak()
{
    global $arrBulan;
    $mxb = 15;
    $mxc = 112;
    $g = chr(13) . chr(10);
    $grs = str_pad('-', $mxc, '-') . $g;
    // parameter
    $tahun = $_SESSION['tahun'];
    $_tahun = NamaTahun($tahun);
    $DosenID = $_SESSION['DosenID'];
    $prodi = $_SESSION['prodi'];
    $_prodi = GetaField('prodi', 'ProdiID', $prodi, 'Nama');
    $PeriodeMinggu = $_SESSION['PeriodeMinggu'];
    $PeriodeBulan = $_SESSION['PeriodeBulan'];
    $PeriodeTahun = $_SESSION['PeriodeTahun'];
    $bulan = $arrBulan[$PeriodeBulan + 0];
    // bank
    $arrBank = array("and d.NamaBank='INA PERDANA' ", "and d.NamaBank <> 'INA PERDANA' and d.NamaBank<>'' ");
    $arrNamaBank = array("INA PERDANA", "Lain2");
    // buat file
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15));
    fwrite($f, chr(27) . chr(108) . chr(5));
    $SpasiHdr = str_pad(' ', 25);
    $tgl = date('d-m-Y H:i');
    $hdr1 = str_pad("** Daftar Rekap Honor Dosen per Bank ***", $mxc, ' ', STR_PAD_BOTH) . $g . str_pad("Bulan: {$bulan} {$PeriodeTahun}", $mxc, ' ', STR_PAD_BOTH) . $g . str_pad("Semester : {$_tahun}", $mxc / 2) . $SpasiHdr . "Tanggal : {$tgl}" . $g . str_pad("Prodi    : {$_prodi}", $mxc / 2) . $SpasiHdr . "Dicetak : {$_SESSION['_Login']}" . $g;
    $hdr2 = $grs . "No. " . str_pad("Dosen", 35) . str_pad("No.Rekening", 24) . str_pad("Bank & Atas Nama", 24) . str_pad("Jumlah", 15, ' ', STR_PAD_LEFT) . $g . $grs;
    //**** Cetakan berlangsung 2x *** //
    for ($i = 0; $i < 2; $i++) {
        // Data
        $_bank = $arrBank[$i];
        $s = "select hd.*, \r\n    LEFT(concat(d.Nama, ', ', d.Gelar), 34) as DSN, d.NamaBank, d.NamaAkun, d.NomerAkun,\r\n    d.GolonganID, d.JabatanID, jb.Nama as JAB\r\n    from honordosen hd\r\n      left outer join dosen d on hd.DosenID=d.Login\r\n      left outer join statusdosen sd on d.StatusDosenID=sd.StatusDosenID\r\n      left outer join jabatan jb on d.JabatanID=jb.JabatanID\r\n    where hd.TahunID='{$tahun}' {$_bank}\r\n      and hd.Tahun='{$PeriodeTahun}'\r\n      and hd.Bulan='{$PeriodeBulan}'\r\n      and hd.Minggu='{$PeriodeMinggu}'\r\n      and hd.ProdiID='{$prodi}'\r\n      and sd.HonorMengajar='Y'\r\n      and (hd.TunjanganJabatan1 +hd.TunjanganJabatan2 +hd.TunjanganSKS +hd.TunjanganTransport +hd.TunjanganTetap\r\n        +hd.Tambahan -hd.Potongan) >0\r\n    order by d.NamaBank, d.Nama";
        //echo "<pre>$s</p>";
        $r = _query($s);
        $n = 0;
        $_TOT = 0;
        $brs = 0;
        $h = 1;
        fwrite($f, str_replace('=HAL=', $h, $hdr1));
        fwrite($f, str_pad("Bank     : " . $arrNamaBank[$i], $mxc / 2) . $SpasiHdr . "Halaman : {$h}" . $g);
        fwrite($f, $hdr2);
        while ($w = _fetch_array($r)) {
            $brs++;
            $n++;
            if ($brs >= $mxb) {
                $brs = 1;
                // Tuliskan Total
                //$_totals = number_format($_TOT);
                //fwrite($f, $grs);
                //fwrite($f, str_pad("Total: ", 82, ' ', STR_PAD_LEFT).
                //str_pad($_totals, 20, ' ', STR_PAD_LEFT). $g);
                fwrite($f, str_pad("Bersambung...", $mxc, ' ', STR_PAD_LEFT));
                fwrite($f, chr(12));
                // Header
                fwrite($f, str_replace('=HAL=', $h, $hdr1));
                fwrite($f, "Bank     : " . $arrNamaBank[$i] . $g);
                fwrite($f, $hdr2);
            }
            $TOT = $w['TunjanganJabatan1'] + $w['TunjanganJabatan2'] + $w['TunjanganSKS'] + $w['TunjanganTransport'] + $w['TunjanganTetap'] + $w['Tambahan'] - $w['Potongan'];
            $TOT1 = $TOT - $TOT * $w['Pajak'] / 100;
            $_TOT += $TOT1;
            $_total = number_format($TOT1);
            fwrite($f, str_pad($n, 4, ' ') . str_pad($w['DSN'], 35) . str_pad($w['NomerAkun'], 24) . str_pad($w['NamaAkun'], 24) . str_pad($_total, 15, ' ', STR_PAD_LEFT) . $g . str_pad(' ', 4, ' ') . str_pad($w['DosenID'] . ' ' . $w['GolonganID'] . '.' . $w['JAB'], 35) . $w['NamaBank'] . $g . $g);
        }
        // Tuliskan Total
        $_totals = number_format($_TOT);
        fwrite($f, $grs);
        fwrite($f, str_pad("Total: ", 82, ' ', STR_PAD_LEFT) . str_pad($_totals, 20, ' ', STR_PAD_LEFT) . $g);
        fwrite($f, chr(12));
    }
    // END Loop
    fclose($f);
    // Tampilkan
    include "dwoprn.php";
    DownloadDWOPRN($nmf);
}
function BuatExcel()
{
    $jdwl = GetFields('jadwal', 'JadwalID', $_REQUEST['jdwlid'], "*");
    $dsn = TRIM($jdwl['DosenID'], '.');
    $arrdsn = explode('.', $dsn);
    $strdsn = empty($arrdsn) ? "GaAdaNih" : implode(',', $arrdsn);
    $nmdsn = GetArrayTable("select concat(Nama, ', ', Gelar) as DSN from dosen where Login in ({$strdsn}) order by Nama", "Login", "DSN");
    $NamaTahun = NamaTahun($jdwl['TahunID']);
    // Olah nilai dari GET value di URL
    $_strTM = $jdwl['tugasmandiri'] == 0 ? '' : $jdwl['tugasmandiri'];
    // query database nilai yang ingin ditampilkan
    $s = "SELECT k.*, m.Nama AS NamaMhsw\r\n\t\t  FROM krs k\r\n\t\t  LEFT OUTER JOIN mhsw m ON k.MhswID=m.MhswID\r\n\t\t  WHERE k.JadwalID='{$_REQUEST['jdwlid']}'\r\n\t\t  ORDER BY k.MhswID";
    $r = _query($s);
    // Buat file Excel
    include_once "Spreadsheet/Excel/Writer.php";
    $xls =& new Spreadsheet_Excel_Writer();
    $xls->send("daftarnilai.xls");
    $sheet =& $xls->addWorksheet('Nilai Mahasiswa');
    // Format untuk title cell
    $formattitle =& $xls->addFormat();
    $formattitle->setAlign('center');
    $formattitle->setBold();
    $formattitle->setSize(16);
    // Format untuk header cell
    $formatheader =& $xls->addFormat();
    $formatheader->setBorder(1);
    $formatheader->setAlign('center');
    $formatheader->setBold();
    // Format untuk data cell
    $format =& $xls->addFormat();
    $format->setAlign('center');
    $format->setBorder(1);
    // Format spesifik untuk nama mahasiswa
    $formatmhs =& $xls->addFormat();
    $formatmhs->setAlign('left');
    $formatmhs->setBorder(1);
    // Cetak header file excel
    $sheet->setMerge(0, 3, 0, 7);
    $sheet->write(0, 3, "Hasil Nilai Mahasiswa", $formattitle);
    $sheet->setMerge(2, 0, 2, 1);
    $sheet->write(2, 0, "Semester:");
    $sheet->write(2, 2, "{$NamaTahun}");
    $sheet->setMerge(3, 0, 3, 1);
    $sheet->write(3, 0, "Matakuliah:");
    $sheet->write(3, 2, "{$jdwl['MKKode']} -  {$jdwl['Nama']}");
    $sheet->setMerge(4, 0, 4, 1);
    $sheet->write(4, 0, "Kelas:");
    $sheet->write(4, 2, "{$jdwl['NamaKelas']}");
    $sheet->setMerge(5, 0, 5, 1);
    $sheet->write(5, 0, "Dosen Pengampu:");
    $sheet->write(5, 2, "{$nmdsn}");
    $sheet->setMerge(6, 0, 7, 0);
    $sheet->setColumn(0, 0, 4);
    $sheet->write(6, 0, "#", $formatheader);
    $sheet->write(7, 0, "", $formatheader);
    $sheet->write(8, 0, "", $formatheader);
    $sheet->setMerge(6, 1, 7, 1);
    $sheet->setColumn(1, 1, 11);
    $sheet->write(6, 1, "NPM", $formatheader);
    $sheet->write(7, 1, "", $formatheader);
    $sheet->write(8, 1, "", $formatheader);
    $sheet->setMerge(6, 2, 7, 2);
    $sheet->setColumn(2, 2, 32);
    $sheet->write(6, 2, "Mahasiswa", $formatheader);
    $sheet->write(7, 2, "", $formatheader);
    $sheet->write(8, 2, "", $formatheader);
    $sheet->setMerge(6, 3, 6, 7);
    $sheet->write(6, 3, "Tugas Mandiri {$_strTM}%", $formatheader);
    $sheet->write(6, 4, "", $formatheader);
    $sheet->write(6, 5, "", $formatheader);
    $sheet->write(6, 6, "", $formatheader);
    $sheet->write(6, 7, "", $formatheader);
    $sheet->setColumn(3, 7, 5.5);
    $sheet->write(7, 3, "1", $formatheader);
    $sheet->write(7, 4, "2", $formatheader);
    $sheet->write(7, 5, "3", $formatheader);
    $sheet->write(7, 6, "4", $formatheader);
    $sheet->write(7, 7, "5", $formatheader);
    $sheet->write(8, 3, "{$jdwl['Tugas1']}%", $formatheader);
    $sheet->write(8, 4, "{$jdwl['Tugas2']}%", $formatheader);
    $sheet->write(8, 5, "{$jdwl['Tugas3']}%", $formatheader);
    $sheet->write(8, 6, "{$jdwl['Tugas4']}%", $formatheader);
    $sheet->write(8, 7, "{$jdwl['Tugas5']}%", $formatheader);
    $sheet->setMerge(6, 8, 7, 8);
    $sheet->setColumn(8, 11, 6);
    // Set column from 8 to 10 -> Pres, UTS, UAS, Resp
    $sheet->write(6, 8, "Pres", $formatheader);
    $sheet->write(7, 8, "", $formatheader);
    $sheet->write(8, 8, "{$jdwl['Presensi']}%", $formatheader);
    $sheet->setMerge(6, 9, 7, 9);
    $sheet->write(6, 9, "UTS", $formatheader);
    $sheet->write(7, 9, "", $formatheader);
    $sheet->write(8, 9, "{$jdwl['UTS']}%", $formatheader);
    $sheet->setMerge(6, 10, 7, 10);
    $sheet->write(6, 10, "UAS", $formatheader);
    $sheet->write(7, 10, "", $formatheader);
    $sheet->write(8, 10, "{$jdwl['UAS']}%", $formatheader);
    $sheet->setMerge(6, 11, 7, 11);
    $sheet->write(6, 11, "Resp", $formatheader);
    $sheet->write(7, 11, "", $formatheader);
    $sheet->write(8, 11, "{$jdwl['Responsi']}%", $formatheader);
    $sheet->setMerge(6, 12, 6, 13);
    $sheet->write(6, 12, "Nilai Akhir", $formatheader);
    $sheet->write(6, 13, "", $formatheader);
    $sheet->setColumn(12, 13, 6.45);
    $sheet->write(7, 12, "Nilai", $formatheader);
    $sheet->write(7, 13, "Grade", $formatheader);
    $sheet->write(8, 13, "", $formatheader);
    // Cetak data
    while ($w = _fetch_array($r)) {
        $nomer++;
        $row = $nomer + 8;
        // Ditambah 6 karena row 0-5 digunakan untuk header
        $sheet->write($row, 0, "{$nomer}", $format);
        $sheet->write($row, 1, "{$w['MhswID']}", $format);
        $sheet->write($row, 2, "{$w['NamaMhsw']}", $formatmhs);
        $sheet->write($row, 3, "{$w['Tugas1']}", $format);
        $sheet->write($row, 4, "{$w['Tugas2']}", $format);
        $sheet->write($row, 5, "{$w['Tugas3']}", $format);
        $sheet->write($row, 6, "{$w['Tugas4']}", $format);
        $sheet->write($row, 7, "{$w['Tugas5']}", $format);
        $sheet->write($row, 8, "{$w['Presensi']}", $format);
        $sheet->write($row, 9, "{$w['UTS']}", $format);
        $sheet->write($row, 10, "{$w['UAS']}", $format);
        $sheet->write($row, 11, "{$w['Responsi']}", $format);
        $sheet->write($row, 12, "{$w['NilaiAkhir']}", $format);
        $sheet->write($row, 13, "{$w['GradeNilai']}", $format);
    }
    $xls->close();
}
include_once "../parameter.php";
include_once "../cekparam.php";
include_once "../header_pdf.php";
include_once "../util.lib.php";
// *** Parameters ***
$TahunID = GetSetVar('TahunID');
$ProdiID = GetSetVar('ProdiID');
if (empty($TahunID)) {
    die(ErrorMsg("Error", "Tentukan tahun akademik-nya dulu.\r\n    <hr size=1 color=silver />\r\n    <input type=button name='Tutup' value='Tutup'\r\n      onClick='window.close()' />"));
}
if (empty($ProdiID)) {
    die(ErrorMsg("Error", "Tentukan Program Studi-nya dulu.\r\n    <hr size=1 color=silver />\r\n    <input type=button name='Tutup' value='Tutup'\r\n      onClick='window.close()' />"));
}
// *** Main
$prds = getaField('prodi', "KodeID = '" . KodeID . "' and ProdiID", $ProdiID, 'Nama');
$thn = NamaTahun($TahunID);
$pdf = new PDF('P', 'mm', 'A4');
$pdf->SetTitle("Jadwal Ujian Sidang Komprehensif Tahun {$thn}");
$pdf->AddPage();
$pdf->SetFont('Helvetica', 'B', 14);
$pdf->Cell($t, 9, "Jadwal Ujian Sidang Komprehensif - {$thn}", 0, 1, 'C');
$pdf->Cell($t, 9, "Program Studi {$prds}", 0, 1, 'C');
Isinya($pdf);
$pdf->Output();
// *** Functions ***
function Isinya($p)
{
    $lbr = 290;
    $t = 5;
    JudulKolomnya($p);
    $p->SetFont('Helvetica', '', 8);
Example #29
0
function Cetak()
{
    global $_lf;
    // Setup Parameter
    $khsid = $_REQUEST['khsid'];
    $khs = GetFields('khs khs
    left outer join program prg on khs.ProgramID=prg.ProgramID
    left outer join prodi prd on khs.ProdiID=prd.ProdiID
    left outer join mhsw m on khs.MhswID=m.MhswID', 'KHSID', $khsid, "khs.*, m.BatasStudi, m.Nama as NamaMhsw, m.ProdiID, m.Autodebet, prg.Nama as PRG, prd.Nama as PRD");
    $_REQUEST['mhswid'] = $khs['MhswID'];
    $_REQUEST['pmbmhswid'] = 1;
    $_REQUEST['DariKRS'] = 1;
    // Menandai bahwa ini dieksekusi dari modul KRS
    $MhswID = $_REQUEST['mhswid'];
    $thn = GetFields("tahun", "ProgramID='{$khs['ProgramID']}' and ProdiID='{$khs['ProdiID']}' and TahunID", $khs['TahunID'], "*");
    $angmhsw = GetaField('mhsw', 'MhswID', $MhswID, 'TahunID');
    // Menetapkan KRS atau KPRS
    $skrg = date('Y-m-d');
    // Jika autodebet
    if ($khs['Autodebet'] == 'Y') {
        $tglad = FormatTanggal($thn['TglAutodebetSelesai']);
        $tglad2 = FormatTanggal($thn['TglAutodebetSelesai2']);
        $str1 = "Anda harus menyetor ke rekening Anda paling lambat {$tglad}.";
        $str2 = "untuk di-autodebet oleh bank. Lewat tgl tersebut akan didenda 10%";
        $str3 = "dari BPP SKS. Pembayaran BPP & Denda paling lambat tgl {$tglad2}.";
        $str4 = "Lewat tanggal tersebut Anda harus CUTI KULIAH.";
    } else {
        // KRS
        if ($khs['Sesi'] <= 1) {
            $str1 = '';
            $str2 = '';
        } elseif ($angmhsw >= 2002) {
            $tglad = FormatTanggal($thn['TglAutodebetSelesai']);
            $tglad2 = FormatTanggal($thn['TglAutodebetSelesai2']);
            $str1 = "Anda harus menyetor ke rekening Anda paling lambat {$tglad}.";
            $str2 = "untuk di-autodebet oleh bank. Lewat tgl tersebut akan didenda 10%";
            $str3 = "dari BPP SKS. Pembayaran BPP & Denda paling lambat tgl {$tglad2}.";
            $str4 = "Lewat tanggal tersebut Anda harus CUTI KULIAH.";
        } elseif ($thn['TglKRSMulai'] <= $skrg and $skrg <= $thn['TglCetakKSS1']) {
            $tglkrsselesai = FormatTanggal($thn['TglKRSSelesai']);
            $tglcetakkss = FormatTanggal($thn['TglCetakKSS1']);
            $tglbayarselesai = FormatTanggal($thn['TglBayarSelesai']);
            $str1 = "Cetak KSS paling lambat tanggal {$tglcetakkss}";
            $str2 = "dengan menyerahkan KRS ini ke BAA. Lewat tgl tersebut,";
            $str3 = "mahasiswa terkena denda 10% sampai tanggal {$tglbayarselesai}.";
            $str4 = "Sesudah tanggal ini, jika belum cetak KSS, Anda harus CUTI KULIAH.";
        } elseif ($thn['TglUbahKRSMulai'] <= $skrg and $skrg <= $thn['TglCetakKSS2']) {
            $tglkrsselesai = FormatTanggal($thn['TglUbahKRSSelesai']);
            $tglcetakkss = FormatTanggal($thn['TglCetakKSS2']);
            $str1 = "Cetak ulang KSS paling lambat tanggal {$tglcetakkss}";
            $str2 = "dengan menyerahkan KPRS ini ke BAA.";
            $str3 = "Lewat tanggal tersebut tidak ada perubahan rencana studi";
            $str4 = "yang tercetak di KRS.";
        } else {
            $str1 = "Masa pencetakan KRS/KPRS sudah lewat.";
            $str2 = "Anda harus cuti kuliah.";
        }
    }
    // Hitung BIPOT mhsw dulu
    PrcBIPOTSesi();
    // Buat file
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(18) . chr(27) . chr(15) . chr(27) . chr(67) . chr(33));
    // chr67+chr33 -> membuat menjadi 33 baris
    // Format Kertas
    $brs = 0;
    $maxbrs = 10;
    // Buat header
    $mrghdr = str_pad(' ', 28);
    $mrg = str_pad(' ', 10);
    $spasihdr = 35;
    $BatasStudi = NamaTahun($khs['BatasStudi'], $khs['ProdiID']);
    $hdr = $_lf . $_lf . $_lf . $_lf . $mrghdr . $khs['TahunID'] . ' ' . $thn['Nama'] . $_lf . $mrghdr . str_pad($khs['PRD'], $spasihdr) . $str1 . $_lf . $mrghdr . str_pad($khs['MhswID'], $spasihdr) . $str2 . $_lf . $mrghdr . str_pad($khs['NamaMhsw'], $spasihdr) . $str3 . $_lf . $mrghdr . str_pad($BatasStudi, $spasihdr) . $str4 . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf;
    fwrite($f, $hdr);
    // Tampilkan isi KRS
    $s = "select krs.*, j.MKKode, j.Nama, j.NamaKelas, j.JenisJadwalID, j.JadwalSer, \r\n    time_format(j.JamMulai, '%H:%i') as JM,\r\n    time_format(j.JamSelesai, '%H:%i') as JS,\r\n    h.Nama as HR\r\n    from krstemp krs\r\n      left outer join jadwal j on krs.JadwalID=j.JadwalID\r\n      left outer join hari h on j.HariID=h.HariID\r\n    where krs.KHSID='{$khsid}' and krs.NA='N'\r\n    order by j.MKKode, j.NamaKelas, j.HariID, j.JenisJadwalID";
    $r = _query($s);
    $sks = 0;
    while ($w = _fetch_array($r)) {
        $brs++;
        if ($brs > $maxbrs) {
            fwrite($f, $mrg . "Bersambung...");
            fwrite($f, chr(12));
            fwrite($f, $hdr);
            $brs = 1;
        }
        $sks += ($w['JenisJadwalID'] == 'R' or $w['StatusKRSID'] == 'S' and $w['JadwalSer'] > 0) ? 0 : $w['SKS'];
        $_sks = $w['JenisJadwalID'] != 'K' ? '' : $w['SKS'];
        $skstampil = $_sks == 0 ? '' : $_sks;
        $w['Nama'] .= $w['JenisJadwalID'] != 'K' ? " ({$w['JenisJadwalID']})" : '';
        if ($w['StatusKRSID'] == 'S' and $w['JadwalSer'] > 0) {
            $w['Nama'] = '';
            $w['MKKode'] = '';
        }
        $isi = $mrg . str_pad($w['MKKode'], 8) . str_pad($w['Nama'], 40) . str_pad($skstampil, 4, ' ', STR_PAD_LEFT) . '     ' . str_pad($w['NamaKelas'], 8) . str_pad($w['HR'], 8) . $w['JM'] . '-' . $w['JS'] . '    ' . $w['CatatanError'] . $_lf;
        fwrite($f, $isi);
    }
    fwrite($f, str_pad("Total SKS : ", 58, ' ', STR_PAD_LEFT) . str_pad($sks, 4, ' ', STR_PAD_LEFT) . $_lf);
    // Ambil KRS GAGAL
    $s = "select krs.*, j.MKKode, j.Nama, j.NamaKelas, j.JenisJadwalID,\r\n    time_format(j.JamMulai, '%H:%i') as JM,\r\n    time_format(j.JamSelesai, '%H:%i') as JS,\r\n    h.Nama as HR\r\n    from krstemp krs\r\n      left outer join jadwal j on krs.JadwalID=j.JadwalID\r\n      left outer join hari h on j.HariID=h.HariID\r\n    where krs.KHSID='{$khsid}' and krs.NA='Y'\r\n    order by j.MKKode, j.JenisJadwalID";
    $r = _query($s);
    if (_num_rows($r) > 0) {
        fwrite($f, $mrg . "KRS GAGAL:" . $_lf);
        $_sks = $w['JenisJadwalID'] != 'K' ? '' : $w['SKS'];
        $w['Nama'] .= $w['JenisJadwalID'] != 'K' ? " ({$w['JenisJadwalID']})" : '';
        while ($w = _fetch_array($r)) {
            $isi = $mrg . str_pad($w['MKKode'], 8) . str_pad($w['Nama'], 40) . str_pad($_sks, 4, ' ', STR_PAD_LEFT) . '       ' . str_pad($w['NamaKelas'], 3) . str_pad($w['HR'], 10) . $w['JM'] . '-' . $w['JS'] . ' ' . $w['CatatanError'] . $_lf;
            fwrite($f, $isi);
        }
        fwrite($f, $_lf);
    }
    // Ambil BIPOT mhsw Lama
    $s = "select bm.*, LEFT(bn.Nama, 14) as BNama\r\n    from bipotmhsw bm\r\n      left outer join bipotnama bn on bm.BIPOTNamaID=bn.BIPOTNamaID\r\n    where bm.MhswID='{$MhswID}' and bm.TahunID='{$khs['TahunID']}'\r\n      and (bm.Jumlah * bm.Besar) > bm.Dibayar\r\n    order by bn.Urutan";
    //fwrite($f, $s);
    if ($khs['Sesi'] <= 1) {
        $s = "select bm.*, LEFT(bn.Nama, 14) as BNama\r\n    from bipotmhsw bm\r\n      left outer join bipotnama bn on bm.BIPOTNamaID=bn.BIPOTNamaID\r\n    where bm.MhswID='{$MhswID}' and bm.TahunID='{$khs['TahunID']}'\r\n    order by bn.Urutan";
    }
    $r = _query($s);
    $tbia = 0;
    $arrbia = array();
    $col = 0;
    $mcol = 4;
    fwrite($f, $_lf);
    while ($w = _fetch_array($r)) {
        $bia = $w['TrxID'] * $w['Jumlah'] * $w['Besar'];
        $tbia += $bia;
        $_bia = number_format($bia);
        $isi = str_pad($w['BNama'], 15) . str_pad($_bia, 12, ' ', STR_PAD_LEFT) . '  ';
        if ($col < $mcol) {
        } else {
            fwrite($f, $_lf);
            $col = 0;
        }
        if ($col == 0) {
            fwrite($f, $mrg);
        }
        $col++;
        fwrite($f, $isi);
    }
    fwrite($f, $_lf . $mrg . "Tot Biaya:  Rp " . str_pad(number_format($tbia), 12, ' ', STR_PAD_LEFT) . $_lf);
    $tgl = date('d-m-Y  H:i');
    fwrite($f, str_pad("Dicetak oleh: {$_SESSION['_Login']}, {$tgl}", 114, ' ', STR_PAD_LEFT) . $_lf);
    // Tutup file
    fwrite($f, chr(12));
    fclose($f);
    // Tambahkan counter cetak KRS
    $s = "update khs set CetakKRS=CetakKRS+1 where KHSID={$khs['KHSID']}";
    $r = _query($s);
    if (empty($_REQUEST['prn'])) {
        TampilkanFileDWOPRN($nmf, "krs");
    } else {
        include_once "dwoprn.php";
        DownloadDWOPRN($nmf);
    }
}
Example #30
0
function Daftar()
{
    global $_lf;
    $MaxThn = date('Y');
    $MinThn = $MaxThn - 9;
    $arrAgama = GetArrayNilai("select concat(Agama, '~', Nama) as NILAI from agama order by Agama", "NILAI");
    $arrKelamin = GetArrayNilai("select concat(Kelamin, '~', Nama) as NILAI from kelamin order by Kelamin", "NILAI");
    $arrStatus = GetArrayNilai("select concat(StatusMhswID, '~', Nama) as NILAI from statusmhsw where StatusMhswID in ('A', 'C', 'T', 'W') order by StatusMhswID", "NILAI");
    $whr = empty($_SESSION['fakid']) ? 'where prd.FakultasID <> 9' : "where prd.FakultasID='{$_SESSION['fakid']}' ";
    // Tampilkan
    $maxbrs = 4;
    $s = "select prd.ProdiID, prd.Nama as PRD,\r\n    prd.FakultasID, fak.Nama as FAK\r\n    from prodi prd\r\n      left outer join fakultas fak on prd.FakultasID=fak.FakultasID\r\n    {$whr}\r\n    order by prd.FakultasID, prd.ProdiID";
    $r = _query($s);
    $TOT = 0;
    $banyakagama = sizeof($arrAgama);
    $banyakkelamin = sizeof($arrKelamin);
    $banyakstatus = sizeof($arrStatus);
    $hdrkel = '';
    for ($i = 0; $i < $banyakkelamin; $i++) {
        $str = explode('~', $arrKelamin[$i]);
        $hdrkel .= str_pad($str[0], 4, ' ') . ' ';
        //"$str[0]  ";
    }
    $hdragm = '';
    for ($i = 0; $i < sizeof($arrAgama); $i++) {
        $str = explode('~', $arrAgama[$i]);
        $hdragm .= str_pad($str[0], 4, ' ') . ' ';
        //"$str[0]   ";
    }
    $hdrsta = '';
    for ($i = 0; $i < sizeof($arrStatus); $i++) {
        $str = explode('~', $arrStatus[$i]);
        $hdrsta .= str_pad($str[0], 4, ' ') . ' ';
        //"$str[0]  ";
    }
    $isi_ .= str_pad("** DAFTAR MAHASISWA TERDAFTAR KRS **", 108, ' ', STR_PAD_BOTH) . $_lf . $_lf;
    $isi_ .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf;
    $isi_ .= str_pad('-', 108, '-') . $_lf;
    $isi_ .= "PRD    ANGKATAN      TOTAL      KELAMIN                AGAMA                             STATUS" . $_lf;
    $isi_ .= "                                 {$hdrkel}| {$hdragm}|    {$hdrsta}" . $_lf;
    $isi_ .= str_pad('-', 108, '-') . $_lf;
    $TOT = 0;
    $TOTK = array();
    $TOTA = array();
    $TOTS = array();
    while ($w = _fetch_array($r)) {
        $brs++;
        if ($brs > $maxbrs) {
            $isi_ .= str_pad('-', 108, '-') . $_lf;
            $isi_ .= chr(12);
            $isi_ .= str_pad("** DAFTAR MAHASISWA TERDAFTAR KRS **", 108, ' ', STR_PAD_BOTH) . $_lf . $_lf;
            $isi_ .= "Periode : " . NamaTahun($_SESSION['tahun']) . $_lf;
            $isi_ .= str_pad('-', 108, '-') . $_lf;
            $isi_ .= "PRD    ANGKATAN      TOTAL      KELAMIN                AGAMA                             STATUS" . $_lf;
            $isi_ .= "                                 {$hdrkel}| {$hdragm}|    {$hdrsta}" . $_lf;
            $isi_ .= str_pad('-', 108, '-') . $_lf;
            $brs = 1;
        }
        $arrKel1 = $arrKelamin;
        $arrAgm1 = $arrAgama;
        $arrSta1 = $arrStatus;
        $angk = AmbilDataAngkatan($w['ProdiID'], $w['PRD'], $_TOT, $MinThn, $MaxThn, $arrKel1, $arrAgm1, $arrSta1);
        $TOT += $_TOT;
        for ($i = 0; $i < $banyakkelamin; $i++) {
            $TOTK[$i] += $arrKel1[$i];
        }
        for ($i = 0; $i < sizeof($arrAgama); $i++) {
            $TOTA[$i] += $arrAgm1[$i];
        }
        for ($i = 0; $i < $banyakstatus; $i++) {
            $TOTS[$i] += $arrSta1[$i];
        }
        $isi_ .= $angk;
    }
    $_TOT = number_format($TOT);
    // Tampilkan jumlah total kelamin
    $totk = '';
    for ($i = 0; $i < $banyakkelamin; $i++) {
        $_totk = number_format($TOTK[$i]);
        $totk .= str_pad($_totk, 4, ' ', STR_PAD_LEFT) . ' ';
    }
    // Tampilkan jumlah total agama
    $tota = '';
    for ($i = 0; $i < $banyakagama; $i++) {
        $_tota = number_format($TOTA[$i]);
        $tota .= str_pad($_tota, 4, ' ', STR_PAD_LEFT) . ' ';
    }
    // Tampilkan jumlah total status
    $tots = '';
    for ($i = 0; $i < $banyakstatus; $i++) {
        $_tots = number_format($TOTS[$i]);
        $tots .= str_pad($_tots, 4, ' ', STR_PAD_LEFT) . ' ';
    }
    $isi_ .= str_pad('-', 108, '-') . $_lf;
    $isi_ .= "GRAND TOTAL        " . str_pad($_TOT, 7, ' ', STR_PAD_LEFT) . '   ' . str_pad($totk, 7, ' ', STR_PAD_LEFT) . ' ' . " {$tota}   {$tots}" . $_lf;
    $isi_ .= str_pad('-', 108, '-') . $_lf;
    $nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(77));
    fwrite($f, $isi_);
    fwrite($f, str_pad("Dicetak oleh : " . $_SESSION['_Login'], 70, ' ') . str_pad('Dicetak Tanggal : ' . date("d-m-Y H:i"), 10, ' '));
    fwrite($f, chr(12));
    fclose($f);
    TampilkanFileDWOPRN($nmf, "akd.lap.rekapmhsw");
}