function TampilkanBIPOTMhsw($mhsw, $khs) { BIPOTScript(); //22 juli 2013 $s = "\r\n select bm.*, s.Nama as _saat,\r\n format(bm.Jumlah, 0) as JML,\r\n format(bm.TrxID*bm.Besar, 0) as BSR,\r\n format(bm.Dibayar, 0) as BYR , b2.Prioritas\r\n from bipotmhsw bm\r\n left outer join bipot2 b2 on b2.BIPOT2ID = bm.BIPOT2ID\r\n left outer join saat s on b2.SaatID = s.SaatID\r\n where bm.PMBMhswID = 1 \r\n and bm.NA = 'N' \r\n and bm.KodeID = '" . KodeID . "'\r\n and bm.MhswID = '{$mhsw['MhswID']}'\r\n and bm.TahunID = '{$khs['TahunID']}'\r\n order by bm.TagihanID, b2.Prioritas, bm.TrxID DESC, bm.BIPOTMhswID \r\n "; /* select bm.*, s.Nama as _saat, format(bm.Jumlah, 0) as JML, format(bm.TrxID*bm.Besar, 0) as BSR, format(bm.Dibayar, 0) as BYR from bipotmhsw bm left outer join bipot2 b2 on b2.BIPOT2ID = bm.BIPOT2ID left outer join saat s on b2.SaatID = s.SaatID where bm.PMBMhswID = 1 and bm.NA = 'N' and bm.BIPOT2ID != 0 and bm.KodeID = '".KodeID."' and bm.MhswID = '$mhsw[MhswID]' and bm.TahunID = '$khs[TahunID]' order by b2.Prioritas, bm.TrxID DESC, bm.BIPOTMhswID */ $r = _query($s); $n = 0; echo "<table class=box cellspacing=1 align=center width=800>"; echo "<tr><th class=ttl colspan=10>Daftar Biaya & Potongan (BIPOT) </th></tr>"; echo "<tr>\r\n <th class=ttl colspan=2>#</th>\r\n <th class=ttl>Nama Biaya/Potongan</th>\r\n <th class=ttl>Jumlah ×<br />Besar</th>\r\n <th class=ttl>Total</th>\r\n <th class=ttl>Dibayar</th>\r\n <th class=ttl>Catatan</th>\r\n <th class=ttl colspan=2>×</th>\r\n </tr>"; while ($w = _fetch_array($r)) { $n++; $sub = $w['Jumlah'] * $w['Besar'] * $w['TrxID']; $_sub = number_format($sub); $ttl += $sub; $byr += $w['Dibayar']; if ($_SESSION['_LevelID'] == 1 || $_SESSION['_LevelID'] == 70) { // hanya superuser atau ka. keu if ($khs['PrintTagihan'] >= 1) { $edit = ""; //($w[BYR] == 0 || $w[TrxID] == -1)? "<a href='#' onClick=\"javascript:BIPOTEdit('$mhsw[MhswID]', '$khs[TahunID]', 0, $w[BIPOTMhswID])\"><img src='img/edit.png' /> </a>" : ""; $del = ""; //($w[BYR] == 0 || $w[TrxID] == -1)? "<a href='#' onClick=\"BIPOTDELCONF($w[BIPOTMhswID], '$mhsw[MhswID]', '$khs[TahunID]')\"><img src='img/del.gif' /></a>" : ""; } else { $byrm2 = GetFields('bayarmhsw2', "BIPOTMhswID='{$w['BIPOTMhswID']}' and NA", 'N', 'BayarMhswID, Jumlah'); $byrm_jml = GetaField('bayarmhsw', "BayarMhswID='{$byrm2['BayarMhswID']}' and NA", 'N', 'Jumlah') + 0; $edit = "<a href='#' onClick=\"javascript:BIPOTEdit('{$mhsw['MhswID']}', '{$khs['TahunID']}', 0, {$w['BIPOTMhswID']})\"><img src='img/edit.png' /> </a>"; $del = "<a href='#' onClick=\"BIPOTDELCONF({$w['BIPOTMhswID']}, '{$mhsw['MhswID']}', '{$khs['TahunID']}')\"><img src='img/del.gif' /></a>"; } } else { $edit = ""; //($w[BYR] == 0 || $w[TrxID] == -1)? "<a href='#' onClick=\"javascript:BIPOTEdit('$mhsw[MhswID]', '$khs[TahunID]', 0, $w[BIPOTMhswID])\"><img src='img/edit.png' /> </a>" : ""; $del = ""; //($w[BYR] == 0 || $w[TrxID] == -1)? "<a href='#' onClick=\"BIPOTDELCONF($w[BIPOTMhswID], '$mhsw[MhswID]', '$khs[TahunID]')\"><img src='img/del.gif' /></a>" : ""; } $ctt = TRIM($w['Catatan']); $ctt = str_replace("\r", "<br />", $ctt); $TombolTambahBipot2 = ""; if ($w['TrxID'] == 1) { $TombolTambahBipot2 = "<a href='#' onClick=\"javascript:BIPOTEdit2('{$mhsw['MhswID']}', '{$khs['TahunID']}', 1, 0, {$w['TagihanID']})\"><img src='img/N.gif' title='Untuk Menginputkan Potongan' /></a>"; } echo "<tr><td class=inp width=15>{$n}</td>\r\n <td class=ul width=10>{$TombolTambahBipot2}</td>\r\n <td class=ul>{$w['Nama']} <br /><sup>{$w['TambahanNama']} </sup><div align=right><sub>{$w['_saat']}</sub></div></td>\r\n <td class=ul norwap><sup>{$w['JML']} ×</sup><br /><div align=right>{$w['BSR']}</div></td>\r\n <td class=ul align=right nowrap>{$_sub}</td>\r\n <td class=ul align=right nowrap>{$w['BYR']} <!--<a href='#' onClick=\"javascript:ByrEdit('{$pmb['PMBID']}', 1, 0, {$w['PMBMhswID']})\"><img src='img/edit.png' /></a>--></td>\r\n <td class=ul>{$ctt} </td>\r\n <td class=ul1 align=center width=15>{$edit}</td>\r\n <td class=ul1 align=center width=15>{$del}</td>\r\n </tr>"; } $TTL = number_format($ttl); $BYR = number_format($byr); $SS = number_format($ttl - $byr); echo "<tr><td bgcolor=silver colspan=10 height=1></td></tr>"; echo "<tr>\r\n <td class=ul1 colspan=4 align=right><b>Total:</td>\r\n <td class=ul1 align=right><b>{$TTL}</b></td>\r\n <td class=ul1 align=right><b>{$BYR}</b></td>\r\n <td class=ul1 colspan=2>Sisa: <font size=+1>{$SS}</font></td>\r\n </tr>"; echo "</table>"; }
function TampilkanDataBayar($gels, $gel, $pmb) { BIPOTScript(); echo "<table class=box cellspacing=1 align=center width=900>"; echo "<tr><th class=ttl colspan=8>Daftar Pembayaran</th></tr>"; echo "<tr>\r\n <th class=ttl width=15>#</th>\r\n <th class=ttl width=80>Tanggal</th>\r\n <th class=ttl width=100>No. Bukti</th>\r\n <th class=ttl width=100>Besar Pembayaran</th>\r\n <th class=ttl>Catatan</th>\r\n <th class=ttl>Cetak<br />BPM</th>\r\n <th class=ttl width=10>×</th>\r\n </tr>"; $s = "select bm.TrxID, bm.BayarMhswID, bm.Keterangan, bm.Jumlah,\r\n date_format(bm.Tanggal, '%d-%m-%Y') as TGL,\r\n format(bm.Jumlah, 0) as JML\r\n from bayarmhsw bm\r\n where bm.KodeID = '" . KodeID . "'\r\n and bm.PMBMhswID = 0\r\n and bm.PMBID = '{$pmb['PMBID']}'\r\n and bm.NA = 'N'\r\n order by bm.Tanggal"; $r = _query($s); $n = 0; while ($w = _fetch_array($r)) { $n++; $del = $_SESSION['_LevelID'] == 1 ? "<a href='#' onClick=\"javascript:KonfirmasiHapusBayar('{$w['BayarMhswID']}', '{$pmb['PMBID']}')\"><img src='img/del.gif' /></a>" : ' '; echo "<tr>\r\n <td class=inp>{$n}</td>\r\n <td class=ul1>{$w['TGL']}</td>\r\n <td class=ul1>{$w['BayarMhswID']}</td>\r\n <td class=ul1 align=right>{$w['JML']}</td>\r\n <td class=ul1>{$w['Keterangan']} </td>\r\n <td class=ul1 align=center width=10><a href='#' onClick=\"javascript:CetakBPM('{$w['BayarMhswID']}', {$w['TrxID']})\"><img src='img/printer2.gif' /></a></td>\r\n <td class=ul1 align=center width=10> </td>\r\n </tr>"; } echo "</table>"; }
function TampilkanBIPOTMhsw($mhsw, $khs) { BIPOTScript(); $s = "select bm.*, s.Nama as _saat,\r\n format(bm.Jumlah, 0) as JML,\r\n format(bm.TrxID*bm.Besar, 0) as BSR,\r\n format(bm.Dibayar, 0) as BYR\r\n from bipotmhsw bm\r\n\t left outer join bipot2 b2 on b2.BIPOT2ID = bm.BIPOT2ID\r\n left outer join saat s on b2.SaatID = s.SaatID\r\n where bm.PMBMhswID = 1\r\n and bm.NA = 'N'\r\n\t and bm.BIPOT2ID != 0\r\n and bm.KodeID = '" . KodeID . "'\r\n and bm.MhswID = '{$mhsw['MhswID']}'\r\n and bm.TahunID = '{$khs['TahunID']}'\r\n order by b2.Prioritas, bm.TrxID DESC, bm.BIPOTMhswID "; $r = _query($s); $n = 0; echo "<table class=box cellspacing=1 align=center width=800>"; echo "<tr>\r\n <th class=ttl colspan=10>Daftar Biaya & Potongan (BIPOT)</th>\r\n </tr>"; echo "<tr>\r\n <th class=ttl colspan=2>#</th>\r\n <th class=ttl>Nama Biaya/Potongan</th>\r\n <th class=ttl>Jumlah ×<br />Besar</th>\r\n <th class=ttl>Total</th>\r\n <th class=ttl>Dibayar</th>\r\n <th class=ttl>Catatan</th>\r\n <th class=ttl>×</th>\r\n </tr>"; while ($w = _fetch_array($r)) { $n++; $sub = $w['Jumlah'] * $w['Besar'] * $w['TrxID']; $_sub = number_format($sub); $ttl += $sub; $byr += $w['Dibayar']; if ($_SESSION['_LevelID'] == 1) { $del = "<a href='#' onClick=\"BIPOTDELCONF({$w['BIPOTMhswID']}, '{$mhsw['MhswID']}', '{$khs['TahunID']}')\"><img src='img/del.gif' /></a>"; } $ctt = TRIM($w['Catatan']); $ctt = str_replace("\r", "<br />", $ctt); echo "<tr>\r\n <td class=inp width=15>{$n}</td>\r\n <td class=ul width=10>\r\n <a href='#' onClick=\"javascript:BIPOTEdit('{$mhsw['MhswID']}', '{$khs['TahunID']}', 0, {$w['BIPOTMhswID']})\"><img src='img/edit.png' /></a>\r\n </td>\r\n <td class=ul>\r\n {$w['Nama']} <br />\r\n <sup>{$w['TambahanNama']}</sup>\r\n\t\t<div align=right><sub>{$w['_saat']}</sub></div>\r\n </td>\r\n <td class=ul norwap>\r\n <sup>{$w['JML']} ×</sup><br />\r\n <div align=right>{$w['BSR']}</div>\r\n </td>\r\n <td class=ul align=right nowrap>{$_sub}</td>\r\n <td class=ul align=right nowrap>\r\n {$w['BYR']} <!--\r\n <a href='#' onClick=\"javascript:ByrEdit('{$pmb['PMBID']}', 1, 0, {$w['PMBMhswID']})\"><img src='img/edit.png' /></a>\r\n -->\r\n </td>\r\n <td class=ul1>{$ctt} </td>\r\n <td class=ul1 align=center width=10>\r\n {$del}\r\n </td>\r\n </tr>"; } $s = "select bm.*, s.Nama as _saat,\r\n format(bm.Jumlah, 0) as JML,\r\n format(bm.TrxID*bm.Besar, 0) as BSR,\r\n format(bm.Dibayar, 0) as BYR\r\n from bipotmhsw bm\r\n\t left outer join bipot2 b2 on b2.BIPOT2ID = bm.BIPOT2ID\r\n left outer join saat s on b2.SaatID = s.SaatID\r\n where bm.PMBMhswID = 1\r\n and bm.NA = 'N'\r\n\t and bm.BIPOT2ID = 0\r\n and bm.KodeID = '" . KodeID . "'\r\n and bm.MhswID = '{$mhsw['MhswID']}'\r\n and bm.TahunID = '{$khs['TahunID']}'\r\n order by b2.Prioritas, bm.TrxID DESC, bm.BIPOTMhswID"; $r = _query($s); while ($w = _fetch_array($r)) { $n++; $sub = $w['Jumlah'] * $w['Besar'] * $w['TrxID']; $_sub = number_format($sub); $ttl += $sub; $byr += $w['Dibayar']; if ($_SESSION['_LevelID'] == 1) { $del = "<a href='#' onClick=\"BIPOTDELCONF({$w['BIPOTMhswID']}, '{$mhsw['MhswID']}', '{$khs['TahunID']}')\"><img src='img/del.gif' /></a>"; } $ctt = TRIM($w['Catatan']); $ctt = str_replace("\r", "<br />", $ctt); echo "<tr>\r\n <td class=inp width=15>{$n}</td>\r\n <td class=ul width=10>\r\n <a href='#' onClick=\"javascript:BIPOTEdit('{$mhsw['MhswID']}', '{$khs['TahunID']}', 0, {$w['BIPOTMhswID']})\"><img src='img/edit.png' /></a>\r\n </td>\r\n <td class=ul>\r\n {$w['Nama']} <br />\r\n <sup>{$w['TambahanNama']}</sup>\r\n\t\t<div align=right><sub>{$w['_saat']}</sub></div>\r\n </td>\r\n <td class=ul norwap>\r\n <sup>{$w['JML']} ×</sup><br />\r\n <div align=right>{$w['BSR']}</div>\r\n </td>\r\n <td class=ul align=right nowrap>{$_sub}</td>\r\n <td class=ul align=right nowrap>\r\n {$w['BYR']} <!--\r\n <a href='#' onClick=\"javascript:ByrEdit('{$pmb['PMBID']}', 1, 0, {$w['PMBMhswID']})\"><img src='img/edit.png' /></a>\r\n -->\r\n </td>\r\n <td class=ul1>{$ctt} </td>\r\n <td class=ul1 align=center width=10>\r\n {$del}\r\n </td>\r\n </tr>"; } $TTL = number_format($ttl); $BYR = number_format($byr); $SS = number_format($ttl - $byr); echo "<tr><td bgcolor=silver colspan=10 height=1></td></tr>"; echo "<tr>\r\n <td class=ul1 colspan=4 align=right><b>Total:</td>\r\n <td class=ul1 align=right><b>{$TTL}</b></td>\r\n <td class=ul1 align=right><b>{$BYR}</b></td>\r\n <td class=ul1 colspan=2>Sisa: <font size=+1>{$SS}</font></td>\r\n </tr>"; echo "</table>"; }