ID
Jméno
Příjmení
A
F
I
E
email
Připojen od
Přip. (50)
Inet (50)
switch (-25)
router (-50)
Částka
var.symb.
IP
Přehled plateb
Součet plateb
Přenos z roku 2006
Celkem
';
# 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="2007-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++;
$delkaletos = round((strtotime("2007-12-31")-strtotime($mindatum))/(60*60*24*30));
if($delkaletos>12) $delkaletos=12;
$prenos=id_to_prenos06($cid);
$delkapripojeniletos=round(id_to_delkazarok($cid,2007,22,23)/(60*60*24*30));
$delkanapajeniletos=round(id_to_delkazarok($cid,2007,5,6)/(60*60*24*30));
$delkanapajenirouteruletos=round(id_to_delkazarok($cid,2007,24,25)/(60*60*24*30));
$delkakonektivityletos=round(id_to_delkazarok($cid,2007,7,8)/(60*60*24*30));
# $delkakonektivityletos=id_to_delkakonektivity($cid,2007)/(60*60*24);
$castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
$castkacelkem=$castkacelkem+$castka;
$stavkdnesku= -$castka+$prenos+$soucetplateb;
if (($stavkdnesku < 0 ) || ($stavkdnesku > 0 )) {
#echo " stav $stavkdnesku castka $castka prenos $prenos soucetplateb $soucetplateb platby $platby
'.$lastcid.'
'.$jmeno.'
'.$prijmeni.'
'.$icons.'
';
if ( @$mail ) {
echo '
int
ext '.$mail.'
';
}
echo '
'.sql2datum($mindatum).'
'.$delkaletos.'
'.$delkakonektivityletos.'
'.$delkanapajeniletos.'
'.$delkanapajenirouteruletos.'
'.$castka.'
'.$varsymb.'
';
$ipecka=clen_to_ipecka($lastcid);
foreach ($ipecka as $key => $value) {
if (last_ip_action($key) == 8) {
echo "$value $value
+ '.tiskni_platby($platby).'
'.$vybrano.'
'.$prenos.'
'.($vybrano+str_replace(",",".",$prenos)-$castka).'
z
do
';
echo '
';
}
$mindatum="2007-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.'$jednotlive[$key] ";
$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 '
'.$lastcid.'
'.$jmeno.'
'.$prijmeni.'
'.$icons.'
';
$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 '
int
ext '.$mail.'
';
}
echo '
'.sql2datum($mindatum).'
'.$delkaletos.'
'.$delkakonektivityletos.'
'.$delkanapajeniletos.'
'.$delkanapajenirouteruletos.'
'.$castka.'
'.$varsymb.'
';
echo '
+ '.tiskni_platby($platby).'
'.$vybrano.'
'.$prenos.'
'.($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/2400\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("2007-12-31")-strtotime($aktualnidatum))/(60*60*24*30));
#odpocet se stanovi tak aby lidi meli dopredu placeno aspon 300Kc
$odpocet=$budoucimesice*100-300;
if ( ($celkemjeden-$odpocet) > 0 ) {
echo '
int
ext
';
}
echo '
';
unset($vybranocelkem);
unset($vybrano);
}
############################################################
#dotisk posledniho radku
$celkem++;
if($color==0) { $color=1; $barva="#E6E4E4"; } else { $color=0; $barva="#FFFFFF"; }
$delkaletos = round((strtotime("2007-12-31")-strtotime($mindatum))/(60*60*24*30));
if($delkaletos>12) $delkaletos=12;
$prenos=id_to_prenos06($cid);
$delkapripojeniletos=round(id_to_delkazarok($cid,2007,22,23)/(60*60*24*30));
$delkanapajeniletos=round(id_to_delkazarok($cid,2007,5,6)/(60*60*24*30));
$delkanapajenirouteruletos=round(id_to_delkazarok($cid,2007,24,25)/(60*60*24*30));
$delkakonektivityletos=round(id_to_delkazarok($cid,2007,7,8)/(60*60*24*30));
# $delkakonektivityletos=id_to_delkakonektivity($cid,2007)/(60*60*24);
$castka = ( 50 * $delkapripojeniletos - 25 * $delkanapajeniletos - 50 * $delkanapajenirouteruletos + 50 * $delkakonektivityletos);
$castkacelkem=$castkacelkem+$castka;
$stavkdnesku= -$castka+$prenos+$soucetplateb;
if ($stavkdnesku < 0 ) {
#echo " stav $stavkdnesku castka $castka prenos $prenos soucetplateb $soucetplateb platby $platby