Revision 6e08e454
Von Thomas Heck vor mehr als 11 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 35 | 35 |
use SL::IS; |
| 36 | 36 |
use SL::PE; |
| 37 | 37 |
use SL::OE; |
| 38 |
use SL::DB::Default; |
|
| 39 | 38 |
use Data::Dumper; |
| 40 |
use SL::DBUtils; |
|
| 41 | 39 |
use List::Util qw(max sum); |
| 42 | 40 |
|
| 41 |
use SL::DB::Default; |
|
| 42 |
use SL::DB::Customer; |
|
| 43 |
|
|
| 43 | 44 |
require "bin/mozilla/io.pl"; |
| 44 | 45 |
require "bin/mozilla/invoice_io.pl"; |
| 45 | 46 |
require "bin/mozilla/arap.pl"; |
| ... | ... | |
| 410 | 411 |
my ($tax, $subtotal); |
| 411 | 412 |
$form->{taxaccounts_array} = [ split(/ /, $form->{taxaccounts}) ];
|
| 412 | 413 |
|
| 413 |
if ( $form->{type} =~ /sales_(order|quotation)/ && $form->{vc} eq 'customer' && !$form->{taxincluded_changed_by_user} ) {
|
|
| 414 |
my $query = ' |
|
| 415 |
SELECT |
|
| 416 |
taxincluded_checked |
|
| 417 |
FROM |
|
| 418 |
customer |
|
| 419 |
WHERE |
|
| 420 |
id = ?'; |
|
| 421 |
my $res = selectfirst_hashref_query($::form, $::form->get_standard_dbh(), $query, conv_i($::form->{customer_id}));
|
|
| 422 |
|
|
| 423 |
$form->{taxincluded} = ($res && defined($res->{taxincluded_checked})) ? $res->{taxincluded_checked} : $myconfig{taxincluded_checked};
|
|
| 414 |
if ($form->{customer_id}) {
|
|
| 415 |
my $customer = SL::DB::Customer->new(id => $form->{customer_id})->load();
|
|
| 416 |
$form->{taxincluded} = defined($customer->taxincluded_checked) ? $customer->taxincluded_checked : $myconfig{taxincluded_checked};
|
|
| 424 | 417 |
} |
| 425 | 418 |
|
| 426 | 419 |
foreach my $item (@{ $form->{taxaccounts_array} }) {
|
Auch abrufbar als: Unified diff
taxincluded von Rose laden lassen