Revision 1baea8cb
Von Moritz Bunkus vor etwa 4 Jahren hinzugefügt
| SL/BackgroundJob/CreatePeriodicInvoices.pm | ||
|---|---|---|
| 224 | 224 |
|
| 225 | 225 |
$invoice = SL::DB::Invoice->new_from($order); |
| 226 | 226 |
|
| 227 |
my $tax_point = ($invoice->tax_point // $time_period_vars->{period_end_date}->[0])->clone;
|
|
| 228 |
|
|
| 229 |
while ($tax_point < $period_start_date) {
|
|
| 230 |
$tax_point->add(months => $config->get_billing_period_length); |
|
| 231 |
} |
|
| 232 |
|
|
| 227 | 233 |
my $intnotes = $invoice->intnotes ? $invoice->intnotes . "\n\n" : ''; |
| 228 | 234 |
$intnotes .= "Automatisch am " . $invdate->to_lxoffice . " erzeugte Rechnung"; |
| 229 | 235 |
|
| 230 | 236 |
$invoice->assign_attributes(deliverydate => $period_start_date, |
| 237 |
tax_point => $tax_point, |
|
| 231 | 238 |
intnotes => $intnotes, |
| 232 | 239 |
employee => $order->employee, # new_from sets employee to import user |
| 233 | 240 |
direct_debit => $config->direct_debit, |
| SL/DB/Helper/FlattenToForm.pm | ||
|---|---|---|
| 15 | 15 |
_copy($self, $form, '', '', 0, qw(id type taxzone_id ordnumber quonumber invnumber donumber cusordnumber taxincluded shippingpoint shipvia notes intnotes cp_id |
| 16 | 16 |
employee_id salesman_id closed department_id language_id payment_id delivery_customer_id delivery_vendor_id shipto_id proforma |
| 17 | 17 |
globalproject_id delivered transaction_description container_type accepted_by_customer invoice storno storno_id dunning_config_id |
| 18 |
orddate quodate reqdate gldate duedate deliverydate datepaid transdate delivery_term_id)); |
|
| 18 |
orddate quodate reqdate gldate duedate deliverydate datepaid transdate tax_point delivery_term_id));
|
|
| 19 | 19 |
$form->{currency} = $form->{curr} = $self->currency_id ? $self->currency->name || '' : '';
|
| 20 | 20 |
|
| 21 | 21 |
if ( $vc eq 'customer' ) {
|
| SL/DB/Invoice.pm | ||
|---|---|---|
| 156 | 156 |
my (@columns, @item_columns, $item_parent_id_column, $item_parent_column); |
| 157 | 157 |
|
| 158 | 158 |
if (ref($source) eq 'SL::DB::Order') {
|
| 159 |
@columns = qw(quonumber delivery_customer_id delivery_vendor_id); |
|
| 159 |
@columns = qw(quonumber delivery_customer_id delivery_vendor_id tax_point);
|
|
| 160 | 160 |
@item_columns = qw(subtotal); |
| 161 | 161 |
|
| 162 | 162 |
$item_parent_id_column = 'trans_id'; |
Auch abrufbar als: Unified diff
Leistungsdatum: wiederkehrende Rechnungen