projekt kivitendo

    if ( $::instance_conf->get_inventory_system eq 'periodic') {

      # inventory account number is overwritten with expense account number, so

      # never book incoming to inventory account but always to expense account

      $form->{"inventory_accno_$i"} = $form->{"expense_accno_$i"} 

    };

        qq|SELECT i.id, i.qty, i.allocated, i.trans_id, i.base_qty,

           # ORDER BY transdate guarantees FIFO

# sold two items without having bought them yet, example result of query:

# id | qty | allocated | trans_id | inventory_accno_id | expense_accno_id | transdate  

# ---+-----+-----------+----------+--------------------+------------------+------------

#  9 |   2 |         0 |        9 |                 15 |              151 | 2011-01-05

# base_qty + allocated > 0 if article has already been sold but not bought yet

# select qty,allocated,base_qty,sellprice from invoice where trans_id = 9;

#  qty | allocated | base_qty | sellprice  

# -----+-----------+----------+------------

#    2 |         0 |        2 | 1000.00000

        if  ( $::instance_conf->get_inventory_system eq 'perpetual' ) {

        # Warenbestandsbuchungen nur bei Bestandsmethode

          if ($ref->{allocated} < 0) {

# we have an entry for it already, adjust amount

            $form->update_balance($dbh, "acc_trans", "amount",

                qq|    (trans_id = $ref->{trans_id})

                AND (chart_id = $ref->{inventory_accno_id})

                AND (transdate = '$ref->{transdate}')|,

                $linetotal);

            $form->update_balance($dbh, "acc_trans", "amount",

                qq|    (trans_id = $ref->{trans_id})

                AND (chart_id = $ref->{expense_accno_id})

                AND (transdate = '$ref->{transdate}')|,

                $linetotal * -1);

          } elsif ($linetotal != 0) {

            # allocated >= 0

            # add entry for inventory, this one is for the sold item

            $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey) VALUES (?, ?, ?, ?, (SELECT taxkey_id FROM chart WHERE id = ?))|;

            @values = ($ref->{trans_id},  $ref->{inventory_accno_id}, $linetotal, $ref->{transdate}, $ref->{inventory_accno_id});

            do_query($form, $dbh, $query, @values);

# add expense

            $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey) VALUES (?, ?, ?, ?, (SELECT taxkey from tax WHERE chart_id = ?))|;

            @values = ($ref->{trans_id},  $ref->{expense_accno_id}, ($linetotal * -1), $ref->{transdate}, $ref->{expense_accno_id});

            do_query($form, $dbh, $query, @values);

          }

        };

      # part doesn't have an inventory_accno_id

      # lastcost of the part is updated at the end