jablonka.czprosek.czf

is

 Subversion Repositories:
[/] [trunk/] [html/] [prispevky_2008golem.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 2008</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 
19#pomocne funkce
20 
21echo '
22<center>';
23if(!@$show) $show="all";
24if(!@$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";
33if($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}
41else
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 
56echo '
57 
58<form name="emaily" action="mail_multi.php" method="POST">
59<input class=field type="submit" name="OK" value="&nbsp;pošli mail&nbsp;">
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>&nbsp;
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>&nbsp;
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 
110while($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">&nbsp;';
145 if($show=="all" && $vysledek["active"]==1) $icons=$icons.'<img title="Člen" src="images/actv.gif">&nbsp;';
146 if($show=="all" && $vysledek["active"]==0) $icons=$icons.'<img title="Pasivní" src="images/passv.gif">&nbsp;';
147 if($vysledek["finance"]==1) $icons=$icons.'<img title="Finance" src="images/dolar.gif">&nbsp;';
148 if($vysledek["internet"]==1) $icons=$icons.'<img title="Internet" src="images/net.gif">&nbsp;';
149 if($vysledek["energy"]==1) $icons=$icons.'<img title="Elektřina sleva" src="images/energysleva.gif">&nbsp;';
150 if($vysledek["energy"]==2) $icons=$icons.'<img title="Elektřina" src="images/energy.gif">&nbsp;';
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
176function 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############################################################
186function 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############################################################
217function tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkaletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail) {
218global $vybranocelkem;
219global $vybrano;
220$dot="lan.bmp";
221$alt="Přehled";
222echo '
223<tr>
224 <td bgcolor='.$barva.' class=text>&nbsp;
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,
237dík
238Sí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 
305hezký den
306www.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';
329unset($vybranocelkem);
330unset($vybrano);
331}
332############################################################
333 
334#dotisk posledniho radku
335if($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 
366echo '
367</table></tr></td></table></center>
368</form>
369<br>
370Celkem zobrazeno '.$celkem.' záznamů. Celková částka je '.$castkacelkem.'Kč a zatím se vybralo '.$vybranocelkem.'Kč
371';
372?>
373</body>
374</html>

Powered by WebSVN 2.2.1