blob: 86922f9cb361f48be3a7f8591388c5a25d2e70eb (
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
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S7085
( simple7085
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > * 7085 Nature of cargo, coded
-- >
-- > Desc: Code indicating the type of cargo as a rough classification.
-- >
-- > Repr: an..3
-- >
-- > 1 Documents
-- > Printed, typed or written matter including leaflets,
-- > pamphlets, certificates etc., which are not subject to
-- > import duties and taxes, restrictions and prohibitions.
-- > 2 Low value non-dutiable consignments
-- > Imported consignments/items/goods in respect of which
-- > Customs duties and other taxes are waived as they are
-- > below a value determined by the Customs administration.
-- > 3 Low value dutiable consignments
-- > Imported consignments/items/goods in respect of which
-- > Customs duties and other taxes are payable are below a
-- > certain amount as determined by the Customs
-- > administration.
-- > 4 High value consignments
-- > Imported consignments/items/goods which are determined as
-- > having a value above a certain amount fixed by the
-- > Customs administration, which may or may not attract
-- > duties and taxes.
-- > + 5 Other non-containerized
-- > Non-containerized cargo which cannot be categorized by
-- > any of the other nature of cargo code.
-- > + 6 Vehicles
-- > Vehicles which are not stowed in containers.
-- > + 7 Roll-on roll-off
-- > Cargo transported or to be transported on roll-on roll-
-- > off vessels and which is transportable on its own wheels
-- > or stowed on special heavy duty trailers.
-- > + 8 Palletized
-- > Non-containerized cargo which is palletized.
-- > + 9 Containerized
-- > Cargo stowed or to be stowed in a container.
-- > + 10 Breakbulk
-- > Non-containerized cargo stowed in vessels' holds.
simple7085 :: Parser Value
simple7085 = simple "7085" (alphaNumeric `upTo` 3)
|
