$form->{"template_$i"}, $form->{"fee_$i"}, $form->{"interest_rate_$i"},
$form->{"active_$i"} ? 't' : 'f', $form->{"auto_$i"} ? 't' : 'f', $form->{"email_$i"} ? 't' : 'f',
$form->{"email_attachment_$i"} ? 't' : 'f', conv_i($form->{"payment_terms_$i"}), conv_i($form->{"terms_$i"}),
- $form->{"create_invoices_for_fees_$i"} ? 't' : 'f');
+ $form->{"create_invoices_for_fees_$i"} ? 't' : 'f',
+ $form->{"print_original_invoice_$i"} ? 't' : 'f');
if ($form->{"id_$i"}) {
$query =
qq|UPDATE dunning_config SET
template = ?, fee = ?, interest_rate = ?,
active = ?, auto = ?, email = ?,
email_attachment = ?, payment_terms = ?, terms = ?,
- create_invoices_for_fees = ?
+ create_invoices_for_fees = ?,
+ print_original_invoice = ?
WHERE id = ?|;
push(@values, conv_i($form->{"id_$i"}));
} else {
qq|INSERT INTO dunning_config
(dunning_level, dunning_description, email_subject, email_body,
template, fee, interest_rate, active, auto, email,
- email_attachment, payment_terms, terms, create_invoices_for_fees)
- VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
+ email_attachment, payment_terms, terms, create_invoices_for_fees,
+ print_original_invoice)
+ VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)|;
}
do_query($form, $dbh, $query, @values);
}
my ($send_email, $print_invoice) = (0, 0);
foreach my $row (@{ $rows }) {
+ if ($row->{credit_note}) {
+ my $i = $row->{row};
+ %{ $form->{LIST_CREDIT_NOTES}{$row->{customer_id}}{$row->{invoice_id}} } = (
+ open_amount => $form->{"open_amount_$i"},
+ amount => $form->{"amount_$i"},
+ invnumber => $form->{"invnumber_$i"},
+ invdate => $form->{"invdate_$i"},
+ );
+ next;
+ }
push @invoice_ids, $row->{invoice_id};
$next_dunning_config_id = $row->{next_dunning_config_id};
$customer_id = $row->{customer_id};
$next_config_id, $next_config_id);
do_statement($form, $h_insert_dunning, $q_insert_dunning, @values);
}
+ # die this transaction, because for this customer only credit notes are
+ # selected ...
+ return unless $customer_id;
$h_update_ar->finish();
$h_insert_dunning->finish();
if (!$form->{l_include_direct_debit}) {
$where .= qq| AND NOT COALESCE(a.direct_debit, FALSE) |;
}
+ my $paid = ($form->{l_include_credit_notes}) ? "WHERE (a.paid <> a.amount)" : "WHERE (a.paid < a.amount)";
$query =
qq|SELECT
nextcfg.dunning_description AS next_dunning_description,
nextcfg.id AS next_dunning_config_id,
- nextcfg.terms, nextcfg.active, nextcfg.email
+ nextcfg.terms, nextcfg.active, nextcfg.email, nextcfg.print_original_invoice
FROM ar a
WHERE (d2.trans_id = a.id)
AND (d2.dunning_level = cfg.dunning_level)
))
-
- WHERE (a.paid < a.amount)
- AND (a.duedate < current_date)
+ $paid
+ AND (a.duedate < current_date)
$where
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
next if ($ref->{pastdue} < $ref->{terms});
-
+ $ref->{credit_note} = 1 if ($ref->{amount} < 0 && $form->{l_include_credit_notes});
$ref->{interest} = $form->round_amount($ref->{interest}, 2);
push(@{ $form->{DUNNINGS} }, $ref);
}
}
$sth->finish();
+ # if we have some credit notes to add, do a safety check on the first customer id
+ # and add one entry for each credit note
+ if ($form->{LIST_CREDIT_NOTES} && $form->{LIST_CREDIT_NOTES}->{$form->{TEMPLATE_ARRAYS}->{"dn_customer_id"}[0]}) {
+ my $first_customer_id = $form->{TEMPLATE_ARRAYS}->{"dn_customer_id"}[0];
+ while ( my ($cred_id, $value) = each(%{ $form->{LIST_CREDIT_NOTES}->{$first_customer_id} } ) ) {
+ map { push @{ $form->{TEMPLATE_ARRAYS}->{"dn_$_"} }, $value->{$_} } keys %{ $value };
+ }
+ }
$query =
qq|SELECT
c.id AS customer_id, c.name, c.street, c.zipcode, c.city,
$form->{interest_rate} = $form->format_amount($myconfig, $ref->{interest_rate} * 100);
$form->{fee} = $form->format_amount($myconfig, $ref->{fee}, 2);
$form->{total_interest} = $form->format_amount($myconfig, $form->round_amount($ref->{total_interest}, 2), 2);
- $form->{total_open_amount} = $form->format_amount($myconfig, $form->round_amount($ref->{total_open_amount}, 2), 2);
- $form->{total_amount} = $form->format_amount($myconfig, $form->round_amount($ref->{fee} + $ref->{total_interest} + $ref->{total_open_amount}, 2), 2);
+ my $total_open_amount = $ref->{total_open_amount};
+ if ($form->{l_include_credit_notes}) {
+ # a bit stupid, but redo calc because of credit notes
+ $total_open_amount = 0;
+ foreach my $amount (@{ $form->{TEMPLATE_ARRAYS}->{dn_open_amount} }) {
+ $total_open_amount += $form->parse_amount($myconfig, $amount, 2);
+ }
+ }
+ $form->{total_open_amount} = $form->format_amount($myconfig, $form->round_amount($total_open_amount, 2), 2);
+ $form->{total_amount} = $form->format_amount($myconfig, $form->round_amount($ref->{fee} + $ref->{total_interest} + $total_open_amount, 2), 2);
$::form->format_dates($output_dateformat, $output_longdates,
qw(dn_dunning_date dn_dunning_duedate dn_transdate dn_duedate
$print_form->{media} = 'file';
# no language override, should always be the object's language
$invoice->flatten_to_form($print_form, format_amounts => 1);
+ for my $i (1 .. $print_form->{rowcount}) {
+ $print_form->{"sellprice_$i"} = $print_form->{"fxsellprice_$i"};
+ }
$print_form->prepare_for_printing;
my $filename = SL::Helper::CreatePDF->create_pdf(
- template => 'invoice.tex',
- variables => $print_form,
- return => 'file_name',
+ template => 'invoice.tex',
+ variables => $print_form,
+ return => 'file_name',
+ variable_content_types => {
+ longdescription => 'html',
+ partnotes => 'html',
+ notes => 'html',
+ },
);
my $spool = $::lx_office_conf{paths}->{spool};