X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5c3437e5b742d646d573f3c52fb68de010e7cdd0..d14a38bbaa7fcd371998b43bf389f56908575c7c:/SL/DO.pm diff --git a/SL/DO.pm b/SL/DO.pm index c509a0e4a..fe2318cc8 100644 --- a/SL/DO.pm +++ b/SL/DO.pm @@ -623,6 +623,8 @@ sub retrieve { } $sth->finish(); + $form->{donumber_array} =~ s/\s*$//g; + $form->{saved_donumber} = $form->{donumber}; # if not given, fill transdate with current_date @@ -1051,6 +1053,7 @@ sub transfer_in_out { 'oe_id' => $form->{id}, 'shippingdate' => 'current_date', 'transfer_type' => $params{direction} eq 'in' ? 'stock' : 'shipped', + 'project_id' => $request->{project_id}, }; }