# safety check datev export
if ($::instance_conf->get_datev_check_on_purchase_invoice) {
+ # if we need department for kostenstelle in DATEV check
+ $form->{department} = SL::DB::Manager::Department->find_by(id => $form->{department_id})->description if $form->{department_id};
my $transdate = $::form->{invdate} ? DateTime->from_lxoffice($::form->{invdate}) : undef;
$transdate ||= DateTime->today;
#adjust allocated
$form->update_balance($dbh, "invoice", "allocated", qq|id = $pthref->{id}|, $qty);
- $form->update_balance($dbh, "acc_trans", "amount",
- qq| (trans_id = $pthref->{trans_id})
- AND (chart_id = $ref->{expense_accno_id})
- AND (transdate = '$pthref->{transdate}')|,
- $amount);
-
- $form->update_balance($dbh, "acc_trans", "amount",
- qq| (trans_id = $pthref->{trans_id})
- AND (chart_id = $ref->{inventory_accno_id})
- AND (transdate = '$pthref->{transdate}')|,
- $amount * -1);
+ if ( $::instance_conf->get_inventory_system eq 'perpetual' ) {
+
+ $form->update_balance($dbh, "acc_trans", "amount",
+ qq| (trans_id = $pthref->{trans_id})
+ AND (chart_id = $ref->{expense_accno_id})
+ AND (transdate = '$pthref->{transdate}')|,
+ $amount);
+
+ $form->update_balance($dbh, "acc_trans", "amount",
+ qq| (trans_id = $pthref->{trans_id})
+ AND (chart_id = $ref->{inventory_accno_id})
+ AND (transdate = '$pthref->{transdate}')|,
+ $amount * -1);
+ }
last if (($ref->{allocated} -= $qty) <= 0);
}