1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S6343
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 6343 Currency type code qualifier [C]
17 -- > Desc: Code qualifying the type of currency.
21 -- > 1 Customs valuation currency
22 -- > The name or symbol of the monetary unit involved in the
23 -- > transaction for customs valuation.
25 -- > 2 Insurance currency
26 -- > The name or symbol of the monetary unit involved in the
27 -- > transaction for insurance purposes.
30 -- > The name or symbol of the local monetary unit.
32 -- > 4 Invoicing currency
33 -- > The name or symbol of the monetary unit used for
34 -- > calculation in an invoice.
36 -- > 5 Account currency
37 -- > The name or symbol of the monetary unit to be converted
40 -- > 6 Reference currency
41 -- > The name or symbol of the monetary unit to be converted.
43 -- > 7 Target currency
44 -- > The name or symbol of the monetary unit to be converted
47 -- > 8 Price list currency
48 -- > The name or symbol of the monetary unit used in a price
52 -- > The name or symbol of the monetary unit used in an
55 -- > 10 Pricing currency
56 -- > The name or symbol of the monetary unit used for pricing
59 -- > 11 Payment currency
60 -- > The name or symbol of the monetary unit used for
63 -- > 12 Quotation currency
64 -- > The name or symbol of the monetary unit used in a
67 -- > 13 Recipient local currency
68 -- > The name or symbol of the local monetary unit at
69 -- > recipient's location.
71 -- > 14 Supplier currency
72 -- > The name or symbol of the monetary unit normally used by
75 -- > 15 Sender local currency
76 -- > The name or symbol of the local monetary unit at
77 -- > sender's location.
79 -- > 16 Tariff currency
80 -- > The currency as per tariff.
82 -- > 17 Charge calculation currency
83 -- > The currency in which the charges are calculated.
86 -- > The currency in which tax amounts are due or have been
88 simple6343 :: Parser Value
89 simple6343 = simple "6343" (alphaNumeric `upTo` 3)