1 files changed, 98 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Simples/S5249.hs b/specification/src/Text/Edifact/D01B/Simples/S5249.hs
new file mode 100644
index 0000000..b119ac5
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Simples/S5249.hs
@@ -0,0 +1,98 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D01B.Simples.S5249
+  ( simple5249
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >      5249  Percentage basis identification code                    [B]
+-- >
+-- >      Desc: Code specifying the basis on which a percentage is
+-- >            calculated.
+-- >
+-- >      Repr: an..3
+-- >
+-- >      1     Per unit
+-- >               Referenced percentage applies on a single unit basis.
+-- >
+-- >      2     Per ton
+-- >               Reduction percentage is applied per transported ton.
+-- >
+-- >      3     Per equipment unit
+-- >               Reduction percentage is applied per main equipment unit
+-- >               (for rail purpose, only rail wagons).
+-- >
+-- >      4     Per unit price
+-- >               Reduction percentage is applied on the unit price, which
+-- >               is the basis of the charge calculation.
+-- >
+-- >      5     Per quantity
+-- >               Reduction percentage applied on the unit price and
+-- >               conceded to a consignor after he reached a specified
+-- >               tonnage of transport.
+-- >
+-- >      6     Basic charge
+-- >               Code to indicate that the IATA experimental special
+-- >               charge within Europe is the basis for the percentage
+-- >               reduction or surcharge.
+-- >
+-- >      7     Rate per kilogram
+-- >               Code to indicate that the IATA experimental special rate
+-- >               within in Europe is the basis for the percentage
+-- >               reduction or surcharge.
+-- >
+-- >      8     Minimum charge
+-- >               Code to indicate that the IATA minimum charge is the
+-- >               basis for the percentage reduction or surcharge.
+-- >
+-- >      9     Normal rate
+-- >               Code to indicate that the IATA normal rate is the basis
+-- >               for the percentage reduction or surcharge.
+-- >
+-- >      10    Quantity rate
+-- >               Code to indicate that the IATA quantity rate is the
+-- >               basis for the percentage reduction or surcharge.
+-- >
+-- >      11    Amount of drawing
+-- >               Referenced percentage applies on the amount of drawing
+-- >               under the documentary credit.
+-- >
+-- >      12    Documentary credit amount
+-- >               Referenced percentage applies on documentary credit
+-- >               amount.
+-- >
+-- >      13    Invoice value
+-- >               Referenced percentage applies on the invoice value.
+-- >
+-- >      14    CIF value
+-- >               Referenced percentage applies on CIF value.
+-- >
+-- >      15    Contract cost
+-- >               The percentage applied to the contract cost.
+-- >
+-- >      16    Labour hours
+-- >               The percentage applied to the labour hours.
+-- >
+-- >      17    LIBOR (London Inter-Bank Offered Rate)
+-- >               The percentage basis is London Inter-Bank Offered Rate
+-- >               (LIBOR).
+-- >
+-- >      18    FIBOR (Frankfurt Inter-Bank Offered Rate)
+-- >               The percentage basis is Frankfurt Inter-Bank Offered
+-- >               Rate (FIBOR).
+-- >
+-- >      19    PIBOR (Paris Inter-Bank Offered Rate)
+-- >               The percentage basis is Paris Inter-Bank Offered Rate
+-- >               (PIBOR).
+-- >
+-- >      20    Nationally based percentage basis
+-- >               The percentage basis is nationally based.
+simple5249 :: Parser Value
+simple5249 = simple "5249" (alphaNumeric `upTo` 3)