projekt kivitendo

  # if csv report export no units

    reqdate           => {      sub => sub { $_[0]->reqdate_as_date || $_[0]->order->reqdate_as_date          } },

    description       => {      sub => sub { $_[0]->description                                               },

                           obj_link => sub { $self->link_to($_[0]->part)                                      } },

    partnumber        => {      sub => sub { $_[0]->part->partnumber                                          },

                           obj_link => sub { $self->link_to($_[0]->part)                                      } },

                                             ($rp_csv_mod ? '' : ' ' .  $_[0]->unit)                           } },

                                                                         ($_[0]->price_factor || 1), 2))       },},

    unit              => {      sub => sub {  $_[0]->unit                                                      },

                            visible => $rp_csv_mod                                                             },

                                             ($rp_csv_mod ? '' : ' ' .  $_[0]->unit)                           } },

    netto_shipped_qty => {      sub => sub { $::form->format_amount(\%::myconfig, $_[0]{netto_shipped_qty}, 2) },},

    not_shipped_qty   => {      sub => sub { $::form->format_amount(\%::myconfig, $_[0]->qty - $_[0]{shipped_qty}

                                               - $_[0]{delivered_qty} - $_[0]{do_closed_qty}, 2) .

                                             ($rp_csv_mod ? '' : ' ' .  $_[0]->unit)                           } },

                                             ($rp_csv_mod ? '' : ' ' .  $_[0]->unit)                           } },

    netto_delivered_qty => {    sub => sub { $::form->format_amount(\%::myconfig, $_[0]{netto_delivered_qty}, 2) },},

    netto_not_shipped_qty => {  sub => sub { $::form->format_amount(\%::myconfig,(($_[0]->qty -

                                             $_[0]{shipped_qty} - $_[0]{delivered_qty} - $_[0]{do_closed_qty})

                                             * ($_[0]->sellprice * (1 - $_[0]->discount) /

                                                                             ($_[0]->price_factor || 1)), 2))  },},

                                             ($rp_csv_mod ? '' : ' ' .  $_[0]->unit)                           },},

    netto_do_closed_qty => {    sub => sub { $::form->format_amount(\%::myconfig, $_[0]{netto_do_closed_qty}, 2) },},

    ordnumber         => {      sub => sub { $_[0]->order->ordnumber                                           },

                           obj_link => sub { $self->link_to($_[0]->order)                                      } },

    vendor            => {      sub => sub { $_[0]->order->vendor->name                                        },

                           obj_link => sub { $self->link_to($_[0]->order->vendor)                              } },

    customer          => {      sub => sub { $_[0]->order->customer->name                                      },

                           obj_link => sub { $self->link_to($_[0]->order->customer)                            } },

    top_info_text         => ($vc eq 'customer') ? t8('Delivery Value Report for currently open sales orders') :

                                                   t8('Delivery Value Report for currently outstanding purchase orders'),

    title                 => $::locale->text('Delivery Value Report'),

  # flags for with_object 'part'

    # show only open (sales|purchase) orders

    query                 => [ 'order.closed' => '0',  "order.${vc}_id" => { gt => 0 },

                               'order.quotation' => 0                                  ],

    with_objects          => [ 'order', "order.$vc", 'part' ],

  )

  return $::form->{vc} if ($::form->{vc} eq 'customer' || $::form->{vc} eq 'vendor') || croak "self (DeliveryValueReport) has no vc defined";

  # also for calc net values

    SELECT oi.id, doi.qty, doi.unit, doe.delivered, doe.closed,

    $item->{shipped_qty}    += AM->convert_unit($row->{unit} => $item->unit) * $row->{qty}  unless ($row->{delivered} || $row->{closed});

    $item->{delivered_qty}  += AM->convert_unit($row->{unit} => $item->unit) * $row->{qty}  if ($row->{delivered} && !$row->{closed});

    $item->{do_closed_qty}  += AM->convert_unit($row->{unit} => $item->unit) * $row->{qty}  if ($row->{closed});

    my $price_factor = $row->{price_factor} || 1;

    $item->{netto_shipped_qty}   = $item->{shipped_qty} * $row->{sellprice} * (1 - $row->{discount} ) / $price_factor;

    $item->{netto_delivered_qty} = $item->{delivered_qty} * $row->{sellprice} * (1 - $row->{discount} ) / $price_factor;

    $item->{netto_do_closed_qty} = $item->{do_closed_qty} * $row->{sellprice} * (1 - $row->{discount} ) / $price_factor;

The main intelligence is this query (qty_stocked as comments):

    SELECT oi.id,and more metadata , -- dois.qty as qty_stocked,

    FROM record_links rl

    INNER JOIN delivery_order_items doi ON (doi.id = rl.to_id)

    INNER JOIN orderitems oi            ON (oi.id  = rl.from_id)

    INNER JOIN delivery_orders doe      ON (doe.id = doi.delivery_order_id)

    --INNER JOIN delivery_order_items_stock dois ON (doi.id = dois.delivery_order_item_id)

    WHERE rl.from_table = 'orderitems'

      AND rl.to_table   = 'delivery_order_items'

Get all entries which were converted from orderitems to delivery_order_items (WHERE).

The persistent id are in rl, therefore we can fetch orderitems and delivery_order_items.

The join on delivery_orders (doe) is only needed for the current state of the delivery order (closed, delivered).

=item C<action_list>

=item C<prepare_report>

=item C<make_filter_summary>

=item C<calc_qtys_price>

=item C<link_to>

=item C<init_models>

=item C<init_vc>

=item C<init_all_employees>

=item C<init_all_businesses>

=back

=head1 TODOS

Currently no foreign currencies and OrderItems with taxincluded are calculated / supported. The report can be easily extended

for the real stocked qty. The report is really easy to implement and customise if your model is focussed straight.

For long term maintaineance it would be wise to add more testcases for the conversion from orders to delivery_orders.

Right now record_links are tested only from document to document and the convert_invoice method (via task server) has a

test case with record_links items included. Furhtermore I personally dislike the calcs in the %columns_def, but for a quick report

this is ok, though if we redesign this further, the taxincluded / currency cases should be implemented as well.

=head1 AUTHOR

Jan Büren E<lt>jan@kivitendo-premium.deE<gt> (based on DeliveryPlan.pm by Sven)

=cut