View | Details | Raw Unified | Return to bug 18267
Collapse All | Expand All

(-)a/Koha/Edifact/Line.pm (-10 / +6 lines)
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
- 

Return to bug 18267