specification/src/Text/Edifact/D01B/Simples/S5125.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2
   3 ---- Machine generated code.
   4 ---- Output of edi-parser-scaffolder
   5
   6 module Text.Edifact.D01B.Simples.S5125
   7   ( simple5125
   8   ) where
   9
  10 import           Text.Edifact.Parsing
  11 import           Text.Edifact.Types   (Value)
  12
  13 -- | Derived from this specification:
  14 --
  15 -- >      5125  Price code qualifier                                    [C]
  16 -- >
  17 -- >      Desc: Code qualifying a price.
  18 -- >
  19 -- >      Repr: an..3
  20 -- >
  21 -- >      AAA   Calculation net
  22 -- >               The price stated is the net price including allowances/
  23 -- >               charges. Allowances/charges may be stated for
  24 -- >               information only.
  25 -- >
  26 -- >      AAB   Calculation gross
  27 -- >               The price stated is the gross price to which allowances/
  28 -- >               charges must be applied.
  29 -- >
  30 -- >      AAC   Allowances and charges not included, tax included
  31 -- >               The price does not include the allowances and charges,
  32 -- >               but includes the taxes.
  33 -- >
  34 -- >      AAD   Average selling price
  35 -- >               Average selling price of a product.
  36 -- >
  37 -- >      AAE   Information price, excluding allowances or charges,
  38 -- >            including taxes
  39 -- >               The price stated is for information purposes only and
  40 -- >               excludes all allowances and charges. Taxes however are
  41 -- >               included in the price.
  42 -- >
  43 -- >      AAF   Information price, excluding allowances or charges, and
  44 -- >            taxes
  45 -- >               The price stated is for information purposes only and
  46 -- >               excludes all allowances, charges and taxes.
  47 -- >
  48 -- >      AAG   Additive unit price component
  49 -- >               A code to indicate that the price described is an
  50 -- >               additive component of the total price.
  51 -- >
  52 -- >      CAL   Calculation price
  53 -- >               The price stated is the price for the calculation of the
  54 -- >               line item amount.
  55 -- >
  56 -- >      INF   Information
  57 -- >               The price is provided for information.
  58 -- >
  59 -- >      INV   Invoice price
  60 -- >               Referenced price taken from an invoice.
  61 simple5125 :: Parser Value
  62 simple5125 = simple "5125" (alphaNumeric `upTo` 3)