X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fap.pl;h=a6d5cdc5c1073cfbf6c21b9e956e7101fe66fa8d;hb=6156d51ea0360382df95007e10a874f24f4dd81a;hp=3852dad716708533c8dab6275b88c5101ef69aad;hpb=ddaf7f5082fe6e53015a8f3e6ea96ac8f600930a;p=kivitendo-erp.git diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl index 3852dad71..a6d5cdc5c 100644 --- a/bin/mozilla/ap.pl +++ b/bin/mozilla/ap.pl @@ -265,13 +265,13 @@ sub form_header { if ($form->{forex}) { $exchangerate .= qq| - | . $locale->text('Exchangerate') . qq| + | . $locale->text('Exchangerate') . qq| {exchangerate}>$form->{exchangerate} |; } else { $exchangerate .= qq| - | . $locale->text('Exchangerate') . qq| + | . $locale->text('Exchangerate') . qq| {exchangerate}> |; } @@ -296,11 +296,11 @@ sub form_header { my $department = qq| - | . $locale->text('Department') . qq| - - - - + | . $locale->text('Department') . qq| + + + + | if $form->{selectdepartment}; my $n = ($form->{creditremaining} =~ /-/) ? "0" : "1"; @@ -440,64 +440,64 @@ sub form_header { - - +
- - - - - - - - - - - - - - - - - {defaultcurrency}> - {fxgain_accno}> - {fxloss_accno}> - $exchangerate - - $department - $taxincluded -
| . $locale->text('Vendor') . qq|$vendor
- - - - - - - {creditlimit}> - {creditremaining}> - -
| . $locale->text('Credit Limit') . qq|$form->{creditlimit}| . $locale->text('Remaining') . qq|$form->{creditremaining}
-
| . $locale->text('Currency') . qq|
-
- - - - - - - - - - - + + - + +
| . $locale->text('Invoice Number') . qq|
| . $locale->text('Order Number') . qq|
| . $locale->text('Invoice Date') . qq| + + + + + + + + + + + + + + + + + {defaultcurrency}> + {fxgain_accno}> + {fxloss_accno}> + $exchangerate + + $department + $taxincluded +
| . $locale->text('Vendor') . qq|$vendor
+ + + + + + + {creditlimit}> + {creditremaining}> + +
| . $locale->text('Credit Limit') . qq|$form->{creditlimit}| . $locale->text('Remaining') . qq|$form->{creditremaining}
+
| . $locale->text('Currency') . qq|
+
+ + + + + + + + + + + $button1 - - - + + + $button2 - -
| . $locale->text('Invoice Number') . qq|
| . $locale->text('Order Number') . qq|
| . $locale->text('Invoice Date') . qq|
| . $locale->text('Due Date') . qq|
| . $locale->text('Due Date') . qq|
-
+
@@ -507,20 +507,15 @@ sub form_header { $jsscript {rowcount}> - - - - - - - - - + +
| - . $locale->text('Account') . qq|| - . $locale->text('Amount') . qq|| - . $locale->text('Tax') . qq|| - . $locale->text('Taxkey') . qq|| - . $locale->text('Project') . qq|
+ + + + + + + + |; my $amount = $locale->text('Amount'); @@ -578,13 +573,13 @@ $jsscript '-default' => $form->{"project_id_$i"} )); print qq| - + $tax - + |; $amount = ""; $project = ""; @@ -610,37 +605,37 @@ $jsscript - - + + - {oldinvtotal}> - {oldtotalpaid}> + {oldinvtotal}> + {oldtotalpaid}> - + - + -
| . $locale->text('Account') . qq|| . $locale->text('Amount') . qq|| . $locale->text('Tax') . qq|| . $locale->text('Taxkey') . qq|| . $locale->text('Project') . qq|
$selectAP_amount {"amount_$i"}> $form->{"tax_$i"}$projectnumber
${APselected}$form->{invtotal}${APselected}$form->{invtotal}
-
+ - - - + + +
| . $locale->text('Notes') . qq|$notes
| . $locale->text('Notes') . qq|$notes
- - - + + + |; my @column_index; @@ -1086,9 +1081,11 @@ sub post { } # /saving the history remove_draft() if $form->{remove_draft}; + # Dieser Text wird niemals ausgegeben: Probleme beim redirect? $form->redirect($locale->text('Transaction posted!')); + } else { + $form->error($locale->text('Cannot post transaction!')); } - $form->error($locale->text('Cannot post transaction!')); $main::lxdebug->leave_sub(); } @@ -1105,8 +1102,8 @@ sub post_as_new { # saving the history if(!exists $form->{addition} && $form->{id} ne "") { $form->{snumbers} = qq|invnumber_| . $form->{invnumber}; - $form->{addition} = "POSTED AS NEW"; - $form->save_history($form->dbconnect(\%myconfig)); + $form->{addition} = "POSTED AS NEW"; + $form->save_history($form->dbconnect(\%myconfig)); } # /saving the history &post; @@ -1188,7 +1185,7 @@ sub yes { # saving the history if(!exists $form->{addition}) { $form->{snumbers} = qq|invnumber_| . $form->{invnumber}; - $form->{addition} = "DELETED"; + $form->{addition} = "DELETED"; $form->save_history($form->dbconnect(\%myconfig)); } # /saving the history
| . $locale->text('Payments') . qq|
| . $locale->text('Payments') . qq|