1 files changed, 50 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S5125.hs b/specification/src/Text/Edifact/D96A/Simples/S5125.hs
new file mode 100644
index 0000000..afa22b0
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S5125.hs
@@ -0,0 +1,50 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S5125
+  ( simple5125
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- > * 5125  Price qualifier
+-- >
+-- >   Desc: Identification of a type of 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.
+-- >    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)