Revision b186a8eb
Von Moritz Bunkus vor etwa 8 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
|
return $html;
|
||
|
}
|
||
|
|
||
|
sub mark_as_paid {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
$self->update_attributes(paid => $self->amount);
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
__END__
|
||
| ... | ... | |
|
|
||
|
=back
|
||
|
|
||
|
=item C<mark_as_paid>
|
||
|
|
||
|
Marks the invoice as paid by setting its C<paid> member to the value of C<amount>.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 TODO
|
||
| SL/DB/PurchaseInvoice.pm | ||
|---|---|---|
|
use strict;
|
||
|
|
||
|
use Carp;
|
||
|
use Data::Dumper;
|
||
|
|
||
|
use SL::DB::MetaSetup::PurchaseInvoice;
|
||
|
use SL::DB::Manager::PurchaseInvoice;
|
||
| ... | ... | |
|
return $acc_trans;
|
||
|
};
|
||
|
|
||
|
sub mark_as_paid {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
$self->update_attributes(paid => $self->amount);
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
|
||
|
__END__
|
||
|
|
||
|
=pod
|
||
|
|
||
|
=encoding UTF-8
|
||
|
|
||
|
=head1 NAME
|
||
|
|
||
|
SL::DB::PurchaseInvoice: Rose model for purchase invoices (table "ap")
|
||
|
|
||
|
=head1 FUNCTIONS
|
||
|
|
||
|
=over 4
|
||
|
|
||
|
=item C<mark_as_paid>
|
||
|
|
||
|
Marks the invoice as paid by setting its C<paid> member to the value of C<amount>.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 AUTHOR
|
||
|
|
||
|
Moritz Bunkus E<lt>m.bunkus@linet-services.deE<gt>
|
||
|
|
||
|
=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.