USER LOGIN
Help
A/R Services
Admin
Cash Flow Management Services
Quantitative Analysis
US Market Report
Privacy Policy
Contact HFF Capital
Home
|
Innovative Business Solutions
$db
ORDERS
|
Accounts Receivable System for $hffclient
|
~;
# Get orders
my ($a, $b, $c, $d, $e, $f) = get_orders_table($hffclient_code, $sort_field, $sort_type);
#my ($cl_code, $date, $no, $detail, $amount, $open)
my $i = 0;
$class = "line";
$class_left = "line_left";
my $prev_code = "";
my $cl_name = "";
hffconnect();
my ($rv, $sth, $sql);
while($a[$i]) {
if ($class eq "line") {$class = "line_white"; $class_left = "line_left_white";}
else {$class = "line"; $class_left = "line_left";}
if ($prev_code ne $a[$i]) {
$sql = qq{ SELECT name from customers WHERE hffclientcode = '$hffclient_code' and code = '$a[$i]'};
$sth = $dbh->prepare($sql);
$rv = $sth->execute();
}
if ($rv > 0) {
$e[$i] = CommaFormatted($e[$i]);
if ($prev_code ne $a[$i]) {
$cl_name = $sth->fetchrow_array;
$sth->finish;
}
my $name_string = $cl_name;
$name_string =~ s/&/~/sig;
print "$a[$i] | ";
print " $cl_name | ";
print " $b[$i] | ";
# print " $c[$i] | ";
print " $c[$i] | ";
print " $e[$i] | ";
print " | ";
print " $d[$i] | ";
print " $f[$i] | \n";
$prev_code = $a[$i];
}
$i++;
}
$dbh->disconnect();
print qq~
For questions or comments regarding this page, please contact
CustomerService\@HFFCapital.com
|