1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D01B.Simples.S5237
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 5237 Charge category code [B]
17 -- > Desc: Code specifying the category of charges.
22 -- > All amounts calculated by the carrier in accordance with
23 -- > tariffs or in case of special events during the voyage
24 -- > (e.g. Rail - freights costs - additional costs).
26 -- > 2 Additional charges
27 -- > Charges calculated by the carrier for specific events
28 -- > like re-weighting, re-loading, unexpected operations,
29 -- > services required during the voyage, etc.
31 -- > 3 Transport charges + additional charges
32 -- > Transport charges plus Additional charges (e.g. for re-
33 -- > loading, re-weighting or unexpected operations) that
34 -- > must be precised in the payment conditions by the
35 -- > consignor (other charges must be taken in account by the
39 -- > The basic freight payable on the cargo as per tariff.
41 -- > 5 Destination haulage charges
42 -- > Haulage charges for transporting goods to the
46 -- > Sums paid out by ship's agent at a port and recovered
47 -- > from the carrier.
49 -- > 7 Destination port charges
50 -- > Charges payable at the port of destination.
52 -- > 8 Miscellaneous charges
53 -- > Miscellaneous charges not otherwise categorized.
55 -- > 9 Transport charges up to a specified location
56 -- > Transport charges to be paid by a specified party for a
57 -- > part of a voyage, i.e. up to a specified location.
59 -- > 10 Origin port charges
60 -- > Charges payable at the port of origin.
62 -- > 11 Origin haulage charges
63 -- > Haulage charges for the pickup of goods at origin.
66 -- > Unspecified charges.
68 -- > 13 Specific amount payable
69 -- > Amount that the consignor agrees to be invoiced or to
70 -- > pay. This amount is part of the total charges applied to
73 -- > 14 Transport costs (carriage charges)
74 -- > Monetary amount calculated on the basis of the transport
75 -- > tariffs or contract eventually including charges or
78 -- > 15 All costs up to a specified location
79 -- > All amounts to be paid by the consignor for a part of
80 -- > the voyage, i.e. up to a location that must be precised.
81 -- > (The remaining part of the voyage to be paid by the
82 -- > consignee) The amounts are calculated by the carrier in
83 -- > accordance with tariffs or in case of special events
84 -- > during the voyage (e.g. rail - freight costs -
85 -- > additional costs).
87 -- > 16 Weight/valuation charge
88 -- > Code to indicate weight/valuation charges to be either
89 -- > wholly prepaid or wholly collect.
92 -- > All cost elements.
94 -- > X 18 Transport costs and supplementary costs
95 -- > Description to be provided.
98 -- > 1. This code value will be removed effective with
101 -- > 19 Supply of certificate of shipment
102 -- > Charges payable for the supply of a certificate of
105 -- > 20 Supply of consular formalities or certificate of origin
106 -- > Charges payable for the supply of consular formalities
107 -- > or certificate of origin.
109 -- > 21 Supply of non-categorised documentation in paper form
110 -- > Charges payable for the supply of one or more documents
111 -- > in paper form that are not otherwise categorised.
113 -- > 22 Supply of customs formalities, export
114 -- > Charges payable for the supply of export customs
117 -- > 23 Supply of customs formalities, transit
118 -- > Charges payable for the supply of transit customs
121 -- > 24 Supply of customs formalities, import
122 -- > Charges payable for the supply of import customs
124 simple5237 :: Parser Value
125 simple5237 = simple "5237" (alphaNumeric `upTo` 3)