-
Notifications
You must be signed in to change notification settings - Fork 0
/
_cek_autodebet.php
51 lines (46 loc) · 1.39 KB
/
_cek_autodebet.php
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
<?php
// Author: Emanuel Setio Dewo
// 29 Sept 2006
// www.sisfokampus.net
include_once "sisfokampus.php";
HeaderSisfoKampus("Cek Autodebet");
// *** Functions ***
function TampilkanAD() {
$s = "select ad.*, bm.Jumlah, bm.MhswID
from _autodebet ad
left outer join bayarmhsw bm on ad.nobpmTRINA=bm.BayarMhswID
where ad.Nominal <> bm.Jumlah
order by ad.nobpmTRINA";
$r = _query($s); $n = 0;
echo "<p><table class=box cellspacing=1 cellpadding=4>
<tr><th class=ttl>#</th>
<th class=ttl>NIM</th>
<th class=ttl>BPM AD</th>
<th class=ttl>Didebet</th>
<th class=ttl>-</th>
<th class=ttl>Sisfo</th>
<th class=ttl>N.P.M</th>
</tr>";
while ($w = _fetch_array($r)) {
$n++;
$Nominal = number_format($w['Nominal']);
$Jumlah = number_format($w['Jumlah']);
$Tanda = ($w['Nominal'] != $w['Jumlah'])? "×" : "»";
$c = ($w['Nominal'] != $w['Jumlah'])? "class=wrn" : "class=ul";
echo "<tr><td class=inp>$n</td>
<td class=ul>$w[NIM]</td>
<td class=ul>$w[nobpmTRINA]</td>
<td class=ul align=right>$Nominal</td>
<td $c align=center>$Tanda</td>
<td class=ul align=right>$Jumlah</td>
<td class=ul>$w[MhswID]</td>
</tr>";
}
echo "</table></p>";
}
// *** Parameters ***
$gos = empty($_REQUEST['gos'])? "TampilkanAD" : $_REQUEST['gos'];
// *** Main ***
TampilkanJudul("Cek Autodebet");
$gos();
?>