blob: b8af3bfdd7f2826f1723b0fbab51c66bd2c8401d (
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
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S7073
( simple7073
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 7073 Packaging terms and conditions, coded
-- >
-- > Desc: Code identifying packaging terms and conditions.
-- >
-- > Repr: an..3
-- >
-- > 1 Packaging cost paid by supplier
-- > Self explanatory.
-- > 2 Packaging cost paid by recipient
-- > Self explanatory.
-- > 3 Packaging cost not charged (returnable)
-- > Self explanatory.
-- > 4 Buyer's
-- > Self explanatory.
-- > 5 Carrier's durable
-- > Self explanatory.
-- > 6 Carrier's expendable
-- > Self explanatory.
-- > 7 Seller's durable
-- > Self explanatory.
-- > 8 Seller's expendable
-- > Self explanatory.
-- > 9 Special purpose buyer's durable
-- > Reusable packaging specifically designed for packaging of
-- > the referenced item and owned by the buyer.
-- > 10 Special purpose buyer's expendable
-- > Disposable packaging specifically designed for packaging
-- > of the referenced item.
-- > 11 Multiple usage buyer's durable
-- > Reusable multi-purpose packaging owned by the buyer.
-- > 12 Multiple usage seller's durable
-- > Reusable multi-purpose packaging owned by the seller.
-- > 13 Not packed
-- > The referenced item is to be supplied without packaging.
-- > 14 Special purpose seller's durable
-- > Non-standard reusable packaging owned by the seller.
-- > 15 Export quality
-- > The packaging used must meet durability and handling
-- > characteristics required for item export.
-- > 16 Domestic quality
-- > The packaging used must meet durability and handling
-- > characteristics required for domestic usage.
-- > 17 Packaging included in price
-- > The cost of packaging is included in the item price.
-- > 18 Packaging costs split
-- > The cost of packaging is shared equally between the buyer
-- > and seller.
-- > 19 Packaging costs invoiced separately
-- > The packaging cost will be invoiced on a separate message
-- > or document.
-- > 20 Nil packaging costs
-- > The packaging is free of charge.
-- > 21 Nil packaging costs if packaging returned
-- > The costs of packaging is reimbursed by the seller to
-- > buyer if packaging is returned.
-- > 22 Return chargeable
-- > The return of packaging/empties is chargeable.
-- > 23 Chargeable, two thirds of paid amount with credit note on
-- > return of loaned package
-- > The buyer receives two thirds of paid amount with credit
-- > note if loaned package is returned.
simple7073 :: Parser Value
simple7073 = simple "7073" (alphaNumeric `upTo` 3)
|