From a9d77a20008efe82862cc1adbfa7a6d4f09f8ff7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Fr=C3=A9d=C3=A9ric=20Menou?= Date: Thu, 8 Dec 2016 10:19:15 +0200 Subject: Release code as open source --- .../src/Text/Edifact/D96A/Simples/S7073.hs | 77 ++++++++++++++++++++++ 1 file changed, 77 insertions(+) create mode 100644 specification/src/Text/Edifact/D96A/Simples/S7073.hs (limited to 'specification/src/Text/Edifact/D96A/Simples/S7073.hs') diff --git a/specification/src/Text/Edifact/D96A/Simples/S7073.hs b/specification/src/Text/Edifact/D96A/Simples/S7073.hs new file mode 100644 index 0000000..b8af3bf --- /dev/null +++ b/specification/src/Text/Edifact/D96A/Simples/S7073.hs @@ -0,0 +1,77 @@ +{-# LANGUAGE OverloadedStrings #-} + +---- Machine generated code. +---- Output of edi-parser-scaffolder + +module Text.Edifact.D96A.Simples.S7073 + ( simple7073 + ) where + +import Text.Edifact.Parsing +import Text.Edifact.Types (Value) + +-- | Derived from this specification: +-- +-- > 7073 Packaging terms and conditions, coded +-- > +-- > Desc: Code identifying packaging terms and conditions. +-- > +-- > Repr: an..3 +-- > +-- > 1 Packaging cost paid by supplier +-- > Self explanatory. +-- > 2 Packaging cost paid by recipient +-- > Self explanatory. +-- > 3 Packaging cost not charged (returnable) +-- > Self explanatory. +-- > 4 Buyer's +-- > Self explanatory. +-- > 5 Carrier's durable +-- > Self explanatory. +-- > 6 Carrier's expendable +-- > Self explanatory. +-- > 7 Seller's durable +-- > Self explanatory. +-- > 8 Seller's expendable +-- > Self explanatory. +-- > 9 Special purpose buyer's durable +-- > Reusable packaging specifically designed for packaging of +-- > the referenced item and owned by the buyer. +-- > 10 Special purpose buyer's expendable +-- > Disposable packaging specifically designed for packaging +-- > of the referenced item. +-- > 11 Multiple usage buyer's durable +-- > Reusable multi-purpose packaging owned by the buyer. +-- > 12 Multiple usage seller's durable +-- > Reusable multi-purpose packaging owned by the seller. +-- > 13 Not packed +-- > The referenced item is to be supplied without packaging. +-- > 14 Special purpose seller's durable +-- > Non-standard reusable packaging owned by the seller. +-- > 15 Export quality +-- > The packaging used must meet durability and handling +-- > characteristics required for item export. +-- > 16 Domestic quality +-- > The packaging used must meet durability and handling +-- > characteristics required for domestic usage. +-- > 17 Packaging included in price +-- > The cost of packaging is included in the item price. +-- > 18 Packaging costs split +-- > The cost of packaging is shared equally between the buyer +-- > and seller. +-- > 19 Packaging costs invoiced separately +-- > The packaging cost will be invoiced on a separate message +-- > or document. +-- > 20 Nil packaging costs +-- > The packaging is free of charge. +-- > 21 Nil packaging costs if packaging returned +-- > The costs of packaging is reimbursed by the seller to +-- > buyer if packaging is returned. +-- > 22 Return chargeable +-- > The return of packaging/empties is chargeable. +-- > 23 Chargeable, two thirds of paid amount with credit note on +-- > return of loaned package +-- > The buyer receives two thirds of paid amount with credit +-- > note if loaned package is returned. +simple7073 :: Parser Value +simple7073 = simple "7073" (alphaNumeric `upTo` 3) -- cgit v1.2.3