Revision 2387a1fc
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/AP.pm | ||
|---|---|---|
| 470 | 470 |
$main::lxdebug->leave_sub(); |
| 471 | 471 |
} |
| 472 | 472 |
|
| 473 |
sub get_transdate {
|
|
| 474 |
$main::lxdebug->enter_sub(); |
|
| 475 |
|
|
| 476 |
my ($self, $myconfig, $form) = @_; |
|
| 477 |
|
|
| 478 |
# connect to database |
|
| 479 |
my $dbh = $form->dbconnect($myconfig); |
|
| 480 |
|
|
| 481 |
my $query = |
|
| 482 |
"SELECT COALESCE(" .
|
|
| 483 |
" (SELECT transdate FROM gl WHERE id = " . |
|
| 484 |
" (SELECT MAX(id) FROM gl) LIMIT 1), " . |
|
| 485 |
" current_date)"; |
|
| 486 |
($form->{transdate}) = $dbh->selectrow_array($query);
|
|
| 487 |
|
|
| 488 |
$dbh->disconnect; |
|
| 489 |
|
|
| 490 |
$main::lxdebug->leave_sub(); |
|
| 491 |
} |
|
| 492 |
|
|
| 473 | 493 |
1; |
| 474 | 494 |
|
Auch abrufbar als: Unified diff
Beim Aufrufen der Masken für Dialogbuchen, Debitoren- und Kreditorenrechnungen wird das zuletzt bebuchte Datum als Datum für die neue Maske ausgewählt.