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);
}
function Cetak()
{
global $arrBulan;
$mxb = 55;
$mxc = 186;
$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];
// 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(' ', 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);
}
}
}
function Cetak()
{
global $_lf;
$jdwl = GetFields('jadwal', 'JadwalID', $_REQUEST['jdwlid'], "*");
$jnsr = $jdwl['JenisJadwalID'] == 'R' ? "(RESPONSI) " : "";
$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");
// 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";
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 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);
}
}
function CetakDaftarPSSB()
{
global $_lf, $arrID;
// buat file
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, chr(27) . chr(15));
$mxb = 50;
$mxc = 130;
$grs = str_pad('-', $mxc, '-') . $_lf;
$hdr = str_pad("** Hasil Seleksi PSSB Tahun {$_SESSION['tahunpssb']} **", $mxc, ' ', STR_PAD_BOTH) . $_lf . $_lf . $grs . str_pad("No. ", 5) . str_pad("PSSBID", 14) . str_pad("Nama Siswa", 40) . str_pad("Nama Sekolah", 40) . str_pad("Kota Sekolah", 40) . $_lf . $grs;
// footer
fwrite($f, $lf);
$spasi = str_pad(' ', 80, ' ');
$rektor = GetaField('pejabat', "KodeID='{$_SESSION['KodeID']}' and JabatanID", "REKTOR", "Nama");
$tgl = date('d-m-Y');
$ftr = $spasi . "Jakarta, {$tgl}" . $_lf . $spasi . "Rektor" . $_lf . $_lf . $_lf . $spasi . $rektor;
// Tuliskan data
//fwrite($f, $hdr);
// Ambil data
$s = "select LEFT(p.Nama, 40) as Nama, p.Diskon, p.ProdiID, p.PSSBID, \r\n prd.Nama as PRD, f.Nama as FAK, prd.FakultasID,\r\n LEFT(sek.Nama, 40) as SKL, LEFT(sek.Kota, 40) as Kota\r\n from pssb p\r\n left outer join asalsekolah sek on p.AsalSekolah=sek.SekolahID\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 where p.TahunID='{$_SESSION['tahunpssb']}'\r\n order by p.ProdiID, p.Nama";
$r = _query($s);
$n = 0;
$prd = 'qwertyuiop';
$fak = 'qwertyuiop';
$_fak = $fak;
$brs = 0;
$hal = 0;
$tot = 0;
while ($w = _fetch_array($r)) {
$tot++;
if ($fak != $w['FakultasID']) {
if ($fak != $_fak) {
fwrite($f, $grs);
fwrite($f, $ftr . $_lf);
fwrite($f, chr(12));
}
$fak = $w['FakultasID'];
fwrite($f, str_pad("** Fakultas {$w['FAK']} **", $mxc, ' ', STR_PAD_BOTH) . $_lf);
fwrite($f, $hdr);
$brs = 0;
$n = 0;
$hal++;
}
if ($prd != $w['ProdiID']) {
$prd = $w['ProdiID'];
fwrite($f, $_lf . " > " . $w['PRD'] . $_lf . $grs);
$brs += 2;
}
if ($brs >= $mxb) {
$brs = 0;
fwrite($f, $grs);
fwrite($f, chr(12));
fwrite($f, $hdr);
}
$brs++;
$n++;
fwrite($f, str_pad($n, 5) . str_pad($w['PSSBID'], 14) . str_pad($w['Nama'], 40) . str_pad($w['SKL'], 40) . str_pad($w['Kota'], 40) . $_lf);
}
fwrite($f, $grs);
fwrite($f, "Total PSSB : {$tot}" . $_lf);
fwrite($f, $ftr . $_lf);
fwrite($f, chr(12));
fclose($f);
// Tampilkan
if (empty($_REQUEST['prn'])) {
TampilkanFileDWOPRN($nmf, '');
} else {
include_once "dwoprn.php";
DownloadDWOPRN($nmf);
}
}
