specification/src/Text/Edifact/D01B/Simples/S6343.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S6343
   7   ( simple6343
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      6343  Currency type code qualifier                            [C]
  16 -- >
  17 -- >      Desc: Code qualifying the type of currency.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      1     Customs valuation currency
  22 -- >               The name or symbol of the monetary unit involved in the
  23 -- >               transaction for customs valuation.
  24 -- >
  25 -- >      2     Insurance currency
  26 -- >               The name or symbol of the monetary unit involved in the
  27 -- >               transaction for insurance purposes.
  28 -- >
  29 -- >      3     Home currency
  30 -- >               The name or symbol of the local monetary unit.
  31 -- >
  32 -- >      4     Invoicing currency
  33 -- >               The name or symbol of the monetary unit used for
  34 -- >               calculation in an invoice.
  35 -- >
  36 -- >      5     Account currency
  37 -- >               The name or symbol of the monetary unit to be converted
  38 -- >               from.
  39 -- >
  40 -- >      6     Reference currency
  41 -- >               The name or symbol of the monetary unit to be converted.
  42 -- >
  43 -- >      7     Target currency
  44 -- >               The name or symbol of the monetary unit to be converted
  45 -- >               into.
  46 -- >
  47 -- >      8     Price list currency
  48 -- >               The name or symbol of the monetary unit used in a price
  49 -- >               list.
  50 -- >
  51 -- >      9     Order currency
  52 -- >               The name or symbol of the monetary unit used in an
  53 -- >               order.
  54 -- >
  55 -- >      10    Pricing currency
  56 -- >               The name or symbol of the monetary unit used for pricing
  57 -- >               purposes.
  58 -- >
  59 -- >      11    Payment currency
  60 -- >               The name or symbol of the monetary unit used for
  61 -- >               payment.
  62 -- >
  63 -- >      12    Quotation currency
  64 -- >               The name or symbol of the monetary unit used in a
  65 -- >               quotation.
  66 -- >
  67 -- >      13    Recipient local currency
  68 -- >               The name or symbol of the local monetary unit at
  69 -- >               recipient's location.
  70 -- >
  71 -- >      14    Supplier currency
  72 -- >               The name or symbol of the monetary unit normally used by
  73 -- >               the supplier.
  74 -- >
  75 -- >      15    Sender local currency
  76 -- >               The name or symbol of the local monetary unit at
  77 -- >               sender's location.
  78 -- >
  79 -- >      16    Tariff currency
  80 -- >               The currency as per tariff.
  81 -- >
  82 -- >      17    Charge calculation currency
  83 -- >               The currency in which the charges are calculated.
  84 -- >
  85 -- >      18    Tax currency
  86 -- >               The currency in which tax amounts are due or have been
  87 -- >               paid.
  88 simple6343 :: Parser Value
  89 simple6343 = simple "6343" (alphaNumeric `upTo` 3)