|
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 |
- |
|
|