Lines 139-148
sub _parse_lines {
Link Here
|
139 |
|
139 |
|
140 |
$d->{monetary_amount} = $s->elem( 0, 1 ); |
140 |
$d->{monetary_amount} = $s->elem( 0, 1 ); |
141 |
} |
141 |
} |
142 |
elsif ( $s->tag eq 'PRI' ) { |
|
|
143 |
|
144 |
$d->{price} = $s->elem( 0, 1 ); |
145 |
} |
146 |
elsif ( $s->tag eq 'RFF' ) { |
142 |
elsif ( $s->tag eq 'RFF' ) { |
147 |
my $qualifier = $s->elem( 0, 0 ); |
143 |
my $qualifier = $s->elem( 0, 0 ); |
148 |
if ( $qualifier eq 'QLI' ) { # Suppliers unique quotation reference |
144 |
if ( $qualifier eq 'QLI' ) { # Suppliers unique quotation reference |
Lines 379-389
sub quantity {
Link Here
|
379 |
return $self->{quantity}; |
375 |
return $self->{quantity}; |
380 |
} |
376 |
} |
381 |
|
377 |
|
382 |
sub price { |
|
|
383 |
my $self = shift; |
384 |
return $self->{price}; |
385 |
} |
386 |
|
387 |
sub reference { |
378 |
sub reference { |
388 |
my $self = shift; |
379 |
my $self = shift; |
389 |
return $self->{reference}; |
380 |
return $self->{reference}; |
Lines 747-752
sub amt_lineitem {
Link Here
|
747 |
|
738 |
|
748 |
sub pri_price { |
739 |
sub pri_price { |
749 |
my ( $self, $price_qualifier ) = @_; |
740 |
my ( $self, $price_qualifier ) = @_; |
|
|
741 |
# In practice qualifier is AAE in the quote and AAA & AAB in invoices |
742 |
# but the following are defined |
743 |
# AAA calculation price net (unit price excl tax but incl any allowances or charges) |
744 |
# AAB calculation price gross (unit price excl all taxes, allowances and charges ) |
745 |
# AAE information price (incl tax but excl allowances or charges ) |
746 |
# AAF information price (including all taxes, allowances or charges) |
750 |
foreach my $s ( @{ $self->{segs} } ) { |
747 |
foreach my $s ( @{ $self->{segs} } ) { |
751 |
if ( $s->tag eq 'PRI' && $s->elem( 0, 0 ) eq $price_qualifier ) { |
748 |
if ( $s->tag eq 'PRI' && $s->elem( 0, 0 ) eq $price_qualifier ) { |
752 |
return { |
749 |
return { |
753 |
- |
|
|