$count += scalar( @{$invoice_ids} );
}
}
+ foreach (@{ $self->problems }) {
+ $count-- if $_->{result} eq 'error';
+ }
return $count;
}
if ( $payment_sent
&& any { ( $_->is_sales && ($_->amount > 0))
- || (!$_->is_sales && ($_->amount < 0))
+ || (!$_->is_sales && ($_->amount < 0) && ($_->invoice_type eq 'purchase_invoice'))
} @{ $data{invoices} }) {
return {
%data,
source => $source,
memo => $memo,
transdate => $bank_transaction->transdate->to_kivitendo);
- } elsif ( $invoice->is_sales && $invoice->invoice_type eq 'credit_note' ) {
+ } elsif (( $invoice->is_sales && $invoice->invoice_type eq 'credit_note' ) ||
+ (!$invoice->is_sales && $invoice->invoice_type eq 'ap_transaction' )) {
# no check for overpayment/multiple payments
$invoice->pay_invoice(chart_id => $bank_transaction->local_bank_account->chart_id,
trans_id => $invoice->id,
};
};
- die if $error;
+ # Rollback Fehler nicht weiterreichen
+ # die if $error;
});
return grep { $_ } ($error, @warnings);