Revision 2a0a1717
Von Thomas Heck vor etwa 12 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1995 | 1995 |
$reference_date = $reference_date ? conv_dateq($reference_date) . '::DATE' : 'current_date'; |
| 1996 | 1996 |
|
| 1997 | 1997 |
my $dbh = $self->get_standard_dbh($myconfig); |
| 1998 |
my $payment_id; |
|
| 1999 |
|
|
| 2000 |
if($self->{payment_id}) {
|
|
| 2001 |
$payment_id = $self->{payment_id};
|
|
| 2002 |
} elsif($self->{vendor_id}) {
|
|
| 2003 |
my $query = 'SELECT payment_id FROM vendor WHERE id = ?'; |
|
| 2004 |
($payment_id) = selectrow_query($self, $dbh, $query, $self->{vendor_id});
|
|
| 2005 |
} |
|
| 2006 |
|
|
| 1998 | 2007 |
my $query = qq|SELECT ${reference_date} + terms_netto FROM payment_terms WHERE id = ?|;
|
| 1999 |
my ($duedate) = selectrow_query($self, $dbh, $query, $self->{payment_id});
|
|
| 2008 |
my ($duedate) = selectrow_query($self, $dbh, $query, $payment_id);
|
|
| 2000 | 2009 |
|
| 2001 | 2010 |
$main::lxdebug->leave_sub(); |
| 2002 | 2011 |
|
Auch abrufbar als: Unified diff
Autom. Update des Faelligkeitsdatums bei Kreditorenbuchungen
behebt #1936