jablonka.czprosek.czf

is

 Subversion Repositories:
[/] [trunk/] [html/] [prispevky_2007.php] - Blame information for rev 3

 

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

Powered by WebSVN 2.2.1