projekt kivitendo

use Carp;

  # prepare invoice for printing

      # Prepare linked items for printing

      if ( $form->{"invoice_id_$i"} ) {

        require SL::DB::InvoiceItem;

        my $invoice_item = SL::DB::Manager::InvoiceItem->find_by( id => $form->{"invoice_id_$i"} );

        my $linkeditems  = $invoice_item->linked_records( direction => 'from', recursive => 1 );

        # check for (recursively) linked sales quotation items, sales order

        # items and sales delivery order items.

        # The checks for $form->{"ordnumber_$i"} and quo and do are for the old

        # behaviour, where this data was stored in its own database fields in

        # the invoice items, and there were no record links for the items.

        # If this information were to be fetched in retrieve_invoice, e.g. for showing

        # this information in the second row, then these fields will already have

        # been set and won't be calculated again. This shouldn't be done there

        # though, as each invocation creates several database calls per item, and would

        # make the interface very slow for many items. So currently these

        # requests are only made when printing the record.

        # When using the workflow an invoice item can only be (recursively) linked to at

        # most one sales quotation item and at most one delivery order item.  But it may

        # be linked back to several order items, if collective orders were involved. If

        # that is the case we will always choose the very first order item from the

        # original order, i.e. where it first appeared in an order.

        # TODO: credit note items aren't checked for a record link to their

        # invoice item

        unless ( $form->{"ordnumber_$i"} ) {

          # $form->{"ordnumber_$i"} comes from ordnumber in invoice, if an

          # entry exists this must be from before the change from ordnumber to linked items.

          # So we just use that value and don't check for linked items.

          # In that case there won't be any links for quo or do items either

          # sales order items are fetched and sorted by id, the lowest id is first

          # It is assumed that the id always grows, so the item we want (the original) will have the lowest id

          # better solution: filter the order_item that doesn't have any links from other order_items

          #                  or maybe fetch linked_records with param save_path and order by _record_length_depth

          my @linked_orderitems = grep { $_->isa("SL::DB::OrderItem") && $_->record->type eq 'sales_order' } @{$linkeditems};

          if ( scalar @linked_orderitems ) {

            @linked_orderitems = sort { $a->id <=> $b->id } @linked_orderitems;

            my $orderitem = $linked_orderitems[0]; # 0: the original order item, -1: the last collective order item

            $form->{"ordnumber_$i"}       = $orderitem->record->record_number;

            $form->{"transdate_oe_$i"}    = $orderitem->record->transdate->to_kivitendo;

            $form->{"cusordnumber_oe_$i"} = $orderitem->record->cusordnumber;

          };

          my @linked_quoitems = grep { $_->isa("SL::DB::OrderItem") && $_->record->type eq 'sales_quotation' } @{$linkeditems};

          if ( scalar @linked_quoitems ) {

            croak "an invoice item may only be linked back to 1 sales quotation item, something is wrong\n" unless scalar @linked_quoitems == 1;

            $form->{"quonumber_$i"}     = $linked_quoitems[0]->record->record_number;

            $form->{"transdate_quo_$i"} = $linked_quoitems[0]->record->transdate->to_kivitendo;

          };

          my @linked_deliveryorderitems = grep { $_->isa("SL::DB::DeliveryOrderItem") && $_->record->type eq 'sales_delivery_order' } @{$linkeditems};

          if ( scalar @linked_deliveryorderitems ) {

            croak "an invoice item may only be linked back to 1 sales delivery item, something is wrong\n" unless scalar @linked_deliveryorderitems == 1;

            $form->{"donumber_$i"}     = $linked_deliveryorderitems[0]->record->record_number;

            $form->{"transdate_do_$i"} = $linked_deliveryorderitems[0]->record->transdate->to_kivitendo;

          };

        };

      };

      # linked item print variables

      push @{ $form->{TEMPLATE_ARRAYS}->{quonumber_quo} },     $form->{"quonumber_$i"};

      push @{ $form->{TEMPLATE_ARRAYS}->{transdate_quo} },     $form->{"transdate_quo_$i"};

      push @{ $form->{TEMPLATE_ARRAYS}->{transdate_oe} },      $form->{"transdate_oe_$i"};

      push @{ $form->{TEMPLATE_ARRAYS}->{cusordnumber_oe} },   $form->{"cusordnumber_oe_$i"};

      push @{ $form->{TEMPLATE_ARRAYS}->{transdate_do} },      $form->{"transdate_do_$i"};

                           base_qty = ?, subtotal = ?,

                 $baseqty, $form->{"subtotal_$i"} ? 't' : 'f',

          pricegroup_id = ?, subtotal = ?,

           $form->{"serialnumber_$i"}, $form->{"ship_$i"},

           $pricegroup_id, $form->{"subtotal_$i"} ? 't' : 'f',

                  datepaid transdate_oe transdate_do transdate_quo deliverydate_oe dodate

                        /^transdate_do_\d+$/ ||

                        /^transdate_quo_\d+$/ ||

            <varlistentry>

              <term><varname>cusordnumber_oe</varname></term>

              <listitem>

                <para>Bestellnummer des Kunden aus dem Auftrag, aus dem der Posten ursprünglich stammt (nur Verkauf)</para>

              </listitem>

            </varlistentry>

            <varlistentry>

              <term><varname>donumber_do</varname></term>

              <listitem>

                <para>Lieferscheinnummer des Lieferscheins, aus dem die Position ursprünglich stammt, wenn die Rechnung im Rahmen des Workflows aus einem  Lieferschein erstellt wurde.</para>

              </listitem>

            </varlistentry>

                <para>Auftragsnummer des Originalauftrags, aus dem der Posten ursprünglich stammt. Nützlich, wenn die Rechnung aus mehreren Lieferscheinen zusammengefasst wurde, oder wenn zwischendurch eine Sammelauftrag aus mehreren Aufträgen erstellt wurde. In letzterem Fall wird die unsprüngliche Auftragsnummer angezeigt.</para>

            <varlistentry>

              <term><varname>transdate_do</varname></term>

              <listitem>

                <para>Datum des Lieferscheins, wenn die Rechnung im Rahmen des Workflows aus einem Lieferschein stammte.</para>

              </listitem>

            </varlistentry>

                <para>Datum des Auftrags, wenn die Rechnung im Rahmen des Workflows aus einem Auftrag erstellt wurde. Wenn es Sammelaufträge gab wird das Datum des ursprünglichen Auftrags genommen.</para>

              </listitem>

            </varlistentry>

            <varlistentry>

              <term><varname>transdate_quo</varname></term>

              <listitem>

                <para>Datum des Angebots, wenn die Position im Rahmen des Workflows aus einem Angebot stammte.</para>