Änderbarkeit und Löschbarkeit von Belegen in Mandantenkonfiguration einstellbar.

[kivitendo-erp.git] / bin / mozilla / ar.pl
diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl

index 4ec9f54..834e1b1 100644 (file)
--- a/bin/mozilla/ar.pl
+++ b/bin/mozilla/ar.pl
@@ -38,6 +38,7 @@ use SL::AR;
  use SL::FU;
  use SL::IS;
  use SL::PE;
+use SL::DB::Default;
  use SL::ReportGenerator;
  
  require "bin/mozilla/arap.pl";
@@ -219,7 +220,6 @@ sub form_header {
  
    my ($title, $readonly, $exchangerate, $rows);
    my ($notes, $department, $customer, $employee, $amount, $project);
-  my ($onload);
    my ($ARselected);
  
  
@@ -252,7 +252,9 @@ sub form_header {
    #/show history button js
    $readonly = ($form->{id}) ? "readonly" : "";
  
-  $form->{radier} = ($form->current_date(\%myconfig) eq $form->{gldate}) ? 1 : 0;
+  $form->{radier} = ($::instance_conf->get_ar_changeable == 2)
+                      ? ($form->current_date(\%myconfig) eq $form->{gldate})
+                      : ($::instance_conf->get_ar_changeable == 1);
    $readonly = ($form->{radier}) ? "" : $readonly;
  
    # set option selected
@@ -316,7 +318,7 @@ sub form_header {
      $taxcharts{$item->{id}} = $item;
    }
  
-  $form->{fokus} = "arledger.customer";
+  $::request->{layout}->focus("#customer");
  
    my $follow_up_vc         =  $form->{customer};
    $follow_up_vc            =~ s/--.*?//;
@@ -326,9 +328,6 @@ sub form_header {
      qq|<script type="text/javascript" src="js/show_vc_details.js"></script>| .
      qq|<script type="text/javascript" src="js/follow_up.js"></script>|;
  
-  $onload = qq|focus()|;
-  $onload .= qq|;setupPoints('|. $myconfig{numberformat} .qq|', '|. $locale->text("wrongformat") .qq|')|;
-
  #  $amount  = $locale->text('Amount');
  #  $project = $locale->text('Project');
  
@@ -425,8 +424,8 @@ sub form_header {
  
  
      $payment->{changeable} =
-        $::lx_office_conf{features}->{payments_changeable} == 0 ? !$payment->{acc_trans_id} # never
-      : $::lx_office_conf{features}->{payments_changeable} == 2 ? $payment->{gldate} eq '' || $payment->{gldate} eq $now
+        SL::DB::Default->get->payments_changeable == 0 ? !$payment->{acc_trans_id} # never
+      : SL::DB::Default->get->payments_changeable == 2 ? $payment->{gldate} eq '' || $payment->{gldate} eq $now
        :                                                           1;
  
      push @payments, $payment;
@@ -443,7 +442,6 @@ sub form_header {
      project_labels       => \%project_labels,
      rows                 => $rows,
      ARselected           => $ARselected,
-    onload               => $onload,
      title_str            => $title,
      follow_up_trans_info => $follow_up_trans_info,
    });
@@ -529,10 +527,6 @@ $follow_ups_block
      }
    }
  
-  if ($form->{menubar}) {
-    require "bin/mozilla/menu.pl";
-    &menubar;
-  }
    # button for saving history
    if($form->{id} ne "") {
      print qq| <input type=button class=submit onclick=set_history_window($form->{id}); name=history id=history value=| . $locale->text('history') . qq|> |;
@@ -547,8 +541,6 @@ $follow_ups_block
  
    print "
  </form>
-
-</body>
  ";
  
    $main::lxdebug->leave_sub();
@@ -849,8 +841,6 @@ sub delete {
    delete $form->{header};
  
    print qq|
-<body>
-
  <form method=post action=$form->{script}>
  |;
  
@@ -870,8 +860,6 @@ sub delete {
  <input name=action class=submit type=submit value="|
      . $locale->text('Yes') . qq|">
  </form>
-
-</body>
  |;
  
    $main::lxdebug->leave_sub();
@@ -912,7 +900,7 @@ sub search {
    my $cgi      = $::request->{cgi};
  
    my ($customer, $department);
-  my ($jsscript, $button1, $button2, $onload);
+  my ($jsscript, $button1, $button2);
  
    # setup customer selection
    $form->all_vc(\%myconfig, "customer", "AR");