httemplate/search/cust_pay.cgi

   1 <!-- $Id: cust_pay.cgi,v 1.2 2002-01-30 14:18:09 ivan Exp $ -->
   2 <%
   3
   4 $cgi->param('payinfo') =~ /^\s*(\d+)\s*$/ or die "illegal payinfo";
   5 my $payinfo = $1;
   6 $cgi->param('payby') =~ /^(\w+)$/ or die "illegal payby";
   7 my $payby = $1;
   8 my @cust_pay = qsearch('cust_pay', { 'payinfo' => $payinfo,
   9                                      'payby'   => $payby    } );
  10 my $sortby = \*date_sort;
  11
  12 if (0) {
  13 #if ( scalar(@cust_pay) == 1 ) {
  14 #  my $invnum = $cust_bill[0]->invnum;
  15 #  print $cgi->redirect(popurl(2). "view/cust_bill.cgi?$invnum");  #redirect
  16 } elsif ( scalar(@cust_pay) == 0 ) {
  17   idiot("Check # not found.");
  18   #exit;
  19 } else {
  20   my $total = scalar(@cust_pay);
  21   my $s = $total > 1 ? 's' : '';
  22   print header("Check # Search Results", menubar(
  23           'Main Menu', popurl(2)
  24         )), "$total matching check$s found<BR>", &table(), <<END;
  25       <TR>
  26         <TH></TH>
  27         <TH>Amount</TH>
  28         <TH>Date</TH>
  29         <TH>Contact name</TH>
  30         <TH>Company</TH>
  31       </TR>
  32 END
  33
  34   my(%saw, $cust_pay);
  35   foreach my $cust_pay (
  36     sort $sortby grep(!$saw{$_->paynum}++, @cust_pay)
  37   ) {
  38     my($paynum, $custnum, $payinfo, $amount, $date ) = (
  39       $cust_pay->paynum,
  40       $cust_pay->custnum,
  41       $cust_pay->payinfo,
  42       sprintf("%.2f", $cust_pay->paid),
  43       $cust_pay->_date,
  44     );
  45     my $pdate = time2str("%b %d %Y", $date);
  46
  47     my $rowspan = 1;
  48
  49     my $view = popurl(2). "view/cust_main.cgi?". $custnum.
  50                "#". $payby. $payinfo;
  51
  52     print <<END;
  53       <TR>
  54         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$payinfo</FONT></A></TD>
  55         <TD ROWSPAN=$rowspan ALIGN="right"><A HREF="$view"><FONT SIZE=-1>\$$amount</FONT></A></TD>
  56         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$pdate</FONT></A></TD>
  57 END
  58     my $cust_main = qsearchs('cust_main', { 'custnum' => $custnum } );
  59     if ( $cust_main ) {
  60       #my $cview = popurl(2). "view/cust_main.cgi?". $cust_main->custnum;
  61       my ( $name, $company ) = (
  62         $cust_main->last. ', '. $cust_main->first,
  63         $cust_main->company,
  64       );
  65       print <<END;
  66         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$name</FONT></A></TD>
  67         <TD ROWSPAN=$rowspan><A HREF="$view"><FONT SIZE=-1>$company</FONT></A></TD>
  68 END
  69     } else {
  70       print <<END
  71         <TD ROWSPAN=$rowspan COLSPAN=2>WARNING: couldn't find cust_main.custnum $custnum (cust_pay.paynum $paynum)</TD>
  72 END
  73     }
  74
  75     print "</TR>";
  76   }
  77   print <<END;
  78     </TABLE>
  79   </BODY>
  80 </HTML>
  81 END
  82
  83 }
  84
  85 #
  86
  87 #sub invnum_sort {
  88 #  $a->invnum <=> $b->invnum;
  89 #}
  90 #
  91 #sub custnum_sort {
  92 #  $a->custnum <=> $b->custnum || $a->invnum <=> $b->invnum;
  93 #}
  94
  95 sub date_sort {
  96   $a->_date <=> $b->_date || $a->invnum <=> $b->invnum;
  97 }
  98 %>