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

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S4055
   7   ( simple4055
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   4055  Terms of delivery or transport function, coded
  16 -- >
  17 -- >   Desc: Indication whether the terms relate to e.g. price conditions,
  18 -- >         delivery conditions, transport conditions, or a combination of
  19 -- >         these.
  20 -- >
  21 -- >   Repr: an..3
  22 -- >
  23 -- >         1 Price condition
  24 -- >              Description to be provided.
  25 -- >         2 Despatch condition
  26 -- >              Condition requested by the customer under which the
  27 -- >              supplier shall deliver: Extent of freight costs, means of
  28 -- >              transport.
  29 -- >         3 Price and despatch condition
  30 -- >              Description to be provided.
  31 -- >         4 Collected by customer
  32 -- >              Indicates that the customer will pick up the goods at the
  33 -- >              supplier. He will take care of the means of transport.
  34 -- >         5 Transport condition
  35 -- >              Specifies the conditions under which the transport takes
  36 -- >              place under the responsibility of the carrier.
  37 -- >         6 Delivery condition
  38 -- >              Specifies the conditions under which the goods must be
  39 -- >              delivered to the consignee.
  40 simple4055 :: Parser Value
  41 simple4055 = simple "4055" (alphaNumeric `upTo` 3)