1 files changed, 110 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Simples/S5375.hs b/specification/src/Text/Edifact/D01B/Simples/S5375.hs
new file mode 100644
index 0000000..e49b200
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Simples/S5375.hs
@@ -0,0 +1,110 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D01B.Simples.S5375
+  ( simple5375
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >      5375  Price type code                                         [C]
+-- >
+-- >      Desc: Code specifying the type of price.
+-- >
+-- >      Repr: an..3
+-- >
+-- >      AA    Cancellation price
+-- >               Price authorized to be charged in the event of an order
+-- >               being cancelled.
+-- >
+-- >      AB    Per ton
+-- >               To indicate that the price applies per ton.
+-- >
+-- >      AC    Minimum order price
+-- >               A code to identify the price when the minimum number is
+-- >               purchased.
+-- >
+-- >      AD    Export price
+-- >               A code to identify a price for the export market.
+-- >
+-- >      AE    Range dependent price
+-- >               A code identifying the price for a specific range of
+-- >               purchase quantities.
+-- >
+-- >      AI    Active ingredient
+-- >               The price is referring to the active ingredient.
+-- >
+-- >      AQ    As is quantity
+-- >               The price is referring to the measured quantity.
+-- >
+-- >      CA    Catalogue
+-- >               Code specifying the catalogue price.
+-- >
+-- >      CT    Contract
+-- >               Code specifying the contract price.
+-- >
+-- >      CU    Consumer unit
+-- >               The price is referring to the consumer unit.
+-- >
+-- >      DI    Distributor
+-- >               Code specifying the distributor price.
+-- >
+-- >      EC    ECSC price
+-- >               Price registered at European Commission Steel and Carbon
+-- >               office (DG III).
+-- >
+-- >      NW    Net weight
+-- >               Code specifying the net weight price.
+-- >
+-- >      PC    Price catalogue
+-- >               Code specifying the catalogue price.
+-- >
+-- >      PE    Per each
+-- >               Code specifying the price per item.
+-- >
+-- >      PK    Per kilogram
+-- >               Code specifying the price per kilogram.
+-- >
+-- >      PL    Per litre
+-- >               Code specifying the price per litre.
+-- >
+-- >      PT    Per tonne
+-- >               Code specifying the price per tonne.
+-- >
+-- >      PU    Specified unit
+-- >               Code specifying the price per specified unit.
+-- >
+-- >      PV    Provisional price
+-- >               Code specifying a provisional price.
+-- >
+-- >      PW    Gross weight
+-- >               Code specifying the gross weight price.
+-- >
+-- >      QT    Quoted
+-- >               Code specifying the quoted price.
+-- >
+-- >      SR    Suggested retail
+-- >               Code specifying the suggested retail price.
+-- >
+-- >      TB    To be negotiated
+-- >               Code specifying that the price has to be negotiated.
+-- >
+-- >      TU    Traded unit
+-- >               The price is referring to the traded unit.
+-- >
+-- >      TW    Theoretical weight
+-- >               Weight calculated on ordered dimension (length, width,
+-- >               thickness) not on final dimension (e.g. steel products).
+-- >
+-- >      WH    Wholesale
+-- >               Code specifying the wholesale price.
+-- >
+-- >      WI    Gross volume
+-- >               The price is calculated based on gross volume.
+simple5375 :: Parser Value
+simple5375 = simple "5375" (alphaNumeric `upTo` 3)