blob: f326544182911631ec92292420662366f520b318 (
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
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D01B.Simples.S4233
( simple4233
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > 4233 Marking instructions code [B]
-- >
-- > Desc: Code specifying instructions for marking.
-- >
-- > Repr: an..3
-- >
-- > 1 Do not mark suppliers company name
-- > Packaging should not be marked with supplier's company
-- > name.
-- >
-- > 2 Mark customers company name
-- > Packaging should be marked with customer's company name.
-- >
-- > 3 Mark customers references
-- > Packaging should be marked with customer's references.
-- >
-- > 4 Mark additionally customers article description
-- > Packaging should also be marked with customer's article
-- > description.
-- >
-- > 5 Mark exclusively customers article description
-- > Packaging should be marked with customer's article
-- > description only.
-- >
-- > 6 Mark packages dimensions
-- > Packaging should be marked with package's dimensions.
-- >
-- > 7 Mark net weight
-- > Packaging should be marked with net weight.
-- >
-- > 8 Mark gross weight
-- > Packaging should be marked with gross weight.
-- >
-- > 9 Mark tare weight
-- > Packaging should be marked with tare weight.
-- >
-- > 10 Mark batch number
-- > Packaging should be marked with batch number.
-- >
-- > 11 Mark article number customer
-- > Packaging should be marked with customer's article
-- > number.
-- >
-- > 12 Mark running number of packages
-- > Packaging should be marked with the running number of
-- > packages.
-- >
-- > 13 Mark date of production
-- > Packaging should be marked with the date of production.
-- >
-- > 14 Mark expiry date
-- > Packaging should be marked with the expiry date.
-- >
-- > 15 Mark supplier number
-- > Packaging should be marked with the supplier number.
-- >
-- > 16 Buyer's instructions
-- > Markings as specified by the buyer.
-- >
-- > 17 Seller's instructions
-- > Markings as specified by the seller.
-- >
-- > 18 Carrier's instructions
-- > Markings as specified by carrier.
-- >
-- > 19 Legal requirements
-- > Markings as specified by law.
-- >
-- > 20 Industry instructions
-- > Markings as specified by industry.
-- >
-- > 21 Line item only
-- > Exclusive reference markings for this line.
-- >
-- > 22 Pre-marked by buyer
-- > Packaging should be pre-marked by buyer.
-- >
-- > 23 Entire shipment
-- > Markings refer to the entire shipment.
-- >
-- > 24 Shipper assigned
-- > Markings to identify a shipment, package or carton as
-- > assigned by shipper.
-- >
-- > 25 Shipper assigned roll number
-- > Markings to identify a roll as assigned by the shipper.
-- >
-- > 26 Shipper assigned skid number
-- > Markings used to identify a skid as assigned by shipper.
-- >
-- > 27 Uniform Code Council (UCC) format
-- > Markings according to UCC format are required. System of
-- > coding products where by each item/multipack case type
-- > is uniquely identified. A unique manufacturer Id is
-- > assigned by the UCC.
-- >
-- > 28 Mark free text
-- > Packaging should be marked with free text.
-- >
-- > 29 Mark case number
-- > Case numbers to be used for marking.
-- >
-- > 30 Mark serial shipping container code
-- > Requests the marking of the serial shipping container
-- > code to the transport container or packaging.
-- >
-- > ZZZ Mutually defined
-- > A code assigned within a code list to be used on an
-- > interim basis and as defined among trading partners
-- > until a precise code can be assigned to the code list.
simple4233 :: Parser Value
simple4233 = simple "4233" (alphaNumeric `upTo` 3)
|