jb-data.de/scripts/list_h_saso_tmp_zsh.php
2025-08-11 22:23:30 +02:00

534 lines
No EOL
25 KiB
PHP

<?php
require('fpdf.php');
error_reporting(E_ALL);
error_reporting(E_ALL ^ E_NOTICE);
// Melde alle PHP Fehler
error_reporting(1);
$temp = strtotime("next Sunday");
$stag=date('d', $temp);
$smonat=date('m', $temp);
$sjahr=date('Y', $temp);
$sasodatum=$stag.".".$smonat.".".$sjahr;
echo $sasodatum;
if(isset($_GET['id'])) {
$saso_tour = $GLOBALS['mysql']->query_single("SELECT * FROM torenplan WHERE tour='".$_GET['id']."' and tag='".$stag."' and monat='".$smonat."' and jahr='".$sjahr."'");
$mengeabl=$saso_tour['num_rows'];
$lname=$saso_tour['tour'];
echo "<pre>"; print_r($saso_tour); echo "</pre>";
//----------------------------
class PDF extends FPDF {
function Footer() {
$this->SetY(-15);
$this->SetFont('Helvetica','I',8);
$this->Cell(190,5,'Zustellservice Heinicke GmbH - Handelsplatz 4 - 04319 Leipzig *** ZSH - interne Liste - Nach Gebrauch vernichten *** F. T.2014','1','0','C','0');
}
}
$pdf = new PDF('P','mm','A4');
$pdf->AddPage();
// blau (0,160,230)
// Orange (240,150, 0)
// grau (200,200,200)
$key=0; $abl=0;
// $rs_tour = $GLOBALS['mysql']->query_single("SELECT * FROM zsh_touren WHERE id='".$_POST['ansicht']."'");
// $lnummer=$rs_tour['nummer'];
// $lname=$rs_tour['tour'];
$pdf->SetFont('Helvetica','B',14);
// $pdf->SetTextColor(0,160,230);
$pdf->SetFillColor(200,200,200);
$pdf->Cell(60,6,($lname),'0','0','C','1');
$pdf->Cell(50,6,' ','0','0','C','0'); $pdf->SetFont('Helvetica','',10);
$pdf->Cell(30,6,'Listennr.: '.($smonat),'0','0','C','1');
$pdf->Cell(8,6,' ','0','0','C','0');
$pdf->Cell(40,6,'Ausgabe: '.($sasodatum),'0','1','R','1');
$pdf->Cell(24,2,' ','0','1','L','0');
// $gmenge=0; $gmengea=0; $gmengeb=0; $gmengec=0;
/*
$saso_tour = $GLOBALS['mysql']->query_single("SELECT * FROM torenplan WHERE id='".$_GET['id']."' and tag='".$stag."' and monat='".$smonat."' and jahr='".$sjahr."'");
if($saso_tour['num_rows']) {
$rs_tour2 = $GLOBALS['mysql']->query("SELECT * FROM zsh_tourenliste WHERE tid='".$_POST['tid']."' and nummer='".$lnummer."' AND ablage='".$rowa['id']."' ORDER BY bereich");
//------------
$pdf->SetFillColor(0,0,0); $pdf->Cell(190,1,' ','0','1','L','1');
$pdf->SetFont('Helvetica','B',12); $pdf->Cell(110,5,($rowa['strasse'].' - '.$rowa['plz'].' '.$rowa['ort']),'0','0','L','0');
$pdf->SetFont('Helvetica','',10); $pdf->Cell(80,5,$rowa['infotext'],'0','1','R','0');
while($row = $rs_tour2->fetch_assoc()) {
//if stammablage ?
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(88,5,$row['infotext'],'0','0','R','0'); $pdf->SetFont('Helvetica','',10);
$pdf->Cell(17,5,$row['bereich'],'0','0','R','0');
$pdf->Cell(10,5,$row['norm'].'er','0','0','R','0'); $gnorm=$row['norm'];
$pdf->Cell(29,5,$row['exemplare'].' Exemplare','0','0','L','0');
$gmenge=$gmenge+$row['exemplare'];
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(5,5,$row['typ'],'0','0','C','0');
if($row['typ']=='A') { $gmenge1=$gmenge1+$row['exemplare']; }
if($row['typ']=='B') { $gmenge2=$gmenge2+$row['exemplare']; }
if($row['typ']=='C') { $gmenge3=$gmenge3+$row['exemplare']; }
if($row['typ']=='D') { $gmenge4=$gmenge4+$row['exemplare']; }
if($row['typ']=='E') { $gmenge5=$gmenge5+$row['exemplare']; }
if($row['typ']=='F') { $gmenge6=$gmenge6+$row['exemplare']; }
if($row['typ']=='G') { $gmenge7=$gmenge7+$row['exemplare']; }
if($row['typ']=='H') { $gmenge8=$gmenge8+$row['exemplare']; }
$pdf->Cell(3,5,' ','0','0','C','0');
$voll=$row['exemplare']/$row['norm']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(19,5,' ','0','0','R','0'); }
if($pak2 ==1) { $pdf->Cell(19,5,$pak2.' Paket ','0','0','R','0'); }
if($pak2 > 1) { $pdf->Cell(19,5,$pak2.' Pakete','0','0','R','0'); }
$tmp2=$pak2*$row['norm']; $tmp3=$row['exemplare']-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0'); $pdf->SetFont('Helvetica','',10);
if($row['mita']>0) {
$pdf->Cell(88,5,$row['infotext'],'0','0','R','0');
$pdf->Cell(17,5,' ','0','0','C','0');
$pdf->Cell(10,5,$rs_mitn['mengea'].'er','0','0','C','0'); $gnorma=$rs_mitn['mengea'];
$gmengea=$gmengea+$row['mita'];
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(37,5,$row['mita'].' '.$rs_mitn['namea'],'0','0','L','0');
$voll=$row['mita']/$rs_mitn['mengea']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(19,5,' ','0','0','R','0'); }
if($pak2 ==1) { $pdf->Cell(19,5,$pak2.' Paket ','0','0','R','0'); }
if($pak2 > 1) { $pdf->Cell(19,5,$pak2.' Pakete','0','0','R','0'); }
$tmp2=$pak2*$rs_mitn['mengea']; $tmp3=$row['mita']-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0'); $pdf->SetFont('Helvetica','',10);
}
if($row['mitb']>0) {
$pdf->Cell(88,5,$row['infotext'],'0','0','R','0');
$pdf->Cell(17,5,' ','0','0','C','0');
$pdf->Cell(10,5,$rs_mitn['mengeb'].'er','0','0','C','0'); $gnormb=$rs_mitn['mengeb'];
$gmengeb=$gmengeb+$row['mitb'];
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(37,5,$row['mitb'].' '.$rs_mitn['nameb'],'0','0','L','0');
$voll=$row['mitb']/$rs_mitn['mengeb']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(19,5,' ','0','0','R','0'); }
if($pak2 ==1) { $pdf->Cell(19,5,$pak2.' Paket ','0','0','R','0'); }
if($pak2 > 1) { $pdf->Cell(19,5,$pak2.' Pakete','0','0','R','0'); }
$tmp2=$pak2*$rs_mitn['mengeb']; $tmp3=$row['mitb']-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0'); $pdf->SetFont('Helvetica','',10);
}
if($row['mitc']>0) {
$pdf->Cell(88,5,$row['infotext'],'0','0','R','0');
$pdf->Cell(17,5,' ','0','0','C','0');
$pdf->Cell(10,5,$rs_mitn['mengec'].'er','0','0','C','0'); $gnormc=$rs_mitn['mengec'];
$gmengec=$gmengec+$row['mitc'];
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(37,5,$row['mitc'].' '.$rs_mitn['namec'],'0','0','L','0');
$voll=$row['mitc']/$rs_mitn['mengec']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(19,5,' ','0','0','R','0'); }
if($pak2 ==1) { $pdf->Cell(19,5,$pak2.' Paket ','0','0','R','0'); }
if($pak2 > 1) { $pdf->Cell(19,5,$pak2.' Pakete','0','0','R','0'); }
$tmp2=$pak2*$rs_mitn['mengec']; $tmp3=$row['mitc']-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0'); $pdf->SetFont('Helvetica','',10);
}
// else { $pdf->Cell(1,4,' ','0','1','C','0'); $pdf->SetFont('Helvetica','',10); }
}
// $pdf->Cell(24,2,' ','0','1','L','0');
}
}
$pdf->Cell(88,8,' ','B','0','L','0'); $pdf->Cell(102,8,' ','B','1','L','0'); // ende mit unterstrich
//----------------------------------------------------------------- einzelne Gesamtsaso nach Markierung !!!!!!
//------------- Typ A
if($gmenge1>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP A: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge1.' Exemplare','0','0','R','0');
$gvoll=$gmenge1/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'A','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge1-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
//------------- Typ B
if($gmenge2>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP B: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge2.' Exemplare','0','0','R','0');
$gvoll=$gmenge2/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'B','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge2-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
//------------- Typ C
if($gmenge3>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP C: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge3.' Exemplare','0','0','R','0');
$gvoll=$gmenge3/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'C','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge3-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
//------------- Typ D
if($gmenge4>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP D: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge4.' Exemplare','0','0','R','0');
$gvoll=$gmenge4/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'D','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge4-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
//------------- Typ E
if($gmenge5>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP E: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge5.' Exemplare','0','0','R','0');
$gvoll=$gmenge5/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'E','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge5-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
//------------- Typ F
if($gmenge6>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP F: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge6.' Exemplare','0','0','R','0');
$gvoll=$gmenge6/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'F','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge6-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
//------------- Typ G
if($gmenge7>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP G: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge7.' Exemplare','0','0','R','0');
$gvoll=$gmenge7/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'G','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge7-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
//------------- Typ H
if($gmenge8>0) {
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo TYP H: ','0','0','L','0');
$pdf->Cell(33,5,$gmenge8.' Exemplare','0','0','R','0');
$gvoll=$gmenge8/$gnorm; $gpak2=floor($gvoll);
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(5,5,'H','0','0','R','0'); $pdf->SetFont('Helvetica','',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge8-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
////////////////////////
//----------- Gesamtsaso
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,'SaSo gesamt: ','0','0','L','0'); $pdf->SetFont('Helvetica','',10);
$pdf->Cell(33,5,$gmenge.' Exemplare','0','0','R','0');
$gvoll=$gmenge/$gnorm; $gpak2=floor($gvoll);
$pdf->Cell(5,5,' ','0','0','C','0'); $pdf->SetFont('Helvetica','B',10); ////////////// TYP
$pdf->Cell(22,5,$gpak2.' Pakete','0','0','R','0');
$tmp2=$gpak2*$gnorm; $tmp3=$gmenge-$tmp2;
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
$pdf->SetFont('Helvetica','',10);
//------------------------------
//-------------- mitnahmen mit angabe VP !
if($gmengea>0 || $gmengeb>0 || $gmengec>0) {
// $pdf->Cell(190,8,' ','B','1','L','0'); // ende mit unterstrich
// $pdf->Cell(20,5,'Mitnahmen: ','T','0','L','0');
if($gmengea>0) {
$w1voll=$gmengea/$gnorma; $gpakw1=floor($w1voll); $tmp2=$gpakw1*$gnorma; $tmp3=$gmengea-$tmp2;
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,$rs_mitn['namea'].' :','T','0','L','0');
$pdf->Cell(33,5,$gmengea.' Exemplare','T','0','R','0');
$pdf->Cell(5,5,' ','T','0','C','0');
if($gpakw1 ==0) { $pdf->Cell(22,5,' ','T','0','R','0'); }
if($gpakw1 ==1) { $pdf->Cell(22,5,$gpakw1.' Paket ','T','0','R','0'); }
if($gpakw1 > 1) { $pdf->Cell(22,5,$gpakw1.' Pakete','T','0','R','0'); }
$pdf->Cell(19,5,$tmp3.' Spitze','T','1','R','0');
}
if($gmengeb>0) {
$w2voll=$gmengeb/$gnormb; $gpakw2=floor($w2voll); $tmp2=$gpakw2*$gnormb; $tmp3=$gmengeb-$tmp2;
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,$rs_mitn['nameb'].' :','0','0','L','0');
$pdf->Cell(33,5,$gmengeb.' Exemplare','0','0','R','0');
$pdf->Cell(5,5,' ','0','0','C','0');
if($gpakw2 ==0) { $pdf->Cell(22,5,' ','0','0','R','0'); }
if($gpakw2 ==1) { $pdf->Cell(22,5,$gpakw2.' Paket ','0','0','R','0'); }
if($gpakw2 > 1) { $pdf->Cell(22,5,$gpakw2.' Pakete','0','0','R','0'); }
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
if($gmengec>0) {
$w3voll=$gmengec/$gnormc; $gpakw3=floor($w3voll); $tmp2=$gpakw3*$gnormc; $tmp3=$gmengec-$tmp2;
$pdf->Cell(88,5,' ','0','0','L','0');
$pdf->Cell(23,5,$rs_mitn['namec'].' :','0','0','L','0');
$pdf->Cell(33,5,$gmengec.' Exemplare','0','0','R','0');
$pdf->Cell(5,5,' ','0','0','C','0');
if($gpakw3 ==0) { $pdf->Cell(22,5,' ','0','0','R','0'); }
if($gpakw3 ==1) { $pdf->Cell(22,5,$gpakw3.' Paket ','0','0','R','0'); }
if($gpakw3 > 1) { $pdf->Cell(22,5,$gpakw3.' Pakete','0','0','R','0'); }
$pdf->Cell(19,5,$tmp3.' Spitze','0','1','R','0');
}
}
$pdf->Cell(190,8,'-Ende- ','T','1','L','0'); // ende mit unterstrich
$datum=date("d")."_".date("m")."_".date("Y");
$gdatum=date("d").".".date("m").".".date("Y");
if(isset($_POST['ansicht'])) {
$pdf->Output($lname.'__'.($datum).'.pdf','I');
}
else if(isset($_POST['teilen'])) {
$pdf->Output($lname.'__'.($datum).'.pdf','F');
$pdf_anhang = $pdf->Output('','S');
//---------------------------- PDF umspeichern
$rs_tour3 = $GLOBALS['mysql']->query("SELECT * FROM zsh_tourenliste WHERE tid='".$_POST['tid']."' and nummer='".$lnummer."'");
while($row = $rs_tour3->fetch_assoc()) {
$GLOBALS['mysql']->insert("INSERT INTO zsh_tourenliste (tid,bereich,ablage,norm,exemplare,nummer,typ,mita,mitb,mitc,infotext)
VALUES(
'".$row['tid']."',
'".$row['bereich']."',
'".$row['ablage']."',
'".$row['norm']."',
'".$row['exemplare']."',
'".$snummer."',
'".$typ."',
'".$mita."',
'".$mitb."',
'".$mitc."',
'".$row['infotext']."')
");
}
$GLOBALS['mysql']->insert("INSERT INTO zsh_mitnahme (tid,nummer) VALUES('".$_POST['tid']."','".$snummer."')");
//------------ nummer in tliste erhöhen
$GLOBALS['mysql']->insert("UPDATE zsh_touren SET nummer='".$snummer."' WHERE id='".$_POST['teilen']."'");
$GLOBALS['mysql']->insert("UPDATE zsh_touren SET gdatum='".$gdatum."' WHERE id='".$_POST['teilen']."'");
//----------mail versenden !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
$betreff = "Tourenliste ".$lname;
$Dateiname = $lname.'__'.($datum).'.pdf';
$Header = "From: Zustellservice Heinicke GmbH <Vertrieb@Zustellservice-Heinicke.de>";
$Trenner = md5(uniqid(time()));
$Header .= "\nMIME-Version: 1.0";
$Header .= "\nContent-Type: multipart/mixed; boundary=$Trenner";
$Header .= "\n\nThis is a multi-part message in MIME format";
$Header .= "\n--$Trenner";
$Header .= "\nContent-Type: text/plain";
$Header .= "\nContent-Transfer-Encoding: 8bit";
$Header .= "\n\n";
$Header .= "Tourenliste ".$lname ." für den ".$sasodatum." als Anlage\n\nMfG Zustellservice Heinicke GmbH";//**************Mailtext
$Header .= "\n--$Trenner";
$Header .= "\nContent-Type: application/pdf; name=$Dateiname";
$Header .= "\nContent-Transfer-Encoding: base64";
$Header .= "\nContent-Disposition: attachment; filename=$Dateiname";
$file_content = chunk_split(base64_encode($pdf_anhang));
$Header .= "\n\n$file_content";
$Header .= "\n\n";
$Header .= "\n--$Trenner--";
if($empfaenger1 != "") { mail($empfaenger1, $betreff, $text, $Header); $success[]='Liste '.$lname.' wurde gespeichert und versendet an: '.$empfaenger1; $template->assign('success', $success); }
if($empfaenger2 != "") { mail($empfaenger2, $betreff, $text, $Header); $success[]='Liste '.$lname.' wurde gespeichert und versendet an: '.$empfaenger2; $template->assign('success', $success); }
if($empfaenger3 != "") { mail($empfaenger3, $betreff, $text, $Header); $success[]='Liste '.$lname.' wurde gespeichert und versendet an: '.$empfaenger3; $template->assign('success', $success); }
}
}
//----------------------------------------- PDF anzeigen version 2--------------------------------------------
//----------------------------------------- PDF anzeigen version 2--------------------------------------------
//----------------------------------------- PDF anzeigen version 2--------------------------------------------
//----------------------------------------- PDF anzeigen version 2--------------------------------------------
//----------------------------------------- PDF anzeigen version 2--------------------------------------------
else if(isset($_POST['version2'])) {
$saso_tour = $GLOBALS['mysql']->query_single("SELECT * FROM zsh_touren WHERE id='".$_POST['tid']."'");
$lnummer=$saso_tour['nummer'];
$snummer=$lnummer+1;
$lname=$saso_tour['tour'];
$mname=$saso_tour['mailname'];
//----------------------------
class PDF extends FPDF {
function Footer() {
$this->SetY(-15);
$this->SetFont('Helvetica','I',8);
$this->Cell(190,5,'Zustellservice Heinicke GmbH - Handelsplatz 4 - 04319 Leipzig *** ZSH - interne Liste - Nach Gebrauch vernichten *** F. T.2014','1','0','C','0');
}
}
$pdf = new PDF('P','mm','A4');
$pdf->AddPage();
$pdf->SetFont('Helvetica','B',14);
$pdf->SetFillColor(200,200,200);
$pdf->Cell(60,6,($_POST['tour']),'0','0','C','1');
$pdf->Cell(50,6,' ','0','0','C','0'); $pdf->SetFont('Helvetica','',10);
$pdf->Cell(30,6,'Listennr.: '.($lnummer),'0','0','C','1');
$pdf->Cell(8,6,' ','0','0','C','0');
$pdf->Cell(40,6,'Ausgabe: '.($saso_tour['gdatum']),'0','1','R','1');
$pdf->Cell(24,2,' ','0','1','L','0');
$abl = $GLOBALS['mysql']->query("SELECT * FROM zsh_ablagen WHERE tour='".$_POST['tid']."' OR tour2='".$_POST['tid']."' OR tour3='".$_POST['tid']."' OR tour4='".$_POST['tid']."' ORDER BY rfolge");
while($rowa = $abl->fetch_assoc()) {
// $pdf->SetFont('Helvetica','B',10);
$rs_tour = $GLOBALS['mysql']->query_single("SELECT * FROM zsh_tourenliste WHERE tid='".$_POST['tid']."' and nummer='".$lnummer."' AND ablage='".$rowa['id']."'");
$rs_mitn = $GLOBALS['mysql']->query_single("SELECT * FROM zsh_mitnahme WHERE tid='".$_POST['tid']."' and nummer='".$lnummer."'");
if ($rs_tour['bereich']>0) {
$rs_tour2 = $GLOBALS['mysql']->query("SELECT * FROM zsh_tourenliste WHERE tid='".$_POST['tid']."' and nummer='".$lnummer."' AND ablage='".$rowa['id']."' ORDER BY bereich");
//------------
$pdf->SetFillColor(0,0,0); $pdf->Cell(190,1,' ','0','1','L','1');
$pdf->SetFont('Helvetica','B',10); $pdf->Cell(55,5,($rowa['strasse']),'1','0','L','0'); $pdf->SetFont('Helvetica','',10);
// $pdf->SetFont('Helvetica','',10); $pdf->Cell(80,5,$rowa['infotext'],'0','1','R','0');
$tmp=0;
while($row = $rs_tour2->fetch_assoc()) {
//if stammablage ?
if($tmp==1) { $tmp++; $pdf->SetFont('Helvetica','',10); $pdf->Cell(55,5,($rowa['plz'].' '.$rowa['ort']),'0','0','L','0'); $pdf->SetFont('Helvetica','',10); }
if($tmp==2) { $tmp++; $pdf->SetFont('Helvetica','',10); $pdf->Cell(55,5,$rowa['infotext'],'0','0','R','0'); $pdf->SetFont('Helvetica','',10); }
if($tmp >2) { $pdf->Cell(55,5,' ','0','0','C','0'); }
$pdf->SetFont('Helvetica','',10);
$pdf->Cell(20,5,$row['bereich'],'0','0','R','0');
$pdf->Cell(11,5,$row['norm'].'er','0','0','R','0');
$pdf->Cell(26,5,$row['exemplare'].' Exemplare','1','0','R','0');
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(5,5,$row['typ'],'0','0','C','0');
// $pdf->Cell(3,5,$row[' '],'0','0','C','0');
$voll=$row['exemplare']/$row['norm']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(14,5,' ','1','0','R','0'); }
if($pak2 > 0) { $pdf->Cell(14,5,$pak2.' VP','1','0','R','0'); }
$tmp2=$pak2*$row['norm']; $tmp3=$row['exemplare']-$tmp2;
$pdf->Cell(14,5,$tmp3.' Sp.','1','0','R','0');
$pdf->SetFont('Helvetica','',10);
$pdf->Cell(60,5,$row['infotext'],'1','1','L','0');
if($row['mita']>0 & $rs_mitn['mengea']>0) {
$pdf->Cell(20,5,$rs_mitn['mengea'].'er','0','0','R','0');
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(37,5,$row['mita'].' '.$rs_mitn['namea'],'0','0','L','0');
$voll=$row['mita']/$rs_mitn['mengea']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(14,5,' ','0','0','R','0'); }
if($pak2 > 0) { $pdf->Cell(14,5,$pak2.' VP','0','0','R','0'); }
$tmp2=$pak2*$rs_mitn['mengea']; $tmp3=$row['mita']-$tmp2;
$pdf->Cell(14,5,$tmp3.' Sp.','0','0','R','0'); $pdf->SetFont('Helvetica','',10);
$pdf->Cell(60,5,$row['infotext'],'0','1','L','0');
if($tmp==0) { $tmp++; $pdf->SetFont('Helvetica','B',10); $pdf->Cell(65,5,($rowa['plz'].' '.$rowa['ort']),'0','0','L','0'); $pdf->SetFont('Helvetica','',10); }
elseif($tmp==1) { $tmp++; $pdf->SetFont('Helvetica','',10); $pdf->Cell(65,5,$rowa['infotext'],'0','0','L','0'); $pdf->SetFont('Helvetica','',10); }
elseif($tmp >1) { $pdf->Cell(65,5,' ','0','0','R','0'); }
}
if($row['mitb']>0 & $rs_mitn['mengeb']>0) {
$pdf->Cell(20,5,$rs_mitn['mengea'].'er','0','0','C','0');
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(37,5,$row['mita'].' '.$rs_mitn['namea'],'0','0','L','0');
$voll=$row['mitb']/$rs_mitn['mengeb']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(14,5,' ','0','0','R','0'); }
if($pak2 > 0) { $pdf->Cell(14,5,$pak2.' VP','0','0','R','0'); }
$tmp2=$pak2*$rs_mitn['mengeb']; $tmp3=$row['mitb']-$tmp2;
$pdf->Cell(14,5,$tmp3.' Sp.','0','0','R','0'); $pdf->SetFont('Helvetica','',10);
$pdf->Cell(60,5,$row['infotext'],'0','1','L','0');
if($tmp==0) { $tmp++; $pdf->SetFont('Helvetica','B',10); $pdf->Cell(65,5,($rowa['plz'].' '.$rowa['ort']),'0','0','L','0'); $pdf->SetFont('Helvetica','',10); }
elseif($tmp==1) { $tmp++; $pdf->SetFont('Helvetica','',10); $pdf->Cell(65,5,$rowa['infotext'],'0','0','R','0'); $pdf->SetFont('Helvetica','',10); }
elseif($tmp >1) { $pdf->Cell(65,5,' ','0','0','C','0'); }
}
if($row['mitc']>0 & $rs_mitn['mengec']>0) {
$pdf->Cell(20,5,$rs_mitn['mengea'].'er','0','0','C','0');
$pdf->SetFont('Helvetica','B',10);
$pdf->Cell(37,5,$row['mita'].' '.$rs_mitn['namea'],'0','0','L','0');
$voll=$row['mitc']/$rs_mitn['mengec']; $pak2=floor($voll);
if($pak2 ==0) { $pdf->Cell(14,5,' ','0','0','R','0'); }
if($pak2 > 0) { $pdf->Cell(14,5,$pak2.' VP','0','0','R','0'); }
$tmp2=$pak2*$rs_mitn['mengec']; $tmp3=$row['mitc']-$tmp2;
$pdf->Cell(14,5,$tmp3.' Sp.','0','0','R','0'); $pdf->SetFont('Helvetica','',10);
$pdf->Cell(60,5,$row['infotext'],'0','1','L','0');
if($tmp==0) { $tmp++; $pdf->SetFont('Helvetica','B',10); $pdf->Cell(65,5,($rowa['plz'].' '.$rowa['ort']),'0','0','L','0'); $pdf->SetFont('Helvetica','',10); }
elseif($tmp==1) { $tmp++; $pdf->SetFont('Helvetica','',10); $pdf->Cell(65,5,$rowa['infotext'],'0','0','R','0'); $pdf->SetFont('Helvetica','',10); }
elseif($tmp >1) { $pdf->Cell(65,5,' ','0','0','C','0'); }
}
$tmp++;
if($tmp==1) { $pdf->SetFont('Helvetica','B',10); $pdf->Cell(55,5,($rowa['plz'].' '.$rowa['ort']),'0','1','L','0'); }
if($tmp==2) { $pdf->SetFont('Helvetica','',10); $pdf->Cell(55,5,$rowa['infotext'],'0','1','R','0'); }
// else { $pdf->Cell(1,4,' ','0','1','C','0'); $pdf->SetFont('Helvetica','',10); }
}
// $pdf->Cell(24,2,' ','0','1','L','0');
// $pdf->Cell(190,5,' ','0','1','L','0');
}
}
$pdf->Cell(24,8,'-Ende-','0','1','L','0');
$datum=date("d")."_".date("m")."_".date("Y");
$gdatum=date("d").".".date("m").".".date("Y");
$pdf->Output($lname.'__'.($datum).'.pdf','I');
}
else if(isset($_POST['history'])) {
$slist = $GLOBALS['mysql']->query_array("SELECT * FROM zsh_touren WHERE id='".$_POST['history']."'");
$template->assign('tour', $_POST['tour']);
$template->assign('slist', $slist);
$template->assign('content', 'tpl/zsh_saso_archiv.tpl');
}
elseif(isset($_POST['sasonorm'])) {
if($_POST['sasonorm']!=0) {
$list2 = $GLOBALS['mysql']->query("SELECT * FROM zsh_touren WHERE typ=8");
while($row = $list2->fetch_assoc()) {
$GLOBALS['mysql']->insert("UPDATE zsh_tourenliste SET norm='".$_POST['sasonorm']."' WHERE tid='".$row['id']."' and nummer='".$row['nummer']."'");
}
$template->assign('success', 'Die Norm wurde angepasst und alle Touren fuer den kommenden Sonntag neu berechnet...');
} else {
$template->assign('error', 'Die Norm darf nicht null sein !!!!!!');
}
} //else {
*/
$slist = $GLOBALS['mysql']->query_array("SELECT * FROM zsh_touren WHERE typ=8");
$temp = strtotime("next Sunday");
$tag=date('d', $temp); $monat=date('m', $temp); $jahr=date('Y', $temp);
$sasodatum=$tag.".".$monat.".".$jahr;
$sasonorm=$GLOBALS['mysql']->query_single("SELECT * FROM zsh_tourenliste WHERE tid=802 ORDER BY id DESC LIMIT 0,1 ");
$saso_norm=$sasonorm['norm'];
$template->assign('sasodatum', $sasodatum);
$template->assign('saso_tour2', $saso_tour2);
$template->assign('saso_norm', $saso_norm);
$template->assign('slist', $slist);
$template->assign('content', 'tpl/zsh_p_saso.tpl');
//}
?>