-
END
-die unless $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
+my $cust_credit = qsearchs('cust_credit', { 'crednum' => $crednum } );
+die "credit $crednum not found!" unless $cust_credit;
+
+my $credited = $cust_credit->credited;
+
+print "Credit # $crednum".
+ qq!!.
+ '
Date: '. time2str("%D", $cust_credit->_date). ''.
+ '
Amount: $'. $cust_credit->amount. ''.
+ "
Unapplied amount: \$$credited".
+ '
Reason: '. $cust_credit->reason. ''
+ ;
-print qq!Credit #!, $crednum, qq!!;
+my @cust_bill = grep $_->owed != 0,
+ qsearch('cust_bill', { 'custnum' => $cust_credit->custnum } );
-print qq!\nInvoice # ";
-print qq!\nDate: !, time2str("%D",$_date), qq!!;
+print <
+END
-print qq!\nAmount \$!;
+print qq!
Invoice #";
-#print qq! Also post refund!;
+print qq!
Amount \$!;
print <
-
+
END
print <