1 files changed, 62 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Simples/S5125.hs b/specification/src/Text/Edifact/D01B/Simples/S5125.hs
new file mode 100644
index 0000000..ee612b9
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Simples/S5125.hs
@@ -0,0 +1,62 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D01B.Simples.S5125
+  ( simple5125
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >      5125  Price code qualifier                                    [C]
+-- >
+-- >      Desc: Code qualifying a price.
+-- >
+-- >      Repr: an..3
+-- >
+-- >      AAA   Calculation net
+-- >               The price stated is the net price including allowances/
+-- >               charges. Allowances/charges may be stated for
+-- >               information only.
+-- >
+-- >      AAB   Calculation gross
+-- >               The price stated is the gross price to which allowances/
+-- >               charges must be applied.
+-- >
+-- >      AAC   Allowances and charges not included, tax included
+-- >               The price does not include the allowances and charges,
+-- >               but includes the taxes.
+-- >
+-- >      AAD   Average selling price
+-- >               Average selling price of a product.
+-- >
+-- >      AAE   Information price, excluding allowances or charges,
+-- >            including taxes
+-- >               The price stated is for information purposes only and
+-- >               excludes all allowances and charges. Taxes however are
+-- >               included in the price.
+-- >
+-- >      AAF   Information price, excluding allowances or charges, and
+-- >            taxes
+-- >               The price stated is for information purposes only and
+-- >               excludes all allowances, charges and taxes.
+-- >
+-- >      AAG   Additive unit price component
+-- >               A code to indicate that the price described is an
+-- >               additive component of the total price.
+-- >
+-- >      CAL   Calculation price
+-- >               The price stated is the price for the calculation of the
+-- >               line item amount.
+-- >
+-- >      INF   Information
+-- >               The price is provided for information.
+-- >
+-- >      INV   Invoice price
+-- >               Referenced price taken from an invoice.
+simple5125 :: Parser Value
+simple5125 = simple "5125" (alphaNumeric `upTo` 3)