specification/src/Text/Edifact/D96A/Simples/S5237.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D96A.Simples.S5237
   7   ( simple5237
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >   5237  Charge category, coded
  16 -- >
  17 -- >   Desc: To indicate the category or zone of charges.
  18 -- >
  19 -- >   Repr: an..3
  20 -- >
  21 -- >         1 All 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).
  25 -- >         2 Additional charges
  26 -- >              Charges calculated by the carrier for specific events
  27 -- >              like re-weighting, re-loading, unexpected operations,
  28 -- >              services required during the voyage, etc.
  29 -- >         3 Transport charges + additional charges
  30 -- >              Transport charges plus Additional charges (e.g. for re-
  31 -- >              loading, re-weighting or unexpected operations) that must
  32 -- >              be precised in the payment conditions by the consignor
  33 -- >              (other charges must be taken in account by the
  34 -- >              consignee).
  35 -- >         4 Basic freight
  36 -- >              The basic freight payable on the cargo as per tariff.
  37 -- >         5 Destination haulage charges
  38 -- >              Self explanatory.
  39 -- >         6 Disbursement
  40 -- >              Sums paid out by ship's agent at a port and recovered
  41 -- >              from the carrier.
  42 -- >         7 Destination port charges
  43 -- >              Charges payable at the port of destination.
  44 -- >         8 Miscellaneous charges
  45 -- >              Miscellaneous charges not otherwise categorized.
  46 -- >         9 Transport charges up to a specified location
  47 -- >              Transport charges to be paid by the consignor for a part
  48 -- >              of the voyage, i.e. up to a location that must be
  49 -- >              precised.
  50 -- >        10 Origin port charges
  51 -- >              Charges payable at the port of origin.
  52 -- >        11 Origin haulage charges
  53 -- >              Self explanatory.
  54 -- >        12 Other charges
  55 -- >              Self explanatory.
  56 -- >        13 Specific amount payable
  57 -- >              Amount that the consignor agrees to be invoiced or to
  58 -- >              pay. This amount is part of the total charges applied to
  59 -- >              the consignment.
  60 -- >        14 Transport costs (carriage charges)
  61 -- >              Monetary amount calculated on the basis of the transport
  62 -- >              tariffs or contract eventually including charges or other
  63 -- >              costs.
  64 -- >        15 All costs up to a specified location
  65 -- >              All amounts to be paid by the consignor for a part of the
  66 -- >              voyage, i.e. up to a location that must be precised. (The
  67 -- >              remaining part of the voyage to be paid by the consignee)
  68 -- >              The amounts are calculated by the carrier in accordance
  69 -- >              with tariffs or in case of special events during the
  70 -- >              voyage (e.g. rail - freight costs - additional costs).
  71 -- >        16 Weight/valuation charge
  72 -- >              Code to indicate weight/valuation charges to be either
  73 -- >              wholly prepaid or wholly collect.
  74 -- >        17 All costs
  75 -- >              Description to be provided.
  76 -- >        18 Transport costs and supplementary costs
  77 -- >              Description to be provided.
  78 simple5237 :: Parser Value
  79 simple5237 = simple "5237" (alphaNumeric `upTo` 3)