Business-EDI

 view release on metacpan or  search on metacpan

lib/Business/EDI/CodeList/MonetaryAmountTypeCodeQualifier.pm  view on Meta::CPAN

    '[5011] Representation in figures of the total sum covered by an insurance for a particular shipment.' ],
'152' => [ 'Subsequent resale of imported goods (Customs)',
    'Value of any part of the proceeds of any subsequent resale, disposal or use of the imported goods that accrues, directly or indirectly, to the seller.' ],
'153' => [ 'Weight charge',
    'A charge based on the weight of goods or cargo.' ],
'154' => [ 'Amount to be collected',
    'The monetary amount that is to be collected.' ],
'155' => [ 'Standard duty',
    'Standard Customs duty that would apply if special provisions did not apply.' ],
'156' => [ 'G-Amount',
    'Amount out of total invoice amount being paid into a blocked account.' ],
'157' => [ 'Insurance value',
    '(5010) Value for which the goods are insured.' ],
'158' => [ 'Insurance and transport charges incurred inside Customs',
    'territory (5488)+(5290) Charges to be paid for moving goods, by whatever means, from the point of entry into the Customs territory (within a Customs union: to the point of entry in the final destination country).' ],
'159' => [ 'Licence (value deducted)',
    'Amount in the currency of the licence to be written off from the total licence value.' ],
'160' => [ 'Other costs',
    '(5346) Costs, other than packing, freight and insurance costs, specified separately.' ],
'161' => [ 'Duty, tax or fee amount',
    'Amount of duty, tax or fee.' ],

lib/Business/EDI/CodeList/QuantityTypeCodeQualifier.pm  view on Meta::CPAN

'463' => [ 'Total number of persons',
    'Quantity representing the total number of persons.' ],
'464' => [ 'Tariff Quantity',
    'Quantity of the goods in the unit as required by Customs for duty/tax/fee assessment. These quantities may also be used for other fiscal or statistical purposes.' ],
'465' => [ 'Deducted tariff quantity',
    'Quantity deducted from tariff quantity to reckon duty/tax/fee assessment bases.' ],
'466' => [ 'Advised but not arrived',
    'Goods are advised by the consignor or supplier, but have not yet arrived at the destination.' ],
'467' => [ 'Received but not available',
    'Goods have been received in the arrival area but are not yet available.' ],
'468' => [ 'Goods blocked for transshipment process',
    'Goods are physically present, but can not be ordered because they are scheduled for a transshipment process.' ],
'469' => [ 'Goods blocked for cross docking process',
    'Goods are physically present, but can not be ordered because they are scheduled for a cross docking process.' ],
'470' => [ 'Chargeable number of trailers',
    'The number of trailers on which charges are based.' ],
'471' => [ 'Number of packages for a set',
    'Number of packages used to pack the individual items in a grouping of merchandise that is sold together as a single trade item.' ],
'472' => [ 'Number of items in a set',
    'The number of individual items in a grouping of merchandise that is sold together as a single trade item.' ],
'473' => [ 'Order sizing factor',
    'A trade item specification other than gross, net weight, or volume for a trade item or a transaction, used for order sizing and pricing purposes.' ],
'474' => [ 'Number of different next lower level trade items',

t/002-Spec-analysis.t  view on Meta::CPAN

if ($debug) {
    my @depths = sort keys %counts;
    DEPTH: foreach my $d (@depths) {
        my @single = sort {&sg_sort($a,$b)} grep {$counts{$d}->{$_} == 1} keys %{$counts{$d}};
        my @mutli  = sort {&sg_sort($a,$b)} grep {$counts{$d}->{$_}  > 1} keys %{$counts{$d}};

        KEY: foreach my $key (@single) {
            foreach my $other (grep {$_ < $d} @depths) {    # check shallower depths (we go in order, so we haven't seen deeper ones yet)
                if ($counts{$other}->{$key}) {
                    printf "Blocked %-4s %2d hits (already at depth=$other)\n", $key, $counts{$other}->{$key};
                    next KEY;
                }
            }
            $deep_map{$key} and warn "Internal ERROR: $key is already deepmapped??";
            $deep_map{$key} = $scratch{$d}->{$key};
            printf "        %-4s => %-25s (depth=$d)\n", $key, $deep_map{$key};
        }
        foreach my $key (@mutli) {
            printf "MUTLI   %-4s %2d hits   %s\n", $key, $counts{$d}->{$key},
                join(", ",

t/002-Spec.t  view on Meta::CPAN

if ($debug) {
    my @depths = sort keys %counts;
    DEPTH: foreach my $d (@depths) {
        my @single = sort {&keysort($a,$b)} grep {$counts{$d}->{$_} == 1} keys %{$counts{$d}};
        my @mutli  = sort {&keysort($a,$b)} grep {$counts{$d}->{$_}  > 1} keys %{$counts{$d}};

        KEY: foreach my $key (@single) {
            foreach my $other (grep {$_ < $d} @depths) {    # check shallower depths (we go in order, so we haven't seen deeper ones yet)
                if ($counts{$other}->{$key}) {
                    printf "Blocked %-4s %2d hits (already at depth=$other)\n", $key, $counts{$other}->{$key};
                    next KEY;
                }
            }
            $deep_map{$key} and warn "Internal ERROR: $key is already deepmapped??";
            $deep_map{$key} = $scratch{$d}->{$key};
            printf "        %-4s => %-25s (depth=$d)\n", $key, $deep_map{$key};
        }
        foreach my $key (@mutli) {
            printf "MUTLI   %-4s %2d hits   %s\n", $key, $counts{$d}->{$key},
                join(", ",