jablonka.czprosek.czf

is

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

Powered by WebSVN 2.2.1