1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S5249
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 5249 Percentage basis, coded
17 -- > Desc: Indication of the application of a percentage.
22 -- > Referenced percentage applies on a single unit basis.
24 -- > Reduction percentage is applied per transported ton.
25 -- > 3 Per equipment unit
26 -- > Reduction percentage is applied per main equipment unit
27 -- > (for rail purpose, only rail wagons).
29 -- > Reduction percentage is applied on the unit price, which
30 -- > is the basis of the charge calculation.
32 -- > Reduction percentage applied on the unit price and
33 -- > conceded to a consignor after he reached a specified
34 -- > tonnage of transport.
36 -- > Code to indicate that the IATA experimental special
37 -- > charge within Europe is the basis for the percentage
38 -- > reduction or surcharge.
39 -- > 7 Rate per kilogram
40 -- > Code to indicate that the IATA experimental special rate
41 -- > within in Europe is the basis for the percentage
42 -- > reduction or surcharge.
44 -- > Code to indicate that the IATA minimum charge is the
45 -- > basis for the percentage reduction or surcharge.
47 -- > Code to indicate that the IATA normal rate is the basis
48 -- > for the percentage reduction or surcharge.
50 -- > Code to indicate that the IATA quantity rate is the basis
51 -- > for the percentage reduction or surcharge.
52 -- > 11 Amount of drawing
53 -- > Referenced percentage applies on the amount of drawing
54 -- > under the documentary credit.
55 -- > 12 Documentary credit amount
56 -- > Referenced percentage applies on documentary credit
59 -- > Referenced percentage applies on the invoice value.
61 -- > Referenced percentage applies on CIF value.
62 simple5249 :: Parser Value
63 simple5249 = simple "5249" (alphaNumeric `upTo` 3)