Accounts Receivable System - Order Listing

#!/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(); init_banner(); my $sort_field = $input_data{"Sort"}; my $sort_type = $input_data{"Type"}; my ($sort_field_a, $sort_field_b, $sort_field_c) = ('ASC', 'ASC', 'ASC'); if ($sort_field eq "clientcode") { if ($sort_type ne 'DESC') {$sort_field_a = 'DESC';} } elsif ($sort_field eq "orderdate") { if ($sort_type ne 'DESC') {$sort_field_b = 'DESC';} } elsif ($sort_field eq "open_order") { if ($sort_type ne 'DESC') {$sort_field_c = 'DESC';} } $visibility="visible"; print "Content-type: text/html\n\n"; print qq~ Accounts Receivable System - Order Listing

Help

A/R Services

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

Action

Code

Date

No.

Amount

Detail

Open

~; # 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 ""; print " "; print " "; # print " "; print " "; print " "; print " "; print " "; print " \n"; $prev_code = $a[$i]; } $i++; } $dbh->disconnect(); print qq~

$a[$i]

$cl_name

$b[$i]

$c[$i]

$e[$i]

$d[$i]

$f[$i]

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

~; # #

# # #

# # #

# #

# #

# #

if ($ErrorMsg ne "") { print ""; } print ""; sub init_banner{ my $localtime = localtime(); my ($a,$b,$c,$d,$e) = split(/ /,$localtime); ($a,$b,$c) = split(/:/,$d); if ($c eq "") {($a,$b,$c) = split(/:/,$e);} my $var = $c % 9; #$ErrorMsg = "..$a..$b..$c..$d..$e..$localtime.."; if ($var == 0) {$banner = "banner.gif"; $banner2 = $banner; $url = "Contract_Financing.html"; $alt = "HFF CAPITAL";} elsif ($var == 1) {$banner = "banner2.gif"; $banner2 = $banner; $url = "Contract_Financing.html";$alt = "HFF CAPITAL";} elsif ($var == 2) {$banner = "banner3.gif"; $banner2 = $banner; $url = "ar_index.html"; $alt = "HFF CAPITAL";} elsif ($var == 3) {$banner = "banner4.gif"; $banner2 = $banner; $url = "Contract_Financing.html"; $alt = "HFF CAPITAL";} elsif ($var == 4) {$banner = "banner5.gif"; $banner2 = $banner; $url = "Asset_Based_Financing.html"; $alt = "HFF CAPITAL";} elsif ($var == 5) {$banner = "http://www.advantaads.com/befree/abogrnpl_468X60.gif"; $alt = ""; $banner2 = "http://service.bfast.com/bfast/serve?bfmid=37921849&siteid=41155881&bfpage=468x60_2"; $url = "http://service.bfast.com/bfast/click?bfmid=37921849&siteid=41155881&bfpage=468x60_2";} elsif ($var == 6) {$banner = "http://www.advantaads.com/befree/staticpl_468X60.gif"; $alt = ""; $banner2 = "http://service.bfast.com/bfast/serve?bfmid=37921849&siteid=41155881&bfpage=468x60_2"; $url = "http://service.bfast.com/bfast/click?bfmid=37921849&siteid=41155881&bfpage=468x60_2";} elsif ($var == 7) {$banner = "http://ad.linksynergy.com/fs-bin/show?id=6R83fXqbsZI&bids=43047.10000106&subid=0&type=4"; $banner2 = $banner; $alt = "PriceBuster .99 Cent Sale"; $url = "http://click.linksynergy.com/fs-bin/click?id=6R83fXqbsZI&offerid=43047.10000106&subid=0&type=4";} elsif ($var == 8) {$banner = "http://ad.linksynergy.com/fs-bin/show?id=6R83fXqbsZI&bids=29744.10000219&subid=0&type=4"; $banner2 = $banner; $alt = "Dell Home Systems XPS 468x60"; $url = "http://click.linksynergy.com/fs-bin/click?id=6R83fXqbsZI&offerid=29744.10000219&subid=0&type=4";} } 1;