Revision c224f946
Von Bernd Bleßmann vor mehr als 1 Jahr hinzugefügt
SL/DB/PurchaseInvoice.pm | ||
---|---|---|
59 | 59 |
|
60 | 60 |
sub items { goto &invoiceitems; } |
61 | 61 |
sub add_items { goto &add_invoiceitems; } |
62 |
sub record_number { goto &invnumber; };
|
|
62 |
sub record_number { goto &invnumber; } |
|
63 | 63 |
|
64 | 64 |
sub is_sales { |
65 | 65 |
# For compatibility with Order, DeliveryOrder |
... | ... | |
87 | 87 |
return t8('Invoice (one letter abbreviation)'). '(' . t8('Storno (one letter abbreviation)') . ')' if $self->storno; |
88 | 88 |
return t8('Invoice (one letter abbreviation)'); |
89 | 89 |
|
90 |
};
|
|
90 |
} |
|
91 | 91 |
|
92 | 92 |
sub oneline_summary { |
93 | 93 |
my $self = shift; |
... | ... | |
123 | 123 |
|
124 | 124 |
sub displayable_name { |
125 | 125 |
join ' ', grep $_, map $_[0]->$_, qw(displayable_type record_number); |
126 |
};
|
|
126 |
} |
|
127 | 127 |
|
128 | 128 |
sub convert_to_reclamation { |
129 | 129 |
my ($self, %params) = @_; |
... | ... | |
165 | 165 |
$self->add_transactions( $acc ); |
166 | 166 |
push( @$acc_trans, $acc ); |
167 | 167 |
return $acc_trans; |
168 |
};
|
|
168 |
} |
|
169 | 169 |
|
170 | 170 |
sub add_ap_amount_row { |
171 | 171 |
my ($self, %params ) = @_; |
... | ... | |
186 | 186 |
|
187 | 187 |
if ( $tax and $tax->rate != 0 ) { |
188 | 188 |
($netamount, $taxamount) = Form->calculate_tax($params{amount}, $tax->rate, $self->taxincluded, $roundplaces); |
189 |
};
|
|
189 |
} |
|
190 | 190 |
|
191 | 191 |
return unless $netamount; # netamount mustn't be zero |
192 | 192 |
|
... | ... | |
218 | 218 |
); |
219 | 219 |
$self->add_transactions( $acc ); |
220 | 220 |
push( @$acc_trans, $acc ); |
221 |
};
|
|
221 |
} |
|
222 | 222 |
return $acc_trans; |
223 |
};
|
|
223 |
} |
|
224 | 224 |
|
225 | 225 |
sub mark_as_paid { |
226 | 226 |
my ($self) = @_; |
Auch abrufbar als: Unified diff
S:D:PurchaseInvoice: Kosmetik: kein ';' nach Kontrollstrukturen