Revision b4a36c72
Von Philip Reetz vor etwa 17 Jahren hinzugefügt
SL/DN.pm | ||
---|---|---|
198 | 198 |
} |
199 | 199 |
|
200 | 200 |
my ($ar_id) = selectrow_query($form, $dbh, qq|SELECT nextval('glid')|); |
201 |
my $curr = $form->get_default_currency($myconfig); |
|
201 | 202 |
|
202 | 203 |
$query = |
203 | 204 |
qq|INSERT INTO ar (id, invnumber, transdate, gldate, customer_id, |
... | ... | |
220 | 221 |
?, -- netamount |
221 | 222 |
0, -- paid |
222 | 223 |
-- duedate: |
223 |
(SELECT duedate FROM dunning WHERE dunning_id = ?), |
|
224 |
(SELECT duedate FROM dunning WHERE dunning_id = ? LIMIT 1),
|
|
224 | 225 |
'f', -- invoice |
225 | 226 |
?, -- curr |
226 | 227 |
?, -- notes |
... | ... | |
233 | 234 |
$amount, |
234 | 235 |
$amount, |
235 | 236 |
$dunning_id, # duedate |
236 |
(split m/:/, $myconfig->{currency})[0], # currency
|
|
237 |
$curr, # default currency
|
|
237 | 238 |
sprintf($main::locale->text('Automatically created invoice for fee and interest for dunning %s'), $dunning_id), # notes |
238 | 239 |
$form->{login}); # employee_id |
239 | 240 |
do_query($form, $dbh, $query, @values); |
... | ... | |
802 | 803 |
|
803 | 804 |
$query = |
804 | 805 |
qq|SELECT |
805 |
ar.invnumber, ar.transdate, ar.amount, ar.netamount, |
|
806 |
ar.invnumber, ar.transdate AS invdate, ar.amount, ar.netamount,
|
|
806 | 807 |
ar.duedate, ar.notes, ar.notes AS invoicenotes, |
807 | 808 |
|
808 | 809 |
c.name, c.department_1, c.department_2, c.street, c.zipcode, c.city, c.country, |
Auch abrufbar als: Unified diff
Fehler beim Erstellen von Rechnungen fuer Gebuehren und Zinsen