projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Verteilen der Rechte für Finanzbuchhaltung auf Dialogbuchung,Kreditoren-/Debitorenrec...
[kivitendo-erp.git]
/
bin
/
mozilla
/
gl.pl
diff --git
a/bin/mozilla/gl.pl
b/bin/mozilla/gl.pl
index
026cf6a
..
b2c0b9a
100644
(file)
--- a/
bin/mozilla/gl.pl
+++ b/
bin/mozilla/gl.pl
@@
-42,9
+42,9
@@
use SL::GL;
use SL::IS;
use SL::PE;
use SL::ReportGenerator;
use SL::IS;
use SL::PE;
use SL::ReportGenerator;
+use SL::DBUtils qw(selectrow_query selectall_hashref_query);
require "bin/mozilla/common.pl";
require "bin/mozilla/common.pl";
-require "bin/mozilla/drafts.pl";
require "bin/mozilla/reportgenerator.pl";
# this is for our long dates
require "bin/mozilla/reportgenerator.pl";
# this is for our long dates
@@
-78,13
+78,11
@@
require "bin/mozilla/reportgenerator.pl";
sub add {
$main::lxdebug->enter_sub();
sub add {
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;
- return $main::lxdebug->leave_sub() if (load_draft_maybe());
-
$form->{title} = "Add";
$form->{callback} = "gl.pl?action=add" unless $form->{callback};
$form->{title} = "Add";
$form->{callback} = "gl.pl?action=add" unless $form->{callback};
@@
-120,7
+118,7
@@
sub add {
sub prepare_transaction {
$main::lxdebug->enter_sub();
sub prepare_transaction {
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;
@@
-167,7
+165,7
@@
sub prepare_transaction {
$form->{totalcredit} += $ref->{amount};
$form->{"credit_$i"} = $ref->{amount};
}
$form->{totalcredit} += $ref->{amount};
$form->{"credit_$i"} = $ref->{amount};
}
- $form->{"taxchart_$i"} =
"0--0.
00";
+ $form->{"taxchart_$i"} =
$ref->{id}."--0.000
00";
$form->{"project_id_$i"} = $ref->{project_id};
$i++;
}
$form->{"project_id_$i"} = $ref->{project_id};
$i++;
}
@@
-191,7
+189,7
@@
sub prepare_transaction {
sub edit {
$main::lxdebug->enter_sub();
sub edit {
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;
@@
-212,7
+210,7
@@
sub edit {
sub search {
$::lxdebug->enter_sub;
sub search {
$::lxdebug->enter_sub;
- $::auth->assert('general_ledger');
+ $::auth->assert('general_ledger
| gl_transactions
');
$::form->all_departments(\%::myconfig);
$::form->get_lists(
$::form->all_departments(\%::myconfig);
$::form->get_lists(
@@
-251,7
+249,7
@@
sub create_subtotal_row {
sub generate_report {
$main::lxdebug->enter_sub();
sub generate_report {
$main::lxdebug->enter_sub();
- $main::auth->assert('general_ledger');
+ $main::auth->assert('general_ledger
| gl_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;
@@
-515,7
+513,7
@@
sub generate_report {
sub update {
$main::lxdebug->enter_sub();
sub update {
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;
@@
-530,6
+528,10
@@
sub update {
my $creditcount = 0;
my ($debitcredit, $amount);
my $creditcount = 0;
my ($debitcredit, $amount);
+ my $dbh = SL::DB->client->dbh;
+ my ($notax_id) = selectrow_query($form, $dbh, "SELECT id FROM tax WHERE taxkey = 0 LIMIT 1", );
+ my $zerotaxes = selectall_hashref_query($form, $dbh, "SELECT id FROM tax WHERE rate = 0", );
+
my @flds =
qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
my @flds =
qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
@@
-568,10
+570,10
@@
sub update {
$form->{debitlock} = 1;
}
if ($debitcredit && $credittax) {
$form->{debitlock} = 1;
}
if ($debitcredit && $credittax) {
- $form->{"taxchart_$i"} = "
0
--0.00";
+ $form->{"taxchart_$i"} = "
$notax_id
--0.00";
}
if (!$debitcredit && $debittax) {
}
if (!$debitcredit && $debittax) {
- $form->{"taxchart_$i"} = "
0
--0.00";
+ $form->{"taxchart_$i"} = "
$notax_id
--0.00";
}
$amount =
($form->{"debit_$i"} == 0)
}
$amount =
($form->{"debit_$i"} == 0)
@@
-579,11
+581,12
@@
sub update {
: $form->{"debit_$i"};
my $j = $#a;
if (($debitcredit && $credittax) || (!$debitcredit && $debittax)) {
: $form->{"debit_$i"};
my $j = $#a;
if (($debitcredit && $credittax) || (!$debitcredit && $debittax)) {
- $form->{"taxchart_$i"} = "
0
--0.00";
+ $form->{"taxchart_$i"} = "
$notax_id
--0.00";
$form->{"tax_$i"} = 0;
}
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
$form->{"tax_$i"} = 0;
}
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
- if ($taxkey > 1) {
+ my $iswithouttax = grep { $_->{id} == $taxkey } @{ $zerotaxes };
+ if (!$iswithouttax) {
if ($debitcredit) {
$debittax = 1;
} else {
if ($debitcredit) {
$debittax = 1;
} else {
@@
-618,7
+621,7
@@
sub display_form {
my ($init) = @_;
$main::lxdebug->enter_sub();
my ($init) = @_;
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;
@@
-641,7
+644,7
@@
sub display_rows {
my ($init) = @_;
$main::lxdebug->enter_sub();
my ($init) = @_;
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;
@@
-845,7
+848,7
@@
sub _get_radieren {
sub form_header {
$::lxdebug->enter_sub;
sub form_header {
$::lxdebug->enter_sub;
- $::auth->assert('g
eneral_ledger
');
+ $::auth->assert('g
l_transactions
');
my ($init) = @_;
my ($init) = @_;
@@
-893,12
+896,12
@@
sub form_header {
sub form_footer {
$::lxdebug->enter_sub;
sub form_footer {
$::lxdebug->enter_sub;
- $::auth->assert('g
eneral_ledger
');
+ $::auth->assert('g
l_transactions
');
my ($follow_ups, $follow_ups_due);
if ($::form->{id}) {
my ($follow_ups, $follow_ups_due);
if ($::form->{id}) {
- $follow_ups = FU->follow_ups('trans_id' => $::form->{id});
+ $follow_ups = FU->follow_ups('trans_id' => $::form->{id}
, 'not_done' => 1
);
$follow_ups_due = sum map { $_->{due} * 1 } @{ $follow_ups || [] };
}
$follow_ups_due = sum map { $_->{due} * 1 } @{ $follow_ups || [] };
}
@@
-994,9
+997,9
@@
sub post_transaction {
my $debitcredit;
my %split_safety = ();
my $debitcredit;
my %split_safety = ();
- my $dbh =
$form->dbconnect_noauto(\%myconfig)
;
+ my $dbh =
SL::DB->client->dbh
;
my ($notax_id) = selectrow_query($form, $dbh, "SELECT id FROM tax WHERE taxkey = 0 LIMIT 1", );
my ($notax_id) = selectrow_query($form, $dbh, "SELECT id FROM tax WHERE taxkey = 0 LIMIT 1", );
-
$dbh->disconnect
;
+
my $zerotaxes = selectall_hashref_query($form, $dbh, "SELECT id FROM tax WHERE rate = 0", )
;
my @flds = qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
my @flds = qw(accno debit credit projectnumber fx_transaction source memo tax taxchart);
@@
-1052,7
+1055,8
@@
sub post_transaction {
$form->{"tax_$i"} = 0;
}
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
$form->{"tax_$i"} = 0;
}
my ($taxkey, $rate) = split(/--/, $form->{"taxchart_$i"});
- if ($taxkey > 1) {
+ my $iswithouttax = grep { $_->{id} == $taxkey } @{ $zerotaxes };
+ if (!$iswithouttax) {
if ($debitcredit) {
$debittax = 1;
} else {
if ($debitcredit) {
$debittax = 1;
} else {
@@
-1143,7
+1147,7
@@
sub post_transaction {
sub post {
$main::lxdebug->enter_sub();
sub post {
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my $locale = $main::locale;
my $form = $main::form;
my $locale = $main::locale;
@@
-1159,9
+1163,7
@@
sub post {
post_transaction();
post_transaction();
- remove_draft() if $form->{remove_draft};
-
- $form->{callback} = build_std_url("action=add&DONT_LOAD_DRAFT=1", "show_details");
+ $form->{callback} = build_std_url("action=add", "show_details");
$form->redirect($form->{callback});
$main::lxdebug->leave_sub();
$form->redirect($form->{callback});
$main::lxdebug->leave_sub();
@@
-1170,7
+1172,7
@@
sub post {
sub post_as_new {
$main::lxdebug->enter_sub();
sub post_as_new {
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my $form = $main::form;
@@
-1183,7
+1185,7
@@
sub post_as_new {
sub storno {
$main::lxdebug->enter_sub();
sub storno {
$main::lxdebug->enter_sub();
- $main::auth->assert('g
eneral_ledger
');
+ $main::auth->assert('g
l_transactions
');
my $form = $main::form;
my %myconfig = %main::myconfig;
my $form = $main::form;
my %myconfig = %main::myconfig;