Revision b186a8eb
Von Moritz Bunkus vor mehr als 7 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 577 | 577 |
return $html; |
| 578 | 578 |
} |
| 579 | 579 |
|
| 580 |
sub mark_as_paid {
|
|
| 581 |
my ($self) = @_; |
|
| 582 |
|
|
| 583 |
$self->update_attributes(paid => $self->amount); |
|
| 584 |
} |
|
| 585 |
|
|
| 580 | 586 |
1; |
| 581 | 587 |
|
| 582 | 588 |
__END__ |
| ... | ... | |
| 760 | 766 |
|
| 761 | 767 |
=back |
| 762 | 768 |
|
| 769 |
=item C<mark_as_paid> |
|
| 770 |
|
|
| 771 |
Marks the invoice as paid by setting its C<paid> member to the value of C<amount>. |
|
| 772 |
|
|
| 763 | 773 |
=back |
| 764 | 774 |
|
| 765 | 775 |
=head1 TODO |
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
| 3 | 3 |
use strict; |
| 4 | 4 |
|
| 5 | 5 |
use Carp; |
| 6 |
use Data::Dumper; |
|
| 6 | 7 |
|
| 7 | 8 |
use SL::DB::MetaSetup::PurchaseInvoice; |
| 8 | 9 |
use SL::DB::Manager::PurchaseInvoice; |
| ... | ... | |
| 198 | 199 |
return $acc_trans; |
| 199 | 200 |
}; |
| 200 | 201 |
|
| 202 |
sub mark_as_paid {
|
|
| 203 |
my ($self) = @_; |
|
| 204 |
|
|
| 205 |
$self->update_attributes(paid => $self->amount); |
|
| 206 |
} |
|
| 207 |
|
|
| 201 | 208 |
1; |
| 209 |
|
|
| 210 |
|
|
| 211 |
__END__ |
|
| 212 |
|
|
| 213 |
=pod |
|
| 214 |
|
|
| 215 |
=encoding UTF-8 |
|
| 216 |
|
|
| 217 |
=head1 NAME |
|
| 218 |
|
|
| 219 |
SL::DB::PurchaseInvoice: Rose model for purchase invoices (table "ap") |
|
| 220 |
|
|
| 221 |
=head1 FUNCTIONS |
|
| 222 |
|
|
| 223 |
=over 4 |
|
| 224 |
|
|
| 225 |
=item C<mark_as_paid> |
|
| 226 |
|
|
| 227 |
Marks the invoice as paid by setting its C<paid> member to the value of C<amount>. |
|
| 228 |
|
|
| 229 |
=back |
|
| 230 |
|
|
| 231 |
=head1 AUTHOR |
|
| 232 |
|
|
| 233 |
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt> |
|
| 234 |
|
|
| 235 |
=cut |
|
Auch abrufbar als: Unified diff
SL::DB::(Purchase)Invoice: neue Funktion »mark_as_paid«
Sie macht nichts weiter, als »paid« auf »amount« zu setzen.