sharee.bike/copri4/main/src/Mod/Printpreview.pm
2022-09-21 19:24:42 +02:00

746 lines
25 KiB
Perl
Executable file
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

package Printpreview;
#
# SPDX-License-Identifier: AGPL-3.0-or-later
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
#
#
use strict;
use warnings;
use POSIX;
use CGI::Cookie ();
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use CGI ':standard';
use DateTime;
use DateTime::Format::Pg;
use Scalar::Util qw(looks_like_number);
use Lib::Config;
use Mod::Libenz;
use Mod::Libenzdb;
use Mod::DBtank;
use Mod::Pricing;
sub new {
my $class = shift;
my $self = {};
bless($self,$class);
return $self;
}
sub printpre(){
my $q = new CGI;
my $cf = new Config;
my $lb = new Libenz;
my $db = new Libenzdb;
my $dbt = new DBtank;
my $pri = new Pricing;
my %varenv = $cf->envonline();
my $path = $q->path_info();
my $script = $q->script_name();
my $user_agent = $q->user_agent();
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
my $lang="de";
my $printer_id=$R::printer_id;
my $u_id=$R::u_id;
my $c_id=$R::c_id4trans;
my $mandant_main_id=$R::mandant_main_id;
my $main_id=$R::main_id;
my $ct_name2print=$R::ct_name2print;
my $wc= $1 if($R::wc =~ /(\d+\.\d+)/);
my $node = $db->get_node4multi($R::main_id,$lang);
print $q->start_html(-title=>'',
-base=>'true',
-target=>'Printpre'
);
my $width="1400px";
if(1==1){
print "<style type='text/css'><!--
body,html {
background-color: white;
width: $width;
margin: 0px; padding: 0;
border: 0px solid black;
text-align: left;
font-family: Arial,sans-serif;
font-size:22px;
}
.Oline {
border-bottom-width:1px;
border-bottom-style:solid;
border-color:black;
margin:0.5em 0;
}
th {
border-bottom: solid thin gray;
}
td {
border:0px;
}
.tdtxt {
font-size:0.91em;
padding:0.1em 0.5em;
vertical-align: top;
text-align: left;
min-width:5em;
}
.tdtxt2 {
font-size:1em;
padding:0.1em 0.5em;
vertical-align: top;
text-align: left;
width:50%;
}
.tdsum {
font-size:1em;
padding:0.1em 0.5em;
vertical-align: top;
text-align: right;
}
.tdint {
font-size:0.91em;
padding:0.1em 0.5em;
vertical-align: top;
text-align: right;
min-width:20px;
}
.tdpdf1 {
font-size:1.2em;
padding:0.1em 0;
vertical-align: top;
text-align: left;
}
.tdpdf2 {
background-color:white;
padding:0.1em 1.2em 0 0;
vertical-align: top;
text-align: left;
font-size:0.85em;
}
.tdpdf3 {
padding:0.1em 0 0.3em 0;
vertical-align: top;
text-align: center;
font-size:1em;
}
.tdpdf4 {
padding:0.2em 0;
vertical-align: top;
text-align: left;
font-size:1em;
}
.tdpdf5 {
padding:0.2em 0;
vertical-align: top;
text-align: right;
font-size:1em;
}
//--></style>";
}
my $users = $db->select_users($u_id);
my $ctf = $db->get_content1("contentuser","$mandant_main_id");
$ctf->{txt13} = $1 if($ctf->{txt13} =~ /(\d+)/);
my $ctt = $db->get_content1("contenttrans",$c_id);
my $ctt_users = $db->get_owner($ctt->{owner});
my $vendor = $ctt_users->{u_name};#Login-ID
$vendor = $ctt->{txt13} if($ctt->{txt13});#full Name
my $kd_nr = " Kunden Nr.: $ctt->{int10}";
my $mandat_nr;
$mandat_nr = " Mandatsreferenz: $ctt->{txt26}" if($ctt->{txt26} =~ /PO-/);
my $invoice_time = $ctt->{invoice_time} || $ctt->{mtime};
my $mtime = $lb->time4de("$invoice_time","");
$db->updater("contenttrans","c_id",$ctt->{c_id},"invoice_time","$invoice_time","");
#my $scol = "c_id";
my $scol = "itime";
my $i=0;
my $tplf = $db->get_tpl("201");#Firma tpl
my @tplf_order = split /,/,$tplf->{tpl_order};
my $logo = "$ctf->{img01}" || "";
#logging siteformat
open(PMA, ">> $varenv{logdir}/Printpreview.log");
print PMA "$now_dt --> $ct_name2print\n";
my $site=1;
my $site_all=1;
my ($address_wc,$table_wc) = split(/\./,$wc);
$wc = $address_wc + $table_wc;
print PMA "wc: $wc = $address_wc + $table_wc\n";
print PMA "wc: $wc\n";
my $max_site_wc = "40";
my $max_table_wc = "10";
print PMA "max_site_wc: $max_site_wc | max_table_wc: $max_table_wc\n";
my $h_top = "0";
my $footer_top = "1820";#ende der 1.seite
print PMA "top: $h_top | $footer_top\n";
#1.seite
&header_big("0",$mandant_main_id,$c_id,$logo);
&data_invoice("0",$vendor,$kd_nr,$mandat_nr,$ctt->{txt00},$ct_name2print,$mtime);
my ($sum_paid,$break_table_wc,$nullcount) = &data_table("0",$c_id,$scol,"",$mandant_main_id,"0",$max_table_wc,$ctt);
#print "$site_all++ if(($wc > $max_site_wc) || ($table_wc > $max_table_wc)) --> $break_table_wc";
#$site_all++ if(($wc > $max_site_wc) || ($table_wc > $max_table_wc));
if($break_table_wc > $max_table_wc){
$site_all++;
print PMA "max_site_wc: $max_site_wc | max_table_wc: $max_table_wc\n";
print PMA "site_all: $site_all if($break_table_wc > $max_table_wc)\n";
}
print PMA "$site_all,$footer_top,$site,$site_all,$wc\n";
if($site_all == 1){
&text_description("0",$mandant_main_id,$ctt->{txt21},$ctt->{txt12},$ctt->{txt00},$nullcount);
&text_footer($mandant_main_id,$footer_top,$site,$site_all,$wc);
}else{
&text_footer($mandant_main_id,$footer_top,$site,$site_all,$wc);
}
#2.seite
if($site_all > 1){
#Alles horizontal absolut zum obersten Punkt ausrichten
$h_top = $footer_top + 220;# second header top, depence from footer_top
&header_small($h_top,$mandant_main_id,$logo);
$h_top +=250;
&data_invoice($h_top,$vendor,$kd_nr,$mandat_nr,$ctt->{txt00},$ct_name2print,$mtime);
$h_top +=60;
#table_break
if($break_table_wc >= $max_table_wc){
my ($sum_paid,$exit_table_wc,$nullcount) = &data_table($h_top,$c_id,$scol,"",$mandant_main_id,$break_table_wc,$max_table_wc,$ctt,$sum_paid);
$h_top += ($table_wc - $max_table_wc) * 65;
print PMA "h_top: $h_top += ($table_wc - $max_table_wc) * 65\n";
}
#print "$h_top | $table_wc | $break_table_wc >= $max_table_wc";
&text_description($h_top,$mandant_main_id,$ctt->{txt21},$ctt->{txt12},$ctt->{txt00},$nullcount);
$footer_top +=100;
$site++;
print PMA "$site_all,$footer_top,$site,$site_all,$wc\n";
&text_footer($mandant_main_id,$footer_top,$site,$site_all,$wc);
}
##########
#
close PMA;
#Briefkopf
sub header_small(){
my ($h_top,$mandant_main_id,$logo) = @_;
my $position;
my $h_toppx = "$h_top" . "px";
$position = "position:absolute; top: $h_toppx;" if($h_top);
my $height = "120px;";
my $margin = "0 0 100px 0;";
if($dbt->{operator}->{$varenv{dbname}}->{project} =~ /Bayern|Freiburg/){
$height = "200px;";
$margin = "0;";
}
print $q->div({-style=>"$position width:$width;text-align:right;border:0px solid black;margin:$margin"},$q->img({-src=>"$varenv{metahost}/img/$logo",-height=>"$height"})),"\n";
}
#Briefkopf + Adresse
sub header_big(){
my ($h_top,$mandant_main_id,$c_id,$logo) = @_;
$ctf = $db->get_content1("contentuser","$mandant_main_id");
my $ctt = $db->get_content1("contenttrans",$c_id);
$ctt->{txt01} = $lb->newline($ctt->{txt01},"","0");
my $height = "120px;";
my $margin = "0 0 100px 0;";
if($dbt->{operator}->{$varenv{dbname}}->{project} =~ /Bayern|Freiburg/){
$height = "200px;";
$margin = "0;";
}
print $q->div({-style=>"width:$width;text-align:right;border:0px solid black;margin:$margin"},$q->img({-src=>"$varenv{metahost}/img/$logo",-height=>"$height"})),"\n";
print $q->start_table({-width=>'100%',-border=>'0',-align=>'center', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
print "<tr>\n";
print "<td style='border:0px solid black;vertical-align:top;width:60%;height:250px;padding:0 0 0 2em;'>\n";
print $q->start_table({-width=>'100%',-border=>'0',-align=>'left', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf4', -style=>'padding-bottom:0.8em;text-decoration:underline;color:black;'}, "$ctf->{txt01} | $ctf->{txt02} | $ctf->{txt03}"),"\n";
#print $q->Tr();
#print $q->td({-class=>'tdpdf1'}, "$ctt->{txt02} &nbsp;"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf1'}, "$ctt->{txt01} &nbsp;"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf1'}, "$ctt->{txt03} &nbsp;"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf1'}, "$ctt->{txt06} &nbsp;"),"\n";
print $q->Tr();
print $q->td({-style=>'padding:0.8em 0;'}),"\n";
print $q->end_table;
print "</td>";
my $txid = "";
$txid = "Verwendungszweck TXID: $ctt->{txt16}" if($ctt->{txt16} && $ctt->{state} =~ /payone/i);
my $mailaccount = "";
$mailaccount = "Account: $ctt->{txt08}" if($ctt->{txt08});
my $invoice_period = "";
$invoice_period = "Leistungszeitraum: $ctt->{txt20}" if($ctt->{txt20});
print "<td style='width:40%;vertical-align:right;border:0px solid black;'>";
print $q->start_table({-border=>'0',-align=>'right', -cellpadding=>'0', -cellspacing=>'0'});
print $q->Tr();
print $q->td({-style=>'padding:2em 0;'},"&nbsp;"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf5'}, "$txid"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf5'}, "$mailaccount"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf5'}, "$invoice_period"),"\n";
print $q->end_table;
print "</td>";
print "</tr>";
print $q->end_table;
}
#end Adresse
sub data_invoice(){
my ($h_top,$vendor,$kd_nr,$mandat_nr,$node_name,$ct_name2print,$mtime) = @_;
my $position;
my $h_toppx = "$h_top" . "px";
$position = "position:absolute; top: $h_toppx;" if($h_top);
$node_name =~ s/steuerfrei//;
my $praefix = "$varenv{praefix}";
print $q->div({-style=>"width:$width;$position border: 0px solid black;"},
$q->span({-style=>'font-size:1.5em;margin:0.5em 0 0.5em 0.5em;'},"$node_name"),
$q->span({-style=>'font-size:1em;margin:0.5em 0.5em 0.5em 0;'},"Nr.: $praefix-$ct_name2print"),
$q->span({-style=>'float:right;text-align:right;font-size:1em;margin:0.5em 0 0.5em 0;'},"Datum: $mtime&nbsp;"),
$q->span({-style=>'font-size:1em;margin:0.5em;'}," $kd_nr"),
$q->span({-style=>'font-size:1em;margin:0.5em;'}," $mandat_nr"),
#$q->span({-style=>'font-size:1.1em;margin:0.5em;'},$q->img({-src=>"$varenv{metahost}/pdf/barcode-$ctt->{ct_name}.jpeg", -height=>'60px;'})),
);
}
sub data_table(){
my ($h_top,$c_id,$scol,$ctt_dummy,$mandant_main_id,$break_table_wc,$max_table_wc,$ctt,$sum_break) = @_;
$ctf = $db->get_content1("contentuser","$mandant_main_id");
#my $umst1619 = $lb->umst_breaking($ctt,"");
my @tpl_order = ("txt01=Beschreibung","ct_name=Nummer","date_time=Mietzeit","int03=Menge (Std:Min)","int02=Preis","int07=Rabatt","int04=Gesamt");
my ($cttpos,$rows) = $db->collect_contentpos("contenttrans",$c_id);
foreach my $id (keys(%$cttpos)){
if($cttpos->{$id}->{int26}){
@tpl_order = ("txt01=Beschreibung","ct_name=Nummer","date_time=Mietzeit","int26=Einsparung","int03=Menge (Std:Min)","int02=Preis","int07=Rabatt","int04=Gesamt");
}
}
my $h_toppx = "$h_top" . "px";
my $position;
$position = "position:absolute; top: $h_toppx;" if($h_top);
print "\n<div style='width:$width;$position border:0px solid black;'>\n";
print $q->start_table({ -border=>'0', -width=>"$width",-align=>'center', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
#Tableheader
my $h=0;
print $q->Tr(),"\n";
foreach (@tpl_order){
my ($key,$val) = split /=/,$_;
$h++ if($val && $key !~ /int07/);
print $q->th({-class=>'tdint'},"$val"),"\n" if("$key" eq "ct_name");
print $q->th({-class=>'tdtxt2'},"$val"),"\n" if($key =~ /txt01/);
print $q->th({-class=>'tdint'},"$val"),"\n" if($key =~ /int02|int03|int04|int26/);
}
$h--;
#Übertrag Zwischensumme
#if($break_table_wc){
# print "<tr>\n";
# print "<td colspan='2'></td>\n";
# print "<td colspan='3' style='font-size:1em;'>\n";
# print $q->start_table({-style=>'border:1px solid silver;', -border=>'0', -width=>'100%',-align=>'center', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
#
# print $q->Tr("\n");
# print $q->td({-class=>'tdsum',-colspan=>"$h"},"<b>Übertrag:</b>");
# print $q->td({-class=>'tdint',-nowrap=>"1"},"<b>$sum_break €<b/>");
# print $q->end_table,"\n";
# print "</td>\n";
# print "</tr>\n";
#}
#Tablecontent (ct_name(primary key))
my $sum_parts19=0;
my $diff19 = 100 + 19;
my $sum_umst19=0;
my $j=0;
my $k=0;
my $nullcount=0;
#foreach my $id (sort { $cttpos->{$a}->{$scol} <=> $cttpos->{$b}->{$scol} } keys(%$cttpos)){
foreach my $id (sort { $cttpos->{$b}->{$scol} cmp $cttpos->{$a}->{$scol} } keys(%$cttpos)){
my $cttpos_timestamp = $1 . $2 . $3 . "0000" if($cttpos->{$id}->{itime} =~ /(\d+)\-(\d+)\-(\d+)/);
my $gesamt = 0;
my $rabatt = "";
my $pricing = {};
my $counting = {};
my $rental_feed = {};
if($cttpos->{$id}->{int35} && $cttpos->{$id}->{start_time} && $cttpos->{$id}->{end_time}){
($pricing,$counting) = $pri->counting_rental(\%varenv,$cttpos->{$id},"calc_price");
$rental_feed = $pri->fetch_rentalfeed(\%varenv,$cttpos->{$id},$counting);
$rabatt = $pricing->{discount};
$sum_parts19 += $pricing->{total_price};
$gesamt = $pri->round($pricing->{total_price});
$gesamt = sprintf('%.2f', $gesamt);
}else{
($gesamt,$rabatt) = $pri->price2calc($cttpos->{$id});
$sum_parts19 += $gesamt;
$gesamt = $pri->round($gesamt);
$gesamt = sprintf('%.2f', $gesamt);
}
if($gesamt == 0){
$nullcount++;
}
if($gesamt != 0){
$j++;
if($j<=$max_table_wc || $break_table_wc){
#2. empty loop for sum
if($break_table_wc){
#print "$j|";
next if($j<=$max_table_wc);
}
#Tablecontent (parameter)
print $q->Tr(),"\n";
my $k=0;
foreach (@tpl_order){
#$k++;
my ($key,$val) = split /=/,$_;
$cttpos->{$id}->{$key} = $q->unescapeHTML("$cttpos->{$id}->{$key}");
$cttpos->{$id}->{$key} = $lb->newline($cttpos->{$id}->{$key},"");
if("$key" eq "ct_name"){
my $ct_pos = "";
if($cttpos->{$id}->{int09}){#if Tarif defined
$ct_pos = "Mietrad: $cttpos->{$id}->{ct_name}";
$ct_pos .= "<br />Endstation: $cttpos->{$id}->{txt13}$cttpos->{$id}->{int04}" if($cttpos->{$id}->{int04});
}else{
$ct_pos = "$cttpos->{$id}->{ct_name}";
}
print $q->td({-class=>'tdint',-nowrap=>'1'},"$ct_pos&nbsp;"),"\n";
}
if($key =~ /txt01/){
print "<td class='tdtxt'>\n";
if($cttpos->{$id}->{$key}){
$cttpos->{$id}->{$key} =~ s/\<br \/\>/, &nbsp; /g;
my $tariff = "";
$tariff = "<br />Tarif: $cttpos->{$id}->{int09} $cttpos->{$id}->{txt04}" if($cttpos->{$id}->{txt04});
print "$cttpos->{$id}->{$key} $tariff<br />\n";
}
if($cttpos->{$id}->{start_time} && $cttpos->{$id}->{end_time}){
#print "<br />\n";
$cttpos->{$id}->{start_time} = $lb->time4de($cttpos->{$id}->{start_time},"1");
$cttpos->{$id}->{end_time} = $lb->time4de($cttpos->{$id}->{end_time},"1");
print $q->span("$cttpos->{$id}->{start_time} $cttpos->{$id}->{end_time}"),"\n";
}
print "</td>\n";
}
if($key eq "int26"){
my $co2saving = "";
if($cttpos->{$id}->{int26}){
$co2saving = "Einsparung</br>";
my $co2diff = $pri->co2calc($cttpos->{$id});
my $sprit_price = $pri->sprit2calc($cttpos->{$id});
$co2saving .= "$co2diff kg CO&sup2;<br />";
$co2saving .= "$sprit_price EUR<br />" if($sprit_price !~ /-/);
$cttpos->{$id}->{int26} =~ s/\./,/;
$co2saving .= "bei $cttpos->{$id}->{int26} KM";
}
print $q->td({-class=>'tdint',-nowrap=>'1'},"$co2saving");
}
if($key =~ /int03/){
if($cttpos->{$id}->{int35} && $cttpos->{$id}->{start_time} && $cttpos->{$id}->{end_time}){
print $q->td({-class=>'tdint',-nowrap=>1},"$pricing->{real_clock} $pricing->{freed_time}"),"\n";
}else{
$cttpos->{$id}->{$key} =~ s/\./,/;
print $q->td({-class=>'tdint'},"$cttpos->{$id}->{$key}"),"\n";
}
}
if($key =~ /int02/){
if($cttpos->{$id}->{int35} && $cttpos->{$id}->{start_time} && $cttpos->{$id}->{end_time}){
print "<td class='tdint' nowrap>\n";
foreach my $fid (sort keys(%{ $rental_feed->{rental_description}->{tarif_elements} })){
if(ref($rental_feed->{rental_description}->{tarif_elements}->{$fid}) eq "ARRAY"){
print "$rental_feed->{rental_description}->{tarif_elements}->{$fid}[0]: $rental_feed->{rental_description}->{tarif_elements}->{$fid}[1]<br />\n";
}
}
print "</td>\n";
}else{
$cttpos->{$id}->{$key} =~ s/\./,/;
print $q->td({-class=>'tdint',-nowrap=>1},"$cttpos->{$id}->{$key} €"),"\n";
}
}
if($key =~ /int04/){
$gesamt =~ s/\./,/;
if($rabatt != 0){
$rabatt =~ s/\./,/;
print $q->td({-nowrap=>'1',-class=>'tdint'},"$rabatt $gesamt €"),"\n";
}else{
print $q->td({-nowrap=>'1',-class=>'tdint'},"$gesamt €"),"\n";
}
}
}
}
}
}#end foreach
#Zahlungstext Text & Vorbelegungen
my $payment_text = "";
foreach(@tplf_order){
my ($key,$des,$size) = split /=/,$_;
if($key =~ /txt5\d/){
$ctf->{$key} = $q->unescapeHTML("$ctf->{$key}");
$ctf->{$key} = $lb->newline($ctf->{$key},"","");
$ctt->{state} =~ s/\(payone.*//;
if($des =~ /$ctt->{state}/ && ($j <= $max_table_wc || $break_table_wc)){
if($sum_parts19 < 0){
$payment_text = "$ctf->{txt58}";
}else{
$payment_text = "$ctf->{$key}";
}
}
}
}
if($sum_parts19 && $sum_parts19 != 0){
$sum_umst19 = $sum_parts19 / $diff19 * 19;
$sum_umst19 = $pri->round($sum_umst19);
}
my $sum_netto19 = $sum_parts19 - $sum_umst19;
$sum_netto19 = sprintf('%.2f', $sum_netto19);
$sum_netto19 =~ s/\./,/;
my $sum_paid = $sum_parts19;
$sum_paid = $pri->round($sum_paid);
my $sum_preauth = $sum_paid || 0;
$sum_paid = sprintf('%.2f', $sum_paid);
$sum_paid =~ s/\./,/;
$sum_parts19 = sprintf('%.2f', $sum_parts19);
$sum_umst19 = sprintf('%.2f', $sum_umst19);
$sum_umst19 =~ s/\./,/;
print $q->Tr(),"\n";
print $q->td({-class=>'Oline',-colspan=>6},"&nbsp;"),"\n";
print "<tr>\n";
print "<td colspan='3' style='border:0px solid silver;vertical-align:top;padding:0.2em 0.5em;font-size:1em;'>$payment_text</td>\n";
print "<td colspan='3' style='font-size:1em;'>\n";
print $q->start_table({-style=>'border:1px solid silver;', -border=>'0', -width=>'100%',-align=>'center', -cellpadding=>'3', -cellspacing=>'0'}),"\n";
#Summe Endrechnung
if($j <= $max_table_wc || $break_table_wc){
print $q->Tr(),"\n";
print $q->td({-class=>'tdint'},"<b>Summe:</b>"),"\n";
print $q->td({-class=>'tdint',-nowrap=>"1"},"<b>$sum_paid €<b/>"),"\n";
print $q->Tr(),"\n";
print $q->td({-class=>'tdint'},"Betrag Netto:"),"\n";
print $q->td({-class=>'tdint',-nowrap=>"1"},"$sum_netto19 €"),"\n";
if($sum_parts19 != "0"){
print $q->Tr();
print $q->td({-class=>'tdint',-nowrap=>"1"},"19% UmSt auf $sum_netto19 €:"),"\n";
print $q->td({-class=>'tdint',-nowrap=>"1"},"$sum_umst19 €"),"\n";
}
#Zwischensumme
#}else{
# print $q->Tr(),"\n";
# print $q->td({-class=>'tdsum',-colspan=>"$h"},"<b>Zwischensumme:</b>"),"\n";
# print $q->td({-class=>'tdint',-nowrap=>"1"},"<b>$sum_paid €</b>"),"\n";
}
print $q->end_table,"\n";
print "</td>\n";
print "</tr>\n";
print $q->end_table,"\n";
print "</div>\n";
return ("$sum_paid","$j","$nullcount");
}
#Beschreibungs-Text
sub text_description(){
my ($h_top,$mandant_main_id,$ctt_txt21,$ctt_txt12,$node_name,$nullcount) = @_;
my $ctf = $db->get_content1("contentuser","$mandant_main_id");
my $position;
my $h_toppx = "$h_top" . "px";
$position = "position:absolute; top: $h_toppx;" if($h_top);
print "\n<div style='width:$width;$position border:0px solid black;'>\n";
print $q->start_table({-style=>"margin-top:0.5em;", -border=>'0', -width=>'100%',-align=>'center', -cellpadding=>'0', -cellspacing=>'0'});
#Frei-Text
my $style = "padding:0.4em;text-align:left;font-size:1em;";
if($nullcount > 0){
print $q->Tr();
print $q->td({-style=>"$style",-colspan=>3},"In diesem Zeitraum gab es $nullcount kostenfreie Buchungsvorgänge.");
}
if($ctt_txt12){
$ctt_txt12 = $q->unescapeHTML("$ctt_txt12");
$ctt_txt12 = $lb->newline($ctt_txt12,"","");
print $q->Tr();
print $q->td({-style=>"$style",-colspan=>3},"$ctt_txt12");
}
#Text & Vorbelegungen
print $q->Tr();
foreach(@tplf_order){
my ($key,$des,$size) = split /=/,$_;
if($key =~ /txt6/){
$ctf->{$key} = $q->unescapeHTML("$ctf->{$key}");
$ctf->{$key} = $lb->newline($ctf->{$key},"","");
my @rechnungstext = split(/\<br \/\>/,$ctf->{$key});
if($ctt_txt21 =~ /$key/){
foreach(@rechnungstext){
$style = "padding:0.4em;text-align:left;font-size:1em;";
$style = "padding:0.4em;text-align:left;font-size:1em;" if($_ =~ s/\<b\>// && $node_name ne "Rückgabe");
print $q->Tr();
print $q->td({-style=>"$style",-colspan=>3},"$_");
}
}
}
}
print $q->end_table;
print "</div>\n";
}
sub text_footer(){
my ($mandant_main_id,$top,$site,$site_all,$wc) = @_;
my $ctf = $db->get_content1("contentuser","$mandant_main_id");
$ctf->{txt01} = $q->unescapeHTML("$ctf->{txt01}");
my @txt11 = split (/;/,"$ctf->{txt11}");#Tel usw.
my @txt12 = split (/;/,"$ctf->{txt12}");#Geschäftsführer
my @txt19 = split (/;/,"$ctf->{txt19}");#Bank usw.
$top *= $site;
my $top2 = $top + 120;
$top .= "px";
$top2 .= "px";
my $zeilen;
#$zeilen = "Top: $top , Zeilen: $wc , " if($wc);
#if($logo =~ /empty/){
# print $q->div({-style=>"min-width:1799px;position:absolute;top:$top;"},"");
#}else{
print "<div style='border:0px solid black;background-color:white;height:150px;width:$width;position:absolute;top:$top;'>";
print $q->start_table({-width=>'100%',-border=>'0',-align=>'center', -cellpadding=>'2', -cellspacing=>'0'});
print "<tr>";
print "<td style='width:25%;'>";
print $q->start_table({-border=>'0',-align=>'left'});
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt12[0]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt12[1]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt12[2]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt12[3]"),"\n";
print $q->end_table;
print "</td>";
print "<td style='width:25%;'>";
print $q->start_table({-border=>'0',-align=>'left'});
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "TEL: $ctf->{txt08}"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$ctf->{txt10}"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt11[0]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt11[1]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt11[2]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt11[3]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt11[4]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt11[5]"),"\n";
print $q->end_table;
print "</td>";
print "<td style='width:25%'>";
print $q->start_table({-border=>'0',-align=>'left'});
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[0]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[1]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[2]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[3]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[4]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[5]"),"\n";
print $q->end_table;
print "</td>";
print "<td style='width:25%;'>";
print $q->start_table({-width=>'100%',-border=>'0',-align=>'left'});
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[6]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[7]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[8]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[9]"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf2'}, "$txt19[10]"),"\n";
print $q->end_table;
print "</td>";
print "</tr>";
print $q->end_table;
print "</div>";
#end Adresse
#}
my $debug = "";
#$debug = "(address_wc:$address_wc + table_wc:$table_wc) site_all:$site_all++ | break_table_wc:$break_table_wc if((wc:$wc > max_site_wc:$max_site_wc) || (table_wc:$table_wc > max_table_wc:$max_table_wc)) ... (sum_paid:$sum_paid,break_table_wc:$break_table_wc) = &data_table" if($ctt->{owner} eq "101");
print $q->div({-style=>"text-align:right;width:$width;position:absolute;top:$top2;font-size:0.61em;"},"$debug $zeilen Seite: $site/$site_all");
}
print $q->end_html;
return Apache2::Const::OK;
}
1;