payment operator reference

This commit is contained in:
Rainer Gümpelein 2022-02-04 15:42:58 +01:00
parent 2fca1ea00d
commit ba041a56b6
4 changed files with 20 additions and 21 deletions

View file

@ -229,7 +229,7 @@ td {
#2.seite
if($site_all > 1){
#Alles horizontal absolut zum obersten Punkt ausrichten
$h_top = $footer_top + 270;# second header top, depence from footer_top
$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);
@ -273,7 +273,7 @@ td {
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:65%;height:250px;padding:0 0 0 2em;'>\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");
@ -295,8 +295,10 @@ td {
$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:35%;vertical-align:right;border:0px solid black;'>";
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";
@ -305,14 +307,12 @@ td {
print $q->Tr();
print $q->td({-class=>'tdpdf5'}, "$mailaccount"),"\n";
print $q->Tr();
print $q->td({-class=>'tdpdf5'}, "Leistungsdatum: $ctt->{txt20}"),"\n";
print $q->td({-class=>'tdpdf5'}, "$invoice_period"),"\n";
print $q->end_table;
print "</td>";
print "</tr>";
print $q->end_table;
#print $q->div({-style=>"text-align:right;width:$width;font-size:1em;"},"Login: $ctt->{txt08}&nbsp;"),"\n";
#print $q->div({-style=>"text-align:right;width:$width;font-size:1em;"},"Leistungsdatum: $ctt->{txt20}&nbsp;"),"\n" if($ctt->{txt20});
}
#end Adresse
@ -489,8 +489,8 @@ td {
if("$key" eq "ct_name"){
my $ct_pos = "";
if($cttpos->{$id}->{int09}){#if Tarif defined
$ct_pos = "Endstation: $cttpos->{$id}->{int04} &nbsp;" if($cttpos->{$id}->{int04});
$ct_pos .= "Rad: $cttpos->{$id}->{ct_name}";
$ct_pos = "Endstation: $cttpos->{$id}->{txt13}$cttpos->{$id}->{int04}<br />" if($cttpos->{$id}->{int04});
$ct_pos .= "Mietrad: $cttpos->{$id}->{ct_name}";
}else{
$ct_pos = "$cttpos->{$id}->{ct_name}";
}