Revision 3879426c
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1984 | 1984 |
sub get_duedate {
|
| 1985 | 1985 |
$main::lxdebug->enter_sub(); |
| 1986 | 1986 |
|
| 1987 |
my ($self, $myconfig) = @_; |
|
| 1987 |
my ($self, $myconfig, $reference_date) = @_;
|
|
| 1988 | 1988 |
|
| 1989 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 1990 |
my $query = qq|SELECT current_date + terms_netto FROM payment_terms WHERE id = ?|; |
|
| 1991 |
($self->{duedate}) = selectrow_query($self, $dbh, $query, $self->{payment_id});
|
|
| 1989 |
my $reference_date = $reference_date ? conv_dateq($reference_date) . '::DATE' : 'current_date'; |
|
| 1990 |
|
|
| 1991 |
my $dbh = $self->get_standard_dbh($myconfig); |
|
| 1992 |
my $query = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|;
|
|
| 1993 |
my ($duedate) = selectrow_query($self, $dbh, $query, $self->{payment_id});
|
|
| 1992 | 1994 |
|
| 1993 | 1995 |
$main::lxdebug->leave_sub(); |
| 1996 |
|
|
| 1997 |
return $duedate; |
|
| 1994 | 1998 |
} |
| 1995 | 1999 |
|
| 1996 | 2000 |
sub _get_contacts {
|
Auch abrufbar als: Unified diff
Die Berechnung des Fälligkeitsdatums anhand des momentan eingetragenen Rechnungsdatums durchführen, und nicht anhand des Serverdatums.
Fix für Bug 927.