Revision 3c416dd9
Von Thomas Heck vor fast 12 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
|
use SL::OE;
|
||
|
use SL::DB::Default;
|
||
|
use Data::Dumper;
|
||
|
use SL::DBUtils;
|
||
|
use List::Util qw(max sum);
|
||
|
|
||
|
require "bin/mozilla/io.pl";
|
||
| ... | ... | |
|
|
||
|
# tax, total and subtotal calculations
|
||
|
my ($tax, $subtotal);
|
||
|
$form->{taxaccounts_array} = [ split / /, $form->{taxaccounts} ];
|
||
|
|
||
|
my $paymet_id = $::form->{payment_id};
|
||
|
IS->get_customer(\%myconfig, \%$form) if $form->{type} =~ /sales_(order|quotation)/;
|
||
|
$::form->{payment_id} = $paymet_id;
|
||
|
|
||
|
if ( $form->{vc} eq 'customer' && !$form->{taxincluded_changed_by_user} ) {
|
||
|
$form->{taxincluded} = defined($form->{taxincluded_checked}) ? $form->{taxincluded_checked} : $myconfig{taxincluded_checked};
|
||
|
$form->{taxaccounts_array} = [ split(/ /, $form->{taxaccounts}) ];
|
||
|
|
||
|
if ( $form->{type} =~ /sales_(order|quotation)/ && $form->{vc} eq 'customer' && !$form->{taxincluded_changed_by_user} ) {
|
||
|
my $query = '
|
||
|
SELECT
|
||
|
taxincluded_checked
|
||
|
FROM
|
||
|
customer
|
||
|
WHERE
|
||
|
id = ?';
|
||
|
my $res = selectfirst_hashref_query($::form, $::form->get_standard_dbh(), $query, conv_i($::form->{customer_id}));
|
||
|
|
||
|
$form->{taxincluded} = ($res && defined($res->{taxincluded_checked})) ? $res->{taxincluded_checked} : $myconfig{taxincluded_checked};
|
||
|
}
|
||
|
|
||
|
foreach my $item (@{ $form->{taxaccounts_array} }) {
|
||
| bin/mozilla/oe.pl | ||
|---|---|---|
|
use SL::ReportGenerator;
|
||
|
use List::MoreUtils qw(any none);
|
||
|
use List::Util qw(min max reduce sum);
|
||
|
use SL::DBUtils;
|
||
|
use Data::Dumper;
|
||
|
|
||
|
require "bin/mozilla/io.pl";
|
||
| ... | ... | |
|
$TMPL_VAR{notes} = qq|<textarea name=notes rows="$rows" cols="25">| . H($form->{notes}) . qq|</textarea>|;
|
||
|
$TMPL_VAR{intnotes} = qq|<textarea name=intnotes rows="$introws" cols="35">| . H($form->{intnotes}) . qq|</textarea>|;
|
||
|
|
||
|
my $paymet_id = $::form->{payment_id};
|
||
|
IS->get_customer(\%myconfig, $::form) if $form->{type} =~ /sales_(order|quotation)/;
|
||
|
$::form->{payment_id} = $paymet_id;
|
||
|
|
||
|
if ( $form->{vc} eq 'customer' && !$form->{taxincluded_changed_by_user} ) {
|
||
|
$form->{taxincluded} = defined($form->{taxincluded_checked}) ? $form->{taxincluded_checked} : $myconfig{taxincluded_checked};
|
||
|
if ( $form->{type} =~ /sales_(order|quotation)/ && $form->{vc} eq 'customer' && !$form->{taxincluded_changed_by_user} ) {
|
||
|
my $query = '
|
||
|
SELECT
|
||
|
taxincluded_checked
|
||
|
FROM
|
||
|
customer
|
||
|
WHERE
|
||
|
id = ?';
|
||
|
my $res = selectfirst_hashref_query($::form, $::form->get_standard_dbh(), $query, conv_i($::form->{customer_id}));
|
||
|
|
||
|
$form->{taxincluded} = ($res && defined($res->{taxincluded_checked})) ? $res->{taxincluded_checked} : $myconfig{taxincluded_checked};
|
||
|
}
|
||
|
|
||
|
if (!$form->{taxincluded}) {
|
||
Auch abrufbar als: Unified diff
IS::get_customer nicht mehr zum Lader der Einstellung für taxincluded verwenden
fixt #2015