Revision 2387a1fc
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/GL.pm | ||
|---|---|---|
| 646 | 646 |
|
| 647 | 647 |
$sth->finish; |
| 648 | 648 |
} else {
|
| 649 |
$query = "SELECT current_date AS transdate, closedto, revtrans |
|
| 650 |
FROM defaults"; |
|
| 651 |
$sth = $dbh->prepare($query); |
|
| 652 |
$sth->execute || $form->dberror($query); |
|
| 653 |
|
|
| 654 |
($form->{transdate}, $form->{closedto}, $form->{revtrans}) =
|
|
| 655 |
$sth->fetchrow_array; |
|
| 649 |
$query = "SELECT closedto, revtrans FROM defaults"; |
|
| 650 |
($form->{closedto}, $form->{revtrans}) = $dbh->selectrow_array($query);
|
|
| 651 |
$query = |
|
| 652 |
"SELECT COALESCE(" .
|
|
| 653 |
" (SELECT transdate FROM gl WHERE id = " . |
|
| 654 |
" (SELECT MAX(id) FROM gl) LIMIT 1), " . |
|
| 655 |
" current_date)"; |
|
| 656 |
($form->{transdate}) = $dbh->selectrow_array($query);
|
|
| 656 | 657 |
|
| 657 | 658 |
# get tax description |
| 658 | 659 |
$query = qq| SELECT * FROM tax t order by t.taxkey|; |
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.