Revision dd04aff2
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/DB/Invoice.pm | ||
|---|---|---|
| 120 | 120 |
sub post {
|
| 121 | 121 |
my ($self, %params) = @_; |
| 122 | 122 |
|
| 123 |
croak("Missing parameter 'ar_id'") unless $params{ar_id};
|
|
| 124 |
|
|
| 123 | 125 |
$self->db->do_transaction(sub {
|
| 124 | 126 |
1; # dummy instruction for Emacs ;) |
| 125 | 127 |
|
| ... | ... | |
| 133 | 135 |
$self->_post_add_acctrans($data{amounts});
|
| 134 | 136 |
$self->_post_add_acctrans($data{taxes});
|
| 135 | 137 |
|
| 138 |
$self->_post_add_acctrans({ $params{ar_id} => $self->amount * -1 });
|
|
| 139 |
|
|
| 136 | 140 |
$self->_post_update_allocated($data{allocated});
|
| 137 | 141 |
|
| 138 | 142 |
die; |
Auch abrufbar als: Unified diff
Gesamtbetrag auf Gegenkonto buchen