blob: f288b86af690c561dba714e379751ba7a6d84c23 (
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
|
{-# LANGUAGE OverloadedStrings #-}
---- Machine generated code.
---- Output of edi-parser-scaffolder
module Text.Edifact.D96A.Simples.S4233
( simple4233
) where
import Text.Edifact.Parsing
import Text.Edifact.Types (Value)
-- | Derived from this specification:
--
-- > * 4233 Marking instructions, coded
-- >
-- > Desc: Code indicating instructions on how specified packages or
-- > physical units should be marked.
-- >
-- > Repr: an..3
-- >
-- > 1 Do not mark suppliers company name
-- > Self explanatory.
-- > 2 Mark customers company name
-- > Self explanatory.
-- > 3 Mark customers references
-- > Self explanatory.
-- > 4 Mark additionally customers article description
-- > Self explanatory.
-- > 5 Mark exclusively customers article description
-- > Self explanatory.
-- > 6 Mark packages dimensions
-- > Self explanatory.
-- > 7 Mark net weight
-- > Self explanatory.
-- > 8 Mark gross weight
-- > Self explanatory.
-- > 9 Mark tare weight
-- > Self explanatory.
-- > 10 Mark batch number
-- > Self explanatory.
-- > 11 Mark article number customer
-- > Self explanatory.
-- > 12 Mark running number of packages
-- > Self explanatory.
-- > 13 Mark date of production
-- > Self explanatory.
-- > 14 Mark expiry date
-- > Self explanatory.
-- > 15 Mark supplier number
-- > Self explanatory.
-- > 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 Premarked by buyer
-- > Self explanatory.
-- > 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
-- > Description to be provided.
-- > + 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
-- > Self explanatory.
simple4233 :: Parser Value
simple4233 = simple "4233" (alphaNumeric `upTo` 3)
|