projekt kivitendo

######## this only applies to tax included

    # in the sales invoice case rounding errors only have to be corrected for

    # income accounts, it is enough to add the total rounding error to one of

    # the income accounts, with the one assigned to the last row being used

    # (lastinventoryaccno)

    # in the purchase invoice case rounding errors may be split between

    # inventory accounts and expense accounts. After rounding, an error of 1

    # cent is introduced if the total rounding error exceeds 0.005. The total

    # error is made up of $invoicediff and $expensediff, however, so if both

    # values are below 0.005, but add up to a total >= 0.005, correcting

    # lastinventoryaccno and lastexpenseaccno separately has no effect after

    # rounding. This caused bug 1579. Therefore when the combined total exceeds

    # 0.005, but neither do individually, the account with the larger value

    # shall receive the total rounding error, and the next time it is rounded

    # the 1 cent correction will be introduced.

    my $total_rounding_diff = $invoicediff+$expensediff;

    if ( ($expensediff+$invoicediff) >= 0.005 and $expensediff < 0.005 and $invoicediff < 0.005 ) {

      # in total the rounding error adds up to 1 cent effectively, correct the

      # larger of the two numbers

      if ( abs($form->{amount}{ $form->{id} }{$lastinventoryaccno}) > abs($form->{amount}{ $form->{id} }{$lastexpenseaccno}) ) {

        # $invoicediff has already been deducted, now also deduct expensediff

        $form->{amount}{ $form->{id} }{$lastinventoryaccno}   -= $expensediff;

      } else {

        # expensediff has already been deducted, now also deduct invoicediff

        $form->{amount}{ $form->{id} }{$lastexpenseaccno}   -= $invoicediff;

      };

    };

# update exchangerate

# record acc_trans transactions

                  (SELECT taxkey_id  FROM chart WHERE accno = ?), ?)|;