1 | 2 | simandl | <!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 2008</title> |
7 | | | </head> |
8 | | | <link rel="stylesheet" type="text/css" href="style.css"> |
9 | | | </head> |
10 | | | <body topmargin=0 leftmargin=10> |
11 | | | <? |
12 | | | include ("header.htm"); |
13 | | | require('grab_globals.lib.php'); |
14 | | | include ("fce.php"); |
15 | | | $spojeni = MySQL_Connect($db_host, $db_user, $db_pass); |
16 | | | MySQL_Select_DB($db_name); |
17 | | | |
18 | | | |
19 | | | #pomocne funkce |
20 | | | |
21 | | | echo ' |
22 | | | <center>'; |
23 | | | if(!@$show) $show="all"; |
24 | | | if(!@$order) $order="prijmeni"; |
25 | | | |
26 | | | $aktualnidatum=date("Y-m-d"); |
27 | | | $budoucimesice = round((strtotime("2008-12-31")-strtotime($aktualnidatum))/(60*60*24*30.42)); |
28 | | | #odpocet se stanovi tak aby lidi meli dopredu placeno aspon 300Kc |
29 | | | $zbytekdokonceroku = -$budoucimesice*100+200; |
30 | | | $zbytekdokonceroku = -400; |
31 | | | |
32 | | | $where="WHERE c.id>0"; |
33 | | | if($show!="all") |
34 | | | { |
35 | | | echo '<b>Seznam příspěvků aktivních uživatelů za rok 2008 dlužících více než '.-$zbytekdokonceroku.'Kč:</b> <a href="?show=all&order='.$order.'" class=odkaz>zobrazit vše</a>'; |
36 | | | if(!$order) { |
37 | | | $order="cid"; |
38 | | | } |
39 | | | $where="WHERE active=1 AND c.id>0"; |
40 | | | } |
41 | | | else |
42 | | | { |
43 | | | echo '<b>Seznam příspěvků všech uživatelů za rok 2008 dlužících více než '.-$zbytekdokonceroku.'Kč:</b> <a href="?show=active&order='.$order.'" class=odkaz>zobrazit pouze aktivní</a>'; |
44 | | | if(!$order) { |
45 | | | $order="cid"; |
46 | | | } |
47 | | | } |
48 | | | |
49 | | | |
50 | | | #finalni dotaz |
51 | | | $string=MySQL_Query("SELECT c.id as cid, c.*, f.id as fid, f.* , u.id as uid, u.datum as udatum, u.* |
52 | | | FROM ((cleni c LEFT JOIN finance f ON c.id = f.clen AND f.platba = 2 AND YEAR(f.datum) = 2008 ) |
53 | | | LEFT JOIN ukony u ON c.id = u.clen AND u.udalost = 7) |
54 | | | $where ORDER BY $order"); |
55 | | | |
56 | | | echo ' |
57 | | | |
58 | | | <form name="emaily" action="mail_multi.php" method="POST"> |
59 | | | <input class=field type="submit" name="OK" value=" pošli mail "> |
60 | | | <a href="#" onclick="i=0;while ((document.forms[0][i] != null )) {document.forms[0][i].checked = true;i+=1;};">Vybrat vše</a> |
61 | | | <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> |
62 | | | |
63 | | | <table width=100% cellspacing=1 border=1> |
64 | | | <tr> |
65 | | | <td bgcolor=#73BE1E> |
66 | | | <table cellspacing=1 cellpadding=1 width=100%> |
67 | | | <tr> |
68 | | | <td bgcolor=#FFFFFF class=text> |
69 | | | <a title="seřadit podle ID" class=odkaz href="?show='.$show.'&order=cid">ID</a> |
70 | | | </td> |
71 | | | <td bgcolor=#FFFFFF class=text> |
72 | | | <a title="seřadit podle jména" class=odkaz href="?show='.$show.'&order=jmeno,cid">Jméno</a> |
73 | | | </td> |
74 | | | <td bgcolor=#FFFFFF class=text> |
75 | | | <a title="seřadit podle příjmení" class=odkaz href="?show='.$show.'&order=prijmeni,cid">Příjmení</a> |
76 | | | </td> |
77 | | | <td bgcolor=#FFFFFF class=text width=80> |
78 | | | <a title="seřadit podle aktivity" class=odkaz href="?show='.$show.'&order=active,cid">A</a> |
79 | | | <a title="seřadit podle financí" class=odkaz href="?show='.$show.'&order=finance,cid">F</a> |
80 | | | <a title="seřadit podle internetu" class=odkaz href="?show='.$show.'&order=internet,cid">I</a> |
81 | | | <a title="seřadit podle elektřiny" class=odkaz href="?show='.$show.'&order=energy,cid">E</a> |
82 | | | </td> |
83 | | | <td bgcolor=#FFFFFF class=text width=80>email</td> |
84 | | | <td bgcolor=#FFFFFF class=text width=80>Připojen od</td> |
85 | | | <td bgcolor=#FFFFFF class=text width=80>Přip. (50)</td> |
86 | | | <td bgcolor=#FFFFFF class=text width=80>Inet (50)</td> |
87 | | | <td bgcolor=#FFFFFF class=text width=80>switch (-25)</td> |
88 | | | <td bgcolor=#FFFFFF class=text width=80>router (-50)</td> |
89 | | | <td bgcolor=#FFFFFF class=text width=80>Částka</td> |
90 | | | <td bgcolor=#FFFFFF class=text width=80>var.symb.</td> |
91 | | | <td bgcolor=#FFFFFF class=text width=80>IP</td> |
92 | | | <td bgcolor=#FFFFFF class=text>Přehled plateb</td> |
93 | | | <td bgcolor=#FFFFFF class=text>Součet plateb</td> |
94 | | | <td bgcolor=#FFFFFF class=text>Přenos z roku 2007</td> |
95 | | | <td bgcolor=#FFFFFF class=text>Celkem</td> |
96 | | | </tr> |
97 | | | '; |
98 | | | |
99 | | | # nastaveni pocatecnich hodnot pro tisk tabulky |
100 | | | # pokud ma clen vice radku tak se tiskne jen jeden souhrnny |
101 | | | $color=1; |
102 | | | $lastcid=-1; |
103 | | | $celkem=0; |
104 | | | $castkacelkem=0; |
105 | | | $mindatum="2008-12-31"; |
106 | | | $ipecka=""; |
107 | | | $platby=""; |
108 | | | $soucetplateb=0; |
109 | | | |
110 | | | while($vysledek=MySQL_Fetch_Array($string)) { |
111 | | | #pro prvni je treba rovnou priradit lastcid |
112 | | | if ($lastcid == -1 ) $lastcid = $vysledek["cid"]; |
113 | | | #pokud je uz jiny clen tak se jde na tisk predchoziho |
114 | | | if ( $lastcid != $vysledek["cid"] ) { |
115 | | | $delkaletos = round((strtotime("2008-12-31")-strtotime($mindatum))/(60*60*24*30.42)); |
116 | | | if($delkaletos>12) $delkaletos=12; |
117 | | | $prenos=id_to_prenos07($cid); |
118 | | | |
119 | | | $delkapripojeniletos=round(id_to_delkazarok($cid,2008,22,23)/(60*60*24*30.42)); |
120 | | | $delkanapajeniletos=round(id_to_delkazarok($cid,2008,5,6)/(60*60*24*30.42)); |
121 | | | $delkanapajenirouteruletos=round(id_to_delkazarok($cid,2008,24,25)/(60*60*24*30.42)); |
122 | | | $delkakonektivityletos=round(id_to_delkazarok($cid,2008,7,8)/(60*60*24*30.42)); |
123 | | | |
124 | | | $castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos); |
125 | | | |
126 | | | $stavkdnesku= -$castka+$prenos+$soucetplateb; |
127 | | | |
128 | | | if ($stavkdnesku <= $zbytekdokonceroku ) { |
129 | | | $celkem++; |
130 | | | $castkacelkem+=$castka; |
131 | | | # echo "<tr><td colspan=16> stav $stavkdnesku castka $castka prenos $prenos soucetplateb $soucetplateb platby $platby</td></tr>"; |
132 | | | if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; } |
133 | | | tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail); |
134 | | | } |
135 | | | |
136 | | | $mindatum="2008-12-31"; |
137 | | | $ipecka=""; |
138 | | | $platby=""; |
139 | | | $soucetplateb=0; |
140 | | | $lastcid = $vysledek["cid"]; |
141 | | | } |
142 | | | #vytvari se a ukladaji promenne pro clena - muze byt i z vice radku |
143 | | | $icons=""; |
144 | | | if($show=="all" && $vysledek["active"]==2) $icons=$icons.'<img title="Čekatel" src="images/actv.gif"> '; |
145 | | | if($show=="all" && $vysledek["active"]==1) $icons=$icons.'<img title="Člen" src="images/actv.gif"> '; |
146 | | | if($show=="all" && $vysledek["active"]==0) $icons=$icons.'<img title="Pasivní" src="images/passv.gif"> '; |
147 | | | if($vysledek["finance"]==1) $icons=$icons.'<img title="Finance" src="images/dolar.gif"> '; |
148 | | | if($vysledek["internet"]==1) $icons=$icons.'<img title="Internet" src="images/net.gif"> '; |
149 | | | if($vysledek["energy"]==1) $icons=$icons.'<img title="Elektřina sleva" src="images/energysleva.gif"> '; |
150 | | | if($vysledek["energy"]==2) $icons=$icons.'<img title="Elektřina" src="images/energy.gif"> '; |
151 | | | |
152 | | | $cid = $vysledek["cid"]; |
153 | | | $jmeno = $vysledek["jmeno"]; |
154 | | | $prijmeni = $vysledek["prijmeni"]; |
155 | | | |
156 | | | #pokud je nove datum pripojeni nejakeho IP starsi tak ho vezmem jako nove minimum |
157 | | | if ($vysledek["datum"]) if ( strtotime($mindatum) > strtotime($vysledek["datum"])) $mindatum = $vysledek["datum"]; |
158 | | | |
159 | | | $energy = $vysledek["energy"]; |
160 | | | $internet = $vysledek["internet"]; |
161 | | | $ipecka = $ipecka." ".@$vysledek["ip"]; |
162 | | | $varsymb = $vysledek["vs"]; |
163 | | | # $platby = $vysledek["hodnota"]; |
164 | | | if ( $vysledek["fid"] ) { |
165 | | | $platby = $platby.":".$vysledek["fid"]." ".$vysledek["hodnota"]; |
166 | | | $soucetplateb = $soucetplateb + $vysledek["hodnota"]; |
167 | | | } |
168 | | | $mail=$vysledek["email"]; |
169 | | | } # while |
170 | | | |
171 | | | |
172 | | | ############################################################ |
173 | | | #rozdeli hodnoty pole podle mezery na klic a hodnotu |
174 | | | #v hodnote jsou dve cisla a prvni je brano jako klic a druhe jako hodnota pod timto klicem |
175 | | | #zaroven to odstrani i duplikatni hodnoty |
176 | | | function unikatni_dvojice($array) { |
177 | | | $result = array(); |
178 | | | foreach ($array as $tvalue) { |
179 | | | $polozky = explode(" ", $tvalue); |
180 | | | $result[$polozky[0]] = $polozky[1]; |
181 | | | } |
182 | | | return $result; |
183 | | | } |
184 | | | |
185 | | | ############################################################ |
186 | | | function tiskni_platby($platby) { |
187 | | | #rozdeleni jednotlivych plateb do pole |
188 | | | $jednotlive = explode (":",$platby); |
189 | | | #odstraneni prvniho pole ktere obsahuje nesmysly |
190 | | | $prvni=array_shift($jednotlive); |
191 | | | #setrideni a vyhazeni unikatnich |
192 | | | $jednotlive=unikatni_dvojice($jednotlive); |
193 | | | $pocetplateb = count($jednotlive); |
194 | | | $soucet=0; |
195 | | | $platby_tisk=""; |
196 | | | foreach (array_keys($jednotlive) as $key) |
197 | | | { |
198 | | | $platba="<a class=\"odkaz\" target=\"_self\" href=\"edit_platba.php?id=$key\">$jednotlive[$key]</a> "; |
199 | | | $platby_tisk=$platby_tisk."".$platba; |
200 | | | #desetinne carky se prevedou na tecky |
201 | | | $soucet=$soucet+str_replace(",",".",$jednotlive[$key]); |
202 | | | } |
203 | | | global $vybranocelkem; |
204 | | | $vybranocelkem=$vybranocelkem+$soucet; |
205 | | | unset($vybranocelkem); |
206 | | | global $vybrano; |
207 | | | $vybrano=$soucet; |
208 | | | unset($vybrano); |
209 | | | if ($pocetplateb) { |
210 | | | return str_replace(" konec","",$platby_tisk."konec") ; |
211 | | | } else { |
212 | | | return "" ; |
213 | | | } |
214 | | | } |
215 | | | |
216 | | | ############################################################ |
217 | | | function tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkaletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail) { |
218 | | | global $vybranocelkem; |
219 | | | global $vybrano; |
220 | | | $dot="lan.bmp"; |
221 | | | $alt="Přehled"; |
222 | | | echo ' |
223 | | | <tr> |
224 | | | <td bgcolor='.$barva.' class=text> |
225 | | | <a class="odkaz" target="_self" href="clen.php?clen='.$lastcid.'"> |
226 | | | <img src="images/'.$dot.'" title="'.$alt.'" border=0></a> |
227 | | | <a class="odkaz" target="_self" href="edit_user.php?id='.$cid.'">'.$lastcid.'</a></td> |
228 | | | <td bgcolor='.$barva.' class="text">'.$jmeno.'</td> |
229 | | | <td bgcolor='.$barva.' class="text">'.$prijmeni.'</td> |
230 | | | <td bgcolor='.$barva.' class="text">'.$icons.'</td> |
231 | | | |
232 | | | <td bgcolor='.$barva.' class="text"> |
233 | | | '; |
234 | | | $from="info@jablonka.cz"; |
235 | | | $subject = "Členství v o.s. jablonka.cz"; |
236 | | | $text = "Zdravím, |
237 | | | dík |
238 | | | Síma |
239 | | | \n"; |
240 | | | |
241 | | | $text = str_replace(" ","%20",$text); |
242 | | | $text = str_replace("\n","%0d",$text); |
243 | | | if ( @$mail ) { |
244 | | | echo ' |
245 | | | <INPUT type="checkbox" name="to'.$cid.'" value="'.$mail.'"> |
246 | | | <a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a> |
247 | | | <a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext</a> '.$mail.' |
248 | | | '; |
249 | | | } |
250 | | | echo ' |
251 | | | </td> |
252 | | | |
253 | | | <td bgcolor='.$barva.' class="text">'.sql2datum($mindatum).'</td> |
254 | | | <td bgcolor='.$barva.' class="text">'.$delkaletos.'</td> |
255 | | | <td bgcolor='.$barva.' class="text">'.$delkakonektivityletos.'</td> |
256 | | | <td bgcolor='.$barva.' class="text">'.$delkanapajeniletos.'</td> |
257 | | | <td bgcolor='.$barva.' class="text">'.$delkanapajenirouteruletos.'</td> |
258 | | | <td bgcolor='.$barva.' class="text">'.$castka.'</td> |
259 | | | <td bgcolor='.$barva.' class="text">'.$varsymb.' |
260 | | | <td bgcolor='.$barva.' class="text">'; |
261 | | | |
262 | | | $ipecka=clen_to_ipecka($lastcid); |
263 | | | foreach ($ipecka as $key => $value) { |
264 | | | if (last_ip_action($key) == 8) { |
265 | | | echo "<strike><a href=edit_ip.php?id=$key>$value</a></strike><br>\n"; |
266 | | | } else |
267 | | | { |
268 | | | #echo last_ip_action($user["iid"]); |
269 | | | echo "<a href=edit_ip.php?id=$key>$value</a><br>\n"; |
270 | | | } |
271 | | | } |
272 | | | |
273 | | | echo ' |
274 | | | </td> |
275 | | | <td bgcolor='.$barva.' class="text"> |
276 | | | <a class="odkaz" target="_self" href="add_platba.php?clen='.$cid.'&platba=2">+</a> '.tiskni_platby($platby).' |
277 | | | </td> |
278 | | | <td bgcolor='.$barva.' class="text">'.$vybrano.'</td> |
279 | | | <td bgcolor='.$barva.' class="text">'.$prenos.'</td> |
280 | | | <td bgcolor='.$barva.' class="text">'.($vybrano+str_replace(",",".",$prenos)-$castka).' |
281 | | | '; |
282 | | | |
283 | | | $from="info@jablonka.cz"; |
284 | | | $subject = "Výzva k zaplacení členských příspěvků jablonka.cz : $jmeno $prijmeni"; |
285 | | | $text = "Dobrý den, |
286 | | | v tomto mailu Vám posíláme informace o stavu Vašich členských příspěvků pro tento rok. |
287 | | | \n"; |
288 | | | $text .= "Jméno člena : $jmeno $prijmeni\n"; |
289 | | | $text .= "Číslo konta : 2118436001/5500\n"; |
290 | | | $text .= "Zbývá zaplatit : ".(-1*($vybrano+str_replace(",",".",$prenos)-$castka))."Kč\n"; |
291 | | | $text .= "Var.Symbol : ".$varsymb."\n\n"; |
292 | | | |
293 | | | $text .= "Pro minimalizaci bankovních poplatků plaťte větší částky najednou - tedy alespoň 300Kč čtvrtletně. |
294 | | | |
295 | | | 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í, |
296 | | | ale nejlépe bude pokud zaplatíte jednou jedinou platbou až do konce roku. |
297 | | | |
298 | | | 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í. |
299 | | | Nezapomínejte prosím vyplnit variabilní symbol. |
300 | | | 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. |
301 | | | |
302 | | | Rada sdružení 21.4.2008 rozhodla, že po tomto upozornění vám bude omezena rychlost v naší síti |
303 | | | viz http://jablonka.cz/soubory/os/zapisy/zapis_rada_20080421.pdf |
304 | | | |
305 | | | hezký den |
306 | | | www.jablonka.cz |
307 | | | "; |
308 | | | |
309 | | | $text = str_replace(" ","%20",$text); |
310 | | | $text = str_replace("\n","%0d",$text); |
311 | | | $celkemjeden=(-1*($vybrano+str_replace(",",".",$prenos)-$castka)); |
312 | | | $aktualnidatum=date("Y-m-d"); |
313 | | | #tohle spocita pocet mesicu ktere v tomto roce nemusi byt jeste zaplaceny |
314 | | | #je to pouzito k rozliseni kdo tech kteri maji zaplaceno alespon tri mesice dopredu |
315 | | | $budoucimesice = round((strtotime("2008-12-31")-strtotime($aktualnidatum))/(60*60*24*30.42)); |
316 | | | #odpocet se stanovi tak aby lidi meli dopredu placeno aspon 300Kc |
317 | | | $odpocet=$budoucimesice*100-300; |
318 | | | if ( ($celkemjeden-$odpocet) > 0 ) { |
319 | | | echo ' |
320 | | | <a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a> |
321 | | | <a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext2 </a> |
322 | | | '; |
323 | | | } |
324 | | | echo ' |
325 | | | |
326 | | | </td> |
327 | | | </tr> |
328 | | | '; |
329 | | | unset($vybranocelkem); |
330 | | | unset($vybrano); |
331 | | | } |
332 | | | ############################################################ |
333 | | | |
334 | | | #dotisk posledniho radku |
335 | | | if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; } |
336 | | | |
337 | | | $delkaletos = round((strtotime("2008-12-31")-strtotime($mindatum))/(60*60*24*30.42)); |
338 | | | if($delkaletos>12) $delkaletos=12; |
339 | | | $prenos=id_to_prenos07($cid); |
340 | | | $delkapripojeniletos=round(id_to_delkazarok($cid,2008,22,23)/(60*60*24*30.42)); |
341 | | | $delkanapajeniletos=round(id_to_delkazarok($cid,2008,5,6)/(60*60*24*30.42)); |
342 | | | $delkanapajenirouteruletos=round(id_to_delkazarok($cid,2008,24,25)/(60*60*24*30.42)); |
343 | | | $delkakonektivityletos=round(id_to_delkazarok($cid,2008,7,8)/(60*60*24*30.42)); |
344 | | | # $delkakonektivityletos=id_to_delkakonektivity($cid,2008)/(60*60*24); |
345 | | | |
346 | | | $castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos); |
347 | | | |
348 | | | $stavkdnesku= -$castka+$prenos+$soucetplateb; |
349 | | | if ($stavkdnesku <= $zbytekdokonceroku ) { |
350 | | | $celkem++; |
351 | | | $castkacelkem+=$castka; |
352 | | | #echo "<tr><td colspan=16> stav $stavkdnesku castka $castka prenos $prenos soucetplateb $soucetplateb platby $platby</td></tr>"; |
353 | | | if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; } |
354 | | | tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail); |
355 | | | } |
356 | | | |
357 | | | # if ($castka == $soucetplateb) { |
358 | | | # if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; } |
359 | | | # tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail); |
360 | | | # } |
361 | | | |
362 | | | #tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail); |
363 | | | |
364 | | | #konec dotisku posledniho radku |
365 | | | |
366 | | | echo ' |
367 | | | </table></tr></td></table></center> |
368 | | | </form> |
369 | | | <br> |
370 | | | Celkem zobrazeno '.$celkem.' záznamů. Celková částka je '.$castkacelkem.'Kč a zatím se vybralo '.$vybranocelkem.'Kč |
371 | | | '; |
372 | | | ?> |
373 | | | </body> |
374 | | | </html> |