projekt kivitendo

  # so we extract both versions in our query and later overwrite the description in article mode

  my $query =

    qq|FROM invoice i | .

    qq|JOIN ar on (i.trans_id = ar.id) | .

    qq|JOIN parts p on (i.parts_id = p.id) | .

  };

  if ( $form->{customer} =~ /--/ ) {

    ($form->{customername}, $form->{customer_id}) = split(/--/, $form->{customer});

  } elsif ($form->{customer}) {

    &check_name('customer', no_select => 1);

  push @columns, map { "cvar_$_->{name}" } @includeable_custom_variables;

  my @hidden_variables  = (qw(l_headers_mainsort l_headers_subsort l_subtotal_mainsort l_subtotal_subsort l_total l_parts l_customername l_customernumber transdatefrom transdateto decimalplaces customer customername customer_id department partnumber partsgroup country business description project_id customernumber salesman employee salesman_id employee_id business_id partsgroup_id mainsort subsort),

      "$form->{db}number",

      map({ "cvar_$_->{name}" } @searchable_custom_variables),

      map { "l_$_" } @columns

      );

  my @hidden_nondefault = grep({ $form->{$_} } @hidden_variables);

  # <input type="hidden" name="report_generator_hidden_transdateto" value="21.05.2010">

  $href = build_std_url('action=invoice_transactions', grep { $form->{$_} } @hidden_variables);

  push @options, $locale->text('Description')             . " : $form->{description}"                                                       if $form->{description};

  push @options, $locale->text('Customer')                . " : $form->{customername}"                                                      if $form->{customer};

  push @options, $locale->text('Customer Number')         . " : $form->{customernumber}"                                                    if $form->{customernumber};

  push @options, $locale->text('Department')              . " : " . (split /--/, $form->{department})[0]                                    if $form->{department};

  push @options, $locale->text('Invoice Number')          . " : $form->{invnumber}"                                                         if $form->{invnumber};

  push @options, $locale->text('Invoice Date')            . " : $form->{invdate}"                                                           if $form->{invdate};

    $basefactor = 1 unless $basefactor;

    $ar->{price_factor} = 1 unless $ar->{price_factor};

    $ar->{lastcost}        = $ar->{lastcost}   / $ar->{price_factor} / $basefactor;

    $ar->{marge_percent} = $ar->{sellprice_total} ? (($ar->{sellprice_total}-$ar->{lastcost_total}) / $ar->{sellprice_total} * 100) : 0;

    $ar->{marge_total} = $ar->{sellprice_total} ? $ar->{sellprice_total}-$ar->{lastcost_total}  : 0;

    $ar->{qty} *= $basefactor;

    $ar->{weight} *= $ar->{qty};

      my $headerrow = {

        # use $emptyname for mainsort header if mainsort is empty

        data    => $ar->{$form->{'mainsort'}} || $locale->text('empty'),

#      $report->add_data($emptyheaderrow_set) if $form->{l_headers} eq "Y";

    };

    # special case: subsort headers only makes (aesthetical) sense if we show individual parts

    if ((   $idx == 0

         or $ar->{ $form->{'subsort'} }  ne $form->{AR}->[$idx - 1]->{ $form->{'subsort'} }

      $subtotals2{lastcost}  = 0;

    };

    $subtotals1{marge_percent} = $subtotals1{sellprice_total} ? (($subtotals1{sellprice_total} - $subtotals1{lastcost_total}) / $subtotals1{sellprice_total}) * 100 : 0;

    $subtotals2{marge_percent} = $subtotals2{sellprice_total} ? (($subtotals2{sellprice_total} - $subtotals2{lastcost_total}) / $subtotals2{sellprice_total}) *100 : 0;

    $totals{marge_percent}    = $totals{sellprice_total}    ? ( ($totals{sellprice_total} - $totals{lastcost_total}) / $totals{sellprice_total}   ) * 100 : 0;

    map { $ar->{$_} = $form->format_amount(\%myconfig, $ar->{$_}, 2) } qw(marge_percent qty);

    map { $ar->{$_} = $form->format_amount(\%myconfig, $ar->{$_}, 3) } qw(weight);

    map { $ar->{$_} = $form->format_amount(\%myconfig, $ar->{$_}, $form->{"decimalplaces"} )} qw(lastcost sellprice sellprice_total lastcost_total marge_total);

    if ($form->{l_parts}) {

      my %row = (

        map { ($_ => { data => $ar->{$_}, align => $column_alignment{$_} }) } @columns

      $report->add_data(\%row);

    }

    if (   ($form->{l_subtotal_mainsort} eq 'Y')

        && ($form->{l_subtotal_subsort}  eq 'Y')

        && (($idx == (scalar @{ $form->{AR} } - 1))   # last element always has a subtotal

        && (($idx == (scalar @{ $form->{AR} } - 1))   # last element always has a subtotal

            || ($ar->{ $form->{'mainsort'} } ne $form->{AR}->[$idx + 1]->{ $form->{'mainsort'} })

            )) {   # if value that is sorted by changes, print subtotal

        # subtotal line even if it is selected

      $report->add_data(create_subtotal_row_invoice(\%subtotals1, \@columns, \%column_alignment, \@subtotal_columns, 'listsubtotal', $ar->{$form->{mainsort}}));

      $report->add_data({ %empty_row }) if $addemptylines; # insert empty row after mainsort