Merge pull request #6 from cwittmer/fixFSF

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

diff --git a/bin/mozilla/ap.pl b/bin/mozilla/ap.pl
index a116d12633fc57c2f9f54e09af4c29f83ec0d59c..00ab61801a5f97e8715443c0cfdd226cc1c88e42 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


@@ -88,7 +89,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 +109,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 +124,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,13 +140,15 @@ 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;
   if (!$params{dont_save}) {
     %saved = map { ($_ => $form->{$_}) } qw(direct_debit taxincluded);
     $saved{duedate} = $form->{duedate} if $form->{duedate};
 
   $form->create_links("AP", \%myconfig, "vendor");
   my %saved;
   if (!$params{dont_save}) {
     %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);


@@ -160,6 +163,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


@@ -213,7 +217,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};
 


@@ -426,6 +430,11 @@ sub form_header {
       $changeable = (($form->{"gldate_$i"} eq '') || $form->current_date(\%myconfig) eq $form->{"gldate_$i"});
     }
 
       $changeable = (($form->{"gldate_$i"} eq '') || $form->current_date(\%myconfig) eq $form->{"gldate_$i"});
     }
 

+    #deaktivieren von gebuchten Zahlungen ausserhalb der Bücherkontrolle, vorher prüfen ob heute eingegeben
+    if ($form->date_closed($form->{"gldate_$i"})) {
+       $changeable = 0;
+    }
+

     $form->{'paidaccount_changeable_'. $i} = $changeable;
 
     $form->{'labelpaid_project_id_'. $i} = $project_labels{$form->{'paid_project_id_'. $i}};
     $form->{'paidaccount_changeable_'. $i} = $changeable;
 
     $form->{'labelpaid_project_id_'. $i} = $project_labels{$form->{'paid_project_id_'. $i}};


@@ -442,12 +451,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 };


@@ -480,7 +489,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");
 


@@ -493,7 +502,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;
 


@@ -581,7 +590,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);


@@ -594,8 +603,13 @@ sub post_payment {
 
       $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
 
 
       $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
 

+      $form->error($locale->text('Cannot post transaction above the maximum future booking date!'))
+        if ($form->date_max_future($form->{"datepaid_$i"}, \%myconfig));
+
+      #Zusätzlich noch das Buchungsdatum in die Bücherkontrolle einbeziehen
+      # (Dient zur Prüfung ob ZE oder ZA geprüft werden soll)

       $form->error($locale->text('Cannot post payment for a closed period!'))
       $form->error($locale->text('Cannot post payment for a closed period!'))

-        if ($form->date_closed($form->{"datepaid_$i"}, \%myconfig));
+        if ($form->date_closed($form->{"datepaid_$i"})  && !$form->date_closed($form->{"gldate_$i"}, \%myconfig));

 
       if ($form->{defaultcurrency} && ($form->{currency} ne $form->{defaultcurrency})) {
         $form->{"exchangerate_$i"} = $form->{exchangerate}
 
       if ($form->{defaultcurrency} && ($form->{currency} ne $form->{defaultcurrency})) {
         $form->{"exchangerate_$i"} = $form->{exchangerate}


@@ -630,7 +644,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) = @_;


@@ -674,8 +688,13 @@ sub post {
 
       $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
 
 
       $form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
 

+      $form->error($locale->text('Cannot post transaction above the maximum future booking date!'))
+      if ($form->date_max_future($form->{"datepaid_$i"}, \%myconfig));
+
+      #Zusätzlich noch das Buchungsdatum in die Bücherkontrolle einbeziehen
+      # (Dient zur Prüfung ob ZE oder ZA geprüft werden soll)

       $form->error($locale->text('Cannot post payment for a closed period!'))
       $form->error($locale->text('Cannot post payment for a closed period!'))

-        if ($form->date_closed($form->{"datepaid_$i"}, \%myconfig));
+        if ($form->date_closed($form->{"datepaid_$i"})  && !$form->date_closed($form->{"gldate_$i"}, \%myconfig));

 
       if ($form->{defaultcurrency} && ($form->{currency} ne $form->{defaultcurrency})) {
         $form->{"exchangerate_$i"} = $form->{exchangerate}
 
       if ($form->{defaultcurrency} && ($form->{currency} ne $form->{defaultcurrency})) {
         $form->{"exchangerate_$i"} = $form->{exchangerate}


@@ -727,7 +746,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


@@ -752,7 +771,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;


@@ -769,7 +788,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!');
 


@@ -809,7 +828,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


@@ -1052,7 +1071,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");