@@ -, +, @@ types of material --- Koha/EDI.pm | 6 ++++-- Koha/Edifact/Order.pm | 13 ++++++++----- 2 files changed, 12 insertions(+), 7 deletions(-) --- a/Koha/EDI.pm +++ a/Koha/EDI.pm @@ -685,7 +685,7 @@ sub quote_item { quantity => $order_quantity, quantityreceived => 0, order_vendornote => q{}, - order_internalnote => $order_note, + order_internalnote => q{}, replacementprice => $price, rrp_tax_included => $price, rrp_tax_excluded => $price, @@ -724,7 +724,9 @@ sub quote_item { $txt .= $si; ++$occ; } - $order_hash->{order_vendornote} = $txt; + } + if ($order_note) { + $order_hash->{order_vendornote} = $order_note; } if ( $item->internal_notes() ) { --- a/Koha/Edifact/Order.pm +++ a/Koha/Edifact/Order.pm @@ -404,9 +404,6 @@ sub order_line { } my $budget = GetBudget( $orderline->budget_id ); my $ol_fields = { budget_code => $budget->{budget_code}, }; - if ( $orderline->order_vendornote ) { - $ol_fields->{servicing_instruction} = $orderline->order_vendornote; - } my $item_fields = []; for my $item (@items) { push @{$item_fields}, @@ -428,8 +425,14 @@ sub order_line { # TBD what if #items exceeds quantity - # FTX free text for current orderline TBD - # dont really have a special instructions field to encode here + # FTX free text for current orderline + # Pass vendor note in FTX free text segment + if ( $orderline->order_vendornote ) { + my $ftx = 'FTX+LIN+++'; + $ftx .= $orderline->order_vendornote; + $ftx .= $seg_terminator; + $self->add_seg($ftx); + } # Encode notes here # PRI-CUX-DTM unit price on which order is placed : optional # Coutts read this as 0.00 if not present --