|
Lines 625-630
sub add_debit {
Link Here
|
| 625 |
return $line; |
625 |
return $line; |
| 626 |
} |
626 |
} |
| 627 |
|
627 |
|
|
|
628 |
=head3 payout_amount |
| 629 |
|
| 630 |
my $debit = $account->payout_amount( |
| 631 |
{ |
| 632 |
payout_type => $payout_type, |
| 633 |
register_id => $register_id, |
| 634 |
staff_id => $staff_id, |
| 635 |
interface => 'intranet', |
| 636 |
amount => $amount, |
| 637 |
credits => $credit_lines |
| 638 |
} |
| 639 |
); |
| 640 |
|
| 641 |
This method allows an amount to be paid out from a patrons account against outstanding credits. |
| 642 |
|
| 643 |
$payout_type can be any of the defined payment_types: |
| 644 |
|
| 645 |
=cut |
| 646 |
|
| 647 |
sub payout_amount { |
| 648 |
my ( $self, $params ) = @_; |
| 649 |
|
| 650 |
# Check for mandatory parameters |
| 651 |
my @mandatory = |
| 652 |
( 'interface', 'staff_id', 'branch', 'payout_type', 'amount' ); |
| 653 |
for my $param (@mandatory) { |
| 654 |
unless ( defined( $params->{$param} ) ) { |
| 655 |
Koha::Exceptions::MissingParameter->throw( |
| 656 |
error => "The $param parameter is mandatory" ); |
| 657 |
} |
| 658 |
} |
| 659 |
|
| 660 |
# amount should always be passed as a positive value |
| 661 |
my $amount = $params->{amount} * -1; |
| 662 |
unless ( $amount < 0 ) { |
| 663 |
Koha::Exceptions::Account::AmountNotPositive->throw( |
| 664 |
error => 'Debit amount passed is not positive' ); |
| 665 |
} |
| 666 |
|
| 667 |
# amount should always be less than or equal to outstanding credit |
| 668 |
my $outstanding = 0; |
| 669 |
my $outstanding_credits = |
| 670 |
exists( $params->{credits} ) |
| 671 |
? $params->{credits} |
| 672 |
: $self->outstanding_credits->as_list; |
| 673 |
for my $credit ( @{$outstanding_credits} ) { |
| 674 |
$outstanding += $credit->amountoutstanding; |
| 675 |
} |
| 676 |
Koha::Exceptions::ParameterTooHigh->throw( error => |
| 677 |
"Amount to payout ($amount) is higher than amountoutstanding ($outstanding)" |
| 678 |
) unless ( $outstanding >= $amount ); |
| 679 |
|
| 680 |
my $payout; |
| 681 |
my $schema = Koha::Database->new->schema; |
| 682 |
$schema->txn_do( |
| 683 |
sub { |
| 684 |
|
| 685 |
# A 'payout' is a 'debit' |
| 686 |
$payout = Koha::Account::Line->new( |
| 687 |
{ |
| 688 |
date => \'NOW()', |
| 689 |
amount => $amount, |
| 690 |
debit_type_code => 'PAYOUT', |
| 691 |
payment_type => $params->{payout_type}, |
| 692 |
amountoutstanding => $amount, |
| 693 |
manager_id => $params->{staff_id}, |
| 694 |
borrowernumber => $self->borrowernumber, |
| 695 |
interface => $params->{interface}, |
| 696 |
branchcode => $params->{branch}, |
| 697 |
register_id => $params->{cash_register} |
| 698 |
} |
| 699 |
)->store(); |
| 700 |
|
| 701 |
# Offset against credits |
| 702 |
for my $credit ( @{$outstanding_credits} ) { |
| 703 |
$credit->apply( |
| 704 |
{ debits => [$payout], offset_type => 'PAYOUT' } ); |
| 705 |
$payout->discard_changes; |
| 706 |
} |
| 707 |
|
| 708 |
# Set payout as paid |
| 709 |
$payout->status('PAID')->store; |
| 710 |
} |
| 711 |
); |
| 712 |
|
| 713 |
return $payout->discard_changes; |
| 714 |
} |
| 715 |
|
| 628 |
=head3 balance |
716 |
=head3 balance |
| 629 |
|
717 |
|
| 630 |
my $balance = $self->balance |
718 |
my $balance = $self->balance |
| 631 |
- |
|
|