X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Far.pl;h=4e494cdc5bb53632f823131b39ca68c1034dfa76;hb=5ff43c9827db9fe9af6171a390d40bccdefc7e73;hp=eaa0f2224abe8f7729b062db2a2f053d86fed3e1;hpb=456a81dd3b5ccd8b4a48ea166d465ca2b9fb5b6b;p=kivitendo-erp.git diff --git a/bin/mozilla/ar.pl b/bin/mozilla/ar.pl index eaa0f2224..4e494cdc5 100644 --- a/bin/mozilla/ar.pl +++ b/bin/mozilla/ar.pl @@ -116,7 +116,8 @@ sub create_links { $form->{duedate} = $duedate if $duedate; $form->{oldcustomer} = "$form->{customer}--$form->{customer_id}"; - $form->{rowcount} = 1; + $form->{rowcount} = 1; + # currencies @curr = split /:/, $form->{currencies}; chomp $curr[0]; @@ -182,7 +183,7 @@ sub create_links { # if there is a value we have an old entry my $j = 0; my $k = 0; - print(STDERR Dumper($form->{acc_trans})); + for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) { if ($key eq "AR_paid") { $j++; @@ -205,7 +206,7 @@ sub create_links { $akey = $key; $akey =~ s/AR_//; - if ($key eq "AR_tax") { + if ($key eq "AR_tax" || $key eq "AP_tax") { $form->{"${key}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = @@ -223,11 +224,10 @@ sub create_links { $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"}; $withholdingrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"}; - } - print(STDERR $form->{acc_trans}{$key}->[$i - 1]->{amount}, " ACC_TRANS\n"); - print(STDERR "$key KEY, $k Zeile\n"); + } $index = $form->{acc_trans}{$key}->[$i - 1]->{index}; $form->{"tax_$index"} = $form->{acc_trans}{$key}->[$i - 1]->{amount}; + $totaltax += $form->{"tax_$index"}; } else { $k++; @@ -275,33 +275,15 @@ sub create_links { ($totaltax + $totalwithholding) * $form->{"amount_$i"} / $totalamount; $tax = $form->round_amount($taxamount, 2); $diff += ($taxamount - $tax); - $form->{"amount_$i"} += $tax; + $form->{"amount_$i"} += $form->{"tax_$i"}; } $form->{amount_1} += $form->round_amount($diff, 2); } - # check if calculated is equal to stored - if ($form->{taxincluded} && $form->{taxrate} && $withholdingrate) { - if ($form->{"taxrate"} > 0) { - $taxamount = - $form->round_amount( - ($form->{amount_1} - ($form->{amount_1} / ($form->{taxrate} + 1))), - 2); - } else { - $taxamount = - $form->round_amount( - ($totalamount + $totaltax + $totalwithholding) * $withholdingrate / - (1 - $withholdingrate), - 2 - ) * $form->{"taxrate"} / $withholdingrate; - } - } else { - $taxamount = $totalamount * $form->{"taxrate"}; - } $taxamount = $form->round_amount($taxamount, 2); $form->{tax} = $taxamount; - $form->{invtotal} = $totalamount + $totaltax + $totalwithholding; + $form->{invtotal} = $totalamount + $totaltax; $form->{locked} = ($form->datetonum($form->{transdate}, \%myconfig) <= @@ -353,8 +335,9 @@ sub form_header { s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; } $selectAR_amount_unquoted = $form->{selectAR_amount}; - $taxchart = $form->{taxchart}; - map { $form->{$_} =~ s/\"/"/g } qw(AR_amount selectAR_amount AR taxchart); + $taxchart = $form->{taxchart}; + map { $form->{$_} =~ s/\"/"/g } + qw(AR_amount selectAR_amount AR taxchart); # format amounts $form->{exchangerate} = @@ -438,14 +421,12 @@ sub form_header { $button1 = qq|
| - . $locale->text('Incoming Payments') - . qq| | + . $locale->text('Incoming Payments') . qq|text('button') - . qq|> | + . $locale->text('button') . qq|> |; $button2 = qq|text('button') - . qq|> | + . $locale->text('button') . qq|> |; #write Trigger @@ -1309,10 +1283,9 @@ sub ar_transactions { $option .= $locale->text('Closed'); } - @columns = - $form->sort_columns( + @columns = $form->sort_columns( qw(transdate id invnumber ordnumber name netamount tax amount paid datepaid due duedate notes employee shippingpoint shipvia) - ); + ); foreach $item (@columns) { if ($form->{"l_$item"} eq "Y") {
---|