Release code as open sourceHEADmaster

1 files changed, 125 insertions, 0 deletions

diff --git a/specification/src/Text/Edifact/D01B/Simples/S5237.hs b/specification/src/Text/Edifact/D01B/Simples/S5237.hs
new file mode 100644
index 0000000..fcf8658
--- /dev/null
+++ b/specification/src/Text/Edifact/D01B/Simples/S5237.hs
@@ -0,0 +1,125 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+---- Machine generated code.
+---- Output of edi-parser-scaffolder
+
+module Text.Edifact.D01B.Simples.S5237
+  ( simple5237
+  ) where
+
+import           Text.Edifact.Parsing
+import           Text.Edifact.Types   (Value)
+
+-- | Derived from this specification:
+--
+-- >      5237  Charge category code                                    [B]
+-- >
+-- >      Desc: Code specifying the category of charges.
+-- >
+-- >      Repr: an..3
+-- >
+-- >      1     All charges
+-- >               All amounts calculated by the carrier in accordance with
+-- >               tariffs or in case of special events during the voyage
+-- >               (e.g. Rail - freights costs - additional costs).
+-- >
+-- >      2     Additional charges
+-- >               Charges calculated by the carrier for specific events
+-- >               like re-weighting, re-loading, unexpected operations,
+-- >               services required during the voyage, etc.
+-- >
+-- >      3     Transport charges + additional charges
+-- >               Transport charges plus Additional charges (e.g. for re-
+-- >               loading, re-weighting or unexpected operations) that
+-- >               must be precised in the payment conditions by the
+-- >               consignor (other charges must be taken in account by the
+-- >               consignee).
+-- >
+-- >      4     Basic freight
+-- >               The basic freight payable on the cargo as per tariff.
+-- >
+-- >      5     Destination haulage charges
+-- >               Haulage charges for transporting goods to the
+-- >               destination.
+-- >
+-- >      6     Disbursement
+-- >               Sums paid out by ship's agent at a port and recovered
+-- >               from the carrier.
+-- >
+-- >      7     Destination port charges
+-- >               Charges payable at the port of destination.
+-- >
+-- >      8     Miscellaneous charges
+-- >               Miscellaneous charges not otherwise categorized.
+-- >
+-- >      9     Transport charges up to a specified location
+-- >               Transport charges to be paid by a specified party for a
+-- >               part of a voyage, i.e. up to a specified location.
+-- >
+-- >      10    Origin port charges
+-- >               Charges payable at the port of origin.
+-- >
+-- >      11    Origin haulage charges
+-- >               Haulage charges for the pickup of goods at origin.
+-- >
+-- >      12    Other charges
+-- >               Unspecified charges.
+-- >
+-- >      13    Specific amount payable
+-- >               Amount that the consignor agrees to be invoiced or to
+-- >               pay. This amount is part of the total charges applied to
+-- >               the consignment.
+-- >
+-- >      14    Transport costs (carriage charges)
+-- >               Monetary amount calculated on the basis of the transport
+-- >               tariffs or contract eventually including charges or
+-- >               other costs.
+-- >
+-- >      15    All costs up to a specified location
+-- >               All amounts to be paid by the consignor for a part of
+-- >               the voyage, i.e. up to a location that must be precised.
+-- >               (The remaining part of the voyage to be paid by the
+-- >               consignee) The amounts are calculated by the carrier in
+-- >               accordance with tariffs or in case of special events
+-- >               during the voyage (e.g. rail - freight costs -
+-- >               additional costs).
+-- >
+-- >      16    Weight/valuation charge
+-- >               Code to indicate weight/valuation charges to be either
+-- >               wholly prepaid or wholly collect.
+-- >
+-- >      17    All costs
+-- >               All cost elements.
+-- >
+-- > X    18    Transport costs and supplementary costs
+-- >               Description to be provided.
+-- >
+-- >            Note:
+-- >               1. This code value will be removed effective with
+-- >               directory D.02B.
+-- >
+-- >      19    Supply of certificate of shipment
+-- >               Charges payable for the supply of a certificate of
+-- >               shipment.
+-- >
+-- >      20    Supply of consular formalities or certificate of origin
+-- >               Charges payable for the supply of consular formalities
+-- >               or certificate of origin.
+-- >
+-- >      21    Supply of non-categorised documentation in paper form
+-- >               Charges payable for the supply of one or more documents
+-- >               in paper form that are not otherwise categorised.
+-- >
+-- >      22    Supply of customs formalities, export
+-- >               Charges payable for the supply of export customs
+-- >               formalities.
+-- >
+-- >      23    Supply of customs formalities, transit
+-- >               Charges payable for the supply of transit customs
+-- >               formalities.
+-- >
+-- >      24    Supply of customs formalities, import
+-- >               Charges payable for the supply of import customs
+-- >               formalities.
+simple5237 :: Parser Value
+simple5237 = simple "5237" (alphaNumeric `upTo` 3)