WebSVN - is - Rev 7 - /trunk/html/prispevky

is	Subversion Repositories:
[/] [trunk/] [html/] [prispevky_2008.php] - Rev 7 Go to most recent revision
Compare with Previous - Blame - Download
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<style type="text/css" media="screen"> @import "style.css"; </style>
<title>db.jablonka.cz - Příspěvky 2008</title>
</head>
<body topmargin=0 leftmargin=10>
<?
include ("header.htm");
require('grab_globals.lib.php');
include ("fce.php");
$spojeni = MySQL_Connect($db_host, $db_user, $db_pass);
MySQL_Select_DB($db_name);


#pomocne funkce

echo '
<center>';
if(!@$show) $show="all";
if(!@$order) $order="prijmeni";

$where="WHERE c.id>0";
if($show!="all")
{
 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>';
 if(!$order) {
  $order="cid";
   }
  $where="WHERE active=1 AND c.id>0";
}
else
{
 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>';
 if(!$order) {
  $order="cid";
   }
}

#finalni dotaz
$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.* 
                     FROM (((cleni c LEFT JOIN finance f ON c.id = f.clen AND f.platba = 2 AND YEAR(f.datum) = 2008 ) 
                     LEFT JOIN platby p ON f.platba = p.id) LEFT JOIN ukony u ON c.id = u.clen AND u.udalost = 7) 
                     LEFT JOIN ipecka i ON c.id = i.clen AND i.id = u.predmet $where ORDER BY $order");

echo '

<form name="emaily" action="mail_multi.php" method="POST">
<input class=field type="submit" name="OK" value="&nbsp;pošli mail&nbsp;">
<a href="#" onclick="i=0;while ((document.forms[0][i] != null )) {document.forms[0][i].checked = true;i+=1;};">Vybrat vše</a>
<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>

<table width=100% cellspacing=1 border=1>
<tr>
<td bgcolor=#73BE1E>
<table cellspacing=1 cellpadding=1 width=100%>
<tr>
  <td bgcolor=#FFFFFF class=text>
  <a title="seřadit podle ID" class=odkaz href="prispevky_2008.php?show='.$show.'&order=cid">ID</a>&nbsp;
  </td>
  <td bgcolor=#FFFFFF class=text>
  <a title="seřadit podle jména" class=odkaz href="prispevky_2008.php?show='.$show.'&order=jmeno,cid">Jméno</a>&nbsp;
  </td>
  <td bgcolor=#FFFFFF class=text>
  <a title="seřadit podle příjmení" class=odkaz href="prispevky_2008.php?show='.$show.'&order=prijmeni,cid">Příjmení</a>
  </td>
  <td bgcolor=#FFFFFF class=text width=80>
  <a title="seřadit podle aktivity" class=odkaz href="prispevky_2008.php?show='.$show.'&order=active,cid">A</a>
  <a title="seřadit podle financí" class=odkaz href="prispevky_2008.php?show='.$show.'&order=finance,cid">F</a>
  <a title="seřadit podle internetu" class=odkaz href="prispevky_2008.php?show='.$show.'&order=internet,cid">I</a>
  <a title="seřadit podle elektřiny" class=odkaz href="prispevky_2008.php?show='.$show.'&order=energy,cid">E</a>
  </td>
  <td bgcolor=#FFFFFF class=text width=80>email</td>
  <td bgcolor=#FFFFFF class=text width=80>Připojen od</td>
  <td bgcolor=#FFFFFF class=text width=80>Přip. měsíců (50)</td>
  <td bgcolor=#FFFFFF class=text width=80>Inet měsíců (50)</td>
  <td bgcolor=#FFFFFF class=text width=80>Sleva switch (-25)</td>
  <td bgcolor=#FFFFFF class=text width=80>Sleva router (-50)</td>
  <td bgcolor=#FFFFFF class=text width=80>Částka</td>
  <td bgcolor=#FFFFFF class=text width=80>var.symb.</td>
  <td bgcolor=#FFFFFF class=text>Přehled plateb</td>
  <td bgcolor=#FFFFFF class=text>Součet plateb</td>
  <td bgcolor=#FFFFFF class=text>Přenos z roku 2007</td>
  <td bgcolor=#FFFFFF class=text>Celkem</td>
</tr>
';

# nastaveni pocatecnich hodnot pro tisk tabulky
# pokud ma clen vice radku tak se tiskne jen jeden souhrnny
$color=1;
$lastcid=-1;
$celkem=0;
$castkacelkem=0;
$mindatum="2008-12-31";
$ipecka="";
$platby="";
$soucetplateb=0;

while($vysledek=MySQL_Fetch_Array($string)) {
  #pro prvni je treba rovnou priradit lastcid
  if ($lastcid == -1 ) $lastcid = $vysledek["cid"];
  #pokud je uz jiny clen tak se jde na tisk predchoziho
  if ( $lastcid != $vysledek["cid"] ) {
    $celkem++;
    if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
    $delkaletos = round((strtotime("2008-12-31")-strtotime($mindatum))/(60*60*24*30.42));
    if($delkaletos>12) $delkaletos=12;
    $prenos=id_to_prenos07($cid);

    $delkapripojeniletos=round(id_to_delkazarok($cid,2008,22,23)/(60*60*24*30.42));
    $delkanapajeniletos=round(id_to_delkazarok($cid,2008,5,6)/(60*60*24*30.42));
    $delkanapajenirouteruletos=round(id_to_delkazarok($cid,2008,24,25)/(60*60*24*30.42));
    $delkakonektivityletos=round(id_to_delkazarok($cid,2008,7,8)/(60*60*24*30.42));
#    $delkakonektivityletos=id_to_delkakonektivity($cid,2008)/(60*60*24);

    $castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
    $castkacelkem=$castkacelkem+$castka;
    
    
    tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);

    $mindatum="2008-12-31";
    $ipecka="";
    $platby="";
    $soucetplateb=0;
    $lastcid = $vysledek["cid"];
  }
  #vytvari se a ukladaji promenne pro clena - muze byt i z vice radku
  $icons="";
  if($show=="all" && $vysledek["active"]==2) $icons=$icons.'<img title="Čekatel" src="images/actv.gif">&nbsp;';
  if($show=="all" && $vysledek["active"]==1) $icons=$icons.'<img title="Člen" src="images/actv.gif">&nbsp;';
  if($show=="all" && $vysledek["active"]==0) $icons=$icons.'<img title="Pasivní" src="images/passv.gif">&nbsp;';
  if($vysledek["finance"]==1) $icons=$icons.'<img title="Finance" src="images/dolar.gif">&nbsp;';
  if($vysledek["internet"]==1) $icons=$icons.'<img title="Internet" src="images/net.gif">&nbsp;';
  if($vysledek["energy"]==1) $icons=$icons.'<img title="Elektřina sleva" src="images/energysleva.gif">&nbsp;';
  if($vysledek["energy"]==2) $icons=$icons.'<img title="Elektřina" src="images/energy.gif">&nbsp;';

  $cid = $vysledek["cid"];
  $jmeno = $vysledek["jmeno"];
  $prijmeni = $vysledek["prijmeni"];
  #pokud je nove datum pripojeni nejakeho IP starsi tak ho vezmem jako nove minimum
  
  if ($vysledek["datum"]) if ( strtotime($mindatum) > strtotime($vysledek["datum"])) $mindatum = $vysledek["datum"];
  $energy = $vysledek["energy"];
  $internet = $vysledek["internet"];
  $ipecka = $ipecka." ".$vysledek["ip"];
  $varsymb = $vysledek["vs"];
#  $platby = $vysledek["hodnota"];
  if ( $vysledek["fid"] ) {
    $platby = $platby.":".$vysledek["fid"]." ".$vysledek["hodnota"];
    $soucetplateb = 1;
  }
  $mail=$vysledek["email"];
} # while


############################################################
#rozdeli hodnoty pole podle mezery na klic a hodnotu
#v hodnote jsou dve cisla a prvni je brano jako klic a druhe jako hodnota pod timto klicem
#zaroven to odstrani i duplikatni hodnoty
function unikatni_dvojice($array) {
  $result = array();
  foreach ($array as $tvalue) {
     $polozky = explode(" ", $tvalue);
     $result[$polozky[0]] = $polozky[1];
    }
   return $result;
}

############################################################
function tiskni_platby($platby) {
  #rozdeleni jednotlivych plateb do pole
  $jednotlive = explode (":",$platby);
  #odstraneni prvniho pole ktere obsahuje nesmysly
  $prvni=array_shift($jednotlive);
  #setrideni a vyhazeni unikatnich
  $jednotlive=unikatni_dvojice($jednotlive);
  $pocetplateb = count($jednotlive);
  $soucet=0;
  $platby_tisk="";
  foreach (array_keys($jednotlive) as $key)
  {
    $platba="<a class=\"odkaz\" target=\"_self\" href=\"edit_platba.php?id=$key\">$jednotlive[$key]</a> ";
    $platby_tisk=$platby_tisk."".$platba;
    #desetinne carky se prevedou na tecky
    $soucet=$soucet+str_replace(",",".",$jednotlive[$key]);
  }
  global $vybranocelkem;
  $vybranocelkem=$vybranocelkem+$soucet;
  unset($vybranocelkem);
  global $vybrano;
  $vybrano=$soucet;
  unset($vybrano);
  if ($pocetplateb) {
    return str_replace(" konec","",$platby_tisk."konec") ;
  } else {
    return "" ;
  }
}

############################################################
function tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkaletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail) {
global $vybranocelkem;
global $vybrano;
$dot="lan.bmp";
$alt="Přehled";
echo '
<tr>
  <td bgcolor='.$barva.' class=text>&nbsp;
    <a class="odkaz" target="_self" href="clen.php?clen='.$lastcid.'">
    <img src="images/'.$dot.'" title="'.$alt.'" border=0></a>
  <a class="odkaz" target="_self" href="edit_user.php?id='.$cid.'">'.$lastcid.'</a></td>
  <td bgcolor='.$barva.' class="text">'.$jmeno.'</td>
  <td bgcolor='.$barva.' class="text">'.$prijmeni.'</td>
  <td bgcolor='.$barva.' class="text">'.$icons.'</td>

  <td bgcolor='.$barva.' class="text">
  ';
  $from="info@jablonka.cz";
  $subject = "Členství v o.s. jablonka.cz";
  $text = "Zdravím,
dík
Síma
  \n";

  $text = str_replace(" ","%20",$text);
  $text = str_replace("\n","%0d",$text);
  if ( @$mail ) {
  echo '
  <INPUT type="checkbox" name="to'.$cid.'" value="'.$mail.'">
  <a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a>
  <a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext</a> '.$mail.'
  ';
}
  echo '
  </td>

  <td bgcolor='.$barva.' class="text">'.sql2datum($mindatum).'</td>
  <td bgcolor='.$barva.' class="text">'.$delkaletos.'</td>
  <td bgcolor='.$barva.' class="text">'.$delkakonektivityletos.'</td>
  <td bgcolor='.$barva.' class="text">'.$delkanapajeniletos.'</td>
  <td bgcolor='.$barva.' class="text">'.$delkanapajenirouteruletos.'</td>
  <td bgcolor='.$barva.' class="text">'.$castka.'</td>
  <td bgcolor='.$barva.' class="text">'.$varsymb.'
  ';
  echo '

  </td>
  <td bgcolor='.$barva.' class="text">
  <a class="odkaz" target="_self" href="add_platba.php?clen='.$cid.'&platba=2">+</a> '.tiskni_platby($platby).'
  </td>
  <td bgcolor='.$barva.' class="text">'.$vybrano.'</td>
  <td bgcolor='.$barva.' class="text">'.$prenos.'</td>
  <td bgcolor='.$barva.' class="text">'.($vybrano+str_replace(",",".",$prenos)-$castka).'
  ';
  
  $from="info@jablonka.cz";
  $subject = "Výzva k zaplacení členských příspěvků jablonka.cz : $jmeno $prijmeni";
  $text = "Dobrý den,
  v tomto mailu Vám posíláme informace o stavu Vašich členských příspěvků pro tento rok.
  \n";
  $text .= "Jméno člena    : $jmeno $prijmeni\n";
  $text .= "Číslo konta    : 2118436001/5500\n";
  $text .= "Zbývá zaplatit : ".(-1*($vybrano+str_replace(",",".",$prenos)-$castka))."Kč\n";
  $text .= "Var.Symbol     : ".$varsymb."\n\n";

  $text .= "Pro minimalizaci bankovních poplatků plaťte větší částky najednou - tedy alespoň 300Kč čtvrtletně.
  
  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í,
  ale nejlépe bude pokud zaplatíte jednou jedinou platbou až do konce roku.
  
  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í.
  Nezapomínejte prosím vyplnit variabilní symbol.
  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.

hezký den
www.jablonka.cz
";

  $text = str_replace(" ","%20",$text);
  $text = str_replace("\n","%0d",$text);
  $celkemjeden=(-1*($vybrano+str_replace(",",".",$prenos)-$castka));
  $aktualnidatum=date("Y-m-d");
  #tohle spocita pocet mesicu ktere v tomto roce nemusi byt jeste zaplaceny
  #je to pouzito k rozliseni kdo tech kteri maji zaplaceno alespon tri mesice dopredu
  $budoucimesice = round((strtotime("2008-12-31")-strtotime($aktualnidatum))/(60*60*24*30.42));
  #odpocet se stanovi tak aby lidi meli dopredu placeno aspon 300Kc
  $odpocet=$budoucimesice*100-300;
  if ( ($celkemjeden-$odpocet) > 0 ) {
  echo '
  <a href="mail.php?to='.$mail.'&subj='.$subject.'&from='.$from.'&text='.$text.'">int</a>
  <a href="mailto:'.$mail.'?subject='.$subject.'&body='.$text.'">ext </a>
  ';
  }
  echo '
  
  </td>
</tr>
';
unset($vybranocelkem);
unset($vybrano);
}
############################################################

#dotisk posledniho radku
$celkem++;
if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }

    $delkaletos = round((strtotime("2008-12-31")-strtotime($mindatum))/(60*60*24*30.42));
    if($delkaletos>12) $delkaletos=12;
    $prenos=id_to_prenos07($cid);
    $delkapripojeniletos=round(id_to_delkazarok($cid,2008,22,23)/(60*60*24*30.42));
    $delkanapajeniletos=round(id_to_delkazarok($cid,2008,5,6)/(60*60*24*30.42));
    $delkanapajenirouteruletos=round(id_to_delkazarok($cid,2008,24,25)/(60*60*24*30.42));
    $delkakonektivityletos=round(id_to_delkazarok($cid,2008,7,8)/(60*60*24*30.42));

    $castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
    $castkacelkem=$castkacelkem+$castka;

tisk_radku($barva,$cid,$lastcid,$jmeno,$prijmeni,$icons,$mindatum,$delkapripojeniletos,$delkanapajeniletos,$delkanapajenirouteruletos,$delkakonektivityletos,$castka,$varsymb,$platby,$prenos,$mail);

#konec dotisku posledniho radku

echo '
</table></tr></td></table></center>
</form>
<br>
Celkem zobrazeno '.$celkem.' záznamů. Celková částka je '.$castkacelkem.'Kč a zatím se vybralo '.$vybranocelkem.'Kč
';
?>
</body>
</html>