<?phpdefined('_JEXEC')ORdie("Restricted access");$user=&JFactory::getUser();if($user->guest){echo"<h3>Please log in to see your report ! </h3>";}else{$id=strtoupper($user->username);$fd=fopen("http://btc-intranet.ap.bayer.cnb/coop/COOPBAL.csv","r");$found=0;while(!feof($fd)){$buffer=fgetcsv($fd,4096);if(strtoupper($buffer[1])==$id){$found=1;break;}}fclose($fd);if($found){echo"<h3> Report of ".$buffer[4]." For the month".$buffer[5]."</h3><br/>";echo"<h4> Deposit Account of member no ".$buffer[3]."</h4>";echo"<table>";echo"<tr><td>Last month :</td><td align=\"right\">".$buffer[6]."</td><td> Baht </td></tr>";echo"<tr><td>This month :</td><td align=\"right\">".$buffer[7]."</td><td> Baht </td></tr>";echo"<tr><td>Next month :</td><td align=\"right\">".$buffer[8]."</td><td> Baht </td></tr>";echo"</table>";if(!($buffer[9]=="")||!($buffer[13])){echo"<h4>Loan account</h4>";echo"<table>";echo"<tr><td>Last month :</td><td align=\"right\"> ".$buffer[9]."</td><td> Baht </td></tr>";echo"<tr><td>Pay this month :</td><td align=\"right\"> ".$buffer[10]."</td><td> Baht </td></tr>";echo"<tr><td>Actual Payment :</td><td align=\"right\"> ".$buffer[11]."</td><td> Baht </td></tr>";echo"<tr><td>Interest :</td><td align=\"right\"> ".$buffer[12]."</td><td> Baht </td></tr>";echo"<tr><td>Next Month begin :</td><td align=\"right\"> ".$buffer[13]."</td><td> Baht </td></tr>";echo"</table>";}echo"<br/>Please check your account <br/>";}else{echo"<h3>No Account for you, Please let us know if you are member of the Cooperation fund </h3>";}}?>