1 files changed, 67 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D96A/Simples/S6343.hs b/specification/src/Text/Edifact/D96A/Simples/S6343.hs
new file mode 100644
index 0000000..eb24391
--- /dev/null
+++ b/specification/src/Text/Edifact/D96A/Simples/S6343.hs
@@ -0,0 +1,67 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D96A.Simples.S6343
+  ( simple6343
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >   6343  Currency qualifier
+-- >
+-- >   Desc: Code giving specific meaning to data element 6345 Currency.
+-- >
+-- >   Repr: an..3
+-- >
+-- >         1 Customs valuation currency
+-- >              The name or symbol of the monetary unit involved in the
+-- >              transaction for customs valuation.
+-- >         2 Insurance currency
+-- >              The name or symbol of the monetary unit involved in the
+-- >              transaction for insurance purposes.
+-- >         3 Home currency
+-- >              The name or symbol of the local monetary unit.
+-- >         4 Invoicing currency
+-- >              The name or symbol of the monetary unit used for
+-- >              calculation in an invoice.
+-- >         5 Account currency
+-- >              The name or symbol of the monetary unit to be converted
+-- >              from.
+-- >         6 Reference currency
+-- >              The name or symbol of the monetary unit to be converted.
+-- >         7 Target currency
+-- >              The name or symbol of the monetary unit to be converted
+-- >              into.
+-- >         8 Price list currency
+-- >              The name or symbol of the monetary unit used in a price
+-- >              list.
+-- >         9 Order currency
+-- >              The name or symbol of the monetary unit used in an order.
+-- >        10 Pricing currency
+-- >              The name or symbol of the monetary unit used for pricing
+-- >              purposes.
+-- >        11 Payment currency
+-- >              The name or symbol of the monetary unit used for payment.
+-- >        12 Quotation currency
+-- >              The name or symbol of the monetary unit used in a
+-- >              quotation.
+-- >        13 Recipient local currency
+-- >              The name or symbol of the local monetary unit at
+-- >              recipient's location.
+-- >        14 Supplier currency
+-- >              The name or symbol of the monetary unit normally used by
+-- >              the supplier.
+-- >        15 Sender local currency
+-- >              The name or symbol of the local monetary unit at sender's
+-- >              location.
+-- >        16 Tariff currency
+-- >              The currency as per tariff.
+-- >        17 Charge calculation currency
+-- >              The currency in which the charges are calculated.
+simple6343 :: Parser Value
+simple6343 = simple "6343" (alphaNumeric `upTo` 3)