Sets the vendors currency in the edi generated order
The currency used is agreed between vendor and library
and the value in the quote is optional
Edifact potentially allows the currency to be overwitten
by specifying another currency in the CUX segment but
we know currently of no supplier doing this
Signed-off-by: Alex Buckley <alexbuckley@catalyst.net.nz>
Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>
use Log::Log4perl;
use Text::Unidecode;
use Koha::Plugins::Handler;
+use Koha::Acquisition::Booksellers;
our $VERSION = 1.1;
our @EXPORT_OK =
}
$order_quantity = 1; # attempts to create an orderline for each gir
}
+ my $vendor = Koha::Acquisition::Booksellers->find( $quote->vendor_id );
# database definitions should set some of these defaults but dont
my $order_hash = {
uncertainprice => 0,
sort1 => q{},
sort2 => q{},
+ currency => $vendor->listprice(),
};
# suppliers references