function file0()
{
$_SESSION['ADPOS'] = 0;
$max = $_SESSION['MaxData'];
$md = $_SESSION['AD' . $max];
BuatArrayHeader($hdr, $hdrid);
$namadbf = "autodebet-{$_SESSION['tahun']}-{$_SESSION['prodi']}.dbf";
$dbfheader = array(array("THSMSTRINA", 'C', 5), array("KDFAKTRINA", 'C', 1), array("KDJURTRINA", 'C', 1), array("NIMHSTRINA", 'C', 9), array("NMMHSTRINA", 'C', 30), array("TAGIHTRINA", 'N', 9, 0), array("STATUTRINA", 'C', 1), array("NLHUTTRINA", 'N', 12, 0), array("NLDENTRINA", 'N', 12, 0), array("NLSEMTRINA", 'N', 12, 0), array("NLKOKTRINA", 'N', 12, 0), array("NLSKSTRINA", 'N', 12, 0), array("NLPRATRINA", 'N', 12, 0), array("NLSKITRINA", 'N', 12, 0), array("TGDEBTRINA", 'D', 8), array("NOBPMTRINA", 'C', 10), array("JMSKSTRINA", 'N', 2, 0), array("JMPRATRINA", 'N', 2, 0));
if (!dbase_create("autodebet/{$namadbf}", $dbfheader)) {
echo "Gagal membuat File DBF";
exit;
}
$gab = array();
//for ($i=0; $i<sizeof($hdr); $i++) $gab[$i] = $hdr[$i] . '(' . $hdrid[$i] . ')';
//$_hdr = implode(';', $gab) . "\n";
//$hdr = "No;NPM;KHS;Nama;Rekening;Biaya;Potongan;Bayar;Tarik;TotalSKS;BPM;Tagih;Status;$_hdr";
$hdr = "THSMSTRINA;KDFAKTRINA;KDJURTRINA;NIMHSTRINA;NMMHSTRINA;TAGIHTRINA;STATUTRINA;NLHUTTRINA(30);NLDENTRINA(35);NLSEMTRINA(11);NLKOKTRINA(8);NLSKSTRINA(5);NLPRATRINA(6);NLSRITRINA(38);TGDEBTRINA;NOBPMTRINA;JMSKSTRINA;JMPRATRINA;\n";
//fwrite($f,"NIM;Nama;Tagihan;Autodebet;BPM;Sumbangan;BPS;Pokok;BPP SKS;Skripsi;Praktikum;Ospek;Hutang;Denda;Status;\n");
// Buat file
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.autodebet.csv";
$f = fopen($nmf, 'w');
//fwrite($f, $hdr);
//fwrite($f,"NIM;Nama;Tagihan;Autodebet;BPM;Sumbangan;BPS;Pokok;BPP SKS;Skripsi;Praktikum;Ospek;Hutang;Denda;Status;\n");
fwrite($f, "THSMSTRINA(5~C);KDFAKTRINA(1~C);KDJURTRINA(1~C);NIMHSTRINA(9~C);NMMHSTRINA(30~C);TAGIHTRINA(9~N);STATUTRINA(1~C);NLHUTTRINA(12~N);NLDENTRINA(12~N);NLSEMTRINA(12~N);NLKOKTRINA(12~N);NLPRATRINA(12~N);NLSKSTRINA(12~N);NLSRITRINA(12~N);TGDEBTRINA(8~D);NOBPMTRINA(10~N);JMSKSTRINA(2~N);JMPRATRINA(2~N);\n");
fclose($f);
// Buat file header
$nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.autodebet.hdr.csv";
$f = fopen($nmf, 'w');
fwrite($f, $hdr);
fclose($f);
echo "<p>\r\n Inisialisasi\r\n » Proses Keuangan</font>\r\n » <font size=+2><b>Buat File Bank</b></font>\r\n </p>\r\n <p>Proses ini akan membuat file untuk bank.</p>\r\n <p><IFRAME src='cetak/autodebet1.php?WZRD=file0' frameborder=0 height=300 width=300>\r\n </IFRAME></p>\r\n <p>Setelah proses ini selesai, Anda dapat mendownload file untuk bank.</p>\r\n ";
}
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 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 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>";
}
