1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S5375
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 5375 Price type code [C]
17 -- > Desc: Code specifying the type of price.
21 -- > AA Cancellation price
22 -- > Price authorized to be charged in the event of an order
26 -- > To indicate that the price applies per ton.
28 -- > AC Minimum order price
29 -- > A code to identify the price when the minimum number is
33 -- > A code to identify a price for the export market.
35 -- > AE Range dependent price
36 -- > A code identifying the price for a specific range of
37 -- > purchase quantities.
39 -- > AI Active ingredient
40 -- > The price is referring to the active ingredient.
42 -- > AQ As is quantity
43 -- > The price is referring to the measured quantity.
46 -- > Code specifying the catalogue price.
49 -- > Code specifying the contract price.
52 -- > The price is referring to the consumer unit.
55 -- > Code specifying the distributor price.
58 -- > Price registered at European Commission Steel and Carbon
62 -- > Code specifying the net weight price.
64 -- > PC Price catalogue
65 -- > Code specifying the catalogue price.
68 -- > Code specifying the price per item.
71 -- > Code specifying the price per kilogram.
74 -- > Code specifying the price per litre.
77 -- > Code specifying the price per tonne.
79 -- > PU Specified unit
80 -- > Code specifying the price per specified unit.
82 -- > PV Provisional price
83 -- > Code specifying a provisional price.
86 -- > Code specifying the gross weight price.
89 -- > Code specifying the quoted price.
91 -- > SR Suggested retail
92 -- > Code specifying the suggested retail price.
94 -- > TB To be negotiated
95 -- > Code specifying that the price has to be negotiated.
98 -- > The price is referring to the traded unit.
100 -- > TW Theoretical weight
101 -- > Weight calculated on ordered dimension (length, width,
102 -- > thickness) not on final dimension (e.g. steel products).
105 -- > Code specifying the wholesale price.
108 -- > The price is calculated based on gross volume.
109 simple5375 :: Parser Value
110 simple5375 = simple "5375" (alphaNumeric `upTo` 3)