is |
Subversion Repositories: |
[/] [trunk/] [html/] [prispevky_2007prenos.php] - Rev 2
Compare with Previous -
Blame
- Download
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<style type="text/css" media="screen"> @import "style.css"; </style>
<title>db.jablonka.cz - Přenosy 2007 2008</title>
</head>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body topmargin=0 leftmargin=10>
<?
include ("header.htm");
require('grab_globals.lib.php');
include ("fce.php");
$spojeni = MySQL_Connect($db_host, $db_user, $db_pass);
MySQL_Select_DB($db_name);
#pomocne funkce
echo '
<center>';
if(!@$show) $show="all";
if(!@$order) $order="prijmeni";
$where="WHERE c.id>0";
if($show!="all")
{
echo '<b>Seznam příspěvků aktivních uživatelů za rok 2007:</b> <a href="?show=all&order='.$order.'" class=odkaz>zobrazit vše</a>';
if(!$order) {
$order="cid";
}
$where="WHERE active=1 AND c.id>0";
}
else
{
echo '<b>Seznam příspěvků všech uživatelů za rok 2007:</b> <a href="?show=active&order='.$order.'" class=odkaz>zobrazit pouze aktivní</a>';
if(!$order) {
$order="cid";
}
}
#finalni dotaz
#$string=MySQL_Query("SELECT c.id as cid, c.*, f.id as fid, f.*, p.id as pid, p.*, u.id as uid, u.datum as udatum, u.*, i.id as iid, i.*
# FROM (((cleni c LEFT JOIN finance f ON c.id = f.clen AND f.platba = 2 AND YEAR(f.datum) = 2007 )
# LEFT JOIN platby p ON f.platba = p.id) LEFT JOIN ukony u ON c.id = u.clen AND u.udalost = 7)
# LEFT JOIN ipecka i ON c.id = i.clen AND i.id = u.predmet $where ORDER BY $order");
$string=MySQL_Query("SELECT c.id as cid, c.*, f.id as fid, f.*
FROM (cleni c LEFT JOIN finance f ON c.id = f.clen AND (f.platba = 2 or f.platba=18) AND YEAR(f.datum) = 2007 )
$where ORDER BY $order");
echo '
<form name="emaily" action="mail_multi.php" method="POST">
<input class=field type="submit" name="OK" value=" pošli mail ">
<a href="#" onclick="i=0;while ((document.forms[0][i] != null )) {document.forms[0][i].checked = true;i+=1;};">Vybrat vše</a>
<a href="#" onclick="i=0;while ((document.forms[0][i] != null )) {document.forms[0][i].checked = !document.forms[0][i].checked;i+=1;};">Invertovat</a>
<table width=100% cellspacing=1 border=1>
<tr>
<td bgcolor=#73BE1E>
<table cellspacing=1 cellpadding=1 width=100%>
<tr>
<td bgcolor=#FFFFFF class=text>
<a title="seřadit podle ID" class=odkaz href="?show='.$show.'&order=cid">ID</a>
</td>
<td bgcolor=#FFFFFF class=text>
<a title="seřadit podle jména" class=odkaz href="?show='.$show.'&order=jmeno,cid">Jméno</a>
</td>
<td bgcolor=#FFFFFF class=text>
<a title="seřadit podle příjmení" class=odkaz href="?show='.$show.'&order=prijmeni,cid">Příjmení</a>
</td>
<td bgcolor=#FFFFFF class=text width=80>
<a title="seřadit podle aktivity" class=odkaz href="?show='.$show.'&order=active,cid">A</a>
<a title="seřadit podle financí" class=odkaz href="?show='.$show.'&order=finance,cid">F</a>
<a title="seřadit podle internetu" class=odkaz href="?show='.$show.'&order=internet,cid">I</a>
<a title="seřadit podle elektřiny" class=odkaz href="?show='.$show.'&order=energy,cid">E</a>
</td>
<td bgcolor=#FFFFFF class=text width=80>email</td>
<td bgcolor=#FFFFFF class=text width=80>Připojen od</td>
<td bgcolor=#FFFFFF class=text width=80>Přip. (50)</td>
<td bgcolor=#FFFFFF class=text width=80>Inet (50)</td>
<td bgcolor=#FFFFFF class=text width=80>switch (-25)</td>
<td bgcolor=#FFFFFF class=text width=80>router (-50)</td>
<td bgcolor=#FFFFFF class=text width=80>Částka</td>
<td bgcolor=#FFFFFF class=text width=80>var.symb.</td>
<td bgcolor=#FFFFFF class=text width=80>IP</td>
<td bgcolor=#FFFFFF class=text>Přehled plateb</td>
<td bgcolor=#FFFFFF class=text>Součet plateb</td>
<td bgcolor=#FFFFFF class=text>Přenos z roku 2006</td>
<td bgcolor=#FFFFFF class=text>Celkem</td>
</tr>
';
# nastaveni pocatecnich hodnot pro tisk tabulky
# pokud ma clen vice radku tak se tiskne jen jeden souhrnny
$color=1;
$lastcid=-1;
$celkem=0;
$castkacelkem=0;
$mindatum="2007-12-31";
$ipecka="";
$platby="";
$soucetplateb=0;
while($vysledek=MySQL_Fetch_Array($string)) {
#pro prvni je treba rovnou priradit lastcid
if ($lastcid == -1 ) $lastcid = $vysledek["cid"];
#pokud je uz jiny clen tak se jde na tisk predchoziho
if ( $lastcid != $vysledek["cid"] ) {
$celkem++;
$delkaletos = round((strtotime("2007-12-31")-strtotime($mindatum))/(60*60*24*30));
if($delkaletos>12) $delkaletos=12;
$prenos=id_to_prenos06($cid);
$delkapripojeniletos=round(id_to_delkazarok($cid,2007,22,23)/(60*60*24*30));
$delkanapajeniletos=round(id_to_delkazarok($cid,2007,5,6)/(60*60*24*30));
$delkanapajenirouteruletos=round(id_to_delkazarok($cid,2007,24,25)/(60*60*24*30));
$delkakonektivityletos=round(id_to_delkazarok($cid,2007,7,8)/(60*60*24*30));
# $delkakonektivityletos=id_to_delkakonektivity($cid,2007)/(60*60*24);
$castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
$castkacelkem=$castkacelkem+$castka;
$stavkdnesku= -$castka+$prenos+$soucetplateb;
if (($stavkdnesku < 0 ) || ($stavkdnesku > 0 )) {
#echo "<tr><td colspan=16> stav $stavkdnesku castka $castka prenos $prenos soucetplateb $soucetplateb platby $platby</td></tr>";
if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
# tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);
$dot="lan.bmp";
$alt="Přehled";
$from="info@jablonka.cz";
$subject = "Členství v o.s. jablonka.cz";
$text = "Zdravím,
dík
Síma
\n";
$text = str_replace(" ","%20",$text);
$text = str_replace("\n","%0d",$text);
echo '
<tr>
<td bgcolor='.$barva.' class=text>
<a class="odkaz" target="_self" href="clen.php?clen='.$lastcid.'">
<img src="images/'.$dot.'" title="'.$alt.'" border=0></a>
<a class="odkaz" target="_self" href="edit_user.php?id='.$cid.'">'.$lastcid.'</a></td>
<td bgcolor='.$barva.' class="text">'.$jmeno.'</td>
<td bgcolor='.$barva.' class="text">'.$prijmeni.'</td>
<td bgcolor='.$barva.' class="text">'.$icons.'</td>
<td bgcolor='.$barva.' class="text">
';
if ( @$mail ) {
echo '
<INPUT type="checkbox" name="to'.$cid.'" value="'.$mail.'">
<a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a>
<a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext</a> '.$mail.'
';
}
echo '
</td>
<td bgcolor='.$barva.' class="text">'.sql2datum($mindatum).'</td>
<td bgcolor='.$barva.' class="text">'.$delkaletos.'</td>
<td bgcolor='.$barva.' class="text">'.$delkakonektivityletos.'</td>
<td bgcolor='.$barva.' class="text">'.$delkanapajeniletos.'</td>
<td bgcolor='.$barva.' class="text">'.$delkanapajenirouteruletos.'</td>
<td bgcolor='.$barva.' class="text">'.$castka.'</td>
<td bgcolor='.$barva.' class="text">'.$varsymb.'</td>
<td bgcolor='.$barva.' class="text">';
$ipecka=clen_to_ipecka($lastcid);
foreach ($ipecka as $key => $value) {
if (last_ip_action($key) == 8) {
echo "<strike><a href=edit_ip.php?id=$key>$value</a></strike><br>\n";
} else
{
#echo last_ip_action($user["iid"]);
echo "<a href=edit_ip.php?id=$key>$value</a><br>\n";
}
}
echo '
</td>
<td bgcolor='.$barva.' class="text">
<a class="odkaz" target="_self" href="add_platba.php?clen='.$cid.'&platba=2">+</a> '.tiskni_platby($platby).'</td>
<td bgcolor='.$barva.' class="text">'.$vybrano.'</td>
<td bgcolor='.$barva.' class="text">'.$prenos.'</td>
<td bgcolor='.$barva.' class="text">'.($vybrano+str_replace(",",".",$prenos)-$castka).'
<a class="odkaz" target="_self" href="add_platba.php?clen='.$cid.'&hodnota='.-($vybrano+str_replace(",",".",$prenos)-$castka).'&platba=18&datum=31.12.2007">z</a>
<a class="odkaz" target="_self" href="add_platba.php?clen='.$cid.'&hodnota='.($vybrano+str_replace(",",".",$prenos)-$castka).'&platba=7&datum=1.1.2008">do</a>
';
echo '
</td>
</tr>
';
}
$mindatum="2007-12-31";
$ipecka="";
$platby="";
$soucetplateb=0;
$lastcid = $vysledek["cid"];
}
#vytvari se a ukladaji promenne pro clena - muze byt i z vice radku
$icons="";
if($show=="all" && $vysledek["active"]==2) $icons=$icons.'<img title="Čekatel" src="images/actv.gif"> ';
if($show=="all" && $vysledek["active"]==1) $icons=$icons.'<img title="Člen" src="images/actv.gif"> ';
if($show=="all" && $vysledek["active"]==0) $icons=$icons.'<img title="Pasivní" src="images/passv.gif"> ';
if($vysledek["finance"]==1) $icons=$icons.'<img title="Finance" src="images/dolar.gif"> ';
if($vysledek["internet"]==1) $icons=$icons.'<img title="Internet" src="images/net.gif"> ';
if($vysledek["energy"]==1) $icons=$icons.'<img title="Elektřina sleva" src="images/energysleva.gif"> ';
if($vysledek["energy"]==2) $icons=$icons.'<img title="Elektřina" src="images/energy.gif"> ';
$cid = $vysledek["cid"];
$jmeno = $vysledek["jmeno"];
$prijmeni = $vysledek["prijmeni"];
#pokud je nove datum pripojeni nejakeho IP starsi tak ho vezmem jako nove minimum
if ($vysledek["datum"]) if ( strtotime($mindatum) > strtotime($vysledek["datum"])) $mindatum = $vysledek["datum"];
$energy = $vysledek["energy"];
$internet = $vysledek["internet"];
$ipecka = $ipecka." ".$vysledek["ip"];
$varsymb = $vysledek["vs"];
# $platby = $vysledek["hodnota"];
if ( $vysledek["fid"] ) {
$platby = $platby.":".$vysledek["fid"]." ".$vysledek["hodnota"];
$soucetplateb = $soucetplateb + $vysledek["hodnota"];
}
$mail=$vysledek["email"];
} # while
############################################################
#rozdeli hodnoty pole podle mezery na klic a hodnotu
#v hodnote jsou dve cisla a prvni je brano jako klic a druhe jako hodnota pod timto klicem
#zaroven to odstrani i duplikatni hodnoty
function unikatni_dvojice($array) {
$result = array();
foreach ($array as $tvalue) {
$polozky = explode(" ", $tvalue);
$result[$polozky[0]] = $polozky[1];
}
return $result;
}
############################################################
function tiskni_platby($platby) {
#rozdeleni jednotlivych plateb do pole
$jednotlive = explode (":",$platby);
#odstraneni prvniho pole ktere obsahuje nesmysly
$prvni=array_shift($jednotlive);
#setrideni a vyhazeni unikatnich
$jednotlive=unikatni_dvojice($jednotlive);
$pocetplateb = count($jednotlive);
$soucet=0;
$platby_tisk="";
foreach (array_keys($jednotlive) as $key)
{
$platba="<a class=\"odkaz\" target=\"_self\" href=\"edit_platba.php?id=$key\">$jednotlive[$key]</a> ";
$platby_tisk=$platby_tisk."".$platba;
#desetinne carky se prevedou na tecky
$soucet=$soucet+str_replace(",",".",$jednotlive[$key]);
}
global $vybranocelkem;
$vybranocelkem=$vybranocelkem+$soucet;
unset($vybranocelkem);
global $vybrano;
$vybrano=$soucet;
unset($vybrano);
if ($pocetplateb) {
return str_replace(" konec","",$platby_tisk."konec") ;
} else {
return "" ;
}
}
############################################################
function tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkaletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail) {
global $vybranocelkem;
global $vybrano;
$dot="lan.bmp";
$alt="Přehled";
echo '
<tr>
<td bgcolor='.$barva.' class=text>
<a class="odkaz" target="_self" href="clen.php?clen='.$lastcid.'">
<img src="images/'.$dot.'" title="'.$alt.'" border=0></a>
<a class="odkaz" target="_self" href="edit_user.php?id='.$cid.'">'.$lastcid.'</a></td>
<td bgcolor='.$barva.' class="text">'.$jmeno.'</td>
<td bgcolor='.$barva.' class="text">'.$prijmeni.'</td>
<td bgcolor='.$barva.' class="text">'.$icons.'</td>
<td bgcolor='.$barva.' class="text">
';
$from="info@jablonka.cz";
$subject = "Členství v o.s. jablonka.cz";
$text = "Zdravím,
dík
Síma
\n";
$text = str_replace(" ","%20",$text);
$text = str_replace("\n","%0d",$text);
if ( @$mail ) {
echo '
<INPUT type="checkbox" name="to'.$cid.'" value="'.$mail.'">
<a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a>
<a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext</a> '.$mail.'
';
}
echo '
</td>
<td bgcolor='.$barva.' class="text">'.sql2datum($mindatum).'</td>
<td bgcolor='.$barva.' class="text">'.$delkaletos.'</td>
<td bgcolor='.$barva.' class="text">'.$delkakonektivityletos.'</td>
<td bgcolor='.$barva.' class="text">'.$delkanapajeniletos.'</td>
<td bgcolor='.$barva.' class="text">'.$delkanapajenirouteruletos.'</td>
<td bgcolor='.$barva.' class="text">'.$castka.'</td>
<td bgcolor='.$barva.' class="text">'.$varsymb.'
';
echo '
</td>
<td bgcolor='.$barva.' class="text">
<a class="odkaz" target="_self" href="add_platba.php?clen='.$cid.'&platba=2">+</a> '.tiskni_platby($platby).'
</td>
<td bgcolor='.$barva.' class="text">'.$vybrano.'</td>
<td bgcolor='.$barva.' class="text">'.$prenos.'</td>
<td bgcolor='.$barva.' class="text">'.($vybrano+str_replace(",",".",$prenos)-$castka).'
';
$from="info@jablonka.cz";
$subject = "Výzva k zaplacení členských příspěvků jablonka.cz : $jmeno $prijmeni";
$text = "Dobrý den,
v tomto mailu Vám posíláme informace o stavu Vašich členských příspěvků pro tento rok.
\n";
$text .= "Jméno člena : $jmeno $prijmeni\n";
$text .= "Číslo konta : 2118436001/2400\n";
$text .= "Zbývá zaplatit : ".(-1*($vybrano+str_replace(",",".",$prenos)-$castka))."Kč\n";
$text .= "Var.Symbol : ".$varsymb."\n\n";
$text .= "Pro minimalizaci bankovních poplatků plaťte větší částky najednou - tedy alespoň 300Kč čtvrtletně.
Plaťte prosím na začátku daného období vždy do 15. dne v prvním měsíci každého čtvrtletí,
ale nejlépe bude pokud zaplatíte jednou jedinou platbou až do konce roku.
Neplaťte prosím v tomto roce více než je třeba, protože přeplatek nám přidělává práci v účetnictví.
Nezapomínejte prosím vyplnit variabilní symbol.
Neposílejte peníze přes českou poštu, protože odstraňují variabilní symbol a přidělává nám to práci.
hezký den
www.jablonka.cz
";
$text = str_replace(" ","%20",$text);
$text = str_replace("\n","%0d",$text);
$celkemjeden=(-1*($vybrano+str_replace(",",".",$prenos)-$castka));
$aktualnidatum=date("Y-m-d");
#tohle spocita pocet mesicu ktere v tomto roce nemusi byt jeste zaplaceny
#je to pouzito k rozliseni kdo tech kteri maji zaplaceno alespon tri mesice dopredu
$budoucimesice = round((strtotime("2007-12-31")-strtotime($aktualnidatum))/(60*60*24*30));
#odpocet se stanovi tak aby lidi meli dopredu placeno aspon 300Kc
$odpocet=$budoucimesice*100-300;
if ( ($celkemjeden-$odpocet) > 0 ) {
echo '
<a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a>
<a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext </a>
';
}
echo '
</td>
</tr>
';
unset($vybranocelkem);
unset($vybrano);
}
############################################################
#dotisk posledniho radku
$celkem++;
if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
$delkaletos = round((strtotime("2007-12-31")-strtotime($mindatum))/(60*60*24*30));
if($delkaletos>12) $delkaletos=12;
$prenos=id_to_prenos06($cid);
$delkapripojeniletos=round(id_to_delkazarok($cid,2007,22,23)/(60*60*24*30));
$delkanapajeniletos=round(id_to_delkazarok($cid,2007,5,6)/(60*60*24*30));
$delkanapajenirouteruletos=round(id_to_delkazarok($cid,2007,24,25)/(60*60*24*30));
$delkakonektivityletos=round(id_to_delkazarok($cid,2007,7,8)/(60*60*24*30));
# $delkakonektivityletos=id_to_delkakonektivity($cid,2007)/(60*60*24);
$castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
$castkacelkem=$castkacelkem+$castka;
$stavkdnesku= -$castka+$prenos+$soucetplateb;
if ($stavkdnesku < 0 ) {
#echo "<tr><td colspan=16> stav $stavkdnesku castka $castka prenos $prenos soucetplateb $soucetplateb platby $platby</td></tr>";
if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);
}
# if ($castka == $soucetplateb) {
# if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
# tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);
# }
#tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);
#konec dotisku posledniho radku
echo '
</table></tr></td></table></center>
</form>
<br>
Celkem zobrazeno '.$celkem.' záznamů. Celková částka je '.$castkacelkem.'Kč a zatím se vybralo '.$vybranocelkem.'Kč
';
?>
</body>
</html>
Powered by WebSVN 2.2.1
