Revision 133c31d7
Von Thomas Heck vor etwa 12 Jahren hinzugefügt
bin/mozilla/oe.pl | ||
---|---|---|
1629 | 1629 |
delete($form->{$idx}); |
1630 | 1630 |
} |
1631 | 1631 |
|
1632 |
# clear reqdate unless changed |
|
1633 |
if ($form->{reqdate} && $form->{id}) {
|
|
1632 |
# clear reqdate and transdate unless changed
|
|
1633 |
if ( $form->{reqdate} && $form->{id} ) {
|
|
1634 | 1634 |
my $saved_order = OE->retrieve_simple(id => $form->{id}); |
1635 |
if ($saved_order && $saved_order->{reqdate} eq $form->{reqdate}) { |
|
1636 |
delete $form->{reqdate}; |
|
1635 |
if ( $saved_order && $saved_order->{reqdate} eq $form->{reqdate} && $saved_order->{transdate} eq $form->{transdate} ) { |
|
1636 |
|
|
1637 |
my $dbh = $form->get_standard_dbh; |
|
1638 |
|
|
1639 |
my $wday = (localtime(time))[6]; |
|
1640 |
my $next_workday = $wday == 5 ? 3 : $wday == 6 ? 2 : 1; |
|
1641 |
|
|
1642 |
my $query = 'SELECT |
|
1643 |
date(current_date + interval \''. $next_workday .' days\') AS reqdate, |
|
1644 |
date(current_date) AS transdate'; |
|
1645 |
my $ref = selectfirst_hashref_query($form, $dbh, $query); |
|
1646 |
|
|
1647 |
map( |
|
1648 |
{ $form->{$_} = $ref->{$_} } |
|
1649 |
keys %{$ref} |
|
1650 |
); |
|
1637 | 1651 |
} |
1638 | 1652 |
} |
1639 | 1653 |
|
Auch abrufbar als: Unified diff
Lieferdatum u. Auftragsdatum beim 'als neu speichern' von Aufträgen neuberechnen
fixt #1959