BUGFIX: Kreditorenbuchungen: Fehler beim Nutzen von Drafts

Ist kein transdate im Draft gesetzt kommt es zum Fehler

DBD::Pg::db selectall_arrayref failed: ERROR:  invalid input syntax for type date: ""
LINE 1: ...   WHERE taxkeys.chart_id = c.id AND startdate <= ''        ...

fixup: Datum auf aktuelles Dattum falls nicht gesetzt

diff --git a/SL/Controller/Draft.pm b/SL/Controller/Draft.pm
index 41c8c168802c044f456d8d267487ee435e50021e..131ed6b23e60291fdc56ef1f7edc85511fc3dded 100644 (file)
--- 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;
   }
   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();
 }
   $::form->{script} = $self->draft->module . '.pl';
   ::update();
 }