#!/usr/bin/perl -w use CGI qw(:standard); use DBI; require("hffgroup/cgi-lib.pl"); require("ar_cl.lib"); require("sql.lib"); ReadParse(*input_data); load_cookies(); if ($Username eq "") { my $cookie = cookie(-name => "application", -value => "ar_cl_l.cgi" , -expires => '+365d' ,-path => '/' ); print header(-cookie => $cookie, -location => "ar_hfflogin.cgi"); } init_data(); my $sort_field = $input_data{"Sort"}; #$cookie = cookie(-name => "username2", -value => $Username , -expires => '+30m' ,-path => '/' ); #print header(-cookie => $cookie); #Update_Data(@input_data); $visibility="visible"; print "Content-type: text/html\n\n"; print qq~ Accounts Receivable System
 

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

CLIENTS
Accounts Receivable System for $hffclient
Action
 Activity Data Entry Inquiry Orders Profile
 Logout
Code Name Address Phone Fax Contact Title
~; # Get Clients my ($a, $b, $c, $d, $e, $f, $g, $h, $i, $j, $k, $l) = get_client_table($hffclient_code, $sort_field, ""); #my ($cl_code, $cl_name, $cl_address1, $cl_address2, $cl_city, $cl_state, $cl_zip, $cl_phone, $cl_fax, $Email, $cl_contact, $cl_title) # = get_client_table($hffclient_code, $sort_field, ""); my $ii = 0; $class = "line"; $class_left = "line_left"; #while($cl_code[$ii]) { while($b[$ii]) { #while($ii < 230) { if ($a[$ii] > 0) { if ($class eq "line") {$class = "line_white"; $class_left = "line_left_white";} else {$class = "line"; $class_left = "line_left";} my $code_string = $a[$ii]; # $name_string =~ s/&/~/sig; print ""; # print " "; print " "; print " "; print " "; print " "; print " "; print " \n"; } $ii++; } print qq~
$a[$ii]$b[$ii]$b[$ii]$c[$ii] $e[$ii] $f[$ii] $g[$ii]$h[$ii]$i[$ii]$k[$ii]$l[$ii]

For questions or comments regarding this page, please contact CustomerService\@HFFCapital.com

~; #$ErrorMsg if ($ErrorMsg ne "") { print ""; } print "";