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

(-)a/acqui/basketgroup.pl (-5 / +6 lines)
Lines 77-86 sub BasketTotal { Link Here
77
    my @orders = GetOrders($basketno);
77
    my @orders = GetOrders($basketno);
78
    for my $order (@orders){
78
    for my $order (@orders){
79
        $total = $total + ( $order->{ecost} * $order->{quantity} );
79
        $total = $total + ( $order->{ecost} * $order->{quantity} );
80
        if ($bookseller->{invoiceincgst} && ! $bookseller->{listincgst} && ( $bookseller->{gstrate} // C4::Context->preference("gist") )) {
81
            my $gst = $bookseller->{gstrate} // C4::Context->preference("gist");
82
            $total = $total * ( $gst / 100 +1);
83
        }
84
    }
80
    }
85
    $total .= " " . ($bookseller->{invoiceprice} // 0);
81
    $total .= " " . ($bookseller->{invoiceprice} // 0);
86
    return $total;
82
    return $total;
Lines 230-236 sub printbasketgrouppdf{ Link Here
230
        -type       => 'application/pdf',
226
        -type       => 'application/pdf',
231
        -attachment => ( $basketgroup->{name} || $basketgroupid ) . '.pdf'
227
        -attachment => ( $basketgroup->{name} || $basketgroupid ) . '.pdf'
232
    );
228
    );
233
    my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $bookseller->{gstrate} // C4::Context->preference("gist")) || die "pdf generation failed";
229
    my $gstrate = $bookseller->{gstrate};
230
    unless ( defined $gstrate ) {
231
        ( $gstrate ) = split /\|/, C4::Context->preference("gist");
232
    }
233
234
    my $pdf = printpdf($basketgroup, $bookseller, $baskets, \%orders, $gstrate) || die "pdf generation failed";
234
    print $pdf;
235
    print $pdf;
235
236
236
}
237
}
(-)a/acqui/parcel.pl (-2 lines)
Lines 146-152 unless( $invoiceid and $invoice->{invoiceid} ) { Link Here
146
146
147
my $booksellerid = $invoice->{booksellerid};
147
my $booksellerid = $invoice->{booksellerid};
148
my $bookseller = GetBookSellerFromId($booksellerid);
148
my $bookseller = GetBookSellerFromId($booksellerid);
149
my $gst = $bookseller->{gstrate} // C4::Context->preference("gist") // 0;
150
my $datereceived = C4::Dates->new();
149
my $datereceived = C4::Dates->new();
151
150
152
my $cfstr         = "%.2f";                                                           # currency format string -- could get this from currency table.
151
my $cfstr         = "%.2f";                                                           # currency format string -- could get this from currency table.
153
- 

Return to bug 11733