Revision 18567de5
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 724 | 724 |
|
| 725 | 725 |
my ($query, $sth, $ref, $q_invdate); |
| 726 | 726 |
|
| 727 |
$q_invdate = ", current_date AS invdate" unless $form->{id};
|
|
| 727 |
if (!$form->{id}) {
|
|
| 728 |
$q_invdate = qq|, COALESCE((SELECT MAX(transdate) FROM ar), current_date) AS invdate|; |
|
| 729 |
if ($form->{vendor_id}) {
|
|
| 730 |
my $vendor_id = $dbh->quote($form->{vendor_id} * 1);
|
|
| 731 |
$q_invdate .= |
|
| 732 |
qq|, COALESCE((SELECT MAX(transdate) FROM ar), current_date) + |
|
| 733 |
COALESCE((SELECT pt.terms_netto |
|
| 734 |
FROM vendor v |
|
| 735 |
LEFT JOIN payment_terms pt ON (v.payment_id = pt.id) |
|
| 736 |
WHERE v.id = $vendor_id), |
|
| 737 |
0) AS duedate|; |
|
| 738 |
} |
|
| 739 |
} |
|
| 728 | 740 |
|
| 729 | 741 |
# get default accounts and last invoice number |
| 730 | 742 |
|
Auch abrufbar als: Unified diff
Eingangsrechnung: Als Rechnungsdatum wird das Datum der letzten Eingangsrechnung vorausgewählt. Zusätzlich wird das Fälligkeitsdatum in Abhängigkeit von den beim Lieferanten ausgewählten Zahlungsbedingungen gesetzt.