Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b186a8eb

Von Moritz Bunkus vor fast 8 Jahren hinzugefügt

  • ID b186a8eb0ff43ca1d67e7416f1eef2d11bf4501a
  • Vorgänger 58b97f84
  • Nachfolger 59adfa36

SL::DB::(Purchase)Invoice: neue Funktion »mark_as_paid«

Sie macht nichts weiter, als »paid« auf »amount« zu setzen.

Unterschiede anzeigen:

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