Revision c301c2b3
Von Jan Büren vor fast 6 Jahren hinzugefügt
| SL/DB/BankTransaction.pm | ||
|---|---|---|
| 287 | 287 |
return $match; |
| 288 | 288 |
}; |
| 289 | 289 |
|
| 290 |
|
|
| 291 |
sub not_assigned_amount {
|
|
| 292 |
my ($self) = @_; |
|
| 293 |
|
|
| 294 |
my $not_assigned_amount = $self->amount - $self->invoice_amount; |
|
| 295 |
die ("undefined state") if (abs($not_assigned_amount) > abs($self->amount));
|
|
| 296 |
|
|
| 297 |
return $not_assigned_amount; |
|
| 298 |
|
|
| 299 |
} |
|
| 290 | 300 |
1; |
| 291 | 301 |
|
| 292 | 302 |
__END__ |
| ... | ... | |
| 339 | 349 |
croak("No linked records at all") unless @{ $bt->linked_invoices() };
|
| 340 | 350 |
|
| 341 | 351 |
|
| 352 |
=item C<not_assigned_amount> |
|
| 353 |
|
|
| 354 |
Returns the not open amount of this bank transaction. |
|
| 355 |
Dies if the return amount is higher than the original amount. |
|
| 356 |
|
|
| 342 | 357 |
=back |
| 343 | 358 |
|
| 344 | 359 |
=head1 AUTHOR |
Auch abrufbar als: Unified diff
BankTransaction new method not_assigned_amount
returns the current open amount of this bank transaction.
Added to POD