Auftrags-Controller: Einheiten per Select ändern können und sellprice anpassen.

[mfinanz.git] / bin / mozilla / ap.pl

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 7506693b16d59e08309bbcd6bef8e2384cbd0e5f..1070c673b43cbf957cb530b4262a35da26f6a7a0 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -42,6 +42,7 @@ use SL::IS;
 use SL::PE;
 use SL::ReportGenerator;
 use SL::DB::Default;
 use SL::PE;
 use SL::ReportGenerator;
 use SL::DB::Default;

+use SL::DB::PurchaseInvoice;

 
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";
 
 require "bin/mozilla/arap.pl";
 require "bin/mozilla/common.pl";


@@ -217,6 +218,8 @@ sub form_header {
 
   $main::auth->assert('general_ledger');
 
 
   $main::auth->assert('general_ledger');
 

+  $::form->{invoice_obj} = SL::DB::PurchaseInvoice->new(id => $::form->{id})->load if $::form->{id};
+

   $form->{title_} = $form->{title};
   $form->{title} = $form->{title} eq 'Add' ? $locale->text('Add Accounts Payables Transaction') : $locale->text('Edit Accounts Payables Transaction');
 
   $form->{title_} = $form->{title};
   $form->{title} = $form->{title} eq 'Add' ? $locale->text('Add Accounts Payables Transaction') : $locale->text('Edit Accounts Payables Transaction');
 


@@ -581,6 +584,7 @@ sub post_payment {
   my $locale   = $main::locale;
 
   $main::auth->assert('general_ledger');
   my $locale   = $main::locale;
 
   $main::auth->assert('general_ledger');

+  $form->mtime_ischanged('ap');

 
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
 
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 


@@ -629,6 +633,7 @@ sub post {
   my $locale   = $main::locale;
 
   $main::auth->assert('general_ledger');
   my $locale   = $main::locale;
 
   $main::auth->assert('general_ledger');

+  $form->mtime_ischanged('ap');

 
   my ($inline) = @_;
 
 
   my ($inline) = @_;