X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b8125c17c8add08c9b84fb054f797547a853dd3a..9f66626118ec0cdcee8082b3d81f288bbfa23648:/SL/DO.pm diff --git a/SL/DO.pm b/SL/DO.pm index 5adccd535..80b1ae352 100644 --- a/SL/DO.pm +++ b/SL/DO.pm @@ -119,7 +119,7 @@ sub transactions { } if (!$main::auth->assert('sales_all_edit', 1)) { push @where, qq|dord.employee_id = (select id from employee where login= ?)|; - push @values, $form->{login}; + push @values, $::myconfig{login}; } foreach my $item (qw(donumber ordnumber cusordnumber transaction_description)) { @@ -298,7 +298,7 @@ SQL CVar->get_non_editable_ic_cvars(form => $form, dbh => $dbh, - row => $i, + row => $i, sub_module => 'delivery_order_items', may_converted_from => ['orderitems', 'delivery_order_items']); @@ -451,7 +451,7 @@ SQL $form->{cusordnumber}, conv_date($form->{transdate}), conv_i($form->{vendor_id}), conv_i($form->{customer_id}), conv_date($form->{reqdate}), $form->{shippingpoint}, $form->{shipvia}, - $form->{notes}, $form->{intnotes}, + $restricter->process($form->{notes}), $form->{intnotes}, $form->{closed} ? 't' : 'f', $form->{delivered} ? "t" : "f", conv_i($form->{department_id}), conv_i($form->{language_id}), conv_i($form->{shipto_id}), conv_i($form->{globalproject_id}), conv_i($form->{employee_id}), @@ -1008,7 +1008,7 @@ sub order_details { CVar->get_non_editable_ic_cvars(form => $form, dbh => $dbh, - row => $i, + row => $i, sub_module => 'delivery_order_items', may_converted_from => ['orderitems', 'delivery_order_items']); @@ -1190,6 +1190,7 @@ sub transfer_in_out { 'transfer_type' => $params{direction} eq 'in' ? 'stock' : 'shipped', 'project_id' => $request->{project_id}, 'delivery_order_items_stock_id' => $request->{delivery_order_items_stock_id}, + 'comment' => $request->{comment}, }; }