projekt kivitendo

#=====================================================================

# LX-Office ERP

# Copyright (C) 2004

# Based on SQL-Ledger Version 2.1.9

# Web http://www.lx-office.org

#

#=====================================================================

# SQL-Ledger Accounting

# Copyright (C) 2001

#

# Author: Dieter Simader

# Email: dsimader@sql-ledger.org

# Web: http://www.sql-ledger.org

#

# Contributors:

#

# This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

#

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,

# MA 02110-1335, USA.

#======================================================================

#

# Inventory received module

#

#======================================================================

package IR;

use SL::AM;

use SL::ARAP;

use SL::Common;

use SL::CVar;

use SL::DATEV qw(:CONSTANTS);

use SL::DBUtils;

use SL::DB::Draft;

use SL::DO;

use SL::GenericTranslations;

use SL::HTML::Restrict;

use SL::IO;

use SL::Locale::String qw(t8);

use SL::MoreCommon;

use SL::DB::Default;

use SL::DB::TaxZone;

use SL::DB::MakeModel;

use SL::DB::ValidityToken;

use SL::DB;

use SL::Presenter::Part qw(type_abbreviation classification_abbreviation);

use List::Util qw(min);

use strict;

use constant PCLASS_OK => 0;

use constant PCLASS_NOTFORSALE => 1;

use constant PCLASS_NOTFORPURCHASE => 2;

sub post_invoice {

my ($self, $myconfig, $form, $provided_dbh, %params) = @_;

$main::lxdebug->enter_sub();

my $rc = SL::DB->client->with_transaction(\&_post_invoice, $self, $myconfig, $form, $provided_dbh, %params);

$::lxdebug->leave_sub;

return $rc;

}

sub _post_invoice {

my ($self, $myconfig, $form, $provided_dbh, %params) = @_;

my $validity_token;

if (!$form->{id}) {

$validity_token = SL::DB::Manager::ValidityToken->fetch_valid_token(

scope => SL::DB::ValidityToken::SCOPE_PURCHASE_INVOICE_POST(),

token => $form->{form_validity_token},

);

die $::locale->text('The form is not valid anymore.') if !$validity_token;

}

my $payments_only = $params{payments_only};

my $dbh = $provided_dbh || SL::DB->client->dbh;

my $restricter = SL::HTML::Restrict->create;

$form->{defaultcurrency} = $form->get_default_currency($myconfig);

my $defaultcurrency = $form->{defaultcurrency};

my $ic_cvar_configs = CVar->get_configs(module => 'IC',

dbh => $dbh);

my ($query, $sth, @values, $project_id);

my ($allocated, $taxrate, $taxamount, $taxdiff, $item);

my ($amount, $linetotal, $last_inventory_accno_tax_id_key, $last_expense_accno_tax_id_key);

my ($netamount, $invoicediff, $expensediff) = (0, 0, 0);

my $exchangerate = 0;

my ($basefactor, $baseqty, @taxaccounts, $totaltax);

my $all_units = AM->retrieve_units($myconfig, $form);

#markierung

if (!$payments_only) {

if ($form->{id}) {

&reverse_invoice($dbh, $form);

} else {

($form->{id}) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|);

do_query($form, $dbh, qq|INSERT INTO ap (id, invnumber, currency_id, taxzone_id) VALUES (?, '', (SELECT id FROM currencies WHERE name=?), ?)|, $form->{id}, $form->{currency}, $form->{taxzone_id});

}

}

if ($form->{currency} eq $defaultcurrency) {

$form->{exchangerate} = 1;

} else {

$exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{invdate}, 'sell');

$form->{exchangerate} = $form->parse_amount($myconfig, $form->{exchangerate}, 5);

# if default exchangerate is not defined, define one

unless ($exchangerate) {

$form->update_exchangerate($dbh, $form->{currency}, $form->{invdate}, 0, $form->{exchangerate});

# delete records exchangerate -> if user sets new invdate for record

$query = qq|UPDATE ap set exchangerate = NULL where id = ?|;

do_query($form, $dbh, $query, $form->{"id"});

}

# update record exchangerate, if the default is set and differs from current

if ($exchangerate && ($form->{exchangerate} != $exchangerate)) {

$form->update_exchangerate($dbh, $form->{currency}, $form->{invdate},

0, $form->{exchangerate}, $form->{id}, 'ap');

}

}

my %item_units;

my $q_item_unit = qq|SELECT unit FROM parts WHERE id = ?|;

my $h_item_unit = prepare_query($form, $dbh, $q_item_unit);

$form->get_lists('price_factors' => 'ALL_PRICE_FACTORS');

my %price_factors = map { $_->{id} => $_->{factor} } @{ $form->{ALL_PRICE_FACTORS} };

my $price_factor;

my @processed_invoice_ids;

for my $i (1 .. $form->{rowcount}) {

next unless $form->{"id_$i"};

my $position = $i;

$form->{"qty_$i"} = $form->parse_amount($myconfig, $form->{"qty_$i"});

$form->{"qty_$i"} *= -1 if $form->{storno};

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"}

};

# get item baseunit

if (!$item_units{$form->{"id_$i"}}) {

do_statement($form, $h_item_unit, $q_item_unit, $form->{"id_$i"});

($item_units{$form->{"id_$i"}}) = $h_item_unit->fetchrow_array();

}

my $item_unit = $item_units{$form->{"id_$i"}};

if (defined($all_units->{$item_unit}->{factor})

&& ($all_units->{$item_unit}->{factor} ne '')

&& ($all_units->{$item_unit}->{factor} * 1 != 0)) {

$basefactor = $all_units->{$form->{"unit_$i"}}->{factor} / $all_units->{$item_unit}->{factor};

} else {

$basefactor = 1;

}

$baseqty = $form->{"qty_$i"} * $basefactor;

@taxaccounts = split / /, $form->{"taxaccounts_$i"};

$taxdiff = 0;

$allocated = 0;

$taxrate = 0;

# preset tax_id and accno for all taxaccounts

foreach $item (@taxaccounts) {

my $accno = $item;

my $tax_id = $form->{"${item}_tax_id"};

$form->{amount}{$item . "_" . $tax_id}{tax_id} = $tax_id;

$form->{amount}{$item . "_" . $tax_id}{accno} = $item;

}

$form->{"sellprice_$i"} = $form->parse_amount($myconfig, $form->{"sellprice_$i"});

(my $fxsellprice = $form->{"sellprice_$i"}) =~ /\.(\d+)/;

my $dec = length $1;

my $decimalplaces = ($dec > 2) ? $dec : 2;

map { $taxrate += $form->{"${_}_rate"} } @taxaccounts;

$price_factor = $price_factors{ $form->{"price_factor_id_$i"} } || 1;

# copied from IS.pm, with some changes (no decimalplaces corrections here etc)

# TODO maybe use PriceTaxCalculation or something like this for backends (IR.pm / IS.pm)

# undo discount formatting

$form->{"discount_$i"} = $form->parse_amount($myconfig, $form->{"discount_$i"}) / 100;

# deduct discount

$form->{"sellprice_$i"} = $fxsellprice * (1 - $form->{"discount_$i"});

######################################################################

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

$linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);

if ($form->{taxincluded}) {

$taxamount = $linetotal * ($taxrate / (1 + $taxrate));

$form->{"sellprice_$i"} = $form->{"sellprice_$i"} * (1 / (1 + $taxrate));

} else {

$taxamount = $linetotal * $taxrate;

}

$netamount += $linetotal;

if ($form->round_amount($taxrate, 7) == 0) {

if ($form->{taxincluded}) {

foreach $item (@taxaccounts) {

$taxamount =

$form->round_amount($linetotal * $form->{"${item}_rate"} / (1 + abs($form->{"${item}_rate"})), 2);

$taxdiff += $taxamount;

$form->{amount}{$item . "_" . $form->{"${item}_tax_id"}}{amount} -= $taxamount;

}

my $first_taxaccno = $taxaccounts[0];

$form->{amount}{ $first_taxaccno . "_" . $form->{"${first_taxaccno}_tax_id"} }{amount} += $taxdiff;

} else {

map { $form->{amount}{$_ . "_" . $form->{"${_}_tax_id"}}{amount} -= $linetotal * $form->{"${_}_rate"} } @taxaccounts;

}

} else {

map { $form->{amount}{$_ . "_" . $form->{"${_}_tax_id"}}{amount} -= $taxamount * $form->{"${_}_rate"} / $taxrate } @taxaccounts;

}

# add purchase to inventory, this one is without the tax!

$amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * $form->{exchangerate} / $price_factor;

$linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2) * $form->{exchangerate};

$linetotal = $form->round_amount($linetotal, 2);

# this is the difference for the inventory

$invoicediff += ($amount - $linetotal);

my $inventory_key = $form->{"inventory_accno_$i"} . "_" . $form->{"expense_accno_tax_id_$i"};

$form->{amount}{$inventory_key}{amount} -= $linetotal;

$form->{amount}{$inventory_key}{accno} = $form->{"inventory_accno_$i"};

$form->{amount}{$inventory_key}{tax_id} = $form->{"expense_accno_tax_id_$i"};

# adjust and round sellprice

$form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"} * $form->{exchangerate}, $decimalplaces);

$last_inventory_accno_tax_id_key = $inventory_key;

next if $payments_only;

# update parts table by setting lastcost to current price, don't allow negative values by using abs

# maybe allow only 2 decimal places -> rounding error with fx can be too huge for datev checks

# @values = ($form->round_amount(abs($fxsellprice * $form->{exchangerate} / $basefactor), 2), conv_i($form->{"id_$i"}));

$query = qq|UPDATE parts SET lastcost = ? WHERE id = ?|;

@values = (abs($fxsellprice * $form->{exchangerate} / $basefactor), conv_i($form->{"id_$i"}));

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

# check if we sold the item already and

# make an entry for the expense and inventory

my $taxzone = $form->{taxzone_id} * 1;

$query =

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

bg.inventory_accno_id, tc.expense_accno_id AS expense_accno_id, a.transdate

FROM invoice i, ar a, parts p, buchungsgruppen bg, taxzone_charts tc

WHERE (i.parts_id = p.id)

AND (i.parts_id = ?)

AND ((i.base_qty + i.allocated) > 0)

AND (i.trans_id = a.id)

AND (p.buchungsgruppen_id = bg.id)

AND (tc.buchungsgruppen_id = p.buchungsgruppen_id)

AND (tc.taxzone_id = ${taxzone})

ORDER BY transdate|;

# 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

$sth = prepare_execute_query($form, $dbh, $query, conv_i($form->{"id_$i"}));

my $totalqty = $baseqty;

while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {

my $qty = min $totalqty, ($ref->{base_qty} + $ref->{allocated});

$linetotal = $form->round_amount(($form->{"sellprice_$i"} * $qty) / $basefactor, 2);

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, tax_id, chart_link) VALUES (?, ?, ?, ?,

(SELECT taxkey_id

FROM taxkeys

WHERE chart_id= ?

AND startdate <= ?

ORDER BY startdate DESC LIMIT 1),

(SELECT tax_id

FROM taxkeys

WHERE chart_id= ?

AND startdate <= ?

ORDER BY startdate DESC LIMIT 1),

(SELECT link FROM chart WHERE id = ?))|;

@values = ($ref->{trans_id}, $ref->{inventory_accno_id}, $linetotal, $ref->{transdate}, $ref->{inventory_accno_id}, $ref->{transdate}, $ref->{inventory_accno_id}, $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, tax_id, chart_link) VALUES (?, ?, ?, ?,

(SELECT taxkey_id

FROM taxkeys

WHERE chart_id= ?

AND startdate <= ?

ORDER BY startdate DESC LIMIT 1),

(SELECT tax_id

FROM taxkeys

WHERE chart_id= ?

AND startdate <= ?

ORDER BY startdate DESC LIMIT 1),

(SELECT link FROM chart WHERE id = ?))|;

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

$ref->{expense_accno_id});

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

}

};

# update allocated for sold item

$form->update_balance($dbh, "invoice", "allocated", qq|id = $ref->{id}|, $qty * -1);

$allocated += $qty;

last if ($totalqty -= $qty) <= 0;

}

$sth->finish();

} else { # if ($form->{"inventory_accno_id_$i"})

# part doesn't have an inventory_accno_id

# lastcost of the part is updated at the end

$linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2);

if ($form->{taxincluded}) {

$taxamount = $linetotal * ($taxrate / (1 + $taxrate));

$form->{"sellprice_$i"} = $form->{"sellprice_$i"} * (1 / (1 + $taxrate));

} else {

$taxamount = $linetotal * $taxrate;

}

$netamount += $linetotal;

if ($form->round_amount($taxrate, 7) == 0) {

if ($form->{taxincluded}) {

foreach $item (@taxaccounts) {

$taxamount = $linetotal * $form->{"${item}_rate"} / (1 + abs($form->{"${item}_rate"}));

$totaltax += $taxamount;

$form->{amount}{$item . "_" . $form->{"${item}_tax_id"}}{amount} -= $taxamount;

}

} else {

map { $form->{amount}{$_ . "_" . $form->{"${_}_tax_id"}}{amount} -= $linetotal * $form->{"${_}_rate"} } @taxaccounts;

}

} else {

map { $form->{amount}{$_ . "_" . $form->{"${_}_tax_id"}}{amount} -= $taxamount * $form->{"${_}_rate"} / $taxrate } @taxaccounts;

}

$amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * $form->{exchangerate} / $price_factor;

$linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"} / $price_factor, 2) * $form->{exchangerate};

$linetotal = $form->round_amount($linetotal, 2);

# this is the difference for expense

$expensediff += ($amount - $linetotal);

# add amount to expense

my $expense_key = $form->{"expense_accno_$i"} . "_" . $form->{"expense_accno_tax_id_$i"};

$form->{amount}{$expense_key}{amount} -= $linetotal;

$form->{amount}{$expense_key}{accno} = $form->{"expense_accno_$i"};

$form->{amount}{$expense_key}{tax_id} = $form->{"expense_accno_tax_id_$i"};

$last_expense_accno_tax_id_key = $expense_key;

# adjust and round sellprice

$form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"} * $form->{exchangerate}, $decimalplaces);

next if $payments_only;

# update lastcost

$query = qq|UPDATE parts SET lastcost = ? WHERE id = ?|;

do_query($form, $dbh, $query, $form->{"sellprice_$i"} / $basefactor, conv_i($form->{"id_$i"}));

}

next if $payments_only;

CVar->get_non_editable_ic_cvars(form => $form,

dbh => $dbh,

row => $i,

sub_module => 'invoice',

may_converted_from => ['delivery_order_items', 'orderitems', 'invoice']);

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

# there is no persistent id, therefore create one with all necessary constraints

my $q_invoice_id = qq|SELECT nextval('invoiceid')|;

my $h_invoice_id = prepare_query($form, $dbh, $q_invoice_id);

do_statement($form, $h_invoice_id, $q_invoice_id);

$form->{"invoice_id_$i"} = $h_invoice_id->fetchrow_array();

my $q_create_invoice_id = qq|INSERT INTO invoice (id, trans_id, position, parts_id) values (?, ?, ?, ?)|;

do_query($form, $dbh, $q_create_invoice_id, conv_i($form->{"invoice_id_$i"}),

conv_i($form->{id}), conv_i($position), conv_i($form->{"id_$i"}));

$h_invoice_id->finish();

}

# save detail record in invoice table

$query = <<SQL;

UPDATE invoice SET trans_id = ?, position = ?, parts_id = ?, description = ?, longdescription = ?, qty = ?, base_qty = ?,

sellprice = ?, fxsellprice = ?, discount = ?, allocated = ?, unit = ?, deliverydate = ?,

project_id = ?, serialnumber = ?, price_factor_id = ?,

price_factor = (SELECT factor FROM price_factors WHERE id = ?), marge_price_factor = ?,

active_price_source = ?, active_discount_source = ?

,expense_chart_id = ?, tax_id = ?, inventory_chart_id = ?

WHERE id = ?

SQL

@values = (conv_i($form->{id}), conv_i($position), conv_i($form->{"id_$i"}),

$form->{"description_$i"}, $restricter->process($form->{"longdescription_$i"}), $form->{"qty_$i"} * -1,

$baseqty * -1, $form->{"sellprice_$i"}, $fxsellprice, $form->{"discount_$i"}, $allocated,

$form->{"unit_$i"}, conv_date($form->{deliverydate}),

conv_i($form->{"project_id_$i"}), $form->{"serialnumber_$i"},

conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"price_factor_id_$i"}), conv_i($form->{"marge_price_factor_$i"}),

$form->{"active_price_source_$i"}, $form->{"active_discount_source_$i"},

$form->{"expense_chart_id_$i"}, $form->{"tax_id_$i"}, $form->{"inventory_chart_id_$i"},

conv_i($form->{"invoice_id_$i"}));

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

push @processed_invoice_ids, $form->{"invoice_id_$i"};

CVar->save_custom_variables(module => 'IC',

sub_module => 'invoice',

trans_id => $form->{"invoice_id_$i"},

configs => $ic_cvar_configs,

variables => $form,

name_prefix => 'ic_',

name_postfix => "_$i",

dbh => $dbh);

# link previous items with invoice items See IS.pm (no credit note -> no invoice item)

foreach (qw(delivery_order_items orderitems invoice)) {

if (!$form->{useasnew} && $form->{"converted_from_${_}_id_$i"}) {

RecordLinks->create_links('dbh' => $dbh,

'mode' => 'ids',

'from_table' => $_,

'from_ids' => $form->{"converted_from_${_}_id_$i"},

'to_table' => 'invoice',

'to_id' => $form->{"invoice_id_$i"},

);

}

delete $form->{"converted_from_${_}_id_$i"};

}

}

$h_item_unit->finish();

$project_id = conv_i($form->{"globalproject_id"});

$form->{datepaid} = $form->{invdate};

# all amounts are in natural state, netamount includes the taxes

# if tax is included, netamount is rounded to 2 decimal places,

# taxes are not

# total payments

for my $i (1 .. $form->{paidaccounts}) {

$form->{"paid_$i"} = $form->parse_amount($myconfig, $form->{"paid_$i"});

$form->{paid} += $form->{"paid_$i"};

$form->{datepaid} = $form->{"datepaid_$i"} if $form->{"datepaid_$i"};

}

my ($tax, $paiddiff) = (0, 0);

$netamount = $form->round_amount($netamount, 2);

# figure out rounding errors for amount paid and total amount

if ($form->{taxincluded}) {

$amount = $form->round_amount($netamount * $form->{exchangerate}, 2);

$paiddiff = $amount - $netamount * $form->{exchangerate};

$netamount = $amount;

foreach $item (split / /, $form->{taxaccounts}) {

my $key = $item . "_" . $form->{"${item}_tax_id"};

$amount = $form->{amount}{$key}{amount} * $form->{exchangerate};

$form->{amount}{$key}{amount} = $form->round_amount($amount, 2);

$amount = $form->{amount}{$key}{amount} * -1;

$tax += $amount;

$netamount -= $amount;

}

$invoicediff += $paiddiff;

$expensediff += $paiddiff;

######## 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

# (last_inventory_accno_tax_id_key)

# 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

# last_inventory_accno_tax_id_key and last_expense_accno_tax_id_key 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.

$form->{amount}{$last_inventory_accno_tax_id_key}{amount} -= $invoicediff if $last_inventory_accno_tax_id_key;

$form->{amount}{$last_expense_accno_tax_id_key}{amount} -= $expensediff if $last_expense_accno_tax_id_key;

if ( (abs($expensediff)+abs($invoicediff)) >= 0.005 and abs($expensediff) < 0.005 and abs($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}{$last_inventory_accno_tax_id_key}{amount}) > abs($form->{amount}{$last_expense_accno_tax_id_key}{amount}) ) {

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

$form->{amount}{$last_inventory_accno_tax_id_key}{amount} -= $expensediff;

} else {

# expensediff has already been deducted, now also deduct invoicediff

$form->{amount}{$last_expense_accno_tax_id_key}{amount} -= $invoicediff;

};

};

} else {

$amount = $form->round_amount($netamount * $form->{exchangerate}, 2);

$paiddiff = $amount - $netamount * $form->{exchangerate};

$netamount = $amount;

foreach my $item (split / /, $form->{taxaccounts}) {

my $key = $item . "_" . $form->{"${item}_tax_id"};

$form->{amount}{$key}{amount} = $form->round_amount($form->{amount}{$key}{amount}, 2);

$amount = $form->round_amount( $form->{amount}{$key}{amount} * $form->{exchangerate} * -1, 2);

$paiddiff += $amount - $form->{amount}{$key}{amount} * $form->{exchangerate} * -1;

$form->{amount}{$key}{amount} = $form->round_amount($amount * -1, 2);

$amount = $form->{amount}{$key}{amount} * -1;

$tax += $amount;

}

}

# record acc_trans transactions

my $taxdate = $form->{tax_point} || $form->{deliverydate} || $form->{invdate};

foreach my $accno_tax_id_key (keys %{ $form->{amount} }) {

$form->{amount}{$accno_tax_id_key}{amount} = $form->round_amount($form->{amount}{$accno_tax_id_key}{amount}, 2);

next if $payments_only || !$form->{amount}{$accno_tax_id_key}{amount};

my $amount = $form->{amount}{$accno_tax_id_key}{amount};

my $accno = $form->{amount}{$accno_tax_id_key}{accno};

my $tax_id = $form->{amount}{$accno_tax_id_key}{tax_id};

$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, project_id, tax_id, chart_link)

VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?,

(SELECT taxkey

FROM tax

WHERE id = ?),

?,

?,

(SELECT link FROM chart WHERE accno = ?))|;

@values = (conv_i($form->{id}), $accno, $amount,

conv_date($form->{invdate}), $tax_id, $project_id, $tax_id, $accno);

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

}

my $ap_amount = $netamount + $tax;

my $ap_accno = $form->{AP};

$query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, taxkey, project_id, tax_id, chart_link)

VALUES (?, (SELECT id FROM chart WHERE accno = ?), ?, ?,

(SELECT taxkey_id

FROM taxkeys

WHERE chart_id= (SELECT id

FROM chart

WHERE accno = ?)

AND startdate <= ?

ORDER BY startdate DESC LIMIT 1),

?,

(SELECT tax_id

FROM taxkeys

WHERE chart_id= (SELECT id

FROM chart

WHERE accno = ?)

AND startdate <= ?

ORDER BY startdate DESC LIMIT 1),

(SELECT link FROM chart WHERE accno = ?))|;

@values = (conv_i($form->{id}), $ap_accno, $ap_amount,

conv_date($form->{invdate}), $ap_accno, conv_date($taxdate), $project_id, $ap_accno, conv_date($taxdate), $ap_accno);

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

$form->{paid} = $form->round_amount($form->{paid} * $form->{exchangerate} + $paiddiff, 2) if $form->{paid} != 0;

# deduct payment differences from paiddiff

for my $i (1 .. $form->{paidaccounts}) {

if ($form->{"paid_$i"} != 0) {

$amount = $form->round_amount($form->{"paid_$i"} * $form->{exchangerate}, 2);

$paiddiff -= $amount - $form->{"paid_$i"} * $form->{exchangerate};

}

}

# force AP entry if 0

$ap_amount = $form->{paid} if $ap_amount == 0;

my %already_cleared = %{ $params{already_cleared} // {} };

# record payments and offsetting AP

for my $i (1 .. $form->{paidaccounts}) {

if ($form->{"acc_trans_id_$i"}

&& $payments_only

&& (SL::DB::Default->get->payments_changeable == 0)) {

next;

}

next if $form->{"paid_$i"} == 0;

my ($accno) = split /--/, $form->{"AP_paid_$i"};

$form->{"datepaid_$i"} = $form->{invdate} unless ($form->{"datepaid_$i"});

$form->{datepaid} = $form->{"datepaid_$i"};

$amount = $form->round_amount($form->{"paid_$i"} * $form->{exchangerate} + $paiddiff, 2) * -1;

my $new_cleared = !$form->{"acc_trans_id_$i"} ? 'f'

: !$already_cleared{$form->{"acc_trans_id_$i"}} ? 'f'

: $already_cleared{$form->{"acc_trans_id_$i"}}->{amount} != $form->{"paid_$i"} ? 'f'

: $already_cleared{$form->{"acc_trans_id_$i"}}->{accno} != $accno ? 'f'

: $already_cleared{$form->{"acc_trans_id_$i"}}->{cleared} ? 't'

: 'f';

# record AP

if ($ap_amount != 0) {

$form->{"exchangerate_$i"} = $exchangerate || $form->parse_amount($myconfig, $form->{"exchangerate_$i"});

}