X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/e0f5deeae4cdcf3faf3bc68a202f20ec6cd9af2e..28dd76dfcb4480d8224cb4a6e95894467844de67:/SL/Controller/Draft.pm

diff --git a/SL/Controller/Draft.pm b/SL/Controller/Draft.pm
index 41c8c1688..131ed6b23 100644
--- a/SL/Controller/Draft.pm
+++ b/SL/Controller/Draft.pm
@@ -91,7 +91,8 @@ sub action_load {
   if ($params && 'HASH' eq ref $params) {
     $::form->{$_} = $params->{$_} for keys %$params;
   }
-
+  $::form->{transdate} = DateTime->today_local->to_kivitendo if !$::form->{transdate};
+  $::form->{gldate}    = $::form->{transdate} if !$::form->{gldate};
   $::form->{script} = $self->draft->module . '.pl';
   ::update();
 }