SL/DB/VC.pm

   1 package SL::DB::VC;
   2
   3 use strict;
   4
   5 require Exporter;
   6 use SL::DBUtils;
   7
   8 our @ISA    = qw(Exporter);
   9 our @EXPORT = qw(get_credit_remaining);
  10
  11 sub get_credit_remaining {
  12   my $vc               = shift;
  13   my ($type, $arap)    = ref $vc eq 'SL::DB::Customer' ? ('customer', 'ar') : ('vendor', 'ap');
  14   my %params           = @_;
  15
  16   my $credit_remaining = $vc->creditlimit || 0;
  17
  18   my $query            = <<SQL;
  19     SELECT SUM(${arap}.amount - ${arap}.paid)
  20     FROM ${arap}
  21     WHERE ${type}_id = ?
  22 SQL
  23   my ($amount_unpaid)  = selectfirst_array_query($::form, $vc->dbh, $query, $vc->id);
  24   $credit_remaining   -= $amount_unpaid;
  25
  26   $query = <<SQL;
  27     SELECT o.amount,
  28       (SELECT e.buy FROM exchangerate e
  29        WHERE e.currency_id = o.currency_id
  30          AND e.transdate = o.transdate)
  31     FROM oe o
  32     WHERE (o.${type}_id = ?)
  33       AND NOT COALESCE(o.quotation, FALSE)
  34       AND NOT COALESCE(o.closed,    FALSE)
  35 SQL
  36
  37   my @values;
  38   if ($params{exclude_order_id}) {
  39     $query .= qq| AND (o.id <> ?)|;
  40     push @values, $params{exclude_order_id};
  41   }
  42
  43   my $sth = prepare_execute_query($::form, $vc->dbh, $query, $vc->id, @values);
  44
  45   while (my ($amount, $exch) = $sth->fetchrow_array) {
  46     $credit_remaining -= $amount * ($exch || 1);
  47   }
  48   $sth->finish;
  49
  50   return $credit_remaining;
  51 }
  52
  53 1;