Revision 2387a1fc
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 475 | 475 |
$main::lxdebug->leave_sub(); |
| 476 | 476 |
} |
| 477 | 477 |
|
| 478 |
sub get_transdate {
|
|
| 479 |
$main::lxdebug->enter_sub(); |
|
| 480 |
|
|
| 481 |
my ($self, $myconfig, $form) = @_; |
|
| 482 |
|
|
| 483 |
# connect to database |
|
| 484 |
my $dbh = $form->dbconnect($myconfig); |
|
| 485 |
|
|
| 486 |
my $query = |
|
| 487 |
"SELECT COALESCE(" .
|
|
| 488 |
" (SELECT transdate FROM gl WHERE id = " . |
|
| 489 |
" (SELECT MAX(id) FROM gl) LIMIT 1), " . |
|
| 490 |
" current_date)"; |
|
| 491 |
($form->{transdate}) = $dbh->selectrow_array($query);
|
|
| 492 |
|
|
| 493 |
$dbh->disconnect; |
|
| 494 |
|
|
| 495 |
$main::lxdebug->leave_sub(); |
|
| 496 |
} |
|
| 497 |
|
|
| 478 | 498 |
1; |
| 479 | 499 |
|
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.