From c5dccb51a821e57f3888370bea51dab9f82c0639 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Tue, 26 Feb 2019 12:40:53 +0100 Subject: [PATCH] =?utf8?q?Payment-Helper=20pay=5Finvoice=20um=20R=C3=BCckg?= =?utf8?q?abewert=20der=20acc=5Ftrans=5Fids=20erweitert?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/DB/Helper/Payment.pm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/SL/DB/Helper/Payment.pm b/SL/DB/Helper/Payment.pm index 3d180f051..3127fe52a 100644 --- a/SL/DB/Helper/Payment.pm +++ b/SL/DB/Helper/Payment.pm @@ -30,7 +30,7 @@ sub pay_invoice { my $is_sales = ref($self) eq 'SL::DB::Invoice'; my $mult = $is_sales ? 1 : -1; # multiplier for getting the right sign depending on ar/ap - + my @new_acc_ids; my $paid_amount = 0; # the amount that will be later added to $self->paid, should be in default currency # default values if not set @@ -306,12 +306,12 @@ sub pay_invoice { } } + push @new_acc_ids, ($new_acc_trans->acc_trans_id, $arap_booking->acc_trans_id); 1; }) || die t8('error while paying invoice #1 : ', $self->invnumber) . $db->error . "\n"; - - return 1; -}; + return wantarray ? @new_acc_ids : 1; +} sub skonto_date { @@ -844,6 +844,8 @@ If no amount is given the whole open amout is paid. If neither currency or currency_id are given as params, the currency of the invoice is assumed to be the payment currency. +If successful the return value will be 1 in scalar context or in list context +the two ids (acc_trans_id) of the newly created bookings. =item C Returns a chart object which is the chart of the invoice with link AR or AP. -- 2.20.1