1 {-# LANGUAGE OverloadedStrings #-}
3 ---- Machine generated code.
4 ---- Output of edi-parser-scaffolder
6 module Text.Edifact.D96A.Simples.S4215
10 import Text.Edifact.Parsing
11 import Text.Edifact.Types (Value)
13 -- | Derived from this specification:
15 -- > 4215 Transport charges method of payment, coded
17 -- > Desc: Identification of method of payment for transport charges.
22 -- > The charges are to be charged to an account.
23 -- > CA Advance collect
24 -- > The amount of freight or other charge on a shipment
25 -- > advanced by one transportation line to another or to the
26 -- > shipper, to be collected from consignee.
28 -- > A shipment on which freight charges will be paid by
30 -- > CF Collect, freight credited to payment customer
31 -- > Self explanatory.
32 -- > DF Defined by buyer and seller
33 -- > Self explanatory.
34 -- > FO FOB port of call
35 -- > Title and control of goods pass to the buyer at port of
36 -- > call. Responsibility for export taxes and cost of
37 -- > documents for overseas shipments have not been specified.
38 -- > IC Information copy, no payment due
39 -- > Transaction set has been provided for information only.
41 -- > Self explanatory.
42 -- > NC Service freight, no charge
43 -- > Self explanatory.
45 -- > Self explanatory.
46 -- > PA Advance prepaid
47 -- > Costs have been paid in advance.
48 -- > PB Customer pick-up/backhaul
49 -- > Buyer's private carriage picks up the goods as a return
50 -- > load to the buyer's facility.
51 -- > PC Prepaid but charged to customer
52 -- > shipping charges have been paid in advance of shipment
53 -- > but are charged back to consignee usually as line item on
54 -- > invoice for the purchased goods.
55 -- > PE Payable elsewhere
56 -- > Place of payment not known at the begin of conveyance.
58 -- > Payment in advance of freight and/or other charges prior
59 -- > to delivery of shipment at destination, usually by
60 -- > shipper at point of origin.
61 -- > PP Prepaid (by seller)
62 -- > Seller of goods makes payment to carrier for freight
63 -- > charges prior to shipment.
65 -- > Customer is responsible for payment of pickup charges at
67 -- > RC Return container freight paid by customer
68 -- > Self explanatory.
69 -- > RF Return container freight free
70 -- > Self explanatory.
71 -- > RS Return container freight paid by supplier
72 -- > Self explanatory.
73 -- > TP Third party pay
74 -- > A third party, someone other than buyer or seller, is
75 -- > identified as responsible for payment of shipping
77 -- > WC Weight condition
78 -- > Description to be provided.
79 -- > ZZZ Mutually defined
80 -- > Self explanatory.
81 simple4215 :: Parser Value
82 simple4215 = simple "4215" (alphaNumeric `upTo` 3)