blob: 8bd06bb1076aed6e4e15566e00df9b821421836d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Simples.S6343
( simple6343
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 6343 Currency type code qualifier [C]
-- >
-- > Desc: Code qualifying the type of 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.
-- >
-- > 18 Tax currency
-- > The currency in which tax amounts are due or have been
-- > paid.
simple6343 :: Parser Value
simple6343 = simple "6343" (alphaNumeric `upTo` 3)
|