jablonka.czprosek.czf

is

 Subversion Repositories:
[/] [trunk/] [html/] [prispevky_2006.php] - Blame information for rev 8

 

Line No. Rev Author Line
12simandl<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
2<html>
3<head>
4<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
5<style type="text/css" media="screen"> @import "style.css"; </style>
6<title>db.jablonka.cz - Příspěvky 2007</title>
7</head>
8<link rel="stylesheet" type="text/css" href="style.css">
9</head>
10<body topmargin=0 leftmargin=10>
11<?
12include ("header.htm");
13require('grab_globals.lib.php');
14include ("fce.php");
15$spojeni = MySQL_Connect($db_host, $db_user, $db_pass);
16MySQL_Select_DB($db_name);
17 
18#pomocne funkce
19 
20echo '
21<center>';
22if(!@$show) $show="all";
23if(!@$order) $order="prijmeni";
24 
25$where="WHERE c.id>0";
26if($show!="all")
27{
28 echo '<b>Seznam příspěvků aktivních uživatelů za rok 2006:</b> <a href="prispevky_2006.php?show=all&order='.$order.'" class=odkaz>zobrazit vše</a>';
29 if(!$order) {
30 $order="cid";
31 }
32 $where="WHERE active=1 AND c.id>0";
33}
34else
35{
36 echo '<b>Seznam příspěvků všech uživatelů za rok 2006:</b> <a href="prispevky_2006.php?show=active&order='.$order.'" class=odkaz>zobrazit pouze aktivní</a>';
37 if(!$order) {
38 $order="cid";
39 }
40}
41 
42#finalni dotaz
43$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.*
44 FROM (((cleni c LEFT JOIN finance f ON c.id = f.clen AND f.platba = 2 AND YEAR(f.datum) = 2006 )
45 LEFT JOIN platby p ON f.platba = p.id) LEFT JOIN ukony u ON c.id = u.clen AND u.udalost = 7)
46 LEFT JOIN ipecka i ON c.id = i.clen AND i.id = u.predmet $where ORDER BY $order");
47 
48echo '
49 
50<form name="emaily" action="mail_multi.php" method="POST">
51<input class=field type="submit" name="OK" value="&nbsp;pošli mail&nbsp;">
52<a href="#" onclick="i=0;while ((document.forms[0][i] != null )) {document.forms[0][i].checked = true;i+=1;};">Vybrat vše</a>
53<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>
54 
55<table width=100% cellspacing=1 border=1>
56<tr>
57<td bgcolor=#73BE1E>
58<table cellspacing=1 cellpadding=1 width=100%>
59<tr>
60 <td bgcolor=#FFFFFF class=text>
61 <a title="seřadit podle ID" class=odkaz href="prispevky_2006.php?show='.$show.'&order=cid">ID</a>&nbsp;
62 </td>
63 <td bgcolor=#FFFFFF class=text>
64 <a title="seřadit podle jména" class=odkaz href="prispevky_2006.php?show='.$show.'&order=jmeno,cid">Jméno</a>&nbsp;
65 <a title="seřadit podle příjmení" class=odkaz href="prispevky_2006.php?show='.$show.'&order=prijmeni,cid">Příjmení</a>
66 </td>
67 <td bgcolor=#FFFFFF class=text width=80>email</td>
68 <td bgcolor=#FFFFFF class=text width=80>Připojen od</td>
69 <td bgcolor=#FFFFFF class=text width=80>Přip. měsíců (50)</td>
70 <td bgcolor=#FFFFFF class=text width=80>Inet měsíců (50)</td>
71 <td bgcolor=#FFFFFF class=text width=80>Sleva switch (-25)</td>
72 <td bgcolor=#FFFFFF class=text width=80>Sleva router (-50)</td>
73 <td bgcolor=#FFFFFF class=text width=80>Částka</td>
74 <td bgcolor=#FFFFFF class=text width=80>var.symb.</td>
75 <td bgcolor=#FFFFFF class=text>Přehled plateb</td>
76 <td bgcolor=#FFFFFF class=text>Součet plateb</td>
77 <td bgcolor=#FFFFFF class=text>Přenos z roku 2005</td>
78 <td bgcolor=#FFFFFF class=text>Celkem</td>
79</tr>
80';
81 
82# nastaveni pocatecnich hodnot pro tisk tabulky
83# pokud ma clen vice radku tak se tiskne jen jeden souhrnny
84$color=1;
85$lastcid=-1;
86$celkem=0;
87$castkacelkem=0;
88$mindatum="2006-12-31";
89$ipecka="";
90$platby="";
91 
92while($vysledek=MySQL_Fetch_Array($string)) {
93 #pro prvni je treba rovnou priradit lastcid
94 if ($lastcid == -1 ) $lastcid = $vysledek["cid"];
95 #pokud je uz jiny clen tak se jde na tisk predchoziho
96 if ( $lastcid != $vysledek["cid"] ) {
97 $celkem++;
98 if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
99 $delkaletos = round((strtotime("2006-12-31")-strtotime($mindatum))/(60*60*24*30));
100 if($delkaletos>12) $delkaletos=12;
101 $prenos=id_to_prenos05($cid);
102 $delkapripojeniletos=round(id_to_delkazarok($cid,2006,22,23)/(60*60*24*30));
103 $delkanapajeniletos=round(id_to_delkazarok($cid,2006,5,6)/(60*60*24*30));
104 $delkanapajenirouteruletos=round(id_to_delkazarok($cid,2006,24,25)/(60*60*24*30));
105 $delkakonektivityletos=round(id_to_delkazarok($cid,2006,7,8)/(60*60*24*30));
106# $delkakonektivityletos=id_to_delkakonektivity($cid,2006)/(60*60*24);
107 
108 $castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
109 $castkacelkem=$castkacelkem+$castka;
110 
111 tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);
112 
113 $mindatum="2006-12-31";
114 $ipecka="";
115 $platby="";
116 $lastcid = $vysledek["cid"];
117 }
118 #vytvari se a ukladaji promenne pro clena - muze byt i z vice radku
119 $icons="";
120 if($show=="all" && $vysledek["active"]==2) $icons=$icons.'<img title="Čekatel" src="images/actv.gif">&nbsp;';
121 if($show=="all" && $vysledek["active"]==1) $icons=$icons.'<img title="Člen" src="images/actv.gif">&nbsp;';
122 if($show=="all" && $vysledek["active"]==0) $icons=$icons.'<img title="Pasivní" src="images/passv.gif">&nbsp;';
123 if($vysledek["finance"]==1) $icons=$icons.'<img title="Finance" src="images/dolar.gif">&nbsp;';
124 if($vysledek["internet"]==1) $icons=$icons.'<img title="Internet" src="images/net.gif">&nbsp;';
125 if($vysledek["energy"]==1) $icons=$icons.'<img title="Elektřina sleva" src="images/energysleva.gif">&nbsp;';
126 if($vysledek["energy"]==2) $icons=$icons.'<img title="Elektřina" src="images/energy.gif">&nbsp;';
127 
128 $cid = $vysledek["cid"];
129 $jmeno = $vysledek["jmeno"];
130 $prijmeni = $vysledek["prijmeni"];
131 #pokud je nove datum pripojeni nejakeho IP starsi tak ho vezmem jako nove minimum
132 
133 if ($vysledek["datum"]) if ( strtotime($mindatum) > strtotime($vysledek["datum"])) $mindatum = $vysledek["datum"];
134 $energy = $vysledek["energy"];
135 $internet = $vysledek["internet"];
136 $ipecka = $ipecka." ".$vysledek["ip"];
137 $varsymb = $vysledek["vs"];
138# $platby = $vysledek["hodnota"];
139 if ( $vysledek["fid"] ) $platby = $platby.":".$vysledek["fid"]." ".$vysledek["hodnota"];
140 $mail=$vysledek["email"];
141} # while
142 
143 
144############################################################
145#rozdeli hodnoty pole podle mezery na klic a hodnotu
146#v hodnote jsou dve cisla a prvni je brano jako klic a druhe jako hodnota pod timto klicem
147#zaroven to odstrani i duplikatni hodnoty
148function unikatni_dvojice($array) {
149 $result = array();
150 foreach ($array as $tvalue) {
151 $polozky = explode(" ", $tvalue);
152 $result[$polozky[0]] = $polozky[1];
153 }
154 return $result;
155}
156 
157############################################################
158function tiskni_platby($platby) {
159 #rozdeleni jednotlivych plateb do pole
160 $jednotlive = explode (":",$platby);
161 #odstraneni prvniho pole ktere obsahuje nesmysly
162 $prvni=array_shift($jednotlive);
163 #setrideni a vyhazeni unikatnich
164 $jednotlive=unikatni_dvojice($jednotlive);
165 $pocetplateb = count($jednotlive);
166 $soucet=0;
167 $platby_tisk="";
168 foreach (array_keys($jednotlive) as $key)
169 {
170 $platba="<a class=\"odkaz\" target=\"_self\" href=\"edit_platba.php?id=$key\">$jednotlive[$key]</a> ";
171 $platby_tisk=$platby_tisk."".$platba;
172 #desetinne carky se prevedou na tecky
173 $soucet=$soucet+str_replace(",",".",$jednotlive[$key]);
174 }
175 global $vybranocelkem;
176 $vybranocelkem=$vybranocelkem+$soucet;
177 unset($vybranocelkem);
178 global $vybrano;
179 $vybrano=$soucet;
180 unset($vybrano);
181 if ($pocetplateb) {
182 return str_replace(" konec","",$platby_tisk."konec") ;
183 } else {
184 return "" ;
185 }
186}
187 
188############################################################
189function tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkaletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail) {
190global $vybranocelkem;
191global $vybrano;
192$dot="lan.bmp";
193$alt="Přehled";
194echo '
195<tr>
196 <td bgcolor='.$barva.' class=text>&nbsp;
197 <a class="odkaz" target="_self" href="clen.php?clen='.$lastcid.'">
198 <img src="images/'.$dot.'" title="'.$alt.'" border=0></a>
199 <a class="odkaz" target="_self" href="edit_user.php?id='.$cid.'">'.$lastcid.'</a></td>
200 <td bgcolor='.$barva.' class="text">'.$jmeno.' '.$prijmeni.'</td>
201 
202 <td bgcolor='.$barva.' class="text">
203 ';
204 $from="info@jablonka.cz";
205 $subject = "Členství v o.s. jablonka.cz";
206 $text = "Zdravím,
207dík
208Síma
209 \n";
210 
211 $text = str_replace(" ","%20",$text);
212 $text = str_replace("\n","%0d",$text);
213 if ( @$mail ) {
214 echo '
215 <INPUT type="checkbox" name="to'.$cid.'" value="'.$mail.'">
216 <a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a>
217 <a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext</a> '.$mail.'
218 ';
219}
220 echo '
221 </td>
222 
223 <td bgcolor='.$barva.' class="text">'.sql2datum($mindatum).'</td>
224 <td bgcolor='.$barva.' class="text">'.$delkaletos.'</td>
225 <td bgcolor='.$barva.' class="text">'.$delkakonektivityletos.'</td>
226 <td bgcolor='.$barva.' class="text">'.$delkanapajeniletos.'</td>
227 <td bgcolor='.$barva.' class="text">'.$delkanapajenirouteruletos.'</td>
228 <td bgcolor='.$barva.' class="text">'.$castka.'</td>
229 <td bgcolor='.$barva.' class="text">'.$varsymb.'
230 ';
231 echo '
232 
233 </td>
234 <td bgcolor='.$barva.' class="text">
235 <a class="odkaz" target="_self" href="add_platba.php?clen='.$cid.'&platba=2">+</a> '.tiskni_platby($platby).'
236 </td>
237 <td bgcolor='.$barva.' class="text">'.$vybrano.'</td>
238 <td bgcolor='.$barva.' class="text">'.$prenos.'</td>
239 <td bgcolor='.$barva.' class="text">'.($vybrano+str_replace(",",".",$prenos)-$castka).'
240 ';
241 
242 $from="prispevky@jablonka.cz";
243 $subject = "Členské příspěvky jablonka.cz do konce roku 2006 : $jmeno $prijmeni";
244 $text = "Dobrý den,
245 v tomto mailu Vám posíláme informace o stavu Vašich členských příspěvků pro tento rok.
246 \n";
247 $text .= "Jméno člena : $jmeno $prijmeni\n";
248 $text .= "Číslo konta : 2118436001/2400\n";
249 $text .= "Zbývá zaplatit : ".(-1*($vybrano+str_replace(",",".",$prenos)-$castka))."Kč\n";
250 $text .= "Var.Symbol : ".$varsymb."\n\n";
251 
252 $text .= "Pro minimalizaci bankovních poplatků je dobré platit větší částky najednou - tedy alespoň 300Kč čtvrtletně. Neplaťte prosím, pokud to není nezbytné, menší částky než 300Kč.
253 Pokud Vám zbývá zaplatit méně než 300Kč tak zaplaťte méně a pokud možno v hotovosti na pokladně ebanky - je to bez poplatků.
254 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í.
255 Platit se dá nejen převodem ale i přímo v hotovosti na pobočkách ebanky například u stanic metra Ládví a nebo Vysočanská. Nezapomínejte prosím vyplnit variabilní symbol.
256 
257hezký den
258www.jablonka.cz
259 ";
260 
261 $text = str_replace(" ","%20",$text);
262 $text = str_replace("\n","%0d",$text);
263 $celkemjeden=(-1*($vybrano+str_replace(",",".",$prenos)-$castka));
264 if ( $celkemjeden > 0 ) {
265 echo '
266 <a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a>
267 <a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext </a>
268 ';
269 }
270 echo '
271 
272 </td>
273</tr>
274';
275unset($vybranocelkem);
276unset($vybrano);
277}
278############################################################
279 
280#dotisk posledniho radku
281$celkem++;
282if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
283$delkaletos = round((strtotime("2006-12-31")-strtotime($mindatum))/(60*60*24*30));
284if($delkaletos>12) $delkaletos=12;
285 
286$prenos=id_to_prenos05($cid);
287 
288 $delkapripojeniletos=round(id_to_delkazarok($cid,2006,22,23)/(60*60*24*30));
289 $delkanapajeniletos=round(id_to_delkazarok($cid,2006,5,6)/(60*60*24*30));
290 $delkanapajenirouteruletos=round(id_to_delkazarok($cid,2006,24,25)/(60*60*24*30));
291 $delkakonektivityletos=round(id_to_delkazarok($cid,2006,7,8)/(60*60*24*30));
292 
293 $castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
294 $castkacelkem=$castkacelkem+$castka;
295 
296 
297 
298tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkaletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);
299 
300#konec dotisku posledniho radku
301 
302echo '
303</table></tr></td></table></center>
304</form>
305<br>
306Celkem zobrazeno '.$celkem.' záznamů. Celková částka je '.$castkacelkem.'Kč a zatím se vybralo '.$vybranocelkem.'Kč
307';
308?>
309</body>
310</html>

Powered by WebSVN 2.2.1