Revision b36f0864
Von Peter Schulgin vor etwa 8 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
|
# so that they can be sorted in later
|
||
|
my %prepared_template_arrays = IC->prepare_parts_for_printing(myconfig => $myconfig, form => $form);
|
||
|
my @prepared_arrays = keys %prepared_template_arrays;
|
||
|
my @separate_totals = qw(non_separate_subtotal);
|
||
|
|
||
|
my $ic_cvar_configs = CVar->get_configs(module => 'IC');
|
||
|
my $project_cvar_configs = CVar->get_configs(module => 'Projects');
|
||
| ... | ... | |
|
push @{ $form->{TEMPLATE_ARRAYS}->{discount_nofmt} }, ($discount != 0) ? $discount * -1 : '';
|
||
|
push @{ $form->{TEMPLATE_ARRAYS}->{p_discount} }, $form->{"discount_$i"};
|
||
|
|
||
|
if ( $prepared_template_arrays{separate}[$i - 1] ) {
|
||
|
my $pabbr = $prepared_template_arrays{separate}[$i - 1];
|
||
|
if ( ! $form->{"separate_${pabbr}_subtotal"} ) {
|
||
|
push @separate_totals , "separate_${pabbr}_subtotal";
|
||
|
$form->{"separate_${pabbr}_subtotal"} = 0;
|
||
|
}
|
||
|
$form->{"separate_${pabbr}_subtotal"} += $linetotal;
|
||
|
} else {
|
||
|
$form->{non_separate_subtotal} += $linetotal;
|
||
|
}
|
||
|
|
||
|
$form->{total} += $linetotal;
|
||
|
$form->{nodiscount_total} += $nodiscount_linetotal;
|
||
|
$form->{discount_total} += $discount;
|
||
| ... | ... | |
|
$form->{delivery_term}->description_long($form->{delivery_term}->translated_attribute('description_long', $form->{language_id})) if $form->{delivery_term} && $form->{language_id};
|
||
|
|
||
|
$form->{username} = $myconfig->{name};
|
||
|
$form->{$_} = $form->format_amount($myconfig, $form->{$_}, 2) for @separate_totals;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Revert "Artikel-Klassifizierung: Neue Option "Preis separat ausweisen""
This reverts commit 815c3639a21ed53b288fd8bbb231e741c8e67ce5.