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  &raquo; Proses Keuangan</font>\r\n  &raquo; <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>&nbsp;&nbsp;&nbsp;&nbsp;</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>&nbsp;</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>&nbsp</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>";
}