specification/src/Text/Edifact/D96A/Simples/S7073.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S7073
   7   ( simple7073
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   7073  Packaging terms and conditions, coded
  16 -- >
  17 -- >   Desc: Code identifying packaging terms and conditions.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 Packaging cost paid by supplier
  22 -- >              Self explanatory.
  23 -- >         2 Packaging cost paid by recipient
  24 -- >              Self explanatory.
  25 -- >         3 Packaging cost not charged (returnable)
  26 -- >              Self explanatory.
  27 -- >         4 Buyer's
  28 -- >              Self explanatory.
  29 -- >         5 Carrier's durable
  30 -- >              Self explanatory.
  31 -- >         6 Carrier's expendable
  32 -- >              Self explanatory.
  33 -- >         7 Seller's durable
  34 -- >              Self explanatory.
  35 -- >         8 Seller's expendable
  36 -- >              Self explanatory.
  37 -- >         9 Special purpose buyer's durable
  38 -- >              Reusable packaging specifically designed for packaging of
  39 -- >              the referenced item and owned by the buyer.
  40 -- >        10 Special purpose buyer's expendable
  41 -- >              Disposable packaging specifically designed for packaging
  42 -- >              of the referenced item.
  43 -- >        11 Multiple usage buyer's durable
  44 -- >              Reusable multi-purpose packaging owned by the buyer.
  45 -- >        12 Multiple usage seller's durable
  46 -- >              Reusable multi-purpose packaging owned by the seller.
  47 -- >        13 Not packed
  48 -- >              The referenced item is to be supplied without packaging.
  49 -- >        14 Special purpose seller's durable
  50 -- >              Non-standard reusable packaging owned by the seller.
  51 -- >        15 Export quality
  52 -- >              The packaging used must meet durability and handling
  53 -- >              characteristics required for item export.
  54 -- >        16 Domestic quality
  55 -- >              The packaging used must meet durability and handling
  56 -- >              characteristics required for domestic usage.
  57 -- >        17 Packaging included in price
  58 -- >              The cost of packaging is included in the item price.
  59 -- >        18 Packaging costs split
  60 -- >              The cost of packaging is shared equally between the buyer
  61 -- >              and seller.
  62 -- >        19 Packaging costs invoiced separately
  63 -- >              The packaging cost will be invoiced on a separate message
  64 -- >              or document.
  65 -- >        20 Nil packaging costs
  66 -- >              The packaging is free of charge.
  67 -- >        21 Nil packaging costs if packaging returned
  68 -- >              The costs of packaging is reimbursed by the seller to
  69 -- >              buyer if packaging is returned.
  70 -- >        22 Return chargeable
  71 -- >              The return of packaging/empties is chargeable.
  72 -- >        23 Chargeable, two thirds of paid amount with credit note on
  73 -- >           return of loaned  package
  74 -- >              The buyer receives two thirds of paid amount with credit
  75 -- >              note if loaned package is returned.
  76 simple7073 :: Parser Value
  77 simple7073 = simple "7073" (alphaNumeric `upTo` 3)