Attachment 117307 Details for Bug 27793 – Patch to save Quote FTX segment and to include it outgoing order

[patch] Patch to save Quote FTX segment and to include it outgoing order

0001-Bug-27793-Store-FTX-free-text-in-vendor-note.patch (text/plain), 2.40 KB, created by Colin Campbell on 2021-02-25 12:37:37 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Colin Campbell

Created: 2021-02-25 12:37:37 UTC

Size: 2.40 KB

patch

obsolete

>From 97c66679e79b174ff5bf29baa9ee5db64f8a39b1 Mon Sep 17 00:00:00 2001
>From: Colin Campbell <colin.campbell@ptfs-europe.com>
>Date: Thu, 25 Feb 2021 10:59:24 +0000
>Subject: [PATCH] Bug 27793 Store FTX free text in vendor note
>
>This is important for proquest ordering to distinguish
> types of material
>
>FTX segment from quote is stored as vendor note
>Contents of vendornote are included in the order FTX segment
>---
> Koha/EDI.pm           |  6 ++++--
> Koha/Edifact/Order.pm | 13 ++++++++-----
> 2 files changed, 12 insertions(+), 7 deletions(-)
>
>diff --git a/Koha/EDI.pm b/Koha/EDI.pm
>index 2de2b8bf08..da7ce85fd0 100644
>--- a/Koha/EDI.pm
>+++ b/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() ) {
>diff --git a/Koha/Edifact/Order.pm b/Koha/Edifact/Order.pm
>index b5434872ae..e501461407 100644
>--- a/Koha/Edifact/Order.pm
>+++ b/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
>-- 
>2.29.2
>

Actions: View | Diff | Splinter Review

Attachments on bug 27793: 117307 | 117556 | 118743 | 120483