+
+ |
+ . $locale->text("Previous transnumber text")
+ . " $form->{previous_id} "
+ . $locale->text("Previous transdate text")
+ . " $form->{previous_gldate}"
+ . qq| |
+
| . $locale->text('Reference') . qq| |
- |
+ |
-
+
| . $locale->text('Date') . qq| |
$button1
@@ -1258,10 +1394,10 @@ sub form_header {
| . $locale->text('Belegnummer') . qq| |
|
-
+
@@ -1272,13 +1408,13 @@ sub form_header {
if ($form->{id}) {
print qq|
- | . $locale->text('Description') . qq| |
- $description |
+ | . $locale->text('Description') . qq| |
+ $description |
|
@@ -1286,7 +1422,7 @@ sub form_header {
@@ -1294,20 +1430,27 @@ sub form_header {
} else {
print qq|
- | . $locale->text('Description') . qq| |
- $description |
+ | . $locale->text('Description') . qq| |
+ $description |
|
|;
}
+
+ print qq|
+ | . $locale->text('Show details') . qq| |
+ |
+ |;
+
print qq|
+
|
@@ -1321,11 +1464,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
@@ -1343,14 +1492,21 @@ sub form_footer {
map {
$form->{$_} =
- $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces, " ")
+ $form->format_amount(\%myconfig, $form->{$_}, 2, " ")
} qw(totaldebit totalcredit);
print qq|
+
+ |
+ $form->{totaldebit} |
+ $form->{totalcredit} |
+ |
+
+ |
+
-{path}>
{login}>
{password}>
@@ -1364,10 +1520,12 @@ sub form_footer {
if ($form->{id}) {
- print qq||;
+ if (!$form->{storno}) {
+ print qq||;
+ }
- # Löschen und ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich
+ # Löschen und Ändern von Buchungen nicht mehr möglich (GoB) nur am selben Tag möglich
if (!$form->{locked} && $radieren) {
print qq|
@@ -1383,18 +1541,13 @@ sub form_footer {
# }
} else {
if ($transdate > $closedto) {
- print qq|text('Update') . qq|">
|;
}
}
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
print "
@@ -1416,12 +1569,12 @@ sub delete {
| | |