function DftrBPMMhsw()
{
if (!empty($_SESSION['DariNPM'])) {
$_SESSION['SampaiNPM'] = empty($_SESSION['SampaiNPM']) ? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM'];
$_npm = "and '{$_SESSION['DariNPM']}' <= khs.MhswID and khs.MhswID <= '{$_SESSION['SampaiNPM']}' ";
} else {
$_npm = '';
}
$s = "select khs.*, m.Nama as NamaMhsw\r\n from khs khs\r\n left outer join mhsw m on m.MhswID=khs.MhswID\r\n\t where khs.TahunID='{$_SESSION['tahun']}'\r\n\t\t\tand khs.Autodebet=0\r\n and m.ProgramID='{$_SESSION['prid']}'\r\n and khs.ProdiID='{$_SESSION['prodi']}'\r\n\t and JumlahMK > 0\r\n\t\tand m.TahunID >= '2002'\r\n {$_npm}\r\n order by khs.MhswID";
$r = _query($s);
$n = 0;
$Kode = $_SESSION['_KodeID'];
$rekid = Getafield('rekening', 'Nama', $Kode, 'RekeningID');
$balance = $w['Bayar'] - $w['Biaya'] + $w['Potongan'] - $w['Tarik'];
$blc = $balance < 0 ? 'class=wrn' : 'class=ul';
// format tampilan
$_balance = number_format($balance);
$BIA = number_format($w['Biaya']);
$BYR = number_format($w['Bayar']);
$POT = number_format($w['Potongan']);
$TRK = number_format($w['Tarik']);
echo "<p><table class=box cellspacing=1 cellpadding=4>\r\n <form action='?' name='Cetakblanko' method=POST>\r\n\t<input type=hidden name='mnux' value='bpm.autodebet'>\r\n\t<input type=hidden name='gos' value='CetakBPMMhsw'>\r\n <tr><th class=ttl>#</th>\r\n <th class=ttl>NPM</th>\r\n\t<th class=ttl>Nama</th>\r\n\t<th class=ttl>Total Biaya</th>\r\n\t<th class=ttl>Balance</th>\r\n <th class=ttl><input type=submit name='Cetak' value='Cetak'></th>\r\n </tr>";
while ($w = _fetch_array($r)) {
$n++;
$lnk[] = "rekid={$_REQUEST['rekid']}&pmbid={$_REQUEST['pmbid']}&mhswid={$_REQUEST['mhswid']}&khsid={$_REQUEST['khsid']}&pmbmhswid={$_REQUEST['pmbmhswid']}&bpmblank={$_REQUEST['bpmblank']}";
$balance = $w['Bayar'] - $w['Biaya'] + $w['Potongan'] - $w['Tarik'];
$blc = $balance < 0 ? 'class=wrn' : 'class=ul';
// format tampilan
$_balance = number_format($balance);
$BIA = number_format($w['Biaya']);
$BYR = number_format($w['Bayar']);
$POT = number_format($w['Potongan']);
$TRK = number_format($w['Tarik']);
//$sum = TampilkanSummaryKeuMhsw($w['MhswID'],$w);
echo "<tr><td class=inp1>{$n}</td>\r\n\t <td class=inp>{$w['MhswID']}</td>\r\n\t \r\n <td class=inp>{$w['NamaMhsw']}</td>\r\n\t <td class=inp>{$BIA}</td>\r\n\t <td class=inp>{$_balance}</td>\r\n\t <td class=ul><input type=checkbox name='khsid[]' value='{$w['KHSID']}' checked>\r\n <a href='?mnux=bpm.autodebet&gos=CetakBPMMhsw&khsid[]={$w['KHSID']}'>Cetak</a></td></tr>\r\n </tr>";
}
echo "<tr><td colspan=3></td>\r\n <td><input type=submit name='Cetak' value='Cetak'></td></tr>";
echo "</form></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 Tampilkan()
{
global $_lf;
//$QProdi = (!empty($_SESSION['prodi'])) ? "and m.ProdiID = '$_SESSION[prodi]'" : "";
if (!empty($_SESSION['prodi'])) {
$QProdi = "and m.ProdiID = '{$_SESSION['prodi']}'";
$nPRD = GetaField('prodi', 'ProdiID', $_SESSION['prodi'], "Nama");
$Jdls = str_pad("Prodi : " . $nPRD, 30, ' ') . $_lf;
} else {
$QProdi = "";
$Jdls = '';
}
$s = "select bm.*, LEFT(m.Nama, 35) as Nama, Format(bm.Jumlah, 0) as JML, Format(bm.JumlahLain,0) as JMLLAIN, bm.PMBID \r\n from bayarmhsw bm\r\n left outer join mhsw m on bm.MhswID=m.MhswID\r\n where ('{$_SESSION['DariTgl']}' <= bm.Tanggal) and (bm.Tanggal <= '{$_SESSION['SampaiTgl']}')\r\n and (bm.Jumlah > 0 or bm.JumlahLain > 0)\r\n {$QProdi}\r\n and TrxID = 1\r\n order by bm.BayarMhswID";
$r = _query($s);
$n = 0;
$brs = 0;
$hal = 1;
$tot = 0;
$mxb = 55;
$mxc = 160;
$grs = str_pad('-', $mxc, '-') . $_lf;
$_tgl = date('d-m-Y H:i');
$_DariTgl = FormatTanggal($_SESSION['DariTgl']);
$_SampaiTgl = FormatTanggal($_SESSION['SampaiTgl']);
$hdr = str_pad("*** Daftar Pembayaran Mahasiswa (BPM) ***", $mxc, ' ', STR_PAD_BOTH) . $_lf . str_pad("Dari tanggal {$_DariTgl} s/d {$_SampaiTgl}", $mxc, ' ', STR_PAD_BOTH) . $_lf . $Jdls . $grs . str_pad("NO", 8) . str_pad("No. BPM", 15) . str_pad("Tanggal", 12) . str_pad("NPM/PMBID", 13) . str_pad("Nama Mahasiswa", 35) . str_pad("Jumlah", 15, ' ', STR_PAD_LEFT) . str_pad("Jumlah Lain", 15, ' ', STR_PAD_LEFT) . " Keterangan" . $_lf . $grs;
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.lap.bpm.dwoprn";
$f = fopen($nmf, 'w');
fwrite($f, chr(27) . chr(15) . chr(27) . chr(108) . '5');
// set margin +5
fwrite($f, $hdr);
while ($w = _fetch_array($r)) {
$n++;
$brs++;
// Ganti halaman
if ($brs > $mxb) {
fwrite($f, $grs . str_pad("Dicetak oleh: {$_SESSION['_Login']}, {$_tgl}", $mxc / 2) . str_pad("Hal: {$hal}", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, chr(12));
$brs = 1;
$hal++;
fwrite($f, $hdr);
}
if ($w['MhswID'] == '') {
$NAMA = Getafield('pmb', 'PMBID', $w['PMBID'], "Nama");
$ID = $w['PMBID'];
} else {
$NAMA = $w['Nama'];
$ID = $w['MhswID'];
}
$tgl = FormatTanggal($w['Tanggal']);
$tot += $w['Jumlah'];
$totlain += $w['JumlahLain'];
fwrite($f, str_pad($n . '.', 8) . str_pad($w['BayarMhswID'], 15) . str_pad($tgl, 12) . str_pad($ID, 13) . str_pad($NAMA, 35) . str_pad($w['JML'], 15, ' ', STR_PAD_LEFT) . str_pad($w['JMLLAIN'], 15, ' ', STR_PAD_LEFT) . " " . $w['Keterangan'] . $_lf);
}
$_tot = number_format($tot);
$_totlain = number_format($totlain);
fwrite($f, $grs);
fwrite($f, str_pad("Total : ", 60, ' ', STR_PAD_LEFT) . str_pad($_tot, 38, ' ', STR_PAD_LEFT) . str_pad($_totlain, 15, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, $grs . str_pad("Dicetak oleh: {$_SESSION['_Login']}, {$_tgl}", $mxc / 2) . str_pad("Hal: {$hal}", $mxc / 2, ' ', STR_PAD_LEFT) . $_lf);
fwrite($f, chr(12));
fclose($f);
TampilkanFileDWOPRN($nmf, 'keu.lap');
}
function Daftar(){
// HitungBiayaBayarMhsw($MhswID='', $KHSID='');
$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 = '';
$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]";
}
$r1 = _query($s1);
$pec = array();
$pec2 = array();
$_hdr = implode('', $gab);
$n = 0;
//var_dump($gab);
$header2 = " <th class=ttl>$gab[1]</th><th class=ttl>$gab[4]</th><th class=ttl>$gab[3]</th><th class=ttl>$gab[15]</th><th class=ttl>$gab[19]</th><th class=ttl>$gab[14]</th><th class=ttl>$gab[1]</th><th class=ttl>$gab[4]</th><th class=ttl>$gab[3]</th><th class=ttl>$gab[15]</th><th class=ttl>$gab[19]</th><th class=ttl>$gab[14]</th></tr>
<tr><th class=ttl>$gab[7]</th><th class=ttl>$gab[2]</th><th class=ttl>$gab[8]</th><th class=ttl>$gab[16]</th><th class=ttl>$gab[20]</th><th class=ttl>$gab[12]</th><th class=ttl>$gab[7]</th><th class=ttl>$gab[2]</th><th class=ttl>$gab[8]</th><th class=ttl>$gab[16]</th><th class=ttl>$gab[20]</th><th class=ttl>$gab[12]</th></tr>
<tr><th class=ttl>$gab[0]</th><th class=ttl>$gab[17]</th><th class=ttl>$gab[13]</th><th class=ttl>$gab[18]</th><th class=ttl>$gab[9]</th><th class=ttl>Total Tagih</th><th class=ttl>$gab[0]</th><th class=ttl>$gab[17]</th><th class=ttl>$gab[13]</th><th class=ttl>$gab[18]</th><th class=ttl>$gab[9]</th><th class=ttl>Total Tagih</th>
";
$header = "<th class=ttl><table class=bsc width=20><tr><th class=ttl width=20>$gab[1]</th></tr><tr><th class=ttl width=20>$gab[7]</th></tr><tr><th class=ttl width=20>$gab[0]</th></tr></table></th>
<th class=ttl><table class=bsc width=20><tr><th class=ttl width=20>$gab[4]</th></tr><tr><th class=ttl width=20 width=20>$gab[2]</th></tr><tr><th class=ttl>$gab[17]</th></tr></table></th>
<th class=ttl><table class=bsc><tr><th class=ttl>$gab[3]</th></tr><tr><th class=ttl>$gab[8]</th></tr><tr><th class=ttl>$gab[13]</th></tr></table></th>
<th class=ttl><table class=bsc><tr><th class=ttl>$gab[15]</th></tr><tr><th class=ttl>$gab[16]</th></tr><tr><th class=ttl>$gab[18]</th></tr></table></th>
<th class=ttl><table class=bsc><tr><th class=ttl>$gab[19]</th></tr><tr><th class=ttl>$gab[20]</th></tr><tr><th class=ttl>$gab[9]</th></tr></table></th>
<th class=ttl><table class=bsc><tr><th class=ttl>$gab[14]</th></tr><tr><th class=ttl>$gab[12]</th></tr><tr><th class=ttl>Total Tagih</th></tr></table></th>";
$idnya = Getafield('bipotnama','trxid',1,'Bipotnamaid');
echo "<p><table class=box cellspacing=1 cellpadding=4>
<tr><th rowspan=4 class=ttl>No.</th><th rowspan=4 class=ttl>NIM</th><th rowspan=4 class=ttl>Nama Mahasiswa</th><th colspan=6 class=ttl>Tagihan</th><th class=ttl rowspan=4> </th><th class=ttl colspan=6>Pembayaran</th><th class=ttl rowspan=4>Lebih Bayar</th><th class=ttl rowspan=4>Lebih Bayar Diambil</th><th class=ttl rowspan=4>Balance</th>
<tr>$header2</tr>";
while ($w = _fetch_array($r1)){
//HitungBiayaBayarMhsw($w['MhswID'], $w['khsid']);
$n++;
$detail = GetDetailBayar($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid);
$detailb = GetDetailBayar2($w['MhswID'], $w['khsid'], $_SESSION['tahun'], $hdrid);
$angkatan = Getafield('mhsw',"mhswid",$w['MhswID'],'left(TahunID,4)');
//$Bayar = GetaField('khs')
for ($i=0; $i<sizeof($detail); $i++) {
$pec[$i] = $detail[$i];
for ($k=0; $k<sizeof($pec);$k++) $pec2[$k] = "<td class=ul align=right>".number_format($pec[$k])."</td>";
}
$tot = array_sum($pec);
$tot_ = array_sum($detailb);
$GTot += $tot;
$Gbayar += $w['Bayar'];
for ($j=0; $j<sizeof($pec); $j++) $totl[$j] += $pec[$j];
$isi = implode('',$pec2);
$saldo = $tot - $tot_;
$cls = ($saldo > 0) ? "wrn" : "ul";
for ($k=0; $k<sizeof($totl);$k++) $tott[$k] = "<td class=ttl align=right>".number_format($totl[$k])."</td>";
$htot = implode('',$tott);
$gtot = array_sum($totl);
$gsal = $gtot - $Gbayar;
$tot1 = $detail;
$sals = ($saldo > 0) ? 0 : str_replace('-', '', $saldo);
echo "<tr align=right><td class=inp1>$n.</td><td class=inp1>$w[MhswID]</td><td class=ul>$w[Nama]</td>
<td class=ul>".number_format($detail[1])."<br>".number_format($detail[7])."<br>".number_format($detail[0])."</td>
<td class=ul>".number_format($detail[4])."<br>".number_format($detail[2])."<br>".number_format($detail[17])."</td>
<td class=ul>".number_format($detail[3])."<br>".number_format($detail[8])."<br>".number_format($detail[13])."</td>
<td class=ul>".number_format($detail[15])."<br>".number_format($detail[16])."<br>".number_format($detail[18])."</td>
<td class=ul>".number_format($detail[19])."<br>".number_format($detail[20])."<br>".number_format($detail[9])."</td>
<td class=ul>".number_format($detail[14])."<br>".number_format($detail[12])."<br>".number_format($tot)."</td>
<td class=ul align=right> </td>
<td class=ul>".number_format($detailb[1])."<br>".number_format($detailb[7])."<br>".number_format($detailb[0])."</td>
<td class=ul>".number_format($detailb[4])."<br>".number_format($detailb[2])."<br>".number_format($detailb[17])."</td>
<td class=ul>".number_format($detailb[3])."<br>".number_format($detailb[8])."<br>".number_format($detailb[13])."</td>
<td class=ul>".number_format($detailb[15])."<br>".number_format($detailb[16])."<br>".number_format($detailb[18])."</td>
<td class=ul>".number_format($detailb[19])."<br>".number_format($detailb[20])."<br>".number_format($detailb[9])."</td>
<td class=ul>".number_format($detailb[14])."<br>".number_format($detailb[12])."<br>".number_format($tot_)."</td>
<td class=ul align=right>".number_format($sals)."</td>
<td class=ul align=right>".number_format($w['Tarik'])."</td>
<td class='$cls' align=right>".number_format($saldo)."</td></tr>";
$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] + $tot;
$totalb1 += $detailb[1] + $detailb[7] + $detailb[0];
$totalb2 += $detailb[4] + $detailb[2] + $detailb[17];
$totalb3 += $detailb[3] + $detailb[8] + $detailb[13];
$totalb4 += $detailb[15] + $detailb[16] + $detailb[18];
$totalb5 += $detailb[19] + $detailb[20] + $detailb[9];
$totalb6 += $detailb[14] + $detailb[12] + $tot_;
$gtotal += $saldo;
$salst += $sals;
$tar += $w['Tarik'];
}
//for ($k=0; $k<sizeof($totl);$k++) $tott[$k] = "<td class=ttl align=right>".number_format($totl[$k])."</td>";
//$htot = implode('',$tott);
//$gtot = array_sum($totl);
//$gsal = $gtot - $Gbayar;
echo "<tr align=right><td class=ttl colspan=3>Jumlah Total</td>
<td class=ttl>".number_format($total1)."</td>
<td class=ttl>".number_format($total2)."</td>
<td class=ttl>".number_format($total3)."</td>
<td class=ttl>".number_format($total4)."</td>
<td class=ttl>".number_format($total5)."</td>
<td class=ttl>".number_format($total6)."</td>
<td class=ttl> </td>";
echo "<td class=ttl>".number_format($totalb1)."</td>
<td class=ttl>".number_format($totalb2)."</td>
<td class=ttl>".number_format($totalb3)."</td>
<td class=ttl>".number_format($totalb4)."</td>
<td class=ttl>".number_format($totalb5)."</td>
<td class=ttl>".number_format($totalb6)."</td>
<td class=ttl>".number_format($salst)."</td>
<td class=ttl>".number_format($tar)."</td>
<td class=ttl>".number_format($gtotal)."</td>";
echo "</table></p>";
}
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");
}
function buatWarna($pmbid)
{
$adaga = Getafield("pmb", 'pmbid', $pmbid, 'TotalSetoranMhsw') + 0;
return $adaga == 0 ? '' : 'class=inp2';
}
function BuatTotal()
{
$u = "select ProdiID, Nama from prodi where ProdiID not in ('11','99') order by prodiid desc";
$ru = _query($u);
$gab = array();
$pec4 = array();
BuatArrayHeader($hdr, $hdrid);
for ($i = 0; $i < sizeof($hdr); $i++) {
$gab[$i] = "<th class=ttl title='{$hdrid[$i]}'>{$hdr[$i]}</th>";
}
$_hdr = implode('', $gab);
$idnya = Getafield('bipotnama', 'trxid', 1, 'Bipotnamaid');
echo "<p><table class=box cellspacing=1 cellpadding=4><tr><th class=ttl width=150>Fakultas</th>{$_hdr}<th class=ttl>Total</th></tr>";
while ($wu = _fetch_array($ru)) {
daftar($wu['ProdiID'], $wu['Nama'], $hdrid, &$totl, &$totl_, &$gtot);
}
for ($k = 0; $k < sizeof($totl); $k++) {
$pec4[$k] = "<td class=ttl tittle='{$n}' align=right>" . number_format($totl[$k] + $totl_[$k]) . "</td>";
}
$htot = implode('', $pec4);
echo "<tr><td class=ttl>Jumlah Total</td>{$htot}<td class=ttl align=right>" . number_format($gtot) . "</td></tr>";
echo "</table></p>";
}
