kivitendo/SL/DB/VC.pm @ d5dee66f
| 82515b2d | Sven Schöling | package SL::DB::VC;
|
|
use strict;
|
|||
require Exporter;
|
|||
use SL::DBUtils;
|
|||
our @ISA = qw(Exporter);
|
|||
our @EXPORT = qw(get_credit_remaining);
|
|||
sub get_credit_remaining {
|
|||
my $vc = shift;
|
|||
my ($type, $arap) = ref $vc eq 'SL::DB::Customer' ? ('customer', 'ar') : ('vendor', 'ap');
|
|||
my %params = @_;
|
|||
my $credit_remaining = $vc->creditlimit || 0;
|
|||
my $query = <<SQL;
|
|||
SELECT SUM(${arap}.amount - ${arap}.paid)
|
|||
FROM ${arap}
|
|||
WHERE ${type}_id = ?
|
|||
SQL
|
|||
my ($amount_unpaid) = selectfirst_array_query($::form, $vc->dbh, $query, $vc->id);
|
|||
$credit_remaining -= $amount_unpaid;
|
|||
$query = <<SQL;
|
|||
SELECT o.amount,
|
|||
(SELECT e.buy FROM exchangerate e
|
|||
WHERE e.curr = o.curr
|
|||
AND e.transdate = o.transdate)
|
|||
FROM oe o
|
|||
WHERE (o.${type}_id = ?)
|
|||
AND NOT COALESCE(o.quotation, FALSE)
|
|||
AND NOT COALESCE(o.closed, FALSE)
|
|||
SQL
|
|||
my @values;
|
|||
if ($params{exclude_order_id}) {
|
|||
$query .= qq| AND (o.id <> ?)|;
|
|||
push @values, $params{exclude_order_id};
|
|||
}
|
|||
my $sth = prepare_execute_query($::form, $vc->dbh, $query, $vc->id, @values);
|
|||
while (my ($amount, $exch) = $sth->fetchrow_array) {
|
|||
$credit_remaining -= $amount * ($exch || 1);
|
|||
}
|
|||
$sth->finish;
|
|||
return $credit_remaining;
|
|||
}
|
|||
1;
|