PageRenderTime 61ms CodeModel.GetById 33ms RepoModel.GetById 0ms app.codeStats 0ms

/sysfo/mhswkeu.php

https://bitbucket.org/justmyfreak/sisfokampus
PHP | 515 lines | 502 code | 6 blank | 7 comment | 103 complexity | 6d48c8d7a381ca58ceacdf4abf26b31d MD5 | raw file
    

  1. <?php


    2. 

  2.   // Author: E. Setio Dewo, setio_dewo@telkom.net, Juli 2003


    3. 

  3. 


    4. 

  4.   include_once "mhswkeu.lib.php";


    5. 

  5.   


    6. 

  6.   // *** Fungsi2 ***


    7. 

  7. 


    8. 

  8.   function DispFooterKeuMhsw0($nim, $thn) {


    9. 

  9.     global $strCantQuery;


    10. 

  10. 	$s = "select Biaya, Bayar, Potong, Tarik from khs where Tahun='$thn' and NIM='$nim' limit 1";


    11. 

  11. 	$r = mysql_query($s) or die("$strCantQuery: $s");


    12. 

  12. 	if (mysql_num_rows($r) == 0) die("Data tidak ditemukan.");


    13. 

  13. 	$tbia = mysql_result($r, 0, 'Biaya');


    14. 

  14. 	$tpot = mysql_result($r, 0, 'Potong');


    15. 

  15. 	$tbyr = mysql_result($r, 0, 'Bayar');


    16. 

  16. 	$ttrk = mysql_result($r, 0, 'Tarik');


    17. 

  17. 	$ssa = ($tbia+$tpot)-($tbyr+$ttrk);


    18. 

  18. 	if ($ssa <= 0) $lns = 'class=uline'; else $lns = 'class=wrn';


    19. 

  19. 	$tbia = NUMI($tbia);


    20. 

  20. 	$tpot = NUMI($tpot);


    21. 

  21. 	$tbyr = NUMI($tbyr);


    22. 

  22. 	$ttrk = NUMI($ttrk);


    23. 

  23. 	$ssa = NUMI($ssa);


    24. 

  24. 	echo <<<EOF


    25. 

  25. 	<br><table class=box cellspacing=1 cellpadding=4>


    26. 

  26. 	<tr><th class=ttl colspan=3>Rekapitulasi</th></tr>


    27. 

  27. 	<tr><td width=100>Total Biaya</td><td>:</td><td class=uline align=right width=125>$tbia</td></tr>


    28. 

  28. 	<tr><td>Total Potongan</td><td>:</td><td class=uline align=right>$tpot</td></tr>


    29. 

  29. 	<tr><td>Total Bayar</td><td>:</td><td class=uline align=right>$tbyr</td></tr>


    30. 

  30. 	<tr><td>Total Penarikan/Pengambilan</td><td>:</td><td class=uline align=right>$ttrk</td></tr>


    31. 

  31. 	<tr><td>Kekurangan</td><td>:</td><td $lns align=right>$ssa</td></tr>


    32. 

  32. 	</table>


    33. 

  33. EOF;


    34. 

  34.   }


    35. 

  35.   function DispKeuMhsw($nim='') {


    36. 

  36.   //<a href='sysfo.php?syxec=mhswkeu&md=-1&thn=$row[Tahun]&nim=$nim'>$row[Tahun]</a>


    37. 

  37.     $s = "select k.* 


    38. 

  38. 	  from khs k


    39. 

  39. 	  where k.NIM='$nim' order by k.Tahun";


    40. 

  40. 	$r = mysql_query($s) or die("Error: $s<br>".mysql_error());


    41. 

  41. 	echo "<table class=basic cellspacing=0 cellpadding=4>


    42. 

  42. 	  <tr><th class=ttl>Smt</th><th class=ttl>Tahun</th>


    43. 

  43. 	  <th class=ttl>Master Biaya</th>


    44. 

  44. 	  <th class=ttl>Total Biaya</th><th class=ttl>Total Potong</th>


    45. 

  45. 	  <th class=ttl>Total Bayar</th><th class=ttl>Total Kembali</th>


    46. 

  46. 	  <th class=ttl>Kekurangan</th></tr>";


    47. 

  47. 	while ($w = mysql_fetch_array($r)) {


    48. 

  48. 	  $kurang = NUMI(($w['Biaya'] + $w['Potong']) - ($w['Bayar'] + $w['Tarik']));


    49. 

  49. 	  $sbia = NUMI($w['Biaya']);


    50. 

  50. 	  $spot = NUMI($w['Potong']);


    51. 

  51. 	  $sbyr = NUMI($w['Bayar']);


    52. 

  52. 	  $strk = NUMI($w['Tarik']);


    53. 

  53. 	  if ($kurang > 0) $lns = 'class=wrn'; else $lns = 'class=lst';


    54. 

  54. 	  echo <<<EOF


    55. 

  55. 	  <tr><td class=lst>$w[Sesi]</td>


    56. 

  56. 	  <td class=lst><a href='sysfo.php?syxec=mhswkeu&md=-1&thn=$w[Tahun]&nim=$nim'>$w[Tahun]</a></td>


    57. 

  57. 	  <td class=lst>$w[KodeBiaya]</td>


    58. 

  58. 	  <td class=lst align=right>$sbia</td>


    59. 

  59. 	  <td class=lst align=right>$spot</td>


    60. 

  60. 	  <td class=lst align=right>$sbyr</td>


    61. 

  61. 	  <td class=lst align=right>$strk</td>


    62. 

  62. 	  <td $lns align=right>$kurang</td>


    63. 

  63. 	  </tr>


    64. 

  64. EOF;


    65. 

  65. 	}


    66. 

  66. 	echo "</table>";


    67. 

  67.   }


    68. 

  68.   function DispBiaya2($nim, $thn) {


    69. 

  69.     global $strCantQuery;


    70. 

  70. 	$s = "select * from biayamhsw where Tahun='$thn' and NIM='$nim' order by NamaBiaya";


    71. 

  71. 	$r = mysql_query($s) or die("$strCantQuery: $s");


    72. 

  72. 	$nmr = 0;


    73. 

  73. 	$hdptg = "<tr><td>&nbsp;</td></tr><tr><th class=ttl colspan=5>Potongan-potongan</th></tr>


    74. 

  74. 	  <tr><th class=ttl>#</th><th class=ttl>Jenis</th>


    75. 

  75. 	  <th class=ttl colspan=2>Jumlah</th><th class=ttl>&nbsp;</th>


    76. 

  76. 	  </tr>";


    77. 

  77. 	$hdbea = "<tr><td>&nbsp;</td></tr><tr><th class=ttl colspan=5>Biaya-biaya</th></tr>


    78. 

  78. 	  <tr><th class=ttl>#</th><th class=ttl>Biaya</th>


    79. 

  79. 	  <th class=ttl colspan=2>Jumlah</th><th class=ttl>Bayar</th>


    80. 

  80. 	  </tr>";


    81. 

  81. 	$kali = 0;


    82. 

  82. 	$a = "<table class=basic cellspacing=0 cellpadding=4>";


    83. 

  83. 	while ($row = mysql_fetch_array($r)) {


    84. 

  84. 	  if ($kali != $row['Kali']) {


    85. 

  85. 	    $kali = $row['Kali'];


    86. 

  86. 		if ($kali == -1) $a .= $hdptg;


    87. 

  87. 		elseif ($kali == 1) $a .= $hdbea;


    88. 

  88. 		$nmr = 0;


    89. 

  89. 	  }


    90. 

  90. 	  $nmr++;


    91. 

  91. 	  $bia = number_format($row['Kali'] * $row['Jumlah']*$row['Biaya'], 0, ',', '.');


    92. 

  92. 	  $byr = number_format($row['Bayar'], 0, ',', '.');


    93. 

  93. 	  if ($_SESSION['ulevel'] > 2) $strbyr = $row['NamaBiaya'];


    94. 

  94. 	  else $strbyr = "<a href='sysfo.php?syxec=mhswkeu&mdx=bia&md=0&biaid=$row[ID]&thn=$thn&nim=$nim'>$row[NamaBiaya]</a>";


    95. 

  95. 	  if ($row['Kali'] == 1) {


    96. 

  96. 	    if ($row['Jumlah']*$row['Biaya'] > $row['Bayar']) $lns = 'class=wrn'; else $lns = 'class=lst';


    97. 

  97. 	    $a .= <<<EOF


    98. 

  98. 	    <tr><td class=ttl title='$row[Catatan]'>$nmr</td><td class=lst>$strbyr</td>


    99. 

  99.         <td class=uline>$row[Currency]</td>


    100. 

  100. 	    <td class=lst align=right>$bia</td><td $lns align=right>$byr</td>


    101. 

  101. 	    </tr>


    102. 

  102. EOF;


    103. 

  103. 	  }


    104. 

  104. 	  else {


    105. 

  105. 	    $a .= <<<EOF


    106. 

  106. 	    <tr><td class=ttl title='$row[Catatan]'>$nmr</td><td class=lst>$strbyr</td>


    107. 

  107. 	    <td class=lst align=right>$bia</td><td class=nac>&nbsp;</td></tr>


    108. 

  108. EOF;


    109. 

  109. 	  }


    110. 

  110. 	}


    111. 

  111. 	return $a . "</table>";


    112. 

  112.   }


    113. 

  113. function DispBayar2($nim, $thn) {


    114. 

  114.   global $strCantQuery;


    115. 

  115.   $s = "select *, date_format(Tanggal, '%d-%m-%Y') as tgl


    116. 

  116. 	  from bayar where Tahun='$thn' and NIM='$nim' order by Kali,ID";


    117. 

  117. 	$r = mysql_query($s) or die("$strCantQuery: $s");


    118. 

  118. 	$kali = 0;


    119. 

  119. 	$hdtrk = "<tr><td>&nbsp;</td></tr><tr><th class=ttl colspan=6>Daftar Penarikan</th></tr>


    120. 

  120. 	  <tr><th class=ttl># Kwi</th><th class=ttl>Tanggal</th>


    121. 

  121. 	  <th class=ttl>Keterangan</th><th class=ttl colspan=2>Jumlah</th><th class=ttl>&nbsp;</th></tr>";


    122. 

  122. 	$hdbyr = "<tr><td>&nbsp;</td></tr><tr><th class=ttl colspan=6>Daftar Pembayaran</th></tr>


    123. 

  123. 	  <tr><th class=ttl># Kwi</th><th class=ttl>Tanggal</th>


    124. 

  124. 	  <th class=ttl>Keterangan</th><th class=ttl colspan=2>Jumlah</th><th class=ttl>Denda</th></tr>";


    125. 

  125. 	$a = "<table class=basic cellspacing=0 cellpadding=4>";


    126. 

  126. 	while ($row = mysql_fetch_array($r)) {


    127. 

  127. 	  if ($kali != $row['Kali']) {


    128. 

  128. 	    $kali = $row['Kali'];


    129. 

  129. 		if ($kali == -1) {


    130. 

  130. 		  $a .= $hdtrk;


    131. 

  131. 		}


    132. 

  132. 		elseif ($kali == 1) {


    133. 

  133. 		  $a .= $hdbyr;


    134. 

  134. 		}


    135. 

  135. 	  }


    136. 

  136. 	  $jml = number_format($row['Kali']*$row['Jumlah'], 0, ',', '.');


    137. 

  137. 	  $snm = session_name(); $sid = session_id();


    138. 

  138. 	  if ($kali == -1) {


    139. 

  139. 	    if ($_SESSION['ulevel'] > 2) {


    140. 

  140. 		  $strprn = '';


    141. 

  141. 		}


    142. 

  142. 	    else {


    143. 

  143. 		  $strprn = GetPrinter("print.php?print=sysfo/mhswkeu_tarik.php&biaid=$row[ID]&thn=$thn&nim=$nim&$snm=$sid");


    144. 

  144. 		  //$strprn = '';


    145. 

  145. 		}


    146. 

  146. 	    $a .= "<tr><td class=ttl title='Tanggal: $row[tgl]\nPenarikan: $row[NamaBayar]\nJumlah: $jml\nCatatan: $row[Catatan]'>$row[ID]</td>


    147. 

  147. 		  <td class=lst>$row[tgl]</td>


    148. 

  148. 		  <td class=lst>$row[NamaBayar]</td>


    149. 

  149. 		  <td class=uline>$row[Currency]</td><td class=lst align=right>$jml</td>


    150. 

  150. 		  <td class=lst align=center>$strprn</td></tr>";


    151. 

  151. 	  }


    152. 

  152. 	  elseif ($kali == 1) {


    153. 

  153. 	    if ($row['Denda'] == 'Y') 


    154. 

  154. 	      $dnd = number_format(($row['HariDenda']-$row['HariBebas']) * $row['HargaDenda'], 0, ',', '.');


    155. 

  155. 	    else $dnd = '0';


    156. 

  156. 	    if ($_SESSION['ulevel'] > 2) {


    157. 

  157. 		  $strprn = '';


    158. 

  158. 		}


    159. 

  159. 	    else {


    160. 

  160. 		  $strprn = GetPrinter("print.php?print=sysfo/mhswkeu_bayar.php&biaid=$row[ID]&thn=$thn&nim=$nim&$snm=$sid");


    161. 

  161. 		  //$strprn = '';


    162. 

  162. 		}


    163. 

  163. 	    $a .= "<tr><td class=ttl title='Tanggal: $row[tgl]\n$row[Catatan]'>$row[ID]</td>


    164. 

  164. 		  <td class=lst>$row[tgl]</td><td class=lst>$row[NamaBayar]</td>


    165. 

  165. 		  <td class=uline>$row[Currency]</td><td class=lst align=right>$jml</td>


    166. 

  166. 		  <td class=lst align=right>$dnd</td>


    167. 

  167. 		  <td class=basic>$strprn</td></tr>";


    168. 

  168. 	  }


    169. 

  169. 	}


    170. 

  170. 	return $a . "</table>";


    171. 

  171.   }


    172. 

  172. function DispKeuMhswRinci($nim, $thn) {


    173. 

  173.   global $strCantQuery;


    174. 

  174. 	if (isset($_REQUEST['prn'])) $prn = $_REQUEST['prn']; else $prn = 0;


    175. 

  175. 	if ($prn == 0) echo "<table class=box cellspacing=0 cellpadding=4><tr><td>


    176. 

  176. 	  <a href='sysfo.php?syxec=mhswkeu&nim=$nim'>Kembali</a> | ";


    177. 

  177. 	if ($_SESSION['ulevel'] <= 2 && $prn == 0)


    178. 

  178. 	  echo "<a href='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&mdx=bia&md=1'>Tambah Biaya</a> |


    179. 

  179. 	  <a href='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&mdx=byr&md=1'>Pembayaran</a> |


    180. 

  180. 	  <a href='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&mdx=trk&md=1'>Pengembalian</a> |


    181. 

  181. 	  <a href='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&prcoto=1'>Proses Biaya2</a> |


    182. 

  182. 	  <a href='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&prchit=1'>Hitung Ulang</a>";


    183. 

  183. 	echo "</td></tr></table>";


    184. 

  184. 	$kiri = DispBiaya2($nim, $thn);


    185. 

  185. 	$kanan = DispBayar2($nim, $thn);


    186. 

  186. 	echo <<<EOF


    187. 

  187. 	<table class=basic cellspacing=0 cellpadding=4 width=100%>


    188. 

  188. 	<tr><td class=basic style='border-right: 1px silver dotted;' valign=top>$kiri</td>


    189. 

  189. 	<td class=basic valign=top>$kanan</td>


    190. 

  190. 	</tr>


    191. 

  191. 	</table>


    192. 

  192. EOF;


    193. 

  193.   DispFooterKeuMhsw0($nim, $thn);


    194. 

  194. }


    195. 

  195. function EditBiayaMhsw($nim, $thn, $md, $biaid=0) {


    196. 

  196.   global $strCantQuery;


    197. 

  197. 	$mhsw = GetFields('mhsw', "NIM", $nim, "KodeJurusan, KodeProgram");


    198. 

  198. 	$KodeBiaya = GetaField('khs', "Tahun='$thn' and NIM", $nim, 'KodeBiaya');


    199. 

  199. 	$IDBiaya2 = 0;


    200. 

  200. 	$NamaBiaya = '';


    201. 

  201. 	$Jumlah = 1;


    202. 

  202. 	$Biaya = 0;


    203. 

  203. 	$na = '';


    204. 

  204. 	$ctt = '';


    205. 

  205. 	$jdl = 'Tambah Biaya/Potongan Mahasiswa';


    206. 

  206. 	if ($md==0) {


    207. 

  207. 	  $r = mysql_query("select * from biayamhsw where ID=$biaid") or die("$strCantQuery: EditBiayaMhsw");


    208. 

  208. 	  $KodeBiaya = mysql_result($r, 0, 'KodeBiaya');


    209. 

  209. 	  $IDBiaya2 = mysql_result($r, 0, 'IDBiaya2');


    210. 

  210. 	  $NamaBiaya = mysql_result($r, 0, 'NamaBiaya');


    211. 

  211. 	  $Currency = mysql_result($r, 0, 'Currency');


    212. 

  212. 	  $Jumlah = mysql_result($r, 0, 'Jumlah');


    213. 

  213. 	  $Biaya = mysql_result($r, 0, 'Biaya');


    214. 

  214. 	  $Kali = mysql_result($r, 0, 'Kali');


    215. 

  215. 	  if (mysql_result($r, 0, 'NotActive') == 'Y') $na = 'checked'; else $na = '';


    216. 

  216. 	  $ctt = mysql_result($r, 0, 'Catatan');


    217. 

  217. 	  $jdl = 'Edit Biaya Mahasiswa';


    218. 

  218. 	}


    219. 

  219. 	else {


    220. 

  220. 	  $Currency = GetaField('currency', 'Def', 'Y', 'Symbol');


    221. 

  221. 	}


    222. 

  222. 	$optman = GetOption2('biaya2', "concat(Nama, '  (', Kali, ') ', Currency, ' ', format(Jumlah, 0))", 


    223. 

  223. 	  'Kali,Nama', $IDBiaya2, "KodeBiaya='$KodeBiaya' and KodeProgram='$mhsw[KodeProgram]' and NotActive='N'", 'ID', 1);


    224. 

  224. 	$optcur = GetOption2('currency', "concat(Symbol, ' - ', Name)", 'Symbol', $Currency, '', 'Symbol');


    225. 

  225. 	if ($md == 0)


    226. 

  226. 	  $dt = "<tr><td class=lst>Nama Biaya/Potongan</td><td class=lst>


    227. 

  227. 	    <input type=text name='NamaBiaya' value='$NamaBiaya' size=35 maxlength=100></td></tr>


    228. 

  228. 	    <input type=hidden name='Kali' value='$Kali'>";


    229. 

  229. 	else {


    230. 

  230. 	  $dt = <<<EOF


    231. 

  231. 	  <tr><th class=ttl colspan=2 align=left><input type=radio name='dari' value='0' checked>Dari Master Biaya</th></tr>


    232. 

  232. 	  <tr><td class=lst><img src='image/brch.gif'> Jenis Biaya/Potongan</td><td class=lst><select name='IDBiaya2'>$optman</select></td></tr>


    233. 

  233. 	  <tr><th class=ttl colspan=2 align=left><input type=radio name='dari' value='1'>Manual</th></tr>


    234. 

  234. 	  <tr><td class=lst><img src='image/brch.gif'> Nama Akun</td><td class=lst><input type=text name='NamaBiaya' value='$NamaBiaya' size=35 maxlength=100></td></tr>


    235. 

  235. 	  <tr><td class=lst><img src='image/brch.gif'> Jenis Akun</td><td class=lst><input type=radio name='Kali' value='-1'>Potongan &nbsp;


    236. 

  236. 	    <input type=radio name='Kali' value='1'>Biaya</td></tr>


    237. 

  237. 	  <tr><th class=ttl colspan=2>Jumlah</th></tr>


    238. 

  238. EOF;


    239. 

  239. 	}


    240. 

  240. 	$hd = <<<EOF


    241. 

  241. 	  <table class=basic cellspacing=0 cellpadding=4>


    242. 

  242. 	  <form action='sysfo.php' method=GET>


    243. 

  243. 	  <input type=hidden name='syxec' value='mhswkeu'>


    244. 

  244. 	  <input type=hidden name='md' value=$md>


    245. 

  245. 	  <input type=hidden name='nim' value='$nim'>


    246. 

  246. 	  <input type=hidden name='thn' value='$thn'>


    247. 

  247. 	  <input type=hidden name='biaid' value=$biaid>


    248. 

  248. 	  <input type=hidden name='KodeBiaya' value='$KodeBiaya'>


    249. 

  249. 	  <tr><th class=ttl colspan=2>$jdl</th></tr>


    250. 

  250. EOF;


    251. 

  251.     $sid = session_id();


    252. 

  252.     $ft = <<<EOF


    253. 

  253. 	  <tr><td class=lst>Jumlah</td><td class=lst><input type=text name='Jumlah' value='$Jumlah' size=3 maxlength=3></td></tr>


    254. 

  254. 	  <tr><td class=lst>Biaya</td><td class=lst><select name='Currency'>$optcur</select>


    255. 

  255. 	    <input type=text name='Biaya' value='$Biaya' size=15 maxlength=11></td></tr>


    256. 

  256. 	  <tr><td class=lst colspan=2>Catatan:<br>


    257. 

  257. 	  <textarea name='ctt' cols=35 rows=3>$ctt</textarea></td></tr>


    258. 

  258. 	  <tr><td class=lst colspan=2><input type=submit name='prcbiaya' value='Simpan'>&nbsp;


    259. 

  259. 	  <input type=reset name='reset' value='Reset'>&nbsp;


    260. 

  260. 	  <input type=button name='batal' value='Batal' onClick="location='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&PHPSESSID=$sid'"></td></tr>


    261. 

  261. 	  </form></table>


    262. 

  262. EOF;


    263. 

  263. 	echo $hd . $dt . $ft;


    264. 

  264.   }


    265. 

  265. function PrcBiaya() {


    266. 

  266.   global $strCantQuery;


    267. 

  267.   $md = $_REQUEST['md'];


    268. 

  268. 	$KodeBiaya = $_REQUEST['KodeBiaya'];


    269. 

  269. 	$nim = $_REQUEST['nim'];


    270. 

  270. 	$thn = $_REQUEST['thn'];


    271. 

  271. 	$biaid = $_REQUEST['biaid'];


    272. 

  272. 	$Currency = $_REQUEST['Currency'];


    273. 

  273. 	$Jumlah = $_REQUEST['Jumlah'];


    274. 

  274. 	$Biaya = $_REQUEST['Biaya'];


    275. 

  275. 	$Kali = $_REQUEST['Kali'];


    276. 

  276. 	$NamaBiaya = FixQuotes($_REQUEST['NamaBiaya']);


    277. 

  277. 	$ctt = FixQuotes($_REQUEST['ctt']);


    278. 

  278. 	if ($md == 0) {


    279. 

  279. 	  $s = "Update biayamhsw set NamaBiaya='$NamaBiaya', Currency='$Currency', 


    280. 

  280. 	    Jumlah='$Jumlah', Biaya='$Biaya', Catatan='$ctt' where ID='$biaid'";


    281. 

  281. 	  $r = mysql_query($s) or die ("$strCantQuery: $s");


    282. 

  282. 	} 


    283. 

  283. 	else {


    284. 

  284. 	  $dari = $_REQUEST['dari'];


    285. 

  285. 	  $IDBiaya2 = $_REQUEST['IDBiaya2'];


    286. 

  286. 	  $unip = $_SESSION['unip'];


    287. 

  287. 	  if ($dari == 0) {


    288. 

  288. 	    $arrbea = GetFields('biaya2', 'ID', $IDBiaya2, 'Nama,Kali');


    289. 

  289. 	    $NamaBiaya = $arrbea['Nama'];


    290. 

  290. 		$Kali = $arrbea['Kali'];


    291. 

  291. 	  }


    292. 

  292. 	  else {


    293. 

  293. 	    $IDBiaya2 = 0;


    294. 

  294. 	  }


    295. 

  295. 	  $s = "insert into biayamhsw (Tanggal, Tahun, KodeBiaya, IDBiaya2, NamaBiaya, Kali,


    296. 

  296. 	    NIM, Currency, Jumlah,Biaya,Catatan,Login) 


    297. 

  297. 	    values (now(), '$thn', '$KodeBiaya', '$IDBiaya2', '$NamaBiaya', '$Kali',


    298. 

  298. 		'$nim', '$Currency', '$Jumlah', '$Biaya','$ctt','$unip') ";


    299. 

  299. 	  $r = mysql_query($s) or die("$strCantQuery: $s");


    300. 

  300. 	}


    301. 

  301. 	HitungTotalBiaya($thn, $nim);


    302. 

  302.   }


    303. 

  303.   function WriteHitungTotalJavaScript() {


    304. 

  304.     echo <<<EOF


    305. 

  305. 	<SCRIPT LANGUAGE=JavaScript>


    306. 

  306. 	<!--


    307. 

  307. 	  function hitung(form) {


    308. 

  308. 	    var t = 0;


    309. 

  309. 		for (var i =1; i <= form.cnt.value; i++) {


    310. 

  310. 		  eval('t += Number(form.hrg'+i+'.value)');


    311. 

  311. 		}


    312. 

  312. 		form.tot.value = t;


    313. 

  313. 	  }


    314. 

  314. 	-->


    315. 

  315. 	</SCRIPT>


    316. 

  316. EOF;


    317. 

  317.   }


    318. 

  318.   function DispFormBayar1($nim, $thn, $md=1) {


    319. 

  319.     global $strCantQuery;


    320. 

  320. 	WriteHitungTotalJavaScript();


    321. 

  321. 	$s = "select * from biayamhsw where Tahun='$thn' and NIM='$nim' and Kali=1 order by NamaBiaya";


    322. 

  322. 	$r = mysql_query($s) or die("$strCantQuery: $s");


    323. 

  323. 	$cnt = mysql_num_rows($r);


    324. 

  324. 	$tot = 0;


    325. 

  325. 	$i = 0;


    326. 

  326. 	$opt = GetOption2('jenisbayar', 'Nama', 'Nama', 1, '', 'ID');


    327. 

  327. 	$arrtrx = GetFields('jenistrx', 'ID', $md, 'Nama, Kali');


    328. 

  328. 	$tgl = date('d-m-Y');


    329. 

  329. 	$kdj = GetaField('mhsw', 'NIM', $nim, 'KodeJurusan');


    330. 

  330. 	$tlt = KenaDenda($thn, $kdj);


    331. 

  331. 	if ($tlt > 0) {


    332. 

  332. 	  $Denda = 'checked';


    333. 

  333. 	  $HariDenda = $tlt;


    334. 

  334. 	  $HargaDenda = GetaField('bataskrs', "Tahun='$thn' and KodeJurusan", $kdj, 'HargaDenda');


    335. 

  335. 	}


    336. 

  336. 	else {


    337. 

  337. 	  $Denda = '';


    338. 

  338. 	  $HariDenda = 0;


    339. 

  339. 	  $HargaDenda = 0;


    340. 

  340. 	}


    341. 

  341. 	$HariBebas = 0;


    342. 

  342. 	$sid = session_id();


    343. 

  343. 	echo "<form action='sysfo.php' method=POST>


    344. 

  344. 	  <input type=hidden name='syxec' value='mhswkeu'>


    345. 

  345. 	  <input type=hidden name='nim' value='$nim'>


    346. 

  346. 	  <input type=hidden name='thn' value='$thn'>


    347. 

  347. 	  <input type=hidden name='cnt' value=$cnt>


    348. 

  348. 	  <input type=hidden name='md' value=$md>


    349. 

  349. 	  <table class=box cellspacing=0 cellpadding=4>


    350. 

  350. 	  <tr><td valign=top>


    351. 

  351. 	  <table class=basic cellspacing=0 cellpadding=4>


    352. 

  352. 	  <tr><th class=ttl colspan=2>$arrtrx[Nama]</th></tr>


    353. 

  353. 	  <tr><td class=lst>Tanggal</td><td class=lst>$tgl</td></tr>


    354. 

  354. 	  <tr><td class=lst>Pembayaran</td><td class=lst><input type=text name='NamaBayar' size=30 maxlength=50></td></tr>


    355. 

  355. 	  <tr><td class=lst>Jenis Pembayaran</td><td class=lst><select name='JenisBayar'>$opt</select></td></tr>


    356. 

  356. 	  <tr><td class=lst># Slip</td><td class=lst><input type=text name='BuktiBayar' size=30 maxlength=50></td></tr>


    357. 

  357. 	  <tr><th class=ttl colspan=2>Denda</th></tr>


    358. 

  358. 	  <tr><td class=lst>Kena Denda</td><td class=lst><input type=checkbox name='Denda' value='Y' $Denda></td></tr>


    359. 

  359. 	  <tr><td class=lst>Hari Denda</td><td class=lst><input type=text name='HariDenda' value=$HariDenda size=5 maxlength=4> hari</td></tr>


    360. 

  360. 	  <tr><td class=lst>Hari Bebas</td><td class=lst><input type=text name='HariBebas' value=$HariBebas size=5 maxlength=4> hari</td></tr>


    361. 

  361. 	  <tr><td class=lst>Denda</td><td class=lst><input type=text name='HargaDenda' value=$HargaDenda size=15 maxlength=12></td></tr>


    362. 

  362. 	  <tr><th class=ttl colspan=2>Catatan</th></tr>


    363. 

  363. 	  <tr><td class=lst colspan=2><textarea name='Catatan' cols=35 rows=3></textarea></td></tr>


    364. 

  364. 	  <tr><td class=lst colspan=2><input type=submit name='prcbayar1' value='Simpan'>&nbsp;


    365. 

  365. 	  <input type=reset name='Reset' value='Reset'>&nbsp;


    366. 

  366. 	  <input type=button name='Batal' value='Batal' onClick=\"location='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&PHPSESSID=$sid'\"></td></tr>


    367. 

  367. 	  </table></td>


    368. 

  368. 	  


    369. 

  369. 	  <td valign=top>


    370. 

  370. 	  <table class=basic cellspacing=0 cellpadding=4>


    371. 

  371. 	  <tr><th class=ttl colspan=2>Untuk Membayar :</th></tr>";


    372. 

  372. 	while ($row = mysql_fetch_array($r)) {


    373. 

  373. 	  $i++;


    374. 

  374. 	  $tmp = ($row['Jumlah'] * $row['Biaya']) - $row['Bayar'];


    375. 

  375. 	  if ($tmp < 0) $tmp = 0;


    376. 

  376. 	  $tot += $tmp;


    377. 

  377. 	  $jml = $tmp;


    378. 

  378. 	  echo "<tr><td class=lst><input type=hidden name='bid$i' value=$row[ID]>$row[NamaBiaya]</td>


    379. 

  379. 	  <td class=lst><input type=hidden name='cur$i' value='$row[Currency]'>$row[Currency]


    380. 

  380. 	    <input type=text name='hrg$i' value=$jml size=12 maxlength=12 onKeyUp=\"hitung(this.form)\"></td>


    381. 

  381. 	  </tr>";


    382. 

  382. 	}


    383. 

  383. 	echo "<tr><td class=ttl><b>Total</b></td><td class=ttl><input type=text name='tot' value='$tot' size=12 maxlength=12></td></tr>


    384. 

  384. 	</table></td></tr></table></form>";


    385. 

  385.   }


    386. 

  386.   function PrcBayar1() {


    387. 

  387.     $nim = $_REQUEST['nim']; 


    388. 

  388. 	$thn = $_REQUEST['thn'];


    389. 

  389. 	$cnt = $_REQUEST['cnt'];


    390. 

  390. 	$md = $_REQUEST['md'];


    391. 

  391. 	$NamaBayar = $_REQUEST['NamaBayar'];


    392. 

  392. 	$JenisBayar = $_REQUEST['JenisBayar'];


    393. 

  393. 	$BuktiBayar = FixQuotes($_REQUEST['BuktiBayar']);


    394. 

  394. 	$Catatan = FixQuotes($_REQUEST['Catatan']);


    395. 

  395. 	if (isset($_REQUEST['Denda'])) $Denda = $_REQUEST['Denda']; else $Denda = 'N';


    396. 

  396. 	if ($Denda == 'Y') {


    397. 

  397. 	  $HariDenda = $_REQUEST['HariDenda'];


    398. 

  398. 	  $HariBebas = $_REQUEST['HariBebas'];


    399. 

  399. 	  $HargaDenda = $_REQUEST['HargaDenda'];


    400. 

  400. 	}


    401. 

  401. 	else {


    402. 

  402. 	  $HariDenda = 0; $HariBebas = 0; $HargaDenda = 0;


    403. 

  403. 	}


    404. 

  404. 	$Kali = GetaField('jenistrx', 'ID', $md, 'Kali');


    405. 

  405. 	$s0 = "insert into bayar (Tanggal, NIM, Tahun, NamaBayar, JenisTrx, Kali, JenisBayar, BuktiBayar, Catatan, Denda, 


    406. 

  406. 	  HariDenda, HariBebas, HargaDenda, Login) 


    407. 

  407. 	  values (now(), '$nim', '$thn', '$NamaBayar', '$md', '$Kali', '$JenisBayar', 


    408. 

  408. 	  '$BuktiBayar', '$Catatan', '$Denda', '$HariDenda', '$HariBebas', '$HargaDenda', '$_SESSION[unip]' )";


    409. 

  409. 	$r0 = mysql_query($s0) or die("$strCantQuery: $s0<br>".mysql_error());


    410. 

  410. 	$nid = GetLastID();


    411. 

  411. 	$tot = 0;


    412. 

  412. 	for ($i = 1; $i <= $cnt; $i++) {


    413. 

  413. 	  $bid = $_REQUEST["bid$i"];


    414. 

  414. 	  $cur = $_REQUEST["cur$i"];


    415. 

  415. 	  $hrg = $_REQUEST["hrg$i"]; settype($hrg, 'integer');


    416. 

  416. 	  if ($hrg > 0) {


    417. 

  417. 	    $tot += $hrg;


    418. 

  418. 	    $sx = "insert into bayar2 (BayarID, BiayaID, Currency, Jumlah) values($nid, $bid, '$cur', '$hrg')";


    419. 

  419. 	    $rx = mysql_query($sx) or die("$strCantQuery: $sx<br>".mysql_query());


    420. 

  420. 	    $s1 = "update biayamhsw set Bayar=Bayar+$hrg where ID=$bid";


    421. 

  421. 	    $r1 = mysql_query($s1) or die("$strCantQuery: $s1<br>".mysql_error());


    422. 

  422. 	  }


    423. 

  423. 	}


    424. 

  424. 	$basecur = GetaField('mhsw m left outer join jurusan j on m.KodeJurusan=j.Kode', "m.NIM", $nim, "j.Currency");


    425. 

  425. 	$sy = "update bayar set Currency='$basecur', Jumlah='$tot' where ID=$nid";


    426. 

  426. 	$ry = mysql_query($sy) or die("$strCantQuery: $sy<br>".mysql_error());


    427. 

  427. 	HitungTotalBayar($thn, $nim);


    428. 

  428. 	HitungTotalBiaya($thn, $nim);


    429. 

  429.   }


    430. 

  430.   function FormPenarikan($nim, $thn, $md, $biaid=0) {


    431. 

  431.     $def = GetaField('jenisbayar', "NotActive='N' and Def", "Y", 'ID');


    432. 

  432. 	$nmtrx = GetaField('jenistrx', "NotActive='N' and Kali", -1, 'Nama');


    433. 

  433. 	$tgl = date("d-m-Y");


    434. 

  434. 	$snm = session_name();


    435. 

  435. 	$sid = session_id();


    436. 

  436. 	$tot = GetaField('khs', "Tahun='$thn' and NIM", $nim, "(Bayar+Tarik)-(Biaya+Potong)");


    437. 

  437. 	$optjnsbyr = GetOption2('jenisbayar', 'Nama', 'Def,Nama', '', '', 'ID');


    438. 

  438. 	echo <<<EOF


    439. 

  439. 	<table class=box cellspacing=0 cellpadding=4>


    440. 

  440. 	<form action='sysfo.php' method=POST>


    441. 

  441. 	<input type=hidden name='syxec' value='mhswkeu'>


    442. 

  442. 	<input type=hidden name='nim' value='$nim'>


    443. 

  443. 	<input type=hidden name='thn' value='$thn'>


    444. 

  444. 	<input type=hidden name='md' value='$md'>


    445. 

  445. 	<input type=hidden name='biaid' value='$biaid'>


    446. 

  446. 	<tr><th class=ttl colspan=2>Penarikan Kelebihan Pembayaran</th></tr>


    447. 

  447. 	<tr><td class=lst>Tanggal</td><td class=uline>$tgl</td></tr>


    448. 

  448. 	<tr><td class=lst>Penarikan</td><td class=uline><input type=text name='NamaBayar' value='$nmtrx' size=40 maxlength=100></td></tr>


    449. 

  449. 	<tr><td class=lst>Jenis Pembayaran</td><td class=uline><select name='JenisBayar'>$optjnsbyr</select></td></tr>


    450. 

  450. 	<tr><td class=lst>No. Bukti Penarikan</td><td class=uline><input type=text name='BuktiBayar' size=40 maxlength=50></td></tr>


    451. 

  451. 	<tr><td class=lst>Jumlah Penarikan</td><td class=uline><input type=text name='Jumlah' value='$tot' size=20 maxlength=15></td></tr>


    452. 

  452. 	<tr><th class=ttl colspan=2>Catatan</th></tr>


    453. 

  453. 	<tr><td class=uline colspan=2><textarea name='Catatan' cols=40 rows=3></textarea></td></tr>


    454. 

  454. 	<tr><td class=basic align=center colspan=2><input type=submit name='prctrk' value='Simpan'>&nbsp;


    455. 

  455. 	  <input type=reset name='reset' value='reset'>&nbsp;


    456. 

  456. 	  <input type=button name='batal' value='Batal' onClick="location='sysfo.php?syxec=mhswkeu&nim=$nim&thn=$thn&$snm=$sid'"></td></tr>


    457. 

  457. 	</form></table>


    458. 

  458. EOF;


    459. 

  459.   }


    460. 

  460.   function PrcPenarikan() {


    461. 

  461.     $jnstrx = GetaField('jenistrx', 'Kali', -1, 'ID');


    462. 

  462.     $nim = $_REQUEST['nim'];


    463. 

  463. 	$thn = $_REQUEST['thn'];


    464. 

  464. 	$NamaBayar = $_REQUEST['NamaBayar'];


    465. 

  465. 	$JenisBayar = $_REQUEST['JenisBayar'];


    466. 

  466. 	$BuktiBayar = $_REQUEST['BuktiBayar'];


    467. 

  467. 	$biaid = $_REQUEST['biaid'];


    468. 

  468. 	$Jumlah = $_REQUEST['Jumlah'];


    469. 

  469. 	$Catatan = FixQuotes($_REQUEST['Catatan']);


    470. 

  470. 	$s = "insert into bayar (Tanggal, NIM, Tahun, NamaBayar, JenisTrx, Kali, JenisBayar, BuktiBayar,


    471. 

  471. 	  Jumlah, Catatan, Denda, HariDenda, HariBebas, HargaDenda, Login)


    472. 

  472. 	  values (now(), '$nim', '$thn', '$NamaBayar', '$jnstrx', '-1', '$JenisBayar', '$BuktiBayar',


    473. 

  473. 	    '$Jumlah', '$Catatan', 'N', 0, 0, 0, '$_SESSION[unip]')";


    474. 

  474. 	$r = mysql_query($s) or die("Error: $s<br>".mysql_error());


    475. 

  475. 	HitungTotalBayar($thn, $nim);


    476. 

  476. 	HitungTotalBiaya($thn, $nim);


    477. 

  477.   }


    478. 

  478. 


    479. 

  479.   // *** Parameter2 ***


    480. 

  480.   if (isset($_REQUEST['md'])) $md = $_REQUEST['md']; else $md = -1;


    481. 

  481.   if (isset($_REQUEST['thn'])) $thn = $_REQUEST['thn']; else $thn = '';


    482. 

  482.   $nim = GetSetVar('nim');


    483. 

  483.   if (isset($_REQUEST['prn'])) $prn = $_REQUEST['prn']; else $prn = 0;


    484. 

  484.   if (isset($_REQUEST['mdx'])) $mdx = $_REQUEST['mdx']; else $mdx = '';


    485. 

  485.   if (isset($_REQUEST['biaid'])) $biaid = $_REQUEST['biaid']; else $biaid = 0;


    486. 

  486.   if ($_SESSION['ulevel'] == 4) $nim = GetSetVar('nim', $_SESSION['unip']);


    487. 

  487.   


    488. 

  488.   // *** Bagian Utama ***


    489. 

  489.   if ($mdx == 'byr0') DisplayHeader($fmtPageTitle, "BUKTI PEMBAYARAN");


    490. 

  490.   else DisplayHeader($fmtPageTitle, "Keuangan Mahasiswa");


    491. 

  491.   if ($prn == 0 && $_SESSION['ulevel'] < 4) {


    492. 

  492.     DispNIMMhsw($nim, 'mhswkeu');


    493. 

  493.   }


    494. 

  494.   if (ValidNIM($nim)) {


    495. 

  495.     if (isset($_REQUEST['prchit'])) {


    496. 

  496. 	  HitungTotalBayar($thn, $nim);


    497. 

  497. 	  HitungTotalBiaya($thn, $nim);


    498. 

  498. 	}


    499. 

  499. 	if (isset($_REQUEST['prcoto'])) PrcOto($nim, $thn);


    500. 

  500. 	if (isset($_REQUEST['prcbiaya'])) PrcBiaya();


    501. 

  501. 	if (isset($_REQUEST['prcbayar1'])) PrcBayar1();


    502. 

  502. 	if (isset($_REQUEST['prctrk'])) PrcPenarikan();


    503. 

  503. 	DispHeaderMhsw0($nim);


    504. 

  504. 	echo "<br>";


    505. 

  505.     if ($thn == '') DispKeuMhsw($nim);


    506. 

  506. 	else {


    507. 

  507. 	  if (empty($mdx)) DispKeuMhswRinci($nim, $thn);


    508. 

  508. 	  elseif ($mdx == 'bia') EditBiayaMhsw($nim, $thn, $md, $biaid);


    509. 

  509. 	  elseif ($mdx == 'byr') DispFormBayar1($nim, $thn, $md);


    510. 

  510. 	  elseif ($mdx == 'byr0') DispBayarMhsw($nim, $thn, $md, $biaid);


    511. 

  511. 	  elseif ($mdx == 'trk') FormPenarikan($nim, $thn, $md, $biaid);


    512. 

  512. 	}


    513. 

  513.   }


    514. 

  514.   else if (!empty($nim)) DisplayHeader($fmtErrorMsg, "Mahasiswa dengan NIM <b>$nim</b> tidak ditemukan.");


    515. 

  515. ?>
    516.