httemplate/search/cust_pay.cgi

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