Revision 34ca68b5
Von Moritz Bunkus vor mehr als 16 Jahren hinzugefügt
| SL/OE.pm | ||
|---|---|---|
| 606 | 606 |
undef @ids; |
| 607 | 607 |
} |
| 608 | 608 |
|
| 609 |
$query_add = qq|, current_date AS transdate, current_date AS reqdate| if (!$form->{id});
|
|
| 609 |
my $query_add = ''; |
|
| 610 |
if (!$form->{id}) {
|
|
| 611 |
my $wday = (localtime(time))[6]; |
|
| 612 |
my $next_workday = $wday == 5 ? 3 : $wday == 6 ? 2 : 1; |
|
| 613 |
$query_add = qq|, current_date AS transdate, date(current_date + interval '${next_workday} days') AS reqdate|;
|
|
| 614 |
} |
|
| 610 | 615 |
|
| 611 | 616 |
# get default accounts |
| 612 | 617 |
$query = qq|SELECT (SELECT c.accno FROM chart c WHERE d.inventory_accno_id = c.id) AS inventory_accno, |
Auch abrufbar als: Unified diff
Bei Aufträgen, Angeboten, Preisanfragen das Lieferdatum mit dem nächsten Werktag und nicht dem heutigen Datum vorbelegen.