projekt kivitendo

    type              => 1,

    salesman          => 1,

    buchungsgruppe    => 1,

  };

  $self->setup_show_action_bar;

# Monat ihre Saldierungsperiode haben, außer Wartungsverträgen, die

# für den jeweiligen Monat bereits abgerechnet wurden.

#

#

# Diese Lösung geht deshalb immer über die Positionen der Belege

#

# Alle Aufträge, deren Lieferdatum leer ist, oder deren Lieferdatum

# vor dem aktuellen Monat liegt, werden in einer Kategorie 'alt'

# Monat vorgemerkt.

#

# 4. Es werden für alle offenen Kundenaufträge die Positionen

#

# 5. Mit den Informationen aus 3. und 4. werden Datenstrukturen

# initialisiert, die für die Gesamtsummen, für alle Verkäufer(innen),

#

# 6. Es wird über alle Einträge aus 4. iteriert. Die Zeilensummen

# werden in den entsprechenden Datenstrukturen aus 5. addiert.

# den Aufträgen nie vorgekommen ist (sprich Rechnung enthält

# Positionen, die im Auftrag nicht enthalten sind, und die komplett

# andere Buchungsgruppen verwenden), so wird schlicht die allererste

sub create {

  my ($self)   = @_;

  $query = <<SQL;

    SELECT (oi.qty * (1 - oi.discount) * oi.sellprice) AS linetotal,

      bg.description AS buchungsgruppe,

      CASE WHEN COALESCE(e.name, '') = '' THEN e.login ELSE e.name END AS salesman,

      pcfg.periodicity, pcfg.order_value_periodicity, pcfg.id AS config_id,

      EXTRACT(year FROM pcfg.start_date) AS start_year, EXTRACT(month FROM pcfg.start_date) AS start_month

    LEFT JOIN periodic_invoices_configs pcfg ON (oi.trans_id                              = pcfg.oe_id)

    LEFT JOIN parts p                        ON (oi.parts_id                              = p.id)

    LEFT JOIN buchungsgruppen bg             ON (p.buchungsgruppen_id                     = bg.id)

    LEFT JOIN employee e                     ON (COALESCE(oe.salesman_id, oe.employee_id) = e.id)

    WHERE pcfg.active

      AND NOT pcfg.periodicity = 'o'

  $query = <<SQL;

    SELECT (oi.qty * (1 - oi.discount) * oi.sellprice) AS linetotal,

      bg.description AS buchungsgruppe,

      CASE WHEN COALESCE(e.name, '') = '' THEN e.login ELSE e.name END AS salesman,

      oe.ordnumber, EXTRACT(month FROM oe.reqdate) AS month, EXTRACT(year  FROM oe.reqdate) AS year

    FROM orderitems oi

    LEFT JOIN oe                 ON (oi.trans_id                              = oe.id)

    LEFT JOIN parts p            ON (oi.parts_id                              = p.id)

    LEFT JOIN buchungsgruppen bg ON (p.buchungsgruppen_id                     = bg.id)

    LEFT JOIN employee e         ON (COALESCE(oe.salesman_id, oe.employee_id) = e.id)

    WHERE (oe.customer_id IS NOT NULL)

      AND NOT COALESCE(oe.quotation, FALSE)

  my @entries               = selectall_hashref_query($::form, $dbh, $query);

  my @salesmen              = uniq map { $_->{salesman}       } (@entries, @scentries);

  my @buchungsgruppen       = uniq map { $_->{buchungsgruppe} } (@entries, @scentries);

  my @now                   = localtime;

  my @dates                 = map { $self->_date_for($now[5] + 1900, $now[4] + $_) } (0..$self->{params}->{months} + 1);

  my %dates_by_ordnumber    = map { $_->{ordnumber} => $self->_date_for($_) } @entries;

                        support        =>               { map { $_ => 0 } @dates },

                        salesman       => { map { $_ => { map { $_ => 0 } @dates } } @salesmen        },

                        buchungsgruppe => { map { $_ => { map { $_ => 0 } @dates } } @buchungsgruppen },

                        sorted         => { month          => [ sort { ($date_sorter{$a} || $a) cmp ($date_sorter{$b} || $b) } @dates           ],

                                            salesman       => [ sort { $a                       cmp $b                       } @salesmen        ],

                                            buchungsgruppe => [ sort { $a                       cmp $b                       } @buchungsgruppen ],

                                            type           => [ qw(order partial support)                                                       ],

                                          },

                      };

    $projection->{order}->{$date}                                      += $ref->{linetotal};

    $projection->{salesman}->{ $ref->{salesman} }->{$date}             += $ref->{linetotal};

    $projection->{buchungsgruppe}->{ $ref->{buchungsgruppe} }->{$date} += $ref->{linetotal};

  }

  # 7. Aufsummieren der Wartungsvertragspositionen

    $projection->{support}->{$date}                                    += $ref->{linetotal};

    $projection->{salesman}->{ $ref->{salesman} }->{$date}             += $ref->{linetotal};

    $projection->{buchungsgruppe}->{ $ref->{buchungsgruppe} }->{$date} += $ref->{linetotal};

  }

  if (%dates_by_ordnumber) {

    $query         = <<SQL;

      SELECT (i.qty * (1 - i.discount) * i.sellprice) AS linetotal,

        bg.description AS buchungsgruppe,

        ar.ordnumber

      FROM invoice i

      LEFT JOIN ar                 ON (i.trans_id           = ar.id)

      LEFT JOIN parts p            ON (i.parts_id           = p.id)

      LEFT JOIN buchungsgruppen bg ON (p.buchungsgruppen_id = bg.id)

      WHERE (ar.ordnumber IN ($ordnumbers))

SQL

      my $date           = $dates_by_ordnumber{    $ref->{ordnumber} } || die;

      my $salesman       = $salesman_by_ordnumber{ $ref->{ordnumber} } || die;

      my $buchungsgruppe = $projection->{buchungsgruppe}->{ $ref->{buchungsgruppe} } ? $ref->{buchungsgruppe} : $buchungsgruppen[0];

      $projection->{partial}->{$date}                           -= $ref->{linetotal};

      $projection->{total}->{$date}                             -= $ref->{linetotal};

      $projection->{salesman}->{$salesman}->{$date}             -= $ref->{linetotal};

      $projection->{buchungsgruppe}->{$buchungsgruppe}->{$date} -= $ref->{linetotal};

    }

  }

  'no bestbefore'               => 'keine Mindesthaltbarkeit',

  'no chargenumber'             => 'keine Chargennummer',

  'no execution for this client' => 'keine Ausführung für diesen Mandanten',

  'no shipping address'         => 'keine Lieferadresse',

  'no skonto_chart configured for taxkey #1 : #2 : #3' => 'Kein Skontokonto für Steuerschlüssel #1 : #2 : #3',

  'no tax_id in acc_trans'      => 'Keine tax_id in acc_trans',

    [% L.checkbox_tag("params.salesman",       value=1, checked=FORM.params.salesman,       label=LxERP.t8("Salesman")) %]

    <br>

    [% L.checkbox_tag("params.buchungsgruppe", value=1, checked=FORM.params.buchungsgruppe, label=LxERP.t8("Booking group")) %]

   </td>

  </tr>

 </table>

[%- USE HTML -%][%- USE LxERP -%]

<table border="0">

 <tr>

  [%- END %]

 [%- END %]

 <tr class="listrow listtotal">

  <td>[% LxERP.t8("Total") %]</td>

  [% IF name_col %]<td></td>[% END %]