X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDB%2FHelper%2FPayment.pm;h=c35b12c63c7fef6a71c539a6a6b2b2899180bfb4;hb=0eb1e3a9d2db2ddaa9dfec9e53dada8adb687e3e;hp=d371e11b96cf7a36b69e6cf2847059f6447ead23;hpb=96308c59e72ec3f4fd911c48bcd7c137f523a706;p=kivitendo-erp.git diff --git a/SL/DB/Helper/Payment.pm b/SL/DB/Helper/Payment.pm index d371e11b9..c35b12c63 100644 --- a/SL/DB/Helper/Payment.pm +++ b/SL/DB/Helper/Payment.pm @@ -112,8 +112,8 @@ sub pay_invoice { my $reference_account = $self->reference_account; croak "can't find reference account (link = AR/AP) for invoice" unless ref $reference_account; - my $memo = $params{'memo'} || ''; - my $source = $params{'source'} || ''; + my $memo = $params{memo} // ''; + my $source = $params{source} // ''; my $rounded_params_amount = _round( $params{amount} ); # / $exchangerate); my $fx_gain_loss_amount = 0; # for fx_gain and fx_loss @@ -294,14 +294,11 @@ sub pay_invoice { if ( $datev_check ) { my $datev = SL::DATEV->new( - exporttype => DATEV_ET_BUCHUNGEN, - format => DATEV_FORMAT_KNE, dbh => $db->dbh, trans_id => $self->{id}, ); - $datev->clean_temporary_directories; - $datev->export; + $datev->generate_datev_data; if ($datev->errors) { # this exception should be caught by with_transaction, which handles the rollback @@ -640,7 +637,7 @@ sub get_payment_select_options_for_bank_transaction { if ( $open_amount && # invoice amount not 0 $self->skonto_date && # check whether skonto applies ( abs(abs($self->amount_less_skonto) - abs($bt->amount)) < 0.01 || - ( $bt->transaction_code eq "191" && abs($self->amount_less_skonto) < abs($bt->amount) )) && + ( abs($self->amount_less_skonto) < abs($bt->amount) )) && $self->check_skonto_configuration) { if ( $self->within_skonto_period($bt->transdate) ) { push(@options, { payment_type => 'without_skonto', display => t8('without skonto') });