Verteilen der Rechte für Finanzbuchhaltung auf Dialogbuchung,Kreditoren-/Debitorenrec...
authorMartin Helmling martin.helmling@octosoft.eu <martin.helmling@octosoft.eu>
Fri, 14 Oct 2016 12:57:52 +0000 (14:57 +0200)
committerMartin Helmling martin.helmling@octosoft.eu <martin.helmling@octosoft.eu>
Fri, 14 Oct 2016 12:57:52 +0000 (14:57 +0200)
Rechte überarbeitet:

- Beim Schnellsuchen zur Auswahl alle Rechte erlauben zum Suchen
- Der Reiter "Buchungen" kann nur von jemandem geöffnet werden, der Rechnungen editieren darf,
    deshalb hier von "general_ledger" auf "invoice_edit" umgebaut
- Wer Dialogbuchungen machen macht, darf auch das Buchungsjournal ansehen, am die Buchung zu finden.
- Bei Kreditorenbuchungen fehlte das neue Recht an einigen Stellen.
- Umbenennen des Rechts "Finanzbuchhaltungen" in "Offene Forderungen/Verbindunglichkeiten & Buchungsjournal"

SL/Controller/AccTrans.pm
SL/Controller/TopQuickSearch/GLTransaction.pm
bin/mozilla/ap.pl
bin/mozilla/gl.pl
bin/mozilla/rp.pl
locale/de/all
menus/user/00-erp.yaml
sql/Pg-upgrade2-auth/rename_general_ledger_rights.sql [new file with mode: 0644]
templates/webpages/is/form_header.html

index 6c58061..37c9d3b 100644 (file)
@@ -23,7 +23,7 @@ sub action_list_transactions {
 sub _mini_ledger {
   my ($self, $transactions) = @_;
 
-  $::auth->assert('general_ledger');
+  $::auth->assert('invoice_edit');
 
   my $debit_sum  = 0;
   my $credit_sum = 0;
@@ -39,7 +39,7 @@ sub _mini_ledger {
 sub _mini_trial_balance {
   my ($self, $transactions) = @_;
 
-  $::auth->assert('general_ledger');
+  $::auth->assert('invoice_edit');
 
   my $rec = {};
   foreach my $t ( @{ $transactions } ) {
@@ -57,7 +57,7 @@ sub _mini_trial_balance {
 }
 
 sub check_auth {
-  $::auth->assert('general_ledger');
+  $::auth->assert('invoice_edit');
 }
 
 1;
index 8eead24..baa6da0 100644 (file)
@@ -11,7 +11,7 @@ use SL::Locale::String qw(t8);
 use SL::DBUtils qw(like);
 use List::Util qw(sum);
 
-sub auth { 'general_ledger' }
+sub auth { 'general_ledger|gl_transactions|ap_transactions|ar_transactions' }
 
 sub name { 'gl_transaction' }
 
index 28fa8d2..52559ed 100644 (file)
@@ -88,7 +88,7 @@ sub add {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
 
   $form->{title} = "Add";
 
@@ -108,7 +108,7 @@ sub edit {
 
   my $form     = $main::form;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
 
   $form->{title} = "Edit";
 
@@ -123,7 +123,7 @@ sub display_form {
 
   my $form     = $main::form;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
 
   &form_header;
   &form_footer;
@@ -139,7 +139,7 @@ sub create_links {
   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;
@@ -216,7 +216,7 @@ sub form_header {
   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};
 
@@ -450,7 +450,7 @@ sub form_header {
 
 sub form_footer {
   $::lxdebug->enter_sub;
-  $::auth->assert('general_ledger');
+  $::auth->assert('ap_transactions');
 
   my $num_due;
   my $num_follow_ups;
@@ -488,7 +488,7 @@ sub mark_as_paid {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
 
   &mark_as_paid_common(\%myconfig,"ap");
 
@@ -501,7 +501,7 @@ sub update {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
 
   my $display = shift;
 
@@ -589,7 +589,7 @@ sub post_payment {
   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);
@@ -643,7 +643,7 @@ sub post {
   my %myconfig = %main::myconfig;
   my $locale   = $main::locale;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
   $form->mtime_ischanged('ap');
 
   my ($inline) = @_;
@@ -745,7 +745,7 @@ sub post_as_new {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
 
   $form->{postasnew} = 1;
   # saving the history
@@ -770,7 +770,7 @@ sub use_as_new {
   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;
@@ -787,7 +787,7 @@ sub delete {
   my $form     = $main::form;
   my $locale   = $main::locale;
 
-  $main::auth->assert('general_ledger');
+  $main::auth->assert('ap_transactions');
 
   $form->{title} = $locale->text('Confirm!');
 
@@ -827,7 +827,7 @@ sub yes {
   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
@@ -1070,7 +1070,7 @@ sub storno {
   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");
index 42ac4a0..b2c0b9a 100644 (file)
@@ -210,7 +210,7 @@ sub edit {
 
 sub search {
   $::lxdebug->enter_sub;
-  $::auth->assert('gl_transactions');
+  $::auth->assert('general_ledger | gl_transactions');
 
   $::form->all_departments(\%::myconfig);
   $::form->get_lists(
@@ -249,7 +249,7 @@ sub create_subtotal_row {
 sub generate_report {
   $main::lxdebug->enter_sub();
 
-  $main::auth->assert('gl_transactions');
+  $main::auth->assert('general_ledger | gl_transactions');
 
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
index 0a1a352..db75257 100644 (file)
@@ -102,8 +102,8 @@ use strict;
 
 my $rp_access_map = {
   'projects'           => 'report',
-  'ar_aging'           => 'general_ledger | ar_transactions',
-  'ap_aging'           => 'general_ledger | ap_transactions',
+  'ar_aging'           => 'general_ledger',
+  'ap_aging'           => 'general_ledger',
   'receipts'           => 'cash',
   'payments'           => 'cash',
   'trial_balance'      => 'report',
index cd4fe46..ec161b1 100755 (executable)
@@ -72,6 +72,7 @@ $self->{texts} = {
   'AP Transactions'             => 'Kreditorenbuchungen',
   'AP transactions changeable'  => 'Änderbarkeit von Kreditorenbuchungen',
   'AP transactions with sales taxkeys and/or AR transactions with input taxkeys' => 'Kreditorenbuchungen mit Umsatzsteuer-Steuerschlüsseln und/oder Debitorenbuchungen mit Vorsteuer-Steuerschlüsseln',
+  'AP/AR Aging & Journal'       => 'Offene Forderungen/Verbindunglichkeiten & Buchungsjournal',
   'AR'                          => 'Verkauf',
   'AR Aging'                    => 'Offene Forderungen',
   'AR Transaction'              => 'Debitorenbuchung',
index 96250db..485cd82 100644 (file)
   name: Journal
   icon: journal
   order: 300
-  access: general_ledger
+  access: general_ledger | gl_transactions
   module: gl.pl
   params:
     action: search
diff --git a/sql/Pg-upgrade2-auth/rename_general_ledger_rights.sql b/sql/Pg-upgrade2-auth/rename_general_ledger_rights.sql
new file mode 100644 (file)
index 0000000..863f523
--- /dev/null
@@ -0,0 +1,6 @@
+-- @tag: rename_general_ledger_rights
+-- @description: Umbennenung des general ledger Rechts
+-- @depends: split_transaction_rights
+-- @charset: utf-8
+-- @locales: AP/AR Aging & Journal
+UPDATE auth.master_rights SET description='AP/AR Aging & Journal' WHERE name='general_ledger';
index ff9353a..5e76f88 100644 (file)
@@ -38,7 +38,7 @@
   [%- IF AUTH.assert('record_links', 1) %]
   <li><a href="controller.pl?action=RecordLinks/ajax_list&object_model=Invoice&object_id=[% HTML.url(id) %]">[% 'Linked Records' | $T8 %]</a></li>
   [%- END %]
-  [%- IF AUTH.assert('general_ledger', 1) %]
+  [%- IF AUTH.assert('invoice_edit', 1) %]
   <li><a href="[% 'controller.pl?action=AccTrans/list_transactions&trans_id=' _ HTML.url(id) | html %]">[% LxERP.t8('Transactions') %]</a></li>
   [%- END %]
 [%- END %]