Revision 25d67207
Von Martin Helmling martin.helmling@octosoft.eu vor etwa 8 Jahren hinzugefügt
| 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");
|
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"