PHP DownloadDWOPRN函数代码示例

function CetakLabel()
{
    global $_HeaderPrn, $_EjectPrn, $_lf;
    $LabelMeja = HOME_FOLDER . DS . "tmp/LabelUjian.dwoprn";
    // *** Cetak ***
    if (!empty($_REQUEST['pmbid'])) {
        $whr = "where p.PMBID='{$_REQUEST['pmbid']}' ";
    } else {
        $whr = "where p.PMBPeriodID='{$_REQUEST['pmbaktif']}' and p.ProdiID='{$_REQUEST['prodi']}' ";
    }
    $s = "select p.PMBID, p.Nama, p.ProdiID, concat(f.Nama, ' / ', pr.Nama) as PRD, p.RuangID\r\n    from pmb p\r\n    left outer join prodi pr on p.ProdiID=pr.ProdiID\r\n    left outer join fakultas f on pr.FakultasID=f.FakultasID\r\n    {$whr} and p.PSSBID = ''\r\n    order by p.PMBID";
    $r = _query($s);
    $f = fopen($LabelMeja, 'w');
    $n = 0;
    fwrite($f, $_HeaderPrn);
    while ($w = _fetch_array($r)) {
        $n++;
        fwrite($f, chr(27) . chr(14));
        fwrite($f, $w['PMBID']);
        fwrite($f, chr(27) . chr(119) . '0' . $_lf);
        fwrite($f, chr(27) . chr(15));
        fwrite($f, $w['Nama'] . $_lf);
        fwrite($f, $w['PRD'] . $_lf);
        fwrite($f, $w['RuangID'] . $_lf);
        fwrite($f, chr(27) . chr(18));
        fwrite($f, $_HeaderPrn);
        fwrite($f, $_lf . $_lf . $_lf . $_lf . $_lf);
    }
    fwrite($f, chr(27) . chr(18));
    fclose($f);
    include_once "dwoprn.php";
    DownloadDWOPRN($LabelMeja);
}

function CetakKSS1($tahun, $mhsw, $khs)
{
    global $_HeaderPrn, $_lf;
    $stm = GetFields('statusmhsw', 'StatusMhswID', $khs['StatusMhswID'], '*');
    if ($stm['Nilai'] == 0) {
    }
    // Buat file
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(18) . chr(27) . chr(15) . chr(27) . chr(67) . chr(18));
    //.chr(27).chr(67).chr(18)
    fwrite($f, $_lf . $_lf);
    // Isinya
    $brs = 15;
    $arr = array();
    $div = str_pad('', 154, '-') . $_lf;
    for ($i = 0; $i <= $brs; $i++) {
        $arr[$i] = '';
    }
    TuliskanDataUtama($mhsw, $khs, $arr);
    if ($stm['Nilai'] == 0) {
        TuliskanStatusMhsw($mhsw, $khs, $arr, $stm);
    } else {
        TuliskanIsiKRS($mhsw, $khs, $arr);
    }
    TuliskanKanan($mhsw, $khs, $arr);
    for ($i = 0; $i <= $brs; $i++) {
        fwrite($f, $arr[$i] . $_lf);
    }
    fwrite($f, chr(27) . chr(18) . chr(67) . chr(66));
    //fwrite($f, chr(12));
    fclose($f);
    include "dwoprn.php";
    DownloadDWOPRN($nmf);
}

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 ProsesPerolehanSKS()
{
    $_SESSION["PERO-POS"]++;
    $pos = $_SESSION["PERO-POS"];
    $max = $_SESSION["PERO-MAX"];
    $MhswID = $_SESSION["PERO-MhswID-{$pos}"];
    if (!empty($MhswID)) {
        $mhsw = GetFields("mhsw m\r\n    left outer join dosen d on m.PenasehatAkademik=d.Login\r\n    left outer join program prg on m.ProgramID=prg.ProgramID\r\n    left outer join prodi prd on m.ProdiID=prd.ProdiID\r\n    left outer join fakultas fak on prd.FakultasID=fak.FakultasID\r\n    left outer join statusmhsw sm on m.StatusMhswID=sm.StatusMhswID", "m.MhswID", $MhswID, "m.*, concat(d.Nama, ', ', d.Gelar) as PA,\r\n    date_format(m.TanggalLahir, '%d %M %Y') as TGLLHR, \r\n    prg.Nama as PRG, prd.Nama as PRD, prd.Gelar, sm.Nama as SM, sm.Keluar, sm.Nilai,\r\n    fak.FakultasID, fak.Nama as FAK, \r\n    fak.Pejabat, fak.Jabatan");
        PerolehanSKS($mhsw);
        $persen = $max <= 0 ? "0" : number_format($pos / $max * 100, 2);
        echo "<h1>{$persen} %</h1> Processing: {$MhswID}";
    }
    if ($pos <= $max) {
        echo "<script type='text/javascript'>window.onload=setTimeout('window.location.reload()', 10);</script>";
    } else {
        include_once "dwoprn.php";
        DownloadDWOPRN($_SESSION["PERO-FILE"]);
    }
}

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 CetakLabel()
{
    global $_HeaderPrn, $_EjectPrn, $_lf, $arrHari;
    $FDHU = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}DHU.dwoprn";
    // *** Data ***
    $prodi = $_REQUEST['prodi'];
    $dataTest = GetFields('pmbusm', "PMBUSMID", $_REQUEST['pmbusmid'], '*');
    $dataProd = GetFields('prodiusm', "ProdiUSMID", $_REQUEST['prodiusmid'], "*, date_format(TanggalUjian, '%d/%m/%Y') as TGL, \r\n    date_format(TanggalUjian, '%H:%i') as JAM,\r\n    date_format(TanggalUjian, '%w') as HR");
    // *** Cetak ***
    $s = "select p.PMBID, p.Nama, p.PSSBID, p.StatusAwalID\r\n    from pmb p\r\n    where p.PMBPeriodID='{$_REQUEST['pmbaktif']}' and p.ProdiID='{$prodi}'\r\n    \r\n    order by p.PMBID";
    $r = _query($s);
    $hal = 1;
    $jmlbrs = 0;
    $maxbrs = 20;
    $f = fopen($FDHU, 'w');
    fwrite($f, $_HeaderPrn);
    CetakHeader($f, $dataTest, $dataProd, $hal);
    // isi
    while ($w = _fetch_array($r)) {
        $jmlbrs++;
        //$pssb = GetaField('pssb', "PSSBID", $w['PSSBID'], 'MhswID');
        $tanda = $w['StatusAwalID'] != 'B' ? '(PSSB)' : '';
        fwrite($f, str_pad($jmlbrs, 9, ' ', STR_PAD_LEFT) . '. ' . str_pad($w['PMBID'], 15) . ' ' . str_pad($w['Nama'] . ' ' . $tanda, 50) . $_lf . $_lf);
        if ($jmlbrs % $maxbrs == 0) {
            fwrite($f, chr(12));
            $hal++;
            CetakHeader($f, $dataTest, $dataProd, $hal);
        }
    }
    fwrite($f, "         Anda tidak diperkenankan menambah pada baris ini." . $_lf . $_lf);
    for ($i = $jmlbrs; $i <= $maxbrs - 1; $i++) {
        fwrite($f, $_lf . $_lf);
    }
    fwrite($f, chr(12));
    fclose($f);
    include_once "dwoprn.php";
    DownloadDWOPRN($FDHU);
}

function CetakKSS1($tahun, $mhsw, $khs)
{
    global $_HeaderPrn, $_lf;
    // Cek Status
    $stm = GetFields('statusmhsw', 'StatusMhswID', $khs['StatusMhswID'], '*');
    if ($stm['Nilai'] == 0) {
        //delete KRS mahasiswa di krstemp
        HapusKRSTemp($tahun, $mhsw, $khs);
        //Apakah Mahasiswa sudah punya kewajiban???
        $bipot = GetFields('bipotmhsw', "TrxID = 1 and TahunID = '{$tahun}' and MhswID", $mhsw['MhswID'], '*');
        //echo "$bipot[MhswID]"; exit;
        if (!empty($bipot['MhswID'])) {
            //Delete Keuangan Mahasiswa kecuali hutang, dan Biaya yang sudah dibayar
            $s = "delete \n\t\t\t\t\t\tfrom bipotmhsw \n\t\t\t\t\t\twhere MhswID = '{$mhsw['MhswID']}' and\n\t\t\t\t\t\t\t\t\tTahunID = '{$tahun}' and \n\t\t\t\t\t\t\t\t\tTrxID = 1 and \n\t\t\t\t\t\t\t\t\tBipotNamaID <> 30 and\n\t\t\t\t\t\t\t\t\tDibayar = 0";
            $r = _query($s);
        }
        //Apakah BPS sudah dibayar???
        $BPSbyr = GetaField('bipotmhsw', "TrxID = 1 and TahunID = '{$tahun}' and MhswID", $mhsw['MhswID'], 'Dibayar');
        if ($BPSbyr <= 0) {
            //Ambil Jumlah BPS dari Bipot
            $BPS = GetFields('bipot2', "BipotID = {$mhsw['BIPOTID']} and BipotNamaID", 11, '*');
            //Masukkan Jumlah BPS ke Bipotmhsw
            $s1 = "insert into bipotmhsw(MhswID, TahunID, BIPOT2ID, BIPOTNamaID,\n\t\t\t\tPMBMhswID, TrxID, Jumlah, Besar, Catatan,\n\t\t\t\tLoginBuat, TanggalBuat)\n\t\t\t\tvalues('{$mhsw['MhswID']}', '{$tahun}', '{$BPS['BIPOT2ID']}', '{$BPS['BIPOTNamaID']}',\n\t\t\t\t'1', '{$BPS['TrxID']}', 1, '{$BPS['Jumlah']}', 'Cuti atau Tunggu Ujian',\n\t\t\t\t'{$_SESSION['_Login']}', now())";
            $r1 = _query($s1);
            //update jumlah MK dan SKS di KHS
            $upkhs = "update khs set JumlahMK='0', TotalSKS='0' where KHSID = '{$khs['KHSID']}'";
            $up = _query($upkhs);
            //Hitung ulang Biaya di KHS
            HitungBiaya($mhsw, $khs);
        }
    } else {
        // Jika belum aktif, maka set status menjadi aktif
        $status = $khs['StatusMhswID'] != 'A' ? ", StatusMhswID='A' " : '';
        // Set kalau sudah dicetak
        $s = "update khs set Cetak='Y', KaliCetak=KaliCetak+1 {$status}\n      where KHSID='{$khs['KHSID']}' ";
        $r = _query($s);
    }
    // Update biaya2
    $sb = "update bipotmhsw set Draft='N' \n    where MhswID='{$mhsw['MhswID']}' and TahunID='{$khs['TahunID']}' and Draft='Y' ";
    $rb = _query($sb);
    // Buat file
    $nmf = "tmp/{$_SESSION['_Login']}.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(18) . chr(27) . chr(15));
    //.chr(27).chr(67).chr(18)
    fwrite($f, $_lf . $_lf);
    // Isinya
    $brs = 15;
    $arr = array();
    $div = str_pad('', 154, '-') . $_lf;
    for ($i = 0; $i <= $brs; $i++) {
        $arr[$i] = '';
    }
    TuliskanDataUtama($mhsw, $khs, $arr);
    if ($stm['Nilai'] == 0) {
        TuliskanStatusMhsw($mhsw, $khs, $arr, $stm);
    } else {
        TuliskanIsiKRS($mhsw, $khs, $arr);
    }
    TuliskanKanan($mhsw, $khs, $arr);
    for ($i = 0; $i <= $brs; $i++) {
        fwrite($f, $arr[$i] . $_lf);
    }
    fwrite($f, chr(27) . chr(18) . chr(67) . chr(66));
    //fwrite($f, chr(12));
    fclose($f);
    include "dwoprn.php";
    DownloadDWOPRN($nmf);
}

    while ($u = _fetch_array($r)) {
        if (!empty($u['RuangID'])) {
            $arrRg = explode(',', $u['RuangID']);
            $strRg = $arrRg[0];
        } else {
            $strRg = '';
        }
        $arr[$n] .= str_pad($u['TGL'], 13, ' ') . str_pad($u['JAM'], 10, ' ') . str_pad($u['UJN'], 20, ' ') . str_pad($strRg, 34, ' ');
        $n++;
    }
    for ($i = $n; $i <= 10; $i++) {
        $arr[$i] .= str_pad(' ', 77, ' ');
    }
    // Tulis halaman 3
    PMBKRT_UTAMA($arr, $w);
    // Tuliskan ke file
    $f = fopen($_FKartuUSM, 'w');
    fwrite($f, chr(27) . chr(15));
    for ($i = 0; $i <= 10; $i++) {
        fwrite($f, $arr[$i] . $_lf);
    }
    fwrite($f, $_lf . $_lf . $_lf . $_lf);
    fclose($f);
}
// *** Main ***
PMBKRT();
include_once "disconnectdb.php";
// download
include_once "dwoprn.php";
DownloadDWOPRN($_FKartuUSM);

        $bipot2 = GetBipot2($pmb, $pmb['BIPOTID'], $tot);
        $_t = str_replace('~BIPOT~', $bipot2, $_t);
        // Catatan diskon
        $cttDiskon = $pmb['Diskon'] > 0 ? GetDiskon($pmb, $bipotid, $pmb['Diskon']) : '';
        $_t = str_replace('~DISKON~', $cttDiskon, $_t);
        $_t = str_replace('~TOTALBIAYA~', number_format($tot), $_t);
        // Tuliskan ke file
        //fwrite($f, chr(27).chr(108).chr(0));
        fwrite($f, $_t);
    }
    fclose($f);
    if (empty($_REQUEST['prn'])) {
        TampilkanFileDWOPRN($nmf, '');
    } else {
        include_once "dwoprn.php";
        DownloadDWOPRN($nmf);
    }
}
function GetDiskon($pmb, $bipotid, $Diskon)
{
    global $_lf;
    $s = "select b2.*, bn.Nama, bn.DefJumlah, bn.DefBesar, bn.Diskon\r\n    from bipot2 b2\r\n    left outer join bipotnama bn on b2.BIPOTNamaID=bn.BIPOTNamaID\r\n    where b2.BIPOTID='{$bipotid}' and b2.SaatID=1\r\n      and INSTR(b2.StatusAwalID, '.{$pmb['StatusAwal']}.')>0\r\n    order by b2.Prioritas";
    $r = _query($s);
    $total = 0;
    $a = "Berdasarkan hasil rapat, Anda dinyatakan mendapat potongan SPP sebesar " . $Diskon . "%" . $_lf;
    while ($w = _fetch_array($r)) {
        $jml = $w['DefJumlah'] == 0 ? 1 : $w['DefJumlah'];
        //$bsr = ($w['Diskon'] == 'Y')? $w['Jumlah']-($w['Jumlah'] * $Diskon / 100) : $w['Jumlah'];
        $total += $jml * $w['Jumlah'] * $Diskon / 100;
        //$a .= $jml . ' x '. $bsr . ' ' . (($w['Diskon']=='Y')? 'DISKON' : '').$_lf;
    }

function prn()
{
    global $_kwitansipmb;
    DownloadDWOPRN($_kwitansipmb);
}

//.........这里部分代码省略.........
    $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(' ', 50);
    $TglCetak = date('d/m/Y H:i');
    $hdr = str_pad('** Daftar Honor Dosen **', $mxc, ' ', STR_PAD_BOTH) . $g . str_pad("Periode  : {$PeriodeMinggu}, Bulan : {$bulan}, Tahun : {$PeriodeTahun}", $mxc / 2) . $spasihdr . "Tanggal : {$TglCetak}" . $g . str_pad("Semester : {$_tahun}", $mxc / 2) . $spasihdr . "Dicetak : {$_SESSION['_Login']}" . $g . str_pad("Prodi    : {$_prodi}", $mxc / 2) . $spasihdr . "Hal.    : =HAL=" . $g . $grs . "No. Kode  Nama Dosen    Kode    Matakuliah               SKS Hdr       T.Jab1      T.Jab2" . "       T.SKS   Transport" . "     T.Paket    Tambahan" . "    Potongan       Bruto" . "       Pajak        Total" . $g . $grs;
    // Data
    $s = "select hd.*, LEFT(d.Nama, 30) as DSN\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    where hd.ProdiID='{$prodi}'\r\n      and hd.TahunID='{$tahun}'\r\n      and hd.Tahun='{$PeriodeTahun}'\r\n      and hd.Bulan='{$PeriodeBulan}'\r\n      and hd.Minggu='{$PeriodeMinggu}'\r\n      and sd.HonorMengajar='Y' \r\n      and d.NA='N'\r\n    group by d.Login\r\n    order by d.Nama";
    $prd = $_SESSION['prodi'] == '99' ? "and INSTR(j.ProdiID, '.{$_SESSION['prodi']}.')>0" : "and j.ProdiID='.{$_SESSION['prodi']}.'";
    $s1 = "select hd.*, LEFT(d.Nama, 30) as DSN from  presensi prs \r\n      left outer join jadwal j on prs.JadwalID=j.JadwalID\r\n      left outer join dosen d on prs.DosenID=d.Login\r\n      left outer join statusdosen sd on d.StatusDosenID=sd.StatusDosenID\r\n      left outer join prodi prd on d.Homebase=prd.ProdiID\r\n      left outer join golongan gol on d.GolonganID=gol.GolonganID and d.KategoriID=gol.KategoriID and d.Homebase=gol.ProdiID\r\n      left outer join ikatan ikt on d.IkatanID=ikt.IkatanID\r\n      left outer join honordosen hd on d.Login=hd.DosenID and hd.prodiID='{$prodi}'\r\n    where sd.HonorMengajar='Y' and d.NA='N'\r\n      and hd.Tahun='{$_SESSION['PeriodeTahun']}' \r\n      and hd.Bulan='{$_SESSION['PeriodeBulan']}'\r\n      and hd.Minggu='{$_SESSION['PeriodeMinggu']}'\r\n      and prs.TahunID='{$_SESSION['tahun']}'\r\n    {$prd}\r\n    group by prs.DosenID";
    //echo "<pre>$s</pre>"; exit;
    $r = _query($s1);
    $_TOT = 0;
    $n = 0;
    $brs = 0;
    $h = 1;
    $_tj1 = 0;
    $_tj2 = 0;
    $_tsk = 0;
    $_ttr = 0;
    $_ttp = 0;
    $_tam = 0;
    $_tpo = 0;
    $_pjk = 0;
    $_bru = 0;
    fwrite($f, str_replace('=HAL=', $h, $hdr));
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        if ($brs >= $mxb) {
            $brs = 0;
            $h++;
            fwrite($f, str_pad("Oleh: {$_SESSION['_Login']}", $mxc / 2) . str_pad("Hal. {$h}", $mxc / 2, ' ', STR_PAD_LEFT) . $g);
            fwrite($f, chr(12));
            fwrite($f, str_replace('=HAL=', $h, $hdr));
        }
        $TOT = $w['TunjanganJabatan1'] + $w['TunjanganJabatan2'] + $w['TunjanganSKS'] + $w['TunjanganTransport'] + $w['TunjanganTetap'] + $w['Tambahan'] - $w['Potongan'];
        $TOT1 = $TOT - $TOT * $w['Pajak'] / 100;
        $_bru += $TOT;
        $_TOT += $TOT1;
        $pjk = $TOT * $w['Pajak'] / 100;
        $strpjk = number_format($pjk);
        $strTOT = number_format($TOT);
        $strTOT1 = number_format($TOT1);
        $tj1 = number_format($w['TunjanganJabatan1']);
        $tj2 = number_format($w['TunjanganJabatan2']);
        $tsk = number_format($w['TunjanganSKS']);
        $ttr = number_format($w['TunjanganTransport']);
        $ttp = number_format($w['TunjanganTetap']);
        $tam = number_format($w['Tambahan']);
        $tpo = number_format($w['Potongan']);
        $_tj1 += $w['TunjanganJabatan1'];
        $_tj2 += $w['TunjanganJabatan2'];
        $_tsk += $w['TunjanganSKS'];
        $_ttr += $w['TunjanganTransport'];
        $_ttp += $w['TunjanganTetap'];
        $_tam += $w['Tambahan'];
        $_tpo += $w['Potongan'];
        $_pjk += $pjk;
        fwrite($f, str_pad($n, 4) . str_pad($w['DosenID'], 6) . str_pad($w['DSN'], 55) . str_pad($tj1, 12, ' ', STR_PAD_LEFT) . str_pad($tj2, 12, ' ', STR_PAD_LEFT) . str_pad($tsk, 12, ' ', STR_PAD_LEFT) . str_pad($ttr, 12, ' ', STR_PAD_LEFT) . str_pad($ttp, 12, ' ', STR_PAD_LEFT) . str_pad($tam, 12, ' ', STR_PAD_LEFT) . str_pad($tpo, 12, ' ', STR_PAD_LEFT) . str_pad($strTOT, 12, ' ', STR_PAD_LEFT) . str_pad($strpjk, 12, ' ', STR_PAD_LEFT) . str_pad($strTOT1, 12, ' ', STR_PAD_LEFT) . $g);
        // Ambil detail matakuliah yg diampu
        $sj = "select p.*, j.MKKode, LEFT(j.Nama, 20) as Nama, j.NamaKelas, jj.Nama as JENJAD, j.SKSHonor, count(*) as JML\r\n      from presensi p\r\n        left outer join jadwal j on p.JadwalID=j.JadwalID\r\n        left outer join jenisjadwal jj on j.JenisJadwalID=jj.JenisJadwalID\r\n      where p.HonorDosenID='{$w['HonorDosenID']}'\r\n      group by p.JadwalID";
        $rj = _query($sj);
        $nj = 0;
        while ($wj = _fetch_array($rj)) {
            $nj++;
            $brs++;
            if ($brs >= $mxb) {
                $brs = 0;
                $h++;
                fwrite($f, str_pad("Oleh: {$_SESSION['_Login']}", $mxc / 2) . str_pad("Hal. {$h}", $mxc / 2, ' ', STR_PAD_LEFT) . $g);
                fwrite($f, chr(12));
                fwrite($f, $hdr);
            }
            $tsks = number_format($wj['TunjanganSKS']);
            fwrite($f, '          ' . str_pad($nj . '.', 4) . str_pad($wj['JENJAD'], 10) . str_pad($wj['MKKode'], 8) . str_pad($wj['Nama'], 21) . str_pad($wj['NamaKelas'], 5) . str_pad($wj['SKSHonor'], 3, ' ', STR_PAD_LEFT) . ' ' . str_pad($wj['JML'], 3, ' ', STR_PAD_LEFT) . $g);
        }
    }
    $tj1 = number_format($_tj1);
    $tj2 = number_format($_tj2);
    $tsk = number_format($_tsk);
    $ttr = number_format($_ttr);
    $ttp = number_format($_ttp);
    $tam = number_format($_tam);
    $tpo = number_format($_tpo);
    $pjk = number_format($_pjk);
    $TOT = number_format($_TOT);
    $bru = number_format($_bru);
    fwrite($f, $grs . str_pad("Total : ", 65, ' ', STR_PAD_LEFT) . str_pad($tj1, 12, ' ', STR_PAD_LEFT) . str_pad($tj2, 12, ' ', STR_PAD_LEFT) . str_pad($tsk, 12, ' ', STR_PAD_LEFT) . str_pad($ttr, 12, ' ', STR_PAD_LEFT) . str_pad($ttp, 12, ' ', STR_PAD_LEFT) . str_pad($tam, 12, ' ', STR_PAD_LEFT) . str_pad($tpo, 12, ' ', STR_PAD_LEFT) . str_pad($bru, 12, ' ', STR_PAD_LEFT) . str_pad($pjk, 12, ' ', STR_PAD_LEFT) . str_pad($TOT, 12, ' ', STR_PAD_LEFT) . $g);
    for ($i = $brs + 3; $i <= $mxb; $i++) {
        fwrite($f, $g);
    }
    fwrite($f, str_pad("Oleh: {$_SESSION['_Login']}", $mxc / 2) . str_pad("Hal. {$h}", $mxc / 2, ' ', STR_PAD_LEFT) . $g);
    fwrite($f, chr(12));
    // Tutup file
    fclose($f);
    include "dwoprn.php";
    DownloadDWOPRN($nmf);
}

function CetakSurat()
{
    global $_HeaderPrn, $_lf;
    // data periode
    $TM = FormatTanggal($_REQUEST['TglDUMulai']);
    $TS = FormatTanggal($_REQUEST['TglDUSelesai']);
    $BY = FormatTanggal($_REQUEST['TglBayar']);
    $TT = FormatTanggal($_REQUEST['TglTangan']);
    // Ambil template
    $namatemplate = "template/{$_REQUEST['tahunpssb']}.PSSB.txt";
    $ft = fopen($namatemplate, 'r');
    $tpl = fread($ft, filesize($namatemplate));
    fclose($ft);
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
    // Ambil semua parameter
    $pssbid = array();
    $pssbid = $_REQUEST['pssbid'];
    if (!empty($pssbid)) {
        $f = fopen($nmf, 'w');
        /*fwrite($f, 
          chr(27) . chr(38) . chr(107) . chr(50) . chr(83). // condensed
          chr(27) . chr(38) . chr(108) . chr(54) . chr(68). // 6 lines per inches
          chr(27) . chr(40) . chr(115) . chr(51) . chr(66)); // bold & 66 baris*/
        fwrite($f, chr(27) . chr(15));
        fwrite($f, chr(27) . chr(108) . chr(5));
        // Buat surat beberapa sekaligus
        for ($i = 0; $i < sizeof($pssbid); $i++) {
            $pssb = GetFields("pssb p\r\n        left outer join program prg on p.ProgramID=prg.ProgramID\r\n        left outer join prodi prd on p.ProdiID=prd.ProdiID\r\n        left outer join fakultas f on prd.FakultasID=f.FakultasID\r\n        left outer join asalsekolah a on p.AsalSekolah=a.SekolahID", 'PSSBID', $pssbid[$i], "p.*, prd.Nama as PRD, prg.Nama as PRG, f.Nama as FAK,\r\n        a.Nama as AsalSekolah, a.JenisSekolahID as jensek");
            // Ambil template
            $_t = $tpl . chr(12);
            $_t = str_replace('~PSSBID~', $pssb['PSSBID'], $_t);
            $_t = str_replace('~Nama~', $pssb['Nama'], $_t);
            $_t = str_replace('~AsalSekolah~', $pssb['AsalSekolah'], $_t);
            $_t = str_replace('~FAK~', $pssb['FAK'], $_t);
            $_t = str_replace('~PRD~', $pssb['PRD'], $_t);
            $_t = str_replace('~TglMulai~', $TM, $_t);
            $_t = str_replace('~TglSelesai~', $TS, $_t);
            $_t = str_replace('~BayarSelesai~', $BY, $_t);
            $_t = str_replace('~Tanggal~', $TT, $_t);
            // Ambil BIPOT default untuk program studi ybs
            $bipotid = GetaField('bipot', "Def='Y' and ProgramID='{$pssb['ProgramID']}' and ProdiID", $pssb['ProdiID'], 'BIPOTID');
            // BIPOT
            $tot = 0;
            $bipot2 = GetBipot2($bipotid, $tot);
            //$jensek = Getafield('asalsekolah', "sekolahID", $pssb['sekolahID'], 'JenisSekolahID');
            $_t = str_replace('~BIPOT~', $bipot2, $_t);
            // Diskon
            $cttDiskon = $pssb['Diskon'] > 0 ? GetDiskon($bipotid, $pssb['Diskon'], $tot, $satu, $dua, $tiga) : Nodiskon($bipotid, $tot, $satu, $dua, $tiga);
            if ($pssb['jensek'] == 'PENABUR') {
                $catat = "Jika Anda membayar lunas s.d. " . $BY . " akan mendapat rabat 5% dari SPP yang wajib dibayar, asal sekolah anda dari " . $_lf . "   BPK Penabur sehingga mendapat tambahan rabat sebesar 5% lagi";
            } elseif ($pssb['jensek'] == 'WAKIL') {
                $catat = "Jika Anda membayar lunas s.d. " . $BY . " akan mendapat rabat 10% dari SPP yang wajib dibayar, asal sekolah anda dari" . $_lf . "   Perwakilan sehingga mendapat tambahan rabat sebesar 5% lagi";
            } else {
                $catat = "Jika Anda membayar lunas s.d. " . $BY . " akan mendapat rabat 5% dari SPP yang wajib dibayar";
            }
            $_t = str_replace('~LUNAS~', $catat, $_t);
            $_t = str_replace('~DISKON~', $cttDiskon, $_t);
            // Total
            $_t = str_replace('~TOTALBIAYA~', number_format($tot), $_t);
            //50% SPP
            $_t = str_replace('~TAHAP1~', number_format($satu), $_t);
            //30% SPP
            $_t = str_replace('~TAHAP2~', number_format($dua), $_t);
            //20% SPP
            $_t = str_replace('~TAHAP3~', number_format($tiga), $_t);
            // Tuliskan ke file
            fwrite($f, $_t);
        }
        fclose($f);
        if (empty($_REQUEST['prn'])) {
            TampilkanFileDWOPRN($nmf, '');
        } else {
            include_once "dwoprn.php";
            DownloadDWOPRN($nmf);
        }
    }
}

//.........这里部分代码省略.........
    $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");
    // Ambil program
    $prg = TRIM($jdwl['ProgramID'], '.');
    $_prg = explode('.', $prg);
    $prg = $_prg[0];
    $PRG = GetaField('program', 'ProgramID', $prg, 'Nama');
    // Ambil prodi
    $prd = TRIM($jdwl['ProdiID'], '.');
    $_prd = explode('.', $prd);
    $prd = $_prd[0];
    // Ambil fakultas
    $FakultasID = GetaField('prodi', 'ProdiID', $prd, 'FakultasID');
    $Fak = GetaField('fakultas', 'FakultasID', $FakultasID, 'Nama');
    // Nama tahun
    $thn = GetaField('tahun', "ProgramID='{$prg}' and ProdiID='{$prd}' and TahunID", $jdwl['TahunID'], 'Nama');
    // Buat file
    $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.rinci.dwoprn";
    $f = fopen($nmf, 'w');
    fwrite($f, chr(27) . chr(15) . chr(27) . chr(80) . chr(27) . chr(108) . chr(10));
    // Buat header
    $MaxCol = 117;
    $div = str_pad('-', $MaxCol, '-') . $_lf;
    $jen = GetaField('jenisjadwal', 'JenisJadwalID', $jdwl['JenisJadwalID'], 'Nama');
    $tgl = date('d-m-Y H:i');
    $Hal = 1;
    $hdr = $_lf . $_lf . "Tgl.  : " . $tgl . "           *** Daftar Rincian Nilai Mahasiswa {$jnsr}***" . $_lf . "Form  : UKW " . $_lf . "Fak.  : " . str_pad($Fak, 40) . "Dosen  : " . $nmdsn . $_lf . "Jur.  : " . str_pad($prd, 40) . "M.K.   : " . "{$jdwl['MKKode']} -  {$jdwl['Nama']}" . $_lf . "Sem.  : " . str_pad($thn, 40) . "Kelas  : " . str_pad($jdwl['NamaKelas'], 40) . " Hal: #" . $_lf . $div . "No. NPM             Nama Mahasiswa                  Tgs1  Tgs2  Tgs3  Tgs4  Tgs5  Pres   UTS   UAS  Resp    Nilai Grd" . $_lf . "                                                   " . str_pad(number_format($jdwl['Tugas1'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['Tugas2'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['Tugas3'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['Tugas4'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['Tugas5'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['Presensi'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['UTS'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['UAS'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . str_pad(number_format($jdwl['Responsi'], 1) . '%', 5, ' ', STR_PAD_LEFT) . ' ' . $_lf . $div;
    $hdr1 = str_replace('#', $Hal, $hdr);
    fwrite($f, $hdr1);
    // Tuliskan isinya
    //GetArrayTable($sql, $key, $label, $separator=', ') {
    $ikut = GetArrayTable("select StatusKRSID, Nama from statuskrs where Ikut='Y' order by StatusKRSID", "StatusKRSID", "StatusKRSID", ', ', "'");
    $s = "select krs.*, LEFT(m.Nama, 30) as NamaMhsw, sk.Ikut, sk.Hitung\r\n    from krs krs\r\n      left outer join mhsw m on krs.MhswID=m.MhswID\r\n      left outer join statuskrs sk on krs.StatusKRSID=sk.StatusKRSID\r\n    where krs.JadwalID='{$jdwl['JadwalID']}' and krs.StatusKRSID in ({$ikut})\r\n    order by krs.MhswID";
    $r = _query($s);
    $n = 0;
    $brs = 0;
    $maxbrs = 50;
    $arrNilai = array();
    $JmlMhsw = 0;
    while ($w = _fetch_array($r)) {
        $n++;
        $brs++;
        $w['NilaiAkhir'] = number_format($w['NilaiAkhir'], 2);
        $NilaiAkhir = $w['Hitung'] == 'Y' ? $w['NilaiAkhir'] : '-';
        $GradeNilai = $w['Hitung'] == 'Y' ? $w['GradeNilai'] : $w['StatusKRSID'];
        if ($NilaiAkhir != '-') {
            $arrNilai[$w['GradeNilai']] += 1;
            $JmlMhsw++;
        }
        fwrite($f, str_pad($n . '.', 4) . str_pad($w['MhswID'], 15) . ' ' . str_pad($w['NamaMhsw'], 30) . ' ' . str_pad($w['Tugas1'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['Tugas2'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['Tugas3'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['Tugas4'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['Tugas5'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['Presensi'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['UTS'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['UAS'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($w['Responsi'], 5, ' ', STR_PAD_LEFT) . ' ' . str_pad($NilaiAkhir, 8, ' ', STR_PAD_LEFT) . ' ' . str_pad($GradeNilai, 5, ' ', STR_PAD_RIGHT) . $_lf);
        if ($brs > $maxbrs) {
            $Hal++;
            $brs = 1;
            fwrite($f, $div);
            fwrite($f, chr(12));
            $hdr1 = str_replace('#', $Hal, $hdr);
            fwrite($f, $hdr1);
        }
    }
    fwrite($f, $div);
    // Ambil nilai
    $s = "select * from nilai where ProdiID='{$prd}' order by Bobot desc";
    $r = _query($s);
    $str = array();
    $akh = '';
    $cnt = _num_rows($r);
    $n = 0;
    while ($w = _fetch_array($r)) {
        $n++;
        $Jml = empty($arrNilai[$w['Nama']]) ? '0' : $arrNilai[$w['Nama']] + 0;
        $persen = $JmlMhsw == 0 ? 0 : number_format($Jml / $JmlMhsw * 100, 1);
        $tnd = $cnt == $n ? "< " : ">=";
        $nil = $cnt == $n ? $akh : $w['NilaiMin'];
        $str[] = $tnd . str_pad($nil, 5, ' ', STR_PAD_LEFT) . " = " . str_pad($w['Nama'], 3) . "=" . str_pad($Jml, 3) . "=" . str_pad($persen, 5, ' ', STR_PAD_LEFT) . '%    ';
        $akh = $w['NilaiMin'];
    }
    $dua = ceil(sizeof($str) / 2);
    $foot = array();
    $n = 0;
    for ($i = 0; $i < sizeof($str); $i++) {
        $foot[$n] .= $str[$i];
        $n++;
        if ($n >= $dua) {
            $n = 0;
        }
    }
    // Buat tanda tangan
    $foot[0] .= "Paraf Dosen:                        Pimpinan Fakultas:";
    $foot[3] .= $nmdsn;
    for ($i = 0; $i < sizeof($foot); $i++) {
        fwrite($f, $foot[$i] . $_lf);
    }
    // Tutup file
    fwrite($f, chr(12));
    fclose($f);
    // Cetak
    include_once "dwoprn.php";
    DownloadDWOPRN($nmf);
}

<?php

// Author: Emanuel Setio Dewo
// 2006-01-05
function DownloadDWOPRN($f)
{
    header("Content-Author: Emanuel Setio Dewo");
    header("Content-type: application/dwoprn");
    header("Content-Length: " . filesize($f));
    header("Content-Disposition: attachment; filename=\"print.dwoprn\"");
    header("Content-Description: Download Data");
    header("Content-EQUIV: refresh; URL=\"http://localhost/?\" ");
    readfile($f);
    /*$hnd = fopen($f, "r");
      $isi = fread($hnd, filesize($f));
      fclose($hnd);
      echo $isi;
      */
    //header("location: http://localhost/semarang/?", false);
}
DownloadDWOPRN($_REQUEST['f']);
//echo "<META HTTP-EQUIV=\"refresh\" content=\"5; URL=http://localhost/semarang/$_REQUEST[GODONLOT]\">";

include_once "connectdb.php";
include_once "dwo.lib.php";
include_once "parameter.php";
$KampusID = $_REQUEST['KampusID'];
$kamp = GetFields('kampus', 'KampusID', $KampusID, '*');
$nmf = "tmp\$_SESSION[_Login].ruang.dwoprn";
$f = fopen($nmf, 'w');
$MaxCol = 90;
$grs = str_pad('-', $MaxCol, '-') . "\r\n";
fwrite($f, str_pad($arrID['Nama'], $MaxCol, ' ', STR_PAD_BOTH) . $_lf);
fwrite($f, str_pad("Daftar Ruangan di Kampus:", $MaxCol, ' ', STR_PAD_BOTH) . $_lf);
fwrite($f, str_pad($kamp['Nama'], $MaxCol, ' ', STR_PAD_BOTH) . $_lf);
fwrite($f, $grs);
// header
$hdr = "Nomer " . str_pad('Kode', 10) . str_pad('Nama', 30) . str_pad('Prodi', 30) . "Kul? Kaps \r\n" . $grs;
fwrite($f, $hdr);
// Ambil data
$s = "select r.*\r\n  from ruang r\r\n  where KampusID={$KampusID}";
$r = _query($s);
$brs = 0;
while ($w = _fetch_array($r)) {
    $brs++;
    $prd = TRIM($w['ProdiID'], '.');
    $prd = str_replace('.', ',', $prd);
    fwrite($f, str_pad($brs, 6) . str_pad($w['RuangID'], 10) . str_pad($w['Nama'], 30) . str_pad($prd, 30) . str_pad($w['RuangKuliah'], 4, ' ', STR_PAD_BOTH) . ' ' . str_pad($w['Kapasitas'], 4, ' ', STR_PAD_RIGHT) . $_lf);
}
fwrite($f, $grs);
fclose($f);
include_once "dwoprn.php";
DownloadDWOPRN($nmf, 'fak');
include_once "disconnectdb.php";