+
+ |
+ . $locale->text("Previous transnumber text")
+ . " $form->{previous_id} "
+ . $locale->text("Previous transdate text")
+ . " $form->{previous_gldate}"
+ . qq| |
+
- | . $locale->text('Reference') . qq| |
- |
+ | . $locale->text('Reference') . qq| |
+ |
@@ -1320,7 +1123,7 @@ sub form_header {
@@ -1331,13 +1134,13 @@ sub form_header {
if ($form->{id}) {
print qq|
- | . $locale->text('Description') . qq| |
+ | . $locale->text('Description') . qq| |
$description |
|
@@ -1345,7 +1148,7 @@ sub form_header {
@@ -1359,12 +1162,18 @@ sub form_header {
|;
}
+
+ print qq|
+ | . $locale->text('Show details') . qq| |
+ |
+ |;
+
print qq|
@@ -1381,11 +1190,17 @@ sub form_header {
| |
. $locale->text('Korrektur') . qq| |
|
- . $locale->text('Taxkey') . qq| |
- |
- . $locale->text('Source') . qq| |
+ . $locale->text('Taxkey') . qq||;
+
+ if ($form->{show_details}) {
+ print qq|
+ | . $locale->text('Source') . qq| |
| . $locale->text('Memo') . qq| |
- $project
+ | . $locale->text('Project Number') . qq| |
+|;
+ }
+
+ print qq|
$jsscript
@@ -1396,14 +1211,26 @@ $jsscript
sub form_footer {
$lxdebug->enter_sub();
+
+ $auth->assert('general_ledger');
+
+ my $follow_ups_block;
+ if ($form->{id}) {
+ my $follow_ups = FU->follow_ups('trans_id' => $form->{id});
+
+ if (@{ $follow_ups} ) {
+ my $num_due = sum map { $_->{due} * 1 } @{ $follow_ups };
+ $follow_ups_block = qq|| . $locale->text("There are #1 unfinished follow-ups of which #2 are due.", scalar @{ $follow_ups }, $num_due) . qq| |;
+ }
+ }
+
($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
$dec = length $dec;
$decimalplaces = ($dec > 2) ? $dec : 2;
$radieren = ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
map {
- $form->{$_} =
- $form->format_amount(\%myconfig, $form->{$_}, 2, " ")
+ $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2, " ")
} qw(totaldebit totalcredit);
print qq|
@@ -1411,19 +1238,17 @@ sub form_footer {
|
$form->{totaldebit} |
$form->{totalcredit} |
- |
+ |
|
-{path}>
-{login}>
-{password}>
-
+$follow_ups_block
+
|;
@@ -1432,37 +1257,30 @@ sub form_footer {
if ($form->{id}) {
- print qq||;
-
- # Löschen und ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich
+ if (!$form->{storno}) {
+ print qq||;
+ }
+ # Löschen und Ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich
if (!$form->{locked} && $radieren) {
print qq|
-
- |;
+
+ |;
}
- # if ($transdate > $closedto) {
- # print qq|
- # |;
- # }
+ print qq|
+ |;
+
} else {
if ($transdate > $closedto) {
- print qq|
- |;
+ print qq|
+
+ |;
}
}
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
print "
@@ -1481,15 +1299,16 @@ sub delete {
print qq|
- |