SEPA reference nach SEPA-Standard zulässigen Wert (140) erhöht

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

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index 11307883efe00f2d957ce2b9eed9e4857228b094..1ea3516cce9b58da8d9140eecda5d4177e7bb77c 100644 (file)
--- a/bin/mozilla/ap.pl
+++ b/bin/mozilla/ap.pl
@@ -24,7 +24,8 @@
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
 # GNU General Public License for more details.
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software

-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.

 #======================================================================
 #
 # Accounts Payables
 #======================================================================
 #
 # Accounts Payables


@@ -39,7 +40,6 @@ use SL::AP;
 use SL::FU;
 use SL::IR;
 use SL::IS;
 use SL::FU;
 use SL::IR;
 use SL::IS;

-use SL::PE;

 use SL::ReportGenerator;
 use SL::DB::Default;
 use SL::DB::PurchaseInvoice;
 use SL::ReportGenerator;
 use SL::DB::Default;
 use SL::DB::PurchaseInvoice;


@@ -88,7 +88,7 @@ sub add {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   $form->{title} = "Add";
 
 
   $form->{title} = "Add";
 


@@ -108,7 +108,7 @@ sub edit {
 
   my $form     = $main::form;
 
 
   my $form     = $main::form;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   $form->{title} = "Edit";
 
 
   $form->{title} = "Edit";
 


@@ -123,7 +123,7 @@ sub display_form {
 
   my $form     = $main::form;
 
 
   my $form     = $main::form;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   &form_header;
   &form_footer;
 
   &form_header;
   &form_footer;


@@ -139,7 +139,7 @@ sub create_links {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   $form->create_links("AP", \%myconfig, "vendor");
   my %saved;
 
   $form->create_links("AP", \%myconfig, "vendor");
   my %saved;


@@ -147,6 +147,7 @@ sub create_links {
     %saved = map { ($_ => $form->{$_}) } qw(direct_debit taxincluded);
     $saved{duedate} = $form->{duedate} if $form->{duedate};
     $saved{currency} = $form->{currency} if $form->{currency};
     %saved = map { ($_ => $form->{$_}) } qw(direct_debit taxincluded);
     $saved{duedate} = $form->{duedate} if $form->{duedate};
     $saved{currency} = $form->{currency} if $form->{currency};

+    $saved{taxincluded} = $form->{taxincluded} if $form->{taxincluded};

   }
 
   IR->get_vendor(\%myconfig, \%$form);
   }
 
   IR->get_vendor(\%myconfig, \%$form);


@@ -161,6 +162,7 @@ sub create_links {
   # currencies
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 
   # currencies
   $form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
 

+  $form->{selectcurrency} = "";

   map { my $quoted = H($_); $form->{selectcurrency} .= "<option value=\"${quoted}\">${quoted}\n" } $form->get_all_currencies(\%myconfig);
 
   # vendors
   map { my $quoted = H($_); $form->{selectcurrency} .= "<option value=\"${quoted}\">${quoted}\n" } $form->get_all_currencies(\%myconfig);
 
   # vendors


@@ -214,7 +216,7 @@ sub form_header {
   my $locale   = $main::locale;
   my $cgi      = $::request->{cgi};
 
   my $locale   = $main::locale;
   my $cgi      = $::request->{cgi};
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

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


@@ -448,12 +450,12 @@ sub form_header {
 
 sub form_footer {
   $::lxdebug->enter_sub;
 
 sub form_footer {
   $::lxdebug->enter_sub;

-  $::auth->assert('general_ledger');
+  $::auth->assert('ap_transactions');

 
   my $num_due;
   my $num_follow_ups;
   if ($::form->{id}) {
 
   my $num_due;
   my $num_follow_ups;
   if ($::form->{id}) {

-    my $follow_ups = FU->follow_ups('trans_id' => $::form->{id});
+    my $follow_ups = FU->follow_ups('trans_id' => $::form->{id}, 'not_done' => 1);

 
     if (@{ $follow_ups }) {
       $num_due        = sum map { $_->{due} * 1 } @{ $follow_ups };
 
     if (@{ $follow_ups }) {
       $num_due        = sum map { $_->{due} * 1 } @{ $follow_ups };


@@ -486,7 +488,7 @@ sub mark_as_paid {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   &mark_as_paid_common(\%myconfig,"ap");
 
 
   &mark_as_paid_common(\%myconfig,"ap");
 


@@ -499,7 +501,7 @@ sub update {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   my $display = shift;
 
 
   my $display = shift;
 


@@ -587,7 +589,7 @@ sub post_payment {
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

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


@@ -641,7 +643,7 @@ sub post {
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

   $form->mtime_ischanged('ap');
 
   my ($inline) = @_;
   $form->mtime_ischanged('ap');
 
   my ($inline) = @_;


@@ -743,7 +745,7 @@ sub post_as_new {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   $form->{postasnew} = 1;
   # saving the history
 
   $form->{postasnew} = 1;
   # saving the history


@@ -768,7 +770,7 @@ sub use_as_new {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno);
   $form->{paidaccounts} = 1;
 
   map { delete $form->{$_} } qw(printed emailed queued invnumber invdate deliverydate id datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno);
   $form->{paidaccounts} = 1;


@@ -785,7 +787,7 @@ sub delete {
   my $form     = $main::form;
   my $locale   = $main::locale;
 
   my $form     = $main::form;
   my $locale   = $main::locale;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   $form->{title} = $locale->text('Confirm!');
 
 
   $form->{title} = $locale->text('Confirm!');
 


@@ -825,7 +827,7 @@ sub yes {
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   if (AP->delete_transaction(\%myconfig, \%$form)) {
     # saving the history
 
   if (AP->delete_transaction(\%myconfig, \%$form)) {
     # saving the history


@@ -1068,7 +1070,7 @@ sub storno {
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 

-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');

 
   if (IS->has_storno(\%myconfig, $form, 'ap')) {
     $form->{title} = $locale->text("Cancel Accounts Payables Transaction");
 
   if (IS->has_storno(\%myconfig, $form, 'ap')) {
     $form->{title} = $locale->text("Cancel Accounts Payables Transaction");