Revision 25d67207
Von Martin Helmling martin.helmling@octosoft.eu vor etwa 8 Jahren hinzugefügt
| SL/Controller/AccTrans.pm | ||
|---|---|---|
| 23 | 23 |
sub _mini_ledger {
|
| 24 | 24 |
my ($self, $transactions) = @_; |
| 25 | 25 |
|
| 26 |
$::auth->assert('general_ledger');
|
|
| 26 |
$::auth->assert('invoice_edit');
|
|
| 27 | 27 |
|
| 28 | 28 |
my $debit_sum = 0; |
| 29 | 29 |
my $credit_sum = 0; |
| ... | ... | |
| 39 | 39 |
sub _mini_trial_balance {
|
| 40 | 40 |
my ($self, $transactions) = @_; |
| 41 | 41 |
|
| 42 |
$::auth->assert('general_ledger');
|
|
| 42 |
$::auth->assert('invoice_edit');
|
|
| 43 | 43 |
|
| 44 | 44 |
my $rec = {};
|
| 45 | 45 |
foreach my $t ( @{ $transactions } ) {
|
| ... | ... | |
| 57 | 57 |
} |
| 58 | 58 |
|
| 59 | 59 |
sub check_auth {
|
| 60 |
$::auth->assert('general_ledger');
|
|
| 60 |
$::auth->assert('invoice_edit');
|
|
| 61 | 61 |
} |
| 62 | 62 |
|
| 63 | 63 |
1; |
| SL/Controller/TopQuickSearch/GLTransaction.pm | ||
|---|---|---|
| 11 | 11 |
use SL::DBUtils qw(like); |
| 12 | 12 |
use List::Util qw(sum); |
| 13 | 13 |
|
| 14 |
sub auth { 'general_ledger' }
|
|
| 14 |
sub auth { 'general_ledger|gl_transactions|ap_transactions|ar_transactions' }
|
|
| 15 | 15 |
|
| 16 | 16 |
sub name { 'gl_transaction' }
|
| 17 | 17 |
|
| bin/mozilla/ap.pl | ||
|---|---|---|
| 88 | 88 |
my $form = $main::form; |
| 89 | 89 |
my %myconfig = %main::myconfig; |
| 90 | 90 |
|
| 91 |
$main::auth->assert('general_ledger');
|
|
| 91 |
$main::auth->assert('ap_transactions');
|
|
| 92 | 92 |
|
| 93 | 93 |
$form->{title} = "Add";
|
| 94 | 94 |
|
| ... | ... | |
| 108 | 108 |
|
| 109 | 109 |
my $form = $main::form; |
| 110 | 110 |
|
| 111 |
$main::auth->assert('general_ledger');
|
|
| 111 |
$main::auth->assert('ap_transactions');
|
|
| 112 | 112 |
|
| 113 | 113 |
$form->{title} = "Edit";
|
| 114 | 114 |
|
| ... | ... | |
| 123 | 123 |
|
| 124 | 124 |
my $form = $main::form; |
| 125 | 125 |
|
| 126 |
$main::auth->assert('general_ledger');
|
|
| 126 |
$main::auth->assert('ap_transactions');
|
|
| 127 | 127 |
|
| 128 | 128 |
&form_header; |
| 129 | 129 |
&form_footer; |
| ... | ... | |
| 139 | 139 |
my $form = $main::form; |
| 140 | 140 |
my %myconfig = %main::myconfig; |
| 141 | 141 |
|
| 142 |
$main::auth->assert('general_ledger');
|
|
| 142 |
$main::auth->assert('ap_transactions');
|
|
| 143 | 143 |
|
| 144 | 144 |
$form->create_links("AP", \%myconfig, "vendor");
|
| 145 | 145 |
my %saved; |
| ... | ... | |
| 216 | 216 |
my $locale = $main::locale; |
| 217 | 217 |
my $cgi = $::request->{cgi};
|
| 218 | 218 |
|
| 219 |
$main::auth->assert('general_ledger');
|
|
| 219 |
$main::auth->assert('ap_transactions');
|
|
| 220 | 220 |
|
| 221 | 221 |
$::form->{invoice_obj} = SL::DB::PurchaseInvoice->new(id => $::form->{id})->load if $::form->{id};
|
| 222 | 222 |
|
| ... | ... | |
| 450 | 450 |
|
| 451 | 451 |
sub form_footer {
|
| 452 | 452 |
$::lxdebug->enter_sub; |
| 453 |
$::auth->assert('general_ledger');
|
|
| 453 |
$::auth->assert('ap_transactions');
|
|
| 454 | 454 |
|
| 455 | 455 |
my $num_due; |
| 456 | 456 |
my $num_follow_ups; |
| ... | ... | |
| 488 | 488 |
my $form = $main::form; |
| 489 | 489 |
my %myconfig = %main::myconfig; |
| 490 | 490 |
|
| 491 |
$main::auth->assert('general_ledger');
|
|
| 491 |
$main::auth->assert('ap_transactions');
|
|
| 492 | 492 |
|
| 493 | 493 |
&mark_as_paid_common(\%myconfig,"ap"); |
| 494 | 494 |
|
| ... | ... | |
| 501 | 501 |
my $form = $main::form; |
| 502 | 502 |
my %myconfig = %main::myconfig; |
| 503 | 503 |
|
| 504 |
$main::auth->assert('general_ledger');
|
|
| 504 |
$main::auth->assert('ap_transactions');
|
|
| 505 | 505 |
|
| 506 | 506 |
my $display = shift; |
| 507 | 507 |
|
| ... | ... | |
| 589 | 589 |
my %myconfig = %main::myconfig; |
| 590 | 590 |
my $locale = $main::locale; |
| 591 | 591 |
|
| 592 |
$main::auth->assert('general_ledger');
|
|
| 592 |
$main::auth->assert('ap_transactions');
|
|
| 593 | 593 |
$form->mtime_ischanged('ap');
|
| 594 | 594 |
|
| 595 | 595 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| ... | ... | |
| 643 | 643 |
my %myconfig = %main::myconfig; |
| 644 | 644 |
my $locale = $main::locale; |
| 645 | 645 |
|
| 646 |
$main::auth->assert('general_ledger');
|
|
| 646 |
$main::auth->assert('ap_transactions');
|
|
| 647 | 647 |
$form->mtime_ischanged('ap');
|
| 648 | 648 |
|
| 649 | 649 |
my ($inline) = @_; |
| ... | ... | |
| 745 | 745 |
my $form = $main::form; |
| 746 | 746 |
my %myconfig = %main::myconfig; |
| 747 | 747 |
|
| 748 |
$main::auth->assert('general_ledger');
|
|
| 748 |
$main::auth->assert('ap_transactions');
|
|
| 749 | 749 |
|
| 750 | 750 |
$form->{postasnew} = 1;
|
| 751 | 751 |
# saving the history |
| ... | ... | |
| 770 | 770 |
my $form = $main::form; |
| 771 | 771 |
my %myconfig = %main::myconfig; |
| 772 | 772 |
|
| 773 |
$main::auth->assert('general_ledger');
|
|
| 773 |
$main::auth->assert('ap_transactions');
|
|
| 774 | 774 |
|
| 775 | 775 |
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);
|
| 776 | 776 |
$form->{paidaccounts} = 1;
|
| ... | ... | |
| 787 | 787 |
my $form = $main::form; |
| 788 | 788 |
my $locale = $main::locale; |
| 789 | 789 |
|
| 790 |
$main::auth->assert('general_ledger');
|
|
| 790 |
$main::auth->assert('ap_transactions');
|
|
| 791 | 791 |
|
| 792 | 792 |
$form->{title} = $locale->text('Confirm!');
|
| 793 | 793 |
|
| ... | ... | |
| 827 | 827 |
my %myconfig = %main::myconfig; |
| 828 | 828 |
my $locale = $main::locale; |
| 829 | 829 |
|
| 830 |
$main::auth->assert('general_ledger');
|
|
| 830 |
$main::auth->assert('ap_transactions');
|
|
| 831 | 831 |
|
| 832 | 832 |
if (AP->delete_transaction(\%myconfig, \%$form)) {
|
| 833 | 833 |
# saving the history |
| ... | ... | |
| 1070 | 1070 |
my %myconfig = %main::myconfig; |
| 1071 | 1071 |
my $locale = $main::locale; |
| 1072 | 1072 |
|
| 1073 |
$main::auth->assert('general_ledger');
|
|
| 1073 |
$main::auth->assert('ap_transactions');
|
|
| 1074 | 1074 |
|
| 1075 | 1075 |
if (IS->has_storno(\%myconfig, $form, 'ap')) {
|
| 1076 | 1076 |
$form->{title} = $locale->text("Cancel Accounts Payables Transaction");
|
| bin/mozilla/gl.pl | ||
|---|---|---|
| 210 | 210 |
|
| 211 | 211 |
sub search {
|
| 212 | 212 |
$::lxdebug->enter_sub; |
| 213 |
$::auth->assert('gl_transactions');
|
|
| 213 |
$::auth->assert('general_ledger | gl_transactions');
|
|
| 214 | 214 |
|
| 215 | 215 |
$::form->all_departments(\%::myconfig); |
| 216 | 216 |
$::form->get_lists( |
| ... | ... | |
| 249 | 249 |
sub generate_report {
|
| 250 | 250 |
$main::lxdebug->enter_sub(); |
| 251 | 251 |
|
| 252 |
$main::auth->assert('gl_transactions');
|
|
| 252 |
$main::auth->assert('general_ledger | gl_transactions');
|
|
| 253 | 253 |
|
| 254 | 254 |
my $form = $main::form; |
| 255 | 255 |
my %myconfig = %main::myconfig; |
| bin/mozilla/rp.pl | ||
|---|---|---|
| 102 | 102 |
|
| 103 | 103 |
my $rp_access_map = {
|
| 104 | 104 |
'projects' => 'report', |
| 105 |
'ar_aging' => 'general_ledger | ar_transactions',
|
|
| 106 |
'ap_aging' => 'general_ledger | ap_transactions',
|
|
| 105 |
'ar_aging' => 'general_ledger', |
|
| 106 |
'ap_aging' => 'general_ledger', |
|
| 107 | 107 |
'receipts' => 'cash', |
| 108 | 108 |
'payments' => 'cash', |
| 109 | 109 |
'trial_balance' => 'report', |
| locale/de/all | ||
|---|---|---|
| 72 | 72 |
'AP Transactions' => 'Kreditorenbuchungen', |
| 73 | 73 |
'AP transactions changeable' => 'Änderbarkeit von Kreditorenbuchungen', |
| 74 | 74 |
'AP transactions with sales taxkeys and/or AR transactions with input taxkeys' => 'Kreditorenbuchungen mit Umsatzsteuer-Steuerschlüsseln und/oder Debitorenbuchungen mit Vorsteuer-Steuerschlüsseln', |
| 75 |
'AP/AR Aging & Journal' => 'Offene Forderungen/Verbindunglichkeiten & Buchungsjournal', |
|
| 75 | 76 |
'AR' => 'Verkauf', |
| 76 | 77 |
'AR Aging' => 'Offene Forderungen', |
| 77 | 78 |
'AR Transaction' => 'Debitorenbuchung', |
| menus/user/00-erp.yaml | ||
|---|---|---|
| 625 | 625 |
name: Journal |
| 626 | 626 |
icon: journal |
| 627 | 627 |
order: 300 |
| 628 |
access: general_ledger |
|
| 628 |
access: general_ledger | gl_transactions
|
|
| 629 | 629 |
module: gl.pl |
| 630 | 630 |
params: |
| 631 | 631 |
action: search |
| sql/Pg-upgrade2-auth/rename_general_ledger_rights.sql | ||
|---|---|---|
| 1 |
-- @tag: rename_general_ledger_rights |
|
| 2 |
-- @description: Umbennenung des general ledger Rechts |
|
| 3 |
-- @depends: split_transaction_rights |
|
| 4 |
-- @charset: utf-8 |
|
| 5 |
-- @locales: AP/AR Aging & Journal |
|
| 6 |
UPDATE auth.master_rights SET description='AP/AR Aging & Journal' WHERE name='general_ledger'; |
|
| templates/webpages/is/form_header.html | ||
|---|---|---|
| 38 | 38 |
[%- IF AUTH.assert('record_links', 1) %]
|
| 39 | 39 |
<li><a href="controller.pl?action=RecordLinks/ajax_list&object_model=Invoice&object_id=[% HTML.url(id) %]">[% 'Linked Records' | $T8 %]</a></li> |
| 40 | 40 |
[%- END %] |
| 41 |
[%- IF AUTH.assert('general_ledger', 1) %]
|
|
| 41 |
[%- IF AUTH.assert('invoice_edit', 1) %]
|
|
| 42 | 42 |
<li><a href="[% 'controller.pl?action=AccTrans/list_transactions&trans_id=' _ HTML.url(id) | html %]">[% LxERP.t8('Transactions') %]</a></li>
|
| 43 | 43 |
[%- END %] |
| 44 | 44 |
[%- END %] |
Auch abrufbar als: Unified diff
Verteilen der Rechte für Finanzbuchhaltung auf Dialogbuchung,Kreditoren-/Debitorenrechnungen(2)
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"