Revision da3cca7d
Von Jan Büren vor fast 3 Jahren hinzugefügt
| SL/DB/Helper/Payment.pm | ||
|---|---|---|
| 19 | 19 |
use SL::DATEV qw(:CONSTANTS); |
| 20 | 20 |
use SL::DB::Exchangerate; |
| 21 | 21 |
use SL::DB::Currency; |
| 22 |
use SL::HTML::Util; |
|
| 22 | 23 |
use SL::Locale::String qw(t8); |
| 23 | 24 |
|
| 24 | 25 |
# |
| ... | ... | |
| 622 | 623 |
$credit = SL::DB::Manager::Chart->find_by(id => $chart_id); |
| 623 | 624 |
$debit = SL::DB::Manager::Chart->find_by(id => $tax_chart_id); |
| 624 | 625 |
croak("No such Chart ID") unless ref $credit eq 'SL::DB::Chart' && ref $debit eq 'SL::DB::Chart';
|
| 626 |
my $notes = SL::HTML::Util->strip($self->notes); |
|
| 625 | 627 |
|
| 626 | 628 |
my $current_transaction = SL::DB::GLTransaction->new( |
| 627 | 629 |
employee_id => $self->employee_id, |
| 628 | 630 |
transdate => $params{transdate_obj},
|
| 629 | 631 |
notes => $params{source} . ' ' . $params{memo},
|
| 630 |
description => $self->notes || $self->invnumber,
|
|
| 632 |
description => $notes || $self->invnumber, |
|
| 631 | 633 |
reference => t8('Skonto Tax Correction for') . " " . $tax->rate * 100 . '% ' . $self->invnumber,
|
| 632 | 634 |
department_id => $self->department_id ? $self->department_id : undef, |
| 633 | 635 |
imported => 0, # not imported |
Auch abrufbar als: Unified diff
Payment-Helper: Notes in DB-Buchung als Text speichern