Revision 3af5e2e0
Von Niclas Zimmermann vor mehr als 11 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 170 | 170 |
my ($self, $entries) = @_; |
| 171 | 171 |
|
| 172 | 172 |
my $default_tax_id = SL::DB::Manager::Tax->find_by(taxkey => 0)->id; |
| 173 |
my $chart_link; |
|
| 173 | 174 |
|
| 174 | 175 |
while (my ($chart_id, $spec) = each %{ $entries }) {
|
| 175 | 176 |
$spec = { taxkey => 0, tax_id => $default_tax_id, amount => $spec } unless ref $spec;
|
| 177 |
$chart_link = SL::DB::Manager::Chart->find_by(id => $chart_id)->{'link'};
|
|
| 178 |
$chart_link ||= ''; |
|
| 179 |
|
|
| 176 | 180 |
SL::DB::AccTransaction->new(trans_id => $self->id, |
| 177 | 181 |
chart_id => $chart_id, |
| 178 | 182 |
amount => $spec->{amount},
|
| 179 | 183 |
tax_id => $spec->{tax_id},
|
| 180 | 184 |
taxkey => $spec->{taxkey},
|
| 181 | 185 |
project_id => $self->globalproject_id, |
| 182 |
transdate => $self->transdate)->save; |
|
| 186 |
transdate => $self->transdate, |
|
| 187 |
chart_link => $chart_link)->save; |
|
| 183 | 188 |
} |
| 184 | 189 |
} |
| 185 | 190 |
|
Auch abrufbar als: Unified diff
chart.link in der acc_trans
Enthält noch einige Ergänzungen zu commit
d1408ca13458a782cbde2b768cdd7abdbdcb9348. Es werden jetzt auch
periodisch erzeugte Rechnungen berücksichtigt und SEPA-Überweisungen
funktionieren wieder.
Weiterhin werden noch einige Syntax-Fehler behoben.