projekt kivitendo

use Carp;

use List::Util qw(max);

use Text::ParseWords;

use SL::AM;

use SL::Common;

use SL::TransNumber;

use SL::DB;

use SL::Util qw(trim);

use strict;

                  conv_i($sinfo->{bin_id}));

        $h_item_stock_id->finish();

        # write back the id to the form (important if only transfer was clicked (id fk for invoice)

      }

      @values = ($form->{"delivery_order_items_id_$i"}, $sinfo->{qty}, $sinfo->{unit}, conv_i($sinfo->{warehouse_id}),

                 conv_i($sinfo->{bin_id}), $sinfo->{chargenumber}, conv_date($sinfo->{bestbefore}),

        push @{ $requests }, $ref;

      }

    }

    $sth->finish();

  my $unpacked;

  $unpacked = [] if (!$unpacked || ('ARRAY' ne ref $unpacked));